RosettaCodeData/Task/Flow-control-structures/Fortran/flow-control-structures-2.f

5 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