FBPL Command Reference

Table Of Contents
145
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