CAVEMAN
FILE INFORMATION
FILENAME(S): CAVEMAN
FILE TYPE(S): PRG
FILE SIZE: 14.5K
FIRST SEEN: 2025-11-30 16:58:02
APPEARS ON: 1 disk(s)
FILE HASH
dc36e94e16f8046edf4402f84e845bfd8c60e52ad009e0d4e3eb7a892f3390a9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CAVEMAN SIDE 1 | CAVEMAN | PRG | High Voltage Complete C64 Collection, Markus Merz | 28 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 0A 25 0A 0A 00 8B C2 28 32 30 35 37 29 B3 B1 |..%.....(2057)..|
00000010: 33 30 A7 93 22 43 2F 4D 20 4C 45 54 54 45 52 53 |30.."C/M LETTERS|
00000020: 22 2C 38 2C 31 00 42 0A 6E 00 86 43 41 24 28 31 |",8,1.B.n..CA$(1|
00000030: 32 29 3A 8F 2D 43 4F 4D 4D 41 4E 44 20 41 52 52 |2):.-COMMAND ARR|
00000040: 41 59 00 79 0A 78 00 86 50 52 24 28 34 33 29 3A |AY.y.x..PR$(43):|
00000050: 86 50 52 25 28 34 33 29 3A 8D 34 31 34 30 3A 8F |.PR%(43):.4140:.|
00000060: 2D 50 4F 53 53 49 42 4C 45 20 52 45 53 50 4F 4E |-POSSIBLE RESPON|
00000070: 53 45 20 41 52 52 41 59 53 00 AD 0A 82 00 86 56 |SE ARRAYS......V|
00000080: 41 24 28 36 35 29 3A 8D 34 31 39 30 3A 8F 2D 4C |A$(65):.4190:.-L|
00000090: 4F 4F 4B 55 50 20 54 41 42 4C 45 20 4F 46 20 41 |OOKUP TABLE OF A|
000000A0: 4C 4C 20 56 45 52 42 53 20 55 53 45 44 00 E9 0A |LL VERBS USED...|
000000B0: 8C 00 86 4E 41 24 28 36 29 3A 8D 34 32 34 30 3A |...NA$(6):.4240:|
000000C0: 8F 2D 54 41 42 4C 45 20 4F 46 20 4E 4F 54 48 49 |.-TABLE OF NOTHI|
000000D0: 4E 47 20 41 43 43 4F 4D 50 4C 49 53 48 45 44 20 |NG ACCOMPLISHED |
000000E0: 52 45 53 50 4F 4E 53 45 53 00 26 0B 96 00 86 4F |RESPONSES.&....O|
000000F0: 42 25 28 31 38 2C 34 29 3A 8F 2D 30 3D 58 44 49 |B%(18,4):.-0=XDI|
00000100: 4D 2C 31 3D 59 44 49 4D 2C 32 3D 50 4F 53 53 45 |M,1=YDIM,2=POSSE|
00000110: 53 53 49 4F 4E 2C 33 3D 55 53 52 23 2C 34 3D 53 |SSION,3=USR#,4=S|
00000120: 50 52 49 54 45 23 00 61 0B A0 00 86 4F 42 24 28 |PRITE#.a....OB$(|
00000130: 31 38 2C 32 29 3A 8D 34 32 39 30 3A 8F 3A 30 3D |18,2):.4290:.:0=|
00000140: 59 4F 55 20 53 45 45 2C 31 3D 47 45 54 20 4F 52 |YOU SEE,1=GET OR|
00000150: 20 47 52 41 42 2C 32 3D 48 49 4E 54 20 54 45 58 | GRAB,2=HINT TEX|
00000160: 54 00 9C 0B AA 00 86 50 49 25 28 37 2C 35 2C 33 |T......PI%(7,5,3|
00000170: 29 3A 8D 34 33 35 30 3A 8F 2D 30 3D 44 49 53 4B |):.4350:.-0=DISK|
00000180: 2C 31 3D 50 49 43 2C 32 3D 44 41 54 41 2C 33 3D |,1=PIC,2=DATA,3=|
00000190: 46 52 41 4D 45 20 41 43 43 45 53 53 00 E0 0B B4 |FRAME ACCESS....|
000001A0: 00 86 57 4E 25 28 36 29 3A 8F 2D 41 52 52 41 59 |..WN%(6):.-ARRAY|
000001B0: 20 55 53 45 44 20 54 4F 20 52 45 43 4F 52 44 20 | USED TO RECORD |
000001C0: 20 57 4F 52 44 20 50 4F 53 49 54 49 4F 4E 20 49 | WORD POSITION I|
000001D0: 4E 20 43 4F 4D 4D 41 4E 44 20 53 54 52 49 4E 47 |N COMMAND STRING|
000001E0: 00 F5 0B BE 00 43 44 25 B2 31 3A 46 52 B2 30 3A |.....CD%.1:FR.0:|
000001F0: 47 4D 25 B2 31 00 24 0C C8 00 8D 31 37 34 30 30 |GM%.1.$....17400|
00000200: 3A 8F 2D 46 49 52 53 54 20 53 43 52 45 45 4E 20 |:.-FIRST SCREEN |
00000210: 41 4E 44 20 4F 50 45 4E 49 4E 47 20 53 45 51 55 |AND OPENING SEQU|
00000220: 45 4E 43 45 00 3C 0C E8 03 8F 2D 4D 41 49 4E 20 |ENCE.<....-MAIN |
00000230: 43 4F 4D 4D 41 4E 44 20 4C 4F 4F 50 00 58 0C F2 |COMMAND LOOP.X..|
00000240: 03 8F 2D 47 45 54 20 41 20 53 54 52 49 4E 47 20 |..-GET A STRING |
00000250: 46 52 4F 4D 20 4B 42 44 00 6D 0C FC 03 A1 4C 24 |FROM KBD.m....L$|
00000260: 3A 8B 4C 24 B3 B1 22 22 89 31 30 32 30 00 9B 0C |:.L$.."".1020...|
00000270: 06 04 43 43 24 B2 22 22 3A 9E 34 39 32 33 38 3A |..CC$."":.49238:|
00000280: 99 22 57 48 41 54 20 44 4F 20 59 4F 55 20 57 41 |."WHAT DO YOU WA|
00000290: 4E 54 20 54 4F 20 44 4F 3F 20 22 00 AF 0C 10 04 |NT TO DO? ".....|
000002A0: A1 4C 24 3A 8B 4C 24 B2 22 22 89 31 30 34 30 00 |.L$:.L$."".1040.|
000002B0: E0 0C 1A 04 8B 4C 24 B2 22 85 22 AF 47 4D 25 B2 |.....L$.".".GM%.|
000002C0: 31 A7 9E 34 39 31 35 32 3A 8B 51 58 B2 33 AF 51 |1..49152:.QX.3.Q|
000002D0: 59 B2 32 A7 8D 32 35 37 30 30 3A 89 31 30 30 30 |Y.2..25700:.1000|
000002E0: 00 F3 0C 24 04 8B 4C 24 B2 22 86 22 A7 9E 34 39 |...$..L$."."..49|
000002F0: 32 33 38 00 32 0D 2E 04 8B 4C 24 B2 22 87 22 AF |238.2....L$.".".|
00000300: 47 4D 25 B2 30 A7 47 4D 25 B2 31 3A 99 22 47 52 |GM%.0.GM%.1:."GR|
00000310: 41 50 48 49 43 53 20 4D 4F 44 45 22 3A 44 B2 38 |APHICS MODE":D.8|
00000320: 3A 8D 33 39 32 30 3A 8D 33 36 38 30 3A 89 31 30 |:.3920:.3680:.10|
00000330: 30 30 00 5D 0D 30 04 8B 4C 24 B2 22 87 22 AF 47 |00.].0..L$.".".G|
00000340: 4D 25 B2 31 A7 47 4D 25 B2 30 3A 99 22 54 45 58 |M%.1.GM%.0:."TEX|
00000350: 54 20 4D 4F 44 45 22 3A 89 31 30 30 30 00 74 0D |T MODE":.1000.t.|
00000360: 38 04 8B 4C 24 B2 22 37 22 A7 4C 24 B2 22 54 48 |8..L$."7".L$."TH|
00000370: 45 4E 20 22 00 91 0D 42 04 8B 4C 24 B3 B1 C7 28 |EN "...B..L$...(|
00000380: 31 33 29 B0 C3 28 43 43 24 29 B2 30 89 31 31 32 |13)..(CC$).0.112|
00000390: 30 00 BE 0D 4C 04 8B CA 28 43 43 24 2C C3 28 43 |0...L...(CC$,.(C|
000003A0: 43 24 29 2C 31 29 B2 22 20 22 A7 43 43 24 B2 C8 |C$),1)." ".CC$..|
000003B0: 28 43 43 24 2C C3 28 43 43 24 29 AB 31 29 00 C8 |(CC$,.(CC$).1)..|
000003C0: 0D 56 04 89 31 31 39 30 00 F9 0D 60 04 8B 4C 24 |.V..1190...`..L$|
000003D0: B2 C7 28 32 30 29 AF C3 28 43 43 24 29 B1 30 A7 |..(20)..(CC$).0.|
000003E0: 43 43 24 B2 C8 28 43 43 24 2C C3 28 43 43 24 29 |CC$..(CC$,.(CC$)|
000003F0: AB 31 29 3A 89 31 31 37 30 00 0A 0E 6A 04 8B 4C |.1):.1170...j..L|
00000400: 24 B2 22 20 22 89 31 31 35 30 00 30 0E 74 04 8B |$." ".1150.0.t..|
00000410: 28 C6 28 4C 24 29 B3 36 35 B0 C6 28 4C 24 29 B1 |(.(L$).65..(L$).|
00000420: 39 30 29 AF 4C 24 B3 B1 22 A0 22 89 31 30 34 30 |90).L$..".".1040|
00000430: 00 6E 0E 7E 04 43 43 B2 C3 28 43 43 24 29 3A 8B |.n.~.CC..(CC$):.|
00000440: 43 43 B1 37 37 B0 28 4C 24 B2 22 20 22 AF C9 28 |CC.77.(L$." "..(|
00000450: 43 43 24 2C 31 29 B2 22 20 22 29 B0 28 43 43 B2 |CC$,1)." ").(CC.|
00000460: 30 AF 4C 24 B2 22 20 22 29 89 31 30 34 30 00 84 |0.L$." ").1040..|
00000470: 0E 88 04 9E 34 39 32 33 38 3A 43 43 24 B2 43 43 |....49238:CC$.CC|
00000480: 24 AA 4C 24 00 A3 0E 92 04 8B C3 28 43 43 24 29 |$.L$.......(CC$)|
00000490: B3 33 39 A7 99 43 43 24 3B 22 20 91 22 3A 89 31 |.39..CC$;" .":.1|
000004A0: 30 34 30 00 C3 0E 9C 04 8B C3 28 43 43 24 29 B1 |040.......(CC$).|
000004B0: 33 38 A7 99 43 43 24 3B 22 20 91 91 22 3A 89 31 |38..CC$;" ..":.1|
000004C0: 30 34 30 00 E9 0E A6 04 8F 2D 44 45 4C 45 54 45 |040......-DELETE|
000004D0: 20 41 4C 4C 20 22 54 48 45 22 28 53 29 20 49 4E | ALL "THE"(S) IN|
000004E0: 20 53 45 4E 54 45 4E 43 45 00 FD 0E B0 04 81 4C | SENTENCE......L|
000004F0: B2 31 A4 28 C3 28 43 43 24 29 AB 33 29 00 38 0F |.1.(.(CC$).3).8.|
00000500: BA 04 8B CA 28 43 43 24 2C 4C 2C 35 29 B2 22 20 |....(CC$,L,5)." |
00000510: 54 48 45 20 22 A7 43 43 24 B2 C8 28 43 43 24 2C |THE ".CC$..(CC$,|
00000520: 4C 29 AA C9 28 43 43 24 2C 28 C3 28 43 43 24 29 |L)..(CC$,(.(CC$)|
00000530: AB 28 4C AA 34 29 29 29 00 3F 0F C4 04 82 4C 00 |.(L.4))).?....L.|
00000540: 70 0F CE 04 8F 2D 44 45 54 45 52 4D 49 4E 45 20 |p....-DETERMINE |
00000550: 23 20 4F 46 20 22 54 48 45 4E 22 28 53 29 20 49 |# OF "THEN"(S) I|
00000560: 4E 20 43 4F 4D 4D 41 4E 44 20 53 54 52 49 4E 47 |N COMMAND STRING|
00000570: 00 A4 0F D8 04 99 3A 99 3A 4E 54 B2 30 3A 8B C3 |......:.:NT.0:..|
00000580: 28 43 43 24 29 B3 34 A7 43 41 24 28 30 29 B2 22 |(CC$).4.CA$(0)."|
00000590: 20 22 AA 43 43 24 AA 22 20 22 3A 51 B2 30 3A 89 | ".CC$." ":Q.0:.|
000005A0: 31 33 31 30 00 D4 0F E2 04 81 51 B2 31 A4 28 C3 |1310......Q.1.(.|
000005B0: 28 43 43 24 29 AB 34 29 3A 8B CA 28 43 43 24 2C |(CC$).4):..(CC$,|
000005C0: 51 2C 35 29 B2 22 20 54 48 45 4E 22 A7 4E 54 B2 |Q,5)." THEN".NT.|
000005D0: 4E 54 AA 31 00 FE 0F EC 04 82 51 3A 8B 4E 54 B2 |NT.1......Q:.NT.|
000005E0: 30 A7 43 41 24 28 30 29 B2 22 20 22 AA 43 43 24 |0.CA$(0)." ".CC$|
000005F0: AA 22 20 22 3A 51 B2 30 3A 89 31 33 31 30 00 35 |." ":Q.0:.1310.5|
00000600: 10 F6 04 8F 2D 53 45 50 41 52 41 54 45 20 43 4F |....-SEPARATE CO|
00000610: 4D 4D 41 4E 44 20 53 54 52 49 4E 47 20 49 4E 54 |MMAND STRING INT|
00000620: 4F 20 49 4E 44 49 56 49 44 55 41 4C 20 43 4F 4D |O INDIVIDUAL COM|
00000630: 4D 41 4E 44 53 00 57 10 00 05 43 43 24 B2 22 20 |MANDS.W...CC$." |
00000640: 22 AA 43 43 24 AA 22 20 22 3A 81 51 B2 30 A4 4E |".CC$." ":.Q.0.N|
00000650: 54 AB 31 3A 4C B2 32 00 89 10 0A 05 8B CA 28 43 |T.1:L.2.......(C|
00000660: 43 24 2C 4C 2C 35 29 B3 B1 22 20 54 48 45 4E 22 |C$,L,5).." THEN"|
00000670: AF 4C B3 28 C3 28 43 43 24 29 AB 34 29 A7 4C B2 |.L.(.(CC$).4).L.|
00000680: 4C AA 31 3A 89 31 32 39 30 00 BA 10 14 05 43 41 |L.1:.1290.....CA|
00000690: 24 28 51 29 B2 C8 28 43 43 24 2C 4C 29 3A 43 43 |$(Q)..(CC$,L):CC|
000006A0: 24 B2 CA 28 43 43 24 2C 4C AA 35 29 3A 82 51 3A |$..(CC$,L.5):.Q:|
000006B0: 43 41 24 28 51 29 B2 43 43 24 00 ED 10 1E 05 8F |CA$(Q).CC$......|
000006C0: 2D 43 48 45 43 4B 20 4C 49 53 54 20 4F 46 20 50 |-CHECK LIST OF P|
000006D0: 4F 53 53 49 42 4C 45 20 52 45 53 50 4F 4E 53 45 |OSSIBLE RESPONSE|
000006E0: 53 20 46 4F 52 20 41 20 4D 41 54 43 48 00 29 11 |S FOR A MATCH.).|
000006F0: 28 05 4A B2 30 3A 4A 4A B2 51 3A 8F 20 4A 3D 4E |(.J.0:JJ.Q:. J=N|
00000700: 55 4D 42 45 52 20 4F 46 20 43 55 52 52 45 4E 54 |UMBER OF CURRENT|
00000710: 20 43 4F 4D 4D 41 4E 44 20 49 4E 20 43 4F 4D 4D | COMMAND IN COMM|
00000720: 41 4E 44 20 41 52 52 41 59 00 65 11 32 05 4E 52 |AND ARRAY.e.2.NR|
00000730: B2 30 3A 8F 20 4E 52 3D 4E 55 4D 42 45 52 20 4F |.0:. NR=NUMBER O|
00000740: 46 20 50 4F 53 53 49 42 4C 45 20 52 45 53 50 4F |F POSSIBLE RESPO|
00000750: 4E 53 45 20 49 4E 20 52 45 53 50 4F 4E 53 45 20 |NSE IN RESPONSE |
00000760: 41 52 52 41 59 00 9B 11 3C 05 8B CA 28 43 41 24 |ARRAY...<...(CA$|
00000770: 28 4A 29 2C 32 2C C3 28 43 41 24 28 4A 29 29 AB |(J),2,.(CA$(J)).|
00000780: 32 29 B2 50 52 24 28 4E 52 29 A7 52 4E B2 50 52 |2).PR$(NR).RN.PR|
00000790: 25 28 4E 52 29 3A 89 31 35 32 30 00 B4 11 46 05 |%(NR):.1520...F.|
000007A0: 8B 4E 52 B3 33 38 A7 4E 52 B2 4E 52 AA 31 3A 89 |.NR.38.NR.NR.1:.|
000007B0: 31 33 34 30 00 EE 11 50 05 8B CA 28 43 41 24 28 |1340...P...(CA$(|
000007C0: 4A 29 2C 31 2C 35 29 B2 22 20 47 45 54 20 22 A7 |J),1,5)." GET ".|
000007D0: 43 41 24 28 4A 29 B2 CA 28 43 41 24 28 4A 29 2C |CA$(J)..(CA$(J),|
000007E0: 35 29 3A 8D 33 31 35 30 3A 89 32 30 35 30 00 29 |5):.3150:.2050.)|
000007F0: 12 5A 05 8B CA 28 43 41 24 28 4A 29 2C 31 2C 36 |.Z...(CA$(J),1,6|
00000800: 29 B2 22 20 47 52 41 42 20 22 A7 43 41 24 28 4A |)." GRAB ".CA$(J|
00000810: 29 B2 CA 28 43 41 24 28 4A 29 2C 36 29 3A 8D 33 |)..(CA$(J),6):.3|
00000820: 31 35 30 3A 89 32 30 35 30 00 64 12 64 05 8B CA |150:.2050.d.d...|
00000830: 28 43 41 24 28 4A 29 2C 31 2C 36 29 B2 22 20 54 |(CA$(J),1,6)." T|
00000840: 41 4B 45 20 22 A7 43 41 24 28 4A 29 B2 CA 28 43 |AKE ".CA$(J)..(C|
00000850: 41 24 28 4A 29 2C 36 29 3A 8D 33 31 35 30 3A 89 |A$(J),6):.3150:.|
00000860: 32 30 35 30 00 9F 12 6E 05 8B CA 28 43 41 24 28 |2050...n...(CA$(|
00000870: 4A 29 2C 31 2C 36 29 B2 22 20 44 52 4F 50 20 22 |J),1,6)." DROP "|
00000880: A7 43 41 24 28 4A 29 B2 CA 28 43 41 24 28 4A 29 |.CA$(J)..(CA$(J)|
00000890: 2C 36 29 3A 8D 33 32 36 30 3A 89 32 30 35 30 00 |,6):.3260:.2050.|
000008A0: DD 12 78 05 8B CA 28 43 41 24 28 4A 29 2C 31 2C |..x...(CA$(J),1,|
000008B0: 39 29 B2 22 20 45 58 41 4D 49 4E 45 20 22 A7 43 |9)." EXAMINE ".C|
000008C0: 41 24 28 4A 29 B2 CA 28 43 41 24 28 4A 29 2C 39 |A$(J)..(CA$(J),9|
000008D0: 29 3A 8D 32 33 36 30 3A 89 32 30 35 30 00 00 13 |):.2360:.2050...|
000008E0: 82 05 81 4E 57 B2 30 A4 36 3A 57 4E 25 28 4E 57 |...NW.0.6:WN%(NW|
000008F0: 29 B2 30 3A 82 4E 57 3A 57 4E 25 28 30 29 B2 31 |).0:.NW:WN%(0).1|
00000900: 00 3D 13 8C 05 4E 57 B2 30 3A 81 4C B2 32 A4 C3 |.=...NW.0:.L.2..|
00000910: 28 43 41 24 28 4A 29 29 3A 8B CA 28 43 41 24 28 |(CA$(J)):..(CA$(|
00000920: 4A 29 2C 4C 2C 31 29 B2 22 20 22 A7 4E 57 B2 4E |J),L,1)." ".NW.N|
00000930: 57 AA 31 3A 57 4E 25 28 4E 57 29 B2 4C 00 7C 13 |W.1:WN%(NW).L.|.|
00000940: 96 05 82 4C 3A 8B 4E 57 B3 31 B0 4E 57 B1 36 A7 |...L:.NW.1.NW.6.|
00000950: 99 22 49 20 43 4F 55 4C 44 4E 27 54 20 55 4E 44 |."I COULDN'T UND|
00000960: 45 52 53 54 41 4E 44 20 54 48 41 54 20 53 45 4E |ERSTAND THAT SEN|
00000970: 54 45 4E 43 45 22 3A 89 31 30 30 30 00 A2 13 A0 |TENCE":.1000....|
00000980: 05 8F 2D 44 45 54 45 52 4D 49 4E 45 20 23 20 4F |..-DETERMINE # O|
00000990: 46 20 56 45 52 42 53 20 49 4E 20 53 45 4E 54 45 |F VERBS IN SENTE|
000009A0: 4E 45 00 E2 13 AA 05 4E 56 B2 30 3A 81 56 43 B2 |NE.....NV.0:.VC.|
000009B0: 30 A4 36 35 3A 81 4C B2 30 A4 4E 57 AB 31 3A 8B |0.65:.L.0.NW.1:.|
000009C0: 57 4E 25 28 4C AA 31 29 AB 57 4E 25 28 4C 29 B3 |WN%(L.1).WN%(L).|
000009D0: B1 C3 28 56 41 24 28 56 43 29 29 AA 31 89 31 34 |..(VA$(VC)).1.14|
000009E0: 37 30 00 29 14 B4 05 8B CA 28 43 41 24 28 4A 29 |70.).....(CA$(J)|
000009F0: 2C 57 4E 25 28 4C 29 2C C3 28 56 41 24 28 56 43 |,WN%(L),.(VA$(VC|
00000A00: 29 29 AA 32 29 B2 22 20 22 AA 56 41 24 28 56 43 |)).2)." ".VA$(VC|
00000A10: 29 AA 22 20 22 AF 56 41 24 28 56 43 29 B3 B1 22 |)." ".VA$(VC).."|
00000A20: 22 A7 4E 56 B2 4E 56 AA 31 00 34 14 BE 05 82 4C |".NV.NV.1.4....L|
00000A30: 3A 82 56 43 00 67 14 C8 05 8B 4E 56 B3 31 A7 99 |:.VC.g....NV.1..|
00000A40: 22 49 20 43 4F 55 4C 44 4E 27 54 20 46 49 4E 44 |"I COULDN'T FIND|
00000A50: 20 41 20 56 45 52 42 20 49 20 4B 4E 4F 57 20 49 | A VERB I KNOW I|
00000A60: 4E 20 54 48 49 53 22 00 8D 14 D2 05 8B 4E 56 B3 |N THIS"......NV.|
00000A70: 31 A7 99 22 53 45 4E 54 45 4E 43 45 3A 22 3B 43 |1.."SENTENCE:";C|
00000A80: 41 24 28 4A 29 3A 99 3A 89 31 30 30 30 00 D5 14 |A$(J):.:.1000...|
00000A90: DC 05 8B 4E 56 B1 31 A7 99 22 49 20 46 4F 55 4E |...NV.1.."I FOUN|
00000AA0: 44 20 54 4F 4F 20 4D 41 4E 59 20 56 45 52 42 53 |D TOO MANY VERBS|
00000AB0: 20 49 4E 20 54 48 49 53 22 3A 99 22 53 45 4E 54 | IN THIS":."SENT|
00000AC0: 45 4E 43 45 3A 22 3B 43 41 24 28 4A 29 3A 99 3A |ENCE:";CA$(J):.:|
00000AD0: 89 31 30 30 30 00 EE 14 E6 05 99 4E 41 24 28 BB |.1000......NA$(.|
00000AE0: 28 30 29 AC 36 29 3A 99 3A 89 31 30 30 30 00 38 |(0).6):.:.1000.8|
00000AF0: 15 F0 05 8F 2D 50 45 52 46 4F 52 4D 20 41 50 50 |....-PERFORM APP|
00000B00: 52 4F 50 52 49 41 54 45 20 53 55 42 20 4F 4E 20 |ROPRIATE SUB ON |
00000B10: 42 41 53 49 53 20 4F 46 20 56 41 4C 55 45 20 4F |BASIS OF VALUE O|
00000B20: 46 20 52 4E 28 4E 55 4D 42 45 52 20 4F 46 20 52 |F RN(NUMBER OF R|
00000B30: 45 53 50 4F 4E 53 45 29 00 50 15 FA 05 8B 52 4E |ESPONSE).P....RN|
00000B40: B3 35 30 30 B0 52 4E B1 35 30 37 89 31 35 35 30 |.500.RN.507.1550|
00000B50: 00 90 15 04 06 4E 53 B2 52 4E AB 34 39 39 3A 91 |.....NS.RN.499:.|
00000B60: 4E 53 8D 32 31 31 30 2C 32 31 36 30 2C 32 33 31 |NS.2110,2160,231|
00000B70: 30 2C 32 33 36 30 2C 32 34 35 30 2C 32 34 39 30 |0,2360,2450,2490|
00000B80: 2C 32 35 31 30 2C 32 35 33 30 3A 89 32 30 35 30 |,2510,2530:.2050|
00000B90: 00 A8 15 0E 06 8B 52 4E B3 35 30 38 B0 52 4E B1 |......RN.508.RN.|
00000BA0: 35 31 35 89 31 35 37 30 00 E8 15 18 06 4E 53 B2 |515.1570.....NS.|
00000BB0: 52 4E AB 35 30 37 3A 91 4E 53 8D 32 37 33 30 2C |RN.507:.NS.2730,|
00000BC0: 32 39 33 30 2C 33 31 32 30 2C 33 31 35 30 2C 33 |2930,3120,3150,3|
00000BD0: 32 36 30 2C 33 33 34 30 2C 33 33 36 30 2C 33 33 |260,3340,3360,33|
00000BE0: 38 30 3A 89 32 30 35 30 00 00 16 22 06 8B 52 4E |80:.2050..."..RN|
00000BF0: B3 35 31 36 B0 52 4E B1 35 31 39 89 31 35 39 30 |.516.RN.519.1590|
00000C00: 00 2C 16 2C 06 4E 53 B2 52 4E AB 35 31 35 3A 91 |.,.,.NS.RN.515:.|
00000C10: 4E 53 8D 33 35 30 30 2C 33 35 34 30 2C 33 35 37 |NS.3500,3540,357|
00000C20: 30 2C 33 36 31 30 3A 89 32 30 35 30 00 44 16 36 |0,3610:.2050.D.6|
00000C30: 06 8B 52 4E B3 31 31 31 B0 52 4E B1 31 31 32 89 |..RN.111.RN.112.|
00000C40: 31 36 31 30 00 68 16 40 06 4E 53 B2 52 4E AB 31 |1610.h.@.NS.RN.1|
00000C50: 31 30 3A 91 4E 53 8D 31 31 31 30 30 2C 31 31 32 |10:.NS.11100,112|
00000C60: 30 30 3A 89 32 30 35 30 00 80 16 4A 06 8B 52 4E |00:.2050...J..RN|
00000C70: B3 31 32 31 B0 52 4E B1 31 32 32 89 31 36 33 30 |.121.RN.122.1630|
00000C80: 00 A4 16 54 06 4E 53 B2 52 4E AB 31 32 30 3A 91 |...T.NS.RN.120:.|
00000C90: 4E 53 8D 31 32 31 30 30 2C 31 32 32 30 30 3A 89 |NS.12100,12200:.|
00000CA0: 32 30 35 30 00 BC 16 5E 06 8B 52 4E B3 31 33 31 |2050...^..RN.131|
00000CB0: B0 52 4E B1 31 33 36 89 31 36 35 30 00 F8 16 68 |.RN.136.1650...h|
00000CC0: 06 4E 53 B2 52 4E AB 31 33 30 3A 91 4E 53 8D 31 |.NS.RN.130:.NS.1|
00000CD0: 33 31 30 30 2C 31 33 32 30 30 2C 31 33 33 30 30 |3100,13200,13300|
00000CE0: 2C 31 33 34 30 30 2C 31 33 35 30 30 2C 31 33 36 |,13400,13500,136|
00000CF0: 30 30 3A 89 32 30 35 30 00 10 17 72 06 8B 52 4E |00:.2050...r..RN|
00000D00: B3 31 36 31 B0 52 4E B1 31 36 35 89 31 36 37 30 |.161.RN.165.1670|
00000D10: 00 46 17 7C 06 4E 53 B2 52 4E AB 31 36 30 3A 91 |.F.|.NS.RN.160:.|
00000D20: 4E 53 8D 31 36 31 30 30 2C 31 36 32 30 30 2C 31 |NS.16100,16200,1|
00000D30: 36 33 30 30 2C 31 36 34 30 30 2C 31 36 35 30 30 |6300,16400,16500|
00000D40: 3A 89 32 30 35 30 00 5E 17 86 06 8B 52 4E B3 31 |:.2050.^....RN.1|
00000D50: 37 31 B0 52 4E B1 31 37 34 89 31 36 39 30 00 8E |71.RN.174.1690..|
00000D60: 17 90 06 4E 53 B2 52 4E AB 31 37 30 3A 91 4E 53 |...NS.RN.170:.NS|
00000D70: 8D 31 37 31 30 30 2C 31 37 32 30 30 2C 31 37 33 |.17100,17200,173|
00000D80: 30 30 2C 31 37 34 30 30 3A 89 32 30 35 30 00 A6 |00,17400:.2050..|
00000D90: 17 9A 06 8B 52 4E B3 31 38 31 B0 52 4E B1 31 38 |....RN.181.RN.18|
00000DA0: 32 89 31 37 31 30 00 CA 17 A4 06 4E 53 B2 52 4E |2.1710.....NS.RN|
00000DB0: AB 31 38 30 3A 91 4E 53 8D 31 38 31 30 30 2C 31 |.180:.NS.18100,1|
00000DC0: 38 32 30 30 3A 89 32 30 35 30 00 E2 17 AE 06 8B |8200:.2050......|
00000DD0: 52 4E B3 31 39 31 B0 52 4E B1 31 39 31 89 31 37 |RN.191.RN.191.17|
00000DE0: 33 30 00 00 18 B8 06 4E 53 B2 52 4E AB 31 39 30 |30.....NS.RN.190|
00000DF0: 3A 91 4E 53 8D 31 39 31 30 30 3A 89 32 30 35 30 |:.NS.19100:.2050|
00000E00: 00 18 18 C2 06 8B 52 4E B3 32 32 31 B0 52 4E B1 |......RN.221.RN.|
00000E10: 32 32 35 89 31 37 35 30 00 60 18 CC 06 4E 53 B2 |225.1750.`...NS.|
00000E20: 52 4E AB 32 32 30 3A 91 4E 53 8D 32 32 31 30 30 |RN.220:.NS.22100|
00000E30: 2C 32 32 32 30 30 2C 32 32 33 30 30 2C 32 32 34 |,22200,22300,224|
00000E40: 30 30 2C 32 32 35 30 30 2C 32 32 36 30 30 2C 32 |00,22500,22600,2|
00000E50: 32 37 30 30 2C 32 32 38 30 30 2C 32 32 39 30 30 |2700,22800,22900|
00000E60: 00 6A 18 CE 06 89 32 30 35 30 00 82 18 D6 06 8B |.j....2050......|
00000E70: 52 4E B3 32 33 31 B0 52 4E B1 32 33 34 89 31 37 |RN.231.RN.234.17|
00000E80: 37 30 00 B2 18 E0 06 4E 53 B2 52 4E AB 32 33 30 |70.....NS.RN.230|
00000E90: 3A 91 4E 53 8D 32 33 31 30 30 2C 32 33 32 30 30 |:.NS.23100,23200|
00000EA0: 2C 32 33 33 30 30 2C 32 33 34 30 30 3A 89 32 30 |,23300,23400:.20|
00000EB0: 35 30 00 CA 18 EA 06 8B 52 4E B3 32 34 31 B0 52 |50......RN.241.R|
00000EC0: 4E B1 32 34 32 89 31 37 39 30 00 EE 18 F4 06 4E |N.242.1790.....N|
00000ED0: 53 B2 52 4E AB 32 34 30 3A 91 4E 53 8D 32 34 31 |S.RN.240:.NS.241|
00000EE0: 30 30 2C 32 34 32 30 30 3A 89 32 30 35 30 00 06 |00,24200:.2050..|
00000EF0: 19 FE 06 8B 52 4E B3 32 35 31 B0 52 4E B1 32 35 |....RN.251.RN.25|
00000F00: 36 89 31 38 31 30 00 42 19 08 07 4E 53 B2 52 4E |6.1810.B...NS.RN|
00000F10: AB 32 35 30 3A 91 4E 53 8D 32 35 31 30 30 2C 32 |.250:.NS.25100,2|
00000F20: 35 32 30 30 2C 32 35 33 30 30 2C 32 35 34 30 30 |5200,25300,25400|
00000F30: 2C 32 35 35 30 30 2C 32 35 36 30 30 3A 89 32 30 |,25500,25600:.20|
00000F40: 35 30 00 5A 19 12 07 8B 52 4E B3 33 30 31 B0 52 |50.Z....RN.301.R|
00000F50: 4E B1 33 30 34 89 31 38 33 30 00 8A 19 1C 07 4E |N.304.1830.....N|
00000F60: 53 B2 52 4E AB 33 30 30 3A 91 4E 53 8D 33 30 31 |S.RN.300:.NS.301|
00000F70: 30 30 2C 33 30 32 30 30 2C 33 30 33 30 30 2C 33 |00,30200,30300,3|
00000F80: 30 34 30 30 3A 89 32 30 35 30 00 A2 19 26 07 8B |0400:.2050...&..|
00000F90: 52 4E B3 33 31 31 B0 52 4E B1 33 31 31 89 31 38 |RN.311.RN.311.18|
00000FA0: 35 30 00 C0 19 30 07 4E 53 B2 52 4E AB 33 31 30 |50...0.NS.RN.310|
00000FB0: 3A 91 4E 53 8D 33 31 31 30 30 3A 89 32 30 35 30 |:.NS.31100:.2050|
00000FC0: 00 D8 19 3A 07 8B 52 4E B3 33 32 31 B0 52 4E B1 |...:..RN.321.RN.|
00000FD0: 33 32 31 89 31 38 37 30 00 F6 19 44 07 4E 53 B2 |321.1870...D.NS.|
00000FE0: 52 4E AB 33 32 30 3A 91 4E 53 8D 33 32 31 30 30 |RN.320:.NS.32100|
00000FF0: 3A 89 32 30 35 30 00 0E 1A 4E 07 8B 52 4E B3 33 |:.2050...N..RN.3|
00001000: 35 31 B0 52 4E B1 33 35 34 89 31 38 39 30 00 3E |51.RN.354.1890.>|
00001010: 1A 58 07 4E 53 B2 52 4E AB 33 35 30 3A 91 4E 53 |.X.NS.RN.350:.NS|
00001020: 8D 33 35 31 30 30 2C 33 35 32 30 30 2C 33 35 33 |.35100,35200,353|
00001030: 30 30 2C 33 35 34 30 30 3A 89 32 30 35 30 00 56 |00,35400:.2050.V|
00001040: 1A 62 07 8B 52 4E B3 33 37 31 B0 52 4E B1 33 37 |.b..RN.371.RN.37|
00001050: 33 89 31 39 31 30 00 80 1A 6C 07 4E 53 B2 52 4E |3.1910...l.NS.RN|
00001060: AB 33 37 30 3A 91 4E 53 8D 33 37 31 30 30 2C 33 |.370:.NS.37100,3|
00001070: 37 32 30 30 2C 33 37 33 30 30 3A 89 32 30 35 30 |7200,37300:.2050|
00001080: 00 98 1A 76 07 8B 52 4E B3 33 38 31 B0 52 4E B1 |...v..RN.381.RN.|
00001090: 33 38 34 89 31 39 33 30 00 C8 1A 80 07 4E 53 B2 |384.1930.....NS.|
000010A0: 52 4E AB 33 38 30 3A 91 4E 53 8D 33 38 31 30 30 |RN.380:.NS.38100|
000010B0: 2C 33 38 32 30 30 2C 33 38 33 30 30 2C 33 38 34 |,38200,38300,384|
000010C0: 30 30 3A 89 32 30 35 30 00 E0 1A 8A 07 8B 52 4E |00:.2050......RN|
000010D0: B3 33 39 31 B0 52 4E B1 33 39 32 89 31 39 35 30 |.391.RN.392.1950|
000010E0: 00 04 1B 94 07 4E 53 B2 52 4E AB 33 39 30 3A 91 |.....NS.RN.390:.|
000010F0: 4E 53 8D 33 39 31 30 30 2C 33 39 32 30 30 3A 89 |NS.39100,39200:.|
00001100: 32 30 35 30 00 1C 1B 9E 07 8B 52 4E B3 34 30 31 |2050......RN.401|
00001110: B0 52 4E B1 34 30 38 89 31 39 37 30 00 64 1B A8 |.RN.408.1970.d..|
00001120: 07 4E 53 B2 52 4E AB 34 30 30 3A 91 4E 53 8D 34 |.NS.RN.400:.NS.4|
00001130: 30 31 30 30 2C 34 30 32 30 30 2C 34 30 33 30 30 |0100,40200,40300|
00001140: 2C 34 30 34 30 30 2C 34 30 35 30 30 2C 34 30 36 |,40400,40500,406|
00001150: 30 30 2C 34 30 37 30 30 2C 34 30 38 30 30 3A 89 |00,40700,40800:.|
00001160: 32 30 35 30 00 7C 1B B2 07 8B 52 4E B3 34 32 31 |2050.|....RN.421|
00001170: B0 52 4E B1 34 32 32 89 31 39 39 30 00 A0 1B BC |.RN.422.1990....|
00001180: 07 4E 53 B2 52 4E AB 34 32 30 3A 91 4E 53 8D 34 |.NS.RN.420:.NS.4|
00001190: 32 31 30 30 2C 34 32 32 30 30 3A 89 32 30 35 30 |2100,42200:.2050|
000011A0: 00 B8 1B C6 07 8B 52 4E B3 34 34 31 B0 52 4E B1 |......RN.441.RN.|
000011B0: 34 34 35 89 32 30 31 30 00 EE 1B D0 07 4E 53 B2 |445.2010.....NS.|
000011C0: 52 4E AB 34 34 30 3A 91 4E 53 8D 34 34 31 30 30 |RN.440:.NS.44100|
000011D0: 2C 34 34 32 30 30 2C 34 34 33 30 30 2C 34 34 34 |,44200,44300,444|
000011E0: 30 30 2C 34 34 35 30 30 3A 89 32 30 35 30 00 06 |00,44500:.2050..|
000011F0: 1C DA 07 8B 52 4E B3 34 35 31 B0 52 4E B1 34 35 |....RN.451.RN.45|
00001200: 31 89 32 30 33 30 00 24 1C E4 07 4E 53 B2 52 4E |1.2030.$...NS.RN|
00001210: AB 34 35 30 3A 91 4E 53 8D 34 35 31 30 30 3A 89 |.450:.NS.45100:.|
00001220: 32 30 35 30 00 3C 1C EE 07 8B 52 4E B3 34 37 31 |2050.<....RN.471|
00001230: B0 52 4E B1 34 37 32 89 32 30 35 30 00 60 1C F8 |.RN.472.2050.`..|
00001240: 07 4E 53 B2 52 4E AB 34 37 30 3A 91 4E 53 8D 34 |.NS.RN.470:.NS.4|
00001250: 37 31 30 30 2C 34 37 32 30 30 3A 89 32 30 35 30 |7100,47200:.2050|
00001260: 00 76 1C 02 08 8B 4A B3 4A 4A A7 4A B2 4A AA 31 |.v....J.JJ.J.J.1|
00001270: 3A 89 31 33 33 30 00 80 1C 0C 08 89 31 30 30 30 |:.1330......1000|
00001280: 00 C4 1C 3E 08 8F 2D 49 4E 56 45 4E 54 4F 52 59 |...>..-INVENTORY|
00001290: 20 53 55 42 20 50 52 49 4E 54 53 20 41 20 4C 49 | SUB PRINTS A LI|
000012A0: 53 54 20 4F 46 20 4F 42 4A 45 43 54 53 20 57 48 |ST OF OBJECTS WH|
000012B0: 49 43 48 20 59 4F 55 20 41 52 45 20 43 41 52 52 |ICH YOU ARE CARR|
000012C0: 59 49 4E 47 00 F3 1C 48 08 4E 4F B2 30 3A 9E 34 |YING...H.NO.0:.4|
000012D0: 39 32 33 38 3A 99 22 59 4F 55 20 41 52 45 20 43 |9238:."YOU ARE C|
000012E0: 55 52 52 45 4E 54 4C 59 20 43 41 52 52 59 49 4E |URRENTLY CARRYIN|
000012F0: 47 3A 22 00 1D 1D 52 08 81 51 B2 30 A4 31 35 3A |G:"...R..Q.0.15:|
00001300: 8B 4F 42 25 28 51 2C 32 29 B2 31 A7 99 4F 42 24 |.OB%(Q,2).1..OB$|
00001310: 28 51 2C 30 29 3A 4E 4F B2 4E 4F AA 31 00 35 1D |(Q,0):NO.NO.1.5.|
00001320: 5C 08 82 51 3A 8B 4E 4F B2 30 A7 99 22 4E 4F 54 |\..Q:.NO.0.."NOT|
00001330: 48 49 4E 47 22 00 3D 1D 66 08 99 3A 8E 00 4C 1D |HING".=.f..:..L.|
00001340: 70 08 8F 2D 4C 4F 4F 4B 20 53 55 42 00 84 1D 7A |p..-LOOK SUB...z|
00001350: 08 8D 33 37 38 30 3A 9E 34 39 32 33 38 3A 99 22 |..3780:.49238:."|
00001360: 93 22 3A 81 51 B2 30 A4 35 3A 8B C8 28 4C 4F 24 |.":.Q.0.5:..(LO$|
00001370: 28 51 29 2C 31 29 B3 B1 22 20 22 A7 99 4C 4F 24 |(Q),1).." "..LO$|
00001380: 28 51 29 3B 00 9A 1D 84 08 82 51 3A 99 3A 4E 4F |(Q);......Q:.:NO|
00001390: B2 30 3A 81 51 B2 30 A4 31 36 00 CA 1D 8E 08 8B |.0:.Q.0.16......|
000013A0: 4F 42 25 28 51 2C 30 29 B2 51 58 AF 4F 42 25 28 |OB%(Q,0).QX.OB%(|
000013B0: 51 2C 31 29 B2 51 59 AF 4F 42 25 28 51 2C 32 29 |Q,1).QY.OB%(Q,2)|
000013C0: B2 30 A7 4E 4F B2 4E 4F AA 31 00 D9 1D 98 08 82 |.0.NO.NO.1......|
000013D0: 51 3A 8B 4E 4F B2 30 A7 8E 00 FF 1D A2 08 43 43 |Q:.NO.0.......CC|
000013E0: 24 B2 22 59 4F 55 20 53 45 45 20 22 3A 4F 43 B2 |$."YOU SEE ":OC.|
000013F0: 30 3A 99 43 43 24 3B 3A 81 51 B2 30 A4 31 36 00 |0:.CC$;:.Q.0.16.|
00001400: 2F 1E AC 08 8B 4F 42 25 28 51 2C 30 29 B3 B1 51 |/....OB%(Q,0)..Q|
00001410: 58 B0 4F 42 25 28 51 2C 31 29 B3 B1 51 59 B0 4F |X.OB%(Q,1)..QY.O|
00001420: 42 25 28 51 2C 32 29 B3 B1 30 89 32 33 30 30 00 |B%(Q,2)..0.2300.|
00001430: 64 1E B6 08 51 24 B2 4F 42 24 28 51 2C 30 29 3A |d...Q$.OB$(Q,0):|
00001440: 51 51 B2 C3 28 51 24 29 3A 8B C3 28 43 43 24 29 |QQ..(Q$):..(CC$)|
00001450: AA C3 28 4F 42 24 28 51 2C 30 29 29 B3 33 39 89 |..(OB$(Q,0)).39.|
00001460: 32 32 39 30 00 93 1E C0 08 8B C3 28 43 43 24 29 |2290.......(CC$)|
00001470: AA C3 28 C8 28 51 24 2C 51 51 29 29 B3 33 39 AF |..(.(Q$,QQ)).39.|
00001480: CA 28 51 24 2C 51 51 2C 31 29 B2 22 20 22 89 32 |.(Q$,QQ,1)." ".2|
00001490: 32 37 30 00 AA 1E CA 08 51 51 B2 51 51 AB 31 3A |270.....QQ.QQ.1:|
000014A0: 8B 51 51 B1 32 89 32 32 34 30 00 BD 1E D4 08 99 |.QQ.2.2240......|
000014B0: 3A 43 43 24 B2 22 22 3A 89 32 32 39 30 00 FE 1E |:CC$."":.2290...|
000014C0: DE 08 99 C8 28 51 24 2C 51 51 29 3A 43 43 24 B2 |....(Q$,QQ):CC$.|
000014D0: CA 28 51 24 2C 51 51 AA 31 29 AA 22 20 22 3A 99 |.(Q$,QQ.1)." ":.|
000014E0: 43 43 24 3B 3A 4F 43 B2 4F 43 AA 31 3A 8B 4F 43 |CC$;:OC.OC.1:.OC|
000014F0: B2 4E 4F AB 31 A7 99 22 41 4E 44 20 22 3B 00 08 |.NO.1.."AND ";..|
00001500: 1F E8 08 89 32 33 30 30 00 4A 1F F2 08 43 43 24 |....2300.J...CC$|
00001510: B2 43 43 24 AA 22 20 22 AA 4F 42 24 28 51 2C 30 |.CC$." ".OB$(Q,0|
00001520: 29 3A 99 4F 42 24 28 51 2C 30 29 3B 22 20 22 3B |):.OB$(Q,0);" ";|
00001530: 3A 4F 43 B2 4F 43 AA 31 3A 8B 4F 43 B2 4E 4F AB |:OC.OC.1:.OC.NO.|
00001540: 31 A7 99 22 41 4E 44 20 22 3B 00 57 1F FC 08 82 |1.."AND ";.W....|
00001550: 51 3A 99 3A 99 3A 8E 00 66 1F 06 09 8F 2D 51 55 |Q:.:.:..f....-QU|
00001560: 49 54 20 53 55 42 00 85 1F 10 09 99 22 93 22 3A |IT SUB......".":|
00001570: 9E 34 39 32 33 38 3A 99 22 51 55 49 54 3F 20 28 |.49238:."QUIT? (|
00001580: 59 2F 4E 29 22 00 9C 1F 1A 09 A1 51 24 3A 8B 51 |Y/N)"......Q$:.Q|
00001590: 24 B2 22 59 22 A7 9E 36 34 37 33 38 00 AE 1F 24 |$."Y"..64738...$|
000015A0: 09 8B 51 24 B3 B1 22 4E 22 89 32 33 33 30 00 B9 |..Q$.."N".2330..|
000015B0: 1F 2E 09 99 22 93 22 3A 8E 00 04 20 38 09 51 B2 |....".":... 8.Q.|
000015C0: 30 3A 8F 2D 45 58 41 4D 49 4E 45 20 4F 42 4A 45 |0:.-EXAMINE OBJE|
000015D0: 43 54 28 59 4F 55 20 4D 55 53 54 20 42 45 20 41 |CT(YOU MUST BE A|
000015E0: 42 4C 45 20 54 4F 20 53 45 45 20 54 48 45 20 4F |BLE TO SEE THE O|
000015F0: 42 4A 45 43 54 20 54 4F 20 45 58 41 4D 49 4E 45 |BJECT TO EXAMINE|
00001600: 20 49 54 29 00 26 20 42 09 8B 43 41 24 28 4A 29 | IT).& B..CA$(J)|
00001610: B2 22 20 22 AA 4F 42 24 28 51 2C 31 29 AA 22 20 |." ".OB$(Q,1)." |
00001620: 22 89 32 34 32 30 00 3B 20 4C 09 51 B2 51 AA 31 |".2420.; L.Q.Q.1|
00001630: 3A 8B 51 B3 31 37 89 32 33 37 30 00 82 20 56 09 |:.Q.17.2370.. V.|
00001640: 8B 43 41 24 28 4A 29 B2 22 20 22 A7 99 22 59 4F |.CA$(J)." ".."YO|
00001650: 55 20 4D 55 53 54 20 42 45 20 53 50 45 43 49 46 |U MUST BE SPECIF|
00001660: 49 43 20 41 42 4F 55 54 20 57 48 41 54 20 54 4F |IC ABOUT WHAT TO|
00001670: 20 20 20 20 20 20 45 58 41 4D 49 4E 45 22 3A 99 | EXAMINE":.|
00001680: 3A 8E 00 A8 20 60 09 99 22 49 20 44 4F 4E 54 20 |:... `.."I DONT |
00001690: 4B 4E 4F 57 20 57 48 41 54 20 41 22 3B 43 41 24 |KNOW WHAT A";CA$|
000016A0: 28 4A 29 3B 22 49 53 22 00 E6 20 6A 09 99 22 50 |(J);"IS".. j.."P|
000016B0: 45 52 48 41 50 53 20 49 46 20 59 4F 55 20 52 45 |ERHAPS IF YOU RE|
000016C0: 50 48 52 41 53 45 44 20 57 48 41 54 20 59 4F 55 |PHRASED WHAT YOU|
000016D0: 20 57 41 4E 54 20 20 54 4F 20 45 58 41 4D 49 4E | WANT TO EXAMIN|
000016E0: 45 22 3A 99 3A 8E 00 02 21 74 09 43 43 24 B2 22 |E":.:...!t.CC$."|
000016F0: 59 4F 55 20 44 4F 4E 54 20 53 45 45 20 54 48 45 |YOU DONT SEE THE|
00001700: 20 22 00 40 21 7E 09 8B 4F 42 25 28 51 2C 32 29 | ".@!~..OB%(Q,2)|
00001710: B2 30 AF 28 4F 42 25 28 51 2C 30 29 B3 B1 51 58 |.0.(OB%(Q,0)..QX|
00001720: B0 4F 42 25 28 51 2C 31 29 B3 B1 51 59 29 A7 99 |.OB%(Q,1)..QY)..|
00001730: 43 43 24 3B 4F 42 24 28 51 2C 31 29 3A 99 3A 8E |CC$;OB$(Q,1):.:.|
00001740: 00 52 21 88 09 99 4F 42 24 28 51 2C 32 29 3A 99 |.R!...OB$(Q,2):.|
00001750: 3A 8E 00 62 21 92 09 8F 2D 41 4E 47 45 52 20 53 |:..b!...-ANGER S|
00001760: 55 42 00 9A 21 9C 09 99 22 93 22 3A 9E 34 39 32 |UB..!...".":.492|
00001770: 33 38 3A 99 22 41 53 20 59 4F 55 20 4D 4F 55 4E |38:."AS YOU MOUN|
00001780: 54 45 44 20 54 48 45 20 43 4F 4D 50 55 54 45 52 |TED THE COMPUTER|
00001790: 20 59 4F 55 20 46 45 4C 54 22 00 E3 21 A6 09 99 | YOU FELT"..!...|
000017A0: 22 41 20 53 54 52 4F 4E 47 20 45 4C 45 43 54 52 |"A STRONG ELECTR|
000017B0: 49 43 20 53 48 4F 43 4B 2E 22 3A 99 3A 99 22 4E |IC SHOCK.":.:."N|
000017C0: 45 45 44 4C 45 53 53 20 54 4F 20 53 41 59 2C 2E |EEDLESS TO SAY,.|
000017D0: 2E 2E 59 4F 55 20 48 41 56 45 20 44 49 45 44 21 |..YOU HAVE DIED!|
000017E0: 21 21 22 00 F9 21 B0 09 44 B2 32 35 3A 8D 33 39 |!!"..!..D.25:.39|
000017F0: 32 30 3A 9E 36 34 37 33 38 00 40 22 BA 09 9E 34 |20:.64738.@"...4|
00001800: 39 32 33 38 3A 8B 43 44 25 B3 B1 31 A7 99 22 93 |9238:.CD%..1..".|
00001810: 22 3A 99 22 52 45 4D 4F 56 45 20 44 49 53 4B 23 |":."REMOVE DISK#|
00001820: 22 3B 43 44 25 3B 22 41 4E 44 20 49 4E 53 45 52 |";CD%;"AND INSER|
00001830: 54 20 44 49 53 4B 23 20 31 22 3A 8D 33 38 34 30 |T DISK# 1":.3840|
00001840: 00 7C 22 BC 09 4C 24 B2 22 31 5F 30 5E 20 31 20 |.|"..L$."1_0^ 1 |
00001850: 22 3A 81 51 51 B2 31 A4 31 30 3A 97 34 39 34 35 |":.QQ.1.10:.4945|
00001860: 35 AA 51 51 2C C6 28 CA 28 4C 24 AA 22 50 49 43 |5.QQ,.(.(L$."PIC|
00001870: 22 2C 51 51 2C 31 29 29 3A 82 51 51 00 AC 22 BE |",QQ,1)):.QQ..".|
00001880: 09 81 51 51 B2 31 A4 31 31 3A 97 34 39 34 37 31 |..QQ.1.11:.49471|
00001890: AA 51 51 2C C6 28 CA 28 4C 24 AA 22 43 4C 52 53 |.QQ,.(.(L$."CLRS|
000018A0: 22 2C 51 51 2C 31 29 29 3A 82 51 51 00 EF 22 C0 |",QQ,1)):.QQ..".|
000018B0: 09 9F 31 35 2C 38 2C 31 35 3A 9E 34 39 33 31 32 |..15,8,15:.49312|
000018C0: 3A 9E 34 39 33 34 34 3A 84 31 35 2C 45 31 2C 45 |:.49344:.15,E1,E|
000018D0: 31 24 2C 45 32 2C 45 33 3A A0 31 35 3A 9E 34 39 |1$,E2,E3:.15:.49|
000018E0: 31 35 32 3A 44 B2 30 38 30 3A 8D 33 39 32 30 00 |152:D.080:.3920.|
000018F0: 1F 23 C2 09 8B 45 31 B1 31 39 A7 9E 34 39 32 33 |.#...E1.19..4923|
00001900: 38 3A 99 22 44 49 53 4B 20 45 52 52 4F 52 23 22 |8:."DISK ERROR#"|
00001910: 3B 45 31 3A 8D 33 38 34 30 3A 89 32 34 39 30 00 |;E1:.3840:.2490.|
00001920: 30 23 C4 09 9E 34 39 32 33 38 3A 89 33 36 38 30 |0#...49238:.3680|
00001930: 00 73 23 CE 09 9E 34 39 32 33 38 3A 99 22 41 52 |.s#...49238:."AR|
00001940: 45 20 59 4F 55 20 46 45 45 4C 49 4E 47 20 52 4F |E YOU FEELING RO|
00001950: 4D 41 4E 54 49 43 20 4F 52 20 44 4F 20 49 20 44 |MANTIC OR DO I D|
00001960: 45 54 45 43 54 22 3A 8F 2D 4B 49 53 53 20 2A 20 |ETECT":.-KISS * |
00001970: 53 55 42 00 99 23 D8 09 99 22 53 4F 4D 45 20 41 |SUB..#..."SOME A|
00001980: 4E 49 54 50 41 54 48 59 20 54 4F 57 41 52 44 53 |NITPATHY TOWARDS|
00001990: 20 4D 45 3F 22 3A 99 3A 8E 00 C3 23 E2 09 8F 2D | ME?":.:...#...-|
000019A0: 53 41 56 45 20 53 55 42 2C 53 41 56 45 53 20 43 |SAVE SUB,SAVES C|
000019B0: 55 52 52 45 4E 54 20 47 41 4D 45 20 54 4F 20 44 |URRENT GAME TO D|
000019C0: 49 53 43 00 0B 24 EC 09 99 3A 99 22 52 45 4D 4F |ISC..$...:."REMO|
000019D0: 56 45 20 44 49 53 4B 23 22 3B 43 44 25 3B 22 46 |VE DISK#";CD%;"F|
000019E0: 52 4F 4D 20 44 52 49 56 45 20 41 4E 44 20 20 20 |ROM DRIVE AND |
000019F0: 20 20 20 20 20 20 20 20 49 4E 53 45 52 54 20 44 | INSERT D|
00001A00: 41 54 41 20 44 49 53 4B 22 3A 99 00 57 24 F6 09 |ATA DISK":..W$..|
00001A10: 8D 33 38 34 30 3A 9F 31 35 2C 38 2C 31 35 2C 22 |.3840:.15,8,15,"|
00001A20: 53 30 3A 54 45 53 54 20 46 49 4C 45 22 3A 9F 32 |S0:TEST FILE":.2|
00001A30: 2C 38 2C 32 2C 22 30 3A 54 45 53 54 20 46 49 4C |,8,2,"0:TEST FIL|
00001A40: 45 2C 53 2C 57 22 3A 84 31 35 2C 45 31 2C 45 31 |E,S,W":.15,E1,E1|
00001A50: 24 2C 45 32 2C 45 33 00 89 24 00 0A 98 32 2C 22 |$,E2,E3..$...2,"|
00001A60: 2A 22 3A A0 32 3A A0 31 35 3A 8B 45 31 B1 31 39 |*":.2:.15:.E1.19|
00001A70: A7 99 22 44 49 53 4B 20 45 52 52 4F 52 20 23 22 |.."DISK ERROR #"|
00001A80: 3B 45 31 3A 89 32 35 35 30 00 C6 24 0A 0A 9F 31 |;E1:.2550..$...1|
00001A90: 35 2C 38 2C 31 35 3A 9F 32 2C 38 2C 32 2C 22 30 |5,8,15:.2,8,2,"0|
00001AA0: 3A 54 45 53 54 20 46 49 4C 45 2C 53 2C 52 22 3A |:TEST FILE,S,R":|
00001AB0: 84 32 2C 4C 24 3A 84 31 35 2C 45 31 2C 45 31 24 |.2,L$:.15,E1,E1$|
00001AC0: 2C 45 32 2C 45 33 00 F9 24 14 0A A0 32 3A A0 31 |,E2,E3..$...2:.1|
00001AD0: 35 3A 8B 45 31 B1 31 39 B0 4C 24 B3 B1 22 2A 22 |5:.E1.19.L$.."*"|
00001AE0: A7 99 22 44 49 53 4B 20 45 52 52 4F 52 20 23 22 |.."DISK ERROR #"|
00001AF0: 3B 45 31 3A 89 32 35 35 30 00 26 25 1E 0A 9F 31 |;E1:.2550.&%...1|
00001B00: 35 2C 38 2C 31 35 2C 22 53 30 3A 54 45 53 54 20 |5,8,15,"S0:TEST |
00001B10: 46 49 4C 45 22 3A 84 31 35 2C 45 31 2C 45 31 24 |FILE":.15,E1,E1$|
00001B20: 2C 45 32 2C 45 33 00 4E 25 28 0A A0 31 35 3A 8B |,E2,E3.N%(..15:.|
00001B30: 45 31 B1 31 39 A7 99 22 44 49 53 4B 20 45 52 52 |E1.19.."DISK ERR|
00001B40: 4F 52 20 23 22 3B 45 31 3A 89 32 35 35 30 00 85 |OR #";E1:.2550..|
00001B50: 25 32 0A 99 22 57 48 41 54 20 4E 55 4D 42 45 52 |%2.."WHAT NUMBER|
00001B60: 20 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 48 49 | DO YOU WANT THI|
00001B70: 53 20 47 41 4D 45 20 54 4F 20 20 20 20 48 41 56 |S GAME TO HAV|
00001B80: 45 3F 20 22 3B 00 99 25 3C 0A A1 51 24 3A 8B 51 |E? ";..%<..Q$:.Q|
00001B90: 24 B2 22 22 89 32 36 32 30 00 C1 25 46 0A 8B 28 |$."".2620..%F..(|
00001BA0: C6 28 51 24 29 B3 34 39 B0 C6 28 51 24 29 B1 35 |.(Q$).49..(Q$).5|
00001BB0: 37 29 AF 28 51 24 B3 B1 22 48 22 29 89 32 36 32 |7).(Q$.."H").262|
00001BC0: 30 00 E1 25 50 0A 99 51 24 3B 3A 8B 51 24 B2 22 |0..%P..Q$;:.Q$."|
00001BD0: 48 22 A7 3A 8D 34 30 39 30 3A 99 22 9D 22 AA 51 |H".:.4090:.".".Q|
00001BE0: 24 00 1F 26 5A 0A 99 3A 9F 31 35 2C 38 2C 31 35 |$..&Z..:.15,8,15|
00001BF0: 2C 22 53 30 3A 43 2F 4D 20 44 41 54 41 22 AA 51 |,"S0:C/M DATA".Q|
00001C00: 24 3A 9F 32 2C 38 2C 32 2C 22 30 3A 43 2F 4D 20 |$:.2,8,2,"0:C/M |
00001C10: 44 41 54 41 22 AA 51 24 AA 22 2C 53 2C 57 22 00 |DATA".Q$.",S,W".|
00001C20: 40 26 64 0A 98 32 2C 51 58 3B 22 2C 22 3B 51 59 |@&d..2,QX;",";QY|
00001C30: 3B 22 2C 22 3B 46 52 25 3B 22 2C 22 3B 43 44 25 |;",";FR%;",";CD%|
00001C40: 00 79 26 6E 0A 81 51 B2 30 A4 35 3A 81 51 51 B2 |.y&n..Q.0.5:.QQ.|
00001C50: 30 A4 37 3A 98 32 2C 50 49 25 28 51 51 2C 51 2C |0.7:.2,PI%(QQ,Q,|
00001C60: 31 29 3B 22 2C 22 3B 50 49 25 28 51 51 2C 51 2C |1);",";PI%(QQ,Q,|
00001C70: 32 29 3A 82 51 51 3A 82 51 00 AE 26 78 0A 81 51 |2):.QQ:.Q..&x..Q|
00001C80: B2 30 A4 31 38 3A 98 32 2C 4F 42 25 28 51 2C 30 |.0.18:.2,OB%(Q,0|
00001C90: 29 3B 22 2C 22 3B 4F 42 25 28 51 2C 31 29 3B 22 |);",";OB%(Q,1);"|
00001CA0: 2C 22 3B 4F 42 25 28 51 2C 32 29 3A 82 51 00 E3 |,";OB%(Q,2):.Q..|
00001CB0: 26 82 0A 81 51 B2 30 A4 31 38 3A 98 32 2C 4F 42 |&...Q.0.18:.2,OB|
00001CC0: 24 28 51 2C 30 29 AA 22 2C 22 AA 4F 42 24 28 51 |$(Q,0).",".OB$(Q|
00001CD0: 2C 31 29 AA 22 2C 22 AA 4F 42 24 28 51 2C 32 29 |,1).",".OB$(Q,2)|
00001CE0: 3A 82 51 00 1F 27 8C 0A 84 31 35 2C 45 31 2C 45 |:.Q..'...15,E1,E|
00001CF0: 31 24 2C 45 32 2C 45 33 3A A0 32 3A A0 31 35 3A |1$,E2,E3:.2:.15:|
00001D00: 8B 45 31 B1 31 39 A7 99 22 44 49 53 43 20 45 52 |.E1.19.."DISC ER|
00001D10: 52 4F 52 20 23 22 3B 45 31 3A 89 32 36 35 30 00 |ROR #";E1:.2650.|
00001D20: 63 27 96 0A 99 3A 99 22 52 45 4D 4F 56 45 20 44 |c'...:."REMOVE D|
00001D30: 41 54 41 20 44 49 53 43 20 46 52 4F 4D 20 44 52 |ATA DISC FROM DR|
00001D40: 49 56 45 20 41 4E 44 20 20 20 20 20 20 20 20 20 |IVE AND |
00001D50: 49 4E 53 45 52 54 20 44 49 53 4B 23 22 3B 43 44 |INSERT DISK#";CD|
00001D60: 25 3A 99 00 6F 27 A0 0A 8D 33 38 34 30 3A 8E 00 |%:..o'...3840:..|
00001D70: 81 27 AA 0A 8F 2D 52 45 53 54 4F 52 45 20 53 55 |.'...-RESTORE SU|
00001D80: 42 00 CC 27 B4 0A 99 22 93 22 3A 99 22 52 45 4D |B..'...".":."REM|
00001D90: 4F 56 45 20 44 49 53 4B 23 22 3B 43 44 25 3B 22 |OVE DISK#";CD%;"|
00001DA0: 46 52 4F 4D 20 44 52 49 56 45 20 41 4E 44 20 20 |FROM DRIVE AND |
00001DB0: 20 20 20 20 20 20 20 20 20 49 4E 53 45 52 54 20 | INSERT |
00001DC0: 44 41 54 41 20 44 49 53 4B 22 3A 99 00 04 28 BE |DATA DISK":...(.|
00001DD0: 0A 8D 33 38 34 30 3A 99 22 57 48 41 54 20 47 41 |..3840:."WHAT GA|
00001DE0: 4D 45 20 4E 55 4D 42 45 52 20 44 4F 20 59 4F 55 |ME NUMBER DO YOU|
00001DF0: 20 57 41 4E 54 20 54 4F 20 52 45 53 54 4F 52 45 | WANT TO RESTORE|
00001E00: 3F 20 22 3B 00 18 28 C8 0A A1 51 24 3A 8B 51 24 |? ";..(...Q$:.Q$|
00001E10: B2 22 22 89 32 37 36 30 00 40 28 D2 0A 8B 28 C6 |."".2760.@(...(.|
00001E20: 28 51 24 29 B3 34 39 B0 C6 28 51 24 29 B1 35 37 |(Q$).49..(Q$).57|
00001E30: 29 AF 28 51 24 B3 B1 22 48 22 29 89 32 37 36 30 |).(Q$.."H").2760|
00001E40: 00 60 28 DC 0A 99 51 24 3B 3A 8B 51 24 B2 22 48 |.`(...Q$;:.Q$."H|
00001E50: 22 A7 3A 8D 33 39 38 30 3A 99 22 9D 22 AA 51 24 |".:.3980:.".".Q$|
00001E60: 00 8D 28 E6 0A 99 3A 9F 31 35 2C 38 2C 31 35 3A |..(...:.15,8,15:|
00001E70: 9F 32 2C 38 2C 32 2C 22 30 3A 43 2F 4D 20 44 41 |.2,8,2,"0:C/M DA|
00001E80: 54 41 22 AA 51 24 AA 22 2C 53 2C 52 22 00 D3 28 |TA".Q$.",S,R"..(|
00001E90: F0 0A 84 32 2C 51 58 2C 51 59 2C 46 52 25 2C 43 |...2,QX,QY,FR%,C|
00001EA0: 44 25 3A 81 51 B2 30 A4 35 3A 81 51 51 B2 30 A4 |D%:.Q.0.5:.QQ.0.|
00001EB0: 37 3A 84 32 2C 50 49 25 28 51 51 2C 51 2C 31 29 |7:.2,PI%(QQ,Q,1)|
00001EC0: 2C 50 49 25 28 51 51 2C 51 2C 32 29 3A 82 51 51 |,PI%(QQ,Q,2):.QQ|
00001ED0: 3A 82 51 00 00 29 FA 0A 81 51 B2 30 A4 31 38 3A |:.Q..)...Q.0.18:|
00001EE0: 84 32 2C 4F 42 25 28 51 2C 30 29 2C 4F 42 25 28 |.2,OB%(Q,0),OB%(|
00001EF0: 51 2C 31 29 2C 4F 42 25 28 51 2C 32 29 3A 82 51 |Q,1),OB%(Q,2):.Q|
00001F00: 00 2D 29 04 0B 81 51 B2 30 A4 31 38 3A 84 32 2C |.-)...Q.0.18:.2,|
00001F10: 4F 42 24 28 51 2C 30 29 2C 4F 42 24 28 51 2C 31 |OB$(Q,0),OB$(Q,1|
00001F20: 29 2C 4F 42 24 28 51 2C 32 29 3A 82 51 00 69 29 |),OB$(Q,2):.Q.i)|
00001F30: 0E 0B 84 31 35 2C 45 31 2C 45 31 24 2C 45 32 2C |...15,E1,E1$,E2,|
00001F40: 45 33 3A A0 32 3A A0 31 35 3A 8B 45 31 B1 31 39 |E3:.2:.15:.E1.19|
00001F50: A7 99 22 44 49 53 4B 20 45 52 52 4F 52 20 23 22 |.."DISK ERROR #"|
00001F60: 3B 45 31 3A 89 32 37 38 30 00 AD 29 18 0B 99 3A |;E1:.2780..)...:|
00001F70: 99 22 52 45 4D 4F 56 45 20 44 41 54 41 20 44 49 |."REMOVE DATA DI|
00001F80: 53 4B 20 46 52 4F 4D 20 44 52 49 56 45 20 41 4E |SK FROM DRIVE AN|
00001F90: 44 20 20 20 20 20 20 20 20 20 49 4E 53 45 52 54 |D INSERT|
00001FA0: 20 44 49 53 4B 23 22 3B 43 44 25 3A 99 00 BD 29 | DISK#";CD%:...)|
00001FB0: 22 0B 8D 33 38 34 30 3A 89 33 36 38 30 00 D7 29 |"..3840:.3680..)|
00001FC0: 72 0B 8F 2D 49 4E 49 54 49 41 4C 49 5A 45 20 44 |r..-INITIALIZE D|
00001FD0: 49 53 4B 20 53 55 42 00 11 2A 7C 0B 99 22 93 22 |ISK SUB..*|.."."|
00001FE0: 3A 9E 34 39 32 33 38 3A 99 22 54 48 49 53 20 53 |:.49238:."THIS S|
00001FF0: 45 43 54 49 4F 4E 20 57 49 4C 4C 20 49 4E 49 54 |ECTION WILL INIT|
00002000: 49 41 4C 49 5A 45 20 41 20 43 41 56 45 4D 41 4E |IALIZE A CAVEMAN|
00002010: 22 00 53 2A 86 0B 99 22 44 41 54 41 20 44 49 53 |".S*..."DATA DIS|
00002020: 43 2C 20 41 4E 59 20 44 41 54 41 20 41 4C 52 45 |C, ANY DATA ALRE|
00002030: 41 44 59 20 4F 4E 20 54 48 45 20 44 49 53 43 20 |ADY ON THE DISC |
00002040: 57 49 4C 4C 20 42 45 20 44 45 53 54 52 4F 59 45 |WILL BE DESTROYE|
00002050: 44 2E 22 00 92 2A 90 0B 99 3A 99 22 41 52 45 20 |D."..*...:."ARE |
00002060: 59 4F 55 20 53 55 52 45 20 54 48 41 54 20 54 48 |YOU SURE THAT TH|
00002070: 49 53 20 49 53 20 57 48 41 54 20 59 4F 55 20 57 |IS IS WHAT YOU W|
00002080: 41 4E 54 20 54 4F 20 44 4F 3F 20 28 59 2F 4E 29 |ANT TO DO? (Y/N)|
00002090: 22 3B 00 A9 2A 9A 0B A1 51 24 3A 8B 51 24 B2 22 |";..*...Q$:.Q$."|
000020A0: 4E 22 A7 99 22 93 22 3A 8E 00 BB 2A A4 0B 8B 51 |N"..".":...*...Q|
000020B0: 24 B3 B1 22 59 22 89 32 39 37 30 00 0A 2B AE 0B |$.."Y".2970..+..|
000020C0: 99 22 20 22 3B 51 24 3A 99 3A 99 22 52 45 4D 4F |." ";Q$:.:."REMO|
000020D0: 56 45 20 44 49 53 4B 23 22 3B 43 44 25 22 46 52 |VE DISK#";CD%"FR|
000020E0: 4F 4D 20 44 52 49 56 45 20 41 4E 44 20 20 20 20 |OM DRIVE AND |
000020F0: 20 20 20 20 20 20 20 49 4E 53 45 52 54 20 44 41 | INSERT DA|
00002100: 54 41 20 44 49 53 4B 22 3A 99 00 47 2B B8 0B 8D |TA DISK":..G+...|
00002110: 33 38 34 30 3A 9F 31 35 2C 38 2C 31 35 2C 22 4E |3840:.15,8,15,"N|
00002120: 30 3A 43 41 56 45 4D 41 4E 20 44 41 54 41 2C 43 |0:CAVEMAN DATA,C|
00002130: 44 22 3A 84 31 35 2C 45 31 2C 45 31 24 2C 45 32 |D":.15,E1,E1$,E2|
00002140: 2C 45 33 3A A0 31 35 00 71 2B C2 0B 8B 45 31 B1 |,E3:.15.q+...E1.|
00002150: 31 39 A7 99 22 44 49 53 4B 20 45 52 52 4F 52 20 |19.."DISK ERROR |
00002160: 23 22 3B 45 31 3A 51 24 B2 22 22 3A 89 33 30 30 |#";E1:Q$."":.300|
00002170: 30 00 B2 2B CC 0B 99 22 44 4F 20 59 4F 55 20 57 |0..+..."DO YOU W|
00002180: 49 53 48 20 54 4F 20 54 48 45 20 53 41 56 45 20 |ISH TO THE SAVE |
00002190: 43 55 52 52 45 4E 54 20 47 41 4D 45 20 4F 4E 20 |CURRENT GAME ON |
000021A0: 54 48 49 53 20 44 49 53 4B 3F 20 28 59 2F 4E 29 |THIS DISK? (Y/N)|
000021B0: 22 3B 00 C7 2B D6 0B A1 51 24 3A 8B 51 24 B2 22 |";..+...Q$:.Q$."|
000021C0: 59 22 89 32 35 33 30 00 D9 2B E0 0B 8B 51 24 B3 |Y".2530..+...Q$.|
000021D0: B1 22 4E 22 89 33 30 33 30 00 14 2C EA 0B 99 22 |."N".3030..,..."|
000021E0: A0 22 3B 51 24 3A 99 3A 99 22 52 45 4D 4F 56 45 |.";Q$:.:."REMOVE|
000021F0: 20 44 41 54 41 20 44 49 53 4B 20 41 4E 44 20 49 | DATA DISK AND I|
00002200: 4E 53 45 52 54 20 50 52 4F 47 52 41 4D 20 44 49 |NSERT PROGRAM DI|
00002210: 53 4B 20 22 00 25 2C F4 0B 8D 33 38 34 30 3A 99 |SK ".%,...3840:.|
00002220: 22 93 22 3A 8E 00 3C 2C 30 0C 8F 2D 48 45 4C 50 |".":..<,0..-HELP|
00002230: 20 4F 52 20 48 49 4E 54 20 53 55 42 00 69 2C 3A | OR HINT SUB.i,:|
00002240: 0C 9E 34 39 32 33 38 3A 81 51 B2 30 A4 35 3A 8B |..49238:.Q.0.5:.|
00002250: C8 28 48 49 24 28 51 29 2C 31 29 B3 B1 22 20 22 |.(HI$(Q),1).." "|
00002260: A7 99 48 49 24 28 51 29 3B 00 74 2C 44 0C 82 51 |..HI$(Q);.t,D..Q|
00002270: 3A 99 3A 8E 00 B0 2C 4E 0C 51 B2 30 3A 8F 2D 47 |:.:...,N.Q.0:.-G|
00002280: 45 54 20 41 4E 20 4F 42 4A 45 43 54 20 28 4F 42 |ET AN OBJECT (OB|
00002290: 4A 45 43 54 20 4D 55 53 54 20 42 45 20 49 4E 20 |JECT MUST BE IN |
000022A0: 49 4D 4D 45 44 49 41 54 45 20 46 52 41 4D 45 29 |IMMEDIATE FRAME)|
000022B0: 00 D2 2C 58 0C 8B 43 41 24 28 4A 29 B2 22 20 22 |..,X..CA$(J)." "|
000022C0: AA 4F 42 24 28 51 2C 31 29 AA 22 20 22 89 33 32 |.OB$(Q,1)." ".32|
000022D0: 31 30 00 E7 2C 62 0C 51 B2 51 AA 31 3A 8B 51 B3 |10..,b.Q.Q.1:.Q.|
000022E0: 31 37 89 33 31 36 30 00 23 2D 6C 0C 8B 43 41 24 |17.3160.#-l..CA$|
000022F0: 28 4A 29 B2 22 20 22 A7 99 22 59 4F 55 20 4D 55 |(J)." ".."YOU MU|
00002300: 53 54 20 53 50 45 43 49 46 59 20 57 48 41 54 20 |ST SPECIFY WHAT |
00002310: 54 4F 20 47 45 54 20 4F 52 20 47 52 41 42 22 3A |TO GET OR GRAB":|
00002320: 99 3A 8E 00 49 2D 76 0C 99 22 49 20 44 4F 4E 54 |.:..I-v.."I DONT|
00002330: 20 4B 4E 4F 57 20 57 48 41 54 20 41 22 3B 43 41 | KNOW WHAT A";CA|
00002340: 24 28 4A 29 3B 22 49 53 22 00 7B 2D 80 0C 99 22 |$(J);"IS".{-..."|
00002350: 50 45 52 48 41 50 53 20 49 46 20 59 4F 55 20 52 |PERHAPS IF YOU R|
00002360: 45 50 48 52 41 53 45 44 20 57 48 41 54 20 59 4F |EPHRASED WHAT YO|
00002370: 55 20 57 41 4E 54 22 3A 99 3A 8E 00 A5 2D 8A 0C |U WANT":.:...-..|
00002380: 8B 51 B3 32 AF 28 4F 42 25 28 51 2C 30 29 B3 B1 |.Q.2.(OB%(Q,0)..|
00002390: 51 58 B0 4F 42 25 28 51 2C 31 29 B3 B1 51 59 29 |QX.OB%(Q,1)..QY)|
000023A0: 89 33 32 35 30 00 EC 2D 94 0C 8B 51 B3 32 A7 99 |.3250..-...Q.2..|
000023B0: 22 41 52 45 20 59 4F 55 20 4B 49 44 44 49 4E 47 |"ARE YOU KIDDING|
000023C0: 3F 22 3A 99 22 54 48 41 54 20 22 3B 4F 42 24 28 |?":."THAT ";OB$(|
000023D0: 51 2C 31 29 3B 22 20 4C 4F 4F 4B 53 20 44 41 4E |Q,1);" LOOKS DAN|
000023E0: 47 45 52 4F 55 53 21 22 3A 99 3A 8E 00 22 2E 9E |GEROUS!":.:.."..|
000023F0: 0C 8B 4F 42 25 28 51 2C 32 29 B2 31 A7 99 22 59 |..OB%(Q,2).1.."Y|
00002400: 4F 55 20 41 4C 52 45 41 44 59 20 48 41 56 45 20 |OU ALREADY HAVE |
00002410: 54 48 45 20 22 3B 4F 42 24 28 51 2C 31 29 3A 99 |THE ";OB$(Q,1):.|
00002420: 3A 8E 00 67 2E A8 0C 8B 4F 42 25 28 51 2C 30 29 |:..g....OB%(Q,0)|
00002430: B2 51 58 AF 4F 42 25 28 51 2C 31 29 B2 51 59 A7 |.QX.OB%(Q,1).QY.|
00002440: 4F 42 25 28 51 2C 32 29 B2 31 3A 99 4F 42 24 28 |OB%(Q,2).1:.OB$(|
00002450: 51 2C 31 29 3B 22 20 54 41 4B 45 4E 22 3A 99 3A |Q,1);" TAKEN":.:|
00002460: 8D 34 34 35 30 3A 8E 00 8D 2E B2 0C 99 22 59 4F |.4450:......."YO|
00002470: 55 20 44 4F 4E 54 20 53 45 45 20 54 48 45 20 22 |U DONT SEE THE "|
00002480: 3B 4F 42 24 28 51 2C 31 29 3A 99 3A 8E 00 CC 2E |;OB$(Q,1):.:....|
00002490: BC 0C 51 B2 30 3A 8F 2D 44 52 4F 50 20 41 4E 20 |..Q.0:.-DROP AN |
000024A0: 4F 42 4A 45 43 54 20 28 59 4F 55 20 4D 55 53 54 |OBJECT (YOU MUST|
000024B0: 20 48 41 56 45 20 54 48 45 20 4F 42 4A 45 43 54 | HAVE THE OBJECT|
000024C0: 20 54 4F 20 44 52 4F 50 20 49 54 29 00 EE 2E C6 | TO DROP IT)....|
000024D0: 0C 8B 43 41 24 28 4A 29 B2 22 20 22 AA 4F 42 24 |..CA$(J)." ".OB$|
000024E0: 28 51 2C 31 29 AA 22 20 22 89 33 33 32 30 00 03 |(Q,1)." ".3320..|
000024F0: 2F D0 0C 51 B2 51 AA 31 3A 8B 51 B3 31 37 89 33 |/..Q.Q.1:.Q.17.3|
00002500: 32 37 30 00 40 2F DA 0C 8B 43 41 24 28 4A 29 B2 |270.@/...CA$(J).|
00002510: 22 20 22 A7 99 22 59 4F 55 20 4D 55 53 54 20 53 |" ".."YOU MUST S|
00002520: 50 45 43 49 46 59 20 57 48 41 54 20 54 4F 20 44 |PECIFY WHAT TO D|
00002530: 52 4F 50 20 4F 52 20 47 49 56 45 22 3A 99 3A 8E |ROP OR GIVE":.:.|
00002540: 00 66 2F E4 0C 99 22 49 20 44 4F 4E 54 20 4B 4E |.f/..."I DONT KN|
00002550: 4F 57 20 57 48 41 54 20 41 22 3B 43 41 24 28 4A |OW WHAT A";CA$(J|
00002560: 29 3B 22 49 53 22 00 AA 2F EE 0C 99 22 50 45 52 |);"IS"../..."PER|
00002570: 48 41 50 53 20 49 46 20 59 4F 55 20 52 45 50 48 |HAPS IF YOU REPH|
00002580: 52 41 53 45 44 20 57 48 41 54 20 20 20 20 20 20 |RASED WHAT |
00002590: 20 20 20 20 20 59 4F 55 20 57 41 4E 54 20 54 4F | YOU WANT TO|
000025A0: 20 44 52 4F 50 22 3A 99 3A 8E 00 DD 2F F8 0C 8B | DROP":.:.../...|
000025B0: 4F 42 25 28 51 2C 32 29 B2 30 A7 99 22 59 4F 55 |OB%(Q,2).0.."YOU|
000025C0: 20 44 4F 4E 54 20 48 41 56 45 20 54 48 45 20 22 | DONT HAVE THE "|
000025D0: 3B 4F 42 24 28 51 2C 31 29 3A 99 3A 8E 00 23 30 |;OB$(Q,1):.:..#0|
000025E0: 02 0D 4F 42 25 28 51 2C 30 29 B2 51 58 3A 4F 42 |..OB%(Q,0).QX:OB|
000025F0: 25 28 51 2C 31 29 B2 51 59 3A 4F 42 25 28 51 2C |%(Q,1).QY:OB%(Q,|
00002600: 32 29 B2 30 3A 99 4F 42 24 28 51 2C 30 29 3B 22 |2).0:.OB$(Q,0);"|
00002610: 20 44 52 4F 50 50 45 44 22 3A 99 3A 8D 34 34 35 | DROPPED":.:.445|
00002620: 30 3A 8E 00 43 30 0C 0D 8F 2D 53 55 4D 4D 41 52 |0:..C0...-SUMMAR|
00002630: 49 5A 45 20 47 4C 4F 42 41 4C 20 43 4F 4D 4D 41 |IZE GLOBAL COMMA|
00002640: 4E 44 53 00 8C 30 16 0D 9E 34 39 32 33 38 3A 99 |NDS..0...49238:.|
00002650: 3A 81 51 B2 31 30 A4 33 35 3A 99 50 52 24 28 51 |:.Q.10.35:.PR$(Q|
00002660: 29 3B 22 20 A0 22 3B 3A 82 51 3A 99 22 47 45 54 |);" .";:.Q:."GET|
00002670: 20 47 52 41 42 20 44 52 4F 50 20 47 49 56 45 20 | GRAB DROP GIVE |
00002680: 45 58 41 4D 49 4E 45 22 3A 99 3A 8E 00 BF 30 34 |EXAMINE":.:...04|
00002690: 0D 8F 2D 43 4C 45 41 52 20 41 4C 4C 20 22 43 4D |..-CLEAR ALL "CM|
000026A0: 2E 44 41 54 41 22 20 46 49 4C 45 53 20 46 52 4F |.DATA" FILES FRO|
000026B0: 4D 20 44 49 53 43 20 49 4E 20 44 52 49 56 45 00 |M DISC IN DRIVE.|
000026C0: F4 30 3E 0D 9E 34 39 32 33 38 3A 99 3A 99 22 54 |.0>..49238:.:."T|
000026D0: 48 49 53 20 43 4F 4D 4D 41 4E 44 20 44 45 53 54 |HIS COMMAND DEST|
000026E0: 52 4F 59 53 20 41 4C 4C 20 47 41 4D 45 20 46 49 |ROYS ALL GAME FI|
000026F0: 4C 45 53 22 00 23 31 48 0D 99 22 57 48 49 43 48 |LES".#1H.."WHICH|
00002700: 20 59 4F 55 20 48 41 56 45 20 50 52 45 56 49 4F | YOU HAVE PREVIO|
00002710: 55 53 4C 59 20 53 41 56 45 44 20 4F 4E 20 44 49 |USLY SAVED ON DI|
00002720: 53 43 22 00 4F 31 52 0D 99 22 49 53 20 54 48 49 |SC".O1R.."IS THI|
00002730: 53 20 57 48 41 54 20 59 4F 55 20 57 41 4E 54 20 |S WHAT YOU WANT |
00002740: 54 4F 20 44 4F 3F 20 28 59 2F 4E 29 22 3A 99 00 |TO DO? (Y/N)":..|
00002750: 61 31 5C 0D A1 51 24 3A 8B 51 24 B2 22 4E 22 A7 |a1\..Q$:.Q$."N".|
00002760: 8E 00 73 31 66 0D 8B 51 24 B3 B1 22 59 22 89 33 |..s1f..Q$.."Y".3|
00002770: 34 32 30 00 B8 31 70 0D 99 22 49 4E 53 45 52 54 |420..1p.."INSERT|
00002780: 20 44 49 53 43 20 57 48 49 43 48 20 43 4F 4E 54 | DISC WHICH CONT|
00002790: 41 49 4E 53 20 54 48 45 20 47 41 4D 45 53 20 20 |AINS THE GAMES |
000027A0: 20 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 53 43 | YOU WANT TO SC|
000027B0: 52 41 54 43 48 22 3A 99 00 F3 31 7A 0D 8D 33 38 |RATCH":...1z..38|
000027C0: 34 30 3A 9F 31 35 2C 38 2C 31 35 3A 98 31 35 2C |40:.15,8,15:.15,|
000027D0: 22 53 4F 3A 43 2F 4D 20 44 41 54 41 3F 22 3A 84 |"SO:C/M DATA?":.|
000027E0: 31 35 2C 45 31 2C 45 31 24 2C 45 32 2C 45 33 3A |15,E1,E1$,E2,E3:|
000027F0: A0 31 35 00 17 32 84 0D 8B 45 31 B1 31 39 A7 99 |.15..2...E1.19..|
00002800: 22 44 49 53 43 20 45 52 52 4F 52 20 23 22 3B 45 |"DISC ERROR #";E|
00002810: 31 3A 89 33 34 35 30 00 1D 32 8E 0D 8E 00 32 32 |1:.3450..2....22|
00002820: AC 0D 8F 2D 57 41 4C 4B 20 4E 4F 52 54 48 20 53 |...-WALK NORTH S|
00002830: 55 42 00 6B 32 B6 0D 9E 34 39 32 33 38 3A 8B 50 |UB.k2...49238:.P|
00002840: 49 25 28 51 58 2C 51 59 2C 33 29 AF 31 A7 51 59 |I%(QX,QY,3).1.QY|
00002850: B2 51 59 AB 31 3A 99 22 57 41 4C 4B 20 4E 4F 52 |.QY.1:."WALK NOR|
00002860: 54 48 22 3A 99 3A 89 33 36 38 30 00 95 32 C0 0D |TH":.:.3680..2..|
00002870: 99 22 59 4F 55 20 43 41 4E 27 54 20 57 41 4C 4B |."YOU CAN'T WALK|
00002880: 20 4E 4F 52 54 48 20 46 52 4F 4D 20 48 45 52 45 | NORTH FROM HERE|
00002890: 22 3A 99 3A 8E 00 AA 32 D4 0D 8F 2D 57 41 4C 4B |":.:...2...-WALK|
000028A0: 20 53 4F 55 54 48 20 53 55 42 00 E3 32 DE 0D 9E | SOUTH SUB..2...|
000028B0: 34 39 32 33 38 3A 8B 50 49 25 28 51 58 2C 51 59 |49238:.PI%(QX,QY|
000028C0: 2C 33 29 AF 32 A7 51 59 B2 51 59 AA 31 3A 99 22 |,3).2.QY.QY.1:."|
000028D0: 57 41 4C 4B 20 53 4F 55 54 48 22 3A 99 3A 89 33 |WALK SOUTH":.:.3|
000028E0: 36 38 30 00 0D 33 E8 0D 99 22 59 4F 55 20 43 41 |680..3..."YOU CA|
000028F0: 4E 27 54 20 57 41 4C 4B 20 53 4F 55 54 48 20 46 |N'T WALK SOUTH F|
00002900: 52 4F 4D 20 48 45 52 45 22 3A 99 3A 8E 00 21 33 |ROM HERE":.:..!3|
00002910: F2 0D 8F 2D 57 41 4C 4B 20 45 41 53 54 20 53 55 |...-WALK EAST SU|
00002920: 42 00 59 33 FC 0D 9E 34 39 32 33 38 3A 8B 50 49 |B.Y3...49238:.PI|
00002930: 25 28 51 58 2C 51 59 2C 33 29 AF 34 A7 51 58 B2 |%(QX,QY,3).4.QX.|
00002940: 51 58 AA 31 3A 99 22 57 41 4C 4B 20 45 41 53 54 |QX.1:."WALK EAST|
00002950: 22 3A 99 3A 89 33 36 38 30 00 82 33 06 0E 99 22 |":.:.3680..3..."|
00002960: 59 4F 55 20 43 41 4E 27 54 20 57 41 4C 4B 20 45 |YOU CAN'T WALK E|
00002970: 41 53 54 20 46 52 4F 4D 20 48 45 52 45 22 3A 99 |AST FROM HERE":.|
00002980: 3A 8E 00 BA 33 1A 0E 9E 34 39 32 33 38 3A 8B 50 |:...3...49238:.P|
00002990: 49 25 28 51 58 2C 51 59 2C 33 29 AF 38 A7 51 58 |I%(QX,QY,3).8.QX|
000029A0: B2 51 58 AB 31 3A 99 22 57 41 4C 4B 20 57 45 53 |.QX.1:."WALK WES|
000029B0: 54 22 3A 99 3A 89 33 36 38 30 00 E3 33 24 0E 99 |T":.:.3680..3$..|
000029C0: 22 59 4F 55 20 43 41 4E 27 54 20 57 41 4C 4B 20 |"YOU CAN'T WALK |
000029D0: 57 45 53 54 20 46 52 4F 4D 20 48 45 52 45 22 3A |WEST FROM HERE":|
000029E0: 99 3A 8E 00 09 34 2E 0E 44 B2 32 30 3A 8D 33 39 |.:...4..D.20:.39|
000029F0: 32 30 3A 8B 43 44 25 B2 50 49 25 28 51 58 2C 51 |20:.CD%.PI%(QX,Q|
00002A00: 59 2C 30 29 89 33 36 36 30 00 3F 34 38 0E 9E 34 |Y,0).3660.?48..4|
00002A10: 39 32 33 38 3A 99 22 93 22 3A 99 22 52 45 4D 4F |9238:.".":."REMO|
00002A20: 56 45 20 44 49 53 4B 23 22 3B 43 44 25 3B 3A 43 |VE DISK#";CD%;:C|
00002A30: 44 25 B2 50 49 25 28 51 58 2C 51 59 2C 30 29 00 |D%.PI%(QX,QY,0).|
00002A40: 6A 34 42 0E 99 22 41 4E 44 20 49 4E 53 45 52 54 |j4B.."AND INSERT|
00002A50: 20 44 49 53 4B 23 22 3B 50 49 25 28 51 58 2C 51 | DISK#";PI%(QX,Q|
00002A60: 59 2C 30 29 3A 8D 33 38 34 30 00 AE 34 4C 0E 9E |Y,0):.3840..4L..|
00002A70: 34 39 32 33 38 3A 99 22 93 9E 22 3A 99 22 11 11 |49238:."..":."..|
00002A80: 11 11 11 11 11 11 11 11 11 11 20 20 20 20 20 20 |.......... |
00002A90: 50 4C 45 41 53 45 20 57 41 49 54 20 46 4F 52 20 |PLEASE WAIT FOR |
00002AA0: 44 49 53 4B 20 41 43 43 45 53 53 22 3A 8E 00 D9 |DISK ACCESS":...|
00002AB0: 34 60 0E 8D 33 36 33 30 3A 4C 24 B2 C9 28 C4 28 |4`..3630:L$..(.(|
00002AC0: 51 58 29 2C 31 29 AA 22 5F 22 AA C9 28 C4 28 51 |QX),1)."_"..(.(Q|
00002AD0: 59 29 2C 31 29 AA 22 5E 22 00 19 35 6A 0E 81 51 |Y),1)."^"..5j..Q|
00002AE0: 51 B2 31 A4 31 30 3A 97 34 39 34 35 35 AA 51 51 |Q.1.10:.49455.QQ|
00002AF0: 2C C6 28 CA 28 4C 24 AA C4 28 50 49 25 28 51 58 |,.(.(L$..(PI%(QX|
00002B00: 2C 51 59 2C 31 29 29 AA 22 20 50 49 43 22 2C 51 |,QY,1))." PIC",Q|
00002B10: 51 2C 31 29 29 3A 82 51 51 00 5A 35 74 0E 81 51 |Q,1)):.QQ.Z5t..Q|
00002B20: 51 B2 31 A4 31 31 3A 97 34 39 34 37 31 AA 51 51 |Q.1.11:.49471.QQ|
00002B30: 2C C6 28 CA 28 4C 24 AA C4 28 50 49 25 28 51 58 |,.(.(L$..(PI%(QX|
00002B40: 2C 51 59 2C 31 29 29 AA 22 20 43 4C 52 53 22 2C |,QY,1))." CLRS",|
00002B50: 51 51 2C 31 29 29 3A 82 51 51 00 95 35 7E 0E 81 |QQ,1)):.QQ..5~..|
00002B60: 51 51 B2 31 A4 38 3A 97 34 39 34 38 37 AA 51 51 |QQ.1.8:.49487.QQ|
00002B70: 2C C6 28 CA 28 4C 24 AA 22 20 53 55 42 22 2C 51 |,.(.(L$." SUB",Q|
00002B80: 51 2C 31 29 29 3A 82 51 51 3A 8B 47 4D 25 B2 30 |Q,1)):.QQ:.GM%.0|
00002B90: 89 33 37 36 30 00 BE 35 88 0E 9F 31 35 2C 38 2C |.3760..5...15,8,|
00002BA0: 31 35 3A 9E 34 39 33 31 32 3A 84 31 35 2C 45 31 |15:.49312:.15,E1|
00002BB0: 2C 45 31 24 2C 45 32 2C 45 33 3A A0 31 35 00 EE |,E1$,E2,E3:.15..|
00002BC0: 35 92 0E 8B 45 31 B1 31 39 A7 9E 34 39 32 33 38 |5...E1.19..49238|
00002BD0: 3A 99 22 44 49 53 4B 20 45 52 52 4F 52 23 22 3B |:."DISK ERROR#";|
00002BE0: 45 31 3A 8D 33 38 34 30 3A 89 33 37 32 30 00 24 |E1:.3840:.3720.$|
00002BF0: 36 9C 0E 9F 31 35 2C 38 2C 31 35 3A 9E 34 39 33 |6...15,8,15:.493|
00002C00: 34 34 3A 84 31 35 2C 45 31 2C 45 31 24 2C 45 32 |44:.15,E1,E1$,E2|
00002C10: 2C 45 33 3A A0 31 35 3A 9E 35 30 36 38 38 3A 8D |,E3:.15:.50688:.|
00002C20: 34 34 35 30 00 54 36 A6 0E 8B 45 31 B1 31 39 A7 |4450.T6...E1.19.|
00002C30: 9E 34 39 32 33 38 3A 99 22 44 49 53 4B 20 45 52 |.49238:."DISK ER|
00002C40: 52 4F 52 23 22 3B 45 31 3A 8D 33 38 34 30 3A 89 |ROR#";E1:.3840:.|
00002C50: 33 37 34 30 00 7D 36 B0 0E 9F 31 35 2C 38 2C 31 |3740.}6...15,8,1|
00002C60: 35 3A 9E 34 39 33 37 36 3A 84 31 35 2C 45 31 2C |5:.49376:.15,E1,|
00002C70: 45 31 24 2C 45 32 2C 45 33 3A A0 31 35 00 AD 36 |E1$,E2,E3:.15..6|
00002C80: BA 0E 8B 45 31 B1 31 39 A7 9E 34 39 32 33 38 3A |...E1.19..49238:|
00002C90: 99 22 44 49 53 4B 20 45 52 52 4F 52 23 22 3B 45 |."DISK ERROR#";E|
00002CA0: 31 3A 8D 33 38 34 30 3A 89 33 37 36 30 00 C5 36 |1:.3840:.3760..6|
00002CB0: BC 0E 46 52 B2 30 3A 8D 32 31 36 30 3A 51 B2 B8 |..FR.0:.2160:Q..|
00002CC0: 28 30 29 3A 8E 00 02 37 C4 0E 4C 24 B2 C9 28 C4 |(0):...7..L$..(.|
00002CD0: 28 51 58 29 2C 31 29 AA 22 5F 22 AA C9 28 C4 28 |(QX),1)."_"..(.(|
00002CE0: 51 59 29 2C 31 29 AA 22 5E 22 AA C4 28 50 49 25 |QY),1)."^"..(PI%|
00002CF0: 28 51 58 2C 51 59 2C 32 29 29 AA 22 20 44 41 54 |(QX,QY,2))." DAT|
00002D00: 41 22 00 40 37 CE 0E 9F 31 35 2C 38 2C 31 35 3A |A".@7...15,8,15:|
00002D10: 9F 32 2C 38 2C 32 2C 22 30 3A 22 AA 4C 24 AA 22 |.2,8,2,"0:".L$."|
00002D20: 2C 53 2C 52 22 3A 81 51 B2 30 A4 39 3A 84 32 2C |,S,R":.Q.0.9:.2,|
00002D30: 50 52 24 28 51 29 2C 50 52 25 28 51 29 3A 82 51 |PR$(Q),PR%(Q):.Q|
00002D40: 00 5B 37 D8 0E 81 51 B2 30 A4 35 3A 84 32 2C 4C |.[7...Q.0.5:.2,L|
00002D50: 4F 24 28 51 29 2C 43 43 3A 82 51 00 8E 37 E2 0E |O$(Q),CC:.Q..7..|
00002D60: 81 51 B2 30 A4 35 3A 84 32 2C 48 49 24 28 51 29 |.Q.0.5:.2,HI$(Q)|
00002D70: 2C 43 43 3A 82 51 3A 84 31 35 2C 45 31 2C 45 31 |,CC:.Q:.15,E1,E1|
00002D80: 24 2C 45 32 2C 45 33 3A A0 32 3A A0 31 35 00 C8 |$,E2,E3:.2:.15..|
00002D90: 37 EC 0E 8B 45 31 B1 31 39 B0 4C 4F 24 28 30 29 |7...E1.19.LO$(0)|
00002DA0: B2 22 22 A7 9E 34 39 32 33 38 3A 99 22 44 49 53 |.""..49238:."DIS|
00002DB0: 43 20 45 52 52 4F 52 23 22 3B 45 31 3A 8D 33 38 |C ERROR#";E1:.38|
00002DC0: 34 30 3A 89 33 37 38 30 00 CE 37 F6 0E 8E 00 E6 |40:.3780..7.....|
00002DD0: 37 00 0F 8F 2D 57 41 49 54 20 46 4F 52 20 53 50 |7...-WAIT FOR SP|
00002DE0: 41 43 45 42 41 52 00 22 38 0A 0F 99 22 50 52 45 |ACEBAR."8..."PRE|
00002DF0: 53 53 20 53 50 41 43 45 20 42 41 52 20 57 48 45 |SS SPACE BAR WHE|
00002E00: 4E 20 52 45 41 44 59 91 22 3A 44 B2 31 30 3A 8D |N READY.":D.10:.|
00002E10: 33 39 32 30 3A 81 51 B2 30 A4 33 39 3A 99 22 20 |3920:.Q.0.39:." |
00002E20: 22 3B 00 4C 38 14 0F 82 51 3A 44 B2 31 30 3A 8D |";.L8...Q:D.10:.|
00002E30: 33 39 32 30 3A 99 22 91 91 22 3A A1 51 24 3A 8B |3920:."..":.Q$:.|
00002E40: 51 24 B3 B1 22 20 22 89 33 38 35 30 00 52 38 1E |Q$.." ".3850.R8.|
00002E50: 0F 8E 00 8A 38 28 0F 99 22 59 4F 55 20 48 41 56 |....8(.."YOU HAV|
00002E60: 45 20 44 49 45 44 21 21 21 22 3A 44 B2 34 30 3A |E DIED!!!":D.40:|
00002E70: 8D 33 39 32 30 3A 99 22 50 4C 41 59 20 41 47 41 |.3920:."PLAY AGA|
00002E80: 49 4E 3F 20 28 59 2F 4E 29 22 00 9F 38 32 0F A1 |IN? (Y/N)"..82..|
00002E90: 51 24 3A 8B 51 24 B2 22 59 22 89 31 30 30 30 00 |Q$:.Q$."Y".1000.|
00002EA0: B1 38 3C 0F 8B 51 24 B3 B1 22 4E 22 89 33 38 39 |.8<..Q$.."N".389|
00002EB0: 30 00 BC 38 46 0F 9E 36 34 37 33 38 00 DE 38 50 |0..8F..64738..8P|
00002EC0: 0F 8F 2D 57 41 49 54 20 44 2F 31 30 20 4E 55 4D |..-WAIT D/10 NUM|
00002ED0: 42 45 52 20 4F 46 20 53 45 43 4F 4E 44 53 00 FD |BER OF SECONDS..|
00002EE0: 38 5A 0F 81 44 53 B2 30 A4 44 3A 81 44 44 B2 30 |8Z..DS.0.D:.DD.0|
00002EF0: A4 32 35 3A 82 44 44 3A 82 44 53 3A 8E 00 12 39 |.25:.DD:.DS:...9|
00002F00: 64 0F A1 51 24 3A 8B 51 24 B3 B1 22 22 89 33 39 |d..Q$:.Q$.."".39|
00002F10: 34 30 00 2F 39 6E 0F 99 22 50 52 45 53 53 20 46 |40./9n.."PRESS F|
00002F20: 31 20 54 4F 20 43 4F 4E 54 49 4E 55 45 91 22 00 |1 TO CONTINUE.".|
00002F30: 45 39 78 0F A1 51 24 3A 8B 51 24 B3 B1 22 85 22 |E9x..Q$:.Q$.."."|
00002F40: 89 33 39 36 30 00 52 39 82 0F 9E 34 39 31 35 32 |.3960.R9...49152|
00002F50: 3A 8E 00 7E 39 8C 0F 8F 2D 44 45 54 45 52 4D 49 |:..~9...-DETERMI|
00002F60: 4E 45 20 23 20 4F 46 20 48 49 47 48 45 53 54 20 |NE # OF HIGHEST |
00002F70: 44 41 54 41 20 46 49 4C 45 20 55 53 45 44 00 AB |DATA FILE USED..|
00002F80: 39 96 0F 51 24 B2 22 30 22 3A 9F 31 2C 38 2C 30 |9..Q$."0":.1,8,0|
00002F90: 2C 22 24 30 22 3A A1 23 31 2C 41 24 2C 41 24 2C |,"$0":.#1,A$,A$,|
00002FA0: 41 24 2C 41 24 2C 41 24 2C 41 24 00 C8 39 A0 0F |A$,A$,A$,A$..9..|
00002FB0: 42 24 B2 22 22 3A A1 23 31 2C 41 24 3A 8B 53 54 |B$."":.#1,A$:.ST|
00002FC0: B3 B1 30 A7 A0 31 3A 8E 00 DC 39 AA 0F 8B 41 24 |..0..1:...9...A$|
00002FD0: B3 B1 C7 28 33 34 29 89 34 30 30 30 00 01 3A B4 |...(34).4000..:.|
00002FE0: 0F A1 23 31 2C 41 24 3A 8B 41 24 B3 B1 C7 28 33 |..#1,A$:.A$...(3|
00002FF0: 34 29 A7 42 24 B2 42 24 AA 41 24 3A 89 34 30 32 |4).B$.B$.A$:.402|
00003000: 30 00 2A 3A BE 0F 8B C8 28 42 24 2C 38 29 B2 22 |0.*:....(B$,8)."|
00003010: 43 2F 4D 20 44 41 54 41 22 A7 42 24 B2 C9 28 42 |C/M DATA".B$..(B|
00003020: 24 2C C3 28 42 24 29 AB 38 29 00 58 3A C8 0F 8B |$,.(B$).8).X:...|
00003030: C5 28 42 24 29 B1 C5 28 51 24 29 A7 51 24 B2 42 |.(B$)..(Q$).Q$.B|
00003040: 24 3A 8B C5 28 51 24 29 B2 B1 39 A7 51 24 B2 22 |$:..(Q$)..9.Q$."|
00003050: 39 22 3A 89 34 30 38 30 00 72 3A D2 0F A1 23 31 |9":.4080.r:...#1|
00003060: 2C 41 24 3A 8B 41 24 B2 C7 28 33 32 29 89 34 30 |,A$:.A$..(32).40|
00003070: 35 30 00 93 3A DC 0F 42 24 B2 42 24 AA 41 24 3A |50..:..B$.B$.A$:|
00003080: A1 23 31 2C 41 24 3A 8B 41 24 B3 B1 22 22 89 34 |.#1,A$:.A$.."".4|
00003090: 30 36 30 00 A2 3A E6 0F 8B 53 54 B2 30 89 34 30 |060..:...ST.0.40|
000030A0: 30 30 00 AB 3A F0 0F A0 31 3A 8E 00 D3 3A FA 0F |00..:...1:...:..|
000030B0: 8D 33 39 38 30 3A 8B 51 24 B3 B1 22 39 22 A7 51 |.3980:.Q$.."9".Q|
000030C0: 24 B2 C9 28 C4 28 C5 28 51 24 29 AA 31 29 2C 31 |$..(.(.(Q$).1),1|
000030D0: 29 3A 8E 00 1A 3B 04 10 99 3A 99 22 41 4C 4C 20 |):...;...:."ALL |
000030E0: 47 41 4D 45 20 46 49 4C 45 53 20 55 53 45 44 2E |GAME FILES USED.|
000030F0: 20 57 48 49 43 48 20 47 41 4D 45 23 20 44 4F 20 | WHICH GAME# DO |
00003100: 59 4F 55 20 57 41 4E 54 20 54 4F 20 4F 56 45 52 |YOU WANT TO OVER|
00003110: 57 52 49 54 45 3F 20 20 22 3B 00 2E 3B 0E 10 A1 |WRITE? ";..;...|
00003120: 51 24 3A 8B 51 24 B2 22 22 89 34 31 31 30 00 4C |Q$:.Q$."".4110.L|
00003130: 3B 18 10 8B 28 C6 28 51 24 29 B3 34 39 B0 C6 28 |;...(.(Q$).49..(|
00003140: 51 24 29 B1 35 37 29 89 34 31 31 30 00 52 3B 22 |Q$).57).4110.R;"|
00003150: 10 8E 00 76 3B 2C 10 9F 31 35 2C 38 2C 31 35 3A |...v;,..15,8,15:|
00003160: 9F 32 2C 38 2C 32 2C 22 30 3A 47 4C 4F 42 41 4C |.2,8,2,"0:GLOBAL|
00003170: 53 2C 53 2C 52 22 00 97 3B 36 10 81 51 B2 31 30 |S,S,R"..;6..Q.10|
00003180: A4 34 33 3A 84 32 2C 50 52 24 28 51 29 2C 50 52 |.43:.2,PR$(Q),PR|
00003190: 25 28 51 29 3A 82 51 00 B3 3B 40 10 84 31 35 2C |%(Q):.Q..;@..15,|
000031A0: 45 31 2C 45 31 24 2C 45 32 2C 45 33 3A A0 32 3A |E1,E1$,E2,E3:.2:|
000031B0: A0 31 35 00 EE 3B 4A 10 8B 45 31 B1 31 39 B0 50 |.15..;J..E1.19.P|
000031C0: 52 25 28 31 30 29 B2 30 A7 9E 34 39 32 33 38 3A |R%(10).0..49238:|
000031D0: 99 22 44 49 53 4B 20 45 52 52 4F 52 20 23 22 3B |."DISK ERROR #";|
000031E0: 45 31 3A 8D 33 38 34 30 3A 89 34 31 34 30 00 F4 |E1:.3840:.4140..|
000031F0: 3B 54 10 8E 00 16 3C 5E 10 9F 31 35 2C 38 2C 31 |;T....<^..15,8,1|
00003200: 35 3A 9F 32 2C 38 2C 32 2C 22 30 3A 56 45 52 42 |5:.2,8,2,"0:VERB|
00003210: 53 2C 53 2C 52 22 00 2F 3C 68 10 81 51 B2 30 A4 |S,S,R"./<h..Q.0.|
00003220: 36 35 3A 84 32 2C 56 41 24 28 51 29 3A 82 51 00 |65:.2,VA$(Q):.Q.|
00003230: 4B 3C 72 10 84 31 35 2C 45 31 2C 45 31 24 2C 45 |K<r..15,E1,E1$,E|
00003240: 32 2C 45 33 3A A0 32 3A A0 31 35 00 86 3C 7C 10 |2,E3:.2:.15..<|.|
00003250: 8B 45 31 B1 31 39 B0 56 41 24 28 30 29 B2 22 22 |.E1.19.VA$(0).""|
00003260: A7 9E 34 39 32 33 38 3A 99 22 44 49 53 4B 20 45 |..49238:."DISK E|
00003270: 52 52 4F 52 20 23 22 3B 45 31 3A 8D 33 38 34 30 |RROR #";E1:.3840|
00003280: 3A 89 34 31 39 30 00 8C 3C 86 10 8E 00 B6 3C 90 |:.4190..<.....<.|
00003290: 10 9F 31 35 2C 38 2C 31 35 3A 9F 32 2C 38 2C 32 |..15,8,15:.2,8,2|
000032A0: 2C 22 30 3A 4E 2F 41 20 52 45 53 50 4F 4E 53 45 |,"0:N/A RESPONSE|
000032B0: 53 2C 53 2C 52 22 00 CE 3C 9A 10 81 51 B2 30 A4 |S,S,R"..<...Q.0.|
000032C0: 36 3A 84 32 2C 4E 41 24 28 51 29 3A 82 51 00 EA |6:.2,NA$(Q):.Q..|
000032D0: 3C A4 10 84 31 35 2C 45 31 2C 45 31 24 2C 45 32 |<...15,E1,E1$,E2|
000032E0: 2C 45 33 3A A0 32 3A A0 31 35 00 25 3D AE 10 8B |,E3:.2:.15.%=...|
000032F0: 45 31 B1 31 39 B0 4E 41 24 28 30 29 B2 22 22 A7 |E1.19.NA$(0)."".|
00003300: 9E 34 39 32 33 38 3A 99 22 44 49 53 4B 20 45 52 |.49238:."DISK ER|
00003310: 52 4F 52 20 23 22 3B 45 31 3A 8D 33 38 34 30 3A |ROR #";E1:.3840:|
00003320: 89 34 32 34 30 00 2B 3D B8 10 8E 00 4F 3D C2 10 |.4240.+=....O=..|
00003330: 9F 31 35 2C 38 2C 31 35 3A 9F 32 2C 38 2C 32 2C |.15,8,15:.2,8,2,|
00003340: 22 30 3A 4F 42 4A 45 43 54 53 2C 53 2C 52 22 00 |"0:OBJECTS,S,R".|
00003350: 79 3D CC 10 81 51 B2 30 A4 31 38 3A 84 32 2C 4F |y=...Q.0.18:.2,O|
00003360: 42 24 28 51 2C 30 29 2C 4F 42 24 28 51 2C 31 29 |B$(Q,0),OB$(Q,1)|
00003370: 2C 4F 42 24 28 51 2C 32 29 00 A7 3D D6 10 84 32 |,OB$(Q,2)..=...2|
00003380: 2C 4F 42 25 28 51 2C 30 29 2C 4F 42 25 28 51 2C |,OB%(Q,0),OB%(Q,|
00003390: 31 29 2C 4F 42 25 28 51 2C 33 29 2C 4F 42 25 28 |1),OB%(Q,3),OB%(|
000033A0: 51 2C 34 29 3A 82 51 00 C3 3D E0 10 84 31 35 2C |Q,4):.Q..=...15,|
000033B0: 45 31 2C 45 31 24 2C 45 32 2C 45 33 3A A0 32 3A |E1,E1$,E2,E3:.2:|
000033C0: A0 31 35 00 00 3E EA 10 8B 45 31 B1 31 39 B0 4F |.15..>...E1.19.O|
000033D0: 42 24 28 30 2C 30 29 B2 22 22 A7 9E 34 39 32 33 |B$(0,0).""..4923|
000033E0: 38 3A 99 22 44 49 53 4B 20 45 52 52 4F 52 20 23 |8:."DISK ERROR #|
000033F0: 22 3B 45 31 3A 8D 33 38 34 30 3A 89 34 32 39 30 |";E1:.3840:.4290|
00003400: 00 06 3E F4 10 8E 00 26 3E FE 10 9F 31 35 2C 38 |..>....&>...15,8|
00003410: 2C 31 35 3A 9F 32 2C 38 2C 32 2C 22 30 3A 50 49 |,15:.2,8,2,"0:PI|
00003420: 25 2C 53 2C 52 22 00 57 3E 08 11 81 51 59 B2 30 |%,S,R".W>...QY.0|
00003430: A4 35 3A 81 51 58 B2 30 A4 37 3A 84 32 2C 50 49 |.5:.QX.0.7:.2,PI|
00003440: 25 28 51 58 2C 51 59 2C 30 29 2C 50 49 25 28 51 |%(QX,QY,0),PI%(Q|
00003450: 58 2C 51 59 2C 33 29 00 81 3E 12 11 50 49 25 28 |X,QY,3)..>..PI%(|
00003460: 51 58 2C 51 59 2C 31 29 B2 31 3A 50 49 25 28 51 |QX,QY,1).1:PI%(Q|
00003470: 58 2C 51 59 2C 32 29 B2 31 3A 82 51 58 3A 82 51 |X,QY,2).1:.QX:.Q|
00003480: 59 00 9D 3E 1C 11 84 31 35 2C 45 31 2C 45 31 24 |Y..>...15,E1,E1$|
00003490: 2C 45 32 2C 45 33 3A A0 32 3A A0 31 35 00 CE 3E |,E2,E3:.2:.15..>|
000034A0: 26 11 8B 45 31 B1 31 39 A7 9E 34 39 32 33 38 3A |&..E1.19..49238:|
000034B0: 99 22 44 49 53 4B 20 45 52 52 4F 52 20 23 22 3B |."DISK ERROR #";|
000034C0: 45 31 3A 8D 33 38 34 30 3A 89 34 33 35 30 00 D4 |E1:.3840:.4350..|
000034D0: 3E 30 11 8E 00 17 3F 62 11 51 53 B2 B7 28 30 29 |>0....?b.QS..(0)|
000034E0: 3A 81 51 53 B2 30 A4 31 38 3A 8B 4F 42 25 28 51 |:.QS.0.18:.OB%(Q|
000034F0: 53 2C 30 29 B3 B1 51 58 B0 4F 42 25 28 51 53 2C |S,0)..QX.OB%(QS,|
00003500: 31 29 B3 B1 51 59 B0 4F 42 25 28 51 53 2C 32 29 |1)..QY.OB%(QS,2)|
00003510: B2 31 89 34 34 39 30 00 4D 3F 6C 11 51 B2 37 3A |.1.4490.M?l.Q.7:|
00003520: 8B 4F 42 25 28 51 53 2C 33 29 B1 30 AF C2 28 35 |.OB%(QS,3).0..(5|
00003530: 30 39 33 30 29 B2 34 38 A7 51 B2 B7 28 4F 42 25 |0930).48.Q..(OB%|
00003540: 28 51 53 2C 33 29 29 3A 89 34 34 39 30 00 7C 3F |(QS,3)):.4490.|?|
00003550: 76 11 8B C2 28 35 30 39 33 30 AA 51 29 B2 34 38 |v...(50930.Q).48|
00003560: A7 97 35 30 39 33 30 AA 51 2C 34 38 AA 4F 42 25 |..50930.Q,48.OB%|
00003570: 28 51 53 2C 34 29 3A 89 34 34 39 30 00 91 3F 80 |(QS,4):.4490..?.|
00003580: 11 8B 51 B1 30 A7 51 B2 51 AB 31 3A 89 34 34 37 |..Q.0.Q.Q.1:.447|
00003590: 30 00 9B 3F 8A 11 82 51 53 3A 8E 00 E0 3F 28 23 |0..?...QS:...?(#|
000035A0: 8D 33 36 38 30 3A 99 22 54 48 45 20 43 41 54 20 |.3680:."THE CAT |
000035B0: 44 49 53 41 50 50 45 41 52 53 20 49 4E 54 4F 20 |DISAPPEARS INTO |
000035C0: 54 48 45 20 47 4F 52 47 45 20 41 48 45 41 44 21 |THE GORGE AHEAD!|
000035D0: 22 3A 50 49 25 28 31 2C 31 2C 32 29 B2 32 3A 8E |":PI%(1,1,2).2:.|
000035E0: 00 0B 40 8C 23 51 59 B2 51 59 AA 31 3A 8D 33 36 |..@.#QY.QY.1:.36|
000035F0: 38 30 3A 50 49 25 28 31 2C 32 2C 32 29 B2 32 3A |80:PI%(1,2,2).2:|
00003600: 8B 47 4D 25 B2 30 89 39 31 32 30 00 39 40 96 23 |.GM%.0.9120.9@.#|
00003610: 8D 33 39 34 30 3A 9E 34 39 31 35 32 3A 44 B2 31 |.3940:.49152:D.1|
00003620: 35 3A 8D 33 39 32 30 3A 51 B2 B7 28 33 29 3A 44 |5:.3920:Q..(3):D|
00003630: B2 32 35 3A 8D 33 39 32 30 00 69 40 A0 23 9E 34 |.25:.3920.i@.#.4|
00003640: 39 32 33 38 3A 99 22 54 48 45 20 43 41 54 20 47 |9238:."THE CAT G|
00003650: 4F 45 53 20 54 48 52 4F 55 47 48 20 41 20 47 41 |OES THROUGH A GA|
00003660: 50 20 49 4E 20 54 48 45 22 00 AC 40 AA 23 99 22 |P IN THE"..@.#."|
00003670: 42 4F 55 4C 44 45 52 53 20 57 48 49 43 48 20 49 |BOULDERS WHICH I|
00003680: 53 20 54 4F 4F 20 53 4D 41 4C 4C 20 46 4F 52 20 |S TOO SMALL FOR |
00003690: 59 4F 55 20 20 20 20 20 54 4F 20 46 49 54 20 54 |YOU TO FIT T|
000036A0: 48 52 4F 55 47 48 21 22 3A 99 3A 8E 00 F8 40 10 |HROUGH!":.:...@.|
000036B0: 27 8F 2D 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |'.-*************|
000036C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000036D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000036E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000036F0: 2A 2A 2A 2A 2A 2A 2A 2A 00 44 41 1A 27 8F 2D 2A |********.DA.'.-*|
00003700: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003710: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003720: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003730: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003740: 2A 2A 2A 2A 00 8F 41 24 27 8F 2D 2A 2A 2A 2A 2A |****..A$'.-*****|
00003750: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003760: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003770: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003780: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00003790: DB 41 2E 27 8F 2D 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.A.'.-**********|
000037A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000037B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000037C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000037D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 00 42 38 27 |***********..B8'|
000037E0: 8F 2D 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.-**************|
000037F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003800: 00 17 42 68 42 8F 2D 53 55 42 53 20 46 4F 52 20 |..BhB.-SUBS FOR |
00003810: 42 45 52 52 49 45 53 00 57 42 CC 42 9E 34 39 32 |BERRIES.WB.B.492|
00003820: 33 38 3A 99 22 59 4F 55 20 46 4F 4C 4C 4F 57 20 |38:."YOU FOLLOW |
00003830: 54 48 45 20 43 41 54 20 53 4F 55 54 48 22 3A 51 |THE CAT SOUTH":Q|
00003840: 59 B2 51 59 AA 31 3A 44 B2 34 30 3A 8D 33 39 32 |Y.QY.1:D.40:.392|
00003850: 30 3A 89 39 30 30 30 00 83 42 30 43 50 49 25 28 |0:.9000..B0CPI%(|
00003860: 31 2C 31 2C 32 29 B2 32 3A 50 49 25 28 31 2C 32 |1,1,2).2:PI%(1,2|
00003870: 2C 32 29 B2 32 3A 51 58 B2 51 58 AB 31 3A 89 33 |,2).2:QX.QX.1:.3|
00003880: 36 38 30 00 A7 42 94 43 50 49 25 28 31 2C 31 2C |680..B.CPI%(1,1,|
00003890: 32 29 B2 32 3A 50 49 25 28 31 2C 32 2C 32 29 B2 |2).2:PI%(1,2,2).|
000038A0: 32 3A 89 33 35 37 30 00 E0 42 F8 43 51 58 B2 31 |2:.3570..B.CQX.1|
000038B0: 3A 51 59 B2 31 3A 8D 33 36 38 30 3A 99 22 59 4F |:QY.1:.3680:."YO|
000038C0: 55 20 41 52 45 20 47 41 54 48 45 52 49 4E 47 20 |U ARE GATHERING |
000038D0: 42 45 52 52 49 45 53 22 3A 99 3A 8D 33 39 34 30 |BERRIES":.:.3940|
000038E0: 00 F7 42 02 44 44 B2 30 31 30 3A 8D 33 39 32 30 |..B.DD.010:.3920|
000038F0: 3A 9E 34 39 32 33 38 00 3D 43 0C 44 99 22 53 55 |:.49238.=C.D."SU|
00003900: 44 44 45 4E 4C 59 20 46 52 4F 4D 20 54 48 45 20 |DDENLY FROM THE |
00003910: 4E 4F 52 54 48 20 41 50 50 45 41 52 53 20 41 20 |NORTH APPEARS A |
00003920: 4C 41 52 47 45 20 53 41 42 52 45 54 4F 4F 54 48 |LARGE SABRETOOTH|
00003930: 20 43 41 54 22 3A 99 3A 8D 33 39 34 30 00 5F 43 | CAT":.:.3940._C|
00003940: 16 44 44 B2 31 30 3A 8D 33 39 32 30 3A 51 53 B2 |.DD.10:.3920:QS.|
00003950: B7 28 31 29 3A 44 B2 31 35 3A 8D 33 39 32 30 00 |.(1):D.15:.3920.|
00003960: A1 43 20 44 44 B2 30 31 30 3A 8D 33 39 32 30 3A |.C DD.010:.3920:|
00003970: 9E 34 39 32 33 38 3A 99 22 54 4F 4F 20 51 55 49 |.49238:."TOO QUI|
00003980: 43 4B 4C 59 20 46 4F 52 20 59 4F 55 20 54 4F 20 |CKLY FOR YOU TO |
00003990: 53 54 4F 50 20 49 54 2C 20 54 48 45 20 43 41 54 |STOP IT, THE CAT|
000039A0: 22 00 D6 43 2A 44 99 22 45 4E 54 45 52 53 20 54 |"..C*D."ENTERS T|
000039B0: 48 45 20 43 41 56 45 20 41 4E 44 20 53 54 45 41 |HE CAVE AND STEA|
000039C0: 4C 53 20 59 4F 55 52 20 43 48 49 4C 44 22 3A 99 |LS YOUR CHILD":.|
000039D0: 3A 8D 33 39 34 30 00 FA 43 34 44 44 B2 31 35 3A |:.3940..C4DD.15:|
000039E0: 8D 33 39 32 30 3A 51 53 B2 B7 28 32 29 3A 44 B2 |.3920:QS..(2):D.|
000039F0: 32 35 3A 8D 33 39 32 30 3A 8E 00 00 00 00 00 |25:.3920:...... |
..%....B(2057)..30.."C/M LETTERS",8,1.B.
N..CA$(12):.-COMMAND ARRAY.Y.X..PR$(43):
.PR%(43):.4140:.-POSSIBLE RESPONSE ARRAY
S......VA$(65):.4190:.-LOOKUP TABLE OF A
LL VERBS USED......NA$(6):.4240:.-TABLE
OF NOTHING ACCOMPLISHED RESPONSES.&....O
B%(18,4):.-0=XDIM,1=YDIM,2=POSSESSION,3=
USR#,4=SPRITE#.A. ..OB$(18,2):.4290:.:0=
YOU SEE,1=GET OR GRAB,2=HINT TEXT......P
I%(7,5,3):.4350:.-0=DISK,1=PIC,2=DATA,3=
FRAME ACCESS......WN%(6):.-ARRAY USED TO
RECORD WORD POSITION IN COMMAND STRING
.....CD%.1:FR.0:GM%.1.$.H..17400:.-FIRST
SCREEN AND OPENING SEQUENCE.<....-MAIN
COMMAND LOOP.X....-GET A STRING FROM KBD
.M....L$:.L$.."".1020.....CC$."":.49238:
."WHAT DO YOU WANT TO DO? "......L$:.L$.
"".1040......L$.".".GM%.1..49152:.QX.3.Q
Y.2..25700:.1000...$..L$."."..49238.2...
.L$.".".GM%.0.GM%.1:."GRAPHICS MODE":D.8
:.3920:.3680:.1000.].0..L$.".".GM%.1.GM%
.0:."TEXT MODE":.1000.T.8..L$."7".L$."TH
EN "...B..L$..G(13).C(CC$).0.1120...L..J
(CC$,C(CC$),1)." ".CC$.H(CC$,C(CC$).1).H
.V..1190...`..L$.G(20).C(CC$).0.CC$.H(CC
$,C(CC$).1):.1170...J..L$." ".1150.0.T..
(F(L$).65.F(L$).90).L$.." ".1040.N.~.CC.
C(CC$):.CC.77.(L$." ".I(CC$,1)." ").(CC.
0.L$." ").1040......49238:CC$.CC$.L$....
..C(CC$).39..CC$;" .":.1040.C....C(CC$).
38..CC$;" ..":.1040......-DELETE ALL "TH
E"(S) IN SENTENCE......L.1.(C(CC$).3).8.
...J(CC$,L,5)." THE ".CC$.H(CC$,L).I(CC$
,(C(CC$).(L.4))).?.D..L.P.N..-DETERMINE
# OF "THEN"(S) IN COMMAND STRING...X..:.
:NT.0:.C(CC$).4.CA$(0)." ".CC$." ":Q.0:.
1310.T....Q.1.(C(CC$).4):.J(CC$,Q,5)." T
HEN".NT.NT.1......Q:.NT.0.CA$(0)." ".CC$
." ":Q.0:.1310.5....-SEPARATE COMMAND ST
RING INTO INDIVIDUAL COMMANDS.W...CC$."
".CC$." ":.Q.0.NT.1:L.2......J(CC$,L,5).
." THEN".L.(C(CC$).4).L.L.1:.1290.....CA
$(Q).H(CC$,L):CC$.J(CC$,L.5):.Q:CA$(Q).C
C$......-CHECK LIST OF POSSIBLE RESPONSE
S FOR A MATCH.).(.J.0:JJ.Q:. J=NUMBER OF
CURRENT COMMAND IN COMMAND ARRAY.E.2.NR
.0:. NR=NUMBER OF POSSIBLE RESPONSE IN R
ESPONSE ARRAY...<..J(CA$(J),2,C(CA$(J)).
2).PR$(NR).RN.PR%(NR):.1520...F..NR.38.N
R.NR.1:.1340...P..J(CA$(J),1,5)." GET ".
CA$(J).J(CA$(J),5):.3150:.2050.).Z..J(CA
$(J),1,6)." GRAB ".CA$(J).J(CA$(J),6):.3
150:.2050.D.D..J(CA$(J),1,6)." TAKE ".CA
$(J).J(CA$(J),6):.3150:.2050...N..J(CA$(
J),1,6)." DROP ".CA$(J).J(CA$(J),6):.326
0:.2050...X..J(CA$(J),1,9)." EXAMINE ".C
A$(J).J(CA$(J),9):.2360:.2050......NW.0.
6:WN%(NW).0:.NW:WN%(0).1.=...NW.0:.L.2.C
(CA$(J)):.J(CA$(J),L,1)." ".NW.NW.1:WN%(
NW).L.|....L:.NW.1.NW.6.."I COULDN'T UND
ERSTAND THAT SENTENCE":.1000... ..-DETER
MINE # OF VERBS IN SENTENE.....NV.0:.VC.
0.65:.L.0.NW.1:.WN%(L.1).WN%(L)..C(VA$(V
C)).1.1470.)....J(CA$(J),WN%(L),C(VA$(VC
)).2)." ".VA$(VC)." ".VA$(VC).."".NV.NV.
1.4....L:.VC.G.H..NV.1.."I COULDN'T FIND
A VERB I KNOW IN THIS"...R..NV.1.."SENT
ENCE:";CA$(J):.:.1000.U....NV.1.."I FOUN
D TOO MANY VERBS IN THIS":."SENTENCE:";C
A$(J):.:.1000......NA$(.(0).6):.:.1000.8
....-PERFORM APPROPRIATE SUB ON BASIS OF
VALUE OF RN(NUMBER OF RESPONSE).P....RN
.500.RN.507.1550.....NS.RN.499:.NS.2110,
2160,2310,2360,2450,2490,2510,2530:.2050
......RN.508.RN.515.1570.....NS.RN.507:.
NS.2730,2930,3120,3150,3260,3340,3360,33
80:.2050..."..RN.516.RN.519.1590.,.,.NS.
RN.515:.NS.3500,3540,3570,3610:.2050.D.6
..RN.111.RN.112.1610.H.@.NS.RN.110:.NS.1
1100,11200:.2050...J..RN.121.RN.122.1630
...T.NS.RN.120:.NS.12100,12200:.2050...^
..RN.131.RN.136.1650...H.NS.RN.130:.NS.1
3100,13200,13300,13400,13500,13600:.2050
...R..RN.161.RN.165.1670.F.|.NS.RN.160:.
NS.16100,16200,16300,16400,16500:.2050.^
....RN.171.RN.174.1690.....NS.RN.170:.NS
.17100,17200,17300,17400:.2050......RN.1
81.RN.182.1710.J...NS.RN.180:.NS.18100,1
8200:.2050......RN.191.RN.191.1730.....N
S.RN.190:.NS.19100:.2050...B..RN.221.RN.
225.1750.`.L.NS.RN.220:.NS.22100,22200,2
2300,22400,22500,22600,22700,22800,22900
.J.N..2050...V..RN.231.RN.234.1770.....N
S.RN.230:.NS.23100,23200,23300,23400:.20
50.J....RN.241.RN.242.1790.....NS.RN.240
:.NS.24100,24200:.2050......RN.251.RN.25
6.1810.B...NS.RN.250:.NS.25100,25200,253
00,25400,25500,25600:.2050.Z....RN.301.R
N.304.1830.....NS.RN.300:.NS.30100,30200
,30300,30400:.2050...&..RN.311.RN.311.18
50...0.NS.RN.310:.NS.31100:.2050.X.:..RN
.321.RN.321.1870...D.NS.RN.320:.NS.32100
:.2050...N..RN.351.RN.354.1890.>.X.NS.RN
.350:.NS.35100,35200,35300,35400:.2050.V
.B..RN.371.RN.373.1910...L.NS.RN.370:.NS
.37100,37200,37300:.2050...V..RN.381.RN.
384.1930.H...NS.RN.380:.NS.38100,38200,3
8300,38400:.2050......RN.391.RN.392.1950
.....NS.RN.390:.NS.39100,39200:.2050....
..RN.401.RN.408.1970.D...NS.RN.400:.NS.4
0100,40200,40300,40400,40500,40600,40700
,40800:.2050.|....RN.421.RN.422.1990. ..
.NS.RN.420:.NS.42100,42200:.2050...F..RN
.441.RN.445.2010...P.NS.RN.440:.NS.44100
,44200,44300,44400,44500:.2050...Z..RN.4
51.RN.451.2030.$...NS.RN.450:.NS.45100:.
2050.<....RN.471.RN.472.2050.`...NS.RN.4
70:.NS.47100,47200:.2050.V....J.JJ.J.J.1
:.1330......1000.D.>..-INVENTORY SUB PRI
NTS A LIST OF OBJECTS WHICH YOU ARE CARR
YING...H.NO.0:.49238:."YOU ARE CURRENTLY
CARRYING:"...R..Q.0.15:.OB%(Q,2).1..OB$
(Q,0):NO.NO.1.5.\..Q:.NO.0.."NOTHING".=.
F..:..L.P..-LOOK SUB...Z..3780:.49238:."
.":.Q.0.5:.H(LO$(Q),1).." "..LO$(Q);....
..Q:.:NO.0:.Q.0.16.J....OB%(Q,0).QX.OB%(
Q,1).QY.OB%(Q,2).0.NO.NO.1.Y....Q:.NO.0.
......CC$."YOU SEE ":OC.0:.CC$;:.Q.0.16.
/....OB%(Q,0)..QX.OB%(Q,1)..QY.OB%(Q,2).
.0.2300.D...Q$.OB$(Q,0):QQ.C(Q$):.C(CC$)
.C(OB$(Q,0)).39.2290......C(CC$).C(H(Q$,
QQ)).39.J(Q$,QQ,1)." ".2270...J.QQ.QQ.1:
.QQ.2.2240...T..:CC$."":.2290......H(Q$,
QQ):CC$.J(Q$,QQ.1)." ":.CC$;:OC.OC.1:.OC
.NO.1.."AND ";......2300.J...CC$.CC$." "
.OB$(Q,0):.OB$(Q,0);" ";:OC.OC.1:.OC.NO.
1.."AND ";.W....Q:.:.:..F....-QUIT SUB..
....".":.49238:."QUIT? (Y/N)"......Q$:.Q
$."Y"..64738...$..Q$.."N".2330......".":
... 8.Q.0:.-EXAMINE OBJECT(YOU MUST BE A
BLE TO SEE THE OBJECT TO EXAMINE IT).& B
..CA$(J)." ".OB$(Q,1)." ".2420.; L.Q.Q.1
:.Q.17.2370.. V..CA$(J)." ".."YOU MUST B
E SPECIFIC ABOUT WHAT TO EXAMINE":.
:... `.."I DONT KNOW WHAT A";CA$(J);"IS"
.. J.."PERHAPS IF YOU REPHRASED WHAT YOU
WANT TO EXAMINE":.:...!T.CC$."YOU DONT
SEE THE ".@!~..OB%(Q,2).0.(OB%(Q,0)..QX
.OB%(Q,1)..QY)..CC$;OB$(Q,1):.:..R!...OB
$(Q,2):.:..B!...-ANGER SUB..!...".":.492
38:."AS YOU MOUNTED THE COMPUTER YOU FEL
T"..!..."A STRONG ELECTRIC SHOCK.":.:."N
EEDLESS TO SAY,...YOU HAVE DIED!!!"..!..
D.25:.3920:.64738.@"...49238:.CD%..1..".
":."REMOVE DISK#";CD%;"AND INSERT DISK#
1":.3840.|"..L$."1_0^ 1 ":.QQ.1.10:.4945
5.QQ,F(J(L$."PIC",QQ,1)):.QQ.."...QQ.1.1
1:.49471.QQ,F(J(L$."CLRS",QQ,1)):.QQ..".
..15,8,15:.49312:.49344:.15,E1,E1$,E2,E3
: 15:.49152:D.080:.3920..#B..E1.19..4923
8:."DISK ERROR#";E1:.3840:.2490.0#D..492
38:.3680.S#N..49238:."ARE YOU FEELING RO
MANTIC OR DO I DETECT":.-KISS * SUB..#X.
."SOME ANITPATHY TOWARDS ME?":.:..C#...-
SAVE SUB,SAVES CURRENT GAME TO DISC..$..
.:."REMOVE DISK#";CD%;"FROM DRIVE AND
INSERT DATA DISK":..W$...3840:.1
5,8,15,"S0:TEST FILE":.2,8,2,"0:TEST FIL
E,S,W":.15,E1,E1$,E2,E3..$...2,"*": 2: 1
5:.E1.19.."DISK ERROR #";E1:.2550.F$...1
5,8,15:.2,8,2,"0:TEST FILE,S,R":.2,L$:.1
5,E1,E1$,E2,E3..$.. 2: 15:.E1.19.L$.."*"
.."DISK ERROR #";E1:.2550.&%...15,8,15,"
S0:TEST FILE":.15,E1,E1$,E2,E3.N%(. 15:.
E1.19.."DISK ERROR #";E1:.2550..%2.."WHA
T NUMBER DO YOU WANT THIS GAME TO HAV
E? ";..%<..Q$:.Q$."".2620.A%F..(F(Q$).49
.F(Q$).57).(Q$.."H").2620..%P..Q$;:.Q$."
H".:.4090:.".".Q$..&Z..:.15,8,15,"S0:C/M
DATA".Q$:.2,8,2,"0:C/M DATA".Q$.",S,W".
@&D..2,QX;",";QY;",";FR%;",";CD%.Y&N..Q.
0.5:.QQ.0.7:.2,PI%(QQ,Q,1);",";PI%(QQ,Q,
2):.QQ:.Q..&X..Q.0.18:.2,OB%(Q,0);",";OB
%(Q,1);",";OB%(Q,2):.Q..&...Q.0.18:.2,OB
$(Q,0).",".OB$(Q,1).",".OB$(Q,2):.Q..'..
.15,E1,E1$,E2,E3: 2: 15:.E1.19.."DISC ER
ROR #";E1:.2650.C'...:."REMOVE DATA DISC
FROM DRIVE AND INSERT DISK#";CD
%:..O' ..3840:...'...-RESTORE SUB.L'..."
.":."REMOVE DISK#";CD%;"FROM DRIVE AND
INSERT DATA DISK":...(...3840:.
"WHAT GAME NUMBER DO YOU WANT TO RESTORE
? ";..(H..Q$:.Q$."".2760.@(R..(F(Q$).49.
F(Q$).57).(Q$.."H").2760.`(...Q$;:.Q$."H
".:.3980:.".".Q$..(...:.15,8,15:.2,8,2,"
0:C/M DATA".Q$.",S,R".S(...2,QX,QY,FR%,C
D%:.Q.0.5:.QQ.0.7:.2,PI%(QQ,Q,1),PI%(QQ,
Q,2):.QQ:.Q..)...Q.0.18:.2,OB%(Q,0),OB%(
Q,1),OB%(Q,2):.Q.-)...Q.0.18:.2,OB$(Q,0)
,OB$(Q,1),OB$(Q,2):.Q.I)...15,E1,E1$,E2,
E3: 2: 15:.E1.19.."DISK ERROR #";E1:.278
0..)...:."REMOVE DATA DISK FROM DRIVE AN
D INSERT DISK#";CD%:...)"..3840:
.3680.W)R..-INITIALIZE DISK SUB..*|.."."
:.49238:."THIS SECTION WILL INITIALIZE A
CAVEMAN".S*..."DATA DISC, ANY DATA ALRE
ADY ON THE DISC WILL BE DESTROYED."..*..
.:."ARE YOU SURE THAT THIS IS WHAT YOU W
ANT TO DO? (Y/N)";..*...Q$:.Q$."N"..".":
...*...Q$.."Y".2970..+..." ";Q$:.:."REMO
VE DISK#";CD%"FROM DRIVE AND I
NSERT DATA DISK":..G+...3840:.15,8,15,"N
0:CAVEMAN DATA,CD":.15,E1,E1$,E2,E3: 15.
Q+B..E1.19.."DISK ERROR #";E1:Q$."":.300
0..+L.."DO YOU WISH TO THE SAVE CURRENT
GAME ON THIS DISK? (Y/N)";.G+V..Q$:.Q$."
Y".2530.Y+...Q$.."N".3030..,..." ";Q$:.:
."REMOVE DATA DISK AND INSERT PROGRAM DI
SK ".%,...3840:.".":..<,0..-HELP OR HINT
SUB.I,:..49238:.Q.0.5:.H(HI$(Q),1).." "
..HI$(Q);.T,D..Q:.:...,N.Q.0:.-GET AN OB
JECT (OBJECT MUST BE IN IMMEDIATE FRAME)
.R,X..CA$(J)." ".OB$(Q,1)." ".3210..,B.Q
.Q.1:.Q.17.3160.#-L..CA$(J)." ".."YOU MU
ST SPECIFY WHAT TO GET OR GRAB":.:..I-V.
."I DONT KNOW WHAT A";CA$(J);"IS".{-..."
PERHAPS IF YOU REPHRASED WHAT YOU WANT":
.:...-...Q.2.(OB%(Q,0)..QX.OB%(Q,1)..QY)
.3250..-...Q.2.."ARE YOU KIDDING?":."THA
T ";OB$(Q,1);" LOOKS DANGEROUS!":.:.."..
..OB%(Q,2).1.."YOU ALREADY HAVE THE ";OB
$(Q,1):.:..G....OB%(Q,0).QX.OB%(Q,1).QY.
OB%(Q,2).1:.OB$(Q,1);" TAKEN":.:.4450:..
....."YOU DONT SEE THE ";OB$(Q,1):.:..L.
..Q.0:.-DROP AN OBJECT (YOU MUST HAVE TH
E OBJECT TO DROP IT)...F..CA$(J)." ".OB$
(Q,1)." ".3320../P.Q.Q.1:.Q.17.3270.@/Z.
.CA$(J)." ".."YOU MUST SPECIFY WHAT TO D
ROP OR GIVE":.:..F/..."I DONT KNOW WHAT
A";CA$(J);"IS"../..."PERHAPS IF YOU REPH
RASED WHAT YOU WANT TO DROP":.
:.../...OB%(Q,2).0.."YOU DONT HAVE THE "
;OB$(Q,1):.:..#0..OB%(Q,0).QX:OB%(Q,1).Q
Y:OB%(Q,2).0:.OB$(Q,0);" DROPPED":.:.445
0:..C0...-SUMMARIZE GLOBAL COMMANDS..0..
.49238:.:.Q.10.35:.PR$(Q);" ";:.Q:."GET
GRAB DROP GIVE EXAMINE":.:...04..-CLEAR
ALL "CM.DATA" FILES FROM DISC IN DRIVE.
.0>..49238:.:."THIS COMMAND DESTROYS ALL
GAME FILES".#1H.."WHICH YOU HAVE PREVIO
USLY SAVED ON DISC".O1R.."IS THIS WHAT Y
OU WANT TO DO? (Y/N)":..A1\..Q$:.Q$."N".
..S1F..Q$.."Y".3420..1P.."INSERT DISC WH
ICH CONTAINS THE GAMES YOU WANT TO SC
RATCH":...1Z..3840:.15,8,15:.15,"SO:C/M
DATA?":.15,E1,E1$,E2,E3: 15..2...E1.19..
"DISC ERROR #";E1:.3450..2....22...-WALK
NORTH SUB.K2...49238:.PI%(QX,QY,3).1.QY
.QY.1:."WALK NORTH":.:.3680..2..."YOU CA
N'T WALK NORTH FROM HERE":.:...2T..-WALK
SOUTH SUB..2...49238:.PI%(QX,QY,3).2.QY
.QY.1:."WALK SOUTH":.:.3680..3..."YOU CA
N'T WALK SOUTH FROM HERE":.:..!3...-WALK
EAST SUB.Y3...49238:.PI%(QX,QY,3).4.QX.
QX.1:."WALK EAST":.:.3680..3..."YOU CAN'
T WALK EAST FROM HERE":.:...3...49238:.P
I%(QX,QY,3).8.QX.QX.1:."WALK WEST":.:.36
80..3$.."YOU CAN'T WALK WEST FROM HERE":
.:...4..D.20:.3920:.CD%.PI%(QX,QY,0).366
0.?48..49238:.".":."REMOVE DISK#";CD%;:C
D%.PI%(QX,QY,0).J4B.."AND INSERT DISK#";
PI%(QX,QY,0):.3840..4L..49238:."..":."..
.......... PLEASE WAIT FOR DISK ACC
ESS":..Y4`..3630:L$.I(D(QX),1)."_".I(D(Q
Y),1)."^"..5J..QQ.1.10:.49455.QQ,F(J(L$.
D(PI%(QX,QY,1))." PIC",QQ,1)):.QQ.Z5T..Q
Q.1.11:.49471.QQ,F(J(L$.D(PI%(QX,QY,1)).
" CLRS",QQ,1)):.QQ..5~..QQ.1.8:.49487.QQ
,F(J(L$." SUB",QQ,1)):.QQ:.GM%.0.3760..5
...15,8,15:.49312:.15,E1,E1$,E2,E3: 15..
5...E1.19..49238:."DISK ERROR#";E1:.3840
:.3720.$6...15,8,15:.49344:.15,E1,E1$,E2
,E3: 15:.50688:.4450.T6...E1.19..49238:.
"DISK ERROR#";E1:.3840:.3740.}6...15,8,1
5:.49376:.15,E1,E1$,E2,E3: 15..6...E1.19
..49238:."DISK ERROR#";E1:.3840:.3760.E6
..FR.0:.2160:Q..(0):...7D.L$.I(D(QX),1).
"_".I(D(QY),1)."^".D(PI%(QX,QY,2))." DAT
A".@7N..15,8,15:.2,8,2,"0:".L$.",S,R":.Q
.0.9:.2,PR$(Q),PR%(Q):.Q.[7X..Q.0.5:.2,L
O$(Q),CC:.Q..7...Q.0.5:.2,HI$(Q),CC:.Q:.
15,E1,E1$,E2,E3: 2: 15.H7...E1.19.LO$(0)
.""..49238:."DISC ERROR#";E1:.3840:.3780
.N7.....7...-WAIT FOR SPACEBAR."8..."PRE
SS SPACE BAR WHEN READY.":D.10:.3920:.Q.
0.39:." ";.L8...Q:D.10:.3920:."..":.Q$:.
Q$.." ".3850.R8.....8(.."YOU HAVE DIED!!
!":D.40:.3920:."PLAY AGAIN? (Y/N)"..82..
Q$:.Q$."Y".1000..8<..Q$.."N".3890..8F..6
4738..8P..-WAIT D/10 NUMBER OF SECONDS..
8Z..DS.0.D:.DD.0.25:.DD:.DS:...9D..Q$:.Q
$.."".3940./9N.."PRESS F1 TO CONTINUE.".
E9X..Q$:.Q$..".".3960.R9...49152:..~9...
-DETERMINE # OF HIGHEST DATA FILE USED..
9..Q$."0":.1,8,0,"$0":.#1,A$,A$,A$,A$,A$
,A$.H9 .B$."":.#1,A$:.ST..0. 1:...9...A$
..G(34).4000..:...#1,A$:.A$..G(34).B$.B$
.A$:.4020.*:...H(B$,8)."C/M DATA".B$.I(B
$,C(B$).8).X:H..E(B$).E(Q$).Q$.B$:.E(Q$)
..9.Q$."9":.4080.R:R..#1,A$:.A$.G(32).40
50..:..B$.B$.A$:.#1,A$:.A$.."".4060..:..
.ST.0.4000..:.. 1:..S:...3980:.Q$.."9".Q
$.I(D(E(Q$).1),1):...;...:."ALL GAME FIL
ES USED. WHICH GAME# DO YOU WANT TO OVER
WRITE? ";..;...Q$:.Q$."".4110.L;...(F(Q
$).49.F(Q$).57).4110.R;"...V;,..15,8,15:
.2,8,2,"0:GLOBALS,S,R"..;6..Q.10.43:.2,P
R$(Q),PR%(Q):.Q..;@..15,E1,E1$,E2,E3: 2:
15..;J..E1.19.PR%(10).0..49238:."DISK E
RROR #";E1:.3840:.4140..;T....<^..15,8,1
5:.2,8,2,"0:VERBS,S,R"./<H..Q.0.65:.2,VA
$(Q):.Q.K<R..15,E1,E1$,E2,E3: 2: 15..<|.
.E1.19.VA$(0).""..49238:."DISK ERROR #";
E1:.3840:.4190..<.....<...15,8,15:.2,8,2
,"0:N/A RESPONSES,S,R".N<...Q.0.6:.2,NA$
(Q):.Q..<...15,E1,E1$,E2,E3: 2: 15.%=...
E1.19.NA$(0).""..49238:."DISK ERROR #";E
1:.3840:.4240.+=....O=B..15,8,15:.2,8,2,
"0:OBJECTS,S,R".Y=L..Q.0.18:.2,OB$(Q,0),
OB$(Q,1),OB$(Q,2)..=V..2,OB%(Q,0),OB%(Q,
1),OB%(Q,3),OB%(Q,4):.Q.C=...15,E1,E1$,E
2,E3: 2: 15..>...E1.19.OB$(0,0).""..4923
8:."DISK ERROR #";E1:.3840:.4290..>....&
>...15,8,15:.2,8,2,"0:PI%,S,R".W>...QY.0
.5:.QX.0.7:.2,PI%(QX,QY,0),PI%(QX,QY,3).
.>..PI%(QX,QY,1).1:PI%(QX,QY,2).1:.QX:.Q
Y..>...15,E1,E1$,E2,E3: 2: 15.N>&..E1.19
..49238:."DISK ERROR #";E1:.3840:.4350.T
>0....?B.QS..(0):.QS.0.18:.OB%(QS,0)..QX
.OB%(QS,1)..QY.OB%(QS,2).1.4490.M?L.Q.7:
.OB%(QS,3).0.B(50930).48.Q..(OB%(QS,3)):
.4490.|?V..B(50930.Q).48..50930.Q,48.OB%
(QS,4):.4490..?...Q.0.Q.Q.1:.4470..?...Q
S:...?(#.3680:."THE CAT DISAPPEARS INTO
THE GORGE AHEAD!":PI%(1,1,2).2:...@.#QY.
QY.1:.3680:PI%(1,2,2).2:.GM%.0.9120.9@.#
.3940:.49152:D.15:.3920:Q..(3):D.25:.392
0.I@ #.49238:."THE CAT GOES THROUGH A GA
P IN THE"..@.#."BOULDERS WHICH IS TOO SM
ALL FOR YOU TO FIT THROUGH!":.:...@.
'.-*************************************
********************************.DA.'.-*
****************************************
****************************..A$'.-*****
****************************************
***********************..A.'.-**********
****************************************
*******************..B8'.-**************
****************..BHB.-SUBS FOR BERRIES.
WBLB.49238:."YOU FOLLOW THE CAT SOUTH":Q
Y.QY.1:D.40:.3920:.9000..B0CPI%(1,1,2).2
:PI%(1,2,2).2:QX.QX.1:.3680..B.CPI%(1,1,
2).2:PI%(1,2,2).2:.3570..B.CQX.1:QY.1:.3
680:."YOU ARE GATHERING BERRIES":.:.3940
..B.DD.010:.3920:.49238.=C.D."SUDDENLY F
ROM THE NORTH APPEARS A LARGE SABRETOOTH
CAT":.:.3940._C.DD.10:.3920:QS..(1):D.1
5:.3920..C DD.010:.3920:.49238:."TOO QUI
CKLY FOR YOU TO STOP IT, THE CAT".VC*D."
ENTERS THE CAVE AND STEALS YOUR CHILD":.
:.3940..C4DD.15:.3920:QS..(2):D.25:.3920
:......
> CLICK IMAGE PREVIEW FOR FULL MODAL