\1>?" !6[D:\   ]   ]   ]   ]   ]   ]   ]?<B<<<<<<B<'<>B<@<>|B<~|BQ<~@~<5<(BBB(BB(@h8xbB88Dx&@bB@BBB@@BBHB@f$Q@@@@B5@8888<8h8 B< BB<0TDDR@DDB>>TDDJNDDDTD&J@@~|B@|HBH|@BQ@@@@5< <D<<<><<><8T8DB<88<(8D&<>B<~B>B<<~BBQ<~~~<5< < <3|rB8D8x88x80x88D88x80B88888D888hpB DDD0DD@0D@ D 0DD@0BD@D@D@DTpB< DDDDD80D8 D DD80|x8x8D8xTp$D <DxDD0D D DD0D@@<@Tp< 8@ 88Dx0>Dx 8 88Dx0B!X> = &2o(% ɯ!S[>!Xf`d!͵Gold Mine.f`X>O@!Zw#2H\m~AA# <@ D n\\\ߦt\$H X![!PP!! P K SRPd** MINER 0.9 21/3/83 n48K REMIX  1991 SNG s0 shows commands x: 23658j\,8: vz$(32 ):c$(1):u$(1):d$(1):l$(1):r$(1):q$(1):k$(1):m$(3) 6c$=13 :u$="Q":d$="A":l$="N":r$="M":q$="P" Zborder=23396d[:SC=0:skill=1500:hi=0:score=-1:3000 iborder+1,1:t=border:2:0:3300 :gold=0:score=0:800  ;x=15:y=3:l=4:energy=skill:600X ** Main Mining routine *dir=410:m$="":=q$700 =d$dir=300, =l$dir=330J =u$dir=360h =r$dir=390 dir ydir410energy=energy-5-gold:0,7;0;5;energy;" ";:energy<11300 (y,x)>63?2000 y,x;m$(22)  %x15200:In the lift? y+1=l590N y=20200 S21,0;"YOU FALL! ";::i=y20:i>yi-1,15;" "; i=l.1}L,0 *i,15;"";:.2~L,502-i:i " 700 +** Animation routines ,/y<20(y+1,x)=3500 1m$="":450 6y<20y=y+1 ; 420 @ J.x>0(y,x-1)=3500 Om$="":450 Tx>0x=x-1 Y 420 ^ h.y>5(y-1,x)=3500 mm$="":450 ry>5y=y-1 w 420 | /x<31(y,x+1)=3500 m$="":450 x<31x=x+1  420  (y,x)22 <.51500 _gold=gold+(*3+2):.05|L,12 :21,7;0;5;gold; Aj=07:y,x;j;9 ;"`";:.01z# =,15:J  ** Animated digging energy=energy-gold*4 i=13 y,x;m$(ii); .06|u\,-30-i*3 i  y,x;"";  ** Follow old tunnel 9dir=330Jx15x16y,x-1;""; 1dir=390x14x15y,x;""; #x15j=014:j 9dir=330Jx16x15y,x-1;""; 1dir=390x14x15y,x;""; "x15y=20y,x;""; dir+10 M** Check weight N%gold>15+*61400x W** Move player in lift X=q$700 ZEd$ū(l+1,15)3x15l>18620l ]-l=l+1:y=l-1:.1}L,35# bFl,15;"";:l-1,15;"";:l-2,15;" "; d.y=43,x;0;5;" "; gN1,15;5;0;(157+((l/2)=(l/2))); lu$l<5640 n(y-1,15)=1621,0;"LIFT CRASH";:i=y20:i-1,15;" ";:i,15;"";:.2~L,557-i:i:700 q-l=l-1:y=l-1:.1}L,37% vFl,15;"";:l-1,15;"";:l+1,15;" "; xOy=3y,x;0;5;"";:energy<502750:690 {N1,15;5;0;(157+((l/2)=(l/2))); X=l$y>4dir=330J:y,x;" ";:dir:y,15;" ";:x15200 X=R$y>4dir=390:y,x;" ";:dir:y,15;" ";:x15200 y3600X l$x<16680 By,x;0;5;" ";:x=x-1:x=16x=15  688 r$x>26600X B0;5;y,x;" ";:x=x+1:x=16x=17 y,x;0;5;""; x=2721004 "j=016:j:600X ** End of game &21,22;" GAME OVER"; si=23200Z23215Z:i,(i)+192:46431_-i,(46431_-i)+192:.01z# =,i-23191Z:i ˢscore>hi0,22;1;7;4;"TOP SCORE!";:i=2032 2:.05|L,i:.05|L,i+4:i:hi=score:i=23307 [ i=0100d:i k$= k$=730  3000 [x=2717-1:3,x;7;5;"";:x<275;" " j=011 :j:x:3,16;5;7;" ":j=020:j:3,15;1;5;" " rx=1826:3,x;5;0;"";7;"";:x>163,x-1;5;" " j=016:j:x  -3,x-1;5;0;" ": ** Set up display  3:5 %i=03 *:i,0;" ":32 spaces /i 4)2,27;2;"```"; 9'3,28;1;""; RD0,0;0;"Energy:";skill;" GOLD MINE"; W^21,0;0;5;"Weight:0 Score:0 Top: ";21,27;hi \!1,15;0;""; a!1:2,15;""; f,3,14;"";:3:0 k4,15;""; lscore<0 mi=519 ni,15;0;" "; oi p>i=036$:x=(*32 ):y=(*16)+5 u3x<14x>16y,x;6;2;"o" zi |IJ=23:I=2020+J*10 J:.006yD,I:I:J  ** Set up graphics :i="A"̯"U" j=07 a  (i)+j,a j i =a=23641Y\+(23642Z\)*256-22527W:length &i=23296[23417y[:j:i,j:i  ** Graphics definitions A to G: H to N: O to U: 0100,00101110.,01001110N,10100100,00011110,00001110,0100,00001010 00100100$,01001110N,10101110,00100100$,00011110,00001110,00001000,00010100 0100,00001110,00101110.,01000100D,10101110,00011110,0100,00001100 0010 ,01110100t,01110010r,00100101%,01111000x,01110000p,0010 ,01010000P 00100100$,01110010r,01110101u,00100100$,01111000x,01110000p,00010000,00101000( 0010 ,01110000p,01110100t,00100010",01110101u,01111000x,0010 ,001100000 $0010 ,01110000p,01110000p,0010 ,01111000x,01110101u,00100010",001101004 .0010 ,01110000p,01110010r,00100010",0101},01110010r,00100010",01010000P 80100,00001110,01001110N,01000100D,1010,01001110N,01000100D,00001100 BJ32 ,32 ,32 ,32 ,32 ,32 ,32 ,170 L00010000,001110008,001110008,00010000,0100|,001110008,00010000,00101000( VP32 ,33!,33!,32 ,35#,33!,33!,10101010 `10010000,11010000,11010000,10010000,11110000,11010000,10010000,01101010j j00011000,01100110f,01000010B,10111001,10011101,01000010B,01100110f,0001110008 t00011100,01100010b,10010010,10011001,10011001,01001001I,01000110F,001110008 ~G0,0,126~,126~,126~,0,0,0 00100100$,00111100<,00100100$,00100100$,010~,01000010B,01000010B,1 A1,1,1,1,1,1,1,3 Q128,128,128,128,128,128,128,192 I0,255,129,255,36$,24,0,0 k0,0,00010000,00101100,,01111010z,01110111w,11011011,253 e62>,22,33!,160,88X,1,1,2,237,177,201 14,0,62>,6,211,254,6,195,17,12 ,0,16,251,61=,32 ,244,13 ,32 ,239,201,0 Ψ38&,502,1,0,0,219,254,111o,219,254,3,189,40(,250,37%,32 ,246,201 175,221,33!,83S,91[,17,17,0,205,194,4,62>,255,221,33!,0,88X,17,a-(a/256)*256,(a/256),205,194,4,17,100d,0,33!,8,2,205,181,3,201,3,71G,111o,108l,100d,32 ,77M,105i,110n,101e,46.,a-(a/256)*256,(a/256),0,88X,0,0 62>,0,211,254,79O,7,7,7,177,6,64@,33!,192,90Z,119w,35#,16,252,502,72H,92\,201 ** Tired out %21,0;"TIRED OUT "; i=06 (j=25 2?j;0;0,0;"Energy";:.02{# =,i*3+j <j Fi n 700 w** Too heavy xi=03 %21,0;"OVERLOADED"; j=3040(  .02{# =,j j %21,0;"TOO HEAVY!"; j=45-557  .01z# =,j j i:285 ** Unpleasant find 1<.73333y<19dir300,1600@ 2y,x;1;0;2;"";:1800 %21,0;"HARD ROCK "; -450:y,x;"";:j=045-:j K21,0;0;5;"Weight: ";21,7;gold; y,x;1;2;""; 6 ? ** Flood @<.61650r JMw$=16+0+17+1+19+1+"":Blue space Ot$="HIT STREAM" T 1660| q** Rock fall r9w$=16+0+17+2+" ":Red space wt$="ROCK FALL " {** Fill nearby squares |fy=y+1:fx=x 21,0;t$; +fy=19ū(fy,fx)=161700  fy,fx;w$; fy=fy+1:1670 fy=y:fx=x-1 *fx<0ū(fy,fx)=161740  fy,fx;w$; %t$(55)="T"1900l fx=fx-1:1710 fx=x+1 +fx>31ū(fy,fx)=161775  fy,fx;w$; %t$(55)="T"1900l fx=fx+1:1750 6i=300-3:.03{u\,30+i:i K21,0;0;5;"Weight: ";21,7;gold;  ** Move back 'dir=300,y<21y=y-1 dir=330Jx=x+1 &dir=360hy>4y=y+1 &dir=390x=x-1 0 k** Flood vertically lfy=20 vv=fy+1 (v,fx)3 v,fx;1;1;"";  v=v+1 (v,fx)=31930 ** Is the shaft safe? fx15fy>l %21,0;"YOU DROWN ";  700 ** Hit something (y,x)72H2080  %21,0;"FLOODING! "; i=0̥*5 j=-5-10 -1 Jenergy=energy+j*3:0,7;0;5;energy;" " .02{# =,i+j j:i 'energy<1y,x;"";:1980 K21,0;0;5;"Weight: ";21,7;gold;  1800 * 260 3** Back at the bank 4Egold+score<321,0;"CAN'T PAY! ";:700 9score=score+gold-3 >%21,0;"RE-EQUIP "; HH21,18;0;5;score;" ";0,7;skill; Mgold=0:energy=skill Rw2,28;1;"```";:i=2030:.1}L,i:i:2,28;2;5;"```"; W40;5;21,0;"Weight:0 "; \23296[ f%21,0;"MINED OUT "; ki=01 p_.3,19:.2~L,14:.1}L,17:.3,16:.3,12 ui j=030:j  700 ** Allow options ^1:5:3300 :23624H\,24:border+1,3:t=border:k$="" H0,0;6;0;"GOLD MINE!  1983 Simon Goodwin"; H1,0;6;0;" "; D3,6;1;6;0;"SELECT GAME OPTIONS"; `3;20,0;"@ "; I6;0;19,0;" "; A6,1;"Move left """;l$;""" Move right """;r$;"""" A9 ,1;"Move up """;u$;""" Move down """;d$;"""" -12 ,8;"Give up game """;q$;"""" P16,1;"Skill level (1=low 4=high) """;6-skill/500;"""" ?6,12 ;1;l$;:2300:k$=c$2265 l$=k$ ?6,29;1;r$;:2300:k$=c$2270 r$=k$:r$=l$2265 ?9 ,12 ;1;u$;:2300:k$=c$2275  u$=k$:u$=l$u$=r$2270 ?9 ,29;1;d$;:2300:k$=c$2280 &d$=k$:d$=l$d$=r$d$=u$2275 @12 ,22;1;q$;:2300:k$=c$2285 ,q$=k$:q$=l$q$=r$q$=u$q$=d$2280 616,29;1;6-skill/500; 2300:k$=c$2292 k$<"1"k$>"4"2285  skill=3000 -k$*500 T7:0:y=3:m$="":x=624:455:x:100d  3000 ** Get new key =k$2300 k$= 3(k$<"0"k$>"9")(k$<"A"k$>"Z")k$c$2300 <.01z# =,0:k$=c$8;1;0;" ": $8;k$;: _ ** Title `Aborder+1,3:t=border:2:0:3300 jHscore=-1:800 :score=0:gold=0:energy=0 tg0:2:8,0;"       " ~m9 ,0;"             " n10 ,0;"             " n11 ,0;"             " ^12 ,0;"        " $13 ,2;6;"" 16,0;2;6;"o";16,31;"o";19,10 ;"o";18,20;"o";5;1;1;2,0;"PRESS A KEY" y=315 &y=3y,15;5;"!"; !y3y,15;"!"; #y+1,15;7;""; y+2,15;""; N1,15;5;0;(158-((y/2)=(y/2))); ""3000 .1}L,35# y 7 (x=14:y,15;" ";:m$="" 450:""3000 $x=x-1:x>02580 #""3000 ( 440 2 x=x5 7""3000 < y,x;""; Fj=02:j P y,x;""; Zj=03:j d y,x;""; nx oj=06:j pm$="":y,x;"" q!y=yy+2:""3000 r450:""3000 s;y,x;m$(22):j=03:j:y,x;""; ty u m$="":j=02:j v"x=xx+11 :""3000 w=450:x=10 X=X+1:1650r:X=X-1 xx y y=y-1 z)x=x-1x+2:""3000 { 450 |;y,x;m$(22):j=01:j:y,x;""; }Lx:1610J:j=1711 -1:y+1,j;1;" ";:j ~ x=X25:""3000  450 ;y,x;m$(22):j=02:j:y,x;""; x y=yy-1-1 450:""3000 ;y,x;m$(22):j=03:j:y,x;""; y m$="":j=02:j x=x31:""3000 450 x Hj=07:y,31;j;9 ;"`";:.01z# =,15:j _gold=gold+(*3+2):.05|L,12 :21,7;0;5;gold; 0x=3026-1:""3000 y,x;""; j=03:j y,x;""; j=02:j x:y,26;"" m$="" )x=x16-1:""3000 450:x y,15;""; j=05:j (y=y4-1:""3000 #y+1,15;2;" "; %y=1516,15;""; $y,15;2;0;""; y-1,15;""; "N1,15;5;0;(158-((y/2)=(y/2))); ,.1}L,37% 6y @*3,15;5;0;""; E 300, J 3000 S ** Set up 2score0border+1,0:t=border s0:0:3300 :1,0;"       " m2,0;"             " m3,0;"             " m4,0;"             " ]5,0;"        " #6,2;6;"" :7:8,2;" 1983,1991 Simon N Goodwin" .10 ,4;"SINCLAIR USER 48K REMIX" Lscore<0900:score=0:border+1,0:t=border 85:13 ,8;1;" SELECT " !*15,8;" S  Start a game" &*17,8;" V  Vary options" 0*19,8;" I  Instructions" :*21,8;" R  Reset system" ?delay=650 A 2 D 600X I-=""sc=sc+1:sc<32400` N$sc=3sc=0:4000 S.01z# =,0 X="S"150 b="V"2200 l"="I"delay=0:4000 q="!"2400` v"R"3140D ?21,0;1;" Clearing memory. Confirm (Y/N) " ="Y"0 ="N"3000 3210 >i=010 :i,0;z$:21-i,0;z$:i   4500 )13 ,10 ;"INSTRUCTIONS"'' "The aim of the game is to mineout gold nuggets. A preliminary survey indicatesthe position of impurities inthe rock. Some of them are gold.Others turn out to be dangerouspatches of flawed rock."  44000 "Watch out for rock-falls andunderground streams. If you digcarefully you will be able toreduce their effects. Sometimesyou will find hard rock, whichyou must dig around. Do not letrock or water clog up the lift!"  44000 @"As you explore underground your";0;6;"Energy"; " will decrease. This ismost noticeable while you diga new tunnel. The more gold youcarry the quicker you tire. ";1;7;"If your energy falls to zero theminer will DIE!"  44000 "You may replenish your energyand deposit gold you have foundby returning to the BANK abovethe mine. There is a set chargeof 3 gold nuggets whenever youuse the bank, so it is best tomake as few visits as possible."  44000 "The lift is the only route fromthe mine to the surface. NB: Youdo not score for gold until ithas been banked. The maximumsafe load for the lift is 15nuggets - if it is overloaded itmay fail";1;7;" - Watch your weight!"  44000 $"GRAPHICS: Lift Hard rock" "<'2;6;"o";:" Gold or rock flaw Miner" ,A'"KEYS:  ";u$;" UP  ";d$;" DOWN  ";q$;" GIVE UP" 6A'"  ";l$;" LEFT  ";r$;" RIGHT ";7;" Good luck!" @44000:delay=650 J 3100 0delay :.01z# =,0 PI=2115-1:I,0;" ":I 15,0;  900:6000p @23613=\,4:23614>\,61=:23659k\,0 :(a+22526W)128"Whoops! VARS have moved!": 233462[ i=23328 [ %i<1200i>3000 0  100d pPborder+1,0:t=border:0:0:3300 :I=0147:I/4+2:I/4+2:I+2,0;" ";I+2,4;" ";I+2,8;" ";I+2,10 ;" ";I+2,17;" ";I+2,23;" ";I+2,25;" ";I+2,29;" " z5I+3,0;" ";I+3,4;" ";I+3,6;" ";I+3,8;" ";I+3,11 ;" ";I+3,13 ;" ";I+3,17;" ";I+3,19;" ";I+3,21;" ";I+3,23;" ";I+3,25;" ";I+3,27;" ";I+3,29;" " 6I+4,0;" ";I+4,4;" ";I+4,6;" ";I+4,8;" ";I+4,11 ;" ";I+4,13 ;" ";I+4,17;" ";I+4,19;" ";I+4,21;" ";I+4,23;" ";I+4,25;" ";I+4,27;" ";I+4,29;" " LI+5,0;" ";I+5,2;" ";I+5,4;" ";I+5,6;" ";I+5,8;" ";I+5,11 ;" ";I+5,13 ;" ";I+5,17;" ";I+5,19;" ";I+5,21;" ";I+5,23;" ";I+5,25;" ";I+5,27;" ";I+5,29;" " I+6,0;" ";I+6,4;" ";I+6,8;" ";I+6,17;" ";I+6,21;" ";I+6,23;" ";I+6,25;" ";I+6,27;" ";I+6,29;" " I+7,2;" " I  ' Snot exactly an easy program to compact.Who is Captain Poke. I Know because its me ' T"BASIC"9998':"PBUFF"23296[,256:"CODE"64700,1000: '64000:"":"" '-23296[:0:0:7:: #  QANMP orded[kilcor  af`telaolnerg x"" X E|8|8Mѷii|8||833|8M2%"\>v>![[-0!Z!>R5[ +& +(##+F+N+bk#>e7>2> Oͫ0&ͧ0>0$ .N $N$.D tr%xp P$ru$xp( pt"ux 0 pp xu"4 pr"}r"PNDND  88|8( !! #!!ААjfBBf8bIF8~~~$<$$~BB$,zw