Minermania)))VMiner Mania by Freddie Lewis, from Your Spectrum 16 (Jul.85)** This game is incomplete. Most of the code for screen 7 was missed out in the magazine, and a correction was never printed ** Also, lines 420-440 have been changed to avoid problems with inconsistent results from when scanning the keyboard.  9000(# hi=1000 23296[,"" ,23301[,120x:23305 [,0 de=0 23296[,148 !1:23693\,32 : ("n=05:6,,:n 9 ,0;7;" " @?12 ,0;7;" " J>15,0;7;" " T?18,0;7;" " c57,0;"" m,23301[,120x:23305 [,0 n o 240 r`n=2624-1:21,n;" ":23300[:21,n;"":23300[:n w#de=1:l=5:sc=0 xsr=700 | u=0 }de=0:sr=sr+100d x=21:y=24 <n=1l:21,26+n;8;8;"":n 460051:x,y;8;8;¾23296[ `u=121,0;6;2;"";0;7;"" u=2u=0 u=u+.2~L 460051:x,y;8;8;¾23296[ R="z"y>0y=y-1:x,y;8;8;" ":23296[,148 [="x"y<30y=y+1:x,y-1;8;8;" ":23296[,151 ="p"510 I((y*8)-2,175-(x*8)-4)=1590N J((y*8)+10 ,175-(x*8)-4)=1590N `u=021,0;6;2;"";0;7;"" 460051:x,y;8;8;¾23296[  400 ,23301[,120x:23305 [,0 x<8650 x,y;8;8;" "  n=x-1x-2-1 &n,y;8;8;¾23296[ &$n+1,y;8;8;" " 023300[ :n ? x=x-3 @$x+1,y;8;8;"" D No21,26;" ":23305 [,0:n=02005:23301[,n:23300[:n XAx,y;8;8;" ":x=21:y=24:l=l-1 ]l<1620l b 386 l 10 ,11 ;"GAME OVER" m7n=120x255:23301[,n:23300[:n v 0  10 x,y;8;8;" " n=y26 ,4,n;8;8;8;" "  10 ,4,n;8;8;9 ;" "  10 n n=568127 23504[,n 23500[ '23301[,127-n:23300[ n $23504[,568:23500[  8000@  @n=05:n,0;0;7;1;,,:n *Mn=175175-(6*8)-1:8;*255,n:n /+250:0,31;0;" " 4En=620:n,0;0;0;1;" ":n 9.9 ,4;"";9 ,23;"" :212 ,17;"";18,20;"" =de=1 > 380| Bn=05:n,0;5;1;,,:n:250 18,19;"" I9 ,4;"";9 ,23;" ";12 ,17;"" de=1  380| #n=05:2;,,:n  250 09 ,4;"";9 ,23;" " 18,19;"" 12 ,17;"" de=1d=1900l:  380| 9n=05:n,0;1;,,:n:250 59 ,0;" " 612 ,0;" " 615,0;" " 618,0;" " Hn=620:n,0;0;0;1;" ":n de=1 sr=2000:380| 4.n=05:n,0;6;,,:n > 250 HXn=618:n,0;1;0;0;" ";n,28;" ":n Mde=1 R 380| Wde=1 7n=05:n,0;3;1;,,:n  250 8n=618:n,0;1;6;,,:n r12 ,0;1;0;0;" ";7;" ";0;0;" " de=1  380| en=05:n,0;1:** Rest of code for 7th screen never printed in magazine ** `.n=05:n,0;4;,,:n j 250 t59 ,0;" " ~612 ,0;" " 615,0;" " 618,0;" " de=1 380| 250 9 ,0;,, .9 ,5;1;"NOW THIS IS EASY" de=1 380| (@n=05:n,0;4;6;1;,,:n 2 250 <39 ,0;1;"LAST STAGE LAST STAGE" F612 ,0;" " P<de=1n=0255:60051:n:10 sr=700:380| @&n=021:n,0;,,:n Jsc=sc+*400:1,0;"YOUR SCORE SO FAR:";sc;3,0;"THE HIGH SCORE IS ";("STILL"hi>sc)+("NOT"sc>hi);" ";hi:''("SO YOU HAVE TAKEN IT"sc>hi) T621,0;"PRESS ANY KEY TO SEE NEXT SCREEN" ^ 0: hsr #(]23300[,33!,20,0,17,20,0,195,181,3 #223500[,33!,0,88X,546,579,35#,62>,91[,188,40(,2,24,246,201 #<60000`,14,8,175,229,17,31,0,237,82R,126~,25,23,6,32 ,126~,23,119w,43+,16,250,225,36$,13 ,32 ,233,201 #F14,8,229,17,31,0,25,126~,237,82R,31,6,32 ,126~,31,119w,35#,16,250,225,36$,13 ,32 ,234,201 #K33!,64@,80P,205,122z,234,33!,255,72H,205,96`,234,33!,128,72H,205,122z,234,33!,63?,72H,205,96`,234,201 #P65368X,0,0,127,127,557,43+,20,8,0,0,254,254,236,212,40(,16,81Q,132,18,64@,8,161,247,255,0,0,255,255,255,255,0,0,24,24,8,126~,24,8,8,24,480,480,16,126~,24,38&,66B,64@ #Zs12 ,12 ,8,126~,24,100d,66B,2,24,24,16,126~,24,16,16,24,130,73I,34",144,72H,161,247,255,82R,251,215,126~,235,175,255,255,255,85U,255,0,0,0,0,0 #d0,0,255,255,247,235,20,8,189,126~,255,255,189,66B,165,66B,1,3,5,11 ,23,47/,95_,255,128,192,160,208,232,244,250,255,255,153,153,255,255,153,153,255,66B,36$,24,255,247,235,20,8 #n-102f,255,102f,255,247,235,20,8,129,66B,60<,255,24,102f,165,66B,239,15,39',195,16,37%,73I,1,0,0,255,255,231,195,60<,24 # -1 # 9000(# # c=0 #!a:a>255n=a:9110# #a=-19140# #%c=c+a:n,a:n=n+1:9110# #c28067m"DATA ERROR, TRY CHECKING UDGs FOR ERROR":''"CHECKSUM SHOULD=28067"'"BUT IT =";c:''"DO THESE LOOK CORRECT ": # 3 '"Minermania"2 3MinerManV2))z)/ JUST 16 PAGES TO TYPE NOTHING MUCH  9000(# HI=1000 23296[,"" ,23301[,120x:23305 [,0 DE=0 23296[,148 !1:23693\,32 : ("N=05:6,,:N 9 ,0;7;" " @?12 ,0;7;" " J?15,0;7;" " T?18,0;7;" " c57,0;"" m,23301[,120x:23305 [,0 n o 240 r`N=2624-1:21,N;" ":23300[:21,N;"":23300[:N w#DE=1:L=5:SC=0 xSR=700 | U=0 }DE=0:SR=SR+100d X=21:Y=24 <N=1L:21,26+N;8;8;"":N 460051:X,Y;8;8;¾23296[ aU=121,0;6;2;"";0;7;"": U=2U=0 U=U+.2~L 460051:X,Y;8;8;¾23296[ c65278=189Y>0Y=Y-1:X,Y;8;8;" ":23296[,148 l65278=187Y<30Y=Y+1:X,Y-1;8;8;" ":23296[,151 #57342=190510 I((Y*8)-2,175-(X*8)-4)=1590N J((Y*8)+10 ,175-(X*8)-4)=1590N `U=021,0;6;2;"";0;7;"" 460051:X,Y;8;8;¾23296[  400 ,23301[,120x:23305 [,0 X<8650 X,Y;8;8;" "  N=X-1X-2-1 &N,Y;8;8;¾23296[ &$N+1,Y;8;8;" " 023300[ :N ? X=X-3 @$X+1,Y;8;8;"" D No21,26;" ":23305 [,0:N=02005:23301[,N:23300[:N XAX,Y;8;8;" ":X=21:Y=24:L=L-1 ]L<1620l b 386 l 10 ,11 ;"GAME OVER" m7N=120x255:23301[,N:23300[:N v 0  10 X,Y;8;8;" " N=Y26 ,4,N;8;8;9 ;" "  10 ,4,N;8;8;9 ;" "  10 N N=568127 23504[,N 23500[ '23301[,127-N:23300[ N $23504[,568:23500[  8000@  @N=05:N,0;0;7;1;,,:N *MN=175175-(6*8)-1:8;*255,N:N /+250:0,31;0;" " 4EN=620:N,0;0;0;1;" ":N 9.9 ,4;"";9 ,23;"" :212 ,17;"";18,20;"" =DE=1 > 380| BN=05:N,0;5;1;,,:N:250 18,19;"" J9 ,4;"";9 ,23;" ";12 ,17;"" DE=1  380| #N=05:2;,,:N  250 09 ,4;"";9 ,23;" " 18,19;"" 12 ,17;"" DE=1D=1900l:  380| 9N=05:N,0;1;,,:N:250 59 ,0;" " 612 ,0;" " 615,0;" " 618,0;" " HN=620:N,0;0;0;1;" ":N DE=1 SR=2000:380| 4.N=05:N,0;6;,,:N > 250 HXN=618:N,0;1;0;0;" ";N,28;" ":N MDE=1 R 380| WDE=1 7N=05:N,0;3;1;,,:N  250 8N=618:N,0;1;6;,,:N r12 ,0;1;0;0;" ";7;" ";0;0;" " DE=1  380| 7N=05:N,0;1;1;,,:N  250 59 ,0;" " 612 ,0;" " $615,0;" " .618,0;" " 3DE=1 8 380| `.N=05:N,0;4;,,:N j 250 t59 ,0;" " ~612 ,0;" " 615,0;" " 618,0;" " DE=1 380| 250 9 ,0;,, .9 ,5;1;"NOW THIS IS EASY" DE=1 380| (@N=05:N,0;4;6;1;,,:N 2 250 <39 ,0;1;"LAST STAGE LAST STAGE" F612 ,0;" " P<DE=1N=0255:60051:N:10 SR=700:380| @&N=021:N,0;,,:N JSC=SC+*400:1,0;"YOUR SCORE SO FAR:";SC;3,0;"THE HIGH SCORE IS ";("STILL"HI>SC)+("NOT"SC>HI);" ";HI:''("SO YOU HAVE TAKEN IT"SC>HI) T621,0;"PRESS ANY KEY TO SEE NEXT SCREEN" ^ 0: hSR #(]23300[,33!,20,0,17,20,0,195,181,3 #223500[,33!,0,88X,546,579,35#,62>,91[,188,40(,2,24,246,201 #<60000`,14,8,175,229,17,31,0,237,82R,126~,25,23,6,32 ,126~,23,119w,43+,16,250,225,36$,13 ,32 ,233,201 #F14,8,229,17,31,0,25,126~,237,82R,31,6,32 ,126~,31,119w,35#,16,250,225,36$,13 ,32 ,234,201 #K33!,64@,80P,205,122z,234,33!,255,72H,205,96`,234,33!,128,72H,205,122z,234,33!,63?,72H,205,96`,234,201 #P65368X,0,0,127,127,557,43+,20,8,0,0,254,254,236,212,40(,16,81Q,132,18,64@,8,161,247,255,0,0,255,255,255,255,0,0,24,24,8,126~,24,8,8,24,480,480,16,126~,24,38&,66B,64 @ #Z12 ,12 ,8,126~,24,100d,66B,2,24,24,16,126~,24,16,16,24,130,73I,34",144,72H,161,247,255,82R,251,215,126~,235,175,255,255,255,85U,255,0,0,0,0,0  #d0,0,255,255,247,235,20,8,189,126~,255,255,189,66B,165,66B,1,3,5,11 ,23,47/,95_,255,128,192,160,208,232,244,250,255,255,153,153,255,255,153,153,255,66B,36$,24,255,247,235,20,8 #n-102f,255,102f,255,247,235,20,8,129,66B,60<,255,24,102f,165,66B,239,15,39',195,16,37%,73I,1,0,0,255,255,231,195,60<,24 # -1 # 9000(# # C=0 #!a:a>255n=a:9110# #a=-19140# #%C=C+A:n,a:n=n+1:9110# #C28067m"DATA ERROR, TRY CHEAKING UDG'S FOR ERROR":''"CHEAKSUM SHOULD=28067"'"BUT IT =";C:''"DO THESE LOOK CORRECT ": # 3 '"Minermania"2