:59468,12A PROGRAM COPYRIGHT (C) 1980 RON LONGFELLOWY 103 ESPLANADE #35q PACIFICA CA 94044w: CURSOR #19 APR 80 BOX 550, GOLETA, CA. 93017 LINES 61000-65000 (C) 1980 CURSOR MAGAZINE: AS OF APR 28 80ZPG$"MINER!":NM$"19":62000$d:<nR(X)((TI)X)1wDM40:ES125:TC1:CRT32768:LMCRT190:LECRT112:M42"E(15),ES(15),M$(17):S594646M$(0)" "7M$(1)"FUSE WENT OUT"8M$(2)"STAND CLEAR - DANGEROUS EXPLOSION!!"E9M$(3)"UNDERGROUND SPRING - FLOODING!"e@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):^^ 45,93,45,231,160,229,244,218,231,231,160,229,45,45,45thI115: 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)" "+15)"ֳ"33)" ֥"\" PETTA ";13)""33)" ֥"" MINE ";13)"  ߒ"32)" В֥" "13)" "32)" ֥""̤ ";, X1$" --- "d X2$" --- "n X1$; I12:X2$;:X2$;:X2$;:X1$;:X1$;:X1$;: I13:X2$;::X1$;:X1$; "":CRT999,102, 1540:M1$"MINERV":M2$"   "Y ""27)M1$:S,20:LM,M:S,0:MS5:1530l Z$:Z$""542 S3,16:S2,16:S,0 &LM,32:LMLM1:S,20:LM,M:S,0 0""27)M2$:MS0:1530:580 :Z$""Z$:570 =ZZ$Z$:Z$"" DOLMLM:NP=LM+DM:NS=PEEK(NP):GOSUB16102 NZZ$"2"DM40:710K XZZ$"8"DM40:710c bZZ$"4"DM1:720z lZZ$"6"DM1:720 ZZ$"D"TC2:Z$OZ$:970 ZZ$"P"TC3:Z$OZ$:970 ZZ$"E"TC4:Z$"":970 ZZ$"Q"2000 570 LMLE80870 NPLMDM:NS(NP)* NPCRT160570? NPCRT920570N MS0:1530g 1340:1610:NS(NP)} NS160TC1:970 NS0NS218NS174NS220NS102NS229NS231NS45570 NPCRT190DM11900:570 NS135830:570$ NS95LM,32:LMLM40:LM,M:SD2R(10):570; NS2551810:570a *NS147H(F)160:1770:1610:570 4LMNP:S,20:LM,M:OLM,32:S,0:1610:570 >H(F)160:GNR(3):GAGAGN HM$(7)"FOUND GOLD NUGGET -"(GN)" OZ":MS7R1750:I110:S,102I: \LMNP:LM,M:OLM,32:S,0:&f:AlZ$"5":DM2DM2720TpLMLE80570zLECRT82LELEDM:LMLMDM:S,0:1900:570LECRT782LELEDM:LMLMDM:S,0:570E(1)32:E(3)32:DM40ESES5:I115DM40ESES5:I1511LECRT200E(1)45:E(3)45>LEES(I),E(I)::S,ES:SCSC6dA$:A$""LELEDM:LMLE80:870rS,0:570TPDM:NS(NP):NS42NPNPDM:NS(NP)NS0NS32NS160NS174NS220NS255570NS32TC4570(NS220NS255)TC1570NS0(TC3)5701NS0TC3570FTC41210:570b.TC1NS180NS186570~8I110: LMTP,T(TC,1)B TC 1150,1170,1180L LMTP,T(TC,2):W120:W:IVTC1SD5`TC2SD35jTC3SD25t860:NPLMDM:NS(NP):1340:570~:0S,70:S,0:W1100::AS,20:S,0:\S,50:W120::S,0:kMS0:1530LM1,33:MS2:1750:ELLM1I14:(LM1)32OLMLM:LMLM1:LM,M:OLM,32R(4)1MS1:LM,M:1530:EL,32:SD25:I130:S,25:EL,161:W120:/S,0:EL,86::EL,32EI150:S,10I:YS,250:LM5,32k 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)209nGP1000PT(PT)NxGP200PT(PT)yM$(16)"YOU WIN! CONGRATULATIONS!!"SC0MS15SC10000MS16SCSCSD:SD0:GPGPPTC0SC$" ":GP$SC$" "C0MS161520 "$";GP$;""."$";SC$;""cMS15MS16:1530:W1500:S,W2::S,0:2000MS17S,50:1530:W19999::S,0:2000C1C0:SC$(SC):GP$(GP)" OZ":C1:1470"";M$(MS):MS4:1530TG8R(10)"C1:I1250D"HLCRT200R(27)(40R(17))R,HL,174:x6"GOLD PRICE":" "@GP600:SC1000:1340:J:TNS174 ^RHR(15)1hH32:MS13rRH3H147|RH4H255NPCRT880RH6RH7H95:MS12+RH8RH9H135:GCGC1ARH9H220:MS11KNP,Hb1530:W1999::uJO:MS3:1530INP6CRT959(I)32I,0:J0:S,35JJ1:J40S,0::SD100:1340:S,0:M$(8)"CAVE-IN! "7&R(4)3GA0M$(8)"CAVE-IN! LOST YOUR GOLD":GA0\0J11:RR(3)40J:S,20010J:I22:ZLMIR:(Z)32(Z)0(Z)174Z,160?I:S,0:JDLM,M:MS8:1750:SD(R(50)SC100):1340:l1930:1950:VG0:VGGPGA,vM$(6)""(GA)" OZ. GOLD WORTH $"(VG)"":MS6:1530LSCSCVG:GA0:1340:1970:~ICRT183LM:LM,32:S,20:LMLM1:LM,M:S,0W150:W:I:I120:J14:LM1J,164S,R(10)10:LM1J,32:J:I:S,0:I110:LM,32:S,20:LMLM1:LM,M:S,0W150:W:I%Z$"6"::Z$:Z$""2010aS2,0:S3,0:"PLAY AGAIN? ";uZ$:Z$""2015Z$"N":"":1000"";9);"CURSOR #";NM$;" ";PG$:" COPYRIGHT (C) 1980 BY RON LONGFELLOWDI110:"";:I$N"RUN A SUCCESSFUL GOLD MINE.E"PRESS RETURN TO BEGIN";ZT$:T$""62120j""::100