#COMPILE EXE "s34_goto_gosub.exe"
' Sample: GOTO and GOSUB for legacy compatibility
FUNCTION PBMAIN() AS LONG
    PRINT "Using GOSUB to call subroutine:"
    GOSUB MyRoutine
    PRINT "Back from subroutine"
    GOTO Done
MyRoutine:
    PRINT "  Inside subroutine"
    RETURN
Done:
    FUNCTION = 0
END FUNCTION
