Source Code
10 CLS
30 FOR N=0 TO 63
40 IF N=5 THEN GOTO 60
50 PLOT N,0
60 NEXT N
70 FOR N=0 TO 32
80 PLOT 4,N
90 NEXT N
100 FOR N=8 TO 0 STEP -1
110 PLOT N,33
120 NEXT N
130 PRINT AT 0,2;"\ :\: ";AT 1,1;"\..\.:\..\..";AT 2,2;"\: ";AT 3,1;"\.'\'.";AT 4,1;"\:.\ :\. ";AT 10,12;"\:'\''\''\''\''\''\''\''\''\''\':";AT 11,12;"\: DROP TEST\ :";AT 12,12;"\:.\..\..\..\..\..\..\..\..\..\.:"
140 LET T=0
150 PRINT AT 1,8;"TIME IN SECONDS? ";
160 INPUT T
170 PRINT T
180 GOSUB 500
190 LET V=1088
200 LET G=32
210 LET A=1/1183744
220 LET B=-2*(T/V+1/G)
230 LET C=T**2
240 LET H=(-B-(B*B-4*A*C)**.5)/(2*A)
260 PRINT AT 4,8;"HEIGHT = ";H;" FEET"
280 PAUSE 40000
290 CLS
300 GOTO 10
500 FOR N=40 TO 1 STEP -1
510 PLOT 10,N
520 UNPLOT 10,N
530 NEXT N
540 FOR N=20 TO 0 STEP -1
550 PRINT AT N,5;"\~~";AT N,5;" "
560 NEXT N
590 RETURN
\n9998 SAVE "DROPTES%T"
\n9999 GOTO 10
