#:59468,12: 0,15,3: 4,15,3S PROGRAM COPYRIGHT (C) 1980 RON LONGFELLOWk 103 ESPLANADE #35 PACIFICA CA 94044: CURSOR #19 APR 80 BOX 550, GOLETA, CA. 93017 LINES 61000-65000 (C) 1980 CURSOR MAGAZINE: "" AS OF APR 28 809ZPG$"MINER!":NM$"19":62000?d:WnR(X)((TI)X)1DM40:ES125:TC1:CRT3072:LMCRT190:LECRT112:M42"E(15),ES(15),M$(17):S297686M$(0)" "7M$(1)"FUSE WENT OUT"28M$(2)"STAND CLEAR - DANGEROUS EXPLOSION!!"_9M$(3)"UNDERGROUND SPRING - FLOODING!"@M$(4)"ONE MOMENT PLEASE"JM$(5)"YOU MAY BEGIN MINING"KM$(11)"SOLID GRANITE - PICKAXE WON'T DO"LM$(12)"UNSTABLE FOOTING - WATCH OUT!"'MM$(13)"SANDSTONE--EASY DIGGING!"<TI115: E(I):x^ 45,93,45,231,160,229,244,218,231,231,160,229,45,45,45hI115: ES(I):r 0,1,2,42,41,40,80,81,82,122,121,120,160,161,162|T(1,1)31:T(1,2)30:T(2,1)61:T(2,2)60:T(3,1)61:T(3,2)94(""15)" BANK "33)" "E15)"ֳ"33)" ֥"v" PETTA ";13)""33)" ֥"" MINE ";13)"  ߒ"32)" В֥" "13)" "32)" ֥""̤ ";FX1$" --- "~X2$" --- "X1$;I12:X2$;:X2$;:X2$;:X1$;:X1$;:X1$;:I13:X2$;::X1$;:X1$;"":CRT999,102F1540:M1$"MINERV":M2$"   "s""27)M1$:S,20:LM,M:S,0:MS5:1530Z$:Z$""542 S3,16:S2,16:S,0&LM,32:LMLM1:S,20:LM,M:S,00""27)M2$:MS0:1530:580:Z$""Z$:570 =ZZ$Z$:Z$""4DOLMLM:NP=LM+DM:NS=PEEK(NP):GOSUB1610LNZZ$"M"DM40:710eXZZ$"I"DM40:710}bZZ$"J"DM1:720lZZ$"K"DM1:720ZZ$"D"TC2:Z$OZ$:970ZZ$"P"TC3:Z$OZ$:970ZZ$"E"TC4:Z$"":970ZZ$"Q"2000570LMLE808700NPLMDM:NS(NP)DNPCRT160570YNPCRT920570hMS0:15301340:1610:NS(NP)NS160TC1:970NS0NS218NS174NS220NS102NS229NS231NS45570NPCRT190DM11900:570  NS135830:570>NS95LM,32:LMLM40:LM,M:SD2R(10):570U NS2551810:570{*NS147H(F)160:1770:1610:5704LMNP:S,20:LM,M:OLM,32:S,0:1610:570>H(F)160:GNR(3):GAGAGNHM$(7)"FOUND GOLD NUGGET -"(GN)" OZ":MS7R1750:I110:S,102I::\LMNP:LM,M:OLM,32:S,0:@f:[lZ$"5":DM2DM2720npLMLE80570zLECRT82LELEDM:LMLMDM:S,0:1900:570LECRT782LELEDM:LMLMDM:S,0:570E(1)32:E(3)32:DM40ESES5:I115DM40ESES5:I15115LECRT200E(1)45:E(3)45XLEES(I),E(I)::S,ES:SCSC6~A$:A$""LELEDM:LMLE80:870S,0:570TPDM:NS(NP):NS42NPNPDM:NS(NP)NS0NS32NS160NS174NS220NS255570NS32TC4570!(NS220NS255)TC15707NS0(TC3)570KNS0TC3570`TC41210:570|.TC1NS180NS1865708I110: LMTP,T(TC,1)B TC 1150,1170,1180L LMTP,T(TC,2):W120:W:IVTC1SD5`TC2SD35jTC3SD25(t860:NPLMDM:NS(NP):1340:570.~:JS,70:S,0:W1100::[S,20:S,0:vS,50:W120::S,0:MS0:1530LM1,33:MS2:1750:ELLM1I14:(LM1)32OLMLM:LMLM1:LM,M:OLM,32 R(4)1MS1:LM,M:1530:EL,32:SD25:0I130:S,25:EL,161:W120:IS,0:EL,86::EL,32_I150:S,10I:sS,250:LM5,32 J22 :S,0I14:EALM(J40)R(4)I(EA)160(EA)255EA,214:S,250:EA,32:S,0(I:J2LM4,32:SD80:'<M$(15)"YOU'VE GONE BROKE - YOU LOSE!!"<FC0:PTR(40)20SnGP1000PT(PT)hxGP200PT(PT)M$(16)"YOU WIN! CONGRATULATIONS!!"SC0MS15SC10000MS16SCSCSD:SD0:GPGPPTC0SC$" ":GP$SC$" " C0MS161520# "$";GP$;""H "$";SC$;""} MS15MS16:1530:W1500:S,W2::S,0:2000 MS17S,50:1530:W19999::S,0:2000 C1C0: SC$(SC):GP$(GP)" OZ":C1:1470 !"";M$(MS):!MS4:1530+!TG8R(10)