### Appears on

Cassette to accompany the November 1983 issue of Synchro-Sette.

### 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