RosettaCodeData/Task/Flow-control-structures/BBC-BASIC/flow-control-structures.basic

12 lines
167 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
GOSUB subroutine
(loop)
PRINT "Infinite loop"
GOTO loop
END
(subroutine)
PRINT "In subroutine"
WAIT 100
RETURN