Home | History | Annotate | Download | only in BASIC
      1 100 LET X = 3
      2 110 GOSUB 400
      3 120 PRINT U, V, W
      4 200 LET X = 5
      5 210 GOSUB 400
      6 220 LET Z = U + 2*V + 3*W
      7 230 PRINT Z
      8 240 GOTO 999
      9 400 LET U = X*X
     10 410 LET V = X*X*X
     11 420 LET W = X*X*X*X + X*X*X + X*X + X
     12 430 RETURN
     13 999 END
     14