BearIsland(#d  Bear Island  n***  T.Gilberts ***  s 4000 ti=0:s=200 x 900 .k=1nz:l=z(k,1):c=z(k,2) l=0250 l,c;" " <z(k,1)=l+(lyl):z(k,2)=c+(cyc) a=(z(k,1),z(k,2)) z(k,1),z(k,2);z$ 2a=125}kb=kb-1:z(k,1)=0 a=186600X Byl,yc;" ":yc=yc+(="8"yc<31)-3*(="5"yc>2) .yl=yl+(="6"yl<21)-(="7"yl>0) ""s=s-1 a=(yl,yc):yl,yc;y$ a>120x400 a=568600X kb=0300, .0125zL,-12 k  130 ,i=7500 =i=i+1:s=s+200 Ac0;7;4,9 ;"CONGRATULATIONS";6,7;"You trapped all the ";8,5;"bears, and escaped the ";10 ,5;"ice flow. Unfortunatly";12 ,5;" the whole of the pole ";14,5;"is covered in bears and";16,5;" the next ice flow has ";18,6;"one more bear again!!" ^Y#1;1,0;0;1;5;"Press any key for next ice flow." |nz=nz+1 kb=nz 1090B:130 a=125}7;0;4,7;"You stupid lummock!";6,4;" Are you blind? You fell";8,4;" down an eskimo fishing ";10 ,4;" hole and drowned.... " a=121y0;7;4,10 ;"What a flop!";6,6;"Couldn't you even see";8,4;"a great expanse of ocean";10 ,4;"You deserve to drown...." @k=50230-1:.1}L,k:k:1,-36$ >0;7;13 ,5;"Thats the end of you!!" y0:7:16,5;"Ice flow:";i;" Score: ";16,23;("0000"(4-s)s>-1);s  5000 ""432 Y#1;1,0;0;5;1;" Press any key to play again " k=11000:=""k =""100d Bnz=7:kb=nz:s=200:i=0:2010:130 #l=2:c=28:rl=l:rc=c ]rl,rc;" ":"a",127:"b",240:l,c;2;"":"a",2:"b",0  rl=l:rc=c &l=l+(lyl):c=c+(cyc) rl,rc;2;"" rl=ylrc=yc550& .1}L,-40( ! 505 & 502 06,4;0;7;" Amazing you managed ";8,4;"to escape all the Polar ";10 ,4;" Bears, and be rescued! " : 430 l8,6;0;7;" RIP, ";:.2~L,-24:15:7;0;"CRACK, ";:.3,34":23:0;7;"SQUASH.";:1,-36$:0;7;10 ,4;" One of the Bears got you." v 426  nz=7:kb=nz:np=15 1:4:0: 2;7;m$ '" While on a transglobe flight"''" your plane crashed somewhere"''" in the Arctic. You must try to"''" fend for yourself until the"''" rescue helicopter arrives." '" Your survival is in the main"''" threatened by the Polar Bears"''" who, due to the long winter"''" could just eat a Human steak!" Y#1;1,0;0;5;1;" Press any key to continue. " ""1015 =""1020 .y$=16+2+18+1+"" z$=16+0+"" .p$=19+1+16+5+""  2;7;m$ '" There would be no problem but"''" you havent any ammunition for"''" your gun. The bears are so"''" intent they do not see holes"''" in the ice and become trapped." !'" Use the arrow keys to move." $,'" YOU ARE _____________ ";1;y$ .$''" POLAR BEARS _________ ";z$ 8$''" FISHING HOLES _______ ";p$ =Y#1;1,0;0;5;1;" Press any key to continue. " B""1090B =""2000 1:7: 0#1;1,0;2;7;m$  4&"" >."";16;" " H+"";18;" " R"";30;"" \"";31;"" f"";30;"" p"";30;"" z"";30;"" "";31;"" "";31;"" "";31;"" "";31;"" "";30;"" "";30;"" "";31;"" "";31;"" "";31;"" "";31;"" "";30;"" "";30;"" 2"   " &"" <k=1np:*16+3,*26+3;p$:k z(nz,2) k=1nz *Hz(k,1)=(*16+3):z(k,2)=(*26+3) 4z(k,1),z(k,2);z$ >k H,yl=(*19+2):yc=(*31) R a=(yl,yc) \a5793400H f yl,yc;y$ p80,17;1;7;0;"FLOW ";i < 1:6:1: 58,0;"********************************" $"**** GILSOFT PRESENTS ****" $"**** Bear Island ****" $"****  T. Gilberts 1982 ****" $"********************************"  4080 *k=17:aa,bb:aa,bb:a=:k  260 .11}aG,12 ,.11}aG,12 ,.12}u[,12 ,.2~L,14,.15~,12 ,.15~,14,.75@,16 1:7: 2;7;m$ /0;''" The High score table " "'' ,k=110 6/h$(k)" "7;h$(k);" - ";h(k) @k ""432 Y#1;1,0;0;5;1;" Press a key for instructions " k=11000:=""k  (k=110 :sh(k)5100 k  rk=k:k=11 :k Bk=9 rk-1:h(k+1)=h(k):h$(k+1)=h$(k):k *"Table position ";(rk);" Name ";h$(rk)  h(rk)=s   #(A1:1:7::" Bear Island - Setting up UDG's " #)'m$=" *** This is Bear Island. *** " #69500%:k=04:s$:r=07 #value:s$+r,value #r:k #-h(10 ):h$(10 ,10 ):1 %N"a",127,2,15,31,127,31,68D,63? %&Q"b",240,0,128,135,255,240,0,240 %0S"p",112p,120x,248,254,255,127,60<,568 %:M"e",24,568,8,124|,28,30,46.,44, %DI"u",8,28,8,62>,8,8,20,34" M *** This is Bear Island. *** #alu"Su5 i @a