=AAK)?) 68l:\||||l88||3`` ||||~2<~||4<||||||4|~ <882n4n884<8YY ||8824|884|8kk 882<l48848gg 882p84n8848 >|88|~2~~8|4<||||4|8~ ģ~~||~~|ģE|~|||||||||<8E88888||~GMGDGG GGG@"0 22#  @P#P#P#`\\\C:?GGG\P#P#Y X![!THP !GD %  K SR P Y.A.S.G. (C) 1992 D MORRIS WRITTEN 30 MAY 1992  9300T$ _sc=0:count=1:lev=1:liv=3:Q=0:scupper=3:TOG=75K 1100L YL=3:X$=L(COUNT,2)+(L(COUNT,2)+1)+(L(COUNT,2)+2) :Y$=L(COUNT,1)+L(COUNT,1)+L(COUNT,1) #COUNT=13 8000@ ( 1500 <250:Q8800`" A!OX=X$OY=Y$OX=OX+X:OY=OY+Y BX$=OX+X$(L) CY$=OY+Y$(L) F1(OY,OX)7ƫ(OY,OX)<1285000 Z4;OY,OX;"" dY$(L),X$(L);" " npPMX=(*32 ):MY=(*19)+2:P=(*8)+1:(MY,MX)7P=0:110n s%MY,MX;7;1;0;P x<.98zG140 $P=P-1:P=0MY,MX;" " (OY,OX)<12860< MY,MX;4;"";1,6-(sc+P);6;2;SC+P;1,11 -(TOG-(sc1+p));6;2;"0";(TOG-(sc1+p)SC1+PTOG);("0"SC1+P> TOG):SC=SC+P:SC1=SC1+P:SC1>90Z1,10 ;6;2;"0" N=1P 250:Q8800`" (OY,OX)75000 X$=OX+X$(L) Y$=OY+Y$(L) L=L+1 OY,OX;4;"" m=17:m AN:P=0:SC1TOG400:COUNT=COUNT+1:20 60< A$= OX=X$:OY=Y$ A$ =L$X=-1:Y=0  A$ =R$X=1:Y=0 A$ =U$X=0:Y=-1 A$ =D$X=0:Y=1 5A$=4300,:#0;1,0,, OX=OX+X:OY=OY+Y: ,0C=7:I$=" ":1:10 6A#0;1,0;C;"DO YOU REALLY WANT TO QUIT (Y/N)" ;A$=:A$=""360h @A$="Y"Q=1: JA$="N"Q=0: TI$=I$+A$:254,*255:0:N=16:I$(I$+1-M$(N,1,1))=M$(N,1,2̯M$(N,1,1)+1)#0;1,0;M$(N,2):502:N=5:I$=" " ^N h$C=C-1:C=-1C=7 m I$>20I$=" " r 3106  C=7 [N=1502:11 ,11 ;C;"WELL DONE!":C=C-1:C=0C=7 bN:13 ,5;"LEVEL BONUS = ";COUNT;" X 100":10 :N=1COUNT:SC=SC+100d 21,6-(sc+P);6;2;SC+P MC=64789:N: LU1110V:l(14,2):n=112 :l(n,1),l(n,2):n: V10 ,10 ,10 ,10 ,10 ,16,10 ,10 ,5,15,5,15,9 ,8,5,15,11 ,15,4,16,8,15,11 ,15 ܣ23676|\,255:0:0:7:0::0;7;0,0;" SCORE NEED HIGH: LIVES LEVEL";31;" ";1,0;6;2;" 0 0000 0 000 000";31;" ":1,6-SC;2;6;SC;1,19-hi;6;2;hi;1,24-scupper;2;6;scupper;1,30-count;6;2;count /sc1=0:P=0:X=-1:Y=0 5;2,0;"";2;6;21,0;" ":n=320:5;n,0;"";n,31;"":n 5;7,0;"";7,31;"";8,0;"";8,31;"";12 ,0;"";12 ,31;"";13 ,0;"";13 ,31;"";17,0;"";17,31;"";18,0;"";18,31;"" 1500+(count*502)  I#0;0,0;1;7;1;N$;31;" ": %n$=" THIS TOOK AGES TO DESIGN": @XN=716:N,13 ;5;"":N:N$=" DIDN'T EXPECT THIS?": riN=716:N,5;6;"";N,20;"":N:N$=" DOUBLE THE DANGER": 1720:n=136$:a,b:a,b;6;"":n:6,4;6;"";6,14;"";6,21;"";8,6;"";8,21;"";10 ,4;"";10 ,25;"";11 ,12 ;" ";12 ,12 ;" ";13 ,4;"";13 ,25;"";15,6;"";15,21;"";17,4;"";17,14;"";17,21;"" n=7152:n,15;5;"";n+1,15;"":n:7,5;5;"";7,22;"";8,5;"";8,26;"";9 ,5;"";9 ,26;"";14,5;"";14,26;"";15,5;"";15,26;"";16,5;"";16,22;"":N$=" A LITTLE MORE COMPLICATED": q7,4,7,10 ,7,14,7,17,7,21,7,27,8,4,8,14,8,17,8,27,9 ,4,9 ,6,9 ,14,9 ,17,9 ,25,9 ,27,10 ,14,10 ,17,13 ,14,13 ,17,14,4,14,6,14,14,14,17,14,25,14,27,15,4,15,14,15,17,15,27,16,4,16,10 ,16,14,16,17,16,21,16,27 a$="":2;6;6,4;a$;6,23;a$;7,5;a$;7,22;a$;8,7;a$;8,20;a$;9 ,10 ;a$;9 ,17;a$;10 ,12 ;"";11 ,13 ;"";12 ,13 ;"";13 ,12 ;"";14,10 ;a$;14,17;a$;15,7;a$;15,20;a$;16,5;a$;16,22;a$;17,4;a$;17,23;a$:N$=" BAD SCREEN DESIGN!": :A$="":5;8,3; A$;8,8;a$;8,12 ;a$;8,17;a$;8,21;a$;8,26;a$;15,3;a$;15,8;a$;15,12 ;a$;15,17;a$;15,21;a$;15,26;a$:a$=" ":5;9 ,3;a$;9 ,8;a$;9 ,8;a$;9 ,12 ;a$;9 ,17;a$;9 ,21;a$;9 ,26;a$;14,3;a$;14,8;a$;14,12 ;a$; 14,17;a$;14,21;a$;14,26;a$ 2a$="":5;10 ,3;a$;10 ,12 ;a$;10 ,21;a$;13 ,3;a$;13 ,12 ;a$;13 ,21;a$:a$=" ":11 ,5;5;a$;11 ,14;a$;11 ,23;a$;12 ,5;a$;12 ,14;a$;12 ,23;a$ 6;9 ,4;"";9 ,9 ;"";9 ,13 ;"";9 ,18;"";9 ,22;"";9 ,27;"";11 ,6;"";11 ,15;"";11 ,24;"";12 ,6;"";12 ,15;"";12 ,24;"";14,4;"";14,9 ;"";14,13 ;"";14,18;"";14,22;"";14,27;"":N$=" EGOTISM!": :N=5206:M=NN+3:O=5266:5;M,O;"":O:M:N:N$=" THIS COULD BE BE TRICKY": l6;6,14;"";7,14;" ";8,14;" ";9 ,14;" ";10 ,4;" ";11 ,4;"";11 ,27;"";12 ,4;"";12 ,27;"";13 ,4;" ";14,14;" ";15,14;" ";16,14;" ";17,14;"" vSN=7152:2;N,15;"";N+1,15;"":N nA$="":11 ,5;2;A$;12 ,5;A$:N$=" ANNOYED?":  1910v 923676|\,254:5;5,3;"";5,14;"";5,24;"";6,3;" ";6,14;" ";6,24;" ";7,3;" ";7,10 ;" ";7,24;" ";8,3;" ";8,10 ;" ";8,26;" ";9 ,3;" ";9 ,10 ;" ";9 ,26;" ";10 ,3;" ";10 ,10 ;" ";10 ,24;" ";11 ,3;" ";11 ,24;" " 15;18,3;"";18,14;"";18,24;"";17,3;" ";17,14;" ";17,24;" ";16,3;" ";16,10 ;" ";16,24;" ";15,3;" ";15,10 ;" ";15,26;" ";14,3;" ";14,10 ;" ";14,26;" ";13 ,3;" ";13 ,10 ;" ";13 ,24;" ";12 ,3;" ";12 ,24;" " a$="":4;6,4;a$;6,15;a$;6,26;a$;7,15;a$;8,11 ;a$;a$;a$;a$;a$;9 ,11 ;a$;a$;a$;a$;a$;11 ,4;a$;11 ,26;a$;12 ,4;a$;12 ,26;a$;;14,11 ;a$;a$;a$;a$;a$;15,11 ;a$;a$;a$;a$;a$;16,15;a$;17,4;a$;17,15;a$;17,26;a$ v1990:n=124:a,b:a,b;4;"":n:23676|\,255:N$=" THE GREEN GRASS OF HOME": Ɲ6,6,6,25,7,4,7,27,8,4,8,27,9 ,4,9 ,27,10 ,4,10 ,27,11 ,6,11 ,25,12 ,6,12 ,25,13 ,4,13 ,27,14,4,14,27,15,4,15,27,16,4,16,27,17,6,17,25 7;2;5,3;" ";5,18;" ";8,6;"";8,21;"";10 ,3;"";10 ,21;"";13 ,3;"";13 ,21;"";15,6;"";15,21;"";18,3;" ";18,18;" ";9 ,10 ;"";9 ,21;"";14,10 ;"";14,21;"" Jn=617:2;7;n,13 ;"";n,18;"":n Hn=69 :7;2;n,3;"";n,28;"":n Jn=1417:7;2;n,3;"";n,28;"":n a$="":5;6,15;a$;7,15;a$;8,15;a$;9 ,15;a$;15,15;a$;16,15;a$;17,15;a$;18,15;a$:N$=" TWISTER": ,23675{\,0:23676|\,254 46;3,1;"";3,21;"";4,1;"";4,21;"";5,1;"";5,25;"";5,29;"";6,1;"";6,25;"";6,29;"";7,1;"";7,29;"";8,1;"";8,29;"";9 ,1;"";9 ,27;"";10 ,1;"";10 ,27;"";11 ,1;"";11 ,29;"";12 ,1;"";12 ,29;""  6;13 ,1;"";13 ,29;"";14,1;"";14,29;"";15,1;"";15,25;" ";16,1;"";16,25;" ";17,1;"";17,23;" ";18,1;"";18,23;" ";19,1;"";19,21;"";20,1;"";20,21;"" V2070:n=18:a,b:a,b;5;1;"";a+1,b;"":n 5,5,5,27,10 ,14,10 ,16,12 ,14,12 ,16,17,3,17,27 V2080 :n=17:a,b:a,b;4;1;"";a+1,b;"":n  y5,7,7,25,7,27,13 ,27,15,27,17,5,17,7 %Mn$=" RIPPEDOFFMANIA":23675{\,88X:23676|\,255: 4m23676|\,254:A$="":2;3,15;A$;4,2;A$;A$;4,7;A$;A$;A$;A$(1);4,15;A$;4,18;A$;A$;A$;A$(1);4,26;A$;a$;5,2;a$;a$;5,7;a$;a$;a$;a$(1);5,15;a$;5,18;a$;a$;a$;a$(1);5,26;a$;a$;7,2;a$;a$;7,7;a$;7,10 ;a$;a$;a$;a$;a$;a$;7,23;a$;7,26;a$;a$;9 ,1;a$;a$;a$(1);9 ,26;a$;a$;a$(1);13 ,1;a$;a$;a$(1);13 ,26;a$;a$;a$(1) >M2;15,2;a$;a$;15,7;a$;a$;a$;a$(1);15,15;a$;15,18;a$;a$;a$;a$(1);15,26;a$;a$;16,5;a$(1);16,26;a$(1);17,1;a$(1);a$;17,5;a$(1);17,7;a$;17,10 ;a$;a$;a$;a$;a$;A$;17,23;A$;17,26;a$(1);17,28;a$;a$(1);18,7;a$;18,15;a$;18,23;a$;19,2;a$;a$;a$;a$;a$;a$;19,15;a$;19,18;a$;a$;a$;a$;a$;a$ HQn=10 12 :2;n,5;a$(1);n,26;a$(1):n RPn=10 12 :7;1;n,1;"";n,27;"":n \52;9 ,5;"";9 ,26;"" f;n$=" AMAZING (TERRIBLE PUN!)":23676|\,255:  .31:23692\,255:3000 C=7:N=130 D11 ,13 ;C;"OUT!!!":C=C-1:C=-1C=7 N 6scupper=scupper-1:scupper=08800`"  20  @ END OF GAME E :0 J4,12 ;4;"WELL DONE";7;6,0;"YOU HAVE COMPLETED THE GAME WHICH HAS NO PLOT. I HOPE YOU ENJOYED PLAYING IT, I ENJOYED WRITING IT!" T$'3;"HI TO ALL THAT KNOW ME" ^c'5;"TO MY BROTHER: THE SPECTRUM STILL REIGNS SUPREME. (HE OWNS AN AMIGA (SNIGGER!))." hG'6;"TO YOU ALL: THANKS FOR SPENDING THE TIME PLAYING MY GAME." rC0,0;0;"":(0,1)"P"8100 |a$="T240O5N5a3#f&7&5&#fga#F&#F&9D5a3#f3&7&5&#fg#fa&a&9g5g3e&7&5&e#fga3#f&7&5&#f#g#fea&#f#ge&b9_5a3aa5aaA3#F&7&5&#FGAO6N5#F&#F&9DO5N5A3#F&7&5&#FG#FA&A&9G5G3E&7&5&O6bCbDaO5N7&5&AG#FE3G&5&DC3A&5&C9_5D5&7&" b$="O5N5#f3d&7&5&de#fa&a&9#f5#f3d&7&5&ded#f&#f&9e5e3#c&7&5&#cde#f3d&5&O3#F&A7A5&&7E5&&7E6#F3#g5abag#feO5N5#F3D&7&5&DE#FA&A&9#F5#F3D&7&5&DED#F&#F&9E5E3C&7&5&GAG7A&5&#FEDb&&ba&&a9_5a5&7&" c$="O3DAaADAaADAaADBA#FDAaAdAaACO4CO3aO4CO3CEFAO4CaO3aO4CcaO3aO4cdaO3aADBO4N7C5e3a#C7E5e3bD7E6C3#g5abag#fedDO3aO4DdDO3aO4DdDO3aO4dba#fdDO3aO4DdDO3aO4DcCO3aO4cceabCCO3aO4CeCO3aO4CdDO3aO4DO3#fO4DdDg3EE7E5a3CC7C5Dba$fd3&"  a$,b$,c$ $N=1200:N:8990# "`236077\,246:6;8,10 ;" !""#$%&'()*+";9 ,10 ;"@ABCDEFGHIJK";10 ,10 ;"`abcdefghijk";11 ,10 ;",-./01)*+234";12 ,10 ;"LMNOPQIJKRST";13 ,10 ;"lmnopqijkrst" "j236077\,font "tn=1200:n #SC>HIHI=SC #(&0:0:7:1: #2:5,12 ;"Y.A.S.G.";8,8;"1. START GAME";10 ,8;"2. KEYBOARD";12 ,8;"3. SINCLAIR";14,8;"4. PROTEK";16,8;"5. DEFINE KEYS";19,0;"WRITTEN BY D MORRIS IN MAY 1992" #723675{\,88X:23676|\,254:0;15,5;4;"";15,25;"";16,5;2;"";16,25;"" #<KEYS=0 #FjKEYS12 ,12 ;"SINCLAIR";14,12 ;"PROTEK";4;10 ,12 ;"KEYBOARD"; #KzKEYS=112 ,12 ;4;"SINCLAIR";7;14,12 ;"PROTEK";10 ,12 ;"KEYBOARD"; #LzKEYS=212 ,12 ;"SINCLAIR";4;14,12 ;"PROTEK";7;10 ,12 ;"KEYBOARD"; #PA$=:A$=""9040P# #ZA$="1"0:5 #dVA$="2"KEYS=0:L$=K$(1):R$=K$(2):U$=K$(3):D$=K$(4) #n6A$="3"KEYS=1:L$="6":R$="7":U$="9":D$="8" #x6A$="4"KEYS=2:L$="5":R$="8":U$="7":D$="6" # A$="5"9120#:90102# # 9030F# #U:5;0,9 ;4;"DEFINE KEYS";5,10 ;6;"LEFT ";:9130#:K$(1)=A$:7,10 ;6;"RIGHT ";:9130#:K$(2)=A$:9 ,10 ;6;"UP ";:9130#:K$(3)=A$:11 ,10 ;6;"DOWN ";:9130#:K$(4)=A$:N=120:N: #A$=:A$=""9130# # 5;A$:MC=64789: $T INIT GAME $^QK$(4):K$(1)="O":K$(2)="P":K$(3)="Q":K$(4)="A" $c L$="O":R$="P":U$="Q":D$="A" $hrfont=249:hi=100d:23658j\,8:236077\,FONT:23675{\,88X:23676|\,255 $r]9340|$:M$(6,2,32 ):N=16:M$(N,1),M$(N,2):N $|&5+"CHEAT","THERES NO CHEAT MODE IN THE GAME",6+"GREETS"," HI TO EVERYONE I KNOW",7+"CREDITS","NONE I WROTE THE ENTIRE PROGRAM",3+"DOM"," COUNT HOLDS THE SECRET",4+"HELP"," WHY SHOULD I?",7+"6031769"," THE INFAMOUS MANIC MINER CHEAT" $ % ENTRY LINE %<63231:100d:9994 ':9300T$:9000(# % &DSAVE ROUTINE. OH YEAH, IN CASE YOU'RE NOT SURE THIS GAME IS PD. &:"YASG"9600% & ' 5a=23637U\+256*23638V\+5:a: '  !  XXd88888ll$H(|(|(<0< <fl0fF8l8~~00 8888888lD8888>> 0`||<|>>>>88<~~z< !TX!UM?U~U* UTTP 7W`7W 7 Рh"D ڬզjJBZZw(7w`Ykg퓀57ŕJ,8x4IRDB5vTM$ZZ$xDD}EUE}ԪB$UUvp &Pz4z4 zz=yqU|}}}}|z$$֪ . aEOPQAond͇ CHEAT THERES NO CHEAT MODE IN THE GAMEGREETS HI TO EVERYONE I KNOW CREDITS NONE I WROTE THE ENTIRE PROGRAM DOM! COUNT HOLDS THE SECRET HELP% WHY SHOULD I? 6031769 THE INFAMOUS MANIC MINER CHEAT r$eyLORPUQDAA9000(#  THE INFAMOUS MANIC MINER CHEAT #^s8MNs8MP P P Pa;3G2G92.),K)6&{Rv>XXd88888ll$H(|(|(<0< <fl0fF8l8~~00 8888888lD8888>> 0`||<|>>>>88<~~z< !TX!UM?U~U* UTTP 7W`7W 7 Рh"D ڬզjJBZZw(7w`Ykg퓀57ŕJ,8x4IRDB5vTM$ZZ$xDD}EUE}ԪB$UUvp &Pz4z4 zz=yqU|}}}}|z$$֪ P