RosettaCodeData/Task/Flow-control-structures/PureBasic/flow-control-structures-2.basic

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