E:)]P?[6:\Q oN  :-15,-15:-15,15 O165,41):30,0:-15,-15:-15,15 O205,41):30,0:-15,-15:-15,15 3;dd,ee;"" B="5"ee=ee-1:dd,ee+1;" ":ee2ee=2 D="8"ee=ee+1:dd,ee-1;" ":ee27ee=27 ="S"490 .8,15:3;230,0 ۊ17,2;"";17,7;"";17,12 ;"";17,17;;"";17,22;"";17,27;"0" 73;19,1;"";19,29;"" !.02{# =,*30:450 %ee2:ee=15:45- $ee7ee=15:525  %ee12 ee=15:710 &ee13 ee16450 %ee17ee=15:795 %ee22ee=15:785 %ee27ee=15:805% !.02{# =,*30:450  r=(*13 ) r5550& :z=09 :6;" ":z:Q$=" FOOD O.K. NICE MEAL":790:z=0100d:z (f=f-3:b=b-1:a=a-15 ! 130 &q:z=09 :6;" ":z:Q$=" FOOD IS BAD TRY AGAIN":790 +0z=0100d:z:b=b-1:130 0r=(*10 ) 5z=0100d:z :r5585I ?a=a+15:d=d-5 D 130 Ir=(*10 ) Nr4615g S:z=010 :6;" ":z:Q$=" BAD LUCK NO GOLD HERE TRY AGAIN":790 Xz=0100d:z ]'a=a+15:d=d-10 :130 bi=(*80P) gg=(*26) lh=(*502) q::3:Q$=" CONGRATULATION'S ! ! ! ":790:0:::Q$=" You Have Discovered some Gold ":790 v,8,2;" Quantity :";h;" Ounces" {!10 ,2;" Quality :" 4g>1g<810 ,13 ;g;" Fair" 9g>9 g<2010 ,13 ;g;" Very Good" /g2010 ,13 ;g;" Rich Seam" .g110 ,13 ;g;" Very Poor" O:::Q$=" Difficulty level :":790:14,23;i/2+g 6::Q$=" DO YOU WISH TO MINE HERE (Y/N)?":790  0 ="Y"690 =""130 ?z=0100d:z:a=a+10 :d=d-10 :130 :2;8,13 ;"MINING";3;9 ,12 ;"";8,12 ;"";8,19;"";7,12 ;"":::Q$=" PLEASE BE PATIENT":790:z=0200:z:a=a+((i/10 )*(h/6)) d=d-15  e=e+(h*g) #z=0100d:z:130 ƪ:3;7,11 ;" ";8,11 ;"";8,19;"";9 ,11 ;" ";2;8,12 ;"RESTING":r=(*10 ) z=0100d:z r5730 Ս::Q$=" UNFORTUNATELY YOU WERE UNABLE TO REST VERY WELL":790:a=a+10 :d=d-15:z=0100d:z:130 l::Q$=" YOU RESTED WELL":790:d=d+15:a=a-25:z=0100d:z:130 .::Q$=" TOTAL SCORES ":790 '77M,158:100d,0 ::Q$="ENERGY ":790:d:10 :Q$="FATIGUE ":790:a:10 :Q$="GOLD ":790:e:10 :Q$="CASH ":790:c:10 :Q$="FOOD ":790:b:10 :Q$="HUNGER ":790:f @0,90Z:96`,0:::"TOTAL ";d+a+e+c+b+f hs=d+a+e+c+b+f U0,18:255,0:0,38&:255,0:100d <::::::Q$="DO YOU WISH TO TRY AGAIN (Y/N)":790 *:::" HIGH SCORE = ";hs:0 1="Y"7:0:7:0:::  /="N"0:7:7:0:: ;c=c+e*3:e=0:z=0200:130 =Z=ç:U=Z:I=U̱Q$:Q$(I);:.02{# =,Q$(I)-60<:I: :z=010 :6;" ":z:Q$="YOU MAY BUY FOOD IN UNITS OF 10":790:25:::Q$="HOW MANY UNITS WOULD YOU LIKE ?":790:un:c=0c0375w  -b=b+un*10 :c=c-un*20:130 %*6:ڥ*6:٥*6:ܥ*1:ۥ*1::10 ,4;"ARE YOU SURE YES or NO":.02{# =,(*25)+1 *%="N"0:0::45- /8="Y"7:7:0:0:0:: 4 805% z2;aa,bb;"";aa+1,bb;"";8;aa+2,bb;"";1;aa+3,bb;"":.05|L,25: f2;aa,bb;"";aa+1,bb;"";8;aa+2,bb;"";1;aa+3,bb;"": q anb'""  ONDIKE 66 _W P P PMM36\>>BB<DHpHDB@~BfZBBBBbRJFBD~|>@@@BBB@BB@@BBH@BbDH@B@@<BB~|BB||BBp@BRBp||@@B|B@~|@@B|H@BJBH@B@@BB@B@B@@@BDD@BFDD@B@@<<@B~B@~@B~|>~~@<<|B~<|~~<|D@D~|>@@@BBB@BB@@BBH@BbDH@B@@<BB~|BB||BBp@BRBp||@@B|B@~|@@B|H@BJBH@B@@BB@B@B@@@BDD@BFDD@B@@<<@B~B@~@B~|>~~@<<|B~<|~~<|D@D~|>@@@BBB@BB@@BBH@BbDH@B@@<BB~|BB||BBp@BRBp||@@B|B@~|@@B|H@BJBH@B@@BB@B@B@@@BDD@BFDD@B@@<<@B~B@~@B~|>~~@<<|B~<|~~<|D@D~|>@@@BBB@BB@@BBH@BbDH@B@@<BB~|BB||BBp@BRBp||@@B|B@~|@@B|H@BJBH@B@@BB@B@B@@@BDD@BFDD@B@@<<@B~B@~@B~|>~~@<<|B~<|~~<|D@D~|>@@@BBB@BB@@BBH@BbDH@B@@<BB~|BB||BBp@BRBp||@@B|B@~|@@B|H@BJBH@B@@BB@B@B@@@BDD@BFDD@B@@<<@B~B@~@B~|>~~@<<|B~<|~~<|D@D~|>@@@BBB@BB@@BBH@BbDH@B@@<BB~|BB||BBp@BRBp||@@B|B@~|@@B|H@BJBH@B@@BB@B@B@@@BDD@BFDD@B@@<<@B~B@~@B~|>~~@<<|B~<|~~<|D@D~|>@@@BBB@BB@@BBH@BbDH@B@@<BB~|BB||BBp@BRBp||@@B|B@~|@@B|H@BJBH@B@@BB@B@B@@@BDD@BFDD@B@@<<@B~B@~@B~|>~~@<<|B~<|~~<|D@D~|>@@@BBB@BB@@BBH@BbDH@B@@<BB~|BB||BBp@BRBp||@@B|B@~|@@B|H@BJBH@B@@BB@B@B@@@BDD@BFDD@B@@<<@B~B@~@B~|>~~@<<|B~<|~~<|D@D~|>@@@BBB@BB@@BBH@BbDH@B@@<BB~|BB||BBp@BRBp||@@B|B@~|@@B|H@BJBH@B@@BB@B@B@@@BDD@BFDD@B@@<<@B~B@~@B~|>~~@<<|B~<|~~<|D@D~|>@@@BBB@BB@@BBH@BbDH@B@@<BB~|BB||BBp@BRBp||@@B|B@~|@@B|H@BJBH@B@@BB@B@B@@@BDD@BFDD@B@@<<@B~B@~@B~|>~~@<<|B~<|~~<|D@D~|>@@@BBB@BB@@BBH@BbDH@B@@<BB~|BB||BBp@BRBp||@@B|B@~|@@B|H@BJBH@B@@BB@B@B@@@BDD@BFDD@B@@<<@B~B@~@B~|>~~@<<|B~<|~~<|D@D~|>@@@BBB@BB@@BBH@BbDH@B@@<BB~|BB||BBp@BRBp||@@B|B@~|@@B|H@BJBH@B@@BB@B@B@@@BDD@BFDD@B@@<<@B~B@~@B~|>~~@<<|B~<|~~<|D@D~|>@@@BBB@BB@@BBH@BbDH@B@@<BB~|BB||BBp@BRBp||@@B|B@~|@@B|H@BJBH@B@@BB@B@B@@@BDD@BFDD@B@@<<@B~B@~@B~|>~~@<<|B~<|~~<|D@D~|>@@@BBB@BB@@BBH@BbDH@B@@<BB~|BB||BBp@BRBp||@@B|B@~|@@B|H@BJBH@B@@BB@B@B@@@BDD@BFDD@B@@<<@B~B@~@B~|>~~@<<|B~<|~~<|D@D~|>@@@BBB@BB@@BBH@BbDH@B@@<BB~|BB||BBp@BRBp||@@B|B@~|@@B|H@BJBH@B@@BB@B@B@@@BDD@BFDD@B@@<<@B~B@~@B~|>~~@<<|B~<|~~<|D@D~|>@@@BBB@BB@@BBH@BbDH@B@@<BB~|BB||BBp@BRBp||@@B|B@~|@@B|H@BJBH@B@@BB@B@B@@@BDD@BFDD@B@@<<@B~B@~@B~|>~~@<<|B~<|~~<|D@D~|>@@@BBB@BB@@BBH@BbDH@B@@<BB~|BB||BBp@BRBp||@@B|B@~|@@B|H@BJBH@B@@BB@B@B@@@BDD@BFDD@B@@<<@B~B@~@B~|>~~@<<|B~<|~~<|D@D~|>@@@BBB@BB@@BBH@BbDH@B@@<BB~|BB||BBp@BRBp||@@B|B@~|@@B|H@BJBH@B@@BB@B@B@@@BDD@BFDD@B@@<<@B~B@~@B~|>~~@<<|B~<|~~<|D@D~|>@@@BBB@BB@@BBH@BbDH@B@@<BB~|BB||BBp@BRBp||@@B|B@~|@@B|H@BJBH@B@@BB@B@B@@@BDD@BFDD@B@@<<@B~B@~@B~|>~~@<<|B~<|~~<|D@D~|>@@@BBB@BB@@BBH@BbDH@B@@<BB~|BB||BBp@BRBp||@@B|B@~|@@B|H@BJBH@B@@BB@B@B@@@BDD@BFDD@B@@<<@B~B@~@B~|>~~@<<|B~<|~~<|D@D~|>@@@BBB@BB@@BBH@BbDH@B@@<BB~|BB||BBp@BRBp||@@B|B@~|@@B|H@BJBH@B@@BB@B@B@@@BDD@BFDD@B@@<<@B~B@~@B~|>~~@<<|B~<|~~<|D@D~|>@@@BBB@BB@@BBH@BbDH@B@@<BB~|BB||BBp@BRBp||@@B|B@~|@@B|H@BJBH@B@@BB@B@B@@@BDD@BFDD@B@@<<@B~B@~@B~|>~~@<<|B~<|~~<|D@D~|>@@@BBB@BB@@BBH@BbDH@B@@<BB~|BB||BBp@BRBp||@@B|B@~|@@B|H@BJBH@B@@BB@B@B@@@BDD@BFDD@B@@<<@B~B@~@B~|>~~@<<|B~<|~~<|D@D~|>@@@BBB@BB@@BBH@BbDH@B@@<BB~|BB||BBp@BRBp||@@B|B@~|@@B|H@BJBH@B@@BB@B@B@@@BDD@BFDD@B@@<<@B~B@~@B~|>~~ ;;;@8# # <@T8\\\]\(]zcX![!@P!!;8W K SR P Brian Fitton 1985 3::z=64@87W:23681\,z:"STOP THE TAPE FOR KLONDIKE BILL":.05|L,15:z:z=0500:Z:.05|L,25 v23658j\,8:z=0500:z:0::10 ,1;"DO YOU WANT INSTRUCTIONS (Y/N)?":0 ="Y"5 ="N"17 k:Q$=" INSTRUCTIONS":790:78N,167:100d,0:z=0200:z:  Q$=" This is the story of Klondike Bill, you take the part of he. Bill has arrived in the small town of Fittsville in the middle west in response to tales of a Gold Strike, and finds himself a plot of land that he can Prospect on.":790 Q$=" You move Klondike Bill around the screen by the cursor keys 5,6,7 & 8 and select a square which you think may be worth mining, then press 'S' the program will respond by telling you wether their is Gold there or not, you then have a choice of mining or not. You are then presented with the Level Indicaters which show your Current Status and at the bottom of the screen a type of Icon in place of a Menu.":790 2#1;" Press any Key to Continue":0 #:Q$=" Follow the Instuctions given at the bottom of the Screen i.e. use key 5 to move the pointer to the left and key 8 to the right, 'S' again selects your choice. You must ensure that the Energy level is kept high, the Fatigue level is kept low, the Food level is kept high, and the Hunger level is kept low. The other two levels are Gold and Cash. You may convert any Gold you find into cash at any time. You are also able to buy food providing you have enough cash to do so.":790 Q$="! GOOD LUCK":790:20,3;"PRESS ANY KEY TO BEGIN OR 'I' TO READ INSTRUCTIONS AGAIN":0:="I"5:=""18 ":y="a""p"+7:x:y,x:y 0127,255,225,192,156,130,217,201,193,129,128,64@,67C,65A,32 ,80P,254,255,135,3,579,65A,155,147,131,129,1,2,194,130,4,6 5108l,131,129,161,161,161,81Q,80P,127,127,63?,60<,60<,60<,28,126~,62>,193,129,133,133,133,138,138,254,254,252,60<,60<,60<,568,126~ =169,171,251,35#,35#,33!,35#,35#,128,192,224,254,254,130,130,0,96`,112p,68D,124|,100d,100d,80P,72H,16,108l,130,186,162,186,130,124|,8 8,16,40(,68D,68D,68D,40(,24,16,568,124|,254,124|,568,568,568,252,252,60<,126~,0,0,0,0,63?,63?,60<,126~,0,0,0,0 #yaa=8:bb=13 :a=0:b=10 :c=25:d=100d:e=0:f=0:dd=19:ee=15 (j=a:k=b:l=c:m=d:n=e:o=f -&3:6:0:1: 2K0,0:0,175:255,0:0,-175 7z1;1;20,0;"* * * * * * * * * * * * * * ";0;0;20,28;"    " <|1;1;21,0;" Cursor Keys Move-S Selects ";0;0;21,28;"    " A<z=019:z,28;0;"   ":Z Fq=0:g=q20032 :p=17532 -32 :g,p:q,-32 :32 ,q:-32 ,q:q,32 :32 ,q:q,-32 :p:g Kd2;aa,bb;"";aa+1,bb;"";8;aa+2,bb;"";1;aa+3,bb;"" L,900:z=05:z:910 P="5"900:910:bb=bb-4:.10}L,-20:aa,bb+4;" ";aa+1,bb+4;" ";aa+2,bb+4;" ";aa+3,bb+4;" ":bb1bb=1 U="8"910:900:bb=bb+4:.10}L,-20:aa,bb-4;" ";aa+1,bb-4;" ";aa+2,bb-4;" ";aa+3,bb-4;" ":bb25bb=25 Z="7"900:910:aa=aa-4:.10}L,-20:aa+4,bb;" ";aa+5,bb;" ";aa+6,bb;" ";aa+7,bb;" ":aa0aa=0 _="6"900:910:aa=aa+4:.10}L,-20:aa-1,bb;" ";aa-2,bb;" ";aa-3,bb;" ";aa-4,bb;" ":aa16aa=16 d="S"110n i 75K n:z=09 :6;" ":z:3:Q$=" S E A R C H I N G ":790 sn3:6:0::3;1;1;10 ,0;" S E A R C H I N G " x100d:585I }"c15c=0:l=7 6::f=f+1 a0a=1 a0j=9 f0f=1 d0m=10 b10 k=10 c15l=10 d90Zm=0 e10 n=10 f1o=0 a10 j=2 b8k=2 c140l=8 d80Pm=8 e30n=8 f3o=7 a30j=4 b6k=6 c300,l=6 d60<m=6 e60<n=7 f5o=5 a60<j=6 b4k=8 c500l=5 d40(m=4 e90Zn=6  f6o=3 b2k=1 d10 m=9 a150j=1 e500n=1 "c5000l=1 '`b=0Q$=" YOU HAVE RUN SHORT OF FOOD !!!!":790:z=0200:z:735 ,0,1;"E";1,1;"N";2,1;"E";3,1;"R";4,1;"G";5,1;"Y" 10,6;"F";1,6;"A";2,6;"T";3,6;"I";4,6;"G";5,6;"U";6,6;"E" 6Y0,11 ;"G";1,11 ;"O";2,11 ;"L";3,11 ;"D" ;Y0,16;"C";1,16;"A";2,16;"S";3,16;"H" @Y0,21;"F";1,21;"O";2,21;"O";3,21;"D" E0,26;"H";1,26;"U";2,26;"N";3,26;"G";4,26;"E";5,26;"R" J1;11 ,2;d;11 ,7;a;11 ,11 ;e;11 ,16;c;11 ,22;b;11 ,28;f O$6,78N:0,96` T%46.,78N:0,96` Y%86V,78N:0,96` ^&126~,78N:0,96` c&166,78N:0,96` h&206,78N:0,96` m1;m,3;"";2;j,8;"";4;n,13 ;"";0;l,18;"";5;k,23;"";3;o,28;"" r76,78N:240,0:0,96` wc0:z=010 :6;" ":z:Q$="UNFORTUNATELY YOU HAVE NO CASH !":790:z=0200:z:735 |ua100d100d:::::Q$="YOU ARE TOO FATIGUED TO CONTINUE":790:z=0200:z:735 sd0100d:::::Q$=" YOU HAVE NO ENERGY TO CONTINUE ":790:z=0200:z:735 e9999'100d:::::Q$=" YOU HAVE MORE THAN ENOUGH GOLD LET SOMEONE ELSE HAVE A GO":790:z=0200:z:735 c9999'100d:::::Q$=" YOU HAVE MORE THAN ENOUGH CASH LET SOMEONE ELSE HAVE A GO":790:z=0200:z:735 f10 100d:::::Q$=" YOU HAVE ALLOWED YOUR HUNGER TO REACH TOO HIGH A LEVEL ":790:z=0200:z:735 O1;1;1;13 ,1;"L E V E L I N D I C A T O R S" 15,1;"Mine";15,6;"Eat";15,11 ;"Rest";15,16;"Buy";15,21;"G-C";15,26;"End" A3;21,0;" <<<5 'S' Selects 8>>>" M5,41):30,0:-15,-15:-15,15 N45-,41):30,0:-15,-15:-15,15 N85U,41):30,0:-15,-15:-15,15 O125},41):30,0