Var f$: StrArray(34,27) = "WOOD      1 1ACTPL  000000 PINEWOOD  1 0PTLB   000000 MOORLAND  6 0FQVM   000000 MARSH     199       000000 FIELD     1 0R      000000 BEET FIELD1 0CBV    000000 VINEYARD  1 0AIKV   000000 RIVER     3 6       000000 BRIDGE    2 0DEMDCL 000000 WATER     799       000000 FARM      2 0HXYGQ  000000 SHOP      3 0AJL    000000 HOUSE     3 0AEZXL  000000 VILLAGE   3 0FWBOGU 000000 CHATEAU   3 0IYKJBX 000000 RUIN      3 1SRDMXN 000000 CAMPSITE  1 0CFAY   000000 CITY      8 1ONGWXS 000000 CAVE      3 1PBOZX  000000 METRO     4 0NGSWOCR000000 TUNNEL    3 0PNMOSXW000000 WINDMILL  3 0ZGHMXU 000000 TOWER     1 0KMBWXIL000000 PEAK       99       000000 HIGHLANDS 4 3PVW    000000 FOOTHILLS 4 1PQV    000000 in a      0 0       000000 on a      000       000000 by a      000       000000 in the    000       000000 by        000       000000 on        000       000000 next to   000       000000 in        000       000000 "
Var d$: StrArray(26,13) = "moves     020health    020energy    020immunity  020map       001RELICS    199horse     001groceries 120bicycle   000dinghy    599spear     199fishhook  099sweets    099compass   001watch     099money     099mirror    099rope      199snare     199tools     199radio     599knife     099matches   099lantern   199grenades  299gun       399"
Var v$: StrArray(26,19) = "buy a              buy some           catch a            cook               bribe the          escape from the    fight the          hide from the      light a            make a             leave              pick up the        sell the           ask for some       talk to the        steal the          disable the        meet a             find some          find a             are attacked by    are chased by      are challenged by asee a              are caught in a    are arrested by a  "
Var l$: StrArray(59,15) = "0537St Quentin 0622Dieppe     0630Amiens     0647Charleville1022Rouen      1029Beauvais   1060Metz       1106Cherbourg  1136Soissons   1216Le Havre   1242Reims      1413Caen       1444Chalons    1523Evreux     1530Paris      1531Paris      1532Paris      1630Paris      1632Paris      1706Avranches  1729Paris      1730Paris      1731Paris      1757Nancy      1804St Malo    1849St Dizier  1933Melun      2016Alenco     2125Chartres   2258Epinal     2304Rennes     2404Rennes     2416Le Mans    2443Troyes     2620Orleans    2823Blois      3011Angers     3204Nantes     3220Tours      3350Dijon      3441Nevers     3531Bourges    3818Potiers    3826Chateauroux4060Geneve     4407La Rochelle4623Limoges    4736Clermont   4750Lyons      4850Lyons      5157Grenoble   5407Bordeaux   5507Bordeaux   5508Bordeaux   5607Bordeaux   5608Bordeaux   5609Bordeaux   5825Tolouse    6153Avignon    "
Var h$: StrArray(12,32) = "                                                                                                                                                                                                                                                                                                    Press any key to go on                                                                      "
Var g$: StrArray(7,7) = "                                                 "
Var n$: StrArray(26,1) = "60321000000000007000000405"
Var x: NumArray(27,2) = 62550,62880,62050,62380,64680,64750,64560,64630,64800,64940,65240,65310,60860,61120,61810,61880,60370,60510,61930,62000,63050,63190,59850,59990,58400,58540,60070,60270,59290,59680,61250,61390,64990,65160,58620,59080,61470,61510,60780,60840,61530,61570,60560,60710,61590,61740,63270,63660,63830,64130,64270,64470,57900,58230
Var y: NumArray(7,3) = 16610,16577,16544,16620,16583,16548,16630,16589,16553,0,16596,16558,0,16602,16562,0,0,16567,0,0,16571
Var n: NumFOR = 11, 10, 1, 4187, 2
Var m$: StrArray(64,64) = "JJJJJJJJJJJJJJJJJJJJJJJJAAAANAAAAAANAAAFFFOBBBBJBAAAANQBBJNSYYXXJJJJJ%JJJJJJJJJJJJJJJJJJOAAAAAAAAAAAAPAFLBBNBBNJBLFFFFFFBJBBYYXXJJJJJJJJJJJJJJJJJJJJJJJJJJJJJDDDDDDDDDDJJJJJJJJJDDDDDDDDDJDDDDXXJJJJJJJ%JJJJJJJJJJJJJJJEEEKEEJJDDEEDDEEHEEVKEEEEDDDENFDDFHKMYXXXJJJ%JJJJJJJJJJJJJJJJJJAAEEEVEEEEBEMEREEHEEEFFEEEDELBBFELHHPYYXXXJJJJJJJJJJJJJJJJJJJJEREDAEEEERFFBEAAVEWHIHHFLEREEEZZZMEAHBSYYXXXJJJJJJJJJJJJJJJJJJJJEDDNAKVEEEFZBVKAAEEEQEHFEENEEGBBZEAAHBNLYXXXJJJJJJJJJJJJJJJJJEELEFFFFEEEEMZZCCCCANAPEEHHHHHHWENBZEMEHBYYYXXXJJJJJJJJJJJJJJJJJEEEEEEOEEEEEEBZEENEEMEHIHHBBBGHHHHEQEEAHBOBYXXXJJJJJJJJJJJJJJJJEFEEHRHHHENEREBZENEEEDJHEEEELZBFEENEEPEHHBQRYXXXJJJEJRJJJJJJJJJJEMDNHAAMHPDDDEEEEHHRHHHHEQEBZZBFEEAEQEGIFLBBYXXXJJJLEEQJJJJJJJJREJDEHAAEHHHELEEEEHEFEEEEARVBZMEFBBEEEEEHNBBYYXXXJJJEKENEJJJJJJJJHHHHHEEEEEHEAEHHHHOFGFEMAVFFLZEGEEZLEEQHFSYYYXXXJJJPEEFFEMOPRJEEBBBBEEFAEEHEAEHEEDEEEWZZAEGRFNEEDEZBENJHBBBQYXXXJJJJNEKFFEEEEHNEBZZLEERAWEHEARRREDEMENEEAGGDPEKEEMZBEJMHEKDBYXXXJJJJEEEAANAAEHEEBBZEEEEEEEHHHRWRHHHHEEEEEELDEEEEDEBBEAEHHNSYYXXXJJJJERDDEAAAEHEEEMZQEEAAENEERRRTEEEHEEWEEEEDEOEDDEEPAAEERBBYYXXXJJJRDDFBLEAEHHFFFEPEAEEAAAEEEEQEEMEHQEQEHHHHHEEEREGEEEEEHBPYYXXXDDDEDQFBEFFFHPEFEEEEANEAAEFFFBAAREEHEEAAHELEHVEEENEKVELEHBSYODXXDDJEKVFBZEMFHEERELZYLEEEEEEMELAAAAEHHHIHHVKEHEEELEEWEBZEHHNBBDXXDDJEEEPZZZBEHWEEEEZYSFFEREBZZZEEEDDLEEQEEEEEHEMEBBEEEMZEEACLFDXXDDJEEEZYYEEEEENECCEEFFNEEEBZBBEEFFFBYYOEEQWEHDDDZZMZZEEEERCCNDDXDDJRAAAALZZBEEEECCEMZBEEEPEEEEEEFEKBZZBEEEHHHEEEFFFBBEQMEHHHHJDXDDJRAABBBZZMEEERCCEAZBEMZZXZELEJEEAAKEEENEREEKEEFPAMEQEESVKFNJDXDDJEEEBZZYYOELBBBENAAAEEBBBEEEJJEPEAEEZEFFHEEEDDAAAECCYYYEBBYJDXDJDLEEEEMYYBEZBBEEEEEEEEMHHEHHJJEEEEAEZLFFHHHEEEEAKECCLYYEFSYJDXDJDVENEKEBBBXXXEEBBBLEEEEHEEPHHHNEEEMEEEEEEEHEEELEEEHHHYYEFYYJDXDDJEEFFFFBBEEEMEEZZBFERHHHOEEEEHHHEEEEDDKEGEEDNEEEEEHGFFFEPBNJJJDDDJEFLDPEEEEEFFEMZBFFEHGEEPEENEEHIHNEDDEEEPDEEEDDMEHEENEEEBFDDDDDDJLFEDMHRHMEFFJEEEHHHHGEEPEDEBBBEHHIHEDENDEELEOHHHHEBBSEZLEDDDDJJDEEEDEHOHHEEFJEQEHEEGEFVKLDEBBBMEEEHEDVDEKEBBEHEPEEKYYZBBNDDDJDDRHHHHHHEEHHNEHHHRHHHEPFFEEDEEBEWEEIHHHEEEBBZBEHMEELBYYZBSMJJJJDDEELENEEAAEHHHHEEEQEHHHENBZDENEAAELENEHEEMZZZBEREEBBZYYBBYYJJDJDDEQEKVEAAAEEHDFOEEEEEEHEEBZMEGEAAAEEEERAAEEPEEEHEEGLZYYEPYYJJDJDDDDEKEEEEAAEHHEEEENELWHEEAAAGEEEAAAEEEHFKWEEGEEHEGGBZYYBSYYJJDDDDDECCCCKEENEPHEDEKCCCEHHEEAFFEEDEDNADDHFEEENEAEHHHEBZMEBYYJJDDJDDVECCCCFFAEEEHHHEEWECEEHEKEFNEDDDLDDNEHEMHGAAEEEQHDKEZZLYJJJDDJJDDENFMCAAAAAENEREEZMCEEREQEEEEEEEDGFEEHEEHEECCELEHEAMZBBSENXJJJJDDEEFEEEENAADEBBBEZFVEEHHEOEKEEBBJJFEEHHHHELCCEEQIOAEZVKPEJJJJJJDDEEKVEELEEEDEZBBLPFKVEEHEEBBBEZZDDGBBPEEOEEEKFFFHEAQEEHHRJJJJJJDDDEEEEEDEEEMEZMEEEEEEDDHHDZZZZZEEEEJZEKWEEGEEHHHHENMEEHLNJJXXJJJJDEEEEEDKEEEEJAAAAEEEEMEHDLZZBEEELEYZCEEBBBEEHNEEGEHHHHBM*XXXJJJJJVELEPEEEENEJEEAAAAEFFCHEEGZBEEBSXYZMEEBXBMEHEEPEEHEQBZZZXXXJJJJJEREEHHHHHHELEFEEENEECCIEEEMBEMBYXXEEBBBXYYBHEEENEHHELZYYXXXJJJJJJEEEHEEEEHHEKFENEEQEECHDKFEEEEBYXBEEZZZXYYBHHLDFMFHBZZZYXXXJJJJJJHHHHEKEEBBBFFEEEJJJJJHPFWECCCPENBBBXXXXZZLEHHDHHHHBZBKYXXXJJJJJEEEEFCEEMBBZZMCCCCEGEEHEEGEECEREEBLVZZZXZZBTRWECCCNBZBBYXXXJJJJJELAAFCEEEEBZZBCCCCEEEEHEEEEEEEEBECCCMEEXBBBEREEEMEFFLBYYXXXJJJJJVAAEECCZZZBZZBOBBCEEQEDQEEWEEEEBZZZEEESXLBEEHGEEEDAANBSNXXXJJJJJAAEKVCEMBBPBOYYZBLEEEEIEEEEEFLEYZPZZBBYXSBMEHEGVFLAAMZZZXXXJJJJJEEFFEEEEKELYYYXZBCCGEDDQNEEEFFOYYYXZBBYXYSBBHHEKFPERBZYZXXXJJJJJJJEEOZLEBZZYYYXYYZZEEEHHHHHHHHEEYYXZBBYUYZZBEHENEWBBBZYMXXXJJJJJJJJEMZEEMZZYYYXYYZZMEOPEENEEOHEMEUUBKBYXYZZBEHEMEEELYYYYXXXJJJJEERJJFDGGEBBBBKEXXZZBGEZLEAAEEHEBBYXBKYYXYLEOEHHHHNEBYYYYXXXJJJEPTRRJFQEEBZZYYZZBBSBBEEZBFAAAAHEEBBXBBYYXYZZEFNENHBZBSMYYXXXJJJEEERREFEDELZZYYBBBPXXKEEBBFEEAAHEKDDSEBXXXYZZZFEHHHBZNKBZZXXXJJJJEOEWHHHHHQEGEQELFFMEPEGEEVEEEEHEEEAAEBYYYYZMEKEHPFZYYYNZZXXXJJJJEELBEGEEHEEEMEEEEEEEREENEDDEEEHNELAEEEUUUUUBFFEHHFZYYYBKZXXXJJJJJELLMENEHHIHHHEEENEEEEEEEDGEEEHEEEEEEMZZBLBBNEEEIBBBYYLZZXXXJJJJJEEEEEEENEAAEHEMEEBEEVBBEDENEEHEPEVBBBZZKEZZEEMEHNFZZZOZZXXXJJJEEVEDDDDDEQAEEHBBEBBEBBBBEEEENEHEENEBZZZZVBBBFVBBRFMZZZSNMXXXJJJJDDDDJJJDDDDDDJJJJJJJJJJJDDDDDDJJJJJJXXXXXXXJJJJJJJXXXXXXXXXXJJJJJAANAAAAALAAAJYYYYYYYYYJBLBBBBNBOBBJXXXXXXXJXXXXXXXXXXXXXXXXJJJJJAAAAANAAAAAAJYYYYYYYYYJYYYYYYYYYYYJ[XXXXXXJXXXXXXXXXXXXXXXX"
Var b$: Str = "                                "
Var j: NumFOR = 10, 9, 1, 155, 2
Var l: NumFOR = 9, 8, 1, 5010, 4
Var ot: Num = 0
Var tf: Num = 0
Var passno: Num = 4
Var p: NumFOR = 1, 4, 1, 1030, 2
Var play: Num = 0
Var ofst: Num = 1
Var q: NumFOR = 7, 26, 1, 805, 2
Var amt: Num = 20
Var sx: Num = 3
Var maxim: Num = 20
Var dayno: Num = 2
Var tst: Num = 0.07116088865
Var adj: Num = 2
Var i: NumFOR = 21, 20, 1, 1020, 2
Var pr: Num = 42
Var pc: Num = 60
Var d: Num = 83
Var prob: Num = 0.1700000004
Var gen: Num = 0.6038665771
Var tr: Num = 60
Var tc: Num = 6
Var fx: Num = 18
Var qq: Num = 6
Var mtr: Num = 99
Var dr: Num = -40
Var shf: Num = 0
Var ex: Num = 24
Var vx: Num = 11
Var lap: Num = 0
Var cnt: Num = 485
Var k: NumFOR = 3, 2, 1, 3030, 2
Var st: Num = 13
Var ax: Num = 48
Var offset: Num = 25
Var need: Num = 1
Var nt: Num = 55
Var cmp: Num = 3
Var lvl: Num = 1
Var dir: Num = 1
Var ms: Num = 59
Var mf: Num = 60
Var mx: Num = 41
Var gs: Num = 3
Var gf: Num = 4
Var gx: Num = 3
Var mdis: Num = 58
Var gdis: Num = 2
Var y$: StrArray(1,31) = "                               "
Var o$: StrArray(1,31) = "                               "
Var dc: Num = -3
Var ct: Num = 3
Var ba: Num = 1
Var ti: Num = 0
Var t: Num = 1
Var ch: Num = 32
Var xx: Num = 2
Var chstart: Num = 63660
Var hb: Num = 72
Var anchor: Num = 18650
Var jj: Num = 6
Var z: NumFOR = 0, 26, 1, 65534, 2
Var lnct: Num = 4
Var totwt: Num = 5
Var lwt: Num = 5
Var req: Num = 2
Var mov: Num = 3
Var mr: Num = 56
Var mc: Num = 7
Var ffx: Num = 27
Var mv: Num = 15
Var fd: Num = 0
Var lin: Num = 3
Var off1: Num = 15
Var ux: Num = 18
Var imm: Num = 14
Var mir: Num = 0
Var gla: Num = 0
Var lan: Num = 0
Var rdo: Num = 0
Var gre: Num = 0
Var gun: Num = 0
Var t$: StrArray(20,2) = "\#000\#000-\#010\#000\#000\#000\#000\#000\#000\#000\#000\#000\#000\#000\#000\#000\#000<\#006\#000\#000\#000\#000\#000\#000\#000\#000\#000\#000\#000\#000\#000\#000\#000\#000\#000\#000\#000\#000"
Var b: NumArray(1) = 0
Var c: NumArray(1) = 9999
Var i$: StrArray(1) = " "
Var a: NumArray(2) = 0,0
Var c: Num = 9999
Var x: NumFOR = 60, 64, 1, 65534, 4
Var a$: StrArray(50,27) = "Gwolf     V15LB-5C-3BB-8C-6Gbull     K16MC-2   BB-7C-5Bsweets   P19JP-1C+2       Mwatch    O17PP+5I+1QP+1O-1Abicycle  P57CP-5I+1DP+5   Aknife    P39CP-3V+1       Lrope       9RR+1          Btools    P29CP-2T+1       Amatchbox P39CP-3W+5       Bfood     P59CP-5H-2       Crabbit   S14IH+2   HA-1   Nfood       7RH+2   NC-2B-1Chorse    R13IG+1C-2HA-2C-3Dnot used                  Eguard    P67MA-1P-6NP-6B-6Fguard      5KC-2D-3NB-5C-3Ftrap       5KC-2D-3BC-2B-3Gvillager V16LC-2A-1NB-2C-3Gduke     K14LC-2B-1BB-4C-4Gguard    V17LC-2B-1BB-4C-4Gvagrant  V17LC-2B-1QP-9H-9Gknight   K14LC-2B-1BB-4C-4Hwolf       6MA-2   BB-7C-5Hbull       5MA-2C-1BB-7C-5Hvagrant    6MA-2C-1QH-9P-9Hguard      5MA-2C-1ND-2B-4Hvillager   7MA-2C-1QH-5P-5I NOT USED                 Nfirst aidP59JB+5P-5       LSNARE      9RA-1S+1       LSPEAR      9RA-1K+1       Ltools      9RT+1          Qtrap     T19KA-4C-1       Nfood       9RA-1H+3       Hfarmer     6MA-1   NB-2C-2Lwatch      8RO+1   D      Pmatchbox   7RW+5   NB-2C-2Kit         9S             Lgrenade    8RZ+1   EB-6C-6Lgun        8RZ+1   EB-5C-3Lmirror     9RQ+1          Mrelic    F16PP+9F-1hF-1P+1Nfood       6RH+5   NB-1C-1Lknife      9RF+1          Lrelic      9RF+1          Fknight     6KA-1C-2BB-3C-4Gfarmer     4LC-1   NB-3C-3Lmoney      9RP+5          Ldinghy     7RJ+1A-1DA-1   Lradio      6RA-1U+1DA-2   "
Var e$: StrArray(26,16) = "villagerR2434228spear   T4313806vagrant V3252106dinghy  T4493808doctor  R3294328tinker  R3064328tools   S9323808farmer  V5473508duke    W7193404ROPE    T7073804knight  W6224604guard   W4202604knife   T3443804grenade T5393808gun     T4403808wolf    U2012304bull    U4022404rabbit  X4113804radio   T3503828trap    y3331704guard   Z6201604snare   T9303800relic   T7453828money   S7483808horse   T6133808mirror  T4413808"
Var u$: StrArray(19,20) = "You scared him away You were wounded    You have bought it  It doesn't work!    IT EXPLODES !       They were defective It made you ill     It got away         You caught it       You feel better     You escaped         You won the fight   He went away        You were beaten up  You have bought themYou got a good priceYou were robbed!    You have it                             "
Var slg: Num = 0
Var s$: StrArray(26,8) = "1519202020202020202020202018202001010101000000000000010100000000000001010000000000000000000000000000000001010101000001002030252000000000000000000000000000000000000101000000000000000000000000000000000001000000"
Var x$: StrArray(4,20) = "DUBRIS    ACTIVE4407PISSOFF   ACTIVE5607                                        "
Var w$: Str = "sunny"
Var r$: Str = "44"
Var c$: Str = "07"
Var j$: Str = "in La Rochelle"
Var z$: Str = "DUBRIS "
Var y: NumFOR = 50, 64, 1, 65534, 3
Var k$: Str = " "