@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}}  |||DDOS DOSDOS SYS }}}}-}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8}0100 .OPT NOLIST0105 *=$1F000110 BP0115 LDA #2 ;INIT RESET KEY0120 STA 90125 LDA #BP&2550130 STA 20135 L,}DA #BP/2560140 STA 30145 LDA #00150 STA 5800155 STA LN ;LVL VAR=00160 STA SP ;SPD VAR=00165 STA 82 -} ;LMAR=00170 STA JLOCK ;UNLOK JOYSTIK0175 LDA #390180 STA 83 ;RMAR=00185 LDA #70190 JSR GRAPHICS0.}195 LDA #640200 STA 160205 STA 53774 ;NO BREAK0210 LDA #HPOS&2550215 STA $C0 ;DEC ADR L0220 STA PHPOS /} ;HPOS PTR L0225 LDA #HPOS/2560230 STA $C1 ;DEC ADR H0235 STA PHPOS+1 ;HPOS PTR H0240 LDY #00245 MAKEDEC020}50 LDA #$DE ;"DEC ABS,X"0255 STA DECS,Y0260 LDA $C0 ; ADR TO DEC L0265 INY0270 STA DECS,Y0275 LDA $C1 1} ; ADR TO DEC H0280 INY0285 STA DECS,Y0290 LDA $C0 ;INC BY 8 ADR FOR0295 CLC ; 'DEC' INSTR TO0302}0 ADC #$08 ; GET NXT IN LYR0305 STA $C0 ; OF STRS0310 LDA $C10315 ADC #00320 STA $C10325 INY 3};MAKE NXT INSTR.0330 CPY #72 ;DONE ALL?0335 BCC MAKEDEC ;N:CONT0340 LDA #DLII&255 ;Y:INIT ADR TO0345 STA $C0 4} ; MAKE DLI IN0350 LDA #DLII/2560355 STA $C10360 LDA #LT&255 ;INIT PTR TO0365 STA PLT ; LUM TBL0370 LD5}A #LT/2560375 STA PLT+10380 LDX #0 ;#DLI'S DONE0385 OMDLI0390 LDY #0 ;#INSTR'S DONE0395 IMDLI0400 LDA6} DLIP,Y ;GET INSTR.0405 STA ($C0),Y ;PUT IN DLI0410 INY ;NXT BYT0415 CPY #15 ;DONE?0420 BCC IMDL7}I ;N:GET ANOTHER0425 LDA $C0 ;Y:INC ADR WHERE0430 CLC ; DLI IS PUT IN0435 ADC #15 ; MEM0440 8} STA $C00445 LDA $C10450 ADC #00455 STA $C10460 LDA PHPOS ;CHG DLI INSTR0465 CLC ; TBL SO NXT DLI0479}0 ADC #1 ; REFERS TO NXT0475 STA PHPOS ; STAR'S HPOS0480 LDA PHPOS+10485 ADC #00490 STA PHPOS+10495 LDA:} PLT ;SAME FOR LUM.0500 CLC0505 ADC #10510 STA PLT0515 LDA PLT+10520 ADC #00525 STA PLT+10530 INX0535 C;}PX #192 ;DONE 192 DLIS?0540 BCC OMDLI ;N:KEEP MAKING0545 LDA #3 ;Y:ENABLE P/M0550 STA 532770555 STA E<}RP ;LVL 1 PSE0560 LDA #$40 ;PMBASE=$40000565 STA 542790570 LDA #62 ;SDMCTL=SGL LINE0575 STA 5590580=} LDA #1 ;GRPRIOR0585 STA 6230590 STA 752 ;CURSOR OFF0595 LDA ELVT ;GET LVL 1 SPD0600 STA ELVL >} ;STORE IN PGM0605 LDA #$31 ;INIT MSGS0610 STA LNGM0615 STA SPGM0620 LDA #14 ;SET UP P/M COL0625 STA 704?}0630 STA 7050635 STA 7060640 LDY #00645 TYA0650 BLANKPM0655 STA $4300,Y ;CLR M1-40660 STA $4400,Y ; P00665 @} STA $4500,Y ; P10670 STA $4600,Y ; P20675 INY0680 BNE BLANKPM ;DONE ALL 256?0685 LDX #32 ;Y:X=OFSET TO MA}00690 LDA #$800695 STA X ;INIT CRSHR POS0700 STA Y0705 FM STA $4300,X ;FILL M30710 INX0715 CPX #224 ;B}BOT OF SCREEN?0720 BCC FM ;N:CONT FILL0725 LDX #0 ;Y:INIT STR COLS0730 STX CTR0735 OLP0740 LDY #00745C} ILP0750 LDA C,Y ;GET LUM FROM TBL0755 STA LT,X ;STORE IN BIG TBL0760 INX0765 INY0770 CPY #8 ;DOND}E W/SML TBL?0775 BCC ILP ;N:KEEP XFER0780 INC CTR ;Y:NXT GRP0785 LDA CTR0790 CMP #24 ;DONE W/SCREENE}?0795 BCC OLP ;N:XFER SML TBL0800 LDA #0 ;Y:BLK BCKGROUND0805 STA 7100810 TAX0815 FILL0820 LDA $D20AF}0825 STA HPOS,X ;RND STAR HPOS0830 INX0835 CPX #192 ;DONE 192?0840 BCC FILL ;N:MORE RND HPOS0845 LDA 56G}0 ;Y:SET UP DLI0850 STA $C0 ; LINE0855 LDA 5610860 STA $C10865 LDY #20870 LDA ($C0),Y0875 ORA #$8008H}80 STA ($C0),Y0885 LDA #SVBI&255 ;ADR FOR SETUP0890 STA $0228 ; COUNTDOWN TIMER0895 LDA #SVBI/256 ; ROUTINE0900 I}STA $02290905 LDA #DLI&255 ;DLI ADR0910 STA 5120915 LDA #DLI/2560920 STA 5130925 LDX #00930 INITE0935 LDA $D20AJ}0940 AND #$7F0945 CLC0950 ADC #60 ;RND ENM X0955 STA EX,X0960 AND #$3F ;RND ENM MOVE0965 STA ELIM,X K} ; LIMIT0970 AND #$03 ;RND ENM DX0975 SEC0980 SBC #10985 STA EDX,X0990 REINITY0995 LDA $D20A ;RND ENM Y1L}000 AND #$7F1005 CLC1010 ADC #461015 STA EY,X1020 AND #$03 ;RND ENM DY1025 SEC1030 SBC #11035 BEQ REINITYM} ;NO ZERO DY!1040 STA EDY,X1045 LDA #0 ;MVMENT CTR=01050 STA ECTR,X1055 STA ELOCK,X ;UNLOK ENM1060 LDA #N}$FF ;#VECTS MOVED=1065 STA NV,X ; NEG:ENM ADVANC1070 LDA #5 ;ENM SHP CTR=5=1075 STA ESC,X ; SMALLEO}ST FRAME1080 LDA #71085 STA EP,X ;TMR PSE=71090 STA ET,X ;TMR=71095 INX1100 CPX #3 ;DONE ALL 3 ENMP}?1105 BCC INITE ;N:INIT NEXT1110 LDA ERP ;Y:ENM RTN PSE*8=1115 ASL A ; ENM FIRING PSE1120 ASL A112Q}5 ASL A1130 STA OKF1135 LDA #$701140 STA SHIELD ;INIT SHIELD1145 LDA #$991150 STA REM ;INIT REMAINING115R}5 LDA #0 ;POS 0,01160 STA 6561165 STA 6571170 STA 6581175 TAX ;X=IOCB0=SCRN1180 LDA #11 ;ICS}COM=PUTCHR1185 STA $03421190 LDA #SMSG&255 ;ICBADR=SMSG1195 STA $03441200 LDA #SMSG/2561205 STA $03451210 LDA #15T}8 ;ICBLEN=1581215 STA $03481220 STX $03491225 STX $02FF ;NO CTRL-11230 JSR $E456 ;CIOV1235 ST LDX #0 }`iEgͩjΩ͙j<jk`h0izhi`Hg͝Νh`V}zRUN"D1:TITLE.GM "fgͩjΩ͙j<jk`h0izhi`Hg͝Νh`&  4fxTIMEPIGOLDMINE TITLEC 1987 WILLIAM A. AUSTINd1 +@ X}A1AR@n-@@x(@ THE GOLD MINE} A-@@ Y}(@ ThE gOd Mie A-@@(@ gold MINE A-@@ Z}(@  A-@@(@ te GOLD mine A,-@ [}@6(@ Te mine; A-@@(@ thE GOld MIne A-@ \}@(@ THe GOld MIne AX-@@b(@ THE GOLD MINEg AS-@ ]}@&(@8-@@S(@  A =( By(=( ^} William A. Austin% D:GOLDMINE -@6?%B2A@;2@AP@ _}? B$ -@6@ -APA%6@/2@/2@@ a}*}}QQANDOWRHHBELRESFCWTRAWBEMCBELLRINPAXYCCPHCRRGBWCAXDFALa}EBOWPIVOXXNXRINHOMMEETIMEXOBBCPPSSAPA@@%AX9B'b}@% @'c} !"#$%&'d}()*+,-./0123456e}789:;<=>P?@@ABCDEFf}GHIJKLMNOThe Gold MineBY WILLIAM A. AUSTINCg}. 1987-WILLIAM A. AUSTINVERSION 13.57 +(}%AR@7AA a6-A6-Ah}=6-P:@$H:@,,%@I"@U6-@Pa6-@P '"@6-AP'6-A2g;@,i};@,'6-@%=6-P:$H:@,,%a6-$P:@u$H:@,,%@g6- ̛K (}6-!6-j}3AA?"@K6-%%( ՠŠΠŠ LAAA A0P) B k}5 A6-~D B,@@K9)@D@m"@I"@!(}l}3-@@Y(!YOU CAN'T REST, YOU'RE NOT TIRED!c B m A"@I6-!6--6-3(m}}E-@@n($YOU FEEL RESTED, AND READY FOR WORK.z!6-&@+"@I B (}+6-@n}"@P A@"@Q(} AE3"@R(}6-%)6-3 AFz"@So}(}6-%%+6-76-I-@@j( YOU HAVE  COINS CACHED.t Bz(}g"@Tp}(}6-%%+6-=-@@W( YOU HAVE  COINS.a Bg(}"@U(} AG"q}@V B q"@W(}'-@@8( GOLD ORE: ;(>(V(COINS ON HAND: %Y(\(q(COINS CACHEr}D: 1"@W(('( HERD SIZE: 1 B (} A ś9 (}6-%@#6-/"@s}9 A `" A@! A A@P # AB"@# A!"@t} AS"@("@I(&THE SHAFT WOLF IS CRAWLING BEHIND YOU.S A gM"@!@'u} @!M(!A LARGE SHAFT WOLF IS BEHIND YOU.D"@"@D($THE SHAFT WOLF IS CURLED UP, ASLEEP.V"v}@!@ ' @%V(*THE SHAFT WOLF IS CRAWLING BEHIND YOU.V"@"@%B("THE SHAFT WOLF Iw}S SITTING QUIETLY,V(WATCHING YOU... AD4T B@,@@K9)@D@N Bx}T(}fk"@"@?(YOU'RE IN A SHAFT WOLF TRAP, I B@]-@APa k A hk"y}@h"@?(YOU'RE IN A SHAFT WOLF TRAP, I B@]-@APa k A j/""@z}% B/ A1"@6-&@)"@16-&#"@ B# A 1"@h6-{}%@)"@16-%#"@h B# A "@q ACA"@v(}>(YOU ARE CA|}RRYING  GOLD NUGGETS.A(&"@g AP(& AI"@ A%"@"@% A}}1"@"@ '6-@1 BP%"@"@%% A"@r A#%"@~}y"@% A%%"@y"@% BpS"@y@'@-(}S(THERE IS NO}THING HERE TO OPEN, G"@@ !(}G(THERE IS NOTHING HERE TO RING, C"@i@%!(}}C(THERE IS NOTHING TO EMPTY, %"@i"@%% A"@ Ad"@"}8(YOU'RE NOT IN A TRAP, B B@V-@AZ d A "@ Aq"@ A!} AD A! HELP- (}-@@*( YOU CAN...-( (GO P OR OWN,( (CLIMB OUT OF A} RAP,( (%(SEARCH FOR OLD, ING A BELL,(( &#(PEN A CHEST, MPTY A SACK,&( (SEARCH YOUR ACK,( +(( SE}E HOW HEAVY YOUR GOLD OAD IS,+( )&(HECK YOUR PHYSICAL CONDITION,)( (OR, DECIDE ES OR O.- A! }à՛ %(%(WHAT WOULD YOU LIKE TO DO? #(#((1) REST AND RECUPERATE? (((2) GO TO THE MINE? +(+( (3) EX}CHANGE YOUR ORE FOR COINS? $($((4) GO TO CATTLE AUCTION? 1(1(&(5) HIDE YOUR COINS IN A SECRET CACHE? ++(#(6) TA}KE YOUR COINS FROM THE CACHE? !(!((7) COUNT YOUR CATTLE? '('((8) TRY TO BUY THE PRINCESS? (((9) CURRENT A}SSETS? $ ԛM (}A@=(YOU ARE AT THE MINE ENTRANCE.G BM6-d!6-}(Z(7SOMEONE STOLE YOUR COINS!! YOU SHOULD HAVE HIDDEN THEM!d B A! ЛA=(}! @=(YOU ARE IN A WIDE PASSAGE.:!@ @:(YOU ARE IN A LARGE CAVERN.."@}.(YOU ARE AT A NARROW SHAFT.E!@ @ E(%YOU ARE IN A NARROW, SLOPING PASSAGE.B!@ @}B("YOU ARE AT A STEEPLY SLOPED SHAFT.Z"@Z(FYOU ARE IN A LARGE, CRUDELY MINED CAVERN. THIS IS THE MINE }BOTTOM.<"@(<(%THERE IS A SMALL TUNNEL SLOPING DOWN.J"@(4(THERE ARE WOODEN CHESTS PILEDJ(A}GAINST THE WALL.;!@ @;(YOU ARE IN A TWISTING CAVE.B!@ @B("YOU ARE IN A SLOPE}D, NARROW SHAFT.6"@(6(THERE ARE CHESTS NEAR THE WALL.X"@X(DYOU ARE IN A TUNNEL SO SMALL, YOU M}USTCRAWL ON YOUR HANDS AND KNEES.Q!@ @ Q(1YOU ARE IN A SERIES OF NATURAL TUNNELSAND SHAFTS. :"@ }7(#YOU ARE IN A LARGE, NATURAL CAVERN.:( K"@ 7(#THERE IS AN IRON BELL HANGING FROMH( THE CEILING.K(}<!@  @%<(YOU ARE IN A NARROW CREVICE.9"@%6("YOU ARE IN A HUGE, NATURAL CAVERN.9(Z"@%}?(+ALONG ONE WALL ARE HUNDREDS OF CANVAS BAGS.K"@W6-Z$"@%$W!@%(H(1YOU C}AN'T GO FURTHER DOWN. YOU ARE AT THE BOTTOM.T6-@%W$5$h ԛm"@$r)! @)6-}&@w)!@ @)6-&@|)!@ @!)6-&@!@ 6-&@H(} @!!@;(YOU ARE SHORT OF BREATH.>(H B0f!@ @A(!YOU ARE HAVING TROUBLE BREA}THING.D(X-@@b B0f `!@ @;(YOU ARE GASPING FOR BREATH.>(R-@@}\ B0` \!@ @7(YOUR THROAT IS CLOSING!:(N-@@X B0\ X!} @3(YOU CANNOT BREATH!!6(J-@@T B0X  B0$ ě (} }AB"@ ACP36-$@36-P:A$H:,,%@  ACPH-@@'}( NO GOLD HERE.;-@@u? E(}H$-%6-P:@$H:,,%@-6-$"@6-$@}?"@6-?6-$P:@%$H:@,,%@1(1(YOU HAVE FOUND  NUGGETS 0F GOLD!! 6-%6}-  $ !6-&6-&&j(%(YOU CAN'T CARRY THAT MUCH.((L(YOU ARE CARRYING  NUGGETS.O(}j( YOU LEFT  BEHIND./$0 Û:'! @'6-@?'!@ @'6-@D'}!@ @'6-@I'!@ @!'6-@N!@ 6-@b56-P:$H:,,%@}+"@5 ADpg$v%%6-P:@$H:,,%@{"@ AP}"@ A`}"@ Ap"@ A$$ (}A@P$Š؛0 B-@@0( As}say OfficeH"!-@@H(YOU HAVE NO ORE TO EXCHANGE, 4" B(}1A}A4$16-P:@$H:,,%6-$16-&-@@&( ORE GRADE: "( FOOL'S GO}LD"@( VERY POOR"@(POOR"@(AVERAGE"@(GOOD"@(} VERY GOOD "@ ( MOTHER LODE! B  B  6-%%6-8-@@,(COINS REC}EIVED: 86-( B (}%AA($JA@d(}--@@=( Cattle SaleJ}BUY CATTLE^ B"@+-@@K(THE CATTLE SALE IS OVER, U B[(}^$W%6-P:A$H:}@,,%@7-@@W(CATTLE FOR SALE:  HEAD\%6-P:@F$H:,,%@7-@@\(}PRICE PER HEAD:  GOLD COINS "6-@ B Y-@@9(HOW MANY WOULD YOU LIKE TO} BUY=I"O(}Y BqT !(}!-@@A(NOT THAT MANY AVAILABLE, K BQ(}T$} (}6-$ Q !-@@>(YOU DON'T HAVE ENOUGH GOLD, H BN(}Q$*s-@@6-'6}-Q(YOU JUST BOUGHT  HEAD OF CATTLE.Y6-%a6-&i6-$s B[ (} $\ (}COUNT CATTLE^'}-@@'A@GfF"@2( YOU HAVE  HEAD OF CATTLE.< B F AGpT"6-}@' @J( YOU HAVE  HEAD OF CATTLE.T AGzm%6-P:@$H:,,%@G6-P:@$H:@,},%@S!@P_ Am6-$@| @6-@~-@@!A6-$@}"@ AGP"@ AGU"@ AG`"@ AGe"@ AGp}"@ AGUk&( WOLVES ATE  OF YOUR HERD..6-&1(4(W( YOU HAVE  HEAD OF CATTLE.a Bk }AGg 6-%*(YOU HAD  CALVES BORN.-(0(S( YOU HAVE  HEAD OF CATTLE.] B0g AG:&( YOU HAVE}  HEAD OF CATTLE.0 B : AGr(-(RUSTLERS STOLE  OF YOUR HERD.56-&8(;(^( YOU HAVE  HEAD} OF CATTLE.h Br AGp(+( WILD CATTLE JOINED YOUR HERD.36-%6(9(\( YOU HAVE  HEAD OF CATTLE.f} B0p AGY 6-$-@@F(VALUE OF THE HERD:  GOLD PIECESP BV(}Y$ś6-%}@ AHP6-%@ AHP6-%@ AHP6-%@ AHP6-%@  AHP}@  B0 $$ Λ.6-%@3+("@+(YOUR STOMACH CRAMPS.8/"@/(YOU FE}EL A LITTLE NAUSEOUS.=1"@1(YOUR STOMACH CRAMPS SEVERELY.B,"@,(YOU FEEL VERY NAUSEATED.G("@}((YOU HAVE A HEADACHE.LA"@A(-YOU ARE HAVING PROBLEMS WITH YOUR VISION.QB"@B(.YOU ARE HAV}ING PROBLEMS WITH YOUR BALANCE.V)"@)(YOU ARE ALMOST BLIND.[("@ ((YOU CAN BARELY WALK.`}@ B00$ Λ:"@(7( YOU HEAR SOMETHING RUNNING AWAY.:$(((6-P:@$H:@,,%@}t"@:(&A RAT RAN OVER YOUR FOOT, AND BIT YOU!\6-P:@$H:@,,%@h"@t6-@>}"@2(A RAT RAN OVER AND LICKED YOU!>6-"@ AQr"@5(!YOU BRUSHED AGAINST A S}PIDER WEB.8(Z(A LARGE BLACK SPIDER BIT YOU!h6-%@r AIK"@K(7SOMETHING SLIMY FELL ON YOU!! IT S}TUNGYOU AND FELL OFF."@ AIN"@6("A SMALL BROWN SNAKE BIT YOUR FOOT!D6-%@N AI}"@ AQ "@ AQ0"@  AQU"@ AQe"@ AR}5"@5(!YOU BRUSHED AGAINST A SPIDER WEB.L"@4( A SMALL RED SNAKE BIT YOUR FOOT!B6-%@L AI}q"@5(!YOU BRUSHED AGAINST A SPIDER WEB.8(X(A SMALL RED SPIDER BIT YOU![(g6-@ q AIP"}@ B`$%%6-P:@$H:@,,%@["@[(GA SHAFT WOLF RUNS OUT OF THE DARKNESS,LOOKS AT} YOU AND THEN LOPES AWAY.M"@C(/A SHAFT WOLF RUNS BY, NIPS YOU AND RUNS OFF.M AH_"@U(AA S}HAFT WOLF JUMPS OUT, SLASHES AT YOUWITH HIS TEETH AND RUNS ON!_ AH%$G @D(0YOU HEAR SCRATCHING AND SCA}MPERING BELOW YOU.G$P%6-P:@$H:@,,%@P(YOU ARE ATTACKED BY  GIANT RATS!!6$(THEY BITE YOU} AND RUN AWAY!!,6-%6 AH$ 5 @!2(YOU HEAR SCREAMING FROM BELOW.5$I (}1(#AHEAD OF YOU IS A H}UGE, SLOBBERING,I(SIX-LEGGED THING...8( ( (.( The Beast Of The Deep!8 B;%6-P:@$H:@,,}%@1"@; B0PP( (-(HE BEGINS TO GIBBER AND SCREAM,F(AND THEN RUNS AWAY!!P BX%6-P:A }$H:@,,%A((N(HE LEFT BEHIND  GOLD COINS!!X B 6-%$#H @E(1YOU HEAR SCAMPERIN}G AND SQUEAKING BELOW YOU.!H$(}Y(QHUNDREDS OF RATS ATTACK YOU, BITING AND SCRATCHING!! SUDDENLY, THEY RUN AWAY!e}6-@s6-%@} AH*$-3 @0(YOU HEAR A WHISPER OF WINGS.3$/%%6-P:@$H:@,,%@}2dF( SUDDENLY, / BATS SWOOP DOWN ON YOU, SUCKING YOUR BLOOD!!d(THEY BITE, AND FLY AWAY!!3 6-% AH}4/6-$@6-&% @/ B0 7 !6-&6-<_'(YOU ARE SO WEAK YOU MUST LEAVE 7( NUGGETS.}_(YOU ARE NOW CARRYING  NUGGETS.C$P! APZ=:(2A SMALL, WIZENED OLD MAN STEPS OUT OF THE SHADO}WS.=(_Z"@W(CHE LOOKS AT YOU, GRUMBLES AND DISAPPEARS INTO THE DARKNESS.Z$d88(0HE GESTURES AT YOU AN}D VANISHES INTO THE GLOOM.i%%6-P:@$H:@,,%@$o$pқz(%6-P:@$H:,,%@((}"@ Aa"@ Aa "@ AaP"@ Aap"@ Ab}"@ Abp"@ Ac"@ Ac0"@  AcP"@ Acp}"@ Ab@"@ Ac"@ BE$@"@1(YOUR GOLDEN PICK-AXE IS G}ONE!=6-@$?"0(YOU FOUND A GOLDEN PICK AXE!<6-@?$<"@-(YOUR BEETLE CRAWLED AWA}Y!96-<$/",(YOU FOUND A GOLD BEETLE!/([%6-P:@$H:,,%@1"@N(HE BIT }YOU AND RAN AWAY!X AI[$,(HE IS IN YOUR POCKET.)6-@,$>"@/(THE SHAFT WOLF DISAPPEARED.;6}->$ X"I(5A LARGE, SHAGGY SHAFT WOLF HAS BEGUN FOLLOWING YOU!!U6-@X$="@:(&THERE }IS DEAD RED FUNGUS ON THE WALL.=$M"C(/THERE IS SOME RED FUNGUS GROWING ON THE WALL.M A$v"@}@K/)@:@F"@R"@U(g( MMMMM!! GOOD!s6-v$%("@"}% AI($&S A,@@K9)@D@P"@xS$) (}6-@}$8B"@?(+THERE IS SOME DEAD GREEN FUNGUS ON THEWALL.B$:3)(!THERE IS GREEN FUNGUS ON THE WALL3 A=N"}@@K/)@:@N"@AbBe A,@@K9)@}D@P"@V(}b6-@e$D$G$6-(}!6-$$`6"@'(YOUR RING IS GO}NE!!36-6$e9"*(YOU FOUND A BONE RING.66-@9$~J%6-P:A$H:,,%@J(YOU HAV}E FOUND  GOLD COINS. 6-%6-$F"@C(/THERE IS SOME DEAD BLACK FUNGUS ON THE WALL.F$?}"5(!THERE IS BLACK FUNGUS ON THE WALL? Ak"@@K/)@:@F"@}I'U6-a6-@%k A \ A,@@K9)@D@P"@\6}-@ (} $B"@?(+THERE IS SOME DEAD WHITE FUNGUS ON THEWALL.B$3)(!THERE IS WHITE FUNGUS ON THE WA}LL3 Ak"@@K/)@:@F"@I'U6-a6-k A\ }A,@@K9)@D@P"@\6-@ (} $C"@4( YOUR CA}TS-EYE NECKLACE IS GONE!!@6-C$5&(YOU FOUND A CATS-EYE NECKLACE.26-@5$;",(YOU FOUND A }RUBY AMULET.86-@;$A"@((YOUR AMULET IS GONE!46-7(A ARB"@)(THE CANARY FL}EW AWAY.56-? BB$m%6-P:@$H:@,,%@1"@; B^(A CANARY LIT ON YOUR SHOULDE}R!j6-@m$0 B#(A CANARY FLEW BY!- B0$$X ( ӛ]7"@4( YOU HEAR A RUMBLING AN}D HISSING.7$b%%6-P:@$H:@,,%@lY"@E(1SOME ROCKS FELL FROM THE CEILING AND STRUCK YOU.O AH}Y B n|"@)(YOU SLIPPED AND FELL3 BP( INTO AN OPEN SHAFT!Z B |6-P:@$H:@},,%@o9"@ AH !6-%-!@%96-@%p?"@ ( A GREEN GAS!* B0(}<"@}?$q="@36-%P:@$H:@,,%@= AIr="@( A RED GAS!( B.(}:"@}=$s)"@6-'@&6-P:,)$t"@ Aqv"@ Aq x@"@!( A PURPLE }GAS!+ B1(}="@@$z1"@16-P:@%$H:@,,%@$C(YOU HAVE FALLEN! B9}( INTOC BG.(& A SHAFT WOLF TRAP!!8 B D6-@G$K%6-P:@$H:},,%@/ AH5(}A"@K A= B"@.(YOU CLIMBED OUT.:6-=$= B}0(YOU SLIPPED AND FELL BACK IN! : AB=$4( A YELLOW GAS! B%(}1"@4$;!(;($}YOU FEEL AS IF YOU HAD LOST WEIGHT!!U6-6-'"@I(THE GOLDEN PICK-AXE VANISHED!U6-}$@ ÛJ(%6-P:@$H:,,%@((T6"@6("THERE ARE WOLF PRINTS IN THE DIRT.V0"@0(}YOU HEAR HOWLING FROM BELOW.XP"@F(2YOU HEAR THE SOUND OF ROCKS FALLING BENEATH YOU.P B ZB"@}B(.YOU SEE EYES GLOWING IN THE DARKNESS AHEAD...\J"@J(6YOU HEAR SQUEAKING AND THE RUSTLE OF WINGS BELOW YOU.}^o"@\(BYOU HEAR A GHOSTLY VOICE FROM BELOW, CALLING 'COME FURTHER DOWN, ,o(FURTHER DOWN!''#$(#}àԠɛ7#(6-%@<#E!@ @;(YOU FEEL A LITTLE FEVERISH.E B0A#Y!@ @ }7(YOU FEEL VERY FEVERISH.K-@@U B0Y F#a!@ @?(YOU FEEL UNSTEADY ON YOUR FEET!}S-@@] B0a K#[!@ @9(YOU'RE ABOUT TO COLLAPSE!M-@@W B0[ }P#@ B0@Y#$Z# ٠ț_#+ (}+(YOU ARE UNHARMED.d#9! @9(YOU HAVE} A FEW SCRATCHES.i#8!@ @8(YOU ARE CUT AND BRUISED.n#>!@ @>(YOU HAVE A FEW SERIO}US WOUNDS.s#=!@ @=(YOU ARE WOUNDED AND BLEEDING.x#B!@ @ B("YOU HAVE SOME NEAR LET}HAL WOUNDS!!#@  B0 #$# ˛# (}#@'%%%%%%%%%%%%"=(YOU HAVE NOTHING.@}$#"@4( YOU HAVE A PIECE OF GREEN FUNGUSO(DO YOU WISH TO EAT IT?n@@K{)@}@#"@x(} A%#!6-6-!(}#"AP#y'(YOU HAVE A PIECE OF }RED FUNGUS.B(DO YOU WISH TO EAT IT?a@@Kn)@y@#"@x(} AP}#@( MMMMM! GOOD!!!6--6-0(6(}@ AP#"A`#{)(!YOU HAVE A PIECE OF BLACK FUNGU}S.D(DO YOU WISH TO EAT IT?c@@Kp)@{@#"@x(} A`#4'6}-6-@%*6-4 A #"Af#{)(!YOU HAVE A PIECE OF WHITE FUNGUS.D(DO YOU WISH TO} EAT IT?c@@Kp)@{@#"@x(} Af#46-'6-}*6-4 A#"Ap#."@+(YOU HAVE A RUBY AMULET..(#9"@6("YOU'RE CARRYING} A GOLDEN PICK AXE.9(#2"@/(YOU'RE WEARING A BONE RING.2(#:"@7(#YOU'RE WEARING A CATS-EYE NECKLAC}E.:(#4"@1(YOU HAVE A SMALL EMERALD COW!4(#9"@6("THERE'S A CANARY ON YOUR SHOULDER!9(#7"@ }4( THERE'S A BEETLE IN YOUR POCKET!7(#/"@,(YOU HAVE A DIAMOND RING!/(# @A#$$(YOU }'RE CARRYING  COINS.#$#!(DO YOU WANT TO EAT IT?!$#( (}%(DO YOU WANT TO PICK IT?($# ӛ$;%6-P: }@%$H:@,,%@1"@; B0`$P!@"'6-@*(M(YOU HAVE FOUND A DIAMOND RING! }P$ $%%6-P:A$H:@,,%A$00( THERE ARE  GOLD PIECES IN THE BAG!! $( 6-%6-%$@ }($!$2!$@(2(THAT'S ALL YOU CAN CARRY!#$86-&$@(8(YOU HAD TO LEAVE  COINS.+$$T$ }ԛm$+%6-P:@ $H:@,,%@+(}n$76-%@!@4(THEY'RE ALL EMPTY!7$o$"@ B0`}q$%!@6-@% ACP$$$ ڛ$""(YOU HEAR LAUGHTER AND.....$6-%@$"@ Ap}$"@ AP$%"@6-@% AP%$%"@6-@% APE$"@ ACP}$"@ A`$V"@16-P:A$H:@,,%@V(YOU HAVE FOUND  GOLD COINS.$#"@}6-%#6-$U!@3(THERE IS A PUFF OF BLUE SMOKE!!?6-K6-U BP%$'V-A}AP32@@7 S2@V$'x-@@P96-P:@%$H:@,,%}AU2@@Y u2@x$$'C -@6?P<2A@}@ C$.'_ -APA6@<2@@@ \2@_$8'C -@}6@<2@P@@ C$t'V-AA32@@7 S2@}V$~'_ -AA6@<2@@@ \2@_$' -@}6? '^2A@;2@A @W2@@P@[ ^$'C -@}6@<2@@@ C$'= -@6@=-A@P6@':2}@/2@@3 7 :$ (< -@6@<-@PA@(P2@}/2@@E2@@I M P$<([-@? ;2@P@W2@}A@[ F(_ -@6? <2@P@X2@A@\ _$( -}@6@4-@@V6-P:@%$H:@,,%@l2@2@%@@}(,!2@%@@% ) ,$(-@+-@@M6-P:@%$H:@,,%@}c2@2@%@@(!2@%@@% ) E2@a2 }@@}2@@$) MOO)w-@@;2AU@!}W2@AP@s2@AU@w ) -AUA6@")c2@@C2"}@&@@@_2@@@c ,)-@@% 6) -@6@#}@)W2A@;2@A@W2@A@J)" -@@% "$*=%$}6-P:@$H:@,,%@1"@=6.BOZO!*"@6.SUCKER!*"@6.TURKEY!*"@%}6.FRIEND!+"@6.MINER!+"@6.CHEAPO!+"@6.COWBOY!+"@6.&}JERK!+"@ 6.COWPOO! +"@6.CHUMP!)+$.%A@(}%TRY/BUY.f"!-'}@@8(THE PRINCESS SAYS:;(Y(YOU'RE NO BELL-RINGER, c Bf$._"!-@@8(THE (}PRINCESS SAYS:;(R(I HAVE NO RING, \ B_$."@6-@.   B!.U (} B0(()}U(7THE KING IS VERY PLEASED WITH YOUR GENEROUS OFFER!!!.(( ((CONGRATULATIONS!( B0.i( ((HERE  B*} *(COMES 4 B >(THE H B U(BRIDE!!!_ B i B/ B@:/ -@6?P+}<2AP@X2@A@t2@AP@2@A@/,} -@6@<2AP@X2@A@t2@AP@2@A-}@?/   $D/ BϠٛN/!6-%@(}! BX/S"@I(.THE KING SMILES AND SAYS,.} 'NOT NEARLY ENOUGH, !'S B]/F"@9(%THE KING FROWNS AND SAYS 'NOT ENOUGH,>(F( b/C"@C/}(-THE KING SAYS ANGRILY, 'AN INSULTING OFFER, g/?"@?(+THE KING FROWNS AND SILENTLY TURNS AWAY.l/T"@0}J(6HE MOTIONS TO A GUARD, WHO SMITES YOU WITH A CLUB.T AHq/J"@J(6THE KING SHAKES HIS HEAD AND WALK1}S AWAY, MUTTERING.v/h"@h(TTHE KING SHOUTS 'YOU INSULT MY DAUGHTER!' AND HITS YOU WITH HIS SCEPTRE!2}x/"@ AH{/5"@5(!THE KING NODS TO HIS EXECUTIONER,|/M"@9(%AND YOU FEEL THE AXE HIT YO3}UR NECK...C BM B@/ B B(} $2F (}/(YOU JUST DIED OF ASPHYXIATION, 2(< BF 4}B@2B(+(YOU JUST DIED OF YOUR WOUNDS, .(8 BB B@2B(+(YOU JUST DIED FROM POISONING, .(8 B5}B B@2=&(YOU DIED OF RAT-BITE FEVER, )(3 B= B@2`( (V(HTHE Beast TORE YOUR THROAT OUT AND 6} RAN AWAY, GIBBERING AND SCREAMING!` B2-(( TOUGH LUCK, # B- B@3[ (}/(THAT ONE WAS FULL OF7} DYNAMITE, Q6-P:A$H:@,,%A[ B 3c-@@?(YOU BLEW YOURSELF INTO  PIECES!!I B8} L(O(Y Bc B@6H(>(3YOUR PRINCESS DIED A WIDOW BEFORE SHE WAS A BRIDE!!H B6} B-@ 9}@"8(ANOTHER GAME, ?B B@a@@Kn)@z"@}%6\"@2(}:}(((2( HERD VALUE: 5(8(G(DOWRY: R@\ B@6 (} B@8 Λ8%%6-P:@$H:@;},,%@8,(YOU HAVE A VISION OF..."(, B8."@ ( A GOLD COIN!.6-%AP83"@'(AN<} EMPTY COIN SACK!36-8G"@"@8(A SHATTERED EMERALD COW!D6-G$8="@6-@>}M.WKrllQQANDOWRHHBELRESFCWTRAWBBELLRINPCCPHCRRGBWDFALWPIVONAM=(AN EMERALD SHAPED LIKE A COW!8,"@ ( A HUGE BELL!,6-@ 8+"@( A DEEP PIT!+6-@%?}85"@!( A HUGE SKULL!+ B5 B@8A"@( YOUR HOME!( B+'76-A A81"@}@!'6-@1 BE 8;"@"'6-@;(A DIAMOND RING!8+"@ ( A DEADA} COW!+6-@8w"@#(A SMILING BULL!I6-%$P:@$H:@,,%@U Aw6-P:@P$H:@B},,%A9$: BELL:-"@(*(THE BELL IS BROKEN.-$:-"@(*(THE BELL IS SILENT.-$:i6-C}@16-P:@$H:@,,%@C-@@f(WRITING APPEARS ON THE BELL...i(;5"@)(A pox onD} your cows...56-;;"@-(May your herd multiply...;6-$@;@"@2(May your strength be E}as ten...@6-$@$;<"@0(May you weaken as a child...<6-@%.;W"@+(May your riches grow..F}.16-?6-$@K AW6-A8;k"@5(!May you be blessed with health...;6-G6-S6-G}_6-k6-B;h"@8($May you be cursed with the plague...D6-@P6-@ \6-@h6-H}@L;%"@6-@% BQ V;%"@ 6-@% BQ0[;6"@*(May I speak no more...66I}-@`;L"@4( May you have a safe trip home...@6-L6-@j;"@/(May you have many thJ}ings...56-C6-$@O6-@[6-@g6-@s6-@6-@6-@6-@6-@K}6-@6-@t;D"@8($May your life and breath be short...D6-@ v;:"@.(May you meet neL}w people...:6-@x;D"@8($May many rustlers visit your cows...D6-@z;c"@3(May fungus groM}w in your pack...?6-@K6-@W6-@c6-@|;%"@6-@% BQP~;%"@6-@N}% BQ`;-@@; -@6?P<2AC@X2@A@O}t2@Ab@2@A!@;   ;%"@6-% A ;%"@6-P}% AQ5'< (} $> Λ> (}>!@Bb>@ @@(,YOU HAVE FOUND THE ROTTING BODY OQ}F A MINER.>-6-$A-6-P:$H:@,,%A>9('(BESIDE HIM IS A SACK WITH 9( GOLD NUGGETS.> 6-%R}6->  $> !6-&6-&>j(%(YOU CAN'T CARRY THAT MUCH.((L(YOU ARE CARRYING  NUGGETS.S}O(j( YOU LEFT  BEHIND.G? B$H?9%6-P:@$H:@,,%@9"@BaR??&(A CAVE GOBLIN ST}TEPS OUT OF THE5( SHADOWS...? B\?"@%Bcf?%%6-P:@$H:@,,%@h?"@BdjU}?"@Be? Ba?I(/($HE TEARS YOUR HEART OUT AND EATS IT!2(5(? BI B@@$@e('(HV}E BITES YOUR FACE, AND THEN*(C(RUNS AWAY, LAUGHING!Q6-%@[ Be AHPs@$t@K(?(4HE TAKES YOUR HAND W}AND LEADS YOU DOWN INTO THE MINE.K6-@%@$hB ؛mB@6-%@!@ (=(THEY'VE ALL BEEN OPENED!@$X}rB9%6-P:@$H:@,,%@9"@B0`|BD%6-P:@$H:@,,%@+(}A(YOU HAVE FOUND...D(Y}B'"@"@'6-@B'"@"@'6-@BK"@(FUNGUS!'6-@36-@Z}?6-@K6-@B"@(NOTHING!B2"@&(A GOLDEN PICK AXE!26-@B)"@( [}A BEETLE!)6-@B$B SELLBl%6-P:@$H:,,%@1"@C-@@X(NO BUYERS TODAY.\}b Bl Br0CU%6-P:@e$H:@,,%@7-@@U(CATTLE WANTED:  HEAD:C\6-P:@$H:]},,%6-&7-@@\(OFFER PER HEAD:  GOLD COINSIC B NCS-@@:(HOW MANY WOULD^} YOU LIKE TO SELL>J"P(}S$PCQ !(}!-@@>(NOT THAT MANY WANTED, H BN(}Q$_}SC (}6-$XCQ !-@@>(YOU DON'T HAVE ENOUGH COWS, H BN(}Q$bC`-@@6-`}>( YOU SOLD  HEAD OF CATTLE.F6-&N6-%V6-$` BC (} $ D:GOLDMINECRRGBWCAXDFALc  $ D:TITLE.GMGOLDMINE TITLEC 1987 WILLIAM A. AUSTINd1 +@ !18 4 1 5 0 10 70 2 12 132William A. Austin About 2,869 words1396 West Troy Fc}irst Serial RightsFerndale, Michigan, 48020 c 1987 William A. Austin(313) 547-1581364-30-2298The Gold Md}ine and the PrincessbyWilliam A. AustinAustin-@4GAME PREMISE:You are a lowly native in the impoverished villagee} of Ferndalia. From the first moment you saw her, you have been madly, hopelessly, eternally in love with the king's daughtef}r. Now, you have but one goal in life, and that is to wed this beautiful princess.The king is agreeable to the wedding, bug}t only if an adequate dowry is paid for his only daughters hand in marriage.But, you are penniless...poor...poverty-strickeq}%B'DOS SYSB+INVASIONSRCBUAUTORUN SYSB WTITLE GM B`GOLDMINE BSbGOLDMINEDOCB1GOLDMINED02n!In Ferndalia, the medium of exchange is cattle, so you must acquire a herd large enough to satisfy the kings greed. The r}only way you can amass a herd a cattle is by purchasing them at the cattle sale. But, how do you obtain the gold necessary ts}o do this?There is but one source of wealth adequate enough to win the princess. The ancient, abandoned gold mine not far t}from the village. There is still gold in those shafts, just waiting for the intrepid miner to dig it out.However, there isu} a very good reason why the mine was abandoned while there was still ore to be dug. Years ago, a fearsome beast suddenly appv}eared in the deeps of the tunnels, and began terrorizing the hapless miners until none would return.No one is certain if thw}e Beast of the Deep is still in the mine, but it is known that the years of abandonment have resulted in dangerous disrepair x}and other deadly denizens have taken up residence, including the fearsome shaft wolves who have moved in and now live in the y}desolate shafts and dark tunnels.And, what of the princess? Her feelings are well known. She has said she would wed any mz}an that would demonstrate profound love for her. How to do this? In an undeniable demonstration of bravery, sincerity and c{}hutzpah by tolling the Bell of Wondrous Things!This legendary Bell is rumoured to be located somewhere deep, deep within th|}e network of caves beneath the mine itself.Oh, yes... There is one other thing! She wants a diamond ring! How could you }}afford such a costly bauble? You could hope for magical means to gain one, but the wait for the vagaries of sorcery could ta~}ke forever. She points out to you that one is reportedly hidden in a canvas bag deep within the mine. You could go there an}d get it, couldn't you?No matter how large your herd, the king will refuse to give you an audience until you have met the d}emands of the princess! You must first toll the bell, and give her the diamond ring before he will give consideration to you}r proposal of marriage.Few foolhardy souls venture into the mine now, and even fewer return.But, you love the Princess, a}nd there is no other route to her nuptial bower...WHAT'S NEEDED TO PLAYTo enter the Gold Mine, you must have an 8-bit At}ari computer with BASIC installed, at least 48K capacity, a disk drive and a sincere willingness to risk all to win the princ}ess.Of course, it wouldn't hurt to have a deep and abiding love of cows in large numbers.HOW TO PLAYThe game is divide}d into two playing arenas, the village and the interior of the mine. When in the village, there is an on-screen menu to guid}e you. Beneath the surface, the action is command driven. The commands are initialized and easy to remember after a few gam}es. Enter an "H" at any time that you are in the mine to get the HELP screen to assist you in your decisions.Only a single} key stroke is necessary to trigger the action, and there is no need for depressing the key. The only exception to thi}s is when you are at the cattle auction. After deciding upon how many you wish to buy or sell, use the key to submit y}our bid. To exit the sale, if you decide the current prices are not to your liking, simply offer a bid of zero. When cattle} prices are high, you may elect to not purchase any, but instead take advantage of inflated prices by selling some of your he}rd. If you decline to purchase, buyers may offer to buy some of your herd. If used judiciously, this type of speculation ma}y help you build your fortune a little quicker.The village also offers you the opportunity to rest. This will result injur}ies being healed, and the effects of poisoning to be lessened, although usually one rest period will not cure you completely.} It will also reduce the effects of rat-bite fever, although it will not cure it.You may also inspect your herd if you cho}ose to. You'll find that many things can occur, ranging from births adding to the number of cows you own, to rustlers plying} their thieving trade. It will also calculate the current market value of your herd.You will have the chance to stash away} in a secure hiding place any coins that you may still have after the cattle sale. It is wise to do this before returning to} the mine. Not everyone in the village is a nice guy, and marauding thieves along the path to the mine delight in sharing yo}ur wealth if you are careless enough to carry gold with you when head back to search for more.The game offers a rich variet}y of options, be certain you are selecting the wisest course of action with your final decision!!TREASURES, CREATURES and }PITFALLSThere are many possible encounters within the mines interior.There are quite a number of different creatures livi}ng within these dark halls and byways. Some are benign, others rather malevolent. Some can be both, dependent upon circumst}ances. It is up to you to determine which is which. Among others, there are the feared Shaft Wolves. They are huge, jet-bl}ack canines with eyes like pools of glittering ink and teeth honed to razor sharpness. There are rats and bats and spiders a}nd snakes and nameless slimy things. All of the lovable types of beasties most likely to be encountered in dark, damp, musty} places.And...possibly still alive...the Beast of the Deep.There are many legendary treasures believed to exist within th}e mine's passages. Village folklore says that there was once a marvelous wizard held captive in the mine and forced to creat}e wondrous tools and artifacts; Golden pick-axes, magical rings and many others. There also is a disturbing tale that says} this wizard is still alive, but driven mad by his long confinement, and prone to cast chaotic spells upon anyone he may now }encounter.The early miners feared the Shaft Wolves so much that they set many traps for them. These traps, and the general} disrepair of the mine create other rather interesting risks...Even in days when the ore was being mined heavily, leaking t}urbulent gases were a major health hazard. There is no reason to believe these gases have dissipated.All in all, an intere}sting place to spend your work day...PLAYING TIPSThe beginning character is quite weak, but every action taken adds to hi}s strength. At the game's inception, you will not be able to remain very long in the cave before you begin to experience bre}athing problems. You'll also find that you will not be able to carry very much gold ore. However, as you toughen and get in}to better condition, these will no longer be problems.Your chances of finding gold, and the amount you may uncover, depends} upon how deep you are. The further you penetrate into the mine's shaft, the more likely you are to find ore, and the larger} the amount that will be gained. If you look for gold at a given level, and do not find any, this does not mean that none is} there. Repeated searching may result in success.There are a variety of monsters you may encounter, and a dazzling array o}f treasures you may acquire. Be conscious of the game changes as a result of these variables, for the consequences can serio}usly effect your chance of success in your romantic mission.As an example, it is possible to contract the dreaded Rat-Bite }Fever from the attack of some, but not all, rodents. Although the disease seems to hang on forever, and seriously curtails y}our ability to mine ore, it can be cured in several different ways. It is up to your miner to discover these methods.There} are a number of different fungal growths and leaking gases in the mine. These, also, can have a profound effect upon your l}ife-span. One of the gases will cause you to stagger in a daze until your mind clears. If you wander in the wrong direction} while under the influence of the gas, it can prove embarrassing. The fungus growth, if eaten, can cause several effects, in}cluding a mind-bending instant trip to the cave bottom!The magic items will take effect immediately upon possession. Their} abilities include, among other things, protection against falling into traps and old shafts.The fabled Bell of Wondrous Th}ings was cast by the Wizard, and, when rung will cause any number of things to occur. The magic of the bell is so powerful t}hat it needs time to recharge between peals, and can not be immediately rerung.Be cautious in your meeting with the beasts }of the mine. While most will nibble upon you, others will protect you, or even sniff out gold for you!Keep in mind that, w}hen offering your herd to the king, he will consider the current market value of the collection, and not just how many head a}re there. It makes sense to buy when cows are cheap, but wait to make your offer until the prices are high! Remember, if yo}u bother the king with repeated pleas to accept your cows, or insult him with a small offering, he can became rather irritabl}e.Many of these activities can result in some bodily damage. It is wise to periodically check your physical condition (inp}ut the letter "C") and not work if you're severely wounded or feeling the effects of poison in your system. Regular rest in }the village will solve these problems and permit recuperation.In short, the world of the Gold mine is a complex one, with m}any shadings and subtleties as well as dangers. Enjoy it, and "Go further down, Digger, further down!"MINE COMMAND SUMMAR}Y:Your may go (U)p or (D)own, climb out of a (T)rap, search for (G)old, (R)ing a bell, (O)pen a chest, (E)mpty a sack, sear}ch your (P)ack, see how heavy your gold (L)oad is, (C)heck your physical condition or decide (Y)es or (N)o.D:GOLDMINE.D02 Fz18 4 1 5 0 10 70 4 12 132SOME SECRETS REVEALEDIf you are the type of player that prefers to gradually learn the} intricacies of a program by experience, then read no further Load up the mine and begin your adventure!However, if you fe}el the need for some advance knowledge of the properties of the magical items, the potential of some of the dangers and the l}ocation of the more fearsome beasts, then the following is a precis of what might be encountered.One of the most desirable }items is the . If you have one of these, he will "sniff out" gold for you, and you will find ore where ever you s}eek it. The will enable you to dig out ore in ten times the amount normally found. Obviously, if you possess} both of these items at the same time, your ventures into the mine will be extremely profitable!The , when carri}ed, has a profound effect upon your herd. One head of cattle per level depth will added every time you descend. (One for le}vel one, two for level two, etc.) The reverse is true as you ascend. A head of cattle, equivalent to the level will be subt}racted. As a result, if you walk down to the tenth level, and back up, ten head will be added to your herd. The affect can }be quite different if you elect to use magical means to teleport down, and then walk up!If the is encountered, he wi}ll cast a spell of varying powers over you. Subsequently, a series of unpredictable occurences will begin. These will last }until a puff of blue smoke indicates that the spell has expired. If you have a , the Wizard cannot cast a spell o}n you.Wearing a will make you quite lucky, and you'll be able to avoid many (but, not all) of the potent}ial disasters such as traps and falling rocks.Slipping the on your finger will protect from oxygen deprivation, a}nd you will be able to go deeper and stay longer without serious respiratory problems.Many creatures, such as snakes and sp}iders, will deliver a poisonous bite. While most are not capable of delivering an instantly lethal amount, if you are alread}y partially poisoned when one bites you, it can be the end of your adventure.Rats abound throughout the mine. While their }bite usually does not inure you seriously, many are infected with the plague, and you can become infected with the dreaded ra}t-bite fever. While rest will will put the disease into remission, the only true cure is gained by eating . (It c}an also be cured magically by the Bell, and there are a few benevolent rats that will cure the disease by licking you, but th}ey can be hard to find when you need them.)Other fungi also grow on the cavern walls. The will completely neu}tralize any poisons in your system. will instantly transport you to the 25th level, the very bottom of the cave}. The will do just the opposite, taking you magically back to the Village.Below the 10th level, Giant rats ma}y be encountered. Their bite is much more severe and can result in serious injuries. Anywhere below the 5th level, rats in }large numbers may attack. Not only will they wound you significantly, the chances of contracting the plague from so many bit}es is much higher. Below the 15th level, bats live in abundance, and may attack with devastating consequences to your health}!And, of course, if the legends are true, below the 20th level lives the .Their are various gases that m}ay suddenly seep from the walls. The gas is very poisonous, the gas will absorb oxygen from your system, the } gas will cause you to temporarily become dazed and wander aimlessly through the mine shafts and the gas will immedia}tely dissolve any gold you may have on you, from the ore to the Golden pickaxe.A magical flies through the mine. If} you are fortunate enough to have him light on your shoulder, you will be protected from the effects of any of the gases as l}ong he stays with you.The has already been mentioned. This unpredictable canine will sometimes nip at you, and }at other times just wander by. Rarely, he will form an attachment to you, and elect to accompany you on your journey. If he} does, the other animals will be frightened away by him and you will be safe from predation.The general magical miasma in t}he mine can result in of various things. These visions can have results ranging from added wealth to instant death.}Below the 10th level, may be encountered. Although the results of these meetings are not always the same, they} are rarely beneficial.The , located at the 20th level, will perform a number of unpredictable actions when rung. It c}annot be instantly rerung. You must go either to the mine entrance or the 25th level and then return before it will again re}spond. If it says that it will "ring no more", nothing can be done to reactivate it.There are several opportunities for in}stant acquisition of wealth. On the 10th level (the bottom of the mine proper) are a number of chests that were used to stor}e gold nuggets. Opening one or more of these will give you instant success. At the 14th level are a number of boxes used at} one time to store magic items and fungus. Some are empty, others contain desirable objects. At the very bottom, the 25th l}evel, there are a large number of canvas sacks that some unknown miner used to store an immense amount of coins (and, one dia}mond ring!). It should be kept in mind, however, that these boxes, crates and sacks were left protected by trip actuated exp}losives. Opening one may result in a very loud, very lethal, bang!One last hint... If your character has made a fatal mis}take, and he and his adventure have been terminated, you may find out what the Dowry and the value of his herd were by pressi}ng the SPACE bar. There is a great variation in the Dowry amount demanded by the king, but this will give you some idea of h}ow badly you missed, or if you died with the Princess within reach...e the type of player that prefers to gradually learn theE ;PSE ABT 1 SEC1240 OP1245 LDY #01250 IP1255 DEY1260 BNE IP1265 DEX1270 BNE OP1275 STX $02FF ;NO CTRL-11}280 LDA 53279 ;CONSOLE KEY1285 CMP #7 ;TOUCHING A KEY?1290 BEQ ST1295 CMP #5 ;SELECT?1300 BNE NSEL}1305 JMP SELECT1310 NSEL CMP #3 ;OPTION?1315 BNE NOPT1320 JMP OPTION1325 NOPT CMP #6 ;START?1330 BNE ST1335 } JMP START1340 OPTION1345 LDX LN ;INC LEVEL NUMBER1350 INX1355 CPX #31360 BCC LNS1365 LDX #01370 LNS STX L}N1375 LDA ELVT,X ;GET ENM LVL1380 STA ELVL ;STORE IN PGM1385 LDA #35 ;POS 33,01390 STA 6571395 LDA #0}1400 STA 6581405 STA 6561410 STA $0348 ;ICBLEN=0:DATA1415 STA $0349 ; STORED IN ACCU.1420 LDA #11 ;IC}COM=PUTCHR1425 STA $03421430 INX ;CHG LVL TO ASCII1435 TXA1440 ORA #$301445 STA LNGM ;STORE IN GMSG}1450 LDX #$00 ;X=IOCB0:SCREEN1455 JSR $E456 ;CIOV1460 JMP ST ;BACK TO PAUSE1465 SELECT1470 LDX SP } ;INC ENM SPD BY 11475 INX1480 CPX #31485 BCC SPS1490 LDX #01495 SPS STX SP1500 LDA ERPT,X ;GET NEW PAUSE15}05 STA ERP ; &STORE IN PGM1510 LDA #35 ;POS 33,11515 STA 6571520 LDA #01525 STA 6581530 STA $0348 };ICBLEN=0:DATA IN1535 STA $0349 ; ACCU.1540 LDA #11545 STA 6561550 LDA #11 ;ICCOM=PUTCHR1555 STA $034215}60 INX ;CHG SPD TO ASCII1565 TXA1570 ORA #$301575 STA SPGM ;STORE IN GMSG1580 LDX #0 ;X=IOCB0:}SCREEN1585 JSR $E456 ;CIOV1590 JMP ST ;BACK TO PAUSE1595 START1600 LDX #0 ;POS 0,01605 STX 656161}0 STX 6571615 STX 6581620 LDA #11 ;ICCOM=PUTCHR1625 STA $3421630 LDA #GMSG&255 ;ICBADR=GMSG1635 STA $034416}40 LDA #GMSG/2561645 STA $03451650 LDA #158 ;ICBLEN=1581655 STA $03481660 LDA #01665 STA $03491670 JSR $E45}6 ;CIOV1675 LDA #1 ;SET FLAG=PUT1680 STA EFLAG ; CRSHAIR ON SCR1685 STA $21A ;ENABLE SET RTN1690 }LDA #1921695 STA 54286 ;ENABLE DLI1700 MAIN1705 LDA $D20F1710 AND #$04 ;PRESSNG ANY KEY?1715 BNE NOSPACE17}20 LDA 537691725 CMP #$21 ;PRESSING SPACE?1730 BNE NOSPACE1735 JSR STPI ;STP ALL INTER.1740 KEYED1745 LDA} $D20F1750 AND #$04 ;STILL PRESSING?1755 BEQ KEYED1760 PAUSED1765 LDA $D20F1770 AND #$04 ;PRESSING A KEY?}1775 BNE PAUSED1780 LDA 537691785 CMP #$21 ;PRESSING SPACE?1790 BNE PAUSED1795 RELEASE1800 LDA $D20F1805 AND} #$04 ;STILL PRESSING?1810 BEQ RELEASE1815 JSR STRI ;RESTART INTER.1820 NOSPACE1825 LDA #01830 STA 77 } ;NO ATTRACT MODE1835 LDA $D010 ;FIRE BUTTON?1840 BNE EFIRE ;N:ENM'S FIRE1845 JMP FIRE ;Y:YOU FIRE1850 }EFIRE1855 LDA OKF ;TIME FOR ENM TO1860 BEQ DOEFIRE ; FIRE?1865 JMP MAIN1870 DOEFIRE1875 LDA ERP ;RESTO}RE ENM FIRE1880 ASL A ; CTR1885 ASL A1890 ASL A1895 STA OKF1900 LDA $D20A1905 ELVL=*+11910 CMP #64 } ;FIRE ACCORDING1915 BCS MAIN ; TO PROBABILITY1920 AND #$031925 CMP #31930 BEQ MAIN1935 TAX ;ENEMY #} FIRING1940 LDA NV,X1945 BEQ MAIN ;IF RECEDING,QUIT1950 BMI MAIN ;IF ADVANCNG,QUIT1955 LDA ELOCK,X1960 BN }E MAIN ;IF LOCKED,QUIT1965 STX EL1970 LDA #$20 ;START ENM LASER1975 STA $D200 ; SOUND1980 LDA #$4F1985 } STA $D2011990 LDA #1 ;LOCK ENEMY1995 STA ELOCK,X2000 LDA #2 ;COLOR 22005 JSR COLOR2010 LDX EL2015  } LDA EY,X ;CHG ENM PLR Y2020 SEC ; INTO GR 7 YPOS2025 SBC #262030 LSR A2035 PHA2040 TAY2045 LDA EX },X ;CHG ENM PLR X2050 SEC ; INTO GR 7 XPOS2055 SBC #452060 PHA2065 TAX2070 LDA #02075 JSR PLOT  } ;PLOT2080 LDA $D20A ;RND YPOS2085 AND #$3F2090 CLC2095 ADC #82100 TAY2105 STA LY2110 LDA $D20A ;RND X}POS2115 AND #$7F2120 CLC2125 ADC #162130 TAX2135 STA LX2140 LDA #02145 JSR DRAWTO ;DRAWTO TO HERE2150 LDA }#64 ;FLASH SCREEN RED2155 STA 7122160 STA 7102165 LDA #0 ;COLOR 02170 JSR COLOR2175 PLA ;STA}RT XPOS FOR2180 TAX ; LASER2185 PLA ;START YPOS FOR2190 TAY ; LASER2195 LDA #02200 JS}R PLOT ;'UNPLOT' THIS PT2205 LDA #0 ;END XPOS FOR2210 LDX LX ; LASER2215 LDY LY ;END YPOS222}0 JSR DRAWTO ;ERASE LINE2225 LDX EL2230 LDA #0 ;UNLOCK ENEMY2235 STA ELOCK,X2240 STA $D200 ;TURN OFF S}OUND2245 STA $D2012250 STA 712 ;BLACKEN SCREEN2255 STA 7102260 LDA SHIELD2265 PHA2270 CMP #22275 BCC LOSE} ;YOU KILLED?2280 JSR STPI2285 SED2290 PLA2295 SEC2300 SBC #2 ;DECREASE SHIELD2305 STA SHIELD2310 P}HA2315 CLD2320 JSR STRI2325 LDA #36 ;POS 36,02330 STA 6572335 LDA #02340 STA 6582345 STA 6562350 PLA23}55 JSR PN ;PRINT NEW SHIELD2360 JMP MAIN ;BACK TO MAIN2365 LOSE2370 LDA #$8F ;DISTORTION,VOL2375 STA} $D201 ; FOR YOUR EXPL2380 STA JLOCK ;LOCK JSTICK2385 LDX #$80 ;EXPL DURATION2390 LO LDY #02395 LI LDA $D2}0A2400 STA $D200 ;RND FREQ2405 STA 712 ;RND COL2410 STA 7102415 DEY2420 BNE LI2425 DEX2430 BNE LO } ;LOOP YOUR EXPL2435 STX $D200 ;TURN OFF SOUND2440 STX $D2012445 STX 712 ;BCK COL=02450 STX 7102455 ST}X 656 ;POS 0,02460 STX 6572465 STX 6582470 LDA #112475 STA $0342 ;ICCOM=PRNCHR2480 LDA #LMSG&255 ;ICBADR=}LMSG2485 STA $03442490 LDA #LMSG/2562495 STA $03452500 LDA #39 ;ICBLEN=392505 STA $03482510 STX $03492515 } JSR $E456 ;CIOV2520 JMP RES ;WAIT FOR RESTART2525 FIRE LDA #$4F ;START YOUR LASER2530 STA $D201 ; SOUND}2535 LDA #12540 STA $D2002545 STA JLOCK ;LOCK JOYSTIK2550 JSR COLOR ;COLOR 12555 LDA #02560 STA 53278 };CLR OLD COLL.2565 LDX #802570 LDY #792575 JSR PLOT ;PLOT 80,792580 LDA X ;CHG CROSSHAIR X2585 SEC } ; TO GR.7 XPOS2590 SBC #452595 PHA2600 TAX2605 LDA Y ;CHG CROSSHAIR Y2610 SEC ; TO GR.7 YP }OS2615 SBC #262620 LSR A2625 PHA2630 TAY2635 LDA #02640 JSR DRAWTO ;DRAWTO TO HERE2645 LDA #02650 JSR COLO!}R ;COLOR 02655 LDA #02660 LDX #802665 LDY #792670 JSR PLOT ;ERASE LASER STRT2675 PLA ;LASER END "}Y2680 TAY2685 PLA ;LASER END X2690 TAX2695 LDA #0 ;TURN OFF SOUND2700 STA $D2002705 STA $D20127#}10 JSR DRAWTO ;ERASE LASER2715 LDA #0 ;UNLOK JOYSTIK2720 STA JLOCK2725 LDA $D008 ;CHECK FOR ANY2730 BE$}Q CH2 ; COLLISIONS2735 JSR HIT2740 CH2 LDA $D0092745 BEQ CH32750 JSR HIT2755 CH3 LDA $D00A2760 BEQ NOHIT2765%} JSR HIT2770 NOHIT2775 JMP EFIRE ;LET ENM FIRE2780 HIT2785 BIT ONE ;HIT P0?2790 BEQ ONEOK2795 LDX #0280&}0 JSR EXPLODE2805 ONEOK2810 BIT TWO ;HIT P1?2815 BEQ TWOOK2820 LDX #12825 JSR EXPLODE2830 TWOOK2835 BIT FO'}UR ;HIT P2?2840 BEQ FOUROK2845 LDX #22850 JSR EXPLODE2855 FOUROK2860 RTS2865 EXPLODE2870 PHA ;SAVE(} COLL REG2875 TXA ;SAVE WHICH ENM2880 PHA ; TO EXPLODE2885 LDA ELOCK,X ;ENM LOCKED?2890 BEQ CAN)}EXP2895 PLA2900 PLA2905 RTS2910 CANEXP PLA ;RESTORE WHICH TO2915 PHA ; EXPL.&SAVE AGN2920 CLC *} ;GET WHICH PLR2925 ADC #$44 ; BAND TO USE2930 STA EXPADR2935 LDA #1 ;LOCK ENEMY2940 STA ELOCK,X2945 +} LDA EY,X ;GET ENM YPOS2950 TAY2955 LDX #02960 EXPLP2965 LDA EXPSHP,X ;PUT EXPLOSION2970 EXPADR=*+22975 STA $,}FF00,Y2980 INX2985 INY2990 CPX #12 ;ALL 12?2995 BCC EXPLP3000 PLA3005 TAX3010 LDA #60 ;KEEP THIS EX-}PL.3015 STA EXPCTR,X ; ON FOR 1 SEC3020 JSR STPI ;STP INT3025 SED3030 LDA REM3035 SEC3040 SBC #13045 STA .}REM ;REM=REM-1(DEC)3050 LDA SHIELD3055 CMP #$993060 BEQ NOIS3065 CLC3070 ADC #13075 STA SHIELD ;SHIELD=S/}HIELD+13080 NOIS CLD3085 JSR STRI ;STR INT3090 LDA REM3095 PHA3100 CMP #3 ;>=3 LEFT?3105 BCS CANR31100} LDA #0 ;CANT RESTORE3115 JMP STORR3120 CANR LDA #1 ;CAN RESTORE3125 STORR STA R,X3130 PLA3135 BEQ WIN 1} ;IF KILL ALL,WIN!3140 LDY #36 ;POS 36,13145 STY 6573150 LDY #03155 STY 6583160 LDY #13165 STY 6563170 2}JSR PN ;PRNT #REMAINING3175 LDA #36 ;POS 36,03180 STA 6573185 LDA #03190 STA 6583195 STA 6563200 LDA3} SHIELD3205 JSR PN ;PRINT NEW SHIELD3210 PLA ;RESTORE COL REG3215 RTS ;BACK TO CALLER3220 W4}IN LDX #0 ;POS 0,03225 STX 6563230 STX 6573235 STX 6583240 LDA #11 ;ICCOM=PUTCHR3245 STA $3423250 LDA #5}WMSG&255 ;ICBADR=WMSG3255 STA $3443260 LDA #WMSG/2563265 STA $3453270 LDA #79 ;ICBLEN=793275 STA $3483280 S6}TX $3493285 JSR $E456 ;CIOV3290 RES LDA 53279 ;PRESSING START?3295 CMP #63300 BNE RES3305 JMP $E474 ;'PRESS7}' RESET3310 PN PHA3315 LSR A ;GET HIGH NIBBLE3320 LSR A3325 LSR A3330 LSR A3335 JSR CA ;PRINT3340 8} PLA3345 AND #$0F ;GET LOW NBL&PRT3350 CA ORA #$30 ;CHG TO ASCII3355 LDX #11 ;ICCOM=PUTCHR3360 STX $3429}3365 LDX #0 ;ICBLEN=0=DATA IN3370 STX $348 ; ACCU.3375 STX $3493380 JMP $E456 ;CIOV3385 STPI3390 LD:}A #$80 ;STOP INTERRUPTS3395 STA $D40E3400 SEI3405 RTS3410 STRI LDA #$C0 ;ENABLE INTER.'S3415 STA $D40E3420 C;}LI3425 RTS3430 SVBI3435 LDA #DVBI&255 ;ENABLE DEF VBI3440 STA $02243445 LDA #DVBI/2563450 STA $02253455 LDA #IVB<}I&255 ;ENABLE IMM VBI3460 STA $02223465 LDA #IVBI/2563470 STA $02233475 LDA #CRTN&255 ;ENABLE CTDN TMR3480 STA $022=}8 ; ROUTINE3485 LDA #CRTN/2563490 STA $02293495 LDA #13500 STA $021A3505 RTS3510 CRTN3515 LDA #03520 STA $>}02FF ;NO CTRL-13525 INC 708 ;PULSE YOUR LASER3530 LDA OKF ;UPDATE OKF (ENM3535 BEQ NUOKF ; FIRE CTR?})3540 DEC OKF3545 NUOKF3550 LDX #23555 CKEXP3560 LDA EXPCTR,X ;ENM EXPLODING?3565 BEQ NXEXP3570 DEC EXPCTR,X ;D@}EC EXPL CTR3575 BEQ STPEXP ;IF DONE EXP,STOP3580 LDA #$20 ;ELSE,KEEP EXPL3585 STA $D202 ; SOUND ON3590 LDA}A #$0F3595 STA $D2033600 NXEXP DEX3605 BPL CKEXP ;DONE ALL ENM'S?3610 LDA #1 ;RESET CTDN TMR3615 STA $21AB}3620 RTS3625 STPEXP3630 TXA3635 PHA3640 CLC ;GET WHICH PLR3645 ADC #$44 ; BAND TO USE3650 STA EREC}XAD3655 LDA EY,X3660 TAY3665 LDA #03670 STA $D202 ;STOP EXPL SOUND3675 STA $D2033680 TAX3685 EREX3690 EREXAD}D=*+23695 STA $FF00,Y ;ERASE EXPL3700 INX3705 INY3710 CPX #12 ;DONE ERASING?3715 BCC EREX3720 PLA3725 TE}AX3730 LDA $D20A ;RND XPOS3735 AND #$7F3740 CLC3745 ADC #603750 STA EX,X3755 LDA $D20A ;RND YPOS3760 ANF}D #$7F3765 CLC3770 ADC #463775 STA EY,X3780 LDA #$FF ;ENEMY=ADVANCING3785 STA NV,X3790 LDA #03795 STA 5327G}8 ;NO COLL W/EXPL.3800 LDA #5 ;ENEMY=STARTS3805 STA ESC,X ; OUT SMALL3810 LDA #73815 STA ET,X ;ENH}M TMR=73820 STA EP,X ;ENM TMR PSE=73825 LDA R,X3830 BEQ NOU ;CAN WE UNLOK?3835 LDA #03840 STA ELOCK,X I};UNLOK3845 NOU JMP NXEXP ;NXT EXPL.3850 DVBI3855 INC S1 ;STAR1 CTR=..+13860 INC S2 ; 23865 INC S3 J} ; 33870 INC S4 ; 43875 INC S5 ; 53880 INC S6 ; 63885 INC S7 ; 73890 INC S8 ; K}83895 LDX #03900 PAUSE3905 LDA S1,X ;NEED TO RESET3910 CMP PS,X ; THIS CTR?3915 BCC SKIP3920 LDA #0 L} ;RESET CTR3925 STA S1,X3930 JSR DECS ;AND MOV THE STRS3935 CPX #13940 BCS SKIP3945 JSR DECS3950 SKIP3955 M} INX ;NEXT LEVEL3960 CPX #8 ;DONE ALL 8 LVLS?3965 BCC PAUSE3970 JMP $E462 ;RET TO SYSTEM3975 DECSN}3980 *=*+72 ;DEC STRS IN LYR3985 RTS ; (CREATED RTNE)3990 DLI3995 PHA ;SAVE REGS4000 TXAO}4005 PHA4010 TYA4015 PHA4020 DLII4025 *=*+2880 ;SET STR HPOS,LUM4030 PLA ;RESTORE REGS4035 TAY404P}0 PLA4045 TAX4050 PLA4055 RTI4060 IVBI4065 LDA JLOCK ;LOCKED JOYSTIK?4070 BEQ JMOVE4075 JMP ERTN4080 JMOVEQ}4085 LDX #14090 CHECKJOY4095 LDA #15 ;GET 15-STICK(0)4100 SEC4105 SBC 6324110 BIT ONE ;UP?4115 BEQ NR}OTONE4120 LDY Y4125 CPY #32 ;IS Y AT TOP?4130 BCC NOTONE4135 DEC Y ;DEC Y TWICE4140 DEC Y4145 STX ES}FLAG ;FLAG-REDRAW4150 NOTONE4155 BIT TWO ;DOWN?4160 BEQ NOTTWO4165 LDY Y4170 CPY #182 ;IS Y AT BOT?4T}175 BCS NOTTWO4180 INC Y ;INC Y TWICE4185 INC Y4190 STX EFLAG ;FLAG-REDRAW4195 NOTTWO4200 BIT FOUR U} ;LEFT?4205 BEQ NOTFOUR4210 LDY X4215 CPY #50 ;IS X LEFTMOST?4220 BCC NOTFOUR4225 DEC X ;DEC X TWICEV}4230 DEC X4235 NOTFOUR4240 BIT EIGHT ;RIGHT?4245 BEQ NOTEIGHT4250 LDY X4255 CPY #201 ;IS X RTMOST?4260 BW}CS NOTEIGHT4265 INC X ;INC X TWICE4270 INC X4275 NOTEIGHT4280 LDX X ;UPDATE XPOS4285 STX $D0044290 X} INX4295 INX4300 STX $D0054305 INX4310 INX4315 STX $D006 ;STORE IN HPOSM24320 LDA EFLAG ;NEED TO REDRAW?Y}4325 BEQ ERTN ;N:MOVE ENEMIES4330 LDA #0 ;Y:REDRAW CROSS-4335 STA EFLAG ; HAIR4340 TAX4345 LDY Y435Z}0 PUTLOOP4355 LDA $4300,Y ;GET OLD MBYTE4360 AND #$C0 ;SAVE ONLY M34365 ORA PSHAP,X ;FORCE IN C-HAIR4370 STA[} $4300,Y ;STORE FINAL BYT4375 INX4380 INY4385 CPX #12 ;DONE ALL 12?4390 BCC PUTLOOP4395 ERTN4400 LDA #044\}05 STA EC4410 STA $C0 ;($C0)=PTR TO PLR4415 LDA #$44 ; BAND CURRENTLY4420 STA $C1 ; IN USE4425 LDX ]}EC4430 ELOOP4435 LDA ELOCK,X ;ENEMY LOCKED?4440 BEQ CKTM4445 JMP NEXENM4450 CKTM DEC ET,X ;DEC ENM'S TIMER4455 B^}EQ DOTHISENM ;IF ZERO,MOVE HIM4460 JMP NEXENM ;ELSE DO NEXT ENM4465 DOTHISENM4470 LDA EP,X ;RESET THIS ENM'S447_}5 STA ET,X ; TIMER4480 LDA NV,X ;GET #VECTRS MOVD4485 BEQ DSAPPR ;ZERO=DSAPPR4490 BMI APPEAR ;NEG#=APP`}EAR4495 JMP CONTERTN ;POS#=MOVING4500 DSAPPR4505 STA CTR4510 LDA ESC,X4515 CMP #54520 BCS SETAPR ;DONE DISAPPRa}ING?4525 ASL A4530 CLC4535 ADC ESC,X4540 ASL A4545 ASL A4550 LDY EY,X ;Y=PTR TO ENM PLR4555 TAX b};X=PTR 2 ESHP TBL4560 RECLP4565 LDA ESHAP,X ;GET SHAPE BYTE4570 STA ($C0),Y ;STORE IT IN P04575 INX4580 INY4585c} INC CTR4590 LDA CTR4595 CMP #124600 BCC RECLP4605 LDX EC4610 INC ESC,X ;NEXT FRAME4615 JMP NEXENM ;NXT Ed}NM4620 SETAPR4625 LDA #$FF ;#VECT CTR=NEG #:4630 STA NV,X ; ENM WILL APPEAR4635 LDA EY,X4640 CLC4645 ADCe} #54650 STA EY,X4655 TAY4660 LDA #0 ;ERASE ENEMY4665 STA ($C0),Y4670 LDA $D20A ;RND ENM XPOS4675 AND #f}$7F4680 CLC4685 ADC #604690 STA EX,X4695 LDA $D20A ;RND ENM YPOS4700 AND #$7F4705 CLC4710 ADC #464715 STAg} EY,X4720 JMP NEXENM ;NXT ENM4725 APPEAR4730 DEC ESC,X4735 BMI DNAPPR ;DONE APPEARING?4740 LDA ESC,X4745 ASLh} A4750 CLC4755 ADC ESC,X4760 ASL A4765 ASL A4770 LDY EY,X ;Y=PTR TO ENM PLR4775 TAX ;X=PTR TO SHP i}TBL4780 LDA #04785 STA CTR4790 APLP4795 LDA ESHAP,X ;GET ENM SHP BYT4800 STA ($C0),Y ;PUT IT IN PLR4805 INX48j}10 INY4815 INC CTR4820 LDA CTR ;DONE 12 BYTES?4825 CMP #124830 BCC APLP4835 LDX EC4840 LDA EX,X ;GET k}ENM'S XPOS4845 STA $D000,X ;STORE IN HPOS4850 JMP NEXENM ;NXT ENM4855 DNAPPR4860 LDA $D20A ;RND MAX # VECTRSl}4865 AND #$074870 CLC4875 ADC #44880 STA MNV,X4885 ERP=*+14890 LDA #14895 STA ET,X ;ENM TMR=14900 STA EP,Xm} ;ENM TMR PSE=14905 LDA #14910 STA NV,X ;#VETCS MOVED=14915 JMP NEXENM ;NXT ENM4920 CONTERTN4925 LDA EXn},X ;ENM'S X=..+DX4930 CLC4935 ADC EDX,X4940 STA EX,X4945 CMP #48 ;OFF LEFT EDGE?4950 BCC CEDIR4955 CMPo} #201 ;OFF RIGHT EDG?4960 BCS CEDIR4965 LDA EY,X ;ENM Y=..+DY4970 CLC4975 ADC EDY,X4980 STA EY,X4985 CMp}P #186 ;OFF BOT EDGE?4990 BCS CEDIR4995 CMP #33 ;OFF TOP EDGE?5000 BCC CEDIR5005 INC ECTR,X ;N:INC CTR q}4 ENM5010 LDA ECTR,X ;HAS IT MOVED5015 CMP ELIM,X ; THE LIMIT?5020 BCS CEDIR5025 PUTENM5030 LDY EY,X ;Y=Pr}TR TO ENM PLR5035 LDX #0 ;X=PTR TO SHP TBL5040 PUTELP5045 LDA ESHAP,X ;GET ENM SHAPBYT5050 STA ($C0),Y ;STOs}RE IN ENM PLR5055 INY5060 INX5065 CPX #12 ;DONE ALL 12?5070 BCC PUTELP5075 LDX EC5080 LDA EX,X ;GET ENt}M XPOS5085 STA $D000,X ;STORE IN HPOS5090 NEXENM INC $C1 ;NXT PLR BAND5095 INC EC ;NXT ENM CTR5100 LDX EC u} ;DONE W/ALL 35105 CPX #3 ; ENMS?5110 BCS RETIMM5115 JMP ELOOP ;CONT W/NXT ENM5120 RETIMM5125 JMP $E45v}F ;BACK TO SYSTEM5130 CEDIR5135 LDA EY,X ;RESTORE ENM YPOS5140 SEC5145 SBC EDY,X5150 STA EY,X5155 LDA EX,w}X ;RESTORE ENM XPOS5160 SEC5165 SBC EDX,X5170 STA EX,X5175 INC NV,X ;#VECTS MVED=..+15180 LDA NV,X ;x}LIMIT YET?5185 CMP MNV,X5190 BCC CNTCEDIR5195 LDA #0 ;NV=0:FLAG-ENM5200 STA NV,X ; WILL RECEDE5205 STA y}ESC,X ;RSET ENM SHP CTR5210 LDA #75215 STA ET,X ;ENM TMR=75220 STA EP,X ;ENM TMR PSE=75225 JMP NEXENM z} ;UPDATE NXT ENM5230 CNTCEDIR5235 LDA #0 ;RESET MVEMNT CTR5240 STA ECTR,X5245 LDA 53770 ;SET A NEW5250 A{}ND #$3F ; MOVEMENT LIMIT5255 STA ELIM,X5260 LDA EX,X5265 BPL POSEDX ;IF X=LF,DX=RT5270 BMI NEGEDX ;IF X=RT|},DX=LF5275 NEWEDY LDA EY,X5280 BPL POSEDY ;IF Y=UP,DY=DN5285 BMI NEGEDY ;IF Y=DN,DY=UP5290 JMP PUTENM ;DRAW S}}HAPE5295 POSEDX5300 JSR GETPOS ;GET RND ENM +DX5305 STA EDX,X5310 JMP NEWEDY5315 NEGEDX5320 JSR GETNEG ;GET R~}ND ENM -DX5325 STA EDX,X5330 JMP NEWEDY5335 POSEDY5340 JSR GETPOS ;GET RND ENM +DY5345 STA EDY,X5350 JMP PUTENM}5355 NEGEDY5360 JSR GETNEG ;GET RND ENM -DY5365 STA EDY,X5370 JMP PUTENM5375 GETPOS5380 LDA 53770 ;GET RND 1}-35385 AND #$035390 BEQ GETPOS5395 RTS5400 GETNEG5405 LDA 53770 ;GET RND -1 TO -35410 AND #$035415 BEQ GETNE}G5420 EOR #$FF5425 CLC5430 ADC #15435 RTS5440 ONE5445 .BYTE 1 ;FOR 'BIT' INSTR.5450 TWO5455 .BYTE 2 ; SAME5460} FOUR5465 .BYTE 4 ; SAME5470 EIGHT5475 .BYTE 8 ; SAME5480 Y5485 .BYTE 0 ;CROSSHAIR Y5490 X5495 .BYTE 0 ;CROSSHAIR }X5500 EFLAG5505 .BYTE 0 ;C-HAIR REDRAW FLAG5510 PSHAP5515 .BYTE $00,$00,$0C,$0C,$0C,$3F,$3F,$0C,$0C,$0C,$00,$00 ;CRSSHA}IR SHAPE5520 C5525 .BYTE 14,12,10,8,8,6,4,2 ;STARS' COLOR (LUMINANCE) TABLE5530 S15535 .BYTE 0 ;CTR FOR STAR LAYER 155}40 S25545 .BYTE 0 ; 25550 S35555 .BYTE 0 ; 35560 S45565 .BYTE 0 ; } 45570 S55575 .BYTE 0 ; 55580 S65585 .BYTE 0 ; 65590 S75595 .BYTE 0 ; } 75600 S85605 .BYTE 0 ; 85610 PS5615 .BYTE 1,1,2,3,4,6,9,14 ;STR SPD5620 CTR5625 .BYTE 0 };MISC COUNTER5630 DLIP5635 .BYTE $AD ;"LDA ABSOLUTE"5640 PHPOS5645 .WORD HPOS ; ADR FOR LDA5650 .BYTE $AC ;"LDY ABS}OLUTE"5655 PLT5660 .WORD LT ;ADR FOR LDY5665 .BYTE $8D,$0A,$D4 ;STA WSYNC5670 .BYTE $8D,$07,$D0 ;STA HPOSM35}675 .BYTE $8C,$15,$D0 ;STY COLRM35680 EX5685 .BYTE 0,0,0 ;ENEMY XPOS TABLE5690 EY5695 .BYTE 0,0,0 ;ENEMY YPOS TABLE57}00 ESHAP5705 .BYTE 0,0,0,0,146,186,254,198,0,0,0,05710 .BYTE 0,0,0,0,146,254,198,0,0,0,0,05715 .BYTE 0,0,0,0,84,124,68,}0,0,0,0,05720 .BYTE 0,0,0,0,0,56,0,0,0,0,0,05725 .BYTE 0,0,0,0,0,16,0,0,0,0,0,05730 EDX5735 .BYTE 0,0,0 ;ENEMY DX TABL}E5740 EDY5745 .BYTE 0,0,0 ;ENEMY DY TABLE5750 ECTR5755 .BYTE 0,0,0 ;# STEPS TRAVELED5760 ELIM5765 .BYTE 0,0,0 ;MAX #} STEPS TO XVL5770 NV5775 .BYTE 0,0,0 ;#VECTORS TRAVELED5780 MNV5785 .BYTE 0,0,0 ;MAX VECTS TO XVEL5790 ESC5795 .BYTE} 0,0,0 ;ENM SHAPE CTR5800 EP5805 .BYTE 0,0,0 ;ENM TIMER PAUSES5810 ET5815 .BYTE 0,0,0 ;ENM TIMERS5820 EC5825 .BYTE 0} ;CTR FOR ENM MVEMNT5830 JLOCK5835 .BYTE 05840 ELOCK5845 .BYTE 0,0,0 ;ENM 'LOCK' STATUS5850 EL5855 .BYTE 0 ;}ENEMY FIRING LASER5860 LX5865 .BYTE 0 ;LASER TERMINAL X5870 LY5875 .BYTE 0 ;LASER TERMINAL Y5880 EXPSHP5885 }.BYTE 20,64,10,160,4,17,132,33,4,80,2,40 ;EXPLOS SHAPE5890 EXPCTR5895 .BYTE 0,0,0 ;EXPLOSION COUNTER5900 OKF5905 .BYTE }0 ;ENM OK2FIRE CTR5910 ELVT5915 .BYTE 64,128,192 ;ENM LVL TBL5920 ERPT5925 .BYTE 3,2,1 ;ENM RTN PAUSE TBL5930 LN5}935 .BYTE 0 ;LEVEL #5940 SP5945 .BYTE 0 ;ENEMY SPEED5950 SMSG5955 .BYTE " Π OPTION-Level:1 } "5960 .BYTE " SELECT-Speed:1 "5965 .BYTE " START -Play Game "5970 .BYT}E " 㩠 SPACE -Pause "5975 GMSG5980 .BYTE " Π Shield Energy:70 "5985 .BYTE " } Enemies Left :99 "5990 LNGM=*+375995 .BYTE " Level Number : 1 "6000 SPGM=*+37}6005 .BYTE " 㩠 Enemy Speed : 1 "6010 WMSG6015 .BYTE " Π Ġ¡ՠΡ "6020 } .BYTE " ӠԼ "6025 LMSG6030 .BYTE " ΠYOU LOSE-PUSH START "6035 SHIEL}D .BYTE 0 ;SHIELD ENERGY6040 REM .BYTE 0 ;#ENM LEFT6045 R .BYTE 0,0,0 ;ENM UNLOCK FLAG6050 GRAPHICS6055 PHA ;}SAVE ORIG. #6060 LDX #$60 ;IOCB 6(SCREEN)6065 LDA #12 ;CLOSE #66070 STA $342,X ;(JUST TO BE6075 JSR $E456 } ; SAFE!)6080 LDA #3 ;OPEN #66085 STA $342,X ;COMMAND #6090 LDA #SCRDEV&255 ;ADDR OF "S:"6095 STA $344,X };LO BYTE6100 LDA #SCRDEV/256 ;AND NOW THE6105 STA $345,X ; HI BYTE6110 LDA #1 ;LENGTH OF SCRN6115 STA $348},X ; I.D. IS ONLY6120 LDA #0 ; ONE CHARACTER6125 STA $349,X ; (THE 'S')6130 PLA ;GET IT BACK6135 P}HA ;BUT STILL SAVE6140 EOR #16 ;REVERSE BIT 56145 AND #16 ;KEEP ONLY BIT 56150 CLC ;ADD 12 }TO IT6155 ADC #126160 STA $34A,X ;=ICAX1 SPEC6165 PLA ;ORIG. MODE #=6170 STA $34B,X ; ICAX2 SPEC6175 J}MP $E456 ;AND JMP TO CIO!6180 COLOR6185 STA COLNUM ;STORE IT FOR6190 RTS ; LATER USE6195 POSITION6200 }STY 84 ;VERT POS6205 STX 85 ;HOR POS LO BYTE6210 STA 86 ;HOR POS HI BYTE6215 RTS ;BYE!6220 }PLOT6225 JSR POSITION ;POSITION CURSOR6230 LDX #$60 ;SCREEN (IOCB6)6235 LDA #11 ;PUT CHARS COMD6240 STA $342},X ;STORE IN ICCOM6245 LDA #$00 ;BUFLEN OF ZERO6250 STA $348,X ; MEANS GET/PUT6255 STA $349,X ; DATA TO/FROM}6260 ; THE ACCUM.6265 LDA COLNUM ;PUT COLOR # IN6270 ; ACCU B/C LEN=06275 JMP $E456 ;JM}P TO CIO6280 DRAWTO6285 JSR POSITION ;POSITION CURSR6290 LDX #$60 ;SCRN (IOCB6)6295 LDA #17 ;DRAW LINE CMD63}00 STA $342,X ;STORE IN ICCOM6305 LDA #0 ;ZERO BUF LEN6310 STA $348,X ; B/C NO DATA6315 STA $349,X ; IS XF}ERRED!6320 LDA COLNUM ;STORE COL # IN6325 STA $02FB ; 2FB FOR CIO6330 JMP $E456 ;AND GO TO CIO6335 SCRDEV6340} .BYTE "S" ;SCREEN I.D.6345 COLNUM6350 BRK ;COLOR# STORAGE6355 HPOS6360 *=*+192 ;TBL STR POS6365 LT}6370 *=*+192 ;TBL STR LUM6375 *=$02E06380 .WORD BP ;DOS RUN ADR070 STA $342,X ;(JUST TO BE6075 JSR $E456 N