RosettaCodeData/Task/Flow-control-structures/PureBasic/flow-control-structures-2.purebasic
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

8 lines
132 B
Text

X=1: Y=2
Gosub Calc
;X will now equal 7
End
Calc:
X+3*Y
Return ; Returns to the point in the code where the Gosub jumped from