RosettaCodeData/Task/Jump-anywhere/GW-BASIC/jump-anywhere.basic

19 lines
354 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
100 PRINT "First line."
110 GOSUB 140
120 PRINT "Fifth line."
130 GOTO 190
140 REM sub1:
150 PRINT "Second line."
160 GOSUB 220
170 PRINT "Fourth line."
180 RETURN
190 REM Ending:
200 PRINT "We're just about done..."
210 GOTO 250
220 REM sub2:
230 PRINT "Third line."
240 RETURN
250 REM Finished:
260 PRINT "... with goto and gosub, thankfully."
270 END