Home » Personal collection » Acorn ADFS disks » Archimedes » Dominic_3B.ADF » !STARTREK/Level1B

!STARTREK/Level1B

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/Level1B
Read OK:
File size: 0440 bytes
Load address: FFFFFB41
Exec address: B9CDDC1E
Duplicates

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

File contents
   10 MODE 7:ON ERROR CLS:END
   20 PRINTTAB(13,4);"SHUTTLE LAUNCH"
   30 PRINTTAB(13,5)"=============="
   40 PRINTTAB(3,8)"THE SHUTTLE IS READY FOR LIFT-OFF"
   50 PRINTTAB(3,13)CHR$136CHR$129"YOU MAY HAVE ONLY TEN ATTEMPS!"
   60 PRINTTAB(3,13)CHR$136CHR$129"YOU MAY HAVE ONLY TEN ATTEMPS!"
   70 PRINTTAB(3,16)"PLEASE ENTER YOUR NAME"
   90 INPUT NAME$
  100 CLS
  110 PRINTTAB(0,4)"WELCME ABOARD, CAPTAIN ";NAME$
  120 PRINTTAB(5,8)"TO LANCH THE SHUTTLE YOU MUST"
  130 PRINTTAB(5,10)"GUESS THE POWER LEVEL REQUIRED"
  140 PRINTTAB(5,12)"(ANY NUMBER BETWEEN 1 AND 100)"
  160 PRINTTAB(12,16)"GO AHEAD, PLEASE"
  170 LEVEL=RND(100)
  180 A=1
  190 INPUT"POWER";GU
  200 IF GU=LEVEL THEN 280
  210 IF GU<LEVEL THEN PRINT"TOO LOW, TRY AGAIN"
  220 IF GU>LEVEL THEN PRINT"TOO HIGH, TRY AGAIN"
  230 A=A+1:IF A<>11 THEN 190
  240 CLS
  250 PRINTTAB(2,10)"YOU HAVE FAILED AFTER TEN ATTEMPS!"
  260 PRINTTAB(12,12)"YOUR GAME IS OVER!":FORT=0TO50000:NEXT
  270 RUN
  280 CLS
  290 HEIGHT=0
  300 TARGET=10000
  310 PRINTTAB(16,5)"LIFT-OFF!!!!"
  320 PRINTTAB(10,10);"HEIGHT"
  330 PRINTTAB(20,10)HEIGHT
  340 FORDELAY=1TO2000
  350 NEXT
  360 HEIGHT=HEIGHT*2+1
  370 IF HEIGHT<TARGET THEN 330
  380 CLS
  390 FORROW=1TO15
  400 PRINTTAB(11,ROW)"SHUTTLE IN ORBIT!!!!"
  410 NEXT
  420 PRINTTAB(2,19)"CONGLATULATIONS CAPTAIN ";NAME$
  425 FOR D=1 TO 5000:NEXT D
  430 CHAIN"LEVEL2A"
  440 CHAIN"LEVEL2A"

 � 7:� � �:�
 �13,4);"SHUTTLE LAUNCH"
 �13,5)"=============="
(. �3,8)"THE SHUTTLE IS READY FOR LIFT-OFF"
24 �3,13)�136�129"YOU MAY HAVE ONLY TEN ATTEMPS!"
<4 �3,13)�136�129"YOU MAY HAVE ONLY TEN ATTEMPS!"
F$ �3,16)"PLEASE ENTER YOUR NAME"
Z � NAME$
d �
n* �0,4)"WELCME ABOARD, CAPTAIN ";NAME$
x* �5,8)"TO LANCH THE SHUTTLE YOU MUST"
�, �5,10)"GUESS THE POWER LEVEL REQUIRED"
�, �5,12)"(ANY NUMBER BETWEEN 1 AND 100)"
� �12,16)"GO AHEAD, PLEASE"
� LEVEL=�(100)
� A=1
� �"POWER";GU
� � GU=LEVEL � �TXA
�' � GU<LEVEL � �"TOO LOW, TRY AGAIN"
�( � GU>LEVEL � �"TOO HIGH, TRY AGAIN"
� A=A+1:� A<>11 � �t~@
� �
�0 �2,10)"YOU HAVE FAILED AFTER TEN ATTEMPS!"
. �12,12)"YOUR GAME IS OVER!":�T=0�50000:�
 �
 �
"
 HEIGHT=0
, TARGET=10000
6 �16,5)"LIFT-OFF!!!!"
@ �10,10);"HEIGHT"
J �20,10)HEIGHT
T �DELAY=1�2000
^ �
h HEIGHT=HEIGHT*2+1
r � HEIGHT<TARGET � �DJA
| �
� �ROW=1�15
�$ �11,ROW)"SHUTTLE IN ORBIT!!!!"
� �
�, �2,19)"CONGLATULATIONS CAPTAIN ";NAME$
� � D=1 � 5000:� D
� �"LEVEL2A"
� �"LEVEL2A"
�
00000000  0d 00 0a 10 20 eb 20 37  3a ee 20 85 20 db 3a e0  |.... . 7:. . .:.|
00000010  0d 00 14 1d 20 f1 8a 31  33 2c 34 29 3b 22 53 48  |.... ..13,4);"SH|
00000020  55 54 54 4c 45 20 4c 41  55 4e 43 48 22 0d 00 1e  |UTTLE LAUNCH"...|
00000030  1c 20 f1 8a 31 33 2c 35  29 22 3d 3d 3d 3d 3d 3d  |. ..13,5)"======|
00000040  3d 3d 3d 3d 3d 3d 3d 3d  22 0d 00 28 2e 20 f1 8a  |========"..(. ..|
00000050  33 2c 38 29 22 54 48 45  20 53 48 55 54 54 4c 45  |3,8)"THE SHUTTLE|
00000060  20 49 53 20 52 45 41 44  59 20 46 4f 52 20 4c 49  | IS READY FOR LI|
00000070  46 54 2d 4f 46 46 22 0d  00 32 34 20 f1 8a 33 2c  |FT-OFF"..24 ..3,|
00000080  31 33 29 bd 31 33 36 bd  31 32 39 22 59 4f 55 20  |13).136.129"YOU |
00000090  4d 41 59 20 48 41 56 45  20 4f 4e 4c 59 20 54 45  |MAY HAVE ONLY TE|
000000a0  4e 20 41 54 54 45 4d 50  53 21 22 0d 00 3c 34 20  |N ATTEMPS!"..<4 |
000000b0  f1 8a 33 2c 31 33 29 bd  31 33 36 bd 31 32 39 22  |..3,13).136.129"|
000000c0  59 4f 55 20 4d 41 59 20  48 41 56 45 20 4f 4e 4c  |YOU MAY HAVE ONL|
000000d0  59 20 54 45 4e 20 41 54  54 45 4d 50 53 21 22 0d  |Y TEN ATTEMPS!".|
000000e0  00 46 24 20 f1 8a 33 2c  31 36 29 22 50 4c 45 41  |.F$ ..3,16)"PLEA|
000000f0  53 45 20 45 4e 54 45 52  20 59 4f 55 52 20 4e 41  |SE ENTER YOUR NA|
00000100  4d 45 22 0d 00 5a 0c 20  e8 20 4e 41 4d 45 24 0d  |ME"..Z. . NAME$.|
00000110  00 64 06 20 db 0d 00 6e  2a 20 f1 8a 30 2c 34 29  |.d. ...n* ..0,4)|
00000120  22 57 45 4c 43 4d 45 20  41 42 4f 41 52 44 2c 20  |"WELCME ABOARD, |
00000130  43 41 50 54 41 49 4e 20  22 3b 4e 41 4d 45 24 0d  |CAPTAIN ";NAME$.|
00000140  00 78 2a 20 f1 8a 35 2c  38 29 22 54 4f 20 4c 41  |.x* ..5,8)"TO LA|
00000150  4e 43 48 20 54 48 45 20  53 48 55 54 54 4c 45 20  |NCH THE SHUTTLE |
00000160  59 4f 55 20 4d 55 53 54  22 0d 00 82 2c 20 f1 8a  |YOU MUST"..., ..|
00000170  35 2c 31 30 29 22 47 55  45 53 53 20 54 48 45 20  |5,10)"GUESS THE |
00000180  50 4f 57 45 52 20 4c 45  56 45 4c 20 52 45 51 55  |POWER LEVEL REQU|
00000190  49 52 45 44 22 0d 00 8c  2c 20 f1 8a 35 2c 31 32  |IRED"..., ..5,12|
000001a0  29 22 28 41 4e 59 20 4e  55 4d 42 45 52 20 42 45  |)"(ANY NUMBER BE|
000001b0  54 57 45 45 4e 20 31 20  41 4e 44 20 31 30 30 29  |TWEEN 1 AND 100)|
000001c0  22 0d 00 a0 1f 20 f1 8a  31 32 2c 31 36 29 22 47  |".... ..12,16)"G|
000001d0  4f 20 41 48 45 41 44 2c  20 50 4c 45 41 53 45 22  |O AHEAD, PLEASE"|
000001e0  0d 00 aa 11 20 4c 45 56  45 4c 3d b3 28 31 30 30  |.... LEVEL=.(100|
000001f0  29 0d 00 b4 08 20 41 3d  31 0d 00 be 10 20 e8 22  |).... A=1.... ."|
00000200  50 4f 57 45 52 22 3b 47  55 0d 00 c8 16 20 e7 20  |POWER";GU.... . |
00000210  47 55 3d 4c 45 56 45 4c  20 8c 20 8d 54 58 41 0d  |GU=LEVEL . .TXA.|
00000220  00 d2 27 20 e7 20 47 55  3c 4c 45 56 45 4c 20 8c  |..' . GU<LEVEL .|
00000230  20 f1 22 54 4f 4f 20 4c  4f 57 2c 20 54 52 59 20  | ."TOO LOW, TRY |
00000240  41 47 41 49 4e 22 0d 00  dc 28 20 e7 20 47 55 3e  |AGAIN"...( . GU>|
00000250  4c 45 56 45 4c 20 8c 20  f1 22 54 4f 4f 20 48 49  |LEVEL . ."TOO HI|
00000260  47 48 2c 20 54 52 59 20  41 47 41 49 4e 22 0d 00  |GH, TRY AGAIN"..|
00000270  e6 19 20 41 3d 41 2b 31  3a e7 20 41 3c 3e 31 31  |.. A=A+1:. A<>11|
00000280  20 8c 20 8d 74 7e 40 0d  00 f0 06 20 db 0d 00 fa  | . .t~@.... ....|
00000290  30 20 f1 8a 32 2c 31 30  29 22 59 4f 55 20 48 41  |0 ..2,10)"YOU HA|
000002a0  56 45 20 46 41 49 4c 45  44 20 41 46 54 45 52 20  |VE FAILED AFTER |
000002b0  54 45 4e 20 41 54 54 45  4d 50 53 21 22 0d 01 04  |TEN ATTEMPS!"...|
000002c0  2e 20 f1 8a 31 32 2c 31  32 29 22 59 4f 55 52 20  |. ..12,12)"YOUR |
000002d0  47 41 4d 45 20 49 53 20  4f 56 45 52 21 22 3a e3  |GAME IS OVER!":.|
000002e0  54 3d 30 b8 35 30 30 30  30 3a ed 0d 01 0e 06 20  |T=0.50000:..... |
000002f0  f9 0d 01 18 06 20 db 0d  01 22 0d 20 48 45 49 47  |..... ...". HEIG|
00000300  48 54 3d 30 0d 01 2c 11  20 54 41 52 47 45 54 3d  |HT=0..,. TARGET=|
00000310  31 30 30 30 30 0d 01 36  1a 20 f1 8a 31 36 2c 35  |10000..6. ..16,5|
00000320  29 22 4c 49 46 54 2d 4f  46 46 21 21 21 21 22 0d  |)"LIFT-OFF!!!!".|
00000330  01 40 16 20 f1 8a 31 30  2c 31 30 29 3b 22 48 45  |.@. ..10,10);"HE|
00000340  49 47 48 54 22 0d 01 4a  13 20 f1 8a 32 30 2c 31  |IGHT"..J. ..20,1|
00000350  30 29 48 45 49 47 48 54  0d 01 54 12 20 e3 44 45  |0)HEIGHT..T. .DE|
00000360  4c 41 59 3d 31 b8 32 30  30 30 0d 01 5e 06 20 ed  |LAY=1.2000..^. .|
00000370  0d 01 68 16 20 48 45 49  47 48 54 3d 48 45 49 47  |..h. HEIGHT=HEIG|
00000380  48 54 2a 32 2b 31 0d 01  72 1b 20 e7 20 48 45 49  |HT*2+1..r. . HEI|
00000390  47 48 54 3c 54 41 52 47  45 54 20 8c 20 8d 44 4a  |GHT<TARGET . .DJ|
000003a0  41 0d 01 7c 06 20 db 0d  01 86 0e 20 e3 52 4f 57  |A..|. ..... .ROW|
000003b0  3d 31 b8 31 35 0d 01 90  24 20 f1 8a 31 31 2c 52  |=1.15...$ ..11,R|
000003c0  4f 57 29 22 53 48 55 54  54 4c 45 20 49 4e 20 4f  |OW)"SHUTTLE IN O|
000003d0  52 42 49 54 21 21 21 21  22 0d 01 9a 06 20 ed 0d  |RBIT!!!!".... ..|
000003e0  01 a4 2c 20 f1 8a 32 2c  31 39 29 22 43 4f 4e 47  |.., ..2,19)"CONG|
000003f0  4c 41 54 55 4c 41 54 49  4f 4e 53 20 43 41 50 54  |LATULATIONS CAPT|
00000400  41 49 4e 20 22 3b 4e 41  4d 45 24 0d 01 a9 15 20  |AIN ";NAME$.... |
00000410  e3 20 44 3d 31 20 b8 20  35 30 30 30 3a ed 20 44  |. D=1 . 5000:. D|
00000420  0d 01 ae 0f 20 d7 22 4c  45 56 45 4c 32 41 22 0d  |.... ."LEVEL2A".|
00000430  01 b8 0f 20 d7 22 4c 45  56 45 4c 32 41 22 0d ff  |... ."LEVEL2A"..|
00000440
!STARTREK/Level1B.m0
!STARTREK/Level1B.m1
!STARTREK/Level1B.m2
!STARTREK/Level1B.m4
!STARTREK/Level1B.m5