'--------------------------------------------------------------
'                 (c) 1999-2003 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