TOS.EC

00000000: 01 28 2B 28 00 00 9E 28  31 30 30 31 29 3A 8F 22  |.(+(...(1001):."|
00000010: 14 14 14 14 14 14 14 14  14 14 14 14 14 14 14 14  |................|
00000020: 30 20 53 59 53 28 34 31  36 32 29 00 00 00 01 00  |0 SYS(4162).....|
00000030: 97 34 35 2C C2 28 31 37  34 29 3A 97 34 36 2C C2  |.45,.(174):.46,.|
00000040: 28 31 37 35 29 3A 9C 00  87 28 02 00 86 53 50 24  |(175):...(...SP$|
00000050: 28 31 30 29 2C 53 4C 28  31 30 29 2C 53 4D 28 31  |(10),SL(10),SM(1|
00000060: 30 29 2C 5A 5A 28 31 31  29 3A 81 49 B2 31 A4 31  |0),ZZ(11):.I.1.1|
00000070: 30 3A 87 53 50 24 28 49  29 2C 53 4C 28 49 29 2C  |0:.SP$(I),SL(I),|
00000080: 53 4D 28 49 29 3A 82 00  DA 28 03 00 8D 34 38 3A  |SM(I):...(...48:|
00000090: 99 A3 32 32 29 22 9E 3E  C5 58 49 54 20 4D 45 4E  |..22)".>.XIT MEN|
000000A0: 55 98 22 3A 4B B2 31 3A  81 49 B2 31 A4 31 30 3A  |U.":K.1:.I.1.10:|
000000B0: 8B C2 28 35 32 34 31 AA  49 29 B1 30 A7 99 A3 32  |..(5241.I).0...2|
000000C0: 33 29 53 50 24 28 49 29  3A 5A 5A 28 4B AA 31 29  |3)SP$(I):ZZ(K.1)|
000000D0: B2 49 AB 31 3A 4B B2 4B  AA 31 00 FD 28 04 00 82  |.I.1:K.K.1..(...|
000000E0: 49 3A 58 B2 31 3A 42 B2  31 35 32 36 3A 43 B2 35  |I:X.1:B.1526:C.5|
000000F0: 35 37 39 38 3A 44 B2 31  32 3A 45 B2 37 00 3D 29  |5798:D.12:E.7.=)|
00000100: 05 00 4A B2 C2 28 35 36  33 32 30 29 3A 8B 28 4A  |..J..(56320):.(J|
00000110: AF 31 29 B2 30 AF 58 B1  31 A7 58 B2 58 AB 31 3A  |.1).0.X.1.X.X.1:|
00000120: 97 42 2C 33 32 3A 42 B2  42 AB 34 30 3A 8D 31 30  |.B,32:B.B.40:.10|
00000130: 3A 43 B2 43 AB 34 30 3A  8D 39 3A 89 35 00 72 29  |:C.C.40:.9:.5.r)|
00000140: 06 00 8B 28 4A AF 32 29  B2 30 AF 58 B3 4B A7 58  |...(J.2).0.X.K.X|
00000150: B2 58 AA 31 3A 97 42 2C  33 32 3A 42 B2 42 AA 34  |.X.1:.B,32:B.B.4|
00000160: 30 3A 8D 31 30 3A 43 B2  43 AA 34 30 3A 8D 39 3A  |0:.10:C.C.40:.9:|
00000170: 89 35 00 83 29 07 00 8B  28 4A AF 31 36 29 B2 30  |.5..)...(J.16).0|
00000180: A7 31 32 00 8A 29 08 00  89 35 00 AA 29 09 00 81  |.12..)...5..)...|
00000190: 49 B2 43 A4 43 AA 31 35  3A 97 49 2C 45 3A 82 49  |I.C.C.15:.I,E:.I|
000001A0: 3A 97 42 2C 36 32 3A 89  31 31 00 C0 29 0A 00 81  |:.B,62:.11..)...|
000001B0: 49 B2 43 A4 43 AA 31 35  3A 97 49 2C 44 3A 82 49  |I.C.C.15:.I,D:.I|
000001C0: 00 CA 29 0B 00 8E 3A 89  31 31 00 FA 29 0C 00 8D  |..)...:.11..)...|
000001D0: 34 38 3A 8B 58 B2 31 A7  45 49 24 B2 22 C5 58 49  |48:.X.1.EI$.".XI|
000001E0: 54 20 4D 45 4E 55 2E 2E  2E 22 3A 8D 34 37 3A 93  |T MENU...":.47:.|
000001F0: 22 54 4F 53 2E 44 41 22  2C 38 00 6E 2A 0D 00 45  |"TOS.DA",8.n*..E|
00000200: 49 24 B2 22 D9 4F 55 20  43 41 53 54 20 54 48 45  |I$.".OU CAST THE|
00000210: 22 3A 8D 34 37 3A 45 49  24 B2 22 53 50 45 4C 4C  |":.47:EI$."SPELL|
00000220: 2E 2E 2E 22 3A 8D 34 37  3A 81 49 B2 31 A4 31 30  |...":.47:.I.1.10|
00000230: 30 30 3A 82 3A 45 49 24  B2 53 50 24 28 5A 5A 28  |00:.:EI$.SP$(ZZ(|
00000240: 58 29 AA 31 29 3A 8D 34  37 3A 81 49 B2 31 A4 31  |X).1):.47:.I.1.1|
00000250: 30 30 30 3A 82 3A 8B 53  4C 28 5A 5A 28 58 29 AA  |000:.:.SL(ZZ(X).|
00000260: 31 29 B3 B2 C2 28 35 32  30 31 29 A7 31 35 00 99  |1)...(5201).15..|
00000270: 2A 0E 00 45 49 24 B2 22  22 3A 8D 34 37 3A 45 49  |*..EI$."":.47:EI|
00000280: 24 B2 22 D3 50 45 4C 4C  20 46 41 49 4C 45 44 21  |$.".PELL FAILED!|
00000290: 22 3A 8D 34 37 3A 89 34  36 00 B6 2A 0F 00 8B 53  |":.47:.46..*...S|
000002A0: 4D 28 5A 5A 28 58 29 AA  31 29 B3 B2 C2 28 35 32  |M(ZZ(X).1)...(52|
000002B0: 30 30 29 A7 31 37 00 E2  2A 10 00 45 49 24 B2 22  |00).17..*..EI$."|
000002C0: 22 3A 8D 34 37 3A 45 49  24 B2 22 CD 41 47 49 43  |":.47:EI$.".AGIC|
000002D0: 20 54 4F 4F 20 4C 4F 57  21 22 3A 8D 34 37 3A 89  | TOO LOW!":.47:.|
000002E0: 34 36 00 18 2B 11 00 8B  5A 5A 28 58 29 AA 31 B2  |46..+...ZZ(X).1.|
000002F0: 34 AF C2 28 35 32 30 34  29 B2 32 A7 45 49 24 B2  |4..(5204).2.EI$.|
00000300: 22 CE 4F 54 20 4F 4E 20  41 20 53 48 49 50 21 22  |".OT ON A SHIP!"|
00000310: 3A 8D 34 37 3A 89 34 36  00 7A 2B 12 00 45 49 24  |:.47:.46.z+..EI$|
00000320: B2 22 22 3A 8D 34 37 3A  45 49 24 B2 22 81 D3 55  |."":.47:EI$."..U|
00000330: 43 43 45 53 21 98 22 3A  8D 34 37 3A 58 31 B2 5A  |CCES!.":.47:X1.Z|
00000340: 5A 28 58 29 AA 31 3A 97  35 32 30 30 2C C2 28 35  |Z(X).1:.5200,.(5|
00000350: 32 30 30 29 AB 53 4D 28  58 31 29 3A 97 35 32 34  |200).SM(X1):.524|
00000360: 31 AA 58 31 2C C2 28 35  32 34 31 AA 58 31 29 AB  |1.X1,.(5241.X1).|
00000370: 31 3A 8B 58 31 B1 31 A7  32 30 00 A2 2B 13 00 45  |1:.X1.1.20..+..E|
00000380: 49 24 B2 22 D0 4F 49 53  4F 4E 20 43 55 52 45 44  |I$.".OISON CURED|
00000390: 21 22 3A 8D 34 37 3A 97  35 32 30 33 2C 31 3A 89  |!":.47:.5203,1:.|
000003A0: 34 35 00 AF 2B 14 00 8B  58 31 B1 32 A7 32 33 00  |45..+...X1.2.23.|
000003B0: DF 2B 15 00 45 49 24 B2  22 C8 45 41 4C 49 4E 47  |.+..EI$.".EALING|
000003C0: 20 2E 2E 2E 22 3A 8D 34  37 3A 48 50 B2 48 50 AA  | ...":.47:HP.HP.|
000003D0: 33 35 3A 8B 48 50 B1 48  4D A7 48 50 B2 48 4D 00  |35:.HP.HM.HP.HM.|
000003E0: E7 2B 16 00 89 34 35 00  F4 2B 17 00 8B 58 31 B1  |.+...45..+...X1.|
000003F0: 33 A7 32 35 00 63 2C 18  00 45 49 24 B2 22 22 3A  |3.25.c,..EI$."":|
00000400: 8D 34 37 3A 45 49 24 B2  22 D0 4F 53 49 54 49 4F  |.47:EI$.".OSITIO|
00000410: 4E 3A 22 3A 8D 34 37 3A  45 49 24 B2 22 CE 4F 52  |N:":.47:EI$.".OR|
00000420: 54 48 3A 20 22 AA CA 28  C4 28 C2 28 35 31 38 33  |TH: "..(.(.(5183|
00000430: 29 29 2C 32 2C 33 29 3A  8D 34 37 3A 45 49 24 B2  |)),2,3):.47:EI$.|
00000440: 22 D7 45 53 54 20 3A 20  22 AA CA 28 C4 28 C2 28  |".EST : "..(.(.(|
00000450: 35 31 38 34 29 29 2C 32  2C 33 29 3A 8D 34 37 3A  |5184)),2,3):.47:|
00000460: 89 34 35 00 70 2C 19 00  8B 58 31 B1 34 A7 32 37  |.45.p,...X1.4.27|
00000470: 00 9E 2C 1A 00 45 49 24  B2 22 C9 4E 56 49 53 49  |..,..EI$.".NVISI|
00000480: 42 4C 45 21 22 3A 8D 34  37 3A 97 35 33 35 31 2C  |BLE!":.47:.5351,|
00000490: 33 30 3A 97 35 32 30 34  2C 33 3A 89 34 35 00 AB  |30:.5204,3:.45..|
000004A0: 2C 1B 00 8B 58 31 B1 35  A7 33 30 00 EB 2C 1C 00  |,...X1.5.30..,..|
000004B0: 45 49 24 B2 22 C3 52 45  41 54 49 4E 47 20 46 4F  |EI$.".REATING FO|
000004C0: 4F 44 21 22 3A 8D 34 37  3A 46 44 B2 C2 28 35 31  |OD!":.47:FD..(51|
000004D0: 39 37 29 3A 46 44 B2 46  44 AA 31 32 3A 8B 46 44  |97):FD.FD.12:.FD|
000004E0: B1 32 35 30 A7 46 44 B2  32 35 30 00 FC 2C 1D 00  |.250.FD.250..,..|
000004F0: 97 35 31 39 37 2C 46 44  3A 89 34 35 00 09 2D 1E  |.5197,FD:.45..-.|
00000500: 00 8B 58 31 B1 36 A7 33  35 00 3A 2D 1F 00 45 49  |..X1.6.35.:-..EI|
00000510: 24 B2 22 D4 45 4C 45 50  4F 52 54 49 4E 47 2E 2E  |$.".ELEPORTING..|
00000520: 2E 22 3A 8D 34 37 3A 81  49 B2 31 A4 37 3A 8B BB  |.":.47:.I.1.7:..|
00000530: 28 54 49 29 B1 2E 37 A7  33 33 00 5A 2D 20 00 82  |(TI)..7.33.Z- ..|
00000540: 49 3A 45 49 24 B2 22 CE  4F 20 45 46 46 45 43 54  |I:EI$.".O EFFECT|
00000550: 21 22 3A 8D 34 37 3A 89  34 35 00 85 2D 21 00 8B  |!":.47:.45..-!..|
00000560: C2 28 35 33 32 33 AA 49  29 B3 B2 30 A7 97 32 30  |.(5323.I)..0..20|
00000570: 33 30 2C 49 3A 4E 4E 24  B2 22 54 4F 53 2E 47 41  |30,I:NN$."TOS.GA|
00000580: 22 3A 89 34 39 00 8D 2D  22 00 89 33 32 00 9A 2D  |":.49..-"..32..-|
00000590: 23 00 8B 58 31 B1 37 A7  33 37 00 C0 2D 24 00 45  |#..X1.7.37..-$.E|
000005A0: 49 24 B2 22 D4 49 4D 45  20 53 54 4F 50 21 22 3A  |I$.".IME STOP!":|
000005B0: 8D 34 37 3A 97 35 33 35  32 2C 32 35 3A 89 34 35  |.47:.5352,25:.45|
000005C0: 00 CD 2D 25 00 8B 58 31  B1 38 A7 34 32 00 0A 2E  |..-%..X1.8.42...|
000005D0: 26 00 45 49 24 B2 22 D4  52 45 4D 4F 52 2E 2E 2E  |&.EI$.".REMOR...|
000005E0: 22 3A 8D 34 37 3A 58 B2  30 3A 81 49 B2 31 A4 31  |":.47:X.0:.I.1.1|
000005F0: 37 3A 8B C2 28 35 31 34  31 AA 58 29 AB C2 28 35  |7:..(5141.X)..(5|
00000600: 31 38 33 29 B3 AB 34 A7  34 31 00 26 2E 27 00 8B  |183)..4.41.&.'..|
00000610: C2 28 35 31 34 31 AA 58  29 AB C2 28 35 31 38 34  |.(5141.X)..(5184|
00000620: 29 B1 34 A7 34 31 00 36  2E 28 00 97 35 31 34 31  |).4.41.6.(..5141|
00000630: AA 58 2C 32 35 35 00 47  2E 29 00 58 B2 58 AA 32  |.X,255.G.).X.X.2|
00000640: 3A 82 49 3A 89 34 35 00  54 2E 2A 00 8B 58 31 B1  |:.I:.45.T.*..X1.|
00000650: 39 A7 34 34 00 7B 2E 2B  00 45 49 24 B2 22 C7 52  |9.44.{.+.EI$.".R|
00000660: 45 41 54 20 48 45 41 4C  49 4E 47 21 22 3A 8D 34  |EAT HEALING!":.4|
00000670: 37 3A 48 50 B2 48 4D 3A  89 34 35 00 A5 2E 2C 00  |7:HP.HM:.45...,.|
00000680: 45 49 24 B2 22 C3 52 45  41 54 49 4E 47 20 47 4F  |EI$.".REATING GO|
00000690: 4C 44 21 22 3A 8D 34 37  3A 47 44 B2 47 44 AA 35  |LD!":.47:GD.GD.5|
000006A0: 35 3A 89 34 35 00 07 2F  2D 00 97 35 31 33 32 2C  |5:.45../-..5132,|
000006B0: B5 28 47 44 AD 32 35 36  29 3A 97 35 31 33 31 2C  |.(GD.256):.5131,|
000006C0: 47 44 AB 28 B5 28 47 44  AD 32 35 36 29 AC 32 35  |GD.(.(GD.256).25|
000006D0: 36 29 3A 97 35 31 33 38  2C B5 28 48 50 AD 32 35  |6):.5138,.(HP.25|
000006E0: 36 29 3A 97 35 31 33 37  2C 48 50 AB 28 B5 28 48  |6):.5137,HP.(.(H|
000006F0: 50 AD 32 35 36 29 AC 32  35 36 29 3A 93 22 54 4F  |P.256).256):."TO|
00000700: 53 2E 44 41 22 2C 38 00  1B 2F 2E 00 81 49 B2 31  |S.DA",8../...I.1|
00000710: A4 31 30 30 30 3A 82 49  3A 89 33 00 4D 2F 2F 00  |.1000:.I:.3.M//.|
00000720: 97 32 30 32 37 2C 39 39  3A 97 32 31 31 2C 32 32  |.2027,99:.211,22|
00000730: 3A 97 32 31 34 2C 32 32  3A 9E 35 38 37 33 32 3A  |:.214,22:.58732:|
00000740: 99 45 49 24 3A 9E 32 35  30 30 30 3A 8E 00 E2 2F  |.EI$:.25000:.../|
00000750: 30 00 45 49 24 B2 22 20  20 20 20 20 20 20 20 20  |0.EI$."         |
00000760: 20 20 20 20 20 20 22 3A  99 22 13 11 11 11 11 11  |      ":."......|
00000770: 11 11 11 11 11 11 22 3A  81 49 B2 31 A4 31 31 3A  |......":.I.1.11:|
00000780: 99 A3 32 32 29 45 49 24  3A 82 49 3A 99 22 13 11  |..22)EI$:.I:."..|
00000790: 11 11 11 11 11 11 11 11  11 11 22 3A 48 50 B2 C2  |..........":HP..|
000007A0: 28 35 31 33 37 29 AA C2  28 35 31 33 38 29 AC 32  |(5137)..(5138).2|
000007B0: 35 36 3A 48 4D B2 C2 28  35 31 33 35 29 AA C2 28  |56:HM..(5135)..(|
000007C0: 35 31 33 36 29 AC 32 35  36 3A 47 44 B2 C2 28 35  |5136).256:GD..(5|
000007D0: 31 33 31 29 AA C2 28 35  31 33 32 29 AC 32 35 36  |131)..(5132).256|
000007E0: 3A 8E 00 1B 30 31 00 9F  31 2C 38 2C 31 35 3A 9F  |:...01..1,8,15:.|
000007F0: 32 2C 38 2C 32 2C 4E 4E  24 3A 84 31 2C 58 31 2C  |2,8,2,NN$:.1,X1,|
00000800: 58 24 2C 58 33 2C 58 34  3A A0 32 3A A0 31 3A 8B  |X$,X3,X4:.2:.1:.|
00000810: 58 31 B2 30 A7 93 4E 4E  24 2C 38 00 5C 30 32 00  |X1.0..NN$,8.\02.|
00000820: 45 49 24 B2 22 22 3A 8D  34 37 3A 45 49 24 B2 22  |EI$."":.47:EI$."|
00000830: 81 D0 CC C5 C1 D3 C5 20  C9 CE D3 C5 D2 D4 22 3A  |....... ......":|
00000840: 8D 34 37 3A 45 49 24 B2  22 20 20 81 2D 20 C4 C9  |.47:EI$."  .- ..|
00000850: D3 CB 20 32 20 2D 98 22  3A 8D 34 37 00 78 30 33  |.. 2 -.":.47.x03|
00000860: 00 4A B2 C2 28 35 36 33  32 30 29 3A 8B 28 4A AF  |.J..(56320):.(J.|
00000870: 31 36 29 B2 30 A7 34 39  00 0D 31 34 00 89 35 31  |16).0.49..14..51|
00000880: 3A 83 22 C3 D5 D2 C1 D8  22 2C 31 2C 31 3A 83 22  |:.".....",1,1:."|
00000890: C8 C5 CC CE CF CE 22 2C  32 2C 32 3A 83 22 D6 C5  |......",2,2:."..|
000008A0: D2 CF D3 22 2C 32 2C 32  3A 83 22 C1 CE 20 D6 C9  |...",2,2:.".. ..|
000008B0: D3 22 2C 33 2C 33 3A 83  22 C7 C1 D2 CD D5 D2 22  |.",3,3:."......"|
000008C0: 2C 33 2C 34 3A 83 22 D0  CF D2 C4 C9 22 2C 34 2C  |,3,4:.".....",4,|
000008D0: 34 3A 83 22 D0 C5 CE C4  D5 CD C1 22 2C 35 2C 35  |4:.".......",5,5|
000008E0: 3A 83 22 C2 C5 CE C4 CF  D8 22 2C 36 2C 36 3A 83  |:."......",6,6:.|
000008F0: 22 D3 C1 D2 20 C8 C5 CC  CE CF CE 22 2C 37 2C 38  |"... ......",7,8|
00000900: 3A 83 22 C4 D5 CD C1 D2  22 2C 38 2C 39 00 00 00  |:.".....",8,9...|

.(+(...(1001):."................0 SYS(41
62)......45,B(174):.46,B(175):...(...SP$
(10),SL(10),SM(10),ZZ(11):.I.1.10:.SP$(I
),SL(I),SM(I):..Z(...48:..22)".>EXIT MEN
U.":K.1:.I.1.10:.B(5241.I).0...23)SP$(I)
:ZZ(K.1).I.1:K.K.1..(...I:X.1:B.1526:C.5
5798:D.12:E.7.=)..J.B(56320):.(J.1).0.X.
1.X.X.1:.B,32:B.B.40:.10:C.C.40:.9:.5.R)
...(J.2).0.X.K.X.X.1:.B,32:B.B.40:.10:C.
C.40:.9:.5..)...(J.16).0.12..)...5..)...
I.C.C.15:.I,E:.I:.B,62:.11..)...I.C.C.15
:.I,D:.I.J)...:.11..)...48:.X.1.EI$."EXI
T MENU...":.47:."TOS.DA",8.N*..EI$."YOU 
CAST THE":.47:EI$."SPELL...":.47:.I.1.10
00:.:EI$.SP$(ZZ(X).1):.47:.I.1.1000:.:.S
L(ZZ(X).1)..B(5201).15..*..EI$."":.47:EI
$."SPELL FAILED!":.47:.46..*...SM(ZZ(X).
1)..B(5200).17..*..EI$."":.47:EI$."MAGIC
 TOO LOW!":.47:.46..+...ZZ(X).1.4.B(5204
).2.EI$."NOT ON A SHIP!":.47:.46.Z+..EI$
."":.47:EI$.".SUCCES!.":.47:X1.ZZ(X).1:.
5200,B(5200).SM(X1):.5241.X1,B(5241.X1).
1:.X1.1.20..+..EI$."POISON CURED!":.47:.
5203,1:.45..+...X1.2.23..+..EI$."HEALING
 ...":.47:HP.HP.35:.HP.HM.HP.HM..+...45.
