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

Gosub MySub

Lable2:
; The program will jump here, then 'end'
End

MySub:
If #PI>3
  FakeReturn  ; This will simulate the function of a normal "Return".
  Goto Lable2
EndIf
Return