Home » Personal collection » Acorn ADFS disks » Archimedes » Dominic_3B.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 » Archimedes » Dominic_3B.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:

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
!STARTREK/Level4B.m0
!STARTREK/Level4B.m1
!STARTREK/Level4B.m2
!STARTREK/Level4B.m4
!STARTREK/Level4B.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .