gosub.bas

来自「82 sample programs written in BASCOM-805」· BAS 代码 · 共 24 行

'--------------------------------------------------------------
'                 (c) 1997-2000 MCS Electronics
'--------------------------------------------------------------
'  file: GOSUB.BAS
'  demo: GOTO, GOSUB and RETURN
'--------------------------------------------------------------

Goto Continue
Print "This code will not be executed"

Continue:                               'end a label with a colon
Print "We will start execution here"
Gosub Routine
Print "Back from Routine"
End





Routine:                                'start a subroutine
  Print "This will be executed"
Return                                  'return from subroutine