Coverting GOSUB to GOTO?

[euklides]

Sub in two modes:

Code: (Select All)

x = 1: flag = 0: GoSub Multip

Print "First pass in gosub mode gives "; x

flag = 1

Multip: x = x * 2
If flag = 0 Then Return


Print "Second pass without gosub mode gives "; x

flag = 0: GoSub Multip
Print "Third pass in gosub mode gives "; x
Sleep