10 CALL CLEAR
20 CALL SCREEN(2)
30 RESTORE 80
40 FOR I=48 TO 58
50 READ A$
60 CALL CHAR(I,A$)
70 NEXT I
80 DATA 007E7E66667E7E,00383818183C3C,007E7E0E707E7E,007E063E067E7E,00606C7E7E0C,007E7E700E7E7E,007E607E667E7E
90 DATA 007E7E66060606,003C243C667E7E,007E7E667E7E06,3C5A187EFFE74224
100 RESTORE 150
110 FOR I=65 TO 73
120 READ A$
130 CALL CHAR(I,A$)
140 NEXT I
150 DATA 003C24247E6666,183C7EDBDBC366,007E424060627E,007E426262627E,007E40407C607E,007E40407C606
160 DATA 007E424066627E,002424247E6666,00101010181818
170 CALL CHAR(75,"004444786464")
180 CALL CHAR(76,"0040406060607E")
190 RESTORE 240
200 FOR I=78 TO 89
210 READ A$
220 CALL CHAR(I,A$)
230 NEXT I
240 DATA 007E4262626262,007E424646467E,007E42427E606,007E424646467F01,007C44447E6262,007E42701E467E
250 DATA 007E1010181818,0042426262627E,00626262222418,0062626A6A4A76,00426618186642,00424224181818
260 CALL COLOR(3,6,2)
270 CALL COLOR(4,6,2)
280 FOR I=5 TO 8
290 CALL COLOR(I,5,2)
300 NEXT I
310 CALL CHAR(96,"08022E9FBFFFF37F")
320 CALL CHAR(97,"104074F9FDFFCFFE")
330 CALL CHAR(98,"3F150F0722422418")
340 CALL CHAR(99,"FC50F8702221120C")
350 CALL CHAR(100,"183C7EE73C5AC381")
360 CALL COLOR(9,9,2)
370 CALL HCHAR(4,15,96)
380 CALL SOUND(-10,110,0)
390 CALL HCHAR(4,16,97)
400 CALL SOUND(-10,115,0)
410 CALL HCHAR(5,15,98)
420 CALL SOUND(-10,110,0)
430 CALL HCHAR(5,16,99)
440 CALL SOUND(100,120,5)
450 T$="         TEXAS"
460 R=7
470 GOSUB 520
480 T$="             INVADERS"
490 R=9
500 GOSUB 520
510 GOTO 570
520 FOR I=1 TO LEN(T$)
530 CALL HCHAR(R,I,ASC(SEG$(T$,I,1)))
540 CALL SOUND(-10,3000,0)
550 NEXT I
560 RETURN
570 FOR I=1 TO 32 STEP 2
580 FOR R=15 TO 20 STEP 5
590 CALL HCHAR(R,I,100)
600 CALL SOUND(-100,115,10)
610 CALL HCHAR(R,I,66)
620 CALL SOUND(-100,110,15)
630 NEXT R
640 NEXT I
650 FOR I=1 TO 100
660 NEXT I
670 FOR I=57 TO 48 STEP-1
675 CALL SOUND(-10,4300,0)
676 CALL SOUND(-10,5000,0)
680 CALL HCHAR(12,16,I)
690 FOR D=1 TO 200
700 NEXT D
720 NEXT I
725 CALL HCHAR(12,16,100)
730 FOR I=0 TO 30 STEP 2
740 CALL SOUND(-10,110,15,110,15,220,15)
750 CALL SOUND(-100,110,I,110,I,220,I)
760 CALL SOUND(-100,110,I,220,I,330,I)
770 CALL SOUND(-100,220,I,220,I,110,I)
780 CALL SOUND(-100,110,I,110,I,220,I)
790 NEXT I
800 P$="    PRESS ANY KEY TO CONTINUE"
810 FOR I=1 TO LEN(P$)
820 CALL HCHAR(22,I,ASC(SEG$(P$,I,1)))
830 NEXT I
840 CALL KEY(0,K,S)
850 IF S=0 THEN 840
860 CALL CLEAR
870 I$="    DO YOU WANT INSTRUCTIONS"
880 Y$="            Y OR N"
890 FOR I=1 TO LEN(I$)
900 CALL HCHAR(10,I,ASC(SEG$(I$,I,1)))
910 NEXT I
920 FOR I=1 TO LEN(Y$)
930 CALL VCHAR(I,16,ASC(SEG$(Y$,I,1)))
940 NEXT I
950 CALL KEY(0,K,S)
960 IF S=0 THEN 950
970 CALL CLEAR
980 IF K=ASC("Y")THEN 1000
990 IF K=ASC("N")THEN 1180 ELSE 950
1000 CALL CLEAR
1010 I$="          INSTRUCTIONS"
1020 R=5
1030 GOSUB 1110
1040 I$="    KEYS    S LEFT   D RIGHT"
1050 R=10
1060 GOSUB 1110
1070 I$="     USE FULL STOP TO FIRE"
1080 R=13
1090 GOSUB 1110
1100 GOTO 1180
1110 FOR I=1 TO LEN(I$)
1120 CALL HCHAR(R,I,ASC(SEG$(I$,I,1)))
1130 NEXT I
1140 FOR I=1 TO 200
1150 NEXT I
1160 CALL CLEAR
1170 RETURN
1180 RESTORE 1230
1190 FOR I=104 TO 115
1200 READ A$
1210 CALL CHAR(I,A$)
1220 NEXT I
1230 DATA FFFFFFFFFFFFFFFF,7F3F392C8727491,FEFC9C32E1E29408,FF82F4081F3C7FFC,FF412F10F83CFE3F,F8F0F8F8FCFDFFFF
1240 DATA 0085EFFFFFFFFFFF,24242424242DBFFF,0F1F0F0787CFFFFF,0080C0E0E0F0F0F8,010303010103070F,FF1824429924C324
1250 CALL COLOR(10,13,2)
1260 CALL COLOR(11,13,2)
1270 MISS=4
1280 SC=-10
1290 C=16
1300 GOSUB 2070
1310 GOSUB 2130
1320 CALL HCHAR(24,1,104,32)
1330 CALL HCHAR(23,1,104)
1340 CALL HCHAR(23,32,104)
1350 CALL HCHAR(23,2,109)
1360 CALL HCHAR(23,31,112)
1370 CALL HCHAR(23,4,111,26)
1380 CALL HCHAR(22,4,115,26)
1390 CALL HCHAR(22,1,104)
1400 CALL HCHAR(22,2,113)
1410 CALL HCHAR(21,1,113)
1420 CALL HCHAR(22,31,114)
1430 CALL HCHAR(22,32,104)
1440 CALL HCHAR(21,32,114)
1450 CALL HCHAR(22,3,107)
1460 CALL HCHAR(22,30,108)
1470 CALL CHAR(144,"000018243C7EFF3C")
1480 CALL CHAR(145,"423C66FF7E2442")
1490 CALL COLOR(15,11,2)
1500 CALL CHAR(152,"1010080810100808")
1510 CALL CHAR(153,"0010041084041")
1520 CALL CHAR(154,"4824489462142892")
1530 CALL CHAR(155,"8822954834AA449")
1540 CALL COLOR(16,16,2)
1550 NU=44
1560 FOR I=7 TO 27 STEP 2
1570 CALL HCHAR(6,I,145)
1580 CALL HCHAR(9,I,100)
1590 CALL HCHAR(12,I,58)
1600 CALL HCHAR(15,I,66)
1610 NEXT I
1620 CALL HCHAR(21,C,144)
1630 CALL KEY(0,K,S)
1640 IF S=0 THEN 1630
1650 IF MISS=0 THEN 2190
1660 IF NU=0 THEN 1550
1670 IF K=83 THEN 1700
1680 IF K=68 THEN 1780
1690 IF K=46 THEN 1850
1700 C=C-1
1705 IF C<4 THEN 1760
1710 CALL HCHAR(21,C+1,32)
1720 CALL HCHAR(21,C,144)
1740 GOTO 1630
1750 GOTO 1630
1760 C=4
1770 GOTO 1630
1780 C=C+1
1785 IF C>29 THEN 1830
1790 CALL HCHAR(21,C-1,32)
1800 CALL HCHAR(21,C,144)
1820 GOTO 1630
1830 C=29
1840 GOTO 1630
1850 FOR I=20 TO 4 STEP-1
1860 CALL GCHAR(I,C,SS)
1870 IF SS<>32 THEN 1930
1880 CALL HCHAR(I,C,152)
1890 CALL HCHAR(I,C,32)
1900 IF I=4 THEN 2050
1910 NEXT I
1920 GOTO 1630
1930 CALL HCHAR(I,C,32)
1940 FOR G=153 TO 155
1950 CALL HCHAR(I,C,G)
1960 NEXT G
1970 FOR G=155 TO 153 STEP-1
1980 CALL SOUND(-200,-7,0)
1990 CALL HCHAR(I,C,G)
2000 NEXT G
2010 CALL HCHAR(I,C,32)
2020 NU=NU-1
2030 GOSUB 2130
2040 GOTO 1630
2050 GOSUB 2070
2060 GOTO 1630
2070 MISS=MISS-1
2080 L$=" LIVES "&STR$(MISS)
2090 FOR I=1 TO LEN(L$)
2100 CALL HCHAR(1,I,ASC(SEG$(L$,I,1)))
2110 NEXT I
2120 RETURN
2130 SC=SC+10
2135 CALL HCHAR(3,8,32,5)
2140 S$=" SCORE "&STR$(SC)
2150 FOR K=1 TO LEN(S$)
2160 CALL HCHAR(3,K,ASC(SEG$(S$,K,1)))
2170 NEXT K
2180 RETURN
2190 CALL HCHAR(21,C,32)
2200 FOR I=0 TO 30
2210 CALL SOUND(-200,110,I,-7,I)
2220 NEXT I
2230 CALL SOUND(-10,3000,0)
2240 A$="     ANOTHER GAME  Y  OR  N"
2250 FOR I=1 TO LEN(A$)
2260 CALL HCHAR(12,I,ASC(SEG$(A$,I,1)))
2270 NEXT I
2280 CALL KEY(0,K,S)
2281 CALL HCHAR(2,1,32,32)
2290 IF S=0 THEN 2280
2300 IF K=ASC("Y")THEN 2320
2310 IF K=ASC("N")THEN 2340 ELSE 2280
2320 CALL HCHAR(12,1,32,32)
2330 GOTO 1270
2340 CALL CLEAR
2350 END