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 “IFTHEN.BAS”
SIZE 3,4
GAP 0,0
DENSITY 8
SPEED 3
DIRECTION 0
REFERENCE 0,0
SET PEEL OFF
CLS
A=50
B=5
C$=""
D$=""
:L1
IF A>100 THEN GOTO L1 ELSE A=A+10
C$=STR$(A)+" IS SMALLER THAN 100"
TEXT 100,10,"4",0,1,1,C$
PRINT 1
END
:L2
A=A+B
D$=STR$(A)+" IS LARGER THAN 100"
TEXT 100,100,"4",0,1,1,D$
PRINT 1
GOTO L1
EOP
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 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 can not exceed than 40.
The total numbers of nested IF …THEN …ELSE, FOR…NEXT, GOSUB
RETURN in a program can not exceed than 40 loops.
See Also
DOWNLOAD, EOP
To Next Page
Loading...
