1 2 3 4 5 6 7 8 9 10 11 12 13
' GOSUB/RETURN example - subroutine calls 10 PRINT "Main program start" 20 X = 5 30 GOSUB 100 40 X = 10 50 GOSUB 100 60 PRINT "Main program end" 70 END 100 REM Square subroutine 110 PRINT X; "squared ="; X * X 120 RETURN