10 rem this program performs numerical integration to calculate the
20 rem speed and distance of fall as a function of time for a
30 rem freely-falling body
40 print "Enter the total time of fall and the number of intervals"
50 input "Total time = ";tt
60 input "Number of intervals = ";n
70 dt = tt/n : rem dt is delta t
80 i = 0 : t = 0 : a = 9.8 : v = 0 : y = 0 : rem next initialize other vars
90 rem i is counter, t is time, a is accel, v is velocity, y is distance.
100 print "   i      t          a              v              y"
110 print "___________________________________________________________"
120 for i = 1 to n
130 t = t+dt
140 y = y+v*dt
150 v = v+a*dt
160 print using "####";i;" ";
170 print using "####.###";t,a,v,y
180 next i
190 end