10 CALL CLEAR
20 CALL SCREEN(2)
30 CALL CHAR(128,"30082425599A100C")
40 CALL COLOR(1,5,2)
50 CALL COLOR(2,10,2)
60 CALL COLOR(3,6,2)
70 CALL COLOR(4,6,2)
80 FOR I=5 TO 8
90 CALL COLOR(I,14,2)
100 NEXT I
110 CALL COLOR(9,3,2)
120 CALL COLOR(10,5,2)
130 CALL COLOR(11,5,2)
140 CALL COLOR(12,16,2)
150 CALL COLOR(13,7,2)
160 CALL COLOR(16,10,2)
170 A$="      TEXAS"
180 P=4
190 GOSUB 290
200 A$="          INVADERS"
210 P=6
220 GOSUB 290
230 A$="              REVENGE"
240 P=8
250 GOSUB 290
260 FOR I=1 TO 400
270 NEXT I
280 GOTO 390
290 FOR I=1 TO LEN(A$)
300 CALL HCHAR(P,I,ASC(SEG$(A$,I,1)))
310 NEXT I
320 FOR I=1 TO 30 STEP 3
330 CALL SOUND(-1,110,I,220,I)
340 CALL HCHAR(20,I,128)
350 CALL HCHAR(20,I,32)
360 NEXT I
370 RETURN
380 SC=0
390 X=12
400 R=16
410 CALL CHAR(33,"1C3E63F8F8633E1C")
420 CALL CHAR(96,"000000FFFF")
430 CALL CHAR(97,"0000000000FF")
440 CALL CHAR(98,"0000FF")
450 CALL CHAR(104,"070F1F3D30C")
460 CALL CHAR(105,"0000C0303D1F0F07")
470 CALL CHAR(106,"C070F0F8FC7E3F1F")
480 CALL CHAR(107,"1F3F7EFCF8F0E")
490 CALL CHAR(108,"1F0F0707070F0703")
500 CALL CHAR(109,"03070F0707070F1F")
510 CALL CHAR(110,"80C0F0F1FCFFFFFF")
520 CALL CHAR(111,"FFFFFFFCF1F0C08")
530 CALL CHAR(112,"FF7F3E1C1C3E7FFF")
540 CALL CHAR(120,"0000001818")
550 CALL CHAR(121,"00003C24243C")
560 CALL CHAR(122,"007E424242427E")
570 CALL CHAR(123,"FF818181818181FF")
580 CALL CHAR(152,"F80C0E0F0F0E0CF8")
590 A$=" DO YOU WANT INSTRUCTIONS[Y/N]?"
600 FOR I=1 TO LEN(A$)
610 CALL HCHAR(12,I,ASC(SEG$(A$,I,1)))
620 NEXT I
630 CALL KEY(0,K,S)
640 IF S=0 THEN 630
650 IF K=ASC("Y")THEN 1890
660 IF K=ASC("N")THEN 670 ELSE 630
670 CALL CLEAR
680 CALL HCHAR(1,8,83)
690 CALL HCHAR(1,9,67)
700 CALL HCHAR(1,10,79)
710 CALL HCHAR(1,11,82)
720 CALL HCHAR(1,12,69)
730 CALL VCHAR(2,1,152,23)
740 CALL HCHAR(10,30,104)
750 CALL HCHAR(10,31,106)
760 CALL HCHAR(11,31,108)
770 CALL HCHAR(11,32,110)
780 CALL HCHAR(16,30,105)
790 CALL HCHAR(16,31,107)
800 CALL HCHAR(15,31,109)
810 CALL HCHAR(15,32,111)
820 CALL VCHAR(12,32,112,3)
830 A=28
840 C=28
850 F=25
860 RANDOMIZE
870 CALL HCHAR(R,2,33)
880 CALL KEY(0,K,S)
890 CALL HCHAR(X,C,40)
900 CALL HCHAR(X,C,32)
910 X=INT(RND*24)+1
920 IF X=12 THEN 1290
930 IF X=13 THEN 1380
940 IF X=22 THEN 1620
950 IF X<1 THEN 910
960 CALL HCHAR(X,C,128)
970 CALL SOUND(-1,X+8000,0,7000,0)
980 IF S=0 THEN 880
990 IF K=ASC("E")THEN 1080
1000 IF K=ASC("X")THEN 1130
1010 IF K=ASC(".")THEN 1020
1020 CALL HCHAR(R,3,96,F)
1030 CALL SOUND(-10,-1,0)
1040 CALL HCHAR(R,3,32,F)
1050 CALL GCHAR(R,A,S)
1060 IF S<>32 THEN 1180
1070 GOTO 880
1080 IF R=3 THEN 880
1090 R=R-1
1100 CALL HCHAR(R,2,33)
1110 CALL HCHAR(R+1,2,32)
1120 GOTO 880
1130 IF R=23 THEN 880
1140 R=R+1
1150 CALL HCHAR(R,2,33)
1160 CALL HCHAR(R-1,2,32)
1170 GOTO 880
1180 FOR I=3 TO 16
1190 CALL COLOR(13,I,2)
1200 CALL SOUND(-200,110+I,I)
1210 NEXT I
1220 SC=SC+10
1230 CALL HCHAR(X,C,32)
1240 S$=" "&STR$(SC)
1250 FOR I=1 TO LEN(S$)
1260 CALL HCHAR(1,I,ASC(SEG$(S$,I,1)))
1270 NEXT I
1280 GOTO 830
1290 C=C-2
1300 F=F-2
1310 A=A-2
1320 IF C=2 THEN 1340
1330 GOTO 880
1340 FOR I=1100 TO 110 STEP-110
1350 CALL SOUND(-200,I,0)
1360 NEXT I
1370 GOTO 1710
1380 CALL HCHAR(10,3,97,27)
1390 CALL SOUND(-200,110,0)
1400 CALL SOUND(-200,113,0)
1410 CALL SOUND(-10,120,0)
1420 CALL GCHAR(10,2,S)
1430 CALL HCHAR(10,3,32,27)
1440 IF S<>32 THEN 1460
1450 GOTO 880
1460 FOR I=3 TO 16
1470 CALL COLOR(1,I,2)
1480 CALL SOUND(-90,900+I,0)
1490 NEXT I
1500 FOR I=120 TO 123
1510 CALL HCHAR(R,2,I)
1520 FOR D=1 TO 20
1530 NEXT D
1540 NEXT I
1550 CALL HCHAR(R,2,32)
1560 FOR I=1100 TO 110 STEP-110
1570 CALL SOUND(-200,I,0)
1580 NEXT I
1590 FOR I=1 TO 100
1600 NEXT I
1610 GOTO 1710
1620 CALL HCHAR(16,3,98,27)
1630 CALL SOUND(-200,300,0)
1640 CALL SOUND(-200,305,0)
1650 CALL SOUND(-90,310,0)
1660 CALL GCHAR(16,2,S)
1670 CALL HCHAR(16,3,32,27)
1680 IF S<>32 THEN 1460
1690 GOTO 880
1710 CALL CLEAR
1720 SC=0
1730 A$=" DO YOU WANT ANOTHER GAME[Y/N]"
1740 FOR I=1 TO LEN(A$)
1750 CALL HCHAR(12,I,ASC(SEG$(A$,I,1)))
1760 NEXT I
1770 CALL KEY(0,K,S)
1780 IF S=0 THEN 1770
1790 IF K=ASC("Y")THEN 670
1800 IF K=ASC("N")THEN 1810 ELSE 1770
1810 CALL CLEAR
1820 FOR N=1 TO 3
1830 FOR I=0 TO 4
1840 CALL SOUND(-200,110,I,110+N,I)
1850 CALL SOUND(-9,110,I,220,N)
1860 NEXT I
1870 NEXT N
1880 END
1890 CALL CLEAR
1900 I$="     I N S T R U C T I O N S"
1910 P=1
1920 GOSUB 2060
1930 I$="        USE E TO MOVE UP"
1940 P=5
1950 GOSUB 2060
1960 I$="       USE X TO MOVE DOWN"
1970 P=7
1980 GOSUB 2060
1990 I$=" USE THE FULL STOP KEY TO FIRE"
2000 P=10
2010 GOSUB 2060
2020 FOR I=1 TO 200
2030 NEXT I
2040 CALL CLEAR
2050 GOTO 670
2060 FOR I=1 TO LEN(I$)
2070 CALL HCHAR(P,I,ASC(SEG$(I$,I,1)))
2080 NEXT I
2090 CALL SOUND(-1,5000,0)
2100 RETURN