Home » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_Dominic_3.adf » !STARTREK/Level3A

!STARTREK/Level3A

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/Level3A
Read OK:
File size: 042B bytes
Load address: FFFFFB44
Exec address: AA49FC8A
Duplicates

There are 3 duplicate copies of this file in the archive:

File contents
   10 MODE 0:FORR=0TO33:PRINT:NEXT
   20 PRINT"        Your ship has safely passed through the asteroid belt. Well Done!"
   30 PROCLET
   40 PRINT"                You must land your ship, now- A hazardous task!"
   50 PROCLET
   60 PRINT"        There is only one good thing about this section . . ."
   70 PROCLET
   80 PRINT" If you fail in missing the planet, you can come back to another attemp!"
   90 PROCLET
  100 PRINT"    But if you hit the planet too hard, your under-carrage will collapse!"
  110 PROCLET
  120 PRINT"     But when this happens, the planets inhabitants will fix your ship!"
  130 PROCLET
  140 PRINT"          You may think your task is complete, but it is not."
  150 PROCLET
  160 PRINT"The workers will blast you back into space, and not understand that you want to"
  170 PROCLET
  180 PRINT"                                   Be on their planet."
  190 PROCLET:PRINT:PROCLET:PRINT:PROCLET
  200 PRINT"Here are the keys to use on your hazardous decent:"
  210 PROCLET:PRINT:PROCLET
  220 PRINT"A. . . . . . . . . . Speed up decent."
  230 PROCLET
  240 PRINT"D. . . . . . . . . . Slow down decent."
  250 PROCLET
 1180 FORR=0TO30:PRINT:PROCLET:NEXT
 1190 CHAIN"Level3B"
 1200 DEFPROCLET
 1210 FORD=0TO9:FORF=0TO1000:NEXT:VDU19,1,RND(7):NEXT
 1220 ENDPROC

 � 0:�R=0�33:�:�
Q �"        Your ship has safely passed through the asteroid belt. Well Done!"
	 �LET
