DBIOPGM

00000000: 01 08 11 08 0A 00 99 22  93 22 3B 3A 89 31 38 30  |.......".";:.180|
00000010: 30 00 4C 08 50 00 53 53  B2 30 3A A0 31 35 3A 9F  |0.L.P.SS.0:.15:.|
00000020: 31 35 2C 38 2C 31 35 3A  84 31 35 2C 41 32 24 2C  |15,8,15:.15,A2$,|
00000030: 41 33 24 2C 41 34 24 2C  41 35 24 20 3A 53 53 B2  |A3$,A4$,A5$ :SS.|
00000040: C5 28 41 32 24 29 3A A0  31 35 3A 8E 00 6A 08 64  |.(A2$):.15:..j.d|
00000050: 00 54 39 B2 B9 28 30 29  3A 54 51 B2 54 51 AB 31  |.T9..(0):TQ.TQ.1|
00000060: 3A 20 8B 54 39 B2 54 51  A7 8E 00 8D 08 66 00 8B  |: .T9.TQ.....f..|
00000070: 54 39 B1 54 51 A7 81 4B  58 B2 31 A4 54 39 AB 54  |T9.TQ..KX.1.T9.T|
00000080: 51 3A 99 22 9D 22 3B 3A  82 4B 58 3A 8E 00 A9 08  |Q:.".";:.KX:....|
00000090: 6A 00 81 4B 58 B2 31 A4  54 51 AB 54 39 3A 99 22  |j..KX.1.TQ.T9:."|
000000A0: 1D 22 3B 3A 82 4B 58 3A  8E 00 DA 08 C8 00 54 51  |.";:.KX:......TQ|
000000B0: B2 54 51 AB 31 3A 54 39  B2 B9 28 30 29 3A 20 20  |.TQ.1:T9..(0):  |
000000C0: 20 20 20 20 20 20 20 20  20 99 22 13 22 3B 3A 8B  |         .".";:.|
000000D0: 54 51 B1 B2 31 33 A7 32  30 36 00 E8 08 C9 00 8B  |TQ..13.206......|
000000E0: 54 51 B2 30 A7 32 35 38  00 24 09 CA 00 91 54 51  |TQ.0.258.$....TQ|
000000F0: 20 20 20 89 20 32 35 36  2C 32 35 34 2C 32 35 32  |   . 256,254,252|
00000100: 2C 32 35 30 2C 32 34 38  2C 32 34 36 2C 32 34 34  |,250,248,246,244|
00000110: 2C 32 34 32 2C 32 34 30  2C 32 33 38 2C 32 33 36  |,242,240,238,236|
00000120: 2C 32 33 34 00 2D 09 CC  00 89 32 35 38 00 69 09  |,234.-....258.i.|
00000130: CE 00 91 54 51 AB 31 32  89 20 32 33 34 2C 32 33  |...TQ.12. 234,23|
00000140: 32 2C 32 33 30 2C 32 32  38 2C 32 32 36 2C 32 32  |2,230,228,226,22|
00000150: 34 2C 32 32 32 2C 32 32  30 2C 32 31 38 2C 32 31  |4,222,220,218,21|
00000160: 36 2C 32 31 34 2C 32 31  32 00 72 09 D0 00 89 32  |6,214,212.r....2|
00000170: 35 38 00 7C 09 D4 00 99  22 11 22 3B 00 86 09 D6  |58.|....".";....|
00000180: 00 99 22 11 22 3B 00 90  09 D8 00 99 22 11 22 3B  |..".";......".";|
00000190: 00 9A 09 DA 00 99 22 11  22 3B 00 A4 09 DC 00 99  |......".";......|
000001A0: 22 11 22 3B 00 AE 09 DE  00 99 22 11 22 3B 00 B8  |".";......".";..|
000001B0: 09 E0 00 99 22 11 22 3B  00 C2 09 E2 00 99 22 11  |....".";......".|
000001C0: 22 3B 00 CC 09 E4 00 99  22 11 22 3B 00 D6 09 E6  |";......".";....|
000001D0: 00 99 22 11 22 3B 00 E0  09 E8 00 99 22 11 22 3B  |..".";......".";|
000001E0: 00 EA 09 EA 00 99 22 11  22 3B 00 F4 09 EC 00 99  |......".";......|
000001F0: 22 11 22 3B 00 FE 09 EE  00 99 22 11 22 3B 00 08  |".";......".";..|
00000200: 0A F0 00 99 22 11 22 3B  00 12 0A F2 00 99 22 11  |....".";......".|
00000210: 22 3B 00 1C 0A F4 00 99  22 11 22 3B 00 26 0A F6  |";......".";.&..|
00000220: 00 99 22 11 22 3B 00 30  0A F8 00 99 22 11 22 3B  |..".";.0....".";|
00000230: 00 3A 0A FA 00 99 22 11  22 3B 00 44 0A FC 00 99  |.:....".";.D....|
00000240: 22 11 22 3B 00 4E 0A FE  00 99 22 11 22 3B 00 58  |".";.N....".";.X|
00000250: 0A 00 01 99 22 11 22 3B  00 6B 0A 02 01 54 51 B2  |....".";.k...TQ.|
00000260: 54 39 AA 31 3A 8D 31 30  30 3A 8E 00 71 0A 2C 01  |T9.1:.100:..q.,.|
00000270: 8F 00 7F 0A 2E 01 99 C7  28 31 38 29 3B 3A 8E 00  |........(18);:..|
00000280: 85 0A 5E 01 8F 00 94 0A  60 01 99 C7 28 31 34 36  |..^.....`...(146|
00000290: 29 3B 3A 8E 00 9A 0A 90  01 8F 00 A0 0A 92 01 8E  |);:.............|
000002A0: 00 A6 0A F4 01 8F 00 AC  0A F6 01 8E 00 B2 0A 58  |...............X|
000002B0: 02 8F 00 BE 0A 5A 02 99  22 93 22 3B 3A 8E 00 C4  |.....Z..".";:...|
000002C0: 0A 08 07 8F 00 CE 0A 0D  07 5A 31 B2 37 34 00 DF  |.........Z1.74..|
000002D0: 0A D0 07 8B 53 54 B2 5A  31 A7 89 33 34 32 30 00  |....ST.Z1..3420.|
000002E0: FB 0A E4 07 54 33 B2 31  3A 8F 2C 52 45 43 41 4C  |....T3.1:.,RECAL|
000002F0: 4C 22 53 53 49 2E 49 4E  49 54 22 00 0B 0B F8 07  |L"SSI.INIT".....|
00000300: 8B 54 30 B2 31 A7 89 34  32 34 30 00 1B 0B 0C 08  |.T0.1..4240.....|
00000310: 8B 54 30 B2 32 A7 89 34  34 38 30 00 2D 0B 20 08  |.T0.2..4480.-. .|
00000320: 8B 54 30 B2 31 A7 89 32  34 38 30 3A 80 00 3F 0B  |.T0.1..2480:..?.|
00000330: 34 08 8B 54 30 B2 32 A7  89 32 37 38 30 3A 80 00  |4..T0.2..2780:..|
00000340: 4D 0B 48 08 8D 34 30 30  3A 99 22 93 22 00 8A 0B  |M.H..400:."."...|
00000350: 52 08 99 A3 31 31 29 22  12 47 45 4F 50 4F 4C 49  |R...11)".GEOPOLI|
00000360: 54 49 51 55 45 20 31 39  39 30 22 3A 99 3A 99 A3  |TIQUE 1990":.:..|
00000370: 39 29 22 12 53 41 56 45  2F 52 45 43 41 4C 4C 20  |9)".SAVE/RECALL |
00000380: 47 41 4D 45 20 4D 45 4E  55 22 00 90 0B 57 08 99  |GAME MENU"...W..|
00000390: 00 AB 0B 5C 08 99 A3 31  32 29 22 3C 31 3E 20 53  |...\...12)"<1> S|
000003A0: 41 56 45 20 41 20 47 41  4D 45 22 00 C8 0B 70 08  |AVE A GAME"...p.|
000003B0: 99 A3 31 32 29 22 3C 32  3E 20 52 45 43 41 4C 4C  |..12)"<2> RECALL|
000003C0: 20 41 20 47 41 4D 45 22  00 E6 0B 98 08 99 A3 31  | A GAME".......1|
000003D0: 32 29 22 3C 33 3E 20 43  41 54 41 4C 4F 47 20 41  |2)"<3> CATALOG A|
000003E0: 20 44 49 53 4B 22 00 03  0C AC 08 99 A3 31 32 29  | DISK".......12)|
000003F0: 22 3C 34 3E 20 44 45 4C  45 54 45 20 41 20 47 41  |"<4> DELETE A GA|
00000400: 4D 45 22 00 20 0C C0 08  99 A3 31 32 29 22 3C 35  |ME". .....12)"<5|
00000410: 3E 20 45 58 49 54 2F 43  4F 4E 54 49 4E 55 45 22  |> EXIT/CONTINUE"|
00000420: 00 26 0C D4 08 99 00 48  0C E8 08 99 A3 31 32 29  |.&.....H.....12)|
00000430: 22 45 4E 54 45 52 20 4F  50 54 49 4F 4E 28 31 2D  |"ENTER OPTION(1-|
00000440: 35 29 22 3B 3A 85 41 24  00 82 0C FC 08 4B 30 B2  |5)";:.A$.....K0.|
00000450: B5 28 C5 28 41 24 29 29  3A 8B 4B 30 B3 31 B0 4B  |.(.(A$)):.K0.1.K|
00000460: 30 B1 35 A7 99 3A 99 A3  39 29 22 2A 2A 2A 20 49  |0.5..:..9)"*** I|
00000470: 4E 56 41 4C 49 44 20 4F  50 54 49 4F 4E 20 2A 2A  |NVALID OPTION **|
00000480: 2A 22 00 97 0C FD 08 8B  4B 30 B3 31 B0 4B 30 B1  |*"......K0.1.K0.|
00000490: 35 A7 89 32 32 38 30 00  B8 0C 10 09 91 4B 30 89  |5..2280......K0.|
000004A0: 32 34 38 30 2C 32 37 38  30 2C 32 38 34 30 2C 32  |2480,2780,2840,2|
000004B0: 39 30 30 2C 32 39 36 30  00 DA 0C 24 09 8D 36 30  |900,2960...$..60|
000004C0: 30 3A 99 22 49 4E 53 45  52 54 20 53 41 56 45 20  |0:."INSERT SAVE |
000004D0: 47 41 4D 45 20 44 49 53  4B 22 00 1F 0D 26 09 99  |GAME DISK"...&..|
000004E0: 22 49 46 20 4E 4F 54 20  41 4C 52 45 41 44 59 20  |"IF NOT ALREADY |
000004F0: 49 4E 53 45 52 54 45 44  22 3A 99 22 50 52 45 53  |INSERTED":."PRES|
00000500: 53 20 3C 52 45 54 55 52  4E 3E 20 57 48 45 4E 20  |S <RETURN> WHEN |
00000510: 44 49 53 4B 20 49 4E 53  45 52 54 45 44 22 3B 00  |DISK INSERTED";.|
00000520: 27 0D 28 09 85 41 24 00  44 0D 4C 09 8F 50 4F 4B  |'.(..A$.D.L..POK|
00000530: 45 32 31 36 2C 30 3A 4F  4E 45 52 52 47 4F 54 4F  |E216,0:ONERRGOTO|
00000540: 32 34 30 30 00 61 0D 60  09 8F 50 4F 4B 45 32 31  |2400.a.`..POKE21|
00000550: 36 2C 30 3A 4F 4E 45 52  52 47 4F 54 4F 33 34 32  |6,0:ONERRGOTO342|
00000560: 30 00 74 0D 74 09 8B 54  34 B2 31 31 30 30 A7 89  |0.t.t..T4.1100..|
00000570: 32 38 30 30 00 87 0D 88  09 8B 54 34 B2 31 32 30  |2800......T4.120|
00000580: 32 A7 89 32 38 35 34 00  9A 0D 9C 09 8B 54 34 B2  |2..2854......T4.|
00000590: 31 33 30 32 A7 89 32 39  30 30 00 A0 0D B0 09 8F  |1302..2900......|
000005A0: 00 C7 0D C4 09 8D 36 30  30 3A 99 22 47 41 4D 45  |......600:."GAME|
000005B0: 53 20 4D 41 59 20 4F 4E  4C 59 20 42 45 20 53 41  |S MAY ONLY BE SA|
000005C0: 56 45 44 20 4F 4E 22 00  E8 0D C5 09 99 22 46 4F  |VED ON"......"FO|
000005D0: 52 4D 41 54 54 45 44 20  53 41 56 45 20 47 41 4D  |RMATTED SAVE GAM|
000005E0: 45 20 44 49 53 4B 53 22  00 07 0E D9 09 99 22 49  |E DISKS"......"I|
000005F0: 46 20 4E 4F 54 20 41 4C  52 45 41 44 59 20 49 4E  |F NOT ALREADY IN|
00000600: 53 45 52 54 45 44 22 00  32 0E EC 09 99 22 50 52  |SERTED".2...."PR|
00000610: 45 53 53 20 3C 52 45 54  55 52 4E 3E 20 57 48 45  |ESS <RETURN> WHE|
00000620: 4E 20 44 49 53 4B 20 49  4E 53 45 52 54 45 44 22  |N DISK INSERTED"|
00000630: 3A 99 00 54 0E ED 09 99  22 54 4F 20 52 45 54 55  |:..T...."TO RETU|
00000640: 52 4E 20 54 4F 20 4D 45  4E 55 20 54 59 50 45 20  |RN TO MENU TYPE |
00000650: 3C 4D 3E 22 00 69 0E EE  09 A1 41 24 3A 8B 20 41  |<M>".i....A$:. A|
00000660: 24 B2 22 22 A7 32 35 34  32 00 83 0E F0 09 41 B2  |$."".2542.....A.|
00000670: C6 28 41 24 29 3A 8B 20  41 B2 31 33 20 A7 20 32  |.(A$):. A.13 . 2|
00000680: 36 36 30 00 95 0E F2 09  8B 41 B3 B1 37 37 20 A7  |660......A..77 .|
00000690: 20 32 35 34 32 00 A0 0E  F4 09 89 20 32 31 32 30  | 2542...... 2120|
000006A0: 00 BD 0E 00 0A 8F 50 4F  4B 45 32 31 36 2C 30 3A  |......POKE216,0:|
000006B0: 4F 4E 45 52 52 47 4F 54  4F 32 36 30 30 00 EA 0E  |ONERRGOTO2600...|
000006C0: 14 0A A0 35 3A 9F 35 2C  38 2C 35 2C 22 44 49 53  |...5:.5,8,5,"DIS|
000006D0: 4B 49 44 2C 53 2C 52 22  3A 8D 38 30 3A 20 20 8B  |KID,S,R":.80:  .|
000006E0: 53 53 B2 5A 31 A7 32 36  30 30 00 1A 0F 15 0A 99  |SS.Z1.2600......|
000006F0: 3A 99 22 57 52 4F 4E 47  20 44 49 53 4B 20 49 4E  |:."WRONG DISK IN|
00000700: 53 45 52 54 45 44 22 3A  81 49 B2 31 A4 32 30 30  |SERTED":.I.1.200|
00000710: 30 3A 82 49 3A 89 32 35  32 30 00 37 0F 28 0A 8F  |0:.I:.2520.7.(..|
00000720: 50 4F 4B 45 32 31 36 2C  30 3A 4F 4E 45 52 52 47  |POKE216,0:ONERRG|
00000730: 4F 54 4F 33 34 32 30 00  68 0F 3C 0A 99 3A 99 3A  |OTO3420.h.<..:.:|
00000740: 99 22 44 4F 20 59 4F 55  20 57 49 53 48 20 54 4F  |."DO YOU WISH TO|
00000750: 20 46 4F 52 4D 41 54 20  54 48 49 53 20 44 49 53  | FORMAT THIS DIS|
00000760: 4B 28 59 2F 4E 29 22 3B  00 86 0F 3D 0A 85 41 24  |K(Y/N)";...=..A$|
00000770: 3A 8B 41 24 B3 B1 22 59  22 AF 41 24 B3 B1 22 4E  |:.A$.."Y".A$.."N|
00000780: 22 A7 32 36 32 30 00 BB  0F 50 0A 8B 41 24 B2 22  |".2620...P..A$."|
00000790: 59 22 A7 99 22 44 49 53  4B 20 42 45 49 4E 47 20  |Y".."DISK BEING |
000007A0: 46 4F 52 4D 41 54 54 45  44 22 3A 99 3A 9F 31 35  |FORMATTED":.:.15|
000007B0: 2C 38 2C 31 35 2C 22 4E  45 57 22 00 E2 0F 51 0A  |,8,15,"NEW"...Q.|
000007C0: 8B 41 24 B2 22 59 22 A7  98 31 35 2C 22 4E 45 57  |.A$."Y"..15,"NEW|
000007D0: 30 3A 41 41 41 41 2C 41  41 22 3A A0 31 35 3A 8D  |0:AAAA,AA":.15:.|
000007E0: 38 30 00 19 10 52 0A 8B  41 24 B2 22 59 22 AF 53  |80...R..A$."Y".S|
000007F0: 53 B3 B1 30 A7 99 22 55  4E 53 55 43 43 45 53 53  |S..0.."UNSUCCESS|
00000800: 46 55 4C 20 46 4F 52 4D  41 54 20 41 54 54 45 4D  |FUL FORMAT ATTEM|
00000810: 50 54 22 3A 89 32 31 32  30 00 4C 10 64 0A 99 3A  |PT":.2120.L.d..:|
00000820: 99 22 45 4E 54 45 52 20  46 49 4C 45 4E 41 4D 45  |."ENTER FILENAME|
00000830: 22 3A 99 22 54 4F 20 53  41 56 45 20 47 41 4D 45  |":."TO SAVE GAME|
00000840: 20 55 4E 44 45 52 22 3B  3A 85 41 24 00 69 10 78  | UNDER";:.A$.i.x|
00000850: 0A 8F 50 4F 4B 45 32 31  36 2C 30 3A 4F 4E 45 52  |..POKE216,0:ONER|
00000860: 52 47 4F 54 4F 32 36 36  30 00 8A 10 8C 0A A0 31  |RGOTO2660......1|
00000870: 35 3A 20 20 20 9F 31 35  2C 38 2C 31 35 3A 98 31  |5:   .15,8,15:.1|
00000880: 35 2C 22 53 30 3A 22 AA  41 24 00 A6 10 A0 0A A0  |5,"S0:".A$......|
00000890: 31 35 3A A0 35 3A 9F 35  2C 38 2C 35 2C 41 24 AA  |15:.5:.5,8,5,A$.|
000008A0: 22 2C 53 2C 57 22 00 BF  10 B4 0A 8F 49 46 53 54  |",S,W"......IFST|
000008B0: 3D 5A 31 54 48 45 4E 47  4F 54 4F 33 34 32 30 00  |=Z1THENGOTO3420.|
000008C0: D2 10 C8 0A 8D 33 34 38  30 3A 8D 34 31 32 30 3A  |.....3480:.4120:|
000008D0: A0 35 00 DC 10 C9 0A 89  32 31 32 30 00 EE 10 DC  |.5......2120....|
000008E0: 0A 54 34 B2 31 31 30 30  3A 89 32 33 34 30 00 13  |.T4.1100:.2340..|
000008F0: 11 F0 0A 99 3A 99 22 45  4E 54 45 52 20 46 49 4C  |....:."ENTER FIL|
00000900: 45 4E 41 4D 45 20 4F 46  20 47 41 4D 45 22 3B 3A  |ENAME OF GAME";:|
00000910: 85 41 24 00 3C 11 04 0B  A0 35 3A 9F 35 2C 38 2C  |.A$.<....5:.5,8,|
00000920: 35 2C 41 24 AA 22 2C 53  2C 52 22 3A 8D 38 30 3A  |5,A$.",S,R":.80:|
00000930: 8B 53 53 B3 B1 5A 31 A7  32 38 33 35 00 68 11 0E  |.SS..Z1.2835.h..|
00000940: 0B 99 3A 99 22 2A 2A 2A  20 46 49 4C 45 20 4E 4F  |..:."*** FILE NO|
00000950: 54 20 46 4F 55 4E 44 20  2A 2A 2A 22 3A 8D 39 39  |T FOUND ***":.99|
00000960: 39 39 3A 89 32 31 32 30  00 96 11 13 0B A0 35 3A  |99:.2120......5:|
00000970: 9F 35 2C 38 2C 35 2C 41  24 AA 22 2C 53 2C 52 22  |.5,8,5,A$.",S,R"|
00000980: 3A 8D 33 38 34 30 3A 8D  34 31 38 30 3A A0 35 3A  |:.3840:.4180:.5:|
00000990: 20 89 32 31 32 30 00 A8  11 18 0B 54 34 B2 31 32  | .2120.....T4.12|
000009A0: 30 32 3A 89 32 33 34 30  00 D4 11 26 0B 8D 31 32  |02:.2340...&..12|
000009B0: 30 30 30 3A 99 3A 99 22  50 52 45 53 53 20 3C 52  |000:.:."PRESS <R|
000009C0: 45 54 55 52 4E 3E 20 54  4F 20 43 4F 4E 54 49 4E  |ETURN> TO CONTIN|
000009D0: 55 45 22 3B 00 E2 11 2D  0B 85 41 24 3A 89 32 31  |UE";...-..A$:.21|
000009E0: 32 30 00 F4 11 40 0B 54  34 B2 31 33 30 32 3A 89  |20...@.T4.1302:.|
000009F0: 32 33 34 30 00 0F 12 54  0B 8D 31 30 30 30 30 3A  |2340...T..10000:|
00000A00: 8B 41 41 24 B2 22 42 41  44 22 A7 32 31 32 30 00  |.AA$."BAD".2120.|
00000A10: 41 12 59 0B 99 3A 99 22  45 4E 54 45 52 20 4E 41  |A.Y..:."ENTER NA|
00000A20: 4D 45 20 4F 46 22 3A 99  22 47 41 4D 45 20 54 4F  |ME OF":."GAME TO|
00000A30: 20 42 45 20 44 45 4C 45  54 45 44 22 3B 3A 85 41  | BE DELETED";:.A|
00000A40: 24 00 6A 12 5E 0B A0 35  3A 9F 35 2C 38 2C 35 2C  |$.j.^..5:.5,8,5,|
00000A50: 41 24 AA 22 2C 53 2C 52  22 3A 8D 38 30 3A 8B 53  |A$.",S,R":.80:.S|
00000A60: 53 B3 B1 5A 31 A7 32 39  32 30 00 96 12 63 0B 99  |S..Z1.2920...c..|
00000A70: 3A 99 22 2A 2A 2A 20 46  49 4C 45 20 4E 4F 54 20  |:."*** FILE NOT |
00000A80: 46 4F 55 4E 44 20 2A 2A  2A 22 3A 8D 39 39 39 39  |FOUND ***":.9999|
00000A90: 3A 89 32 31 32 30 00 B4  12 68 0B 9F 31 35 2C 38  |:.2120...h..15,8|
00000AA0: 2C 31 35 3A 98 31 35 2C  22 53 30 3A 22 AA 41 24  |,15:.15,"S0:".A$|
00000AB0: 3A A0 31 35 00 DB 12 7C  0B 99 22 46 49 4C 45 20  |:.15...|.."FILE |
00000AC0: 44 45 4C 45 54 45 44 22  3A 81 49 B2 31 A4 31 32  |DELETED":.I.1.12|
00000AD0: 30 30 3A 82 49 3A 89 32  31 32 30 00 11 13 90 0B  |00:.I:.2120.....|
00000AE0: 8D 36 30 30 3A 99 22 44  4F 20 59 4F 55 20 57 49  |.600:."DO YOU WI|
00000AF0: 53 48 22 3A 99 22 54 4F  20 43 4F 4E 54 49 4E 55  |SH":."TO CONTINU|
00000B00: 45 20 54 48 45 20 47 41  4D 45 28 59 2F 4E 29 22  |E THE GAME(Y/N)"|
00000B10: 3B 00 19 13 91 0B 85 41  24 00 33 13 A4 0B 8B 41  |;......A$.3....A|
00000B20: 24 B3 B1 22 59 22 AF 41  24 B3 B1 22 4E 22 A7 32  |$.."Y".A$.."N".2|
00000B30: 39 36 30 00 41 13 B8 0B  8B 41 24 B2 22 4E 22 A7  |960.A....A$."N".|
00000B40: 80 00 66 13 CC 0B 8B 59  55 4D 45 B2 30 A7 99 3A  |..f....YUME.0..:|
00000B50: 99 22 4E 4F 20 47 41 4D  45 20 49 4E 20 50 52 4F  |."NO GAME IN PRO|
00000B60: 47 52 45 53 53 22 00 8E  13 D6 0B 8B 59 55 4D 45  |GRESS"......YUME|
00000B70: B2 30 A7 99 22 52 45 53  54 41 52 54 20 57 49 54  |.0.."RESTART WIT|
00000B80: 48 20 47 41 4D 45 20 44  49 53 4B 22 3A 80 00 9E  |H GAME DISK":...|
00000B90: 13 E0 0B 8B 57 44 B2 31  A7 89 33 32 34 30 00 C4  |....WD.1..3240..|
00000BA0: 13 F4 0B 8D 36 30 30 3A  99 22 50 4C 45 41 53 45  |....600:."PLEASE|
00000BB0: 20 49 4E 53 45 52 54 20  47 41 4D 45 20 44 49 53  | INSERT GAME DIS|
00000BC0: 4B 22 3A 99 00 F6 13 F5  0B 99 22 50 52 45 53 53  |K":......."PRESS|
00000BD0: 20 3C 52 45 54 55 52 4E  3E 20 57 48 45 4E 20 44  | <RETURN> WHEN D|
00000BE0: 49 53 4B 45 54 54 45 20  49 4E 53 45 52 54 45 44  |ISKETTE INSERTED|
00000BF0: 22 3B 3A 85 41 24 00 0F  14 08 0C 8F 32 31 36 2C  |";:.A$......216,|
00000C00: 30 3A 4F 4E 45 52 52 47  4F 54 4F 33 31 32 30 00  |0:ONERRGOTO3120.|
00000C10: 2E 14 44 0C A0 35 3A 20  20 20 9F 35 2C 38 2C 35  |..D..5:   .5,8,5|
00000C20: 2C 22 44 49 53 4B 49 44  2C 53 2C 52 22 3A 00 65  |,"DISKID,S,R":.e|
00000C30: 14 46 0C 84 35 2C 58 24  3A A0 35 3A 8B 58 24 B3  |.F..5,X$:.5:.X$.|
00000C40: B1 22 31 22 AF 58 24 B3  B1 22 33 22 A7 99 3A 99  |."1".X$.."3"..:.|
00000C50: 22 57 52 4F 4E 47 20 44  49 53 4B 20 49 4E 53 45  |"WRONG DISK INSE|
00000C60: 52 54 45 44 22 00 8D 14  48 0C 8B 58 24 B3 B1 22  |RTED"...H..X$.."|
00000C70: 31 22 AF 58 24 B3 B1 22  33 22 A7 81 49 B2 31 A4  |1".X$.."3"..I.1.|
00000C80: 32 30 30 30 3A 82 49 3A  89 33 30 36 30 00 DC 14  |2000:.I:.3060...|
00000C90: 58 0C 8F 49 46 54 33 3C  3E 30 54 48 45 4E 2C 52  |X..IFT3<>0THEN,R|
00000CA0: 45 43 41 4C 4C 22 54 45  53 54 22 3A 2C 52 45 43  |ECALL"TEST":,REC|
00000CB0: 41 4C 4C 22 47 45 4F 53  48 41 50 45 53 31 22 3A  |ALL"GEOSHAPES1":|
00000CC0: 2C 52 45 43 41 4C 4C 22  47 45 4F 53 48 41 50 45  |,RECALL"GEOSHAPE|
00000CD0: 53 33 22 3A 2C 52 45 43  41 4C 4C 22 00 EB 14 6C  |S3":,RECALL"...l|
00000CE0: 0C 8F 50 4F 4B 45 32 31  36 2C 30 00 FD 14 80 0C  |..POKE216,0.....|
00000CF0: 93 22 47 45 4F 50 4F 4C  36 34 22 2C 38 00 03 15  |."GEOPOL64",8...|
00000D00: 94 0C 80 00 2A 15 A8 0C  8D 36 30 30 3A 99 22 50  |....*....600:."P|
00000D10: 4C 45 41 53 45 20 49 4E  53 45 52 54 20 47 41 4D  |LEASE INSERT GAM|
00000D20: 45 20 44 49 53 4B 20 22  3A 99 00 5C 15 A9 0C 99  |E DISK ":..\....|
00000D30: 22 50 52 45 53 53 20 3C  52 45 54 55 52 4E 3E 20  |"PRESS <RETURN> |
00000D40: 57 48 45 4E 20 44 49 53  4B 45 54 54 45 20 49 4E  |WHEN DISKETTE IN|
00000D50: 53 45 52 54 45 44 22 3B  3A 85 41 24 00 79 15 BC  |SERTED";:.A$.y..|
00000D60: 0C 8F 50 4F 4B 45 32 31  36 2C 30 3A 4F 4E 45 52  |..POKE216,0:ONER|
00000D70: 52 47 4F 54 4F 33 33 30  30 00 A9 15 D0 0C A0 35  |RGOTO3300......5|
00000D80: 3A 20 9F 35 2C 38 2C 35  2C 22 44 49 53 4B 49 44  |: .5,8,5,"DISKID|
00000D90: 2C 53 2C 52 22 3A 8D 38  30 3A 20 20 20 20 8B 53  |,S,R":.80:    .S|
00000DA0: 53 B2 5A 31 A7 33 33 30  30 00 B3 15 D2 0C 89 33  |S.Z1.3300......3|
00000DB0: 33 31 30 00 D0 15 E4 0C  99 3A 99 22 57 52 4F 4E  |310......:."WRON|
00000DC0: 47 20 44 49 53 4B 20 49  4E 53 45 52 54 45 44 22  |G DISK INSERTED"|
00000DD0: 00 E7 15 E5 0C 81 49 B2  31 A4 32 30 30 30 3A 82  |......I.1.2000:.|
00000DE0: 49 3A 89 33 32 34 30 00  02 16 EE 0C A0 35 3A 9F  |I:.3240......5:.|
00000DF0: 35 2C 38 2C 35 2C 22 44  49 53 4B 49 44 2C 53 2C  |5,8,5,"DISKID,S,|
00000E00: 52 22 00 3A 16 F8 0C 84  35 2C 58 24 3A A0 35 3A  |R".:....5,X$:.5:|
00000E10: 8B 58 24 B3 B1 22 32 22  AF 58 24 B3 B1 22 33 22  |.X$.."2".X$.."3"|
00000E20: A7 99 3A 99 22 57 52 4F  4E 47 20 44 49 53 4B 20  |..:."WRONG DISK |
00000E30: 49 4E 53 45 52 54 45 44  22 3A 00 62 16 FA 0C 8B  |INSERTED":.b....|
00000E40: 58 24 B3 B1 22 32 22 AF  58 24 B3 B1 22 33 22 A7  |X$.."2".X$.."3".|
00000E50: 81 49 B2 31 A4 32 30 30  30 3A 82 49 3A 89 33 32  |.I.1.2000:.I:.32|
00000E60: 34 30 00 B1 16 0C 0D 8F  49 46 54 33 3C 3E 30 54  |40......IFT3<>0T|
00000E70: 48 45 4E 2C 52 45 43 41  4C 4C 22 54 45 53 54 22  |HEN,RECALL"TEST"|
00000E80: 3A 2C 52 45 43 41 4C 4C  22 47 45 4F 53 48 41 50  |:,RECALL"GEOSHAP|
00000E90: 45 53 31 22 3A 2C 52 45  43 41 4C 4C 22 47 45 4F  |ES1":,RECALL"GEO|
00000EA0: 53 48 41 50 45 53 33 22  3A 2C 52 45 43 41 4C 4C  |SHAPES3":,RECALL|
00000EB0: 22 00 BE 16 20 0D 41 24  B2 22 4F 4C 44 22 00 D0  |"... .A$."OLD"..|
00000EC0: 16 34 0D 93 22 47 45 4F  57 41 52 36 34 22 2C 38  |.4.."GEOWAR64",8|
00000ED0: 00 D6 16 48 0D 80 00 01  17 5C 0D 99 22 2A 2A 2A  |...H.....\.."***|
00000EE0: 20 46 49 4C 45 20 4E 4F  54 20 46 4F 55 4E 44 20  | FILE NOT FOUND |
00000EF0: 2A 2A 2A 22 3A 81 49 B2  31 A4 31 35 30 30 3A 82  |***":.I.1.1500:.|
00000F00: 49 00 0B 17 84 0D 89 32  31 32 30 00 11 17 98 0D  |I......2120.....|
00000F10: 8F 00 31 17 AC 0D 81 49  B2 30 A4 34 30 3A 98 35  |..1....I.0.40:.5|
00000F20: 2C 55 53 25 28 49 29 3A  82 49 3A 81 49 B2 30 A4  |,US%(I):.I:.I.0.|
00000F30: 35 00 57 17 AD 0D 98 35  2C 4F 53 25 28 49 29 3A  |5.W....5,OS%(I):|
00000F40: 82 49 3A 81 49 B2 30 A4  32 35 3A 98 35 2C 53 55  |.I:.I.0.25:.5,SU|
00000F50: 25 28 49 29 3A 82 49 00  6A 17 AE 0D 8B 20 49 B3  |%(I):.I.j.... I.|
00000F60: B1 32 36 20 A7 20 32 36  36 30 00 8D 17 C0 0D 81  |.26 . 2660......|
00000F70: 49 B2 30 A4 31 36 3A 81  4A B2 30 A4 31 34 3A 98  |I.0.16:.J.0.14:.|
00000F80: 35 2C 4E 44 25 28 49 2C  4A 29 3A 82 4A 00 AF 17  |5,ND%(I,J):.J...|
00000F90: C1 0D 82 49 3A 81 49 B2  30 A4 35 3A 81 4A B2 30  |...I:.I.0.5:.J.0|
00000FA0: A4 35 3A 98 35 2C 43 28  49 2C 4A 29 3A 82 4A 00  |.5:.5,C(I,J):.J.|
00000FB0: B6 17 C2 0D 82 49 00 D7  17 D4 0D 81 49 B2 30 A4  |.....I......I.0.|
00000FC0: 36 3A 81 4A B2 30 A4 34  3A 98 35 2C 52 44 25 28  |6:.J.0.4:.5,RD%(|
00000FD0: 49 2C 4A 29 3A 82 4A 00  DE 17 D5 0D 82 49 00 01  |I,J):.J......I..|
00000FE0: 18 E8 0D 81 49 B2 30 A4  31 36 3A 81 4A B2 30 A4  |....I.0.16:.J.0.|
00000FF0: 34 3A 98 35 2C 53 4D 4C  25 28 49 2C 4A 29 3A 82  |4:.5,SML%(I,J):.|
00001000: 4A 00 26 18 E9 0D 82 49  3A 81 49 B2 30 A4 31 33  |J.&....I:.I.0.13|
00001010: 3A 81 4A B2 30 A4 34 3A  98 35 2C 4F 4F 25 28 49  |:.J.0.4:.5,OO%(I|
00001020: 2C 4A 29 3A 82 4A 00 2D  18 EA 0D 82 49 00 4F 18  |,J):.J.-....I.O.|
00001030: FC 0D 81 49 B2 30 A4 31  39 3A 81 4A B2 30 A4 34  |...I.0.19:.J.0.4|
00001040: 3A 98 35 2C 4C 4C 25 28  49 2C 4A 29 3A 82 4A 00  |:.5,LL%(I,J):.J.|
00001050: 74 18 FD 0D 82 49 3A 81  49 B2 30 A4 31 33 3A 81  |t....I:.I.0.13:.|
00001060: 4A B2 30 A4 35 3A 98 35  2C 4F 4C 25 28 49 2C 4A  |J.0.5:.5,OL%(I,J|
00001070: 29 3A 82 4A 00 7B 18 FE  0D 82 49 00 9B 18 10 0E  |):.J.{....I.....|
00001080: 81 49 B2 30 A4 34 30 3A  98 35 2C 53 43 25 28 49  |.I.0.40:.5,SC%(I|
00001090: 29 3A 82 49 3A 81 49 B2  30 A4 34 00 AB 18 11 0E  |):.I:.I.0.4.....|
000010A0: 98 35 2C 54 44 28 49 29  3A 82 49 00 D6 18 24 0E  |.5,TD(I):.I...$.|
000010B0: 8F 46 4F 52 49 3D 31 54  4F 31 36 3A 50 52 49 4E  |.FORI=1TO16:PRIN|
000010C0: 54 4E 24 28 49 29 3A 4E  45 58 54 49 3A 46 4F 52  |TN$(I):NEXTI:FOR|
000010D0: 49 3D 31 54 4F 36 00 09  19 25 0E 8F 50 52 49 4E  |I=1TO6...%..PRIN|
000010E0: 54 52 4E 24 28 49 29 3A  4E 45 58 54 49 3A 46 4F  |TRN$(I):NEXTI:FO|
000010F0: 52 49 3D 31 54 4F 35 3A  50 52 49 4E 54 53 4E 24  |RI=1TO5:PRINTSN$|
00001100: 28 49 29 3A 4E 45 58 54  49 00 42 19 26 0E 8F 20  |(I):NEXTI.B.&.. |
00001110: 46 4F 52 49 3D 31 54 4F  35 3A 50 52 49 4E 54 44  |FORI=1TO5:PRINTD|
00001120: 54 24 28 49 29 3A 4E 45  58 54 49 3A 46 4F 52 49  |T$(I):NEXTI:FORI|
00001130: 3D 30 54 4F 31 30 3A 50  52 49 4E 54 44 4F 24 28  |=0TO10:PRINTDO$(|
00001140: 49 29 00 4D 19 27 0E 8F  4E 45 58 54 49 00 7A 19  |I).M.'..NEXTI.z.|
00001150: 38 0E 8F 46 4F 52 49 3D  31 54 4F 31 39 3A 50 52  |8..FORI=1TO19:PR|
00001160: 49 4E 54 41 43 24 28 49  29 3A 4E 45 58 54 49 3A  |INTAC$(I):NEXTI:|
00001170: 46 4F 52 49 3D 30 54 4F  31 35 00 A7 19 39 0E 81  |FORI=0TO15...9..|
00001180: 49 B2 30 A4 31 35 3A 81  4A B2 30 A4 38 3A 98 35  |I.0.15:.J.0.8:.5|
00001190: 2C 55 46 25 28 49 2C 4A  29 3A 82 4A 3A 82 49 3A  |,UF%(I,J):.J:.I:|
000011A0: 81 49 B2 30 A4 31 35 00  C4 19 40 0E 81 4A B2 30  |.I.0.15...@..J.0|
000011B0: A4 39 3A 98 35 2C 53 46  25 28 49 2C 4A 29 3A 82  |.9:.5,SF%(I,J):.|
000011C0: 4A 3A 82 49 00 EE 19 4C  0E 98 35 2C 52 43 3A 98  |J:.I...L..5,RC:.|
000011D0: 35 2C 59 55 4D 45 3A 98  35 2C 53 43 3A 98 35 2C  |5,YUME:.5,SC:.5,|
000011E0: 54 30 3A 98 35 2C 54 31  3A 98 35 2C 4D 55 00 16  |T0:.5,T1:.5,MU..|
000011F0: 1A 4D 0E 98 35 2C 4D 53  3A 98 35 2C 54 4C 3A 98  |.M..5,MS:.5,TL:.|
00001200: 35 2C 4E 57 3A 98 35 2C  46 30 3A 98 35 2C 46 31  |5,NW:.5,F0:.5,F1|
00001210: 3A 98 35 2C 55 50 00 38  1A 4E 0E 98 35 2C 53 50  |:.5,UP.8.N..5,SP|
00001220: 3A 98 35 2C 55 51 3A 98  35 2C 53 51 3A 98 35 2C  |:.5,UQ:.5,SQ:.5,|
00001230: 46 50 3A 98 35 2C 46 51  00 60 1A 60 0E 98 35 2C  |FP:.5,FQ.`.`..5,|
00001240: 4D 54 3A 98 35 2C 4D 58  3A 98 35 2C 4D 59 3A 98  |MT:.5,MX:.5,MY:.|
00001250: 35 2C 44 44 3A 98 35 2C  4E 54 3A 98 35 2C 4F 54  |5,DD:.5,NT:.5,OT|
00001260: 00 88 1A 61 0E 98 35 2C  4E 55 3A 98 35 2C 4F 55  |...a..5,NU:.5,OU|
00001270: 3A 98 35 2C 4E 58 3A 98  35 2C 4F 58 3A 98 35 2C  |:.5,NX:.5,OX:.5,|
00001280: 50 55 3A 98 35 2C 50 53  00 98 1A 62 0E 98 35 2C  |PU:.5,PS...b..5,|
00001290: 46 5A 3A 98 35 2C 56 46  00 A8 1A 74 0E 98 35 2C  |FZ:.5,VF...t..5,|
000012A0: 57 44 3A 98 35 2C 42 5A  00 C7 1A 88 0E 81 49 B2  |WD:.5,BZ......I.|
000012B0: 30 A4 33 3A 98 35 2C 53  47 25 28 49 29 3A 82 49  |0.3:.5,SG%(I):.I|
000012C0: 3A 81 49 B2 30 A4 33 00  E6 1A 89 0E 98 35 2C 55  |:.I.0.3......5,U|
000012D0: 47 25 28 49 29 3A 82 49  3A 81 49 B2 30 A4 31 3A  |G%(I):.I:.I.0.1:|
000012E0: 81 4A B2 30 A4 39 00 FC  1A 8A 0E 98 35 2C 47 50  |.J.0.9......5,GP|
000012F0: 25 28 49 2C 4A 29 3A 82  4A 3A 82 49 00 1E 1B 9C  |%(I,J):.J:.I....|
00001300: 0E 81 49 B2 30 A4 33 32  3A 81 4A B2 30 A4 31 3A  |..I.0.32:.J.0.1:|
00001310: 98 35 2C 4D 4C 25 28 49  2C 4A 29 3A 82 4A 00 40  |.5,ML%(I,J):.J.@|
00001320: 1B 9D 0E 82 49 3A 81 49  B2 30 A4 32 3A 98 35 2C  |....I:.I.0.2:.5,|
00001330: 52 4D 25 28 49 29 3A 82  49 3A 81 49 B2 30 A4 32  |RM%(I):.I:.I.0.2|
00001340: 00 51 1B 9E 0E 98 35 2C  53 41 25 28 49 29 3A 82  |.Q....5,SA%(I):.|
00001350: 49 00 75 1B B0 0E 8F 46  4F 52 49 3D 31 54 4F 35  |I.u....FORI=1TO5|
00001360: 3A 50 52 49 4E 54 23 35  2C 52 50 24 28 49 29 3A  |:PRINT#5,RP$(I):|
00001370: 4E 45 58 54 49 00 A3 1B  C4 0E 8F 46 4F 52 49 3D  |NEXTI......FORI=|
00001380: 30 54 4F 36 30 3A 46 4F  52 4A 3D 30 54 4F 33 3A  |0TO60:FORJ=0TO3:|
00001390: 50 52 49 4E 54 4D 50 25  28 49 2C 4A 29 3A 4E 45  |PRINTMP%(I,J):NE|
000013A0: 58 54 4A 00 D7 1B C5 0E  8F 4E 45 58 54 49 3A 46  |XTJ......NEXTI:F|
000013B0: 4F 52 49 3D 30 54 4F 33  32 3A 46 4F 52 4A 3D 30  |ORI=0TO32:FORJ=0|
000013C0: 54 4F 31 3A 50 52 49 4E  54 4D 4D 25 28 49 2C 4A  |TO1:PRINTMM%(I,J|
000013D0: 29 3A 4E 45 58 54 4A 00  E2 1B C6 0E 8F 4E 45 58  |):NEXTJ......NEX|
000013E0: 54 49 00 F9 1B D8 0E 81  49 B2 30 A4 33 3A 98 35  |TI......I.0.3:.5|
000013F0: 2C 54 48 28 49 29 3A 82  49 00 FF 1B EC 0E 8E 00  |,TH(I):.I.......|
00001400: 05 1C 00 0F 8F 00 25 1C  14 0F 81 49 B2 30 A4 34  |......%....I.0.4|
00001410: 30 3A 84 35 2C 55 53 25  28 49 29 3A 82 49 3A 81  |0:.5,US%(I):.I:.|
00001420: 49 B2 30 A4 35 00 4B 1C  15 0F 84 35 2C 4F 53 25  |I.0.5.K....5,OS%|
00001430: 28 49 29 3A 82 49 3A 81  49 B2 30 A4 32 35 3A 84  |(I):.I:.I.0.25:.|
00001440: 35 2C 53 55 25 28 49 29  3A 82 49 00 71 1C 16 0F  |5,SU%(I):.I.q...|
00001450: 81 49 B2 30 A4 31 36 3A  81 4A B2 30 A4 31 34 3A  |.I.0.16:.J.0.14:|
00001460: 84 35 2C 4E 44 25 28 49  2C 4A 29 3A 82 4A 3A 82  |.5,ND%(I,J):.J:.|
00001470: 49 00 93 1C 17 0F 81 49  B2 30 A4 35 3A 81 4A B2  |I......I.0.5:.J.|
00001480: 30 A4 35 3A 84 35 2C 43  28 49 2C 4A 29 3A 82 4A  |0.5:.5,C(I,J):.J|
00001490: 3A 82 49 00 A5 1C 18 0F  8B 20 49 B3 B1 36 20 A7  |:.I...... I..6 .|
000014A0: 20 32 38 30 30 00 C6 1C  28 0F 81 49 B2 30 A4 36  | 2800...(..I.0.6|
000014B0: 3A 81 4A B2 30 A4 34 3A  84 35 2C 52 44 25 28 49  |:.J.0.4:.5,RD%(I|
000014C0: 2C 4A 29 3A 82 4A 00 CD  1C 29 0F 82 49 00 F0 1C  |,J):.J...)..I...|
000014D0: 2C 0F 81 49 B2 30 A4 31  36 3A 81 4A B2 30 A4 34  |,..I.0.16:.J.0.4|
000014E0: 3A 84 35 2C 53 4D 4C 25  28 49 2C 4A 29 3A 82 4A  |:.5,SML%(I,J):.J|
000014F0: 00 18 1D 2E 0F 82 49 3A  81 49 B2 30 A4 31 33 3A  |......I:.I.0.13:|
00001500: 81 4A B2 30 A4 34 3A 84  35 2C 4F 4F 25 28 49 2C  |.J.0.4:.5,OO%(I,|
00001510: 4A 29 3A 82 4A 3A 82 49  00 3A 1D 30 0F 81 49 B2  |J):.J:.I.:.0..I.|
00001520: 30 A4 31 39 3A 81 4A B2  30 A4 34 3A 84 35 2C 4C  |0.19:.J.0.4:.5,L|
00001530: 4C 25 28 49 2C 4A 29 3A  82 4A 00 5F 1D 32 0F 82  |L%(I,J):.J._.2..|
00001540: 49 3A 81 49 B2 30 A4 31  33 3A 81 4A B2 30 A4 35  |I:.I.0.13:.J.0.5|
00001550: 3A 84 35 2C 4F 4C 25 28  49 2C 4A 29 3A 82 4A 00  |:.5,OL%(I,J):.J.|
00001560: 66 1D 34 0F 82 49 00 86  1D 3C 0F 81 49 B2 30 A4  |f.4..I...<..I.0.|
00001570: 34 30 3A 84 35 2C 53 43  25 28 49 29 3A 82 49 3A  |40:.5,SC%(I):.I:|
00001580: 81 49 B2 30 A4 34 00 96  1D 3D 0F 84 35 2C 54 44  |.I.0.4...=..5,TD|
00001590: 28 49 29 3A 82 49 00 C2  1D 50 0F 8F 20 46 4F 52  |(I):.I...P.. FOR|
000015A0: 49 3D 31 54 4F 31 36 3A  49 4E 50 55 54 4E 24 28  |I=1TO16:INPUTN$(|
000015B0: 49 29 3A 4E 45 58 54 49  3A 46 4F 52 49 3D 31 54  |I):NEXTI:FORI=1T|
000015C0: 4F 36 00 F5 1D 51 0F 8F  49 4E 50 55 54 52 4E 24  |O6...Q..INPUTRN$|
000015D0: 28 49 29 3A 4E 45 58 54  49 3A 46 4F 52 49 3D 31  |(I):NEXTI:FORI=1|
000015E0: 54 4F 35 3A 49 4E 50 55  54 53 4E 24 28 49 29 3A  |TO5:INPUTSN$(I):|
000015F0: 4E 45 58 54 49 00 2D 1E  52 0F 8F 46 4F 52 49 3D  |NEXTI.-.R..FORI=|
00001600: 31 54 4F 35 3A 49 4E 50  55 54 44 54 24 28 49 29  |1TO5:INPUTDT$(I)|
00001610: 3A 4E 45 58 54 49 3A 46  4F 52 49 3D 30 54 4F 31  |:NEXTI:FORI=0TO1|
00001620: 30 3A 49 4E 50 55 54 44  4F 24 28 49 29 00 38 1E  |0:INPUTDO$(I).8.|
00001630: 53 0F 8F 4E 45 58 54 49  00 65 1E 64 0F 8F 46 4F  |S..NEXTI.e.d..FO|
00001640: 52 49 3D 31 54 4F 31 39  3A 49 4E 50 55 54 41 43  |RI=1TO19:INPUTAC|
00001650: 24 28 49 29 3A 4E 45 58  54 49 3A 46 4F 52 49 3D  |$(I):NEXTI:FORI=|
00001660: 30 54 4F 31 35 00 93 1E  65 0F 81 49 B2 30 A4 31  |0TO15...e..I.0.1|
00001670: 35 3A 20 81 4A B2 30 A4  38 3A 84 35 2C 55 46 25  |5: .J.0.8:.5,UF%|
00001680: 28 49 2C 4A 29 3A 82 4A  3A 82 49 3A 81 49 B2 30  |(I,J):.J:.I:.I.0|
00001690: A4 31 35 00 B0 1E 66 0F  81 4A B2 30 A4 39 3A 84  |.15...f..J.0.9:.|
000016A0: 35 2C 53 46 25 28 49 2C  4A 29 3A 82 4A 3A 82 49  |5,SF%(I,J):.J:.I|
000016B0: 00 E6 1E 78 0F 84 35 2C  52 43 2C 59 55 4D 45 2C  |...x..5,RC,YUME,|
000016C0: 53 43 2C 54 30 2C 54 31  2C 4D 55 2C 4D 53 2C 54  |SC,T0,T1,MU,MS,T|
000016D0: 4C 2C 4E 57 2C 46 30 2C  46 31 2C 55 50 2C 53 50  |L,NW,F0,F1,UP,SP|
000016E0: 2C 55 51 2C 53 51 00 1D  1F 7A 0F 84 35 2C 46 50  |,UQ,SQ...z..5,FP|
000016F0: 2C 46 51 2C 4D 54 2C 4D  58 2C 4D 59 2C 44 44 2C  |,FQ,MT,MX,MY,DD,|
00001700: 4E 54 2C 4F 54 2C 4E 55  2C 4F 55 2C 4E 58 2C 4F  |NT,OT,NU,OU,NX,O|
00001710: 58 2C 50 55 2C 50 53 2C  46 5A 2C 56 46 00 2D 1F  |X,PU,PS,FZ,VF.-.|
00001720: 8C 0F 84 35 2C 57 44 3A  84 35 2C 42 5A 00 4C 1F  |...5,WD:.5,BZ.L.|
00001730: A0 0F 81 49 B2 30 A4 33  3A 84 35 2C 53 47 25 28  |...I.0.3:.5,SG%(|
00001740: 49 29 3A 82 49 3A 81 49  B2 30 A4 33 00 6B 1F A1  |I):.I:.I.0.3.k..|
00001750: 0F 84 35 2C 55 47 25 28  49 29 3A 82 49 3A 81 49  |..5,UG%(I):.I:.I|
00001760: B2 30 A4 31 3A 81 4A B2  30 A4 39 00 81 1F A2 0F  |.0.1:.J.0.9.....|
00001770: 84 35 2C 47 50 25 28 49  2C 4A 29 3A 82 4A 3A 82  |.5,GP%(I,J):.J:.|
00001780: 49 00 A3 1F B4 0F 81 49  B2 30 A4 33 32 3A 81 4A  |I......I.0.32:.J|
00001790: B2 30 A4 31 3A 84 35 2C  4D 4C 25 28 49 2C 4A 29  |.0.1:.5,ML%(I,J)|
000017A0: 3A 82 4A 00 C5 1F B5 0F  82 49 3A 81 49 B2 30 A4  |:.J......I:.I.0.|
000017B0: 32 3A 84 35 2C 52 4D 25  28 49 29 3A 82 49 3A 81  |2:.5,RM%(I):.I:.|
000017C0: 49 B2 30 A4 32 00 D6 1F  B6 0F 84 35 2C 53 41 25  |I.0.2......5,SA%|
000017D0: 28 49 29 3A 82 49 00 F7  1F C8 0F 8F 46 4F 52 49  |(I):.I......FORI|
000017E0: 3D 31 54 4F 35 3A 49 4E  50 55 54 52 50 24 28 49  |=1TO5:INPUTRP$(I|
000017F0: 29 3A 4E 45 58 54 49 00  25 20 DC 0F 8F 46 4F 52  |):NEXTI.% ...FOR|
00001800: 49 3D 30 54 4F 36 30 3A  46 4F 52 4A 3D 30 54 4F  |I=0TO60:FORJ=0TO|
00001810: 33 3A 49 4E 50 55 54 4D  50 25 28 49 2C 4A 29 3A  |3:INPUTMP%(I,J):|
00001820: 4E 45 58 54 4A 00 59 20  DD 0F 8F 4E 45 58 54 49  |NEXTJ.Y ...NEXTI|
00001830: 3A 46 4F 52 49 3D 30 54  4F 33 32 3A 46 4F 52 4A  |:FORI=0TO32:FORJ|
00001840: 3D 30 54 4F 31 3A 49 4E  50 55 54 4D 4D 25 28 49  |=0TO1:INPUTMM%(I|
00001850: 2C 4A 29 3A 4E 45 58 54  4A 00 64 20 DE 0F 8F 4E  |,J):NEXTJ.d ...N|
00001860: 45 58 54 49 00 7B 20 F0  0F 81 49 B2 30 A4 33 3A  |EXTI.{ ...I.0.3:|
00001870: 84 35 2C 54 48 28 49 29  3A 82 49 00 81 20 04 10  |.5,TH(I):.I.. ..|
00001880: 8E 00 A3 20 18 10 81 49  B2 30 A4 33 32 3A 81 4A  |... ...I.0.32:.J|
00001890: B2 30 A4 35 3A 98 35 2C  45 53 25 28 49 2C 4A 29  |.0.5:.5,ES%(I,J)|
000018A0: 3A 82 4A 00 C8 20 19 10  82 49 3A 81 49 B2 30 A4  |:.J.. ...I:.I.0.|
000018B0: 32 30 3A 81 4A B2 30 A4  34 3A 98 35 2C 55 48 25  |20:.J.0.4:.5,UH%|
000018C0: 28 49 2C 4A 29 3A 82 4A  00 ED 20 1A 10 82 49 3A  |(I,J):.J.. ...I:|
000018D0: 81 49 B2 30 A4 32 30 3A  81 4A B2 30 A4 34 3A 98  |.I.0.20:.J.0.4:.|
000018E0: 35 2C 53 48 25 28 49 2C  4A 29 3A 82 4A 00 F4 20  |5,SH%(I,J):.J.. |
000018F0: 1B 10 82 49 00 17 21 26  10 81 49 B2 31 36 A4 32  |...I..!&..I.16.2|
00001900: 30 3A 81 4A B2 30 A4 39  3A 98 35 2C 53 46 25 28  |0:.J.0.9:.5,SF%(|
00001910: 49 2C 4A 29 3A 82 4A 00  3D 21 2D 10 82 49 3A 81  |I,J):.J.=!-..I:.|
00001920: 49 B2 31 36 A4 32 30 3A  81 4A B2 30 A4 38 3A 98  |I.16.20:.J.0.8:.|
00001930: 35 2C 55 46 25 28 49 2C  4A 29 3A 82 4A 00 44 21  |5,UF%(I,J):.J.D!|
00001940: 2E 10 82 49 00 4A 21 40  10 8E 00 6C 21 54 10 81  |...I.J!@...l!T..|
00001950: 49 B2 30 A4 33 32 3A 81  4A B2 30 A4 35 3A 84 35  |I.0.32:.J.0.5:.5|
00001960: 2C 45 53 25 28 49 2C 4A  29 3A 82 4A 00 91 21 55  |,ES%(I,J):.J..!U|
00001970: 10 82 49 3A 81 49 B2 30  A4 32 30 3A 81 4A B2 30  |..I:.I.0.20:.J.0|
00001980: A4 34 3A 84 35 2C 55 48  25 28 49 2C 4A 29 3A 82  |.4:.5,UH%(I,J):.|
00001990: 4A 00 B6 21 56 10 82 49  3A 81 49 B2 30 A4 32 30  |J..!V..I:.I.0.20|
000019A0: 3A 81 4A B2 30 A4 34 3A  84 35 2C 53 48 25 28 49  |:.J.0.4:.5,SH%(I|
000019B0: 2C 4A 29 3A 82 4A 00 BD  21 57 10 82 49 00 E0 21  |,J):.J..!W..I..!|
000019C0: 68 10 81 49 B2 31 36 A4  32 30 3A 81 4A B2 30 A4  |h..I.16.20:.J.0.|
000019D0: 39 3A 84 35 2C 53 46 25  28 49 2C 4A 29 3A 82 4A  |9:.5,SF%(I,J):.J|
000019E0: 00 06 22 69 10 82 49 3A  81 49 B2 31 36 A4 32 30  |.."i..I:.I.16.20|
000019F0: 3A 81 4A B2 30 A4 38 3A  84 35 2C 55 46 25 28 49  |:.J.0.8:.5,UF%(I|
00001A00: 2C 4A 29 3A 82 4A 00 0D  22 6A 10 82 49 00 13 22  |,J):.J.."j..I.."|
00001A10: 7C 10 8E 00 2B 22 90 10  8D 34 30 30 3A 8D 36 30  ||...+"...400:.60|
00001A20: 30 3A 8D 34 30 30 3A 8D  36 30 30 00 4E 22 A4 10  |0:.400:.600.N"..|
00001A30: 99 22 93 22 3A 20 20 20  99 A3 31 33 29 22 44 4F  |.".":   ..13)"DO|
00001A40: 20 59 4F 55 20 57 49 53  48 20 54 4F 3A 22 00 69  | YOU WISH TO:".i|
00001A50: 22 B8 10 99 3A 99 A3 31  35 29 22 53 41 56 45 20  |"...:..15)"SAVE |
00001A60: 47 41 4D 45 20 28 53 29  22 00 87 22 CC 10 99 3A  |GAME (S)".."...:|
00001A70: 99 A3 31 35 29 22 43 41  54 41 4C 4F 47 20 44 49  |..15)"CATALOG DI|
00001A80: 53 4B 20 28 43 29 22 00  A8 22 E0 10 99 3A 99 A3  |SK (C)".."...:..|
00001A90: 31 35 29 22 53 45 45 20  45 4E 54 49 52 45 20 4D  |15)"SEE ENTIRE M|
00001AA0: 45 4E 55 20 28 4D 29 22  00 AE 22 F4 10 99 00 D6  |ENU (M)"..".....|
00001AB0: 22 08 11 99 A3 38 29 22  45 4E 54 45 52 20 4F 50  |"....8)"ENTER OP|
00001AC0: 54 49 4F 4E 20 28 53 2C  43 2C 20 4F 52 20 4D 29  |TION (S,C, OR M)|
00001AD0: 22 3B 3A 85 41 24 00 F8  22 1C 11 8B 41 24 B3 B1  |";:.A$.."...A$..|
00001AE0: 22 4D 22 AF 41 24 B3 B1  22 43 22 AF 41 24 B3 B1  |"M".A$.."C".A$..|
00001AF0: 22 53 22 A7 34 33 36 30  00 0A 23 30 11 8B 41 24  |"S".4360..#0..A$|
00001B00: B2 22 4D 22 A7 89 32 31  32 30 00 1C 23 44 11 8B  |."M"..2120..#D..|
00001B10: 41 24 B2 22 43 22 A7 89  32 38 34 30 00 2E 23 58  |A$."C"..2840..#X|
00001B20: 11 8B 41 24 B2 22 53 22  A7 89 32 34 38 30 00 38  |..A$."S"..2480.8|
00001B30: 23 6C 11 89 32 31 32 30  00 50 23 80 11 8D 34 30  |#l..2120.P#...40|
00001B40: 30 3A 8D 36 30 30 3A 8D  34 30 30 3A 8D 36 30 30  |0:.600:.400:.600|
00001B50: 00 70 23 94 11 99 22 93  22 3A 99 A3 31 33 29 22  |.p#...".":..13)"|
00001B60: 44 4F 20 59 4F 55 20 57  49 53 48 20 54 4F 3A 22  |DO YOU WISH TO:"|
00001B70: 00 8D 23 A8 11 99 3A 99  A3 31 35 29 22 52 45 43  |..#...:..15)"REC|
00001B80: 41 4C 4C 20 47 41 4D 45  20 28 52 29 22 00 AB 23  |ALL GAME (R)"..#|
00001B90: BC 11 99 3A 99 A3 31 35  29 22 43 41 54 41 4C 4F  |...:..15)"CATALO|
00001BA0: 47 20 44 49 53 4B 20 28  43 29 22 00 CC 23 D0 11  |G DISK (C)"..#..|
00001BB0: 99 3A 99 A3 31 35 29 22  53 45 45 20 45 4E 54 49  |.:..15)"SEE ENTI|
00001BC0: 52 45 20 4D 45 4E 55 20  28 4D 29 22 00 D2 23 E4  |RE MENU (M)"..#.|
00001BD0: 11 99 00 FA 23 F8 11 99  A3 38 29 22 45 4E 54 45  |....#....8)"ENTE|
00001BE0: 52 20 4F 50 54 49 4F 4E  20 28 52 2C 43 2C 20 4F  |R OPTION (R,C, O|
00001BF0: 52 20 4D 29 22 3B 3A 85  41 24 00 1C 24 0C 12 8B  |R M)";:.A$..$...|
00001C00: 41 24 B3 B1 22 4D 22 AF  41 24 B3 B1 22 52 22 AF  |A$.."M".A$.."R".|
00001C10: 41 24 B3 B1 22 43 22 A7  34 36 30 30 00 2E 24 20  |A$.."C".4600..$ |
00001C20: 12 8B 41 24 B2 22 4D 22  A7 89 32 31 32 30 00 40  |..A$."M"..2120.@|
00001C30: 24 34 12 8B 41 24 B2 22  43 22 A7 89 32 38 34 30  |$4..A$."C"..2840|
00001C40: 00 52 24 48 12 8B 41 24  B2 22 52 22 A7 89 32 37  |.R$H..A$."R"..27|
00001C50: 38 30 00 5C 24 5C 12 89  32 31 32 30 00 6F 24 0F  |80.\$\..2120.o$.|
00001C60: 27 81 49 B2 31 A4 32 30  30 30 3A 82 49 3A 8E 00  |'.I.1.2000:.I:..|
00001C70: 91 24 10 27 8D 36 30 30  3A 99 22 49 4E 53 45 52  |.$.'.600:."INSER|
00001C80: 54 20 53 41 56 45 20 47  41 4D 45 20 44 49 53 4B  |T SAVE GAME DISK|
00001C90: 22 00 D6 24 1A 27 99 22  49 46 20 4E 4F 54 20 41  |"..$.'."IF NOT A|
00001CA0: 4C 52 45 41 44 59 20 49  4E 53 45 52 54 45 44 22  |LREADY INSERTED"|
00001CB0: 3A 99 22 50 52 45 53 53  20 3C 52 45 54 55 52 4E  |:."PRESS <RETURN|
00001CC0: 3E 20 57 48 45 4E 20 44  49 53 4B 20 49 4E 53 45  |> WHEN DISK INSE|
00001CD0: 52 54 45 44 22 3B 00 DE  24 24 27 85 41 24 00 EF  |RTED";..$$'.A$..|
00001CE0: 24 42 27 41 41 24 B2 22  47 4F 4F 44 22 3A 8E 00  |$B'AA$."GOOD":..|
00001CF0: 01 25 E0 2E 8F 20 43 41  54 41 4C 4F 47 20 52 54  |.%... CATALOG RT|
00001D00: 4E 00 11 25 EA 2E 9F 31  2C 38 2C 30 2C 22 24 30  |N..%...1,8,0,"$0|
00001D10: 22 00 1D 25 F4 2E 4E 24  B2 C7 28 30 29 00 33 25  |"..%..N$..(0).3%|
00001D20: FE 2E 41 B2 30 3A A1 23  31 2C 41 24 2C 41 24 3A  |..A.0:.#1,A$,A$:|
00001D30: 41 B2 31 00 44 25 FF 2E  8B 20 41 B2 30 20 A7 20  |A.1.D%... A.0 . |
00001D40: 32 31 32 30 00 52 25 08  2F A1 23 31 2C 41 24 2C  |2120.R%./.#1,A$,|
00001D50: 41 24 00 64 25 12 2F 8B  41 24 B2 22 22 A7 89 31  |A$.d%./.A$.""..1|
00001D60: 32 34 30 30 00 72 25 1C  2F A1 23 31 2C 41 24 2C  |2400.r%./.#1,A$,|
00001D70: 42 24 00 8E 25 26 2F 99  C6 28 41 24 AA 4E 24 29  |B$..%&/..(A$.N$)|
00001D80: AA C6 28 42 24 AA 4E 24  29 AC 32 35 36 3B 00 99  |..(B$.N$).256;..|
00001D90: 25 30 2F A1 23 31 2C 41  24 00 AD 25 3A 2F 8B 41  |%0/.#1,A$..%:/.A|
00001DA0: 24 B2 22 22 A7 99 3A 89  31 32 30 34 30 00 B6 25  |$.""..:.12040..%|
00001DB0: 44 2F 99 41 24 3B 00 C1  25 4E 2F 89 31 32 30 38  |D/.A$;..%N/.1208|
00001DC0: 30 00 C8 25 70 30 A0 31  00 CE 25 7A 30 8E 00 00  |0..%p0.1..%z0...|
00001DD0: 00 25 28 49 2C 32 29 B1  31 36 A7 34 31 31 34 30  |.%(I,2).16.41140|
00001DE0: 00 5E 25 AB A0 8B 4E 44  25 28 53 46 25 28 49 2C  |.^%...ND%(SF%(I,|
00001DF0: 32 29 2C 31 32 29 B2 31  A7 53 46 25 28 49 2C 32  |2),12).1.SF%(I,2|
00001E00: 29 B2 31 37 AA B5 28 BB  28 30 29 AC 32 AA 31 29  |).17..(.(0).2.1)|
00001E10: 00 6C 25 AC A0 8F 43 4F  4E 54 49 4E 55 45 00 84  |.l%...CONTINUE..|
00001E20: 25 AE A0 55 53 25 28 33  34 29 B2 31 3A 53 43 25  |%..US%(34).1:SC%|
00001E30: 28 33 39 29 B2 31 00 8D  25 B4 A0 82 49 3A 8E 00  |(39).1..%...I:..|
00001E40: 97 25 1C A2 8F 53 58 3D  34 00 C0 25 26 A2 53 58  |.%...SX=4..%&.SX|
00001E50: B2 58 30 3A 8D 31 32 35  30 30 3A 8D 35 30 30 30  |.X0:.12500:.5000|
00001E60: 30 3A 8D 33 30 30 30 30  3A 55 53 25 28 33 34 29  |0:.30000:US%(34)|
00001E70: B2 31 00 CE 25 27 A2 53  43 25 28 33 39 29 B2 31  |.1..%'.SC%(39).1|
00001E80: 00 D4 25 30 A2 8E 00 DE  25 10 A4 8F 53 58 3D 35  |..%0....%...SX=5|
00001E90: 00 07 26 1A A4 53 58 B2  58 30 3A 8D 31 32 35 30  |..&..SX.X0:.1250|
00001EA0: 30 3A 8D 35 30 30 30 30  3A 8D 33 30 30 30 30 3A  |0:.50000:.30000:|
00001EB0: 55 53 25 28 33 34 29 B2  31 00 15 26 1B A4 53 43  |US%(34).1..&..SC|
00001EC0: 25 28 33 39 29 B2 31 00  30 26 42 A4 8F 53 45 54  |%(39).1.0&B..SET|
00001ED0: 55 50 53 55 2F 4E 41 2B  53 41 41 4C 4C 49 41 4E  |UPSU/NA+SAALLIAN|
00001EE0: 43 45 00 45 26 4C A4 81  49 B2 31 A4 34 3A 81 4A  |CE.E&L..I.1.4:.J|
00001EF0: B2 31 30 A4 31 32 3A 00  60 26 4D A4 8B 4E 44 25  |.10.12:.`&M..ND%|
00001F00: 28 49 2C 4A 29 B1 30 A7  4E 44 25 28 49 2C 4A 29  |(I,J).0.ND%(I,J)|
00001F10: B2 30 00 6A 26 56 A4 82  4A 3A 82 49 00 8A 26 60  |.0.j&V..J:.I..&`|
00001F20: A4 81 49 B2 31 A4 34 3A  4E 44 25 28 49 2C 38 29  |..I.1.4:ND%(I,8)|
00001F30: B2 B5 28 BB 28 30 29 AC  33 AA 31 29 00 A4 26 6A  |..(.(0).3.1)..&j|
00001F40: A4 8B BB 28 30 29 B3 2E  36 A7 4E 44 25 28 49 2C  |...(0)..6.ND%(I,|
00001F50: 31 30 29 B2 AB 31 00 BE  26 74 A4 8B BB 28 30 29  |10)..1..&t...(0)|
00001F60: B3 2E 38 A7 4E 44 25 28  49 2C 31 31 29 B2 AB 31  |..8.ND%(I,11)..1|
00001F70: 00 D8 26 7E A4 8B BB 28  30 29 B3 2E 35 A7 4E 44  |..&~...(0)..5.ND|
00001F80: 25 28 49 2C 31 32 29 B2  AB 31 00 DF 26 88 A4 82  |%(I,12)..1..&...|
00001F90: 49 00 09 27 92 A4 81 49  B2 31 A4 4D 55 3A 8B 55  |I..'...I.1.MU:.U|
00001FA0: 46 25 28 49 2C 31 29 B2  31 B0 55 46 25 28 49 2C  |F%(I,1).1.UF%(I,|
00001FB0: 32 29 B1 31 36 A7 34 32  31 34 30 00 35 27 93 A4  |2).16.42140.5'..|
00001FC0: 8B 4E 44 25 28 55 46 25  28 49 2C 32 29 2C 31 32  |.ND%(UF%(I,2),12|
00001FD0: 29 B2 AB 31 A7 55 46 25  28 49 2C 32 29 B2 31 37  |)..1.UF%(I,2).17|
00001FE0: 3A 89 34 32 31 33 32 00  43 27 94 A4 8F 43 4F 4E  |:.42132.C'...CON|
00001FF0: 54 49 4E 55 45 00 4C 27  9C A4 82 49 3A 8E 00 56  |TINUE.L'...I:..V|
00002000: 27 04 A6 8F 53 58 3D 36  00 7F 27 0E A6 53 58 B2  |'...SX=6..'..SX.|
00002010: 58 30 3A 8D 31 32 35 30  30 3A 8D 35 30 30 30 30  |X0:.12500:.50000|
00002020: 3A 8D 33 30 30 30 30 3A  55 53 25 28 33 34 29 B2  |:.30000:US%(34).|
00002030: 31 00 8D 27 0F A6 53 43  25 28 33 39 29 B2 31 00  |1..'..SC%(39).1.|
00002040: 93 27 18 A6 8E 00 9D 27  F8 A7 8F 53 58 3D 37 00  |.'.....'...SX=7.|
00002050: BB 27 02 A8 53 58 B2 31  3A 8D 31 32 35 30 30 3A  |.'..SX.1:.12500:|
00002060: 8D 35 30 30 30 30 3A 8D  33 30 30 30 30 00 DA 27  |.50000:.30000..'|
00002070: 0C A8 81 49 B2 31 A4 31  36 3A 87 4E 44 25 28 49  |...I.1.16:.ND%(I|
00002080: 2C 34 29 2C 4E 44 25 28  49 2C 38 29 00 06 28 0E  |,4),ND%(I,8)..(.|
00002090: A8 87 4E 44 25 28 49 2C  39 29 2C 4E 44 25 28 49  |..ND%(I,9),ND%(I|
000020A0: 2C 31 30 29 2C 4E 44 25  28 49 2C 31 31 29 2C 4E  |,10),ND%(I,11),N|
000020B0: 44 25 28 49 2C 31 32 29  00 1F 28 10 A8 87 4E 44  |D%(I,12)..(...ND|
000020C0: 25 28 49 2C 31 34 29 3A  82 49 3A 89 34 33 30 36  |%(I,14):.I:.4306|
000020D0: 30 00 42 28 16 A8 83 32  2C 39 2C 39 2C 31 2C 31  |0.B(...2,9,9,1,1|
000020E0: 2C 31 2C 31 2C 20 20 32  2C 38 2C 37 2C 31 2C 31  |,1,1,  2,8,7,1,1|
000020F0: 2C 31 2C 34 00 74 28 17  A8 83 33 2C 35 2C 33 2C  |,1,4.t(...3,5,3,|
00002100: 30 2C 30 2C 31 2C 37 2C  20 20 33 2C 37 2C 35 2C  |0,0,1,7,  3,7,5,|
00002110: 30 2C 30 2C 31 2C 34 2C  20 34 2C 39 2C 39 2C 31  |0,0,1,4, 4,9,9,1|
00002120: 2C 31 2C 31 2C 31 00 9B  28 20 A8 83 31 30 2C 38  |,1,1,1..( ..10,8|
00002130: 2C 38 2C 31 2C 31 2C 31  2C 34 2C 20 20 35 2C 31  |,8,1,1,1,4,  5,1|
00002140: 2C 38 2C 2D 31 2C 2D 31  2C 2D 31 2C 34 00 C1 28  |,8,-1,-1,-1,4..(|
00002150: 21 A8 83 31 2C 33 2C 33  2C 2D 31 2C 2D 31 2C 30  |!..1,3,3,-1,-1,0|
00002160: 2C 38 2C 20 31 2C 31 2C  32 2C 2D 31 2C 2D 31 2C  |,8, 1,1,2,-1,-1,|
00002170: 30 2C 36 00 D4 28 22 A8  83 32 2C 36 2C 32 2C 30  |0,6..("..2,6,2,0|
00002180: 2C 30 2C 30 2C 35 00 F8  28 2A A8 83 31 30 2C 37  |,0,0,5..(*..10,7|
00002190: 2C 35 2C 30 2C 31 2C 30  2C 33 2C 33 2C 35 2C 35  |,5,0,1,0,3,3,5,5|
000021A0: 2C 30 2C 30 2C 30 2C 33  2C 38 00 27 29 2B A8 83  |,0,0,0,3,8.')+..|
000021B0: 34 2C 36 2C 2D 31 2C 30  2C 30 2C 37 2C 31 35 2C  |4,6,-1,0,0,7,15,|
000021C0: 35 2C 38 2C 30 2C 30 2C  30 2C 38 2C 33 2C 39 2C  |5,8,0,0,0,8,3,9,|
000021D0: 38 2C 31 2C 31 2C 31 2C  33 00 3A 29 2C A8 83 32  |8,1,1,1,3.:),..2|
000021E0: 2C 34 2C 33 2C 30 2C 30  2C 30 2C 35 00 67 29 34  |,4,3,0,0,0,5.g)4|
000021F0: A8 4D 55 B2 38 3A 81 49  B2 31 A4 4D 55 3A 87 55  |.MU.8:.I.1.MU:.U|
00002200: 46 25 28 49 2C 31 29 2C  55 46 25 28 49 2C 32 29  |F%(I,1),UF%(I,2)|
00002210: 2C 55 46 25 28 49 2C 34  29 00 75 29 35 A8 82 49  |,UF%(I,4).u)5..I|
00002220: 3A 89 34 33 30 38 30 00  96 29 3E A8 83 30 2C 31  |:.43080..)>..0,1|
00002230: 37 2C 31 2C 31 2C 36 2C  31 2C 31 2C 34 2C 31 2C  |7,1,1,6,1,1,4,1,|
00002240: 31 2C 31 30 2C 31 2C 31  00 B7 29 3F A8 83 31 32  |1,10,1,1..)?..12|
00002250: 2C 31 2C 20 30 2C 36 2C  30 2C 20 30 2C 31 37 2C  |,1, 0,6,0, 0,17,|
00002260: 30 2C 20 30 2C 31 35 2C  30 00 E5 29 48 A8 4D 53  |0, 0,15,0..)H.MS|
00002270: B2 31 30 3A 81 49 B2 31  A4 4D 53 3A 87 53 46 25  |.10:.I.1.MS:.SF%|
00002280: 28 49 2C 31 29 2C 53 46  25 28 49 2C 32 29 2C 53  |(I,1),SF%(I,2),S|
00002290: 46 25 28 49 2C 34 29 00  F3 29 49 A8 82 49 3A 89  |F%(I,4)..)I..I:.|
000022A0: 34 33 31 30 30 00 15 2A  52 A8 83 31 2C 31 33 2C  |43100..*R..1,13,|
000022B0: 31 2C 31 2C 37 2C 31 2C  31 2C 31 32 2C 31 2C 31  |1,1,7,1,1,12,1,1|
000022C0: 2C 31 30 2C 31 2C 30 00  40 2A 53 A8 83 37 2C 30  |,10,1,0.@*S..7,0|
000022D0: 2C 30 2C 37 2C 30 2C 30  2C 31 38 2C 30 2C 30 2C  |,0,7,0,0,18,0,0,|
000022E0: 31 38 2C 30 2C 30 2C 31  39 2C 30 2C 30 2C 31 39  |18,0,0,19,0,0,19|
000022F0: 2C 30 00 6E 2A 5C A8 55  53 25 28 33 34 29 B2 31  |,0.n*\.US%(34).1|
00002300: 3A 53 43 25 28 33 39 29  B2 33 3A 54 4C B2 33 3A  |:SC%(39).3:TL.3:|
00002310: 4F 54 B2 37 35 3A 55 53  25 28 33 37 29 B2 31 35  |OT.75:US%(37).15|
00002320: 00 91 2A 66 A8 81 49 B2  31 A4 31 36 3A 4E 44 25  |..*f..I.1.16:ND%|
00002330: 28 49 2C 36 29 B2 4E 44  25 28 49 2C 36 29 AA 32  |(I,6).ND%(I,6).2|
00002340: 3A 82 49 00 C8 2A 70 A8  55 53 25 28 33 36 29 B2  |:.I..*p.US%(36).|
00002350: 31 34 36 3A 55 53 25 28  32 37 29 B2 30 3A 55 53  |146:US%(27).0:US|
00002360: 25 28 31 29 B2 31 34 3A  55 53 25 28 32 29 B2 31  |%(1).14:US%(2).1|
00002370: 32 3A 55 53 25 28 33 29  B2 36 00 D6 2A 71 A8 55  |2:US%(3).6..*q.U|
00002380: 53 25 28 30 29 B2 31 32  00 0F 2B 7A A8 53 55 25  |S%(0).12..+z.SU%|
00002390: 28 32 34 29 B2 31 31 30  3A 53 55 25 28 31 34 29  |(24).110:SU%(14)|
000023A0: B2 35 30 3A 53 55 25 28  31 29 B2 31 31 3A 53 55  |.50:SU%(1).11:SU|
000023B0: 25 28 32 29 B2 31 38 3A  53 55 25 28 33 29 B2 31  |%(2).18:SU%(3).1|
000023C0: 38 00 1D 2B 7B A8 53 55  25 28 30 29 B2 31 36 00  |8..+{.SU%(0).16.|
000023D0: 37 2B 84 A8 55 50 B2 33  30 3A 53 50 B2 34 30 3A  |7+..UP.30:SP.40:|
000023E0: 59 55 4D 45 B2 31 39 38  34 00 3D 2B 8E A8 8E 00  |YUME.1984.=+....|
000023F0: 53 2B C8 AF 8F 49 4E 49  54 53 4F 56 50 4F 4C 49  |S+...INITSOVPOLI|
00002400: 54 42 55 52 4F 00 59 2B  D2 AF 8F 00 6E 2B DC AF  |TBURO.Y+....n+..|
00002410: 58 41 B2 B5 28 BB 28 30  29 AC 39 AA 31 29 AB 31  |XA..(.(0).9.1).1|
00002420: 00 90 2B E6 AF 58 42 B2  B5 28 BB 28 30 29 AC 39  |..+..XB..(.(0).9|
00002430: AA 31 29 AB 31 3A 8B 58  41 B2 58 42 A7 34 35 30  |.1).1:.XA.XB.450|
00002440: 33 30 00 A7 2B F0 AF 58  43 B2 B5 28 BB 28 30 29  |30..+..XC..(.(0)|
00002450: AC 31 35 AA 31 29 AB 31  3A 00 BE 2B F1 AF 8B 58  |.15.1).1:..+...X|
00002460: 43 B2 58 41 B0 58 43 B2  58 42 A7 34 35 30 34 30  |C.XA.XC.XB.45040|
00002470: 00 E0 2B FA AF 53 41 25  28 30 29 B2 58 41 3A 53  |..+..SA%(0).XA:S|
00002480: 41 25 28 31 29 B2 58 42  3A 53 41 25 28 32 29 B2  |A%(1).XB:SA%(2).|
00002490: 58 43 00 0C 2C 04 B0 8D  36 30 30 3A 99 A3 37 29  |XC..,...600:..7)|
000024A0: 22 53 4F 56 49 45 54 20  50 4F 4C 49 54 42 55 52  |"SOVIET POLITBUR|
000024B0: 4F 20 53 45 4C 45 43 54  49 4F 4E 22 3A 99 00 25  |O SELECTION":..%|
000024C0: 2C 05 B0 99 A3 31 34 29  22 49 53 20 43 4F 4D 50  |,....14)"IS COMP|
000024D0: 4C 45 54 45 22 3A 99 00  4D 2C 06 B0 99 A3 31 31  |LETE":..M,....11|
000024E0: 29 22 59 4F 55 52 20 4F  50 50 4F 4E 45 4E 54 53  |)"YOUR OPPONENTS|
000024F0: 20 41 52 45 3A 22 3A 99  3A 81 49 B2 30 A4 32 00  | ARE:":.:.I.0.2.|
00002500: 69 2C 07 B0 58 44 B2 53  41 25 28 49 29 3A 54 31  |i,..XD.SA%(I):T1|
00002510: 25 B2 58 44 3A 8D 32 35  31 30 30 00 84 2C 0E B0  |%.XD:.25100..,..|
00002520: 99 A3 31 30 29 22 2A 2A  2A 20 22 3B 41 31 24 3B  |..10)"*** ";A1$;|
00002530: 22 20 2A 2A 2A 22 00 A9  2C 10 B0 99 A3 31 33 29  |" ***"..,....13)|
00002540: 22 57 48 4F 53 45 20 4D  4F 54 54 4F 20 49 53 22  |"WHOSE MOTTO IS"|
00002550: 3A 99 A3 30 29 41 32 24  3A 82 49 00 BC 2C 18 B0  |:..0)A2$:.I..,..|
00002560: 81 49 B2 31 A4 33 35 30  30 3A 82 49 3A 8E 00 CD  |.I.1.3500:.I:...|
00002570: 2C 50 C3 8F 53 43 45 4E  41 52 49 4F 47 45 4E 00  |,P..SCENARIOGEN.|
00002580: D9 2C 5A C3 8F 4D 49 4E  4F 52 53 00 E5 2C 64 C3  |.,Z..MINORS..,d.|
00002590: 81 49 B2 31 A4 31 36 00  16 2D 66 C3 4E 44 25 28  |.I.1.16..-f.ND%(|
000025A0: 49 2C 39 29 B2 41 28 4E  44 25 28 49 2C 30 29 29  |I,9).A(ND%(I,0))|
000025B0: AA B5 28 BB 28 30 29 AC  34 AA 31 29 AB B5 28 BB  |..(.(0).4.1)..(.|
000025C0: 28 30 29 AC 34 AA 31 29                           |(0).4.1)        |

