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