(G �"                You must land your ship, now- A hazardous task!"
2	 �LET
<E �"        There is only one good thing about this section . . ."
F	 �LET
PP �" If you fail in missing the planet, you can come back to another attemp!"
Z	 �LET
dQ �"    But if you hit the planet too hard, your under-carrage will collapse!"
n	 �LET
xO �"     But when this happens, the planets inhabitants will fix your ship!"
�	 �LET
�E �"          You may think your task is complete, but it is not."
�	 �LET
�W �"The workers will blast you back into space, and not understand that you want to"
�	 �LET
�> �"                                   Be on their planet."
� �LET:�:�LET:�:�LET
�: �"Here are the keys to use on your hazardous decent:"
� �LET:�:�LET
�- �"A. . . . . . . . . . Speed up decent."
�	 �LET
�. �"D. . . . . . . . . . Slow down decent."
�	 �LET
� �R=0�30:�:�LET:�
� �"Level3B"
�
 ��LET
�$ �D=0�9:�F=0�1000:�:�19,1,�(7):�
� �
�
00000000  0d 00 0a 14 20 eb 20 30  3a e3 52 3d 30 b8 33 33  |.... . 0:.R=0.33|
00000010  3a f1 3a ed 0d 00 14 51  20 f1 22 20 20 20 20 20  |:.:....Q ."     |
00000020  20 20 20 59 6f 75 72 20  73 68 69 70 20 68 61 73  |   Your ship has|
00000030  20 73 61 66 65 6c 79 20  70 61 73 73 65 64 20 74  | safely passed t|
00000040  68 72 6f 75 67 68 20 74  68 65 20 61 73 74 65 72  |hrough the aster|
00000050  6f 69 64 20 62 65 6c 74  2e 20 57 65 6c 6c 20 44  |oid belt. Well D|
00000060  6f 6e 65 21 22 0d 00 1e  09 20 f2 4c 45 54 0d 00  |one!".... .LET..|
00000070  28 47 20 f1 22 20 20 20  20 20 20 20 20 20 20 20  |(G ."           |
00000080  20 20 20 20 20 59 6f 75  20 6d 75 73 74 20 6c 61  |     You must la|
00000090  6e 64 20 79 6f 75 72 20  73 68 69 70 2c 20 6e 6f  |nd your ship, no|
000000a0  77 2d 20 41 20 68 61 7a  61 72 64 6f 75 73 20 74  |w- A hazardous t|
000000b0  61 73 6b 21 22 0d 00 32  09 20 f2 4c 45 54 0d 00  |ask!"..2. .LET..|
000000c0  3c 45 20 f1 22 20 20 20  20 20 20 20 20 54 68 65  |<E ."        The|
000000d0  72 65 20 69 73 20 6f 6e  6c 79 20 6f 6e 65 20 67  |re is only one g|
000000e0  6f 6f 64 20 74 68 69 6e  67 20 61 62 6f 75 74 20  |ood thing about |
000000f0  74 68 69 73 20 73 65 63  74 69 6f 6e 20 2e 20 2e  |this section . .|
00000100  20 2e 22 0d 00 46 09 20  f2 4c 45 54 0d 00 50 50  | ."..F. .LET..PP|
00000110  20 f1 22 20 49 66 20 79  6f 75 20 66 61 69 6c 20  | ." If you fail |
00000120  69 6e 20 6d 69 73 73 69  6e 67 20 74 68 65 20 70  |in missing the p|
00000130  6c 61 6e 65 74 2c 20 79  6f 75 20 63 61 6e 20 63  |lanet, you can c|
00000140  6f 6d 65 20 62 61 63 6b  20 74 6f 20 61 6e 6f 74  |ome back to anot|
00000150  68 65 72 20 61 74 74 65  6d 70 21 22 0d 00 5a 09  |her attemp!"..Z.|
00000160  20 f2 4c 45 54 0d 00 64  51 20 f1 22 20 20 20 20  | .LET..dQ ."    |
00000170  42 75 74 20 69 66 20 79  6f 75 20 68 69 74 20 74  |But if you hit t|
00000180  68 65 20 70 6c 61 6e 65  74 20 74 6f 6f 20 68 61  |he planet too ha|
00000190  72 64 2c 20 79 6f 75 72  20 75 6e 64 65 72 2d 63  |rd, your under-c|
000001a0  61 72 72 61 67 65 20 77  69 6c 6c 20 63 6f 6c 6c  |arrage will coll|
000001b0  61 70 73 65 21 22 0d 00  6e 09 20 f2 4c 45 54 0d  |apse!"..n. .LET.|
000001c0  00 78 4f 20 f1 22 20 20  20 20 20 42 75 74 20 77  |.xO ."     But w|
000001d0  68 65 6e 20 74 68 69 73  20 68 61 70 70 65 6e 73  |hen this happens|
000001e0  2c 20 74 68 65 20 70 6c  61 6e 65 74 73 20 69 6e  |, the planets in|
000001f0  68 61 62 69 74 61 6e 74  73 20 77 69 6c 6c 20 66  |habitants will f|
00000200  69 78 20 79 6f 75 72 20  73 68 69 70 21 22 0d 00  |ix your ship!"..|
00000210  82 09 20 f2 4c 45 54 0d  00 8c 45 20 f1 22 20 20  |.. .LET...E ."  |
00000220  20 20 20 20 20 20 20 20  59 6f 75 20 6d 61 79 20  |        You may |
00000230  74 68 69 6e 6b 20 79 6f  75 72 20 74 61 73 6b 20  |think your task |
00000240  69 73 20 63 6f 6d 70 6c  65 74 65 2c 20 62 75 74  |is complete, but|
00000250  20 69 74 20 69 73 20 6e  6f 74 2e 22 0d 00 96 09  | it is not."....|
00000260  20 f2 4c 45 54 0d 00 a0  57 20 f1 22 54 68 65 20  | .LET...W ."The |
00000270  77 6f 72 6b 65 72 73 20  77 69 6c 6c 20 62 6c 61  |workers will bla|
00000280  73 74 20 79 6f 75 20 62  61 63 6b 20 69 6e 74 6f  |st you back into|
00000290  20 73 70 61 63 65 2c 20  61 6e 64 20 6e 6f 74 20  | space, and not |
000002a0  75 6e 64 65 72 73 74 61  6e 64 20 74 68 61 74 20  |understand that |
000002b0  79 6f 75 20 77 61 6e 74  20 74 6f 22 0d 00 aa 09  |you want to"....|
000002c0  20 f2 4c 45 54 0d 00 b4  3e 20 f1 22 20 20 20 20  | .LET...> ."    |
000002d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000002e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 42  |               B|
000002f0  65 20 6f 6e 20 74 68 65  69 72 20 70 6c 61 6e 65  |e on their plane|
00000300  74 2e 22 0d 00 be 17 20  f2 4c 45 54 3a f1 3a f2  |t.".... .LET:.:.|
00000310  4c 45 54 3a f1 3a f2 4c  45 54 0d 00 c8 3a 20 f1  |LET:.:.LET...: .|
00000320  22 48 65 72 65 20 61 72  65 20 74 68 65 20 6b 65  |"Here are the ke|
00000330  79 73 20 74 6f 20 75 73  65 20 6f 6e 20 79 6f 75  |ys to use on you|
00000340  72 20 68 61 7a 61 72 64  6f 75 73 20 64 65 63 65  |r hazardous dece|
00000350  6e 74 3a 22 0d 00 d2 10  20 f2 4c 45 54 3a f1 3a  |nt:".... .LET:.:|
00000360  f2 4c 45 54 0d 00 dc 2d  20 f1 22 41 2e 20 2e 20  |.LET...- ."A. . |
00000370  2e 20 2e 20 2e 20 2e 20  2e 20 2e 20 2e 20 2e 20  |. . . . . . . . |
00000380  53 70 65 65 64 20 75 70  20 64 65 63 65 6e 74 2e  |Speed up decent.|
00000390  22 0d 00 e6 09 20 f2 4c  45 54 0d 00 f0 2e 20 f1  |".... .LET.... .|
000003a0  22 44 2e 20 2e 20 2e 20  2e 20 2e 20 2e 20 2e 20  |"D. . . . . . . |
000003b0  2e 20 2e 20 2e 20 53 6c  6f 77 20 64 6f 77 6e 20  |. . . Slow down |
000003c0  64 65 63 65 6e 74 2e 22  0d 00 fa 09 20 f2 4c 45  |decent.".... .LE|
000003d0  54 0d 04 9c 15 20 e3 52  3d 30 b8 33 30 3a f1 3a  |T.... .R=0.30:.:|
000003e0  f2 4c 45 54 3a ed 0d 04  a6 0f 20 d7 22 4c 65 76  |.LET:..... ."Lev|
000003f0  65 6c 33 42 22 0d 04 b0  0a 20 dd f2 4c 45 54 0d  |el3B".... ..LET.|
00000400  04 ba 24 20 e3 44 3d 30  b8 39 3a e3 46 3d 30 b8  |..$ .D=0.9:.F=0.|
00000410  31 30 30 30 3a ed 3a ef  31 39 2c 31 2c b3 28 37  |1000:.:.19,1,.(7|
00000420  29 3a ed 0d 04 c4 06 20  e1 0d ff                 |):..... ...|
0000042b
!STARTREK/Level3A.m0
!STARTREK/Level3A.m1
!STARTREK/Level3A.m2
!STARTREK/Level3A.m4
!STARTREK/Level3A.m5