* R? ك6g:\612345= " 8 xx,yy;" " 9!w<3150:315; : 130 ; J....animal.... L<xx=x:yy=y+1:su=(xx,yy):yy>31yy=y-1 NIxx,yy;0;7;"":.3,45-:="c"Ŧ="s"338R O6a=120:1:a:sa:="c"338R Pr21,0;"Too slow ":a=1150:a:21,0;" ":340T Rg=1+(*10 ):g>321,0;"The animal is dead ":fo=fo+2:a=1150:a:21,0;" ":342V Swg<421,0;"Missed ":a=1150:a:21,0;" ":342V Tx21,0;"The animal escapes ":a=1150:a:21,0;" " V xx,yy;" " W!w<3150:345Y X 130 Y  ...town... )i$="m"i$="M"410+(town*4) i$="e"i$="E"450 =x<6y<80,4;0;5;""  x=0y=4700  =x<6y<80,0;1;6;""  x=0y=0700  ?x<6y>230,30;1;6;"" !x=0y=30700  ?x<6y>233,31;0;7;"" !x=3y=31700  ?x>16y<819,0;0;5;"" !x=19y=0700  ?x>16y<820,5;1;6;"" !x=20y=5700  Ax>16y>2317,31;0;5;"" "x=17y=31700  Ax>16y>2320,31;1;6;"" "x=20y=31700  J19,0;0;5;"":x=19y=0700 H0,0;0;7;"":x=0y=0700 J0,31;1;6;"":x=0y=31700 L19,31;1;6;"":x=19y=31700  1:5:0: Ba=1721:b=031:a,b;7;" ":b:a T15,16;"";16,17;"":2,8;"FROZEN TO DEATH" 10 ,6;5;4;"";11 ,5;"";12 ,5;"";13 ,4;"";14,4;"";15,3;"";16,6;2;"" .4L,-1:.4L,-1:.4L,-1:1.2,-5:.4L,-3:.4L,-3:.4L,-3:1.2,-6: x6:b=07:220,140,b:b:a=1721:b=031:a,b;4;" ":b:a 250:1 D3:5:4::1,1;0;"WELL DONE" Q4,19;7;"";5,18;"";6,18;0;" ";7,18;"";8,2;5;3;"";8,18;7;0;" ";9 ,1;3;5;"";9 ,18;7;"";9 ,27;4;5;"" 10 ,1;3;"";10 ,18;7;0;" ";10 ,26;5;4;"" ˲11 ,1;7;"";11 ,8;5;4;"";2;"";11 ,18;7;"";11 ,26;5;4;"" 12 ,1;7;0;" ";12 ,7;4;5;"";2;"";12 ,18;7;0;" ";12 ,26;5;4;"" 13 ,1;7;"";13 ,7;3;"";3;2;"";0;"";5;"";13 ,18;7;"";13 ,26;5;4;"" 14,1;7;2;" ";0;" ";14,7;3;1;" ";0;7;" ";5;"";14,18;3;" ";0;" ";14,26;5;4;"" 15,1;7;2;" ";15,7;3;1;" ";7;0;"";15,18;7;3;" ";15,27;3;"" W16,0;2;" ";7;"";4;"" ?17,0;2;"  " ?18,0;2;"  " @19,0;2;" " ?20,0;2;" " ?21,0;2;" " -5,19;7;2;"HOTEL" l.6,7:.6,5:.3,4:.6,5:.6,2:.9ffff,0 250:1  V7:5:4::a=1721:b=031:a,b;"":b:a %z15,15;0;"";16,15;"":11 ,5;"";12 ,4;"";4;2;"";5;4;"";13 ,3;"";4;2;" ";5;4;"";14,3;"";4;2;"";5;4;"";15,4;"";4;2;"";5;4;"";16,5;3;"" 'G11 ,20;"";12 ,19;"";4;2;"";5;4;"";13 ,18;"";4;2;" ";5;4;"";14,18;"";4;2;"";5;4;"";15,19;"";4;2;"";5;4;"";16,20;3;"" (G11 ,26;"";12 ,25;"";4;2;"";5;4;"";13 ,24;"";4;2;" ";5;4;"";14,24;"";4;2;"";5;4;"";15,25;"";4;2;"";5;4;"";16,26;3;"" )c6,5;7;"v v";8,6;"v";9 ,19;"v";3,28;"v" *.2,8;0;"DEAD FROM HUNGER" +a=03:16,a;0;" ":10 :.1}L,20:16,a;0;" ":10 :.1}L,40(:a -.4L,-1:.4L,-1:.4L,-1:1.2,-5:.4L,-3:.4L,-3:.4L,-3:1.2,-6: /250:1 R...thirst... T1:7:5: W2a=016:a,(*25);"' '' ''":a X10 ,26;7;4;"";11 ,25;"";12 ,25;"";13 ,24;"";14,24;"";15,23;"";16,26;2;"" \Ba=1721:b=031:a,b;4;"":b:a ]15,16;0;"";16,16;"":18,18;5;4;" ";19,17;" " ^!16,13 ;0;"" _.2,8;0;"DEAD FROM THIRST" `:a=010 2:16,a;0;" ":10 :.1}L,30:16,a;0;" ":10 :.1}L,0:a:a=10 0-2:16,a;0;" ":10 :.1}L,30:16,a;0;" ":10 :.1}L,0:a:16,0;" " a.4L,-1:.4L,-1:.4L,-1:1.2,-5:.4L,-3:.4L,-3:.4L,-3:1.2,-6: b250:1 k....snake.... l1:5:4::a=05:b=031:a,b;7;"":b:a:6,0;7;"  ";7,0;"  ";8,0;"  " m10 ,26;5;4;"";11 ,25;"";12 ,25;"";13 ,24;"";14,24;"";15,23;"";16,26;2;"" n9a=1721:b=031:a,b;"":b:a ps15,21;0;"";16,21;"";18,21;4;"";19,4;" " qa=0182:16,a;0;" ":10 :.1}L,0:16,a;0;" ":10 :.1}L,-20:a:16,18;0;" " r42,5;0;"KILLED FROM SNAKE BITE" s.4L,-1:.4L,-1:.4L,-1:1.2,-5:.4L,-3:.4L,-3:.4L,-3:1.2,-6: u250:1 ...MAIN PROGRAM..."  h=h+1 w>2sn=100d bit>0bit=bit+1 %w<3sn=100dsn=14  us=(x,y) Aus=37%us=61=x,y;1;0;"":1010 x,y;0;"" Aus=37%us=61=x,y;1;0;"":1018 +400:21,0;"Moves = ";m m=021,0;"Move completed ":a=1100d:a:21,0;" ":1060$  100d %="5"Ŧ="6"Ŧ="7"Ŧ="8"1018  100d  1014 su=us:xx=x:yy=y Le=1+(*65A):e>d115s+(1+(*4)):1024 ="5"116t ="6"117u ="7"118v ="8"119w x>21x=21 x<0x=0 y>31x=31 y<0y=0 .1}L,25  us=(x,y) .us=5us=14us=7700 w<31050 &us=32 m=m-1:1034   m=m-2  m<021,0;"Move completed":a=1100d:a:21,0;" ":us=su:x=xx:y=yy:1060$  130 &us=37%us=491h2o=6 us=502fo=fo+3 us37%x,y;" " x,y;1;0;"" /f=1+(*20):f<2300, f>18330J  1010 5us=568m=m-1:sn=sn-1:1052 m=m-2:sn=sn-2 m<021,0;"Move completed":a=1100d:a:21,0;" ":us=su:x=xx:y=yy:1060$ us=40(sn=14 sn0650  150  &us=579us=61=h2o=6 !us=58:fo=fo+1 "us61=x,y;" " # 1045 $ fo=fo-1:h2o=h2o-1 %h2o<0h2o=0 &fo>5fo=5 'fo<0fo=0 (fo>0hun=0 )h2o>5h2o=5 *w<4h2o=h2o+1 +h2o=0dry=dry+1 ,fo=0hun=hun+1 -h2o>0dry=0 .h2o=6w$="" /h2o=5w$="" 0h2o=4w$="" 1h2o=3w$="" 2h2o=2w$="" 3h2o=1w$="" 4h2o=0w$="" 5fo=6f$="" 6fo=5f$="" 7fo=4f$="" 8fo=3f$="" 9fo=2f$="" :fo=1f$="" ;fo=0f$="" <dry3850R =bit4875k >hun6800  @%h2o>3mv=4:1094F B0h2o=3fo=2mv=3:1094F D0h2o=2fo=1mv=2:1094F Ffo=0mv=2 Gh2o=0mv=2 J*d=(((h2o*8)+(fo*8))+4) Kd<0d=0 L 90Z ` 3 X3:7:4: b2,14;0;"LOST":3,15;"by";4,13 ;"J.Hunt";5,4;" 1983 VIRGIN GAMES LTD." l8,13 ;5;"";9 ,3;"";9 ,12 ;"";10 ,3;"";10 ,10 ;" ";11 ,2;4;"";5;"";5;7;"";5;4;"";7;5;"" v12 ,1;5;4;"";5;"";2;"";5;4;"";4;5;"";5;"";4;5;"";5;"" 13 ,0;5;"";5;4;"";5;"";2;"";5;"";4;"";5;"";4;"";5;"" 14,0;5;"";5;4;"";5;2;"";2;0;"";2;5;"";5;4;"";4;5;"";5;4;"";5;4;"";5;"" 15,0;5;"";5;4;"";5;"";5;7;"";0;"";5;7;"";5;4;"";5;4;"";5;4;" " 16,0;5;"";3;"";5;"";0;7;"";5;"";3;"";5;"";3;"";5;"" r17,0;4;2;" ";2;7;"";4;2;"" H18,0;4;2;" " H19,0;4;2;" " H20,0;4;2;" " H21,0;4;2;" " /.2~L,7:.4L,12 :.2~L,16:.2~L,14:.2~L,16:.2~L,14:.4L,12 :.2~L,16:.4L,14:.2~L,16:.2~L,12 :.2~L,14:.2~L,16:.4L,14:.2~L,16:.4L,12 #UYh=0:hun=0:sn=100d:dry=0:bit=0:mv=4:us=38& #Zw=1+(*10 ) #dtown=1+(*8) #...variables... #h2o=5:fo=5 #3m=4:d=100d:w$="":f$="": #x=10 :y=16 # ...UDG... # 9110# #>:a=144164:b=07:c:a+b,c:b:a #(0,8,28,42*,28,42*,8,8,8,28,502,113q,240,224,192,192,128,224,192,248,252,248,254,255,480,480,96`,96`,480,24,24,480,1,3,15,7,31,63?,31,255,16,568,124|,254,254,158,158,158,0,32 ,58:,126~,124|,62>,20,0,192,192,568,9 ,9 ,17,34",28,80P,40(,84T,170,84T,40(,568,568,0,4,7,135,124|,124|,66B,129,568,568,16,568,84T,40(,40(,108l #568,568,16,568,84T,40(,68D,130,0,4,7,131,124|,124|,68D,68D,0,0,16,568,237,199,2,0,40(,16,568,124|,254,254,124|,568,24,24,24,60<,524,524,524,60<,12 ,26,113q,100d,78N,206,142,158,0,24,36$,36$,24,0,0,0 #0,0,24,36$,36$,38&,198,0,0,0,0,0,0,59;,196,0,0,480,104h,72H,480,0,0,0 #70:0:7::0,14;"LOST" #d'"Lost in a clearing surrounded byforest and mountains with only 5 days supply of food and water":'"Can you survive and reach safety":'"If it snows watch your 'cold points'":'"Watch out for snake bites":'"You can get food and water on your journey":'"If you are quick you can kill animals for food":21,8;"ENTER to continue":a$ $"7:7:0: $$<0,7;2;"Move";1,6;"Points" $'2,5;4;" ";7;"..1 .Clear terrain";4,5;"..2 .Forrest";6,5;"..2 .Mountain";8,5;"..2 .Caves";10 ,5;"..2 .River";12 ,5;"..2 .Tarn";14,5;"..2 .Fruit tree";16,5;" .Settlement";18,5;" .animal (food)";20,5;" .snake";21,8;2;"ENTER to continue":a$ $T6:6:1::4,0;"EASY GAME":"All the settlements are shown onthe map. Reach any settlement to survive." $^l12 ,0;"MAIN GAME":"There is only one settlement andyou will not see it until you get near." $h$"Which game...e(asy) or m(ain)";i$ $ji$>19320h$ $k)i$="e"i$="E"i$="m"i$="M"9350$ $m 9320h$ $6:1:6::4,1;"Choose your level";6,4;"for responding";8,8;"to animals and snakes..";13 ,5;"1 is hard.5 is easy":"level 1 to 5.";s$:s$>535ůs$<491űs$>19350$ $s$=""9350$ $sk=s$ $sk=1sa=2 $sk=2sa=10 $sk=3sa=25 $sk=4sa=502 $sk=5sa=100d % 5 hu ri8wow2mdLx yed#jd8 e@ftNitRnoneVnoneCAIeS5WF1  4jh ( P P P- Mك 3 j26e3- ǜbzv>>BB<DHpHDB@~BfZBBBBbRJFB|<>B<BB|NJN~B@@B@BB"<BBDDBB$DBFBBB@B@D~<<<<B8D B><<<>B<>B8w=8 _Vw>3w<7t=502+(1+(*10 )):r$="showers":v$="moderate" `Fw=7t=60<+(1+(*6)):r$="none":v$="slight" aDw=8t=70F+(1+(*8)):r$="none":v$="none" bYw=3t=40(+(1+(*8)):r$="heavy showers":v$="strong northerly" cFw<3t=28+(1+(*3)):r$="Snow":v$="slight" dw<31:5:7::b=118:c=1+(*25):b,c;"* * *":b:b=1921:c=031:b,c;7;" ":c:b:2,9 ;"WEATHER CHART":110n fw=31:3:1::b=118:c=1+(*20):b,c;"' ' ' ' '":b:b=1921:c=031:b,c;4;" ":c:b:2,9 ;"WEATHER CHART":110n hBw>3w<71:5:1::3,3;7;"";3,24;"";4,23;"";4,2;"";5,24;"";5,2;"":b=1921:c=031:b,c;4;" ":c:b:2,9 ;"WEATHER CHART":110n jw>61:5:1::b=1921:c=031:b,c;6;" ":c:b:2,9 ;"WEATHER CHART":6:b=07:220,140,b:b:110n n6,2;1;"Temperature .";t;"F":9 ,2;1;"Precipitation...";r$:12 ,2;1;"Wind .";v$:21,8;4;1;"ENTER to continue":c$: s...movement... ty=y-1: ux=x+1: vx=x-1: wy=y+1: -su=34"xx,yy;4;2;"": -su=491xx,yy;6;1;"": -su=502xx,yy;6;2;"": -su=33!xx,yy;4;1;"": -su=40(xx,yy;5;0;"": 6su=37%xx,yy;1;4;5;"": xx,yy;" ": -su=60<xx,yy;7;4;"": -su=579xx,yy;7;1;"": -su=58:xx,yy;7;2;"": -su=59;xx,yy;7;3;"": -su=40(xx,yy;5;0;"": 6su=61=xx,yy;1;7;5;"": xx,yy;" ": ,....snake.... .<xx=x:yy=y+1:su=(xx,yy):yy>31yy=y-1 0Dxx,yy;0;7;"":.3,-25:="c"3084 16a=120:1:a:sa:="c"3084 2h21,0;"Too slow ":a=1150:a:21,0;" ":3106 4g=1+(*10 ):g>321,0;"The snake is dead ":fo=fo+1:a=1150:a:21,0;" ":3128 5pg<421,0;"Missed ":a=1150:a:21,0;" " 6bite=1+(*6):bite=621,0;"You have been bitten ":bit=1:mv=mv-1:a=1150:a:21,0;"