.......".";:.1800.L.P.SS.0: 15:.15,8,15:
.15,A2$,A3$,A4$,A5$ :SS.E(A2$): 15:..J.D
.T9..(0):TQ.TQ.1: .T9.TQ.....F..T9.TQ..K
X.1.T9.TQ:.".";:.KX:....J..KX.1.TQ.T9:."
.";:.KX:..Z.H.TQ.TQ.1:T9..(0):          
 .".";:.TQ..13.206...I..TQ.0.258.$.J..TQ
   . 256,254,252,250,248,246,244,242,240
,238,236,234.-.L..258.I.N..TQ.12. 234,23
2,230,228,226,224,222,220,218,216,214,21
2.R.P..258.|.T..".";...V..".";...X..".";
...Z..".";......".";......".";......".";
.B....".";.L....".";.V....".";......".";
......".";......".";......".";......".";
......".";......".";.&....".";.0....".";
.:....".";.D....".";.N....".";.X....".";
.K...TQ.T9.1:.100:..Q.,.......G(18);:..
..^.....`..G(146);:........ ............
.......X.....Z..".";:..D.....N...Z1.74..
.P..ST.Z1..3420.....T3.1:.,RECALL"SSI.IN
IT"......T0.1..4240......T0.2..4480.-. .
.T0.1..2480:..?.4..T0.2..2780:..M.H..400
:."."...R...11)".GEOPOLITIQUE 1990":.:..
9)".SAVE/RECALL GAME MENU"...W.....\...1
2)"<1> SAVE A GAME".H.P...12)"<2> RECALL
 A GAME".......12)"<3> CATALOG A DISK"..
.....12)"<4> DELETE A GAME". .....12)"<5
> EXIT/CONTINUE".&.T...H.....12)"ENTER O
PTION(1-5)";:.A$.....K0..(E(A$)):.K0.1.K
0.5..:..9)"*** INVALID OPTION ***"......
K0.1.K0.5..2280......K0.2480,2780,2840,2
900,2960.Z.$..600:."INSERT SAVE GAME DIS
K"...&.."IF NOT ALREADY INSERTED":."PRES
S <RETURN> WHEN DISK INSERTED";.'.(..A$.
D.L..POKE216,0:ONERRGOTO2400.A.`..POKE21
6,0:ONERRGOTO3420.T.T..T4.1100..2800....
..T4.1202..2854......T4.1302..2900. ....
.G.D..600:."GAMES MAY ONLY BE SAVED ON".
..E.."FORMATTED SAVE GAME DISKS"...Y.."I
F NOT ALREADY INSERTED".2...."PRESS <RET
URN> WHEN DISK INSERTED":..T...."TO RETU
RN TO MENU TYPE <M>".I....A$:. A$."".254
2.....A.F(A$):. A.13 . 2660......A..77 .
 2542. .... 2120......POKE216,0:ONERRGOT