.+...X1.3.25.C,..EI$."":.47:EI$."POSITIO
N:":.47:EI$."NORTH: ".J(D(B(5183)),2,3):
.47:EI$."WEST : ".J(D(B(5184)),2,3):.47:
.45.P,...X1.4.27..,..EI$."INVISIBLE!":.4
7:.5351,30:.5204,3:.45..,...X1.5.30..,..
EI$."CREATING FOOD!":.47:FD.B(5197):FD.F
D.12:.FD.250.FD.250..,...5197,FD:.45..-.
..X1.6.35.:-..EI$."TELEPORTING...":.47:.
I.1.7:..(TI)..7.33.Z- ..I:EI$."NO EFFECT
!":.47:.45..-!..B(5323.I)..0..2030,I:NN$
."TOS.GA":.49..-"..32..-#..X1.7.37..-$.E
I$."TIME STOP!":.47:.5352,25:.45.M-%..X1
.8.42...&.EI$."TREMOR...":.47:X.0:.I.1.1
7:.B(5141.X).B(5183)..4.41.&.'..B(5141.X
).B(5184).4.41.6.(..5141.X,255.G.).X.X.2
:.I:.45.T.*..X1.9.44.{.+.EI$."GREAT HEAL
ING!":.47:HP.HM:.45...,.EI$."CREATING GO
LD!":.47:GD.GD.55:.45../-..5132,.(GD.256
):.5131,GD.(.(GD.256).256):.5138,.(HP.25
6):.5137,HP.(.(HP.256).256):."TOS.DA",8.
./...I.1.1000:.I:.3.M//..2027,99:.211,22
:.214,22:.58732:.EI$:.25000:.../0.EI$." 
              ":."............":.I.1.11:
..22)EI$:.I:."............":HP.B(5137).B
(5138).256:HM.B(5135).B(5136).256:GD.B(5
131).B(5132).256:...01..1,8,15:.2,8,2,NN
$:.1,X1,X$,X3,X4: 2: 1:.X1.0..NN$,8.\02.
EI$."":.47:EI$.".PLEASE INSERT":.47:EI$.
"  .- DISK 2 -.":.47.X03.J.B(56320):.(J.
16).0.49..14..51:."CURAX",1,1:."HELNON",
2,2:."VEROS",2,2:."AN VIS",3,3:."GARMUR"
,3,4:."PORDI",4,4:."PENDUMA",5,5:."BENDO
X",6,6:."SAR HELNON",7,8:."DUMAR",8,9...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL