10 SCREEN 0 : COLOR 15,0 : CLS
20 RANDOMIZE TIMER : COLOR RND * 15, 0
25 RANDOMIZE TIMER : H1 = RND * 75 : V1 = 3 : H1 = H1 + 3
30 LOCATE V1, H1 : PRINT CHR$(219)
35 V1 = V1 + 1
36 IF V1 > 22 THEN GOTO 40
37 A$=INKEY$ : IF LEN(A$)=1 THEN GOTO 1000
38 GOTO 30
40 RANDOMIZE TIMER : COLOR RND * 15, 0 
45 RANDOMIZE TIMER : H1 = 3 : V1 = RND * 19 : V1 = V1 + 3 
50 LOCATE V1, H1 : PRINT CHR$(219)
55 H1 = H1 + 1 
56 IF H1 > 78 THEN GOTO 60
57 A$=INKEY$ : IF LEN(A$)=1 THEN GOTO 1000 
58 GOTO 50
60 RANDOMIZE TIMER : COLOR RND * 15, 0
65 RANDOMIZE TIMER : H1 = RND * 75 : V1 = 22 : H1 = H1 + 3
70 LOCATE V1, H1 : PRINT CHR$(219)
75 V1 = V1 - 1
76 IF V1 < 3 THEN GOTO 80
77 A$=INKEY$ : IF LEN(A$)=1 THEN GOTO 1000
78 GOTO 70
80 RANDOMIZE TIMER : COLOR RND * 15, 0
85 RANDOMIZE TIMER : H1 = 78 : V1 = RND * 19 : V1 = V1 + 3
90 LOCATE V1, H1 : PRINT CHR$(219)
95 H1 = H1 - 1
96 IF H1 < 3 THEN GOTO 20
97 A$=INKEY$ : IF LEN(A$)=1 THEN GOTO 1000
98 GOTO 90
1000 COLOR 15,0 : CLS : END