Home » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_Dominic_3.adf » !STARTREK/Level4B
!STARTREK/Level4B
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
Tape/disk: | Home » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_Dominic_3.adf |
Filename: | !STARTREK/Level4B |
Read OK: | ✔ |
File size: | 09AE bytes |
Load address: | FFFFFB41 |
Exec address: | C8D84FFF |
Duplicates
There are 3 duplicate copies of this file in the archive:
- Personal collection » Acorn ADFS disks » Archimedes » Dominic_3B.ADF » !STARTREK/Level4B
- Personal collection » Acorn ADFS disks » Archimedes » Dominic_3.ADF » !STARTREK/Level4B
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_Dominic_3.adf » !STARTREK/Level4B
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_Dominic_3B.adf » !STARTREK/Level4B
File contents
1 REM>"aliens" 2 ON ERROR GOTO 10000 10 MODE 12 20 PROCinit 30 MODE 5 40 PROCscreen 50 REPEAT 60 PROCalien 65 FOR U=1 TO 1000:NEXT U 70 PROCplayer 80 UNTIL (won OR lost)=TRUE 90 IF won=TRUE THEN PROCwin:GOTO 40 100 PROClose 110 END 1000 DEFPROCalien 1010 r%=RND(aliens%) 1020 GCOL0,0:PLOT4,x%(r%),y%(r%):VDU224 1030 x%(r%)=x%(r%)+(RND(3)-2)*64 1040 y%(r%)=y%(r%)-32 1050 IF x%(r%)>1088 THEN x%(r%)=1088 1060 IF x%(r%)<64 THEN x%(r%)=64 1070 IF y%(r%)=64 THEN lost=TRUE 1080 GCOL0,2:PLOT4,x%(r%),y%(r%):VDU224 1090 ENDPROC 2000 DEFPROCplayer 2010 IF INKEY(-99) THEN PROCfire 2020 IF INKEY(-98) AND xp%>0 THEN xp%=xp%-1 2030 IF INKEY(-67) AND xp%<16 THEN xp%=xp%+1 2040 COLOUR1:VDU4:PRINTTAB(xp%,30)" A ":VDU5 2050 ENDPROC 3000 DEFPROCfire 3005 SOUND 0,1,100,3 3010 ym%=64:xm%=64+xp%*64 3020 REPEAT 3030 ym%=ym%+32 3040 IF POINT(xm%+16,ym%)=2 THEN hit=TRUE 3050 GCOL0,1:MOVExm%,ym%:PRINT"!" 3060 GCOL0,0:MOVExm%,ym%:PRINT"!" 3070 UNTIL hit=TRUE OR ym%=896 3080 IF hit=TRUE THEN PROChit 3090 ENDPROC 4000 DEFPROChit 4005 SOUND 0,2,100,3 4010 FOR a%=1 TO aliens% 4020 IF y%(a%)<>ym% OR x%(a%)<>xm% THEN 4050 4024 FOR delay=1 TO 20: 4030 GCOL0,0:MOVE xm%,ym%:VDU224 4032 GCOL0,2:MOVE xm%,ym%:VDU225 4034 FOR delay=1 TO 20:NEXT delay 4036 GCOL0,0:MOVExm%,ym%:VDU225 4040 y%(a%)=-32:a%=aliens% 4050 NEXT a% 4060 alien%=alien%-1:score%=score%+1:hit=FALSE 4070 IF alien%=0 THEN won=TRUE 4080 COLOUR3:VDU4:PRINTTAB(18,2);score%:VDU5 4090 ENDPROC 5000 DEFPROCwin 5010 VDU4 5020 PRINTTAB(1,7)"Well done Earthling" 5030 PRINTTAB(1,8)"this time you win!" 5040 CHAIN"Level5A" 5045 *FX15 5050 PRINTTAB(5,15)"Now prepare for our next attack!" 5070 FOR delay=1 TO 1500:NEXT delay 5080 alien%=aliens%:height%=height%-64:won=FALSE 5090 FOR a%=1 TO aliens% 5100 x%(a%)=a%*128:y%(a%)=height% 5110 NEXT a% 5120 ENDPROC 6000 DEFPROClose 6010 CLS:VDU19,1,14,0,0,0:VDU4 6020 COLOUR1:PRINTTAB(8,5)"The aliens"'" have landed!!" 6060 FOR delay=1 TO 3000:NEXT delay 6070 COLOUR2:PRINTTAB(6,15)"However,you "'"destroyed ";score%;" alien"'" craft" 6110 PRINTTAB(4,28)"Do you wish "'"to fight again"; 6130 *FX15 6140 INPUT A$ 6150 IF LEFT$(A$,1)="Y"ORLEFT$(A$,1)="y" THEN RUN 6155 MODE 15 6160 ENDPROC 7000 DEFPROCscreen 7010 CLS 7020 FOR stars%=1 TO 40 7030 GCOL0,3:PLOT69,64*RND(20),32*RND(32)+32 7040 NEXT stars% 7050 COLOUR3:PRINTTAB(1,2)"Aliens destroyed=";score% 7055 SOUND 1,3,40,255:REM battle siren 7060 ENDPROC 8000 DEFPROCinit 8010 PRINTTAB(0,5)"YOU ARE A LONE SPACE PILOT PROTECTING"'"THE PLANET EARTH"'"IN A FEW MINUTES YOU WILLBE UNDER"'"ATTACK BY ALIENS FROM THE PLANET VARGON."'"YOUR MISSION IS TO STOP ANY"'"VARGON SHIP FROM LANDING." 8020 PRINTTAB(5,15)"'Z' MOVES SHIP LEFT" 8030 PRINTTAB(5,16)"'X' MOVES SHIP RIGHT" 8040 PRINTTAB(5,17)"SPACEBAR FIRES LASER" 8060 lost=FALSE:won=FALSE:score%=0:hit=FALSE:xp%=8:height%=896:aliens%=10:alien%=aliens% 8070 DIM x%(aliens%):DIM y%(aliens%) 8080 FOR a%=1 TO aliens% 8090 x%(a%)=a%*128:y%(a%)=height% 8100 NEXT a% 8110 VDU23,224,36,36,126,255,153,255,90,66:REM alien 8112 VDU23,225,84,1,136,56,157,16,66,16:REM explo 8114 ENVELOPE1,1,0,0,0,0,0,0,126,0,-10,-5,120,120:REM fire 9000 ENDPROC 10000 MODE0:END
�>"aliens" � � � �TPg � 12 �init � 5 ( �screen 2 � < �alien A � U=1 � 1000:� U F �player P � (won � lost)=� Z � won=� � �win:� �Th@ d �lose n � � ��alien � r%=�(aliens%) � �0,0:�4,x%(r%),y%(r%):�224 x%(r%)=x%(r%)+(�(3)-2)*64 y%(r%)=y%(r%)-32 � x%(r%)>1088 � x%(r%)=1088 $ � x%(r%)<64 � x%(r%)=64 . � y%(r%)=64 � lost=� 8 �0,2:�4,x%(r%),y%(r%):�224 B � � ��player � � �(-99) � �fire �! � �(-98) � xp%>0 � xp%=xp%-1 �" � �(-67) � xp%<16 � xp%=xp%+1 � �1:�4:�xp%,30)" A ":�5 � � ��fire � � 0,1,100,3 � ym%=64:xm%=64+xp%*64 � � � ym%=ym%+32 � � �xm%+16,ym%)=2 � hit=� � �0,1:�xm%,ym%:�"!" � �0,0:�xm%,ym%:�"!" � � hit=� � ym%=896 � hit=� � �hit � � ��hit � � 0,2,100,3 � � a%=1 � aliens% �' � y%(a%)<>ym% � x%(a%)<>xm% � �dRO � � delay=1 � 20: � �0,0:� xm%,ym%:�224 � �0,2:� xm%,ym%:�225 � � delay=1 � 20:� delay � �0,0:�xm%,ym%:�225 � y%(a%)=-32:a%=aliens% � � a% �* alien%=alien%-1:score%=score%+1:hit=� � � alien%=0 � won=� � �3:�4:�18,2);score%:�5 � � � ��win � �4 � �1,7)"Well done Earthling" � �1,8)"this time you win!" � �"Level5A" � *FX15 �. �5,15)"Now prepare for our next attack!" � � delay=1 � 1500:� delay �, alien%=aliens%:height%=height%-64:won=� � � a%=1 � aliens% �! x%(a%)=a%*128:y%(a%)=height% � � a% � p ��lose z �:�19,1,14,0,0,0:�4 �+ �1:�8,5)"The aliens"'" have landed!!" � � delay=1 � 3000:� delay �C �2:�6,15)"However,you "'"destroyed ";score%;" alien"'" craft" �, �4,28)"Do you wish "'"to fight again"; � *FX15 � � A$ � �A$,1)="Y"��A$,1)="y" � � � 15 � X ��screen b � l � stars%=1 � 40 v" �0,3:�69,64*�(20),32*�(32)+32 � � stars% �( �3:�1,2)"Aliens destroyed=";score% � � 1,3,40,255:� battle siren � � @ ��init J� �0,5)"YOU ARE A LONE SPACE PILOT PROTECTING"'"THE PLANET EARTH"'"IN A FEW MINUTES YOU WILLBE UNDER"'"ATTACK BY ALIENS FROM THE PLANET VARGON."'"YOUR MISSION IS TO STOP ANY"'"VARGON SHIP FROM LANDING." T! �5,15)"'Z' MOVES SHIP LEFT" ^" �5,16)"'X' MOVES SHIP RIGHT" h" �5,17)"SPACEBAR FIRES LASER" |L lost=�:won=�:score%=0:hit=�:xp%=8:height%=896:aliens%=10:alien%=aliens% � � x%(aliens%):� y%(aliens%) � � a%=1 � aliens% �" x%(a%)=a%*128:y%(a%)=height% � � a% �0 �23,224,36,36,126,255,153,255,90,66:� alien �- �23,225,84,1,136,56,157,16,66,16:� explo �1 �1,1,0,0,0,0,0,0,126,0,-10,-5,120,120:� fire #( � ' �0:� �
00000000 0d 00 01 0f 20 f4 3e 22 61 6c 69 65 6e 73 22 0d |.... .>"aliens".| 00000010 00 02 0f 20 ee 20 85 20 e5 20 8d 54 50 67 0d 00 |... . . . .TPg..| 00000020 0a 09 20 eb 20 31 32 0d 00 14 0a 20 f2 69 6e 69 |.. . 12.... .ini| 00000030 74 0d 00 1e 08 20 eb 20 35 0d 00 28 0c 20 f2 73 |t.... . 5..(. .s| 00000040 63 72 65 65 6e 0d 00 32 06 20 f5 0d 00 3c 0c 20 |creen..2. ...<. | 00000050 20 f2 61 6c 69 65 6e 0d 00 41 15 20 e3 20 55 3d | .alien..A. . U=| 00000060 31 20 b8 20 31 30 30 30 3a ed 20 55 0d 00 46 0d |1 . 1000:. U..F.| 00000070 20 20 f2 70 6c 61 79 65 72 0d 00 50 15 20 fd 20 | .player..P. . | 00000080 28 77 6f 6e 20 84 20 6c 6f 73 74 29 3d b9 0d 00 |(won . lost)=...| 00000090 5a 1a 20 e7 20 77 6f 6e 3d b9 20 8c 20 f2 77 69 |Z. . won=. . .wi| 000000a0 6e 3a e5 20 8d 54 68 40 0d 00 64 0a 20 f2 6c 6f |n:. .Th@..d. .lo| 000000b0 73 65 0d 00 6e 06 20 e0 0d 03 e8 0c 20 dd f2 61 |se..n. ..... ..a| 000000c0 6c 69 65 6e 0d 03 f2 13 20 20 72 25 3d b3 28 61 |lien.... r%=.(a| 000000d0 6c 69 65 6e 73 25 29 0d 03 fc 20 20 20 e6 30 2c |liens%)... .0,| 000000e0 30 3a f0 34 2c 78 25 28 72 25 29 2c 79 25 28 72 |0:.4,x%(r%),y%(r| 000000f0 25 29 3a ef 32 32 34 0d 04 06 1e 20 78 25 28 72 |%):.224.... x%(r| 00000100 25 29 3d 78 25 28 72 25 29 2b 28 b3 28 33 29 2d |%)=x%(r%)+(.(3)-| 00000110 32 29 2a 36 34 0d 04 10 15 20 79 25 28 72 25 29 |2)*64.... y%(r%)| 00000120 3d 79 25 28 72 25 29 2d 33 32 0d 04 1a 20 20 e7 |=y%(r%)-32... .| 00000130 20 78 25 28 72 25 29 3e 31 30 38 38 20 8c 20 78 | x%(r%)>1088 . x| 00000140 25 28 72 25 29 3d 31 30 38 38 0d 04 24 1c 20 e7 |%(r%)=1088..$. .| 00000150 20 78 25 28 72 25 29 3c 36 34 20 8c 20 78 25 28 | x%(r%)<64 . x%(| 00000160 72 25 29 3d 36 34 0d 04 2e 19 20 e7 20 79 25 28 |r%)=64.... . y%(| 00000170 72 25 29 3d 36 34 20 8c 20 6c 6f 73 74 3d b9 0d |r%)=64 . lost=..| 00000180 04 38 1f 20 e6 30 2c 32 3a f0 34 2c 78 25 28 72 |.8. .0,2:.4,x%(r| 00000190 25 29 2c 79 25 28 72 25 29 3a ef 32 32 34 0d 04 |%),y%(r%):.224..| 000001a0 42 06 20 e1 0d 07 d0 0d 20 dd f2 70 6c 61 79 65 |B. ..... ..playe| 000001b0 72 0d 07 da 15 20 e7 20 a6 28 2d 39 39 29 20 8c |r.... . .(-99) .| 000001c0 20 f2 66 69 72 65 0d 07 e4 21 20 e7 20 a6 28 2d | .fire...! . .(-| 000001d0 39 38 29 20 80 20 78 70 25 3e 30 20 8c 20 78 70 |98) . xp%>0 . xp| 000001e0 25 3d 78 70 25 2d 31 0d 07 ee 22 20 e7 20 a6 28 |%=xp%-1..." . .(| 000001f0 2d 36 37 29 20 80 20 78 70 25 3c 31 36 20 8c 20 |-67) . xp%<16 . | 00000200 78 70 25 3d 78 70 25 2b 31 0d 07 f8 1c 20 fb 31 |xp%=xp%+1.... .1| 00000210 3a ef 34 3a f1 8a 78 70 25 2c 33 30 29 22 20 41 |:.4:..xp%,30)" A| 00000220 20 22 3a ef 35 0d 08 02 06 20 e1 0d 0b b8 0b 20 | ":.5.... ..... | 00000230 dd f2 66 69 72 65 0d 0b bd 10 20 d4 20 30 2c 31 |..fire.... . 0,1| 00000240 2c 31 30 30 2c 33 0d 0b c2 19 20 79 6d 25 3d 36 |,100,3.... ym%=6| 00000250 34 3a 78 6d 25 3d 36 34 2b 78 70 25 2a 36 34 0d |4:xm%=64+xp%*64.| 00000260 0b cc 06 20 f5 0d 0b d6 0f 20 79 6d 25 3d 79 6d |... ..... ym%=ym| 00000270 25 2b 33 32 0d 0b e0 1d 20 e7 20 b0 78 6d 25 2b |%+32.... . .xm%+| 00000280 31 36 2c 79 6d 25 29 3d 32 20 8c 20 68 69 74 3d |16,ym%)=2 . hit=| 00000290 b9 0d 0b ea 17 20 e6 30 2c 31 3a ec 78 6d 25 2c |..... .0,1:.xm%,| 000002a0 79 6d 25 3a f1 22 21 22 0d 0b f4 17 20 e6 30 2c |ym%:."!".... .0,| 000002b0 30 3a ec 78 6d 25 2c 79 6d 25 3a f1 22 21 22 0d |0:.xm%,ym%:."!".| 000002c0 0b fe 16 20 fd 20 68 69 74 3d b9 20 84 20 79 6d |... . hit=. . ym| 000002d0 25 3d 38 39 36 0d 0c 08 13 20 e7 20 68 69 74 3d |%=896.... . hit=| 000002e0 b9 20 8c 20 f2 68 69 74 0d 0c 12 06 20 e1 0d 0f |. . .hit.... ...| 000002f0 a0 0a 20 dd f2 68 69 74 0d 0f a5 10 20 d4 20 30 |.. ..hit.... . 0| 00000300 2c 32 2c 31 30 30 2c 33 0d 0f aa 15 20 e3 20 61 |,2,100,3.... . a| 00000310 25 3d 31 20 b8 20 61 6c 69 65 6e 73 25 0d 0f b4 |%=1 . aliens%...| 00000320 27 20 e7 20 79 25 28 61 25 29 3c 3e 79 6d 25 20 |' . y%(a%)<>ym% | 00000330 84 20 78 25 28 61 25 29 3c 3e 78 6d 25 20 8c 20 |. x%(a%)<>xm% . | 00000340 8d 64 52 4f 0d 0f b8 14 20 e3 20 64 65 6c 61 79 |.dRO.... . delay| 00000350 3d 31 20 b8 20 32 30 3a 0d 0f be 18 20 e6 30 2c |=1 . 20:.... .0,| 00000360 30 3a ec 20 78 6d 25 2c 79 6d 25 3a ef 32 32 34 |0:. xm%,ym%:.224| 00000370 0d 0f c0 18 20 e6 30 2c 32 3a ec 20 78 6d 25 2c |.... .0,2:. xm%,| 00000380 79 6d 25 3a ef 32 32 35 0d 0f c2 1b 20 e3 20 64 |ym%:.225.... . d| 00000390 65 6c 61 79 3d 31 20 b8 20 32 30 3a ed 20 64 65 |elay=1 . 20:. de| 000003a0 6c 61 79 0d 0f c4 17 20 e6 30 2c 30 3a ec 78 6d |lay.... .0,0:.xm| 000003b0 25 2c 79 6d 25 3a ef 32 32 35 0d 0f c8 1a 20 79 |%,ym%:.225.... y| 000003c0 25 28 61 25 29 3d 2d 33 32 3a 61 25 3d 61 6c 69 |%(a%)=-32:a%=ali| 000003d0 65 6e 73 25 0d 0f d2 09 20 ed 20 61 25 0d 0f dc |ens%.... . a%...| 000003e0 2a 20 61 6c 69 65 6e 25 3d 61 6c 69 65 6e 25 2d |* alien%=alien%-| 000003f0 31 3a 73 63 6f 72 65 25 3d 73 63 6f 72 65 25 2b |1:score%=score%+| 00000400 31 3a 68 69 74 3d a3 0d 0f e6 17 20 e7 20 61 6c |1:hit=..... . al| 00000410 69 65 6e 25 3d 30 20 8c 20 77 6f 6e 3d b9 0d 0f |ien%=0 . won=...| 00000420 f0 1c 20 fb 33 3a ef 34 3a f1 8a 31 38 2c 32 29 |.. .3:.4:..18,2)| 00000430 3b 73 63 6f 72 65 25 3a ef 35 0d 0f fa 06 20 e1 |;score%:.5.... .| 00000440 0d 13 88 0a 20 dd f2 77 69 6e 0d 13 92 07 20 ef |.... ..win.... .| 00000450 34 0d 13 9c 20 20 f1 8a 31 2c 37 29 22 57 65 6c |4... ..1,7)"Wel| 00000460 6c 20 64 6f 6e 65 20 45 61 72 74 68 6c 69 6e 67 |l done Earthling| 00000470 22 0d 13 a6 1f 20 f1 8a 31 2c 38 29 22 74 68 69 |".... ..1,8)"thi| 00000480 73 20 74 69 6d 65 20 79 6f 75 20 77 69 6e 21 22 |s time you win!"| 00000490 0d 13 b0 0f 20 d7 22 4c 65 76 65 6c 35 41 22 0d |.... ."Level5A".| 000004a0 13 b5 0a 20 2a 46 58 31 35 0d 13 ba 2e 20 f1 8a |... *FX15.... ..| 000004b0 35 2c 31 35 29 22 4e 6f 77 20 70 72 65 70 61 72 |5,15)"Now prepar| 000004c0 65 20 66 6f 72 20 6f 75 72 20 6e 65 78 74 20 61 |e for our next a| 000004d0 74 74 61 63 6b 21 22 0d 13 ce 1d 20 e3 20 64 65 |ttack!".... . de| 000004e0 6c 61 79 3d 31 20 b8 20 31 35 30 30 3a ed 20 64 |lay=1 . 1500:. d| 000004f0 65 6c 61 79 0d 13 d8 2c 20 61 6c 69 65 6e 25 3d |elay..., alien%=| 00000500 61 6c 69 65 6e 73 25 3a 68 65 69 67 68 74 25 3d |aliens%:height%=| 00000510 68 65 69 67 68 74 25 2d 36 34 3a 77 6f 6e 3d a3 |height%-64:won=.| 00000520 0d 13 e2 15 20 e3 20 61 25 3d 31 20 b8 20 61 6c |.... . a%=1 . al| 00000530 69 65 6e 73 25 0d 13 ec 21 20 78 25 28 61 25 29 |iens%...! x%(a%)| 00000540 3d 61 25 2a 31 32 38 3a 79 25 28 61 25 29 3d 68 |=a%*128:y%(a%)=h| 00000550 65 69 67 68 74 25 0d 13 f6 09 20 ed 20 61 25 0d |eight%.... . a%.| 00000560 14 00 06 20 e1 0d 17 70 0b 20 dd f2 6c 6f 73 65 |... ...p. ..lose| 00000570 0d 17 7a 18 20 db 3a ef 31 39 2c 31 2c 31 34 2c |..z. .:.19,1,14,| 00000580 30 2c 30 2c 30 3a ef 34 0d 17 84 2b 20 fb 31 3a |0,0,0:.4...+ .1:| 00000590 f1 8a 38 2c 35 29 22 54 68 65 20 61 6c 69 65 6e |..8,5)"The alien| 000005a0 73 22 27 22 20 68 61 76 65 20 6c 61 6e 64 65 64 |s"'" have landed| 000005b0 21 21 22 0d 17 ac 1d 20 e3 20 64 65 6c 61 79 3d |!!".... . delay=| 000005c0 31 20 b8 20 33 30 30 30 3a ed 20 64 65 6c 61 79 |1 . 3000:. delay| 000005d0 0d 17 b6 43 20 fb 32 3a f1 8a 36 2c 31 35 29 22 |...C .2:..6,15)"| 000005e0 48 6f 77 65 76 65 72 2c 79 6f 75 20 22 27 22 64 |However,you "'"d| 000005f0 65 73 74 72 6f 79 65 64 20 22 3b 73 63 6f 72 65 |estroyed ";score| 00000600 25 3b 22 20 61 6c 69 65 6e 22 27 22 20 63 72 61 |%;" alien"'" cra| 00000610 66 74 22 0d 17 de 2c 20 f1 8a 34 2c 32 38 29 22 |ft"..., ..4,28)"| 00000620 44 6f 20 79 6f 75 20 77 69 73 68 20 22 27 22 74 |Do you wish "'"t| 00000630 6f 20 66 69 67 68 74 20 61 67 61 69 6e 22 3b 0d |o fight again";.| 00000640 17 f2 0a 20 2a 46 58 31 35 0d 17 fc 09 20 e8 20 |... *FX15.... . | 00000650 41 24 0d 18 06 20 20 e7 20 c0 41 24 2c 31 29 3d |A$... . .A$,1)=| 00000660 22 59 22 84 c0 41 24 2c 31 29 3d 22 79 22 20 8c |"Y"..A$,1)="y" .| 00000670 20 f9 0d 18 0b 09 20 eb 20 31 35 0d 18 10 06 20 | ..... . 15.... | 00000680 e1 0d 1b 58 0d 20 dd f2 73 63 72 65 65 6e 0d 1b |...X. ..screen..| 00000690 62 06 20 db 0d 1b 6c 14 20 e3 20 73 74 61 72 73 |b. ...l. . stars| 000006a0 25 3d 31 20 b8 20 34 30 0d 1b 76 22 20 e6 30 2c |%=1 . 40..v" .0,| 000006b0 33 3a f0 36 39 2c 36 34 2a b3 28 32 30 29 2c 33 |3:.69,64*.(20),3| 000006c0 32 2a b3 28 33 32 29 2b 33 32 0d 1b 80 0d 20 ed |2*.(32)+32.... .| 000006d0 20 73 74 61 72 73 25 0d 1b 8a 28 20 fb 33 3a f1 | stars%...( .3:.| 000006e0 8a 31 2c 32 29 22 41 6c 69 65 6e 73 20 64 65 73 |.1,2)"Aliens des| 000006f0 74 72 6f 79 65 64 3d 22 3b 73 63 6f 72 65 25 0d |troyed=";score%.| 00000700 1b 8f 20 20 d4 20 31 2c 33 2c 34 30 2c 32 35 35 |.. . 1,3,40,255| 00000710 3a f4 20 62 61 74 74 6c 65 20 73 69 72 65 6e 0d |:. battle siren.| 00000720 1b 94 06 20 e1 0d 1f 40 0b 20 dd f2 69 6e 69 74 |... ...@. ..init| 00000730 0d 1f 4a ce 20 f1 8a 30 2c 35 29 22 59 4f 55 20 |..J. ..0,5)"YOU | 00000740 41 52 45 20 41 20 4c 4f 4e 45 20 53 50 41 43 45 |ARE A LONE SPACE| 00000750 20 50 49 4c 4f 54 20 50 52 4f 54 45 43 54 49 4e | PILOT PROTECTIN| 00000760 47 22 27 22 54 48 45 20 50 4c 41 4e 45 54 20 45 |G"'"THE PLANET E| 00000770 41 52 54 48 22 27 22 49 4e 20 41 20 46 45 57 20 |ARTH"'"IN A FEW | 00000780 4d 49 4e 55 54 45 53 20 59 4f 55 20 57 49 4c 4c |MINUTES YOU WILL| 00000790 42 45 20 55 4e 44 45 52 22 27 22 41 54 54 41 43 |BE UNDER"'"ATTAC| 000007a0 4b 20 42 59 20 41 4c 49 45 4e 53 20 46 52 4f 4d |K BY ALIENS FROM| 000007b0 20 54 48 45 20 50 4c 41 4e 45 54 20 56 41 52 47 | THE PLANET VARG| 000007c0 4f 4e 2e 22 27 22 59 4f 55 52 20 4d 49 53 53 49 |ON."'"YOUR MISSI| 000007d0 4f 4e 20 49 53 20 54 4f 20 53 54 4f 50 20 41 4e |ON IS TO STOP AN| 000007e0 59 22 27 22 56 41 52 47 4f 4e 20 53 48 49 50 20 |Y"'"VARGON SHIP | 000007f0 46 52 4f 4d 20 4c 41 4e 44 49 4e 47 2e 22 0d 1f |FROM LANDING."..| 00000800 54 21 20 f1 8a 35 2c 31 35 29 22 27 5a 27 20 4d |T! ..5,15)"'Z' M| 00000810 4f 56 45 53 20 53 48 49 50 20 4c 45 46 54 22 0d |OVES SHIP LEFT".| 00000820 1f 5e 22 20 f1 8a 35 2c 31 36 29 22 27 58 27 20 |.^" ..5,16)"'X' | 00000830 4d 4f 56 45 53 20 53 48 49 50 20 52 49 47 48 54 |MOVES SHIP RIGHT| 00000840 22 0d 1f 68 22 20 f1 8a 35 2c 31 37 29 22 53 50 |"..h" ..5,17)"SP| 00000850 41 43 45 42 41 52 20 46 49 52 45 53 20 4c 41 53 |ACEBAR FIRES LAS| 00000860 45 52 22 0d 1f 7c 4c 20 6c 6f 73 74 3d a3 3a 77 |ER"..|L lost=.:w| 00000870 6f 6e 3d a3 3a 73 63 6f 72 65 25 3d 30 3a 68 69 |on=.:score%=0:hi| 00000880 74 3d a3 3a 78 70 25 3d 38 3a 68 65 69 67 68 74 |t=.:xp%=8:height| 00000890 25 3d 38 39 36 3a 61 6c 69 65 6e 73 25 3d 31 30 |%=896:aliens%=10| 000008a0 3a 61 6c 69 65 6e 25 3d 61 6c 69 65 6e 73 25 0d |:alien%=aliens%.| 000008b0 1f 86 20 20 de 20 78 25 28 61 6c 69 65 6e 73 25 |.. . x%(aliens%| 000008c0 29 3a de 20 79 25 28 61 6c 69 65 6e 73 25 29 0d |):. y%(aliens%).| 000008d0 1f 90 15 20 e3 20 61 25 3d 31 20 b8 20 61 6c 69 |... . a%=1 . ali| 000008e0 65 6e 73 25 0d 1f 9a 22 20 20 78 25 28 61 25 29 |ens%..." x%(a%)| 000008f0 3d 61 25 2a 31 32 38 3a 79 25 28 61 25 29 3d 68 |=a%*128:y%(a%)=h| 00000900 65 69 67 68 74 25 0d 1f a4 09 20 ed 20 61 25 0d |eight%.... . a%.| 00000910 1f ae 30 20 ef 32 33 2c 32 32 34 2c 33 36 2c 33 |..0 .23,224,36,3| 00000920 36 2c 31 32 36 2c 32 35 35 2c 31 35 33 2c 32 35 |6,126,255,153,25| 00000930 35 2c 39 30 2c 36 36 3a f4 20 61 6c 69 65 6e 0d |5,90,66:. alien.| 00000940 1f b0 2d 20 ef 32 33 2c 32 32 35 2c 38 34 2c 31 |..- .23,225,84,1| 00000950 2c 31 33 36 2c 35 36 2c 31 35 37 2c 31 36 2c 36 |,136,56,157,16,6| 00000960 36 2c 31 36 3a f4 20 65 78 70 6c 6f 0d 1f b2 31 |6,16:. explo...1| 00000970 20 e2 31 2c 31 2c 30 2c 30 2c 30 2c 30 2c 30 2c | .1,1,0,0,0,0,0,| 00000980 30 2c 31 32 36 2c 30 2c 2d 31 30 2c 2d 35 2c 31 |0,126,0,-10,-5,1| 00000990 32 30 2c 31 32 30 3a f4 20 66 69 72 65 0d 23 28 |20,120:. fire.#(| 000009a0 06 20 e1 0d 27 10 09 20 eb 30 3a e0 0d ff |. ..'.. .0:...| 000009ae