15 REM SPACE ALIENS
20 KEY OFF:SCREEN 7:COLOR 15,0:RANDOMIZE TIMER:CLS 
25 PSET(12,10),15:PSET(122,10),15:PSET(18,48),15: PSET(128,40),15
30 PSET(13,11),15:PSET(123,11),15:PSET(17,41),15:PSET(127,41),15
35 PSET(16,11),15:PSET(126,11),15:PSET(14,41),15:PSET(124,41),15
40 PSET(17,10),15:PSET(127,10),15:PSET(13,40),15:PSET(123,40),15 
45 PSET(17,12),15:PSET(127,12),15:PSET(13,42),15:PSET(123,42), 15 
56 PSET(16,12),15:PSET(126,12),15:PSET(14,42),15:PSET(124,42),15 
55 PSET(15,12),15:PSET(125,12),15:PSET(15,42),15:PSET(125,42),15 
60 PSET(14,12),15:PSET(124,12),15:PSET(16,42),15:PSET(126,42),15 
65 PSET(13,12),15:PSET(123,12),15:PSET(17,42),15:PSET(127,42),15 
70 PSET(12,12),15:PSET(122,12),15:PSET(18,42),15:PSET(128,42),15 
75 PSET(11,13),15:PSET(121,13),15:PSET(19,43),15:PSET(129,43),15 
80 PSET(10,14),15:PSET(120,14),15:PSET(20,44),15:PSET(138,44),15 
85 PSET(18,13),15:PSET(128,13),15:PSET(12,43),15:PSET(122,43),15 
90 PSET(19,14),15:PSET(129,14),15:PSET(11,44),15:PSET(121,44),15 
95 PSET(17,13),15:PSET(127,13),15:PSET(13,43),15:PSET(123,43),15 
100 PSET(15,13),15:PSET(125,13),15:PSET(15,43),15:PSET(125,43),15 
105 PSET(14,13),15:PSET(124,13),15:PSET(16,43),15:PSET(126,43),15 
110 PSET(12,13),15:PSET(122,13),15:PSET(18,43),15:PSET(128,43),15 
115 PSET(11,14),15:PSET(121,14),15:PSET(19,44),15:PSET(129,44),15 
120 PSET(12,14),15:PSET(122,14),15:PSET(18,44),15:PSET(UB,44),15 
125 PSET(13,14),15:PSET(123,14),15:PSET(17,44),15:PSET(127,44),15 
130 PSET(14,14),15:PSET(124,14),15:PSET(16,44),15:PSET(126,44),15 
135 PSET(15,14),15:PSET(125,14),15:PSET(15,44),15:PSET(125,44),15 
140 PSET(16,14),15:PSET(126,14),15:PSET(14,44),15:PSET(124,44),15
145 PSET(17,14),15:PSET(127,14),15:PSET(13,44),15: PSET(123,44),15
150 PSET(18,14),15:PSET(128,14),15:PSET(12,44),15:PSET(122,44),15 
155 PSET(19,15),15:PSET(129,15),15:PSET(11,45),15:PSET(121,45),15
160 PSET(19,16),15:PSET(129,16),15:PSET(11,46),15:PSET(121,46),15 
165 PSET(10,15),15:PSET(120,15),15:PSET(20,45),15:PSET(130,45),15 
170 PSET(10,16),15:PSET(120,16),15:PSET(20,46),15:PSET(130,46),15 
175 PSET(12,16),15:PSET(122,16),15:PSET(18,46),15:PSET(128,46),15 
180 PSET(12,15),15:PSET(122,15),15:PSET(18,45),15:PSET(128,45),15
185 PSET(17,15),15:PSET(127,15),15:PSET(13,45),15:PSET(123,45),15 
190 PSET(17,16),15:PSET(127,16),15:PSET(13,46),15:PSET(123,46),15 
195 PSET(13,15),15:PSET(123,15),15:PSET(17,45),15:PSET(127,45),15 
200 PSET(14,15),15:PSET(124,15),15:PSET(16,45),15:PSET(125,45),15
205 PSET(15,15),15:PSET(125,15),15:PSET(15,45),15:PSET(125,45),15 
210 PSET(16,15),15:PSET(126,15),15:PSET(14,45),15:PSET(124,45),15 
215 PSET(13,17),15:PSET(123,17),15:PSET(17,47),15:PSET(127,47),15 
220 PSET(16,17),15:PSET(126,17),15:PSET(14,47),15:PSET(124,47),15
225 PSET(120,15),0:PSET(130,45),0 
230 PSET(120,16),0:PSET(130,46),0 
235 PSET(123,17),0:PSET(127,47),0 
240 PSET(126,17),0:PSET(124,47),0 
245 PSET(129,16),0:PSET(121,46),0 
250 PSET(129,15),0:PSET(121,45),0 
255 PSET(129,13),15:PSET(121,43),15
260 PSET(129,12),15:PSET(121,42),15 
265 PSET(129,11),15:PSET(121,41),15 
270 PSET(120,11),15:PSET(130,41),15 
275 PSET(120,12),15:PSET(130,42),15 
280 PSET(120,13),15:PSET(130,43),15 
285 PSET(121,17),15:PSET(129,47),15 
290 PSET(128,17),15:PSET(122,47),15
295 DIM IMAGE1(100):DIM IMAGE1R(100):DIM IMAGE2(100):DIM IMAGE2R(100) 
300 GET(10,10)-(20,20),IMAGE1 
305 GET(120,10)-(130,20),IMAGE2 
310 GET(10,40)-(20,50),IMAGE1R 
315 GET(120,40)-(130,50),IMAGE2R 
510 CLS 
515 PSET(14,10),15:PSET(124,10),15:PSET(16,40),15:PSET(126,40),15 
520 PSET(15,10),15:PSET(125,10),15:PSET(15,40),15:PSET(125,40),15 
525 PSET(11,11),15:PSET(121,11),15:PSET(19,41),15:PSET(129,41),15 
530 PSET(12,11),15:PSET(122,11),15:PSET(18,41),15:PSET (128,41),15 
535 PSET(13,11),15:PSET(123,11),15:PSET(17,41),15:PSET(127,41),15 
540 PSET(14,11),15:PSET(124,11),15:PSET(16,41),15:PSET(126,41),15 
545 PSET(15,11),15:PSET(125,11),15:PSET(15,41),15:PSET(125,41),15 
550 PSET(16,11),15:PSET(126,11),15:PSET(14,41),15:PSET(124,41),15 
555 PSET(17,11),15:PSET(127,11),15:PSET(13,41),15:PSET(123,41),15 
560 PSET(18,11),15:PSET(128,11),15:PSET(12,41),15:PSET(122,41),15 
565 PSET(19,11),15:PSET(129,11),15:PSET(11,41),15:PSET(121,41),15
570 PSET(19,11),0:PSET(129,11),0:PSET(11,41),0:PSET(121,41),0 
575 PSET(10,12),15:PSET(120,12),15:PSET(20,42),15:PSET(130,42),15 
580 PSET(11,12),15:PSET(121,12),15:PSET(19,42),15:PSET(129,42),15 
585 PSET(12,12),15:PSET(122,12),15:PSET(18,42),15:PSET(128,42),15 
590 PSET(13,12),15:PSET(123,12),15:PSET(17,42),15:PSET(127,42),15 
595 PSET(14,12),15:PSET(124,12),15:PSET(16,42),15:PSET(126,42),15 
600 PSET(15,12),15:PSET(125,12),15:PSET(15,42),15:PSET(125,42),15
605 PSET(16,12),15:PSET(126,12),15:PSET(14,42),15:PSET(124,42),15 
610 PSET(17,12),15:PSET(127,12),15:PSET(13,42),15:PSET(123,42),15
615 PSET(18,12),15:PSET(128,12),15:PSET(12,42),15:PSET(122,42),15 
620 PSET(19,12),15:PSET(129,12),15:PSET(11,42),15:PSET(121,42),15 
625 PSET(19,13),15:PSET(129,13),15:PSET(11,43),15:PSET(121,43),15 
630 PSET(18,13),15:PSET(128,13),15:PSET(12,43),15:PSET(122,43),15 
635 PSET(15,13),15:PSET(125,13),15:PSET(15,43),15:PSET(125,43),15 
640 PSET(14,13),15:PSET(124,13),15:PSET(16,43),15:PSET(126,43),15 
645 PSET(11,16),15:PSET(121,13),15:PSET(19,43),15 :PSET(129,43),15 
650 PSET(10,13),15:PSET(120,13),15:PSET(20,43),15:PSET(130,43),15 
655 PSET(10,14),15:PSET(120,14),15:PSET(20,44),15:PSET(130,44),15 
660 PSET(11,14),15:PSET(121,14),15:PSET(19,44),15:PSET(129,44),15 
665 PSET(12,14),15:PSET(122,14),15:PSET(18,44),15:PSET(128,44),15 
670 PSET(13,14),15:PSET(123,14),15:PSET(17,44),15:PSET(127,44),15 
675 PSET(14,14),15:PSET(124,14),15:PSET(16,44),15:PSET(126,44),15 
680 PSET(15,14),15:PSET(125,14),15:PSET(15,44),15:PSET(125,44),15 
685 PSET(16,14),15:PSET(126,14),15:PSET(14,44),15:PSET(124,44),15 
690 PSET(17,14),15:PSET(127,14),15:PSET(13,44),15:PSET(123,44),15 
695 PSET(18,14),15:PSET(128,14),15:PSET(12,44),15:PSET(I22,44),15 
700 PSET(19,14),15:PSET(129,14),15:PSET(11,44),15:PSET(121,44),15 
705 PSET(18,15),15:PSET(128,15),15:PSET(12,45),15:PSET(122,45),15 
710 PSET(17,15),15:PSET(127,15),15:PSET(13,45),15:PSET(123,45),15
715 PSET(16,15),15:PSET(126,15),15:PSET(14,45),15:PSET(124,45),15 
720 PSET(18,15),0:PSET(128,15),0:PSET(12,45),0:PSET(122,45),0 
725 PSET(12,15),15:PSET(122,15),15:PSET(18,45),15:PSET(128,45),15 
730 PSET(13,15),15:PSET(123,15),15:PSET(17,45),15:PSET(127,45),15 
735 PSET(14,16),15:PSET(124,16),15:PSET(16,46),15:PSET(126,46),15 
740 PSET(15,16),15:PSET(125,16),15:PSET(15,46),15:PSET(125,46),15 
745 PSET(12,16),15:PSET(122,16),15:PSET(18,46),15:PSET(128,46),15 
750 PSET(11,16),15:PSET(121,16),15:PSET(19,46),15:PSET(129,46),15
755 PSET(17,16),15:PSET(127,16),15:PSET(13,46),15:PSET(123,46),15 
760 PSET(18,16),15:PSET(128,16),15:PSET(12,46),15:PSET(122,46),15 
765 PSET(17,17),15:PSET(127,17),15:PSET(13,47),15:PSET(123,47),15 
770 PSET(16,17),15:PSET(126,17),15:PSET(14,47),15:PSET(124,47),15 
775 PSET(12,17),15:PSET(122,17),15:PSET(18,47),15:PSET(128,47),15 
780 PSET(13,17),15:PSET(123,17),15:PSET(17,47),15:PSET(127,47),15
785 PSET(122,17),0:PSET(128,47),0 
790 PSET(123,17),0:PSET(127,47),0 
795 PSET(126,17),0:PSET(124,47),0 
800 PSET(127,17),0:PSET(123,47),0 
805 PSET(129,17),15:PSET(121,47),15 
810 PSET(120,17),15:PSET(130,47),15 
815 PSET(121,17),15:PSET(129,47),15 
820 PSET(128,17),15:PSET(122,47),15 
825 DIM IMAGE3(100):DIM IMAGE3R(100):DIM IMAGE4(100):DIM IMAGE4R(100) 
830 GET(10,10)-(20,20),IMAGE3 
835 GET(120,10)-(130,20),IMAGE4 
840 GET(10,40)-(20,50),IMAGE3R 
845 GET(128,40)-(130,50),IMAGE4R 
1010 CLS
1015 PSET(14,10),15:PSET(124,10),15:PSET(16,40),15:PSET(126,40),15
1020 PSET(15,10),15:PSET(125,10),15:PSET(15,40),15:PSET(125,40),15
1025 PSET(13,11),15:PSET(123,11),15:PSET(17,41),15:PSET(127,41),15
1030 PSET(14,11),15:PSET(124,11),15:PSET(16,41),15 :PSET(126,41),15  
1035 PSET(15,11),15:PSET(125,11),15:PSET(15,41),15:PSET(125,41),15
1040 PSET(16,U),15:PSET(126,11),15:PSET(14,41),15 :PSET(124,41),15
1045 PSET(12,12),15:PSET(122,12),15:PSET(18,42),15:PSET(128,42),15 
1050 PSET(13,12),15:PSET(123,12),15:PSET(17,42),15:PSET(127,42),15 
1055 PSET(14,12),15:PSET(124,12),15:PSET(16,42),15 :PSET(126,42),15
1060 PSET(15,12),15:PSET(125,12),15:PSET(15,42),15 :PSET(125,42),15
1065 PSET(16,12),15:PSET(126,12),15:PSET(14,42),15 :PSET(124,42),15
1070 PSET(17,12),15:PSET(127,12),15:PSET(13,42),15 :PSET(123,42),15
1075 PSET(11,13),15:PSET(121,13),15:PSET(19,43),15 :PSET(129,43),15
1080 PSET(12,13),15:PSET(122,13),15:PSET(18,43),15 :PSET(128,43),15
1085 PSET(14,13),15:PSET(124,13),15:PSET(16,43),15 :PSET(126,43),15
1090 PSET(15,13),15:PSET(125,13),15:PSET(15,43),15:PSET(125,43),15
1095 PSET(17,13),15:PSET(127,13),15:PSET(13,43),15 :PSET(123,43),15
1100 PSET(18,13),15:PSET(128,13),15:PSET(12,43),15 :PSET(122,43),15 
1105 PSET(11,14),15:PSET(121,14),15:PSET(19,44),15 :PSET(129,44),15
1110 PSET(12,14),15:PSET(122,14),15:PSET(18,44),15 :PSET(128,44),15
1115 PSET(13,14),15:PSET(123,14),15:PSET(17,44),15 :PSET(127,44),15 
1120 PSET(14,14),15:PSET(124,14),15:PSET(16,44),15 :PSET(126,44),15
1125 PSET(15,14),15:PSET(125,14),15:PSET(15,44),15:PSET(125,44),15 
1130 PSET(16,14),15:PSET(126,14),15:PSET(14,44),15:PSET(124,44),15 
1135 PSET(17,14),15:PSET(127,14),15:PSET(13,44),15:PSET(123,44),15 
1140 PSET(18,14),15:PSET(128,14),15:PSET(12,44),15:PSET(122,44),15 
1145 PSET(14,15),15:PSET(124,15),15:PSET(16,45),15:PSET(126,45),15 
1150 PSET(15,15),15:PSET(125,15),15:PSET(15,45),15:PSET(125,45),15 
1155 PSET(17,15),15:PSET(127,15),15:PSET(13,45),15:PSET(123,45),15 
1160 PSET(12,15),15:PSET(122,15),15:PSET(18,45),15:PSET(128,45),15 
1165 PSET(11,16),15:PSET(121,16),15:PSET(19,46),15:PSET(129,46),15 
1170 PSET(12,17),15:PSET(122,17),15:PSET(18,47),15:PSET(128,47),15 
1175 PSET(18,16),15:PSET(128,16),15:PSET(12,46),15:PSET(122,46),15 
1180 PSET(17,17),15:PSET(127,17),15:PSET(13,47),15:PSET(123,47),15
1185 PSET(121,16),0:PSET(129,46),0 
1190 PSET(128,16),0:PSET(122,46),0 
1195 PSET(127,17),0:PSET(123,47),0 
1200 PSET(122,17),0:PSET(128,47),0 
1205 PSET(122,15),0:PSET(128,45),0 
1210 PSET(124,15),0:PSET(126,45),0 
1215 PSET(125,15),0:PSET(125,45),0 
1220 PSET(127,15),0:PSET(123,45),0 
1225 PSET(123,15),15:PSET(127,45),15 
1230 PSET(126,15),15:PSET(124,45),15 
1235 PSET(124,16),15:PSET(126,46),15 
1240 PSET(125,16),15:PSET(125,46),15 
1245 PSET(127,16),15:PSET(123,46),15 
1250 PSET(122,16),15:PSET(128,46),15 
1255 PSET(121,17),15:PSET(129,47),15 
1260 PSET(123,17),15:PSET(127,47),15 
1265 PSET(126,17),15:PSET(124,47),15 
1270 PSET(128,17),15:PSET(122,47),15 
1275 DIM IMAGE5(100):DIM IMAGE5R(100):DIM IMAGE6(100):DIM IMAGE6R(100)
1280 GET(10,10)-(20,20),IMAGE5 
1285 GET(120,10)-(130,20),IMAGE6 
1290 GET(10,40)-(20,50),IMAGE5R 
1295 GET(120,40)-(130,50),IMAGE6R
1300 CLS
1325 PSET(11,16),10:PSET(121,16),10:PSET(19,46),10:PSET(129,46),10
1330 PSET(12,16),10:PSET(122,16),10:PSET(18,46),10:PSET(128,46),10 
1335 PSET(13,16),10:PSET(123,16),10:PSET(17,46),10:PSET(127,46),10 
1340 PSET(14,16),10:PSET(124,16),10:PSET(16,46),10:PSET(126,46),10 
1345 PSET(15,16),10:PSET(125,16),10:PSET(15,46),10:PSET(125,46),10
1350 PSET(16,16),10:PSET(126,16),10:PSET(14,46), 10:PSET(124,46),10 
1355 PSET(17,16),10:PSET(127,16),10:PSET(13,46),10:PSET(123,46),10 
1360 PSET(18,16),10:PSET(128,16),10:PSET(12,46),10:PSET(122,46),10 
1365 PSET(19,17),10:PSET(129,17),10:PSET(11,47),10:PSET(121,47),16 
1370 PSET(19,18),10:PSET(129,18),10:PSET(11,48),10:PSET(121,48),10 
1375 PSET(18,19),10:PSET(128,19),10:PSET(12,49),10:PSET(122,49),10 
1380 PSET(17,19),10:PSET(127,19),10:PSET(13,49),10:PSET(123,49),10 
1385 PSET(16,19),10:PSET(126,19),10:PSET(14,49),10:PSET(124,49),10 
1390 PSET(15,19),10:PSET(125,19),10:PSET(15,49),10:PSET(125,49),10 
1395 PSET(14,19),10:PSET(124,19),10:PSET(16,49),10:PSET(126,49),10 
1400 PSET(13,19),10:PSET(123,19),10:PSET(17,49),10:PSET(127,49),10 
1405 PSET(12,19),10:PSET(122,19),10:PSET(18,49),10:PSET(128,49),10
1410 PSET(11,19),10:PSET(121,19),10:PSET(19,49),10:PSET(129,49),10 
1415 PSET(10,18),10:PSET(120,18),10:PSET(20,48),10:PSET(130,48),10 
1420 PSET(10,17),10:PSET(120,17),10:PSET(20,47),10:PSET(130,47),10 
1425 PSET(11,17),10:PSET(121,17),10:PSET(19,47),10:PSET(129,47),10 
1430 PSET(12,17),10:PSET(122,17),10:PSET(18,47),10:PSET(128,47),10
1435 PSET(13,17),10:PSET(123,17),10:PSET(17,47),10:PSET(127,47),10 
1440 PSET(14,17),10:PSET(124,17),10:PSET(16,47),10:PSET(126,47),10 
1445 PSET(15,17),10:PSET(125,17),10:PSET(15,47),10:PSET(125,47),10
1450 PSET(16,17),10:PSET(126,17),10:PSET(14,47),10:PSET(124,47),10 
1455 PSET(17,17),10:PSET(127,17),10:PSET(13,47),10:PSET(123,47),10
1460 PSET(18,17),10:PSET(128,17),10:PSET(12,47),10:PSET(122,47),10 
1465 PSET(18,18),10:PSET(128,18),10:PSET(12,48),10:PSET(122,48),10 
1470 PSET(17,18),10:PSET(127,18),10:PSET(13,48),10:PSET(123,48),10 
1475 PSET(16,18),10:PSET(126,18),10:PSET(14,48),10:PSET( 124,8),10 
1480 PSET(15,18),10:PSET(125,18),10:PSET(15,48),10:PSET(125,48),10 
1485 PSET(14,18),10:PSET(124,18),10:PSET(16,48),10:PSET(126,48),10 
1490 PSET(13,18),10:PSET(123,18),10:PSET(17,48),10:PSET(127,48),10 
1495 PSET(12,18),10:PSET(122,18),10:PSET(18,48),10:PSET(128,48),10 
1500 PSET(11,18),10:PSET(121,18),10:PSET(19,48),10:PSET(129,48),10 
1505 PSET(13,15),10:PSET(123,15),10:PSET(17,45),10:PSET(127,45),10 
1510 PSET(14,15),10:PSET(124,15),10:PSET(16,45),10:PSET(126,45),10 
1515 PSET(15,15),10:PSET(125,15),10:PSET(15,45),10:PSET(125,45),10
1520 PSET(16,15),10:PSET(126,15),10:PSET(14,45),10 :PSET(124,45),10 
1525 PSET(13,15),0:PSET(123,15),0:PSET(17,45),0:PSET(127,45),0
1530 PSET(16,15),0:PSET(126,15),0:PSET(14,45),0:PSET(124,45),0
1535 DIM IMAGE7(100)
1540 GET(10,10)-(20,20),IMAGE7
1550 DIM BULLET(2):PSET(100,100),15:GET(100,100)-(100,100),BULLET
1551 CLS
1552 LOCATE 10,10:PRINT"--- SPACE ALIENS! ---"
1553 LOCATE 13,1:PRINT"Press A/S to move your ship left/right"
1554 LOCATE 14,5:PRINT"Press <SPACE> to fire a laser"
1555 LOCATE 15,5:PRINT"Destroy all of the invading aliens"
1556 LOCATE 16,5:PRINT"Before they destroy you!"
1557 LOCATE 18,5:PRINT"Press any key to begin "
1558 K$=INKEY$:IF K$="" THEN 1558
1559 CLS
1570 'Draw the boulders (in dark green)
1580 LINE(60,170)-(65,160),2:LINE(65,160)-(75,160),2:LINE(75,160)-(80,170),2:LINE(80,170)-(60,170),2:PAINT(65,167),2,2 
1585 LINE(150,170)-(155,160),2:LINE(155,160)-(165,160),2:LINE(165,160)-(170,170),2:LINE(170,170)-(150,170),2:PAINT(155,167),2,2
1590 LINE(230,170)-(235,160),2:LINE(235,160)-(245,160),2:LINE(245,160)-(250,170),2: LINE(250,170)-(230,170),2:PAINT(235,167),2,2
1600 'Set all row-of-aliens arrays to an initial value of 1, meaning all aliens are present
1610 DIM ROW1(10):DIM ROW2(10):DIM ROW3(10):DIM ROW4(10):DIM ROW5(10)
1620 FOR AA=1 TO 10
1630 ROW1(AA)=1:ROW2(AA)=1:ROW3(AA)=1:ROW4(AA)=1: ROW5(AA)=1
1640 NEXT AA
1980 'Set initial values/text
1990 YY=30:XX=0:X=150:Y=180:TEMP=0:LIVES=3:PUT(X,Y),IMAGE7
1992 LOCATE 2,1:PRINT YY:LOCATE 3,1:PRINT"YY>45 You Lose"
1995 LOCATE 1,5:PRINT"LIVES REMAINING: ";LIVES 
2000 COUNT=0:FOR A=60+XX TO 244 STEP 20 
2005 COUNT=COUNT+1
2010 IF ROW1(COUNT)=1 THEN PUT(A,YY),IMAGE5
2020 IF ROW2(COUNT)=1 THEN PUT(A,YY+20),IMAGE1 
2030 IF ROW3(COUNT)=1 THEN PUT(A,YY+40),IMAGE1 
2040 IF ROW4(COUNT)=1 THEN PUT(A,YY+60),IMAGE3 
2050 IF ROW5(COUNT)=1 THEN PUT(A,YY+80),IMAGE3 
2055 NEXT A:GOSUB 3000
2060 FOR PAUSE=1 TO 5000:NEXT PAUSE 
2065 COUNT=0:FOR A=60+XX TO 244 STEP 20 
2067 COUNT=COUNT+1
2070 IF ROW1(COUNT)=1 THEN PUT(A,YY),IMAGE5 
2080 IF ROW2(COUNT)=1 THEN PUT(A,YY+20),IMAGE1 
2090 IF ROW3(COUNT)=1 THEN PUT(A,YY+40),IMAGE1 
2100 IF ROW4(COUNT)=1 THEN PUT(A,YY+60),IMAGE3 
2110 IF ROW5(COUNT)=1 THEN PUT(A,YY+80),IMAGE3 
2115 NEXT A
2117 COUNT=0:FOR A=60+XX TO 244 STEP 20
2118 COUNT=COUNT+1
2120 IF ROW1(COUNT)=1 THEN PUT(A,YY),IMAGE6 
2130 IF ROW2(COUNT)=1 THEN PUT(A,YY+20),IMAGE2 
2140 IF ROW3(COUNT)=1 THEN PUT(A,YY+40),IMAGE2 
2150 IF ROW4(COUNT)=1 THEN PUT(A,YY+60),IMAGE4 
2160 IF ROW5(COUNT)=1 THEN PUT(A,YY+80),IMAGE4 
2165 NEXT A:GOSUB 3000
2167 IF TEMP=9 THEN GOSUB 3300   'Shoot bullet at ship (at regular intervals) 
2170 FOR PAUSE=1 TO 5000:NEXT PAUSE 
2180 COUNT=0:FOR A=60+XX TO 244 STEP 20 
2182 COUNT=COUNT+1
2185 IF ROW1(COUNT)=1 THEN PUT(A,YY),IMAGE6
2190 IF ROW2(COUNT)=1 THEN PUT(A,YY+20),IMAGE2 
2200 IF ROW3(COUNT)=1 THEN PUT(A,YY+40),IMAGE2 
2210 IF ROW4(COUNT)=1 THEN PUT(A,YY+60),IMAGE4 
2220 IF ROW5(COUNT)=1 THEN PUT(A,YY+80),IMAGE4 
2300 NEXT A
2310 YY=YY+.5      'Speed of aliens' descent 
2315 LOCATE 2,1:PRINT YY
2320 TEMP=TEMP+1 
2330 IF TEMP MOD 3=0 THEN XX=1 
2340 IF TEMP MOD 3=1 THEN XX=0 
2350 IF TEMP MOD 3=2 THEN XX=-1 
2360 IF TEMP>12 THEN TEMP=0 
2370 IF YY>45 THEN LIVES=0 'End game if the aliens have penetrated the defenses 
2400 GOTO 2000
3000 'Gather user input
3005 PUT(X,Y),IMAGE7   'Erases ship
3010 I$=INKEY$
3020 IF I$=CHR$(27) THEN CLS:END
3030 IF I$="A" OR I$="a" THEN X=X-3
3040 IF I$="S" OR I$="s" THEN X=X+3
3050 IF X<50 THEN X=50
3060 IF X>250 THEN X=250
3090 PUT(X,Y),IMAGE7 'Places ship in new position
3095 IF I$=" " THEN GOSUB 3200 
3100 RETURN
3200 'Shoot a bullet from spaceship 
3210 FOR A=175 TO 1 STEP -1 
3220 PUT(X+5,A),BULLET,XOR 
3230 FOR PAUSE=1 TO 50:NEXT PAUSE 
3240 PUT(X+5,A),BULLET
3245 IF POINT(X+5,A)=2 THEN FOR L=1 TO 3 STEP .05:CIRCLE(X+5,A),L,0:NEXT L:PSET(X+5,A),0:GOTO 3255
3247 IF POINT(X+5,A)=15 THEN XHIT=X+5:YHIT=A:FOR L=1 TO 11 STEP .05:CIRCLE(X+5,A),L,0:NEXT L:PSET(X+5,A),0:GOTO 3500
3250 NEXT A
3255 RETURN
3300 'Bullet is shot at spaceship
3305 XXX=X+INT(1+10*RND(1))-5
3310 FOR A=60 TO 195 STEP 2
3320 PUT(XXX,A),BULLET,XOR
3330 FOR PAUSE=1 TO 50:NEXT PAUSE
3340 PUT(XXX,A),BULLET
3350 IF POINT(XXX,A)=2 THEN FOR L=1 TO 3 STEP .05:CIRCLE(XXX,A),L,0:NEXT L:PSET(XXX,A),0:GOTO 3365
3355 IF POINT(XXX,A)=10 THEN LIVES=LIVES-1:LOCATE 1,5:PRINT"LIVES REMAINING: ";LIVES:GOTO 3362 
3357 GOSUB 3000
3360 NEXT A
3362 IF LIVES=0 THEN LOCATE 10,15:PRINT"GAME OVER":FOR PAUSE=1 TO 20000:NEXT PAUSE:CLS:END 
3365 RETURN
3400 'check to see if all aliens are destroyed
3410 SUM=0
3420 FOR AA=1 TO 10
3430 SUM=ROW1(AA)+ROW2(AA)+ROW3(AA)+ROW4(AA)+ ROW5(AA)                               '
3440 NEXT AA
3450 IF SUM=0 THEN LOCATE 10,10:PRINT"ALL ALIENS DESTROYED":FOR PAUSE=1 TO 20000:NEXT PAUSE:CLS:END
3460 RETURN
3500 'Check to see which alien was hit by bullet
3505 COUNT=0:FOR AAA=0 TO 200 STEP 20
3507 COUNT=COUNT+1
3510 IF XHIT>60+AAA AND XHIT<70+AAA AND YHIT>YY AND YHIT<YY+10 THEN ROW1(COUNT)=0 
3520 IF XHIT>60+AAA AND XHIT<70+AAA AND YHIT>YY+20 AND YHIT<YY+30 THEN ROW2(COUNT)=0 
3530 IF XHIT>60+AAA AND XHIT<70+AAA AND YHIT>YY+40 AND YHIT<YY+50 THEN ROW3(COUNT)=0 
3540 IF XHIT>60+AAA AND XHIT<70+AAA AND YHIT>YY+60 AND YHIT<YY+70 THEN ROW4(COUNT)=0 
3550 IF XHIT>60+AAA AND XHIT<70+AAA AND YHIT>YY+80 AND YHIT<YY+90 THEN ROW5(COUNT)=0 
3560 NEXT AAA 
3570 GOSUB 3400 
3600 GOTO 3255