gosub.bas revision 4479
1100 LET X = 3
2110 GOSUB 400
3120 PRINT U, V, W
4200 LET X = 5
5210 GOSUB 400
6220 LET Z = U + 2*V + 3*W
7230 PRINT Z
8240 GOTO 999
9400 LET U = X*X
10410 LET V = X*X*X
11420 LET W = X*X*X*X + X*X*X + X*X + X
12430 RETURN
13999 END
14