GOSUB Example
10 Y=3
20 Z=4
30 GOSUB Calc_x
40 PRINT "X = ";X
50 STOP
60 Calc_x: X=Y*45/Z
70 RETURN
80 END