i% = 0
10 PRINT "Plain line number, plain GOTO"
i% = i% + 1
IF i% < 5 GOTO 10
_delay 1
i% = 0
00045 PRINT "Leading zeroes line num are ignored, plain GOTO"
i% = i% + 1
IF i% < 5 GOTO 45
_delay 1
i% = 0
LineLabelTest:
PRINT "Plain line label, plain GOTO"
i% = i% + 1
IF i% < 5 THEN GOTO LineLabelTest
_delay 1
i% = 0
100 PRINT "Plain line number, GOTO with EVAL"
GOTO 150
130 PRINT "You clicked Okay" : GOTO 150
140 PRINT "You clicked Cancel" : GOTO 150
150 i% = i% + 1
IF i% < 5 THEN GOTO EVAL( [ IFF(_CONFIRM("Click one of the buttons on this dialog"), 130, 140) ] )
i% = 0
00200 PRINT "Leading zeroes line num are ignored, GOTO with EVAL"
GOTO 250
00230 PRINT "You clicked Okay" : GOTO 250
00240 PRINT "You clicked Cancel" : GOTO 250
00250 i% = i% + 1
IF i% < 5 THEN GOTO EVAL( [ IFF(_CONFIRM("Click one of the buttons on this dialog"), 230, 240) ] )
i% = 0
⯈Here200: PRINT "Fancy line label, GOTO with EVAL"
GOTO ⯈Here250
⯈Here230: PRINT "You clicked Okay" : GOTO ⯈Here250
⯈Here240: PRINT "You clicked Cancel" : GOTO ⯈Here250
⯈Here250: i% = i% + 1
IF i% < 5 THEN GOTO EVAL( [ IFF(_CONFIRM("Click one of the buttons on this dialog"), "⯈Here230", "⯈Here240") ] )
' 🟠 "IF expression GOTO line_num" and "IF expression THEN line_num" only line numbers are allowed.
' i.e. no line labels and no EVAL()
' However, leading zeroes are allowed (and ignored)
i% = 0
000001000 PRINT "IF...GOTO, line num with leading zeroes"
i% = i% + 1
IF i% < 5 GOTO 01000
END