RosettaCodeData/Task/Flow-control-structures/Fortran/flow-control-structures-2.f
2016-12-05 22:15:40 +01:00

4 lines
169 B
Forth

ASSIGN 2000 TO WHENCE !Deviant "return" from 1000 to invoke 2000.
ASSIGN 1103 TO THENCE !Desired return from 2000.
GO TO 1000
1103 CONTINUE