10 DIM T(1002),S(1000),V(1000),A(1000)
20 INPUT "ACCELERATION FACTOR =";R
30 FOR N = 0 TO 1000
40 T(N) = N
50 NEXT N
60 FOR N = 1 TO 200
70 S(N) = R/2*T(N)^2
80 V(N) = (S(N)-S(N-1))/(T(N)-T(N-1))
90 A(N) = (V(N)-V(N-1))/(T(N)-T(N-1))
100 M = M + 1
110 NEXT N
120 FOR N = 1 TO M
130 LPRINT "N =";N;TAB(20)"S =";S(N)
140 LPRINT TAB(40);"V =";V(N)
150 LPRINT TAB(60);"A =";A(N)
160 NEXT N