TSC TTP-244 Plus

TSC AUTO ID Technology Co., Ltd. 137 Copyright 2013 All Rights Reserved.
NEXT
TEXT 100,110,"3",0,1,1,"(1) 1+2+3+...+100="+STR$(A)
TEXT 100,160,"3",0,1,1,"(2) 1+3+5+...+99="+STR$(B)
TEXT 100,210,"3",0,1,1,"(3) 2+4+6+...+100="+STR$(C)
TEXT 100,260,"3",0,1,1,"(4) 3+6+9+...+99="+STR$(D)
TEXT 100,310,"3",0,1,1,"(5)
5+10+15+...+100="+STR$(E)
TEXT 100,360,"3",0,1,1," (1)-(5)="+STR$(F)
TEXT 100,410,"3",0,1,1,"(6) 7+14+21+...+98="+STR$(G)
TEXT 100,460,"3",0,1,1,"(7)
17+34+51+...+85="+STR$(H)
TEXT 100,510,"3",0,1,1,"(8) 27+54+...+81="+STR$(J)
TEXT 100,560,"3",0,1,1,"(9) 37+74="+STR$(K)
TEXT 100,610,"3",0,1,1,"
(1)-(6)-(7)-(8)-(9)="+STR$(L)
PRINT 1,1
EOP
DOWNLOAD F,"TEST.BAS"
SIZE 4,1
GAP 0,0
DIRECTION 1
CLS
A=85
B=10
:START
IF A<100 THEN GOTO L1 ELSE GOTO L2
:L1
CLS
TEXT 100,10,"3",0,1,1,STR$(A) + " IS SMALLER THEN
100"
PRINT 1
A=A+B
GOTO START
ENDIF
:L2
CLS
TEXT 100,10,"3",0,1,1,STR$(A) + " IS LAGER THEN 100"
PRINT 1
EOP
TEST
Note:
If the result of the expression is nonzero, the statement following THEN will be executed. If the result
of the expression is zero, and the statement following the ELSE is present, it will be executed.
Otherwise the next line of statement is executed.
If there are block of statements in IF…THEN …ELSE, ENDIF must be used at the end of the
IF…THEN …ELSE statement.
Limitations:
The total numbers of nested IF …THEN …ELSE statement in a program cannot exceed 40.