Drop Test

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 
9998 SAVE "DROPTES%T"
9999 GOTO 10