100 CALL CHAR(159,"0")
110 FOR I=1 TO 128
120 READ X
130 F$=F$&CHR$(X)
140 NEXT I
150 DATA 0,0,0,0,226,0,215,224,1,40,215,204,216,32,131,78,131,212,215,224,131,212,215,224,1,245,4,224
160 DATA 131,196,2,12,67,0,16,17,7,248,55,215,158,142,0,0,0,64,0,21,8,159,212,0,0,3,33,111
170 DATA 0,0,0,0,0,0,0,0,25,202,81,5,77,0,215,224,131,249,215,204,143,60,212,224,0,5,2,140,67,16,17
180 DATA 247,215,224,0,51,215,204,16,0,212,224,0,166,215,224,0,63,215,224,1,153,115,12,212,204,6,12
190 DATA 22,253,4,91,53,103,0,0,131,80,2,4,5,255
200 CALL CHAR(146,"0")
210 CALL CHAR(147,"0")
220 REM  colors 
230 CALL CHAR(152,"1122334455667788")
240 CALL CHAR(153,"99AABBCCDDEEFF10")
250 CALL CHAR(154,"F0F0F0F0F0F0F0F0")
260 CALL CHAR(155,"F0F0F0F0F0F0F0F0")
270 REM  missile 
280 CALL CHAR(92,"0103030303030304")
290 CALL CHAR(93,"0")
300 CALL CHAR(94,"0080808080808040")
310 CALL CHAR(95,"0")
320 REM  saucer patterns 
330 CALL CHAR(96,"01033FFFDEFF3F07")
340 CALL CHAR(97,"0")
350 CALL CHAR(98,"0080F8FEF6FEF8C0")
360 CALL CHAR(99,"0")
370 REM  explosion 
380 CALL CHAR(100,"0041055000052189")
390 CALL CHAR(101,"2310060110044001")
400 CALL CHAR(102,"80220008806200A0")
410 CALL CHAR(103,"D580248008A00200")
420 OPEN #1:F$
430 REM  saucer 
440 CALL CLEAR
450 CALL SCREEN(2)
460 CALL CLEAR
470 PRINT "HITS:";HIT;"         MISSES:";MISS;
480 REM  missile
490 CALL COLOR(1,12,8)
500 CALL COLOR(2,8,12)
510 CALL COLOR(3,12,13)
520 CALL COLOR(4,1,9)
530 REM  saucer
540 CALL COLOR(5,2,1)
550 CALL COLOR(6,1,1)
560 CALL COLOR(7,13,1)
570 CALL COLOR(8,1,8)
580 X=0
590 N=0
600 CALL CHAR(146,"00000000000A")
610 CALL KEY(0,K,S)
620 X=X+1
630 IF X=73 THEN 840
640 IF S<1 THEN 610
650 CALL CHAR(146,"E0000000000A")
660 IF (X<19)+(X>25)THEN 690
670 TOP=106
680 GOTO 700
690 TOP=130
700 N=N+1
710 IF N<TOP THEN 700
720 IF TOP=130 THEN 810
730 CALL CHAR(146,"0")
740 HIT=HIT+1
750 CALL COLOR(3,13,5)
760 CALL COLOR(4,1,16)
770 CALL COLOR(8,1,1)
780 FOR I=1 TO 300
790 NEXT I
800 GOTO 850
810 CALL CHAR(146,"00000000000A")
815 CALL KEY(0,K,S)
820 X=X+1
830 IF X<55 THEN 815
840 MISS=MISS+1
850 GOTO 460