TSC TTP-247 - Page 146

TSC AUTO ID Technology Co., Ltd. 134 Copyright 2013 All Rights Reserved.
DOWNLOAD "TEST.BAS"
I=0
TOTAL=0
DO
TOTAL=TOTAL+I
I=I+1
LOOP WHILE I<101
SIZE 4,0.5
GAP 0,0
CLS
TEXT 10,10,"3",0,1,1,"1+2+3+ ... + 100 = " +
STR$(TOTAL)
PRINT 1
EOP
TEST
DOWNLOAD "TEST.BAS"
I=0
TOTAL = 0
DO
TOTAL = TOTAL + I
I=I+1
LOOP UNTIL I>100
SIZE 4,0.5
GAP 0,0
CLS
TEXT 10,10,"3",0,1,1,"1+2+3+ ... + 100 = " +
STR$(TOTAL)
PRINT 1
EOP
TEST