20	DIM R(3)
21	DIM H(3)
50	T=RND(1)*40
51	T=T+10
52	T=INT(T)/100
100	SCREEN 2,1
110	CLS
120	COLOR 15,4
130	C=15
190	SCREEN 2,2
200	LINE (5,170)-(10,165),C
201	LINE -(15,170),C
202	LINE -(10,175),C
203	LINE -(5,170),C
204	LINE (10,175)-(10,185),C
205	LINE (5,180)-(10,175),C
206	LINE -(15,180),C
207	LINE (5,191)-(10,185),C
208	LINE -(15,191),C
300	N=0
301	Y=185
303	V=1+T
310	FOR X=12 TO 255
320	T=X MOD 64
330	IF T=0 THEN R(N)=Y:N=N+1:GOSUB 700
350	Y=Y-V
360	V=V-0.01
370	IF V < -1 THEN V=-1
380	IF Y > 191 THEN X = 255
390	NEXT X
400	X=78
401	Y=16
402	P=1
405	LINE (X,Y)-(X+102,Y+16),C,B
410	LINE (X+P,Y)-(X+P,Y+16),C
411	BLINE (X+P+1,Y+1)-(X+P+1,Y+15)
420	S$=INKEY$
430	IF S$="Z" THEN P=P-1
440	IF S$="X" THEN P=P+1
450	IF P<1 THEN P=1
460	IF P>100 THEN P=100
480	IF S$=" " THEN P=(P-50)/100:GOTO 500
490	GOTO 410
500	N=0
501	Y=185
503	V=1+P
510	FOR X=12 TO 255
511	PSET (X,Y),C
512	SOUND 1,440+370-Y*2,11
520	T=X MOD 64
530	IF T=0 THEN H(N)=Y
540	IF T=0 THEN N=N+1
550	Y=Y-V
560	V=V-0.01
570	IF V < -1 THEN V=-1
580	IF Y > 191 THEN X = 255
590	NEXT X
600	FOR N=0 TO 2
610	IF (R(N) - 10) > H(N) THEN GOTO 660
620	IF (R(N) + 10) < H(N) THEN GOTO 660
630	X=N*64+64
640	LINE (X,H(N)-30)-(X,H(N)-30+4),C
641	LINE -(X+5,H(N)-30-2),C
650	BEEP2
660	NEXT N
690	GOTO 690
700	Z=Z
710	LINE (X-10,Y)-(X,Y-10),C
720	LINE -(X+10,Y),C
730	LINE -(X,Y+10),C
740	LINE -(X-10,Y),C
750	LINE (X,Y+10)-(X,191),C
760	BEEP
790	RETURN