gosub.bas

82 sample programs written in BASCOM-8051 for 8051 developement

'--------------------------------------------------------------
'                 (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