O2600..... 5:.5,8,5,"DISKID,S,R":.80:  .
SS.Z1.2600......:."WRONG DISK INSERTED":
.I.1.2000:.I:.2520.7.(..POKE216,0:ONERRG
OTO3420.H.<..:.:."DO YOU WISH TO FORMAT 
THIS DISK(Y/N)";...=..A$:.A$.."Y".A$.."N
".2620...P..A$."Y".."DISK BEING FORMATTE
D":.:.15,8,15,"NEW"...Q..A$."Y"..15,"NEW
0:AAAA,AA": 15:.80...R..A$."Y".SS..0.."U
NSUCCESSFUL FORMAT ATTEMPT":.2120.L.D..:
."ENTER FILENAME":."TO SAVE GAME UNDER";
:.A$.I.X..POKE216,0:ONERRGOTO2660..... 1
5:   .15,8,15:.15,"S0:".A$... . 15: 5:.5
,8,5,A$.",S,W"......IFST=Z1THENGOTO3420.
R.H..3480:.4120: 5...I..2120.....T4.1100
:.2340......:."ENTER FILENAME OF GAME";:
.A$.<... 5:.5,8,5,A$.",S,R":.80:.SS..Z1.
2835.H....:."*** FILE NOT FOUND ***":.99
99:.2120..... 5:.5,8,5,A$.",S,R":.3840:.
4180: 5: .2120.....T4.1202:.2340.T.&..12
000:.:."PRESS <RETURN> TO CONTINUE";...-
..A$:.2120...@.T4.1302:.2340...T..10000:
.AA$."BAD".2120.A.Y..:."ENTER NAME OF":.
"GAME TO BE DELETED";:.A$.J.^. 5:.5,8,5,
A$.",S,R":.80:.SS..Z1.2920...C..:."*** F
ILE NOT FOUND ***":.9999:.2120...H..15,8
,15:.15,"S0:".A$: 15...|.."FILE DELETED"
:.I.1.1200:.I:.2120......600:."DO YOU WI
SH":."TO CONTINUE THE GAME(Y/N)";......A
$.3....A$.."Y".A$.."N".2960.A....A$."N".
..F.L..YUME.0..:."NO GAME IN PROGRESS"..
.V..YUME.0.."RESTART WITH GAME DISK":...
....WD.1..3240.D....600:."PLEASE INSERT 
GAME DISK":......."PRESS <RETURN> WHEN D
ISKETTE INSERTED";:.A$......216,0:ONERRG
OTO3120...D. 5:   .5,8,5,"DISKID,S,R":.E
.F..5,X$: 5:.X$.."1".X$.."3"..:."WRONG D
ISK INSERTED"...H..X$.."1".X$.."3"..I.1.
2000:.I:.3060...X..IFT3<>0THEN,RECALL"TE
ST":,RECALL"GEOSHAPES1":,RECALL"GEOSHAPE
S3":,RECALL"...L..POKE216,0......"GEOPOL
64",8.......*....600:."PLEASE INSERT GAM
E DISK ":..\...."PRESS <RETURN> WHEN DIS
KETTE INSERTED";:.A$.Y....POKE216,0:ONER
RGOTO3300...P. 5: .5,8,5,"DISKID,S,R":.8
0:    .SS.Z1.3300...R..3310.P....:."WRON
G DISK INSERTED"......I.1.2000:.I:.3240.
.... 5:.5,8,5,"DISKID,S,R".:....5,X$: 5:
.X$.."2".X$.."3"..:."WRONG DISK INSERTED
":.B....X$.."2".X$.."3"..I.1.2000:.I:.32
40......IFT3<>0THEN,RECALL"TEST":,RECALL
"GEOSHAPES1":,RECALL"GEOSHAPES3":,RECALL
"... .A$."OLD".P.4.."GEOWAR64",8.V.H....
.\.."*** FILE NOT FOUND ***":.I.1.1500:.
I......2120.......1....I.0.40:.5,US%(I):
.I:.I.0.5.W....5,OS%(I):.I:.I.0.25:.5,SU
%(I):.I.J.... I..26 . 2660......I.0.16:.
J.0.14:.5,ND%(I,J):.J...A..I:.I.0.5:.J.0
.5:.5,C(I,J):.J...B..I.W.T..I.0.6:.J.0.4
:.5,RD%(I,J):.J...U..I......I.0.16:.J.0.
4:.5,SML%(I,J):.J.&....I:.I.0.13:.J.0.4:
.5,OO%(I,J):.J.-....I.O....I.0.19:.J.0.4
:.5,LL%(I,J):.J.T....I:.I.0.13:.J.0.5:.5
,OL%(I,J):.J.{....I......I.0.40:.5,SC%(I
):.I:.I.0.4......5,TD(I):.I.V.$..FORI=1T
O16:PRINTN$(I):NEXTI:FORI=1TO6...%..PRIN
TRN$(I):NEXTI:FORI=1TO5:PRINTSN$(I):NEXT
I.B.&.. FORI=1TO5:PRINTDT$(I):NEXTI:FORI
=0TO10:PRINTDO$(I).M.'..NEXTI.Z.8..FORI=
1TO19:PRINTAC$(I):NEXTI:FORI=0TO15...9..
I.0.15:.J.0.8:.5,UF%(I,J):.J:.I:.I.0.15.
D.@..J.0.9:.5,SF%(I,J):.J:.I...L..5,RC:.
5,YUME:.5,SC:.5,T0:.5,T1:.5,MU...M..5,MS
:.5,TL:.5,NW:.5,F0:.5,F1:.5,UP.8.N..5,SP
:.5,UQ:.5,SQ:.5,FP:.5,FQ.`.`..5,MT:.5,MX
:.5,MY:.5,DD:.5,NT:.5,OT...A..5,NU:.5,OU
:.5,NX:.5,OX:.5,PU:.5,PS...B..5,FZ:.5,VF
...T..5,WD:.5,BZ.G....I.0.3:.5,SG%(I):.I
:.I.0.3......5,UG%(I):.I:.I.0.1:.J.0.9..
....5,GP%(I,J):.J:.I......I.0.32:.J.0.1:
.5,ML%(I,J):.J.@....I:.I.0.2:.5,RM%(I):.
I:.I.0.2.Q....5,SA%(I):.I.U....FORI=1TO5
:PRINT#5,RP$(I):NEXTI...D..FORI=0TO60:FO
RJ=0TO3:PRINTMP%(I,J):NEXTJ.W.E..NEXTI:F
ORI=0TO32:FORJ=0TO1:PRINTMM%(I,J):NEXTJ.
..F..NEXTI...X..I.0.3:.5,TH(I):.I.......
......%....I.0.40:.5,US%(I):.I:.I.0.5.K.
...5,OS%(I):.I:.I.0.25:.5,SU%(I):.I.Q...
.I.0.16:.J.0.14:.5,ND%(I,J):.J:.I......I
.0.5:.J.0.5:.5,C(I,J):.J:.I...... I..6 .
 2800.F.(..I.0.6:.J.0.4:.5,RD%(I,J):.J.M
.)..I...,..I.0.16:.J.0.4:.5,SML%(I,J):.J
......I:.I.0.13:.J.0.4:.5,OO%(I,J):.J:.I
.:.0..I.0.19:.J.0.4:.5,LL%(I,J):.J._.2..
I:.I.0.13:.J.0.5:.5,OL%(I,J):.J.F.4..I..
.<..I.0.40:.5,SC%(I):.I:.I.0.4...=..5,TD
(I):.I.B.P.. FORI=1TO16:INPUTN$(I):NEXTI
:FORI=1TO6...Q..INPUTRN$(I):NEXTI:FORI=1
TO5:INPUTSN$(I):NEXTI.-.R..FORI=1TO5:INP
UTDT$(I):NEXTI:FORI=0TO10:INPUTDO$(I).8.
S..NEXTI.E.D..FORI=1TO19:INPUTAC$(I):NEX
TI:FORI=0TO15...E..I.0.15: .J.0.8:.5,UF%
(I,J):.J:.I:.I.0.15...F..J.0.9:.5,SF%(I,
J):.J:.I...X..5,RC,YUME,SC,T0,T1,MU,MS,T
L,NW,F0,F1,UP,SP,UQ,SQ...Z..5,FP,FQ,MT,M
X,MY,DD,NT,OT,NU,OU,NX,OX,PU,PS,FZ,VF.-.
...5,WD:.5,BZ.L. ..I.0.3:.5,SG%(I):.I:.I
.0.3.K....5,UG%(I):.I:.I.0.1:.J.0.9.....
.5,GP%(I,J):.J:.I......I.0.32:.J.0.1:.5,
ML%(I,J):.J.E....I:.I.0.2:.5,RM%(I):.I:.
I.0.2.V....5,SA%(I):.I...H..FORI=1TO5:IN
PUTRP$(I):NEXTI.% ...FORI=0TO60:FORJ=0TO
3:INPUTMP%(I,J):NEXTJ.Y ...NEXTI:FORI=0T
O32:FORJ=0TO1:INPUTMM%(I,J):NEXTJ.D ...N
EXTI.{ ...I.0.3:.5,TH(I):.I.. ..... ...I
.0.32:.J.0.5:.5,ES%(I,J):.J.H ...I:.I.0.
20:.J.0.4:.5,UH%(I,J):.J.. ...I:.I.0.20:
.J.0.4:.5,SH%(I,J):.J.. ...I..!&..I.16.2
0:.J.0.9:.5,SF%(I,J):.J.=!-..I:.I.16.20:
.J.0.8:.5,UF%(I,J):.J.D!...I.J!@...L!T..
I.0.32:.J.0.5:.5,ES%(I,J):.J..!U..I:.I.0
.20:.J.0.4:.5,UH%(I,J):.J..!V..I:.I.0.20
:.J.0.4:.5,SH%(I,J):.J..!W..I..!H..I.16.
20:.J.0.9:.5,SF%(I,J):.J.."I..I:.I.16.20
:.J.0.8:.5,UF%(I,J):.J.."J..I.."|...+"..
.400:.600:.400:.600.N"...".":   ..13)"DO
 YOU WISH TO:".I"...:..15)"SAVE GAME (S)
".."L..:..15)"CATALOG DISK (C)".."...:..
15)"SEE ENTIRE MENU (M)".."....V"....8)"
ENTER OPTION (S,C, OR M)";:.A$.."...A$..
"M".A$.."C".A$.."S".4360..#0..A$."M"..21
20..#D..A$."C"..2840..#X..A$."S"..2480.8
#L..2120.P#...400:.600:.400:.600.P#...".
":..13)"DO YOU WISH TO:"..#...:..15)"REC
ALL GAME (R)"..#...:..15)"CATALOG DISK (
C)".L#P..:..15)"SEE ENTIRE MENU (M)".R#.
....#....8)"ENTER OPTION (R,C, OR M)";:.
A$..$...A$.."M".A$.."R".A$.."C".4600..$ 
..A$."M"..2120.@$4..A$."C"..2840.R$H..A$
."R"..2780.\$\..2120.O$.'.I.1.2000:.I:..
.$.'.600:."INSERT SAVE GAME DISK".V$.'."
IF NOT ALREADY INSERTED":."PRESS <RETURN
> WHEN DISK INSERTED";..$$'.A$..$B'AA$."
GOOD":...%... CATALOG RTN..%...1,8,0,"$0
"..%..N$.G(0).3%..A.0:.#1,A$,A$:A.1.D%..
. A.0 . 2120.R%./.#1,A$,A$.D%./.A$.""..1
2400.R%./.#1,A$,B$..%&/.F(A$.N$).F(B$.N$
).256;..%0/.#1,A$..%:/.A$.""..:.12040..%
D/.A$;.A%N/.12080.H%P0 1.N%Z0....%(I,2).
16.41140.^%. .ND%(SF%(I,2),12).1.SF%(I,2
).17..(.(0).2.1).L%. .CONTINUE..%. US%(3
4).1:SC%(39).1..%. .I:...%...SX=4..%&.SX
.X0:.12500:.50000:.30000:US%(34).1.N%'.S
C%(39).1.T%0....%...SX=5..&..SX.X0:.1250
0:.50000:.30000:US%(34).1..&..SC%(39).1.
0&B..SETUPSU/NA+SAALLIANCE.E&L..I.1.4:.J
.10.12:.`&M..ND%(I,J).0.ND%(I,J).0.J&V..
J:.I..&`..I.1.4:ND%(I,8)..(.(0).3.1)..&J
...(0)..6.ND%(I,10)..1..&T...(0)..8.ND%(
I,11)..1.X&~...(0)..5.ND%(I,12)..1..&...
I..'...I.1.MU:.UF%(I,1).1.UF%(I,2).16.42
140.5'...ND%(UF%(I,2),12)..1.UF%(I,2).17
:.42132.C'...CONTINUE.L'...I:..V'...SX=6
.'..SX.X0:.12500:.50000:.30000:US%(34).
1..'..SC%(39).1..'.....'...SX=7..'..SX.1
:.12500:.50000:.30000.Z'...I.1.16:.ND%(I
,4),ND%(I,8)..(...ND%(I,9),ND%(I,10),ND%
(I,11),ND%(I,12)..(...ND%(I,14):.I:.4306
0.B(...2,9,9,1,1,1,1,  2,8,7,1,1,1,4.T(.
..3,5,3,0,0,1,7,  3,7,5,0,0,1,4, 4,9,9,1
,1,1,1..( ..10,8,8,1,1,1,4,  5,1,8,-1,-1
,-1,4.A(!..1,3,3,-1,-1,0,8, 1,1,2,-1,-1,
0,6.T("..2,6,2,0,0,0,5..(*..10,7,5,0,1,0
,3,3,5,5,0,0,0,3,8.')+..4,6,-1,0,0,7,15,
5,8,0,0,0,8,3,9,8,1,1,1,3.:),..2,4,3,0,0
,0,5.G)4.MU.8:.I.1.MU:.UF%(I,1),UF%(I,2)
,UF%(I,4).U)5..I:.43080..)>..0,17,1,1,6,
1,1,4,1,1,10,1,1..)?..12,1, 0,6,0, 0,17,
0, 0,15,0..)H.MS.10:.I.1.MS:.SF%(I,1),SF
%(I,2),SF%(I,4)..)I..I:.43100..*R..1,13,
1,1,7,1,1,12,1,1,10,1,0.@*S..7,0,0,7,0,0
,18,0,0,18,0,0,19,0,0,19,0.N*\.US%(34).1
:SC%(39).3:TL.3:OT.75:US%(37).15..*F..I.
1.16:ND%(I,6).ND%(I,6).2:.I.H*P.US%(36).
146:US%(27).0:US%(1).14:US%(2).12:US%(3)
.6.V*Q.US%(0).12..+Z.SU%(24).110:SU%(14)
.50:SU%(1).11:SU%(2).18:SU%(3).18..+{.SU
%(0).16.7+..UP.30:SP.40:YUME.1984.=+....
S+H..INITSOVPOLITBURO.Y+R...N+..XA..(.(0
).9.1).1..+..XB..(.(0).9.1).1:.XA.XB.450
30..+..XC..(.(0).15.1).1:..+...XC.XA.XC.
XB.45040..+..SA%(0).XA:SA%(1).XB:SA%(2).
XC..,...600:..7)"SOVIET POLITBURO SELECT
ION":..%,....14)"IS COMPLETE":..M,....11
)"YOUR OPPONENTS ARE:":.:.I.0.2.I,..XD.S
A%(I):T1%.XD:.25100..,....10)"*** ";A1$;
" ***"..,....13)"WHOSE MOTTO IS":..0)A2$
:.I..,...I.1.3500:.I:..M,PC.SCENARIOGEN.
Y,ZC.MINORS..,DC.I.1.16..-FCND%(I,9).A(N
D%(I,0))..(.(0).4.1)..(.(0).4.1)

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL