10 KEY OFF
20 KEY 1,"":KEY 2,"":KEY 3,"":KEY 4,""
30 ON KEY (1) GOSUB 1000:ON KEY (2) GOSUB 2000
40 ON KEY (3) GOSUB 3000:ON KEY (4) GOSUB 4000
50 KEY (1) ON:KEY (2) ON:KEY (3) ON:KEY (4) ON
52 SCREEN 1:GOSUB 900:J=0:CLS
53 FOR X%=1 TO 15:Y$=INKEY$:NEXT X%
54 IF INKEY$="" THEN 54
60 SCREEN 1:GOSUB 900:J=0:CLS
70 FOR I=1 TO 40
80          J=J+1:IF J>23 THEN J=1
90          LOCATE J,I:PRINT CHR$(2)
100          FOR K=1 TO 10:A=1*1:NEXT K
110 NEXT I
120 IF I=41 AND J=23 THEN GOTO 60 ELSE GOTO 70
900 COLOR 0,1:RETURN
1000 COLOR 1,1:RETURN
2000 COLOR 2,1:RETURN
3000 COLOR 4,1:RETURN
4000 COLOR 0,1:RETURN 5000
5000 CLS:CHAIN "A:SATURN"