Caves of Olympus, The
Emulation Item Preview
Share or Embed This Item
Notes
Disk info for Caves_of_Olympus_The_1982_Sams_Software.do:
File Name: a2_Caves_of_Olympus_The_1982_Sams_Software/Caves_of_Olympus_The_1982_Sams_Software.do
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 18432
Used Space (bytes): 124928
Physical Size (KB): 140
Free Space (KB): 18
Used Space (KB): 122
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 72
Used Sectors: 488
Tracks On Disk: 35
Sectors On Disk: 16
Disk directory for Caves_of_Olympus_The_1982_Sams_Software.do:
a2_Caves_of_Olympus_The_1982_Sams_Software/Caves_of_Olympus_The_1982_Sams_Software.do DISK VOLUME #254
A 002 HELLO
A 019 COO BY AOS
A 062 HOEHLEN VON OLYMP
* B 012 TITELBILD
* B 002 UNPACKER
* B 002 FASTDRAW
* T 003 DATEN
* T 040 ZIMMER
* B 007 OBJECTS
* B 008 BILD1
* B 005 BILD2
* B 008 BILD3
* B 004 BILD4
* B 006 BILD5
* B 006 BILD6
* B 005 BILD7
* B 006 BILD9
* B 004 BILD10
* B 004 BILD11
* B 004 BILD12
* B 002 BILD13
* B 002 BILD14
* B 005 BILD15
* B 004 BILD16
* B 004 BILD17
* B 006 BILD19
* B 007 BILD20
* B 006 BILD21
* B 005 BILD22
* B 017 BILD23
* B 007 BILD24
* B 005 BILD25
* B 005 BILD26
* B 006 BILD27
* B 009 BILD28
* B 004 BILD29
* B 015 BILD30
* B 006 BILD31
* B 005 BILD32
* B 005 BILD34
* B 005 BILD35
* B 006 BILD36
* B 006 BILD37
* B 004 BILD38
* B 004 BILD39
* B 013 BILD40
* B 005 BILD42
* B 005 BILD43
A 006 DEMO
* B 002 DEMOPACKER
T 002 SAVE
DOS 3.3 format; 18,432 bytes free; 124,928 bytes used.
Text found in Caves_of_Olympus_The_1982_Sams_Software.do/BILD31.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 00 1E 2A 28 02 0A 00 9B 2A 0A 22 20 28 00 20 55 ..*(.... *." (. U
$000010 54 51 05 15 00 93 55 15 45 41 51 54 00 04 55 00 TQ....U. EAQT..U.
$000020 23 2A 28 22 0A 00 8D 2A 0A 02 22 28 00 09 2A 00 #*("...* .."(..*.
$000030 25 55 54 50 05 15 00 85 55 15 05 45 51 54 54 00 %UTP.... U..EQTT.
$000040 0C 55 00 28 2A 28 20 0A 00 80 2A 0A 22 28 28 00 .U.(*( . ..*."((.
$000050 11 2A 00 2A 55 54 50 41 D5 55 15 15 55 15 15 55 .*.*UTPA UU..U..U
$000060 15 55 15 55 15 55 15 15 00 11 55 15 00 08 55 15 .U.U.U.. ..U...U.
$000070 55 15 55 55 55 15 15 55 15 55 15 55 15 55 15 00 U.UUU..U .U.U.U..
$000080 06 55 15 55 15 15 00 04 55 15 00 09 55 15 55 55 .U.U.... U...U.UU
$000090 15 00 23 55 15 45 51 50 54 00 15 55 00 2D 2A 28 ..#U.EQP T..U.-*(
$0000A0 20 00 02 00 00 05 82 80 82 80 82 82 80 82 82 00 ....... ........
$0000B0 01 00 82 82 82 80 82 82 00 01 00 80 00 01 00 82 ........ ........
$0000C0 82 80 80 82 00 01 00 80 82 82 80 82 80 80 82 00 ........ ........
$0000D0 05 80 82 80 80 82 80 80 80 88 88 88 82 00 05 80 ........ ........
$0000E0 82 80 82 82 00 01 00 82 82 80 00 01 00 82 00 01 ........ ........
$0000F0 00 82 80 82 00 01 00 00 0A 82 8A AA AA AA 8A A8 ........ ...***.(
$000100 0A 02 00 16 2A 0A 22 20 28 00 1A 2A 00 30 55 50 ....*." (..*.0UP
$000110 40 00 54 00 C0 D1 95 D5 55 54 00 11 55 15 05 41 @.T.@Q.U UT..U..A
$000120 51 54 00 1E 55 00 33 2A 20 00 4E 00 A0 A0 A8 88 QT..U.3* .N. (.
$000130 8A 00 12 2A 0A 02 22 28 00 23 2A 00 35 55 54 40 ...*.."( .#*.5UT@
$000140 00 01 00 00 05 D0 00 04 D4 D0 C4 D4 D4 D0 D0 D0 .....P.. TPDTTPPP
$000150 D4 D0 D0 D0 D4 40 D0 D0 D4 D0 D0 D4 D4 D0 D4 00 TPPPT@PP TPPTTPT.
$000160 05 D0 D4 D0 D4 D0 C4 40 D0 D4 40 D4 D4 C4 D0 D0 .PTPTPD@ PT@TTDPP
$000170 40 D4 D0 D0 D4 C4 D4 D0 C4 D0 D4 D0 D4 D4 D4 D0 @TPPTDTP DPTPTTTP
$000180 D4 D0 D4 D0 D4 D0 D4 C5 D5 C5 40 50 00 0E 55 15 TPTPTPTE UE@P..U.
$000190 15 45 51 54 54 00 26 55 00 38 2A 28 02 0A 00 56 .EQTT.&U .8*(...V
$0001A0 2A 0A 22 28 28 00 2B 2A 00 3A 55 54 41 05 00 50 *."((.+* .:UTA..P
$0001B0 45 05 41 50 54 00 2F 55 00 3C 2A 00 01 00 00 50 E.APT./U .<*....P
$0001C0 2A 00 01 00 00 32 2A 00 3C 55 00 01 00 05 05 00 *....2*.
Text found in Caves_of_Olympus_The_1982_Sams_Software.do/BILD43.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 00 1E D5 D4 D0 C1 85 95 00 97 D5 95 95 C5 C1 D1 ..UTPA.. ..U..EAQ
$000010 D4 00 22 AA A8 A0 82 8A 00 90 AA 8A 82 A2 A8 A8 T."*( .. ..*.."((
$000020 00 05 AA 00 25 D5 D4 D0 C1 85 95 00 86 D5 95 85 ..*.%UTP A....U..
$000030 C5 D1 D0 D4 00 0A D5 00 2A AA A8 A2 8A 00 7E AA EQPT..U. **("..~*
$000040 8A 8A A2 A0 A8 00 10 AA 00 2D D5 D4 D1 C5 95 00 .." (..* .-UTQE..
$000050 74 D5 95 95 C5 C1 D1 D4 D4 00 14 D5 00 31 AA A8 tU..EAQT T..U.1*(
$000060 A2 00 6F 8A 82 A2 A8 A8 00 1A AA 00 33 D5 80 00 ".o.."(( ..*.3U..
$000070 6D D5 80 00 1E D5 00 33 AA 80 00 6D AA 80 00 1E mU...U.3 *..m*...
$000080 AA 00 33 D5 80 00 27 D5 85 00 36 C5 85 00 0E D5 *.3U..'U ..6E...U
$000090 80 00 1E D5 00 33 AA 80 00 27 AA 80 AA 00 34 80 ...U.3*. .'*.*.4.
$0000A0 AA 80 00 0E AA 80 00 1E AA 00 33 D5 80 00 27 D5 *...*... *.3U..'U
$0000B0 80 D5 00 34 80 D5 80 00 0E D5 80 00 1E D5 00 33 .U.4.U.. .U...U.3
$0000C0 AA 80 00 27 AA 80 AA 00 13 80 00 09 00 22 22 3E *..'*.*. ....."">
$0000D0 22 22 14 08 00 11 80 AA 80 00 0E AA 80 00 1E AA "".....* ...*...*
$0000E0 00 33 D5 80 00 27 D5 80 D5 00 13 80 00 09 00 3E .3U..'U. U......>
$0000F0 00 06 02 00 11 80 D5 80 00 0E D5 80 00 1E D5 00 ......U. ..U...U.
$000100 33 AA 80 00 27 AA 80 AA 00 13 80 00 09 00 3E 00 3*..'*.* ......>.
$000110 06 02 00 11 80 AA 80 00 0E AA 80 00 1E AA 00 33 .....*.. .*...*.3
$000120 D5 80 00 27 D5 80 D5 00 13 80 00 10 00 00 11 80 U..'U.U. ........
$000130 D5 80 00 0E D5 80 00 1E D5 00 33 AA 80 00 27 AA U...U... U.3*..'*
$000140 80 AA 00 13 80 00 09 00 1C 00 05 08 1C 00 11 80 .*...... ........
$000150 AA 80 00 0E AA 80 00 1E AA 00 33 D5 80 00 27 D5 *...*... *.3U..'U
$000160 80 D5 00 13 80 00 09 00 1C 22 20 1C 02 22 1C 00 .U...... ." .."..
$000170 11 80 D5 80 00 0E D5 80 00 1E D5 00 33 AA 80 00 ..U...U. ..U.3*..
$000180 27 AA 80 AA 00 13 80 00 10 00 00 11 80 AA 80 00 '*.*.... .....*..
$000190 0E AA 80 00 1E AA 00 33 D5 80 00 27 D5 80 D5 00 .*...*.3 U..'U.U.
$0001A0 13 80 00 09 00 3E 00 06 02 00 11 80 D5 80 00 0E .....>.. ....U...
$0001B0 D5 80 00 1E D5 00 33 AA 80 00 27 AA 80 AA 00 13 U...U.3* ..'*.*..
$0001C0 80 00 09 00 1C 00 05 22 1C 00 11 80 AA 80 00 0E ......." ....*...
$0001D0 AA 80 00 1E AA 00 33 D5 80 00 27 D5 80 D5 00 13 *...*.3U ..'U.U..
$0001E0 80 00 09 00 1C 22 20 1C 02 22 1C 00 11 80 D5 80 ....." . ."....U.
$0001F0 00 0E D5 80 00 1E D5 00 33 AA 80 00 27 AA 80 AA ..U...U. 3*..'*.*
$000200 00 13 80 00 09 00 00 06 08 3E 00 11 80 AA 80 00 ........ .>...*..
$000210 0E AA 80 00 1E AA 00 33 D5 80 00 27 D5 80 D5 00 .*...*.3 U..'U.U.
$000220 13 80 00 10 00 00 11 80 D5 80 00 0E D5 80 00 1E ........ U...U...
$000230 D5 00 33 AA 80 00 27 AA 80 AA 00 13 80 00 10 00 U.3*..'* .*......
$000240 00 11 80 AA 80 00 0E AA 80 00 1E AA 00 33 D5 80 ...*...* ...*.3U.
$000250 00 27 D5 80 D5 00 1B 80 00 08 00 00 11 80 D5 80 .'U.U... ......U.
$000260 00 0E D5 80 00 1E D5 00 33 AA 80 00 27 AA 80 AA ..U...U. 3*..'*.*
$000270 00 1B 80 00 08 00 00 11 80 AA 80 00 0E AA 80 00 ........ .*...*..
$000280 1E AA 00 33 D5 80 00 27 D5 80 D5 00 1B 80 00 08 .*.3U..' U.U.....
$000290 00 00 11 80 D5 80 00 0E D5 80 00 1E D5 00 33 AA ....U... U...U.3*
$0002A0 80 00 27 AA 80 AA 00 1B 80 00 08 00 00 11 80 AA ..'*.*.. .......*
$0002B0 80 00 0E AA 80 00 1E AA 00 33 D5 80 00 27 D5 80 ...*...* .3U..'U.
$0002C0 D5 00 34 80 D5 80 00 0E D5 80 00 1E D5 00 33 AA U.4.U... U...U.3*
$0002D0 80 00 27 AA 80 AA 00 34 80 AA 80 00 0E AA 80 00 ..'*.*.4 .*...*..
$0002E0 1E AA 00 33 D5 80 00 27 D5 80 D5 00 34 80 D5 80 .*.3U..' U.U.4.U.
$0002F0 00 0E D5 80 00 1E D5 00 33 AA 80 00 27 AA A0 00 ..U...U. 3*..'* .
$000300 36 A2 A0 00 0E AA 80 00 1E AA 00 33 D5 80 00 6D 6" ..*.. .*.3U..m
$000310 D5 80 00 1E D5 00 33 AA 80 00 6D AA 80 00 1E AA U...U.3* ..m*...*
$000320 00 31 D5 95 C5 D0 00 6D D1 D0 C5 C5 95 00 1B D5 .1U.EP.m QPEE...U
$000330 00 2E AA 8A A2 A8 00 74 AA A8 A8 A2 8A 8A 00 16 ..*."(.t *(("....
$000340 AA 00 29 D5 95 85 C1 D1 D4 00 7C D5 D4 D1 D1 C5 *.)U..AQ T.|UTQQE
$000350 85 95 00 10 D5 00 26 AA 8A 82 A0 A8 00 86 AA A8 ....U.&* .. (..*(
$000360 A0 A2 8A 8A 00 0B AA 00 22 D5 95 C5 D1 D4 D4 00 "....*. "U.EQTT.
$000370 8D D5 D4 D4 D1 D1 C5 95 95 00 05 D5 00 1F AA 8A .UTTQQE. ...U..*.
$000380 A2 A8 00 99 AA A8 A2 A2 8A AA .. .. .. .. .. .. "(..*("" .*
** END **
Text found in Caves_of_Olympus_The_1982_Sams_Software.do/BILD5.txt:
Offset Hex Data Characters
======= ================================================ =================
$000000 00 1E 2A 28 22 0A 00 9C 2A 0A 22 28 00 21 55 54 ..*("... *."(.!UT
$000010 51 45 15 00 94 55 15 45 51 54 55 55 55 00 25 2A QE...U.E QTUUU.%*
$000020 28 22 0A 00 8E 2A 0A 22 28 00 07 2A 00 28 55 54 ("...*." (..*.(UT
$000030 51 45 15 00 86 55 15 45 51 54 00 0A 55 00 2C 2A QE...U.E QT..U.,*
$000040 28 22 0A 00 80 2A 0A 22 28 00 0E 2A 00 2F 55 54 ("...*." (..*./UT
$000050 51 45 15 00 78 55 15 45 51 54 00 11 55 00 33 2A QE..xU.E QT..U.3*
$000060 28 22 0A 00 72 2A 0A 22 28 00 15 2A 00 36 55 54 ("..r*." (..*.6UT
$000070 51 45 15 00 6A 55 15 45 51 54 00 18 55 00 3A 2A QE..jU.E QT..U.:*
$000080 28 22 0A 00 64 2A 0A 22 28 00 1C 2A 00 3D 55 54 ("..d*." (..*.=UT
$000090 51 45 15 00 5C 55 15 45 51 54 00 1F 55 00 41 2A QE..\U.E QT..U.A*
$0000A0 28 22 0A 00 56 2A 0A 22 28 00 23 2A 00 44 55 54 ("..V*." (.#*.DUT
$0000B0 41 05 00 50 45 05 41 54 00 26 55 00 46 2A 00 01 A..PE.AT .&U.F*..
$0000C0 00 00 50 2A 00 01 00 00 28 2A 00 46 55 00 01 00 ..P*.... (*.FU...
$0000D0 C5 85 00 46 C5 85 05 00 06 55 00 01 00 00 28 55 E..FE... .U....(U
$0000E0 00 46 2A 00 01 00 AA AA A8 A0 8A 8A 00 1C AA 8A .F*...** ( ....*.
$0000F0 8A 8A 00 20 AA 82 A0 A8 AA 00 01 00 00 06 2A 00 ... *. ( *.....*.
$000100 01 00 00 28 2A 00 46 55 00 01 00 00 07 D5 D4 D4 ...(*.FU .....UTT
$000110 D1 D1 81 95 00 0B D5 95 D5 C5 C5 D5 D5 D1 D5 D5 QQ....U. UEEUUQUU
$000120 D4 00 0A D5 C5 C5 C1 D1 D0 00 11 D5 95 85 D0 00 T..UEEAQ P..U..P.
$000130 04 D5 00 01 00 00 06 55 00 01 00 00 28 55 00 46 .U.....U ....(U.F
$000140 2A 00 01 00 00 0C AA A8 88 82 8A 8A 8A AA AA 8A *.....*( .....**.
$000150 AA AA 00 0A 8A AA 8A 8A AA AA AA 8A 8A AA 8A AA **...*.. ***..*.*
$000160 AA 00 07 8A AA AA 8A 00 09 AA 8A A2 A8 00 06 AA *...**.. .*."(..*
$000170 00 01 00 00 06 2A 00 01 00 00 28 2A 00 46 55 00 .....*.. ..(*.FU.
$000180 01 00 00 0B D5 C5 85 85 C0 D4 D4 D5 D1 D4 D5 D4 ....UE.. @TTUQTUT
$000190 D4 00 0A D5 D4 D5 D5 D4 D5 D4 D5 D5 D4 D4 00 09 T..UTUUT UTUUTT..
$0001A0 D5 D4 D4 D4 D5 D5 D1 00 04 C5 D1 D4 D5 D5 95 00 UTTTUUQ. .EQTUU..
$0001B0 06 D5 00 01 00 00 06 55 00 01 00 00 28 55 00 21 .U.....U ....(U.!
$0001C0 2A 0A 0A 00 06 2A 0A 0A 2A 2A 0A 00 04 02 0A 00 *....*.. **......
$0001D0 05 2A 0A 0A 0A 00 04 2A 0A 0A 0A 00 04 2A 00 01 .*.....* .....*..
$0001E0 00 00 0C AA A2 88 A8 88 A8 AA AA AA 8A A0 00 23 ...*".(. (***. .#
$0001F0 AA 8A 82 82 80 00 05 AA 88 00 06 AA 00 01 00 00 *......* ...*....
$000200 06 2A 00 01 00 00 28 2A 00 20 55 40 50 40 50 50 .*....(* . U@P@PP
$000210 00 04 55 54 54 54 55 55 44 44 54 54 54 00 05 55 ..UTTTUU DDTTT..U
$000220 54 54 50 54 54 55 54 50 50 50 54 55 55 55 00 01 TTPTTUTP PPTUUU..
$000230 00 00 0B D5 C5 D1 D4 95 00 05 D5 D4 D1 C5 00 11 ...UEQT. ..UTQE..
$000240 D5 95 95 C1 D1 D4 D4 D1 85 95 00 08 D5 91 C5 94 U..AQTTQ ....U.E.
$000250 D0 D5 D5 95 95 C5 84 00 06 D5 00 01 00 00 06 55 PUU..E.. .U.....U
$000260 00 01 00 00 28 55 00 31 2A 0A 0A 2A 0A 00 07 2A ....(U.1 *..*...*
$000270 0A 02 02 0A 2A 00 02 00 02 02 2A 00 01 00 00 0C ....*... ..*.....
$000280 AA 8A A8 A8 00 09 AA 88 00 17 AA 82 00 08 AA 88 *.((..*. ..*...*.
$000290 A2 A2 A0 00 04 AA A8 00 07 AA 00 01 00 00 06 2A "" ..*(. .*.....*
$0002A0 00 01 00 00 28 2A 00 21 55 41 01 05 05 05 45 00 ....(*.! UA....E.
$0002B0 05 55 54 54 54 55 55 55 54 54 54 00 08 55 54 00 .UTTTUUU TTT..UT.
$0002C0 04 55 54 54 55 55 00 01 00 00 0B D5 C5 D5 D0 94 .UTTUU.. ...UEUP.
$0002D0 00 0B D5 95 D1 00 04 D5 95 95 D5 D5 D1 D5 D4 D4 ..U.Q..U ..UUQUTT
$0002E0 00 09 D5 D4 D4 D5 D5 D5 95 C5 D5 D0 D0 C4 85 D5 ..UTTUUU .EUPPD.U
$0002F0 D1 D1 D0 00 08 D5 00 01 00 00 06 55 00 01 00 00 QQP..U.. ...U....
$000300 28 55 00 21 2A 20 22 20 20 00 21 2A 00 01 00 00 (U.!* " .!*....
$000310 0B AA 8A 82 8A 80 A2 A2 AA A2 8A AA A2 A2 AA 82 .*...."" *".*""*.
$000320 A2 A2 A0 A0 A0 A8 AA 88 8A 8A AA 00 07 8A A2 8A "" (*. ..*...".
$000330 A2 82 AA A2 8A AA 8A A2 A0 A8 00 05 AA A8 A0 A2 ".*".*." (..*( "
$000340 AA 8A 00 08 AA 00 01 00 00 06 2A 00 01 00 00 28 *...*... ..*....(
$000350 2A 00 46 55 00 01 00 D5 D5 D5 85 D5 D5 85 D5 C5 *.FU...U UU.UU.UE
$000360 C5 C1 D0 D4 00 07 D5 D0 D5 D5 C5 95 00 05 D5 C5 EAPT..UP UUE...UE
$000370 D1 D1 00 13 D5 95 C5 00 0C D5 C0 85 00 05 D5 00 QQ..U.E. .U@...U.
$000380 01 00 00 06 55 00 01 00 00 28 55 00 46 2A 00 01 ....U... .(U.F*..
$000390 00 00 04 AA A8 A8 AA AA 82 82 00 0E AA A8 A8 A8 ...*((** ....*(((
$0003A0 AA A8 A8 00 06 AA A2 A8 00 0A AA A2 A0 A8 A8 00 *((..*"( ..*" ((.
$0003B0 0F AA A0 82 8A AA AA AA 00 01 00 00 06 2A 00 01 .* ..*** .....*..
$0003C0 00 00 28 2A 00 46 55 00 01 00 D5 D5 95 95 85 D5 ..(*.FU. ..UU...U
$0003D0 D1 D0 D4 00 1F D5 95 D5 95 D5 D5 D4 D5 D4 00 15 QPT..U.U .UUTUT..
$0003E0 D5 80 95 D5 D5 00 01 00 00 06 55 00 01 00 00 28 U..UU... ..U....(
$0003F0 55 00 46 2A 00 01 00 00 46 A2 A0 A2 A0 20 00 06 U.F*.... F" " ..
$000400 2A 00 01 00 00 28 2A 00 46 55 00 01 00 00 50 55 *....(*. FU....PU
$000410 00 01 00 00 28 55 00 45 2A 0A 00 01 00 00 50 22 ....(U.E *.....P"
$000420 00 01 00 0A 00 27 2A 00 41 55 15 05 41 50 54 00 .....'*. AU..APT.
$000430 52 55 54 50 41 05 15 00 23 55 00 3E 2A 0A 02 20 RUTPA... #U.>*..
$000440 28 00 5A 2A 28 20 02 0A 00 20 2A 00 3A 55 15 05 (.Z*( .. . *.:U..
$000450 41 50 54 00 60 55 54 50 41 05 15 00 1C 55 00 37 APT.`UTP A....U.7
$000460 2A 0A 02 20 28 00 68 2A 28 20 02 0A 00 19 2A 00 *.. (.h* ( ....*.
$000470 33 55 15 05 41 50 54 00 6E 55 54 50 41 05 15 00 3U..APT. nUTPA...
$000480 15 55 00 30 2A 0A 02 20 28 00 76 2A 28 20 02 0A .U.0*.. (.v*( ..
$000490 00 12 2A 00 2C 55 15 05 41 50 54 00 7C 55 54 50 ..*.,U.. APT.|UTP
$0004A0 41 05 15 00 0E 55 00 29 2A 0A 02 20 28 00 84 2A A....U.) *.. (..*
$0004B0 28 20 02 0A 00 0B 2A 00 25 55 15 05 41 50 54 00 ( ....*. %U..APT.
$0004C0 8A 55 54 50 41 05 15 00 07 55 00 22 2A 0A 02 20 .UTPA... .U."*..
$0004D0 28 00 92 2A 28 20 02 0A 00 04 2A 00 1E 55 15 05 (..*( .. ..*..U..
$0004E0 41 50 54 00 98 55 54 50 41 05 15 .. .. .. .. .. APT..UTP A..
** END **
Text found in Caves_of_Olympus_The_1982_Sams_Software.do/COO BY AOS.bas:
1 REM THE CAVES OF OLYMPUS COPYRIGHT 1982 BY THOMAS AND PATRICK NOONE
2 REM PUBLISHED BY HOWARD W. SAMS & CO., INC.
5 PRINT CHR$(4)"MAXFILES 1"
6 HIMEM: 32765
7 REM VERS: 3.7
10 HGR : HOME : TEXT
11 PRINT "BLOADUNPACKER,A7936"
20 PRINT "BLOADTITELBILD,A$8000": CALL 7936
25 A = PEEK(49239) + PEEK(49234) + PEEK(49236) + PEEK(49232)
30 FOR J = 1 TO 5000:X = PEEK( -16384): IF X <128 THEN NEXT J: PRINT : PRINT CHR$(4)"RUN DEMO"
35 POKE -16368,0:A = PEEK(49235)
40 VTAB 22: PRINT "INSTRUCTIONS (Y/N)? ";
42 GET A$: IF A$ < >"Y" AND A$ < >"N" THEN 42
44 PRINT A$
50 IF LEFT$(A$,1) = "Y" THEN GOSUB 39999
52 POKE 103,1: POKE 104,64: POKE 16384,0
55 A = PEEK(49234)
60 PRINT "RUNHOEHLEN VON OLYMP"
39999 A = PEEK(49233)
40000 HOME : PRINT "INFO-POSITRONICON: TERR3/A1": PRINT "CONNECTION: K(W34/B)": PRINT "LIBRARY: NATHAN/LUNA"
40001 SPEED= 200
40005 PRINT : PRINT "SOURCE: ENCYCLOPAEDIA TERRANIA": PRINT "MAIN TOPIC: ";: INVERSE : PRINT "LAREN 35TH CENTURY": NORMAL : PRINT "EMPHASIS: ";: INVERSE : PRINT "RESISTANCE MOVEMENT": NORMAL : PRINT "RELATED TO: ";: INVERSE : PRINT "VARIO-500": NORMAL
40006 VTAB 23: PRINT "HIT ANY KEY WHEN READY";: GET A$
40007 HOME : PRINT "SINCE THE YEAR 3431 A.D., THE VARIO-500 ROBOT ANSON ARGYRIS, SOLE MODEL OF ITS KIND, BELONGS TO THE MOST IMPORTANT ALLIES OF THE FORMER SOLAR EMPIRE AND PRESENT COSMIC HANSA."
40008 PRINT : PRINT "ALTHOUGH ORIGINALLY CONCEPTUALIZED AS A SOPHISTICATED ROBOT, HIS BIOLOGICAL UNITGAVE HIM HUMAN EMOTIONS AND CONSCIENCE."
40010 PRINT : PRINT "HIS PURPOSE WAS TO ENSURE THE SOLAR EMPIRE'S SUPPLY OF TRADING GOODS AS EMPEROR OF THE FREE TRADERS ON THE PLANET OLYMPUS, DISCOVERED BY LOVELY BOSCYK."
40012 VTAB 23: PRINT "HIT ANY KEY WHEN READY";: GET A$
40015 HOME : PRINT "FOR THIS TASK, THE EGG-SHAPED ROBOT, 50 CM IN HEIGHT, USED LIVING COCOON- MASKS, TURNING HIM INTO A PERFECT IMITATION OF A HUMAN BEING."
40017 PRINT : PRINT "THE ROBOT'S ARMAMENT CONSISTS OF A DESINTEGRATOR AND A BLASTER, SUPPLEMENTED BY A FORCEFIELD GENERATOR.": PRINT
40019 PRINT "DEEP BENEATH HIS PALACE, THERE WAS A LARGE NUMBER OF CAVES, REBUILT INTO A DEADLY SYSTEM OF TRAPS THAT NO TRES- PASSER WAS ALLOWED TO LEAVE ALIVE, CON- TAINING THE SECRETS OF OLYMPUS."
40020 VTAB 23: PRINT "HIT ANY KEY WHEN READY";: GET A$: HOME
40023 PRINT "WHEN THE LAREN, LEAD BY HOTRENOR-TAAK, INVADED THE GALAXY UNDER ORDERS OF THE COUNCIL OF SEVEN AND ALSO OCCUPIED OLYMPUS, ANSON ARGYRIS WAS VERY CON- SPICUOUS AS A RESISTANCE FIGHTER."
40025 PRINT : PRINT "TO BE OF FURTHER USE TO THE RESISTANCE MOVEMENT, THE VARIO-500 WAS FORCED TO SEEK REFUGE IN THE CAVES OF OLYMPUS..."
40027 VTAB 23: PRINT "HIT ANY KEY WHEN READY";: GET A$: HOME
40030 PRINT "IT WAS AN INDISPENSABLE NECESSITY THAT THE SYSTEM PROVED TO BE 100% SECURE AGAINST PENETRATION BY UNAUTHORIZED ENTITIES. THIS MADE IT NECESSARY, THAT ANSON ARGYRIS 'FORGET' THE IMPORTANT DETAILS."
40032 PRINT : PRINT "HE WAS LEFT WITH NOTHING BUT THE KNOW- LEDGE THAT HE WAS THE ONLY BEING ABLE TO REACH HIS GOAL, THAT HINTS MUST BE OF VALUE TO HIM AND THAT CERTAIN PROBLEMS COULD ONLY BE SOLVED BY DEDUCTION."
40035 PRINT : PRINT "HE OVERCAME HIS OWN OBSTACLES.....": VTAB 23: PRINT "HIT ANY KEY WHEN READY";: GET A$
40040 HOME : INVERSE : HTAB 14: PRINT "INSTRUCTIONS": NORMAL : PRINT : PRINT "YOU ARE THE ROBOT.": PRINT "ALL THE INPUT AND OUTPUT IS COMPLETELY COMPATIBLE WITH YOUR BIO-UNIT.": PRINT : PRINT "YOU ARE THE COMBAT-UNIT VARIO 500,"
40041 PRINT "WITH ALL ITS VIRTUES AND FAULTS.": PRINT : PRINT "MAKE USE OF YOUR ATTRIBUTES, AS YOUR FINAL VALUATION WILL BE BASED ON YOUR USE OF THESE.": VTAB 23: PRINT "HIT ANY KEY WHEN READY";: GET A$
40042 HOME : PRINT "JUST ABOUT EVERY OBJECT IN YOUR VICINITYWILL BE IDENTIFIED.": PRINT : PRINT "IF YOU FEEL LIKE MOVING, IT'S SUFFICIENTTO ENTER THE FIRST LETTER OF THE DIRECTION (E.G. 'N', 'E' ETC.).": PRINT
40043 PRINT "THE KEY TO YOUR RIGHT, WILL SWITCH BETWEEN TEXT AND GRAPHIC DISPLAY.": PRINT : PRINT "OTHER COMMANDS MUST BE ENTERED AS 'VERB' 'NOUN'.": PRINT : PRINT "EXAMPLE: OPEN DOOR"
40044 PRINT : PRINT "IT IS SUFFICIENT TO ENTER ONLY THE FIRSTTHREE LETTERS OF THE VERB AND THE FIRST FOUR OF THE NOUN.": PRINT : PRINT "'INV' WILL DISPLAY YOUR INVENTORY.": VTAB 23: PRINT "HIT ANY KEY TO CONTINUE";: GET A$
40045 HOME : PRINT "IF YOU WOULD LIKE TO SAVE YOUR CURRENT GAME AND CONTINUE AT A LATER DATE, THEN ENTER THE WORD 'SAVE'.": PRINT : PRINT "PLEASE USE THE KEY TO ENTER YOUR COMMANDS."
40046 PRINT : PRINT "LEAVE THE DISKETTE IN YOUR DISK DRIVE DURING PLAY OF THE GAME.": PRINT : PRINT "DON'T GIVE UP......": PRINT : PRINT "GOOD LUCK!": VTAB 22: PRINT "HIT TO BEGIN YOUR ADVENTURE...";: GET A$
40051 SPEED= 255: HOME : PRINT "INFO-POSITRONICON: TERR3/A1": PRINT "DATE: 12/3/445 NGT": PRINT "TIME: 15.45": PRINT : PRINT "ATTENTION USER:": HTAB 20: PRINT "#K(W34/B) CAPETOWN"
40052 PRINT : PRINT "SURCHARGE: 0.03 GALAX": PRINT "TRANSFER: POSITIVE": PRINT "CALL: #361": PRINT "BULLETIN: ------NONE": FOR T = 0 TO 3200: NEXT : PRINT : PRINT : SPEED= 100: PRINT "THANK YOU VERY MUCH FOR USING THIS PUBLIC SERVICE FACILITY.": SPEED= 255
40054 FOR T = 0 TO 500: NEXT
49998 A = PEEK(49232): RETURN
50000 REM 20.3.82
Text found in Caves_of_Olympus_The_1982_Sams_Software.do/DATEN.txt:
ID-STRIP
1
MICROBOMB
3
WALL
5
TRANSMITTER
0
INFO-CUBE
2
TRANSPORTCAPSULE
11
WALL
12
TRANSPORTCAPSULE
0
COMBAT-ROBOT
13
HOWALGONIUM-CLIPS
17
'ANSON ARGYRIS'-MASK
20
DOORLOCK
21
BULKHEAD
0
SPACESUIT
24
INVISIBLE DOOR
0
WALL
34
ACTIVE TRANSMITTER
0
BULKHEAD
39
GATE
0
HOWALGONIUM CRYSTAL
42
FORCEFIELD
0
BLASTER
0
DESINTEGRATOR
0
DEFLECTOR FIELD
0
SEALED BULKHEAD
29
ACTIVE MINI-TRANSMITTER
0
AMMUNITIONS CLOSET
42
INVISIBLE DOOR
0
AIR-LOCK
39
LAREN
32
KEY
24
CONTROL-PANEL
30
HALUTIAN COMBAT-ROBOT
19
Text found in Caves_of_Olympus_The_1982_Sams_Software.do/DEMO.bas:
0 ONERR GOTO 300
2 HIMEM: 8191
5 PRINT CHR$(4)"BLOAD DEMOPACKER,A$300"
9 NS = 43
15 D$(1) = "NORTH":D$(2) = "EAST":D$(3) = "SOUTH":D$(4) = "WEST":S$(0) = "YOU SEE:":S$(1) = "YOU NOTICE:":S$(2) = "YOU RECOGNIZE:":B$ = "YOU ARE IN"
25 DIM A(6,4),L(38)
100 Q = RND(2) *(NS +1):Q = INT(Q)
102 R = RND(2) *10:R = INT(R): IF R <3 THEN 102
105 FOR J = 1 TO NS: IF J = 8 OR J = 18 OR J = 33 OR J = 40 OR J = 41 THEN 130
110 Q = Q +R
115 IF Q >38 THEN Q = Q -38
120 IF L(Q) < >0 THEN Q = Q +1: GOTO 115
125 L(Q) = J
130 NEXT
132 J1 = -4:J2 = 0
140 K = FRE(0):K = 3000
145 J1 = J1 +5:J2 = J2 +5: IF J2 >38 THEN J2 = 38
146 HGR : HOME : TEXT : HOME : VTAB 8: PRINT "CAVES OF OLYMPUS GUIDED TOUR...": PRINT : PRINT "ONE MOMENT PLEASE..."
150 FOR J = J1 TO J2:K = K +1000
160 PRINT CHR$(4)"BLOAD BILD"L(J)",A$"K
165 PRINT CHR$(4)"OPEN ZIMMER,L208": PRINT CHR$(4)"READ ZIMMER,R"L(J): INPUT L$(J +1 -J1): FOR Y = 1 TO 4: INPUT A(J +1 -J1,Y): NEXT Y: PRINT CHR$(4)"CLOSE"
170 NEXT
200 POKE -16368,0
202 FOR AW = 1 TO 4
205 K = 48
210 FOR J = J1 TO J2:K = K +16
216 HOME : TEXT : HOME : INVERSE : PRINT B$: NORMAL : PRINT : PRINT : PRINT L$(J +1 -J1): PRINT : INVERSE : PRINT S$( INT( RND(7) *3)): NORMAL : PRINT
217 PRINT : PRINT : INVERSE : PRINT "IDENTIFIED EXITS:": NORMAL : PRINT : FOR Y = 1 TO 4: IF A(J +1 -J1,Y) THEN PRINT D$(Y);" * ";
218 NEXT : PRINT : POKE 775,K: CALL 768
220 GOSUB 400
225 POKE -16300,0: POKE -16304,0: POKE -16302,0
227 GOSUB 400
230 NEXT J: NEXT AW: IF J2 <38 THEN 140
240 GOTO 490
300 X = PEEK( -18455)/16: PRINT : PRINT CHR$(4)"PR#"X
310 PRINT CHR$(4)"FP"
400 FOR Q = 1 TO 400
405 IF PEEK( -16384) >127 THEN POKE -16368,0: GOTO 490
410 NEXT Q: RETURN
490 HOME : TEXT : HOME : VTAB 7: PRINT : PRINT "ONE MOMENT PLEASE...": PRINT : PRINT CHR$(4)"RUN COO BY AOS"
Text found in Caves_of_Olympus_The_1982_Sams_Software.do/HELLO.bas:
10 H = PEEK(175) + PEEK(176) *256: CALL H -77
20 HOME : PRINT : PRINT CHR$(4)"RUN COO BY AOS"
Text found in Caves_of_Olympus_The_1982_Sams_Software.do/HOEHLEN VON OLYMP.bas:
0 REM COPYRIGHT 1982 BY THOMAS & PATRICK NOONE ALL RIGHTS RESERVED
4 POKE 105,160: POKE 106,16: POKE 107,160: POKE 108,16: POKE 109,160: POKE 110,16: POKE 111,255: POKE 112,30: POKE 113,254: POKE 114,30: POKE 115,255: POKE 116,30
10 DIM D$(4),D%(4),OB$(33),OB%(33),S$(2),CX%(33),CY%(33),XX%(33),YY%(33):P = 1:D$(1) = "NORTH":D$(2) = "EAST":D$(3) = "SOUTH":D$(4) = "WEST":N = 45:B$ = "YOU ARE IN"
30 S$(0) = "YOU SEE:":S$(1) = "YOU NOTICE:":S$(2) = "YOU RECOGNIZE:":LO = 33:CP = 1:XC = 1148:YC = 1404:T0 = 1532:T1 = 1660:TH = 1916:TB = 2044:SC = 49232:IN = 948:SP = 49200:FD = 888:S1 = 3488:S2 = S1 +30
35 PRINT "BLOADOBJECTS": PRINT : PRINT "BLOADFASTDRAW"
40 PRINT "OPENDATEN"
45 PRINT "READDATEN"
50 FOR T = 1 TO LO: INPUT OB$(T),OB%(T): NEXT
60 PRINT "CLOSEDATEN"
65 RESTORE : FOR T = 1 TO LO: READ C1:CX%(T) = C1: IF C1 = 0 THEN NEXT
70 READ C2,X,Y:CY%(T) = C2:XX%(T) = X:YY%(T) = Y: NEXT
75 HOME : TEXT : HOME : HTAB 2: PRINT "ADVANCED OPERATING SYSTEMS PRESENTS": PRINT : HTAB 10: PRINT "THE CAVES OF OLYMPUS": PRINT : HTAB 8: PRINT "A SCIENCE FICTION QUEST": PRINT
76 PRINT " PROGRAMMED BY THOMAS & PATRICK NOONE": HTAB 5: PRINT "COPYRIGHT 1982 BY THE AUTHORS": VTAB 12
77 HTAB 11: PRINT "1) START NEW GAME": PRINT : HTAB 11: PRINT "2) RESUME OLD GAME": PRINT : PRINT : HTAB 15: PRINT "CHOICE: ";
78 GET A$: IF A$ < >"1" AND A$ < >"2" THEN 78
79 PRINT A$: IF A$ = "2" THEN GOSUB 62600
85 ONERR GOTO 90
90 GOSUB 5000: POKE SC +3,0
100 VTAB 21: HTAB 1: INPUT "COMMAND?";A$: IF A$ = "" THEN P = NOT P: POKE SC +P,0
102 IF A$ = "N" OR A$ = "S" OR A$ = "W" OR A$ = "E" THEN GOSUB 2000
105 IF LEN(A$) <3 THEN 100
110 A$ = A$ +" ":C = C +1:E = E +1: IF CP = 1 THEN 9000
120 GOSUB 6000: GOSUB 3000
125 IF B >0 THEN GOSUB 2100
130 IF CP = 37 AND F = 0 THEN GOSUB 11500: GOTO 1000
140 IF CP = 32 AND OB%(30) THEN GOSUB 11600: GOTO 1000
150 IF CP = 30 THEN GOSUB 11700
170 IF CP = 19 AND OB%(33) = CP THEN GOSUB 11800: GOTO 1000
180 IF CP = 13 THEN GOSUB 11900: IF CP = 30 THEN 1000
190 IF CP = 24 AND A3$ = "KEY" AND OB%(31) < >0 THEN GOSUB 12000: GOTO 1000
200 IF V3$ = "INV" THEN GOSUB 7000: GOTO 1000
210 FOR T = 1 TO 4: IF V3$ = LEFT$(D$(T),3) THEN GOSUB 8000: GOTO 1000
220 NEXT
230 IF A3$ = "FOR" AND V3$ = "ACT" THEN S = 1: PRINT "OK": GOTO 1000
240 IF A3$ = "FOR" AND V3$ = "DEA" THEN S = 0: PRINT "OK": GOTO 1000
250 IF A3$ = "MIC" AND OB%(2) < >0 THEN GOSUB 10000: GOTO 1000
260 IF A3$ = "INF" THEN GOSUB 10200: GOTO 1000
270 IF A3$ = "TRA" THEN GOSUB 10300: GOTO 1000
280 IF A3$ = "LOC" OR A3$ = "WAL" OR A3$ = "DOO" OR A3$ = "GAT" OR A3$ = "AIR" OR A3$ = "BUL" THEN GOSUB 10335: GOTO 1000
290 IF A3$ = "SPA" OR A3$ = "SUI" THEN GOSUB 11000: GOTO 1000
300 IF A3$ = "MAS" THEN GOSUB 11100: GOTO 1000
310 IF A3$ = "HAI" OR A3$ = "CLI" THEN GOSUB 11200: GOTO 1000
320 IF A3$ = "CRY" OR A3$ = "HOW" THEN GOSUB 11400: GOTO 1000
330 IF V3$ = "SAV" THEN GOSUB 62700: GOSUB 62500: GOTO 1000
335 IF CP = 42 THEN GOSUB 11300: GOTO 1000
340 IF A$ < >"" THEN PRINT "RESULT: NEGATIVE!": GOSUB 62000
1000 IF CP = 8 OR CP = 18 OR CP = N OR CP = 41 OR (CP = 30 AND OB%(32) = 0) OR CP = 33 OR CP = 44 THEN 61000
1010 IF CP = 40 THEN 60000
1020 GOSUB 5000: GOTO 100
2000 FOR T = 1 TO 4: IF LEFT$(D$(T),1) = A$ THEN A$ = D$(T): RETURN
2010 NEXT
2100 B = B -1: IF B = 0 THEN SPEED= 255: GOSUB 62500: PRINT "REPAIR-SECTOR 75/S32:": PRINT : PRINT "REPAIRS TERMINATED": GOSUB 62000
2110 T = PEEK(SP): POKE SP,0: RETURN
3000 IF V3$ = "TOU" OR V3$ = "PUS" THEN V3$ = "OPE"
3010 IF V3$ = "TAK" THEN V3$ = "GET"
3020 IF V3$ = "DIS" THEN V3$ = "DES"
3030 IF V3$ = "QUI" THEN POP : GOTO 61020
3040 RETURN
5000 HOME : IF A = CP THEN 5024
5005 PRINT "OPENZIMMER,L208"
5010 PRINT "READZIMMER,R";CP
5015 INPUT P$: FOR T = 1 TO 4: INPUT D%(T): NEXT
5020 PRINT "CLOSEZIMMER"
5024 IF A < >CP THEN PRINT "BLOAD BILD";CP;",A$8000"
5025 INVERSE : PRINT B$: NORMAL : PRINT : PRINT
5030 PRINT P$: PRINT : INVERSE : PRINT S$( INT( RND(7) *3)): NORMAL : PRINT
5035 FOR T = 1 TO LO: IF CP = OB%(T) THEN PRINT OB$(T)
5040 NEXT : PRINT : PRINT : INVERSE : PRINT "IDENTIFIED EXITS:": NORMAL : PRINT
5045 FOR Y = 1 TO 4: IF D%(Y) THEN PRINT D$(Y)" * ";
5050 NEXT : CALL 7936
5065 X1 = 110:Y1 = 140: FOR T = 1 TO LO: IF CX%(T) = 0 THEN NEXT
5070 IF OB%(T) = CP THEN GOSUB 5100
5080 NEXT
5085 A = CP: RETURN
5100 IF T = 19 OR T = 18 THEN POKE XC,116: POKE YC,95: GOTO 5160
5105 IF T = 30 THEN POKE XC,103: POKE YC,97: GOTO 5160
5110 IF T = 25 OR T = 29 THEN POKE XC,140: POKE YC,92: GOTO 5160
5115 IF T = 27 THEN POKE XC,180: POKE YC,70: GOTO 5160
5117 IF T = 20 THEN POKE XC,129: POKE YC,120: GOTO 5160
5120 IF T = 4 OR T = 6 OR T = 8 OR T = 17 OR T = 26 OR T = 33 THEN POKE XC,122: POKE YC,90: GOTO 5160
5122 IF T = 32 THEN POKE XC,130: POKE YC,115: GOTO 5160
5123 IF T = 11 AND CP = 20 THEN POKE XC,129: POKE YC,90: GOTO 5160
5125 IF T = 13 THEN HCOLOR= 0: HPLOT 110,140 TO 110,80 TO 170,80 TO 170,140: RETURN
5140 POKE XC,X1: POKE YC,Y1:X1 = X1 +7 *CX%(T): IF X1 >170 THEN X1 = 110:Y1 = Y1 -25: IF Y1 <0 THEN Y1 = 168
5160 POKE T0,YY%(T): POKE T1,XX%(T): POKE TB,CX%(T): POKE TH,CY%(T): POKE 1276,0: CALL FD: RETURN
6000 FOR T = 1 TO LEN(A$): IF MID$ (A$,T,1) = " " THEN 6030
6010 NEXT
6020 AN$ = A$:AV$ = "": GOTO 6040
6030 AV$ = LEFT$(A$,T):AN$ = RIGHT$(A$, LEN(A$) -T)
6040 V3$ = LEFT$(A$,3): IF LEN(AV$) > = 3 THEN A3$ = LEFT$(AN$,3): RETURN
6050 V3$ = " ": RETURN
7000 GOSUB 62500: INVERSE : VTAB 1: HTAB 15: PRINT "INVENTORY:": VTAB 3: HTAB 8: PRINT " "
7010 FOR T = 1 TO LO: IF OB%(T) = -1 THEN HTAB 8: PRINT " ";: NORMAL : PRINT OB$(T);: FOR X = 0 TO 20: POKE SP,0: NEXT : INVERSE : HTAB 31: PRINT " "
7020 NEXT : HTAB 8: PRINT " ": VTAB 18: HTAB 17: PRINT "STATUS": PRINT "FORCE-FIELD ENERGY DAMAGE": NORMAL : IF S THEN PRINT "ON";
7025 IF S = 0 THEN PRINT "OFF";
7030 HTAB 18: PRINT 1000 -E;: HTAB 35: PRINT INT(2.5 *B)"%": PRINT "READY";: GET A$: RETURN
8000 IF D%(T) >0 THEN CP = D%(T)
8010 RETURN
9000 IF C <2 THEN 120
9005 GOSUB 62500: HTAB 1: PRINT "THE LAREN TROOPS IN YOUR PURSUIT": PRINT : PRINT "HAVE REACHED YOU!": PRINT : GOSUB 62000
9010 PRINT "ENERGETIC FORCE-FIELDS MAKE": PRINT : PRINT "ESCAPE IMPOSSIBLE....": GET A$: GOTO 61020
10000 IF V3$ = "GET" AND OB%(2) = CP THEN OB%(2) = -1: GOSUB 62500: VTAB 10: PRINT "THE COOL METAL OF THE GLEEMING": PRINT "DEVICE GIVES YOU A FEELING OF": PRINT "TOTAL SECURITY......": GOSUB 62000: RETURN
10005 IF OB%(2) = -1 THEN GOSUB 10030: RETURN
10010 IF OB%(2) < >CP THEN 10025
10015 IF V3$ = "DES" THEN CALL S2: GOSUB 62500: PRINT "GREEN CLOUDS OF GAS RISE LAZILY FROM THE BOMB...": GOSUB 62000: PRINT "THE BOMB HAS DISAPPEARED!": GOSUB 62000:OB%(2) = 0: RETURN
10020 IF V3$ = "BLA" THEN CALL S2: GOSUB 62500: VTAB 10: PRINT "THE BLINDING BEAM EATS ITS WAY INTO THE BOMB....": GOSUB 62000: PRINT : PRINT "IT'S EXPLODI.....": GET A$:E = E +5: GOTO 61020
10025 PRINT "THAT IS NOT POSSIBLE.....": GOSUB 62000: RETURN
10030 IF V3$ = "IGN" THEN GOSUB 10060
10035 IF V3$ = "THR" THEN T = S:S = 1: GOSUB 10060:S = T
10040 IF V3$ = "DRO" THEN OB%(2) = CP: GOSUB 62500: PRINT "A MUFFLED THUMP..... THE BOMB IS ON THE FLOOR!": GOSUB 62000: RETURN
10045 IF CP = 5 OR CP = 12 OR CP = 21 THEN GOSUB 10090
10050 IF OB%(2) = 0 THEN RETURN
10055 PRINT "THAT'S NOT THE WAY TO HANDLE BOMBS!": GOSUB 62000: RETURN
10060 OB%(2) = 0: FOR T = 1 TO LO: IF OB%(T) = CP THEN OB%(T) = 0
10065 NEXT : IF S = 1 THEN GOSUB 62500: SPEED= 150:B = 5: PRINT "A BLINDING FLASH....": PRINT : PRINT "THE BOMB EXPLODED!": GOSUB 62000: RETURN
10070 SPEED= 150:B = 15: FOR T = 1 TO LO: IF OB%(T) = -1 THEN OB%(T) = 0
10075 NEXT : GOSUB 62500: PRINT "BOOOOOOOOMMMMM!!!!": GOSUB 62000
10080 PRINT : PRINT "YOU THROW BOMBS!!": GET A$: RETURN
10090 IF CP = 5 AND OB%(3) = 0 THEN OB%(4) = 5: GOSUB 62500: PRINT "YOU'VE DISCOVERED SOMETHING!": GOSUB 62000: RETURN
10095 IF CP = 12 AND OB%(7) >0 THEN OB%(7) = 0:OB%(8) = 12: GOSUB 62500: PRINT "THERE'S SOMETHING HERE...": GOSUB 62000: RETURN
10100 IF CP = 21 AND OB%(13) >0 THEN OB%(13) = 0:OB%(14) = 21: GOSUB 62500: PRINT "THERE'S SOMETHING GOING ON..": GOSUB 62000: RETURN
10105 GOSUB 62500: PRINT "HOW SHOULD THAT WORK?": GOSUB 62000: RETURN
10200 IF V3$ = "GET" AND OB%(5) = CP THEN OB%(5) = -1: GOSUB 62500: VTAB 10: PRINT "THE CUBE GLOWS IN A WARM LIGHT.....": GOSUB 62000: PRINT : PRINT "WHAT INFORMATION MIGHT IT CONTAIN?": GOSUB 62000: RETURN
10210 IF V3$ = "DES" AND OB%(5) = CP THEN OB%(5) = 0: CALL S2: GOSUB 62500: PRINT "IT DISSOLVES INTO A CLOUD OF GAS..": GOSUB 62000: RETURN
10220 IF V3$ = "ACT" AND OB%(5) = -1 THEN 10270
10230 IF V3$ = "DRO" AND OB%(5) = -1 THEN OB%(5) = CP: GOSUB 62500: PRINT "AS A GLOWING ISLAND OF LIGHT, YOU LEAVE THE CUBE BEHIND...": GOSUB 62000: RETURN
10240 IF V3$ = "BLA" AND OB%(5) = CP THEN CALL S2: GOSUB 62500: PRINT "IN BLINDING LIGHT, THE CUBE IS DESTROYED": GOSUB 62000:OB%(5) = 0:E = E +5: RETURN
10250 IF OB%(5) < >CP THEN PRINT "NOT POSSIBLE!": GOSUB 62000: RETURN
10260 PRINT "THAT'S NO WAY TO UTILIZE AN INFOCUBE!": GOSUB 62000: RETURN
10270 GOSUB 62500: VTAB 8: PRINT "THE CUBE GLOWS BRIGHTER....": GOSUB 62000: PRINT : PRINT "A QUESTION APPEARS ON": PRINT "A FACET OF THE CUBE!": GOSUB 62000
10272 HOME : VTAB 5: PRINT "WHICH INFO-MODULE:": PRINT : PRINT "1 - 9 ->";: GET A$: HOME : VTAB 12
10273 E = E +5:AW = VAL(A$): IF AW <1 OR AW >9 THEN PRINT : PRINT : GOTO 10260
10275 ON AW GOSUB 10280,10281,10282,10283,10284,10285,10286,10287,10288
10276 IU = IU +1: IF IU >1 THEN OB%(5) = 0: HOME : VTAB 12: PRINT "THE CUBE SELF-DESTRUCTS IN A SOFT GLOW!": GOSUB 62000
10277 RETURN
10280 PRINT "SPACE-SUIT........1.....2........DOOR": GOTO 10292
10281 PRINT "SUITS COMPLICATE IDENTIFICATION!": GOTO 10292
10282 PRINT "NOTHING IS AS IT APPEARS TO BE!": GOTO 10292
10283 PRINT "ROBOTS DIMINISH CHANCES OF SURVIVAL!": GOTO 10292
10284 PRINT "THE INFO-CUBE IS A KEY": GOTO 10292
10285 PRINT "BLASTING IS HELPFUL AT TIMES!": GOTO 10292
10286 PRINT "CLIPS SECURE ENTRY": GOTO 10292
10287 PRINT "ONLY ANSON ARGYRIS MAY SURVIVE": GOTO 10292
10288 PRINT "AFTER 2 ACTIVATIONS, THE INFO-CUBE BLOWS-UP!": GOTO 10292
10292 GOSUB 62000: RETURN
10300 IF CP = 11 THEN GOSUB 62500: PRINT "KAAAAABBOOOOOOOOOMMMMM!!!!!": GOSUB 62000: GOTO 61020
10305 IF CP = 12 AND OB%(5) = 12 AND V3$ = "ENT" AND OB%(7) = 0 AND OB%(8) >0 THEN X = 23:Y = 8:CP = X: GOSUB 62500: PRINT "THE CAPSULE ACCELERATES..": PRINT : GOSUB 62000: PRINT "IT DISRUPTS!": GOSUB 62000: GOSUB 12510: RETURN
10310 IF CP = 5 AND OB%(3) = 0 AND V3$ = "ENT" AND OB%(4) = CP THEN X = 31:Y = 4: GOSUB 10345: GOSUB 62500: PRINT "YOU FEEL THE TRANSMITTER STARTING UP!": GOSUB 62000:Y = 80: GOSUB 12500: RETURN
10315 IF CP = 36 AND OB%(20) = CP THEN X = 9:Y = 17: GOSUB 10345: IF CP = X THEN GOSUB 62500: VTAB 9: PRINT "TRACTOR-BEAMS......": GOSUB 62000: PRINT : PRINT "YOU HAVE ENTERED THE TRANSPORT CAGE...": GOSUB 62000: PRINT : PRINT "TRANSPORT HAS BEGUN!": GOSUB 62000: GOSUB 12510: RETURN
10316 IF X = 9 AND Y = 17 AND CP = 36 THEN RETURN
10320 IF CP = 29 AND V3$ = "ENT" AND OB%(26) = CP THEN GOSUB 62500: PRINT "A TRANSMITTERFIELD IS BUILDING UP!": GOSUB 62000:Y = 77: GOSUB 12500:CP = 44: IF OB%(14) = -1 THEN CP = 7: RETURN
10325 IF CP = 44 THEN RETURN
10330 PRINT "IMPOSSIBLE!!";: GOSUB 62000: RETURN
10335 IF V3$ = "OPE" OR V3$ = "TOU" OR V3$ = "PUS" THEN GOSUB 10360: RETURN
10340 PRINT "THAT IS NOT POSSIBLE!": GOSUB 62000: RETURN
10345 IF V3$ = "ENT" THEN CP = X: RETURN
10350 IF A3$ = "DES" THEN OB%(Y) = 0: CALL S2: RETURN
10355 PRINT "IT DOESN'T SEEM TO WORK!": GOSUB 62000: RETURN
10360 IF A3$ = "WAL" AND CP = 5 AND OB%(3) = 5 THEN OB%(3) = 0:OB%(4) = 5: GOSUB 62500: CALL S1: PRINT "THE WALL FLICKS OUT OF EXISTENCE!": GOSUB 62000: RETURN
10365 IF A3$ = "WAL" AND CP = 12 AND OB%(7) = 12 AND OB%(5) = 12 THEN OB%(7) = 0:OB%(8) = 12: GOSUB 62500: CALL S1: PRINT "THE WALL IS NO MATCH FOR YOUR": PRINT "INQUISITIVENESS!": GOSUB 62000: RETURN
10370 IF A3$ = "LOC" AND CP = 21 AND OB%(12) = 21 AND OB%(13) = 0 THEN OB%(12) = 0:OB%(13) = CP: GOSUB 62500: PRINT "THE LOCK GIVES...": GOSUB 62000: RETURN
10375 IF A3$ = "AIR" AND CP = 39 AND OB%(20) = -1 AND OB%(29) = 39 THEN CP = 36: GOSUB 62500: PRINT "YOU ARE INSIDE THE AIR-LOCK.": GOSUB 62000: PRINT : PRINT "THE OPPOSITE HATCH SLIDES OPEN!": GOSUB 62000: RETURN
10380 IF A3$ = "BUL" AND CP = 21 AND OB%(13) = CP THEN CP = N: GOSUB 62500: PRINT "A TRACTORBEAM GRABS YOU FROM INSIDE.... ........PULLING YOU IN!": PRINT : GOSUB 62000: PRINT "THE BULKHEAD SLIDES SHUT.": GOSUB 62000: RETURN
10385 IF A3$ = "DOO" AND OB%(28) = CP AND CP = 42 THEN CP = 39: GOSUB 62500: CALL S1: PRINT "YOU'RE MOVING THROUGH A DUSTY": PRINT : PRINT "AND NARROW MAINTENANCE SHAFT..": GOSUB 62000: RETURN
10390 IF A3$ = "DOO" AND CP = 26 AND OB%(14) = -1 THEN GOSUB 62500: CALL S1: PRINT "THE WALL HID A SECRET PASSAGEWAY!": GOSUB 62000:CP = 27: RETURN
10395 IF A3$ = "WAL" AND CP = 34 AND OB%(10) = -1 THEN CP = 36: GOSUB 62500: CALL S1: PRINT "A WALKWAY STARTS MOVING...": PRINT : PRINT "YOU SEE A LIGHT IN THE DISTANCE.": GOSUB 62000: RETURN
10400 IF A3$ = "BUL" AND CP = 39 AND OB%(11) = -1 AND OB%(18) = 39 THEN OB%(18) = 0:OB%(19) = CP: GOSUB 62500: PRINT "THE BULKHEAD SLIDES ASIDE!": PRINT : PRINT "YOU ENCOUNTER ANOTHER OBSTACLE...": GOSUB 62000: RETURN
10405 IF A3$ = "GAT" AND CP = 39 AND OB%(14) = 39 AND OB%(18) = 0 THEN CP = 40: GOSUB 62500: PRINT "MEMORY-SECTOR 2/A-36 ACTIVATED:": GOSUB 62000: PRINT : PRINT "DESTINATION HAS BEEN REACHED.": GOSUB 62000: RETURN
10410 IF CP = 29 AND A3$ = "BUL" AND OB%(25) = CP THEN OB%(25) = 0:OB%(26) = CP: GOSUB 62500: PRINT "ANOTHER DISCOVERY...": GOSUB 62000: RETURN
10415 PRINT "YOU'RE DOING SOMETHING WRONG!": GOSUB 62000: RETURN
11000 IF (V3$ = "DES" OR V3$ = "BLA") AND OB%(14) = CP THEN CALL S2:OB%(14) = 0: GOSUB 62500: PRINT "ONLY THE PITIFUL REMNANTS REMIND YOU OF THE SUIT.": GOSUB 62000:E = E +5: RETURN
11005 IF OB%(11) < > -1 AND OB%(14) = CP THEN PRINT "THE SUIT DOESN'T FIT YOU ANYHOW!": GOSUB 62000: RETURN
11010 IF (V3$ = "UNF" OR V3$ = "REM") AND OB%(14) = -1 THEN OB%(14) = CP: GOSUB 62500: PRINT "YOU SLIP OUT OF THE SPACESUIT....": GOSUB 62000: RETURN
11015 IF (V3$ = "FAS" OR V3$ = "WEA") AND CP = OB%(14) THEN OB%(14) = -1: GOSUB 62500: PRINT "IT FITS PERFECTLY!!": GOSUB 62000: RETURN
11020 PRINT "HOW DO YOU EXPECT THAT TO WORK?": GOSUB 62000: RETURN
11100 IF (V3$ = "WEA" OR V3$ = "FAS") AND OB%(11) = CP THEN OB%(11) = -1: GOSUB 62500: PRINT "YOU HAVE CHANGED BACK TO THE EMPEROR OF THE FREE TRADERS!": GOSUB 62000: RETURN
11105 IF (V3$ = "REM" OR V3$ = "UNF") AND OB%(11) = -1 AND OB%(14) < > -1 THEN OB%(11) = CP: GOSUB 62500: PRINT "AND YOU WERE REALLY FOND OF HIM!": GOSUB 62000:F = 1: IF OB%(10) = -1 THEN OB%(10) = CP: RETURN
11110 IF F = 1 THEN F = 0: RETURN
11115 IF (V3$ = "DES" OR V3$ = "BLA") AND OB%(11) = CP THEN CALL S2:OB%(11) = 0: GOSUB 62500: PRINT "ANSON ARGYRIS IS DEAD..LONG LIVE VARIO": GOSUB 62000:E = E +5: RETURN
11120 PRINT "THAT WOULDN'T WORK OUT": GOSUB 62000: RETURN
11200 IF (V3$ = "FAS" OR V3$ = "WEA") AND OB%(14) < > -1 AND OB%(11) = -1 AND OB%(10) = CP THEN OB%(10) = -1: GOSUB 62500: PRINT "THE CLIPS ARE YOURS, ONCE AGAIN.": GOSUB 62000: RETURN
11205 IF (V3$ = "DES" OR V3$ = "BLA") AND OB%(10) = CP THEN CALL S2: GOSUB 62500: PRINT "THEY ARE FOREVER LOST!":OB%(10) = 0: GOSUB 62000:E = E +5: RETURN
11210 IF (V3$ = "REM" OR V3$ = "UNF") AND OB%(10) = -1 AND OB%(14) < > -1 THEN OB%(10) = CP: GOSUB 62500: PRINT "THEY DROP TO THE GROUND.": GOSUB 62000: RETURN
11215 PRINT "YOU CAN'T DO THAT NOW...": GOSUB 62000: RETURN
11300 IF A3$ = "AMM" AND V3$ = "OPE" AND OB%(27) = CP THEN PRINT "EMPTY..": GOSUB 62000: RETURN
11310 IF A3$ = "AMM" AND OB%(27) = CP AND (V3$ = "BLA" OR V3$ = "DES") THEN CALL S2:OB%(27) = 0:OB%(28) = CP: GOSUB 62500: PRINT "THERE'S SOMETHING BEHIND IT!": GOSUB 62000:E = E +5: RETURN
11320 PRINT "WON'T WORK!": GOSUB 62000: RETURN
11400 IF OB%(20) = CP AND V3$ = "GET" THEN OB%(20) = -1: GOSUB 62500: PRINT "IT'S AN INDUSTRIAL-GRADE CRYSTAL!": GOSUB 62000: RETURN
11410 IF OB%(20) = CP AND (V3$ = "BLA" OR V3$ = "DES") THEN CALL S2:OB%(20) = 0: GOSUB 62500: PRINT "THE CRYSTAL BURSTS!": GOSUB 62000:E = E +5: RETURN
11420 IF OB%(20) = -1 AND (V3$ = "DRO" OR V3$ = "INS") THEN OB%(20) = CP:F = 1: IF CP = 36 THEN GOSUB 62500: PRINT "THE TRANSMITTER IS READY!": GOSUB 62000:F = 0: RETURN
11430 IF F THEN F = 0: RETURN
11440 PRINT "THAT'S IMPOSSIBLE!": GOSUB 62000: RETURN
11500 GOSUB 62500: SPEED= 200: PRINT "ATTENTION": PRINT "THIS IS THE SECTOR POSITRONICON SPEAKING": PRINT : PRINT "YOUR PRESENCE IN A SECTOR OPEN ONLY TO PERSONS CLEARED FOR SECURITY RATING 'A'"
11510 PRINT "MAKES AN IDENTITY CHECK INDISPENSABLE!": PRINT : PRINT "I MUST BRING TO YOUR ATTENTION THE FACT,THAT A NEGATIVE RESULT WILL BE FOLLOWED BY YOUR DESTRUCTION."
11520 F = 1: SPEED= 255: GOSUB 62000: GOSUB 62000: HOME : VTAB 12: INPUT "GIVE THE FULL NAME OF THE FOUNDER OF THEFREE TRADERS-->";A$
11530 IF A$ = "LOVELY BOSCYK" THEN HOME : VTAB 12: PRINT "THE WALL YIELDS!": GOSUB 62000: RETURN
11540 CP = 44: RETURN
11600 POKE SC,0:P = 0: IF A3$ < >"LAR" OR (V3$ < >"DES" AND V3$ < >"BLA") THEN 11650
11610 OB%(30) = 0: POKE T0,0: POKE T1,8: POKE TH,21: POKE TB,3: FOR T = 0 TO 20: POKE XC,255: POKE YC,50: CALL FD: NEXT
11615 Y = 50: FOR X = 255 TO 105 STEP -1: POKE XC,X: POKE YC,Y: CALL FD:Y = Y +.29: POKE SP,0
11620 POKE XC,X -1: POKE YC,Y: CALL FD: NEXT : CALL S2: POKE XC,103: POKE YC,97: POKE T0,63: POKE T1,8: POKE TB,3: POKE TH,21: FOR T = 1 TO 21: CALL FD: NEXT : POKE TH,20: POKE T0,107: POKE T1,10: CALL FD
11630 POKE TH,21: POKE T0,0: POKE T1,8: POKE XC,104: POKE YC,93: CALL FD: VTAB 23: PRINT "THE LAREN IS DEAD.....": GOSUB 62000: RETURN
11650 CALL S2: HCOLOR= 3: HPLOT 115,100 TO 279,120: GOSUB 62000: HCOLOR= 2: HPLOT 115,100 TO 279,120: SPEED= 150:B = 10: IF S = 0 THEN B = 20: FOR T = 1 TO LO: IF OB%(T) = -1 THEN OB%(T) = 0
11652 IF S = 0 THEN NEXT
11655 VTAB 23: PRINT "THE LAREN HAS SHOT YOU!": GOSUB 62000:CP = 47: POP : GOTO 61000
11699 RETURN
11700 IF OB%(14) = -1 THEN 11720
11702 IF OB%(11) < > -1 THEN 11720
11705 OB%(11) = 0: GOSUB 62500: PRINT "YOUR MASK DIED OF EXPLOSIVE DECOMPRESSION!": GOSUB 62000
11710 IF OB%(10) = -1 AND OB%(11) = 0 THEN OB%(10) = CP
11715 A$ = "": RETURN
11720 IF OB%(32) = CP THEN IF A3$ = "CON" THEN GOSUB 11750: RETURN
11730 RETURN
11750 A$ = "": IF V3$ = "DES" OR V3$ = "BLA" THEN CALL S2:OB%(32) = 0:CP = 44:E = E +5: RETURN
11770 IF V3$ = "ACT" OR V3$ = "USE" THEN OB%(32) = 0:CP = 27: GOSUB 62500: PRINT "A FORCEFIELD SEIZES YOU...": GOSUB 62000: RETURN
11780 PRINT "DOESN'T WORK!": GOSUB 62000: RETURN
11800 IF OB%(11) = -1 THEN GOSUB 62500: PRINT "HAIL EMPEROR ANSON ARGYRIS!": GOSUB 62000:OB%(33) = 0: HOME : VTAB 12: PRINT "BEFORE YOU ARE ABLE TO REACT,": PRINT "THE ROBOT DISAPPEARS!": GOSUB 62000: RETURN
11810 IF A3$ = "ROB" AND V3$ = "BLA" THEN CALL S2:OB%(33) = 0: GOSUB 62500: PRINT "YOU HAVE DESTROYED IT!": GOSUB 62000:E = E +5: RETURN
11820 GOSUB 62500: PRINT "THE ROBOT'S ACTIVATING ITS WEAPONSSYSTEM": GOSUB 62000: CALL S2: PRINT : PRINT "A BEAM ENGULFS YOU....": GOSUB 62000
11830 B = 15: SPEED= 150: IF S THEN HOME : VTAB 12: PRINT "YOUR FORCEFIELD HAS BEEN SATURATED": PRINT "ALL SYSTEMS OVERLOAD....": GOSUB 62000: POP :CP = 46: GOTO 61000
11840 FOR T = 1 TO LO: IF OB%(T) = -1 THEN OB%(T) = 0
11850 NEXT :B = 20: HOME : VTAB 12: PRINT "YOUR SHELL HAS SUFFERED SEVERE SHOCK.": PRINT "INTERNAL DAMAGE IS SEVERE!": PRINT : PRINT "DEATH IS IMMINENT!": GOSUB 62000: POP :CP = 46: GOTO 61000
11900 IF A3$ = "COM" OR A3$ = "ROB" THEN GOSUB 62500: PRINT "YOU'VE ATTRACTED THE ROBOTS ATTENTION...": PRINT : PRINT "IT'S ACTIVATING A TRANSMITTER!":Y = 70: GOSUB 62000:CP = 30: GOSUB 12500
11910 RETURN
12000 GOSUB 62500: PRINT "THE KEY WAS A TRAP...": GOSUB 62000:CP = N: GOTO 61000
12500 POKE SC,0:X = 140: FOR T = 25 TO -.5 STEP -.5:V = T ^2/20: HCOLOR= 5: HPLOT X +T,Y +V TO X -T,Y +V: CALL S1: HCOLOR= 4: HPLOT X +T -4,Y +V TO X -T +4,Y +V: NEXT
12510 POKE SC,0: FOR T = 0 TO 10: CALL IN: FOR P = 20 -2 *T TO 0 STEP -1:Z = PEEK(SP) + PEEK(SP): NEXT : CALL IN: NEXT :P = 0: HGR : RETURN
60000 HGR : TEXT : HOME : PRINT "ATTENTION:": PRINT "THIS IS THE SECTOR POSITRONICON SPEAKING"
60005 AW = (1000 -E) *.1075:VK$ = CHR$(90 -OB%(19)) + STR$(E) + CHR$(66 +OB%(5)) + LEFT$( STR$(AW - INT(AW)) +"000",3)
60010 PRINT "WELCOME, VARIO-500. YOU HAVE BEEN IDENT-IFIED 100 PERCENT.": PRINT : PRINT "PERFORMANCE ANALYSIS: "; INT(AW)"%"
60012 PRINT "VERIFICATION CODE: ";VK$
60015 IF E >69 THEN PRINT "YOU COULD HAVE DONE BETTER!": GOTO 60025
60020 PRINT "EXCELLENT PERFORMANCE!"
60025 PRINT : PRINT "THERE IS A MESSAGE AWAITING YOU FROM EARTH, IT ARRIVED SHORTLY BEFORE TERRA WAS TRANSPORTED BY THE ARTIFICIAL SOLAR TRANSMITTER."
60030 PRINT "THE TRANSPORT FAILED, EARTH DID NOT MATERIALIZE AT THE PLANNED COORDINATES, BUT A SEARCH IS UNDER WAY.": PRINT : PRINT "STILL, THE MESSAGE BEARS RELEVANCE."
60035 PRINT : PRINT "I WILL PROCEED WHEN YOU ARE READY";: GET A$: HOME
60040 PRINT "FROM: PERRY RHODAN, ADMINISTRATOR S.E.": PRINT "TO: ANSON ARGYRIS": PRINT "SUBJECT: FUTURE ACTIONS": PRINT
60045 PRINT "VARIO 500 - THESE ORDERS WILL BE YOUR LAST FOR AN UNKNOWN PERIOD OF TIME.": PRINT : PRINT "WE HAVE RECEIVED INFORMATION CONCERNING ENTITIES KNOWN AS"
60050 PRINT "'THE KNIGHTS OF THE DEEP'.": PRINT : PRINT "WE HAVE BEEN URGED TO GATHER AS MUCH INFORMATION AS POSSIBLE, AND TO CONTACT THE ABOVE."
60055 PRINT "YOU WILL BE SUPPLIED WITH A SPACESHIP, ITS COMPUTER PROGRAMMED WITH ALL THE NECESSARY DATA TO REACH A POINT IN SPACEFROM WHERE YOU WILL START YOUR INVEST- IGATION."
60060 PRINT : PRINT "WE ARE REQUIRED TO HEED THE FOLLOWING WORDS:'FEAR THE HORDES OF GARBESH'.": PRINT : PRINT "THIS IS ALL WE KNOW, GOOD LUCK...";: GET A$
60070 HOME : HGR : PRINT : PRINT "BLOADBILD40,A$8000": CALL 7936: VTAB 22: HTAB 16: PRINT "THE END": VTAB 1: PRINT : GET A$: PRINT : GOTO 62750
61000 HOME : TEXT : VTAB 3: PRINT "OPENZIMMER,L208": PRINT "READZIMMER,R";CP: INPUT P$: PRINT "CLOSEZIMMER": INVERSE : PRINT B$: NORMAL : PRINT : PRINT P$: VTAB 22: GET A$
61020 HOME : GR : COLOR= 3: FOR T = 17 TO 22: VLIN 0,39 AT T: HLIN 9,30 AT T -12: NEXT : VTAB 21: HTAB 9: FLASH : PRINT "YOUR QUEST HAS FAILED!": INVERSE : HTAB 8: PRINT "YOU HAVE PLAYED ";C;" TURNS": NORMAL
61030 PRINT "PLAY AGAIN (Y/N): ";
61040 GET CH$: IF CH$ < >"Y" AND CH$ < >"N" THEN 61040
61050 PRINT CH$: TEXT : HOME
61060 IF CH$ = "N" THEN 62750
61070 POKE 49239,0
61080 RUN
62000 FOR T = 0 TO 4000: NEXT : SPEED= 255: RETURN
62500 HOME : TEXT : VTAB 12:P = 1: RETURN
62600 ONERR GOTO 62690
62610 PRINT "OPENSAVE": PRINT "READSAVE"
62620 FOR T = 1 TO LO: INPUT OB%(T): NEXT : INPUT C,CP,E,S,B,IU
62630 PRINT "CLOSESAVE": POKE 216,0: IF B >0 THEN SPEED= 150
62635 RETURN
62690 POKE 216,0: GOSUB 62500: HTAB 12: PRINT "NO GAME ON HOLD": GOSUB 62000: PRINT "CLOSESAVE": GOTO 90
62700 PRINT "OPENSAVE": PRINT "WRITESAVE"
62710 FOR T = 1 TO LO: PRINT OB%(T): NEXT : PRINT C: PRINT CP: PRINT E: PRINT S: PRINT B: PRINT IU
62720 PRINT "CLOSESAVE": RETURN
62750 TEXT : HOME : VTAB 7: HTAB 10: PRINT "INSERT DISK TO BOOT": PRINT : HTAB 10: PRINT "THEN PRESS ": PRINT : HTAB 19
62755 GET CH$: IF CH$ < > CHR$(13) THEN 62755
62760 PRINT : CALL 46939
62765 PRINT CHR$(4)"FP"
63000 DATA 2,20,11,126,3,21,8,126,,5,20,9,143,3,21,8,189,5,23,12,20,,5,23,12,20,,4,21,8,252,3,21,9,80,,3,20,12,135,5,20,10,167,,,5,20,9,143,3,20,12,135,3,20,12,195,3,20,10,47,,,,,3,20,12,135,5,20,9,143,5,22,11,166,,5,23,12,255
63010 DATA 3,21,8,63,3,20,9,243,3,15,13,114,5,23,11,11
Text found in Caves_of_Olympus_The_1982_Sams_Software.do/SAVE.txt:
1
-1
5
0
-1
11
12
0
13
17
20
21
0
24
0
34
0
39
0
42
0
0
0
0
29
0
42
0
39
32
24
30
19
30
5
40
0
0
1
- Addeddate
- 2014-06-12 21:03:45
- Emulator
- apple2e
- Emulator_ext
- do
- Identifier
- a2_Caves_of_Olympus_The_1982_Sams_Software
- Scanner
- Internet Archive Python library 0.6.5
comment
Reviews
316 Views
DOWNLOAD OPTIONS
IN COLLECTIONS
The Apple II Library: Games The Software Library: Apple Computer Software Library The Emulation StationUploaded by Jason Scott on