@ {|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD`L8"LVh h! 8"ȱ #ȱ ȱ  $%& S! S&%&$8`#"#"  8!HH"L$}} } } } } }}}}}}Q 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`8imiLE`%}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 }+}}+},}BSTART PRGCDOS SYS-} 0`BDELV !B .}`LVUQ   ]   TU J ]L!T  #      TU /} L ? .  t`GBJ V~DEHI B V0dV0}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh1}DEL8HI   0 HI,0 0  9 .G VLO2},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI3} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI4} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO 5}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -6}LLu DEHILV 9 .l 9 .l  `` s$B VBH7}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL8}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e9}1i1232435ޥ<<8}EiͩkΩ͙kCopj`j j`Hi͝Νh`3C3<;}L SAB.FLOG:D"NURkΩ͙kCopj`j j`Hi͝Νh`3C3<hhhhhѩРЈЭi)`28.3333333328.3210757828.2842712528.222823728.1365716928.025286227.88866755 =}27.7263412627.5378527327.3226605127.0801280126.8095132326.509956226.1804634525.8198889725.42691052524.5373864424. >}037008523.4964536322.9128784722.2829032521.6024689920.8666400420.069324319.2028643618.2574185817.2199819316.0727512 ?}614.7901994513.3333333311.63686679.574271076.821127302502202402102302002101901951751751601601451301351 @}25115hѩРЈЭi)`28.3333333328.3210757828.2842712528.222823728.1365716928.025286227.88866755 Z:p:HCMSMLNEHBPRMHSAACCPSCLCMQDGRPDDMQQYHSKXKHPOPPPPMPNNNNHIRROB}OSSXVVVFLACTBXXYDYDOHGCGXTYDZZXXXXYQNQXLBQMLOOXVXVXVDVAAAXC}AAAAx3AA 4&A Z$ ?0 @CA 2A@?@@D}@B2w@@@RA7A@ @"78A2'0@ @!A"E}@9#@ $B2H%A&@h'@ (BAT)++*@+@,@-@.Ap/@B01?Bx)F}r2?dREr3AQ4'05@8TI6@0X$4@7@8@a%D91P@:;@<=>@b6IC?A!@@ %))A@@G}wVB@'8"pC@)D@E@F@ffffG?HApIreJ@!7'BK@2R6#L(dAMNOs4RP"iH}QA R@ %))ST@vU@V@W@ i `XA5Y@%Z@[BcR\BAT]^@_A3`@dI}a)999@,9@<@,9@,9@,&&9@,9@,9@P,999@,9@J}<@,;@8,9@5,+-@@+-@@68<,-  $##9@<@K},9@,.'+@%@'-@@8""(@CHAMPIONSHIP GOLFB36-?06-@'6-?L}36-@L APPV +A` AR0j!!(HOW MANY PLAYERS(1 TO 4)t A~M}* 6-A:,* @)!@A-@(} A**(PLAYER # ENTER YOUR HANDICAP:N},,($***THIS IS NOT YOUR REAL HANDICAP***k+(#THE SMALLER THE HANDICAP YOU CHOSE,Q(!THE FARTHER THE BALL WILL GO WHENO}k(YOU HIT IT (1 TO 18)6-A:,(!! @)!@A 68,-68,-&"68,-P:8,'@P%P}@,& AR@(*** BEGIN GAME ***-@@  AA`-@Q}6-8,9 6-6-!6-'6--6-96-@v($ 6-8,6-6-$6-2-A@R}-AY< AEAR@F'6-!6-@v'6-P% @,%AS}Z!AU!AY@Bd9@'6-?:C:,<<%@,9A@n:&(PLAYER # IT IS YOUT}R TURN.0 AQp: A0x AE A0 (}MARJ(HOLE: SIZE: PAR: DIST:U} ST:M$F A0 AB(PLAYER #, WHAT CLUB WILL YOU USEF6-@ 6-B:,7<,4WV}6-@7<,4I6-@07@<@,4C& A(P0 A06-A:7@<&@,,W}A A A0 A0??+!@,)++!@ ,*+"@,,)+ @,A0 6-P:,6-P:,X}F A@ AB(PLAYER #, WHAT STRENGTH(0 TO 10)F 6-A:,!! )!@A@" ApY} A,0,(PLAYER #, DIRECTION (0 TO 360)0@* 6-A:,* )!A`ApJ06-!ARZ}@$(06-T@A@^6-J:K:,$?,h AP Ar26-6-2-[}@6@|)6-%H:@,%6-%H:@,) 06-'+@&8,,-6-'+@&8,,0$ 6-6-{\}{6-+@'@ $+@&,%@$+@&,,'J:O:?P&,,#+'@,%@@'+J:O:?P&,,#+'@,,6]}-$+'@,$?c$6-@ APhh6-+@0%@$+&@,,%@0$+@&@'J:O:?P^}&,,#+'@,,$N:&?P,9%2@P@@9-@@) )2_}6-$G:,6-$E:,6-6$E:,$?6-$G:,(6-6-6$"@(,6-?:C:,<`}A@<,'AY@B'B2w@&! 6-%$6-%$!6-%$06-: A60D)"a}6-$6-%) A0I A0N @ AI@X Ab&&6-M:+&,#@%+&,#@,lb} A v((6-%M:+&,#@%+&,#@,6-P:$@%,116-P:M:+&,#@%+&,#@,$@%, c}6-6-(}YOU JUST SHOT: 6-%@( YARDS.:*"@$(HOLE IN ONE!!!06-: A 0d}*(CHIP IN! 6-* A 0: 1&"@*O:&, @0 AQp: A %%( YOU HAVE:  YAe}RDS TO GO. AQp A07(}YOU ARE ON THE GREEN7( YARDS FROM THE PIN8(YOU MADE IT IN '( SHOTf}(S)1 AQp8(}968<,-68,-(68<@,-968<@,-  -@6-8,8,"g}A$ 6-****ON THE GREEN***4/6-8<@,%6-8<@,/ A@> A!ARh}H,( }PLAYER #((SPEED (0 TO 10),R 6-A:,\))+ @)!@,*00A!f6-'@P6-?i}z1( }PLAYER #-(DIRECTION (0 TO 360)1. 6-A:,.2@P@@=-@@ j}=2))+ @)!A`,*00A!`"6-G:,$"6-6E:,$$?$6-M:$%k}$,$AR@ ?%A# 6-%$6-%$ 6-$$6-$$76-@%+&,$@76-l}@4%+&,$@##6-?:C:,<%<%@, 1"A#0 A"  %%(}TOO BAD...YOU m}DIDN'T GET IT. % AQp6-%@% A! 77O:&@,!@)O:&@5,!@A$$ 6-?:C:,<@n}<@P,. 68<,-8<,%%@8 %%2A@@B =-@@ =2o}L $$(} *** YOU GOT IT ***V @ AQp6(YOUR SCORE FOR THIS HOLE IS: 8<,@ AQp`   p}j 3!A3B2rt  +A~ AR0 2 A1 ( }ANOTHER GAMq}E2AR # 7@<@,4Y#% -A@-AY@4 'B7tA'r}@A  + (}YOU ARE OFF THE GREEN. &&(I WILL STOP YOUR BALL AND GIVE (YOU A 1-STROKE PENs}ALTY %6-%@ AQp% A! AU AE !AY@B!@ ' @,@vt}'%@A "A% #-@AU#A  A@ $( 6AR@6u}(} CLUB DISTANCE CHART2 )()( WOODS IRONS< .(.(# NO. DIST. NO. DIST.F &(v}6-@&-@@ P =67@,. %67@8,. =67@,.7@,Z '67@,.=:,'67@#w},.=:,d 67@,.=:8,,n 67@1,.=:8%@,,x )67@,.YDS)67@5,.YDS 6-%@(x}  --(% 10 110 YDS --(% 11 100 YDS  A6$ & :ARy}@7(} SHOT DIRECTION CHART:( ( 0( -@@ ( z}|   %%( 270  90 -@@ ( |   ( ( {} 180 ( A6$" , 'A'B2r6  +A@ AR0J|} (} COMMAND MODET (( COMMANDS:(^ (R - RETURN TO GAMEh ( E - END GAMEr (S - SHOW SCORE CARD}}| (F - FLASH THE BALL (C - CLUB DISTANCE CHART (D - SHOT DIRECTION CHART ((ENTER YOUR CHOICE %~}AR%6- 4RA%0 ! 4F6-@! A%0 - 4E6-! A0`-A$} ! 4S6-! A1  4C A&  4D A'@ A( ##(}DO YOU REALLY WANT TO END} 6-6@6-@ / 7@<@,4N,6-/$ $$7@<@,0YA0` ZAR}@!6-B(} GOLF SCORE SUMMARYE(Z(HOLE LENGTH PAR& -@( #0 468,- }"6-.6-1(4(: ?-@?-@%@ $@ %@ $D 8<,A1pN }6-@6-X A3b  AQ( l 6-%8,6-%8,v -@ 68,-8,%8<, 6}- 8<,"A2` *6.=:8<,,*67B:,%@,.  (7@<@, A2p 6- }  (   ( @A3  (IN  A30 (OUT  =67@,. %67@8,. =67}@,.7@, '67@,.=:,'67@,.=:, -@ ""67$@%@,.=:8,,* 68,-}4   (> (H "" @)"6@A4@R > A66-6@;(} GOLF SCORE SUMMARY>(\ (HO}LE LENGTH PARf &-@( # #(&(p 6-6-z   ((TOTALS -@&@} "@A50 6-%8,6-%8, -@ 68,-8,%8<,     =67@,. }%67@8,. =67@,.7@, '67@,.=:,'67@ ,.=:, (  -@ (6.=:8,,}(67B:,%@,. (7@<@, 9( ('(PRESS ANY KEY TO CONTINUE9AdAU-F:Ad},AU*AdAU-$$ A6.*** SHOT MOVER ***8)6-P:'@%,)6-P:'@%,B(6-}(6-P:@v&'@,L@vA70V6-@6-@v`%%2A@@j-@}@ t%%2~ 6-6'@0 6-'@0O:, @A8@ @ } ,@%+!@d, ,6-?:C:,<<%@, 18$"@*O:&@v,@. A98} A80!!!* @A80++O:&,@)O:&,@A8""O:&@v,!@A806}-@6-@$ 6-6-6-$ 1"A8 @,  @,@v}6-@v6-@$(***OUT OF BOUNDS***2%%(}YOU JUST WENT OUT OF BOUNDS!<99(1I WILL REPLACE YOUR BALL WHE}RE IT LEFTTHE COURSE.F! AQp A9 ! A9@P @,@Z6-@v,$d 6-&$6-}&$n 6-6-x6-?:C:,<<%@, 6-%@6-@ $***SANDTRAP HIT***W6-?P5(!}Y}OU JUST LANDED IN THE SANDTRAP.W(YOU BETTER HIT THIS ONE HARD! @, @6-@v,6-@} AQp$* GREEN PLOTTER *'AY'A AF-@4},@%@2%8,,@&@2%8,,@%@2&8,,@&@2&8, 6}-?:A5,1 @,@@41,@@3',@@4',@@3IA@!AY}@B-@I6-?:C:,<AE<,";;6-?:C:,<@%+&,$@<@P%+&,$@,,A@}$6* *@* HOLE GENERATOR/PLOT *J* *O AAuT""6-H:@,$}@ %@^""6-H:@,$@ %@h""6-H:@,$@`%@ur""6-H:@,$@#%@|::6-}+&@,'@$++H:@,'@0,%@, AEP!AEAA @AA 6-&6-}&6-M:$%$, 6-&6-&6-M:$%$,6-+%,$@%(!A(6-%@P$H:@,(} A(6-&@P$H:@, 6-P:,6- 68,-6-@AP6-@%!AP*A }%6-@6-+&%@,'+&, 68,-&6-+&&@,'+&,06-+&&@,'+&,:6-+&%@},'+&,D 6-6-N@ADPX+!,)+!,AAb%%6-P:H:@,$@%@,l-@}v6-H:@,$A`/$6-+H:@,$@%@,/6-G:,$6-E:,$6-P:,%6-P:,%!! @}) @ADp%68<@,-%68<@,- 6-6-$6-P:+&@,'@},6-@&6-@%6-%&@$*** HOLE PLOTTER ***# AF# AFp'}+@%@'+@%@2 A AR0--6-F:A`,%F:Aa,$AV%@iAY} 'AA'A@*ApAu1#AA#%@!A02'AY@B}'BBAU4*0@@@'@*$>,%@H/%@ R/%@\/%@}f/&@p/&@ z/&@/&@/%@6-?:A5,'0}@@'@/,&@&@//%@&@/,&@&@//%@&@/,}&@&@//%@&@/,&@&@//%@&@/,&@&@//%@}&@/,&@%@//%@%@/,&@%@//%@%@/,&@%@}//%@%@/,&@%@//%@%@/,&@%//%@% }@ ,$ @.36-%+&@,36-&@8#,@w#/%@@wB AI@} AI`L#,&@@r#/@rV/@w$`,@vj,%@,&@t'0@}@@'@~-@%6-8<@,%6-8<@,+-@@+-@@},%&@%&@   AY@4$* PLAYER/MISSLE *6-B2w6-B2H%-}@%%AU &6-F:A,&@ &BBy9;@C,9@@ D1:GOL}F.DA2@%%67@<@,.>:%@,+6-$AV%A+A@6-?:C:,<A<}, -@4@68,- $-@@$@( 68,- @-} AVb$2-@AP <$F=67@,. %67@8,. =67@,.7@,P67@,.=}:,Z67@,.=:8,,d67@,.=:8,,$n$(;@1,$-@@1(" 67<,.>:,} "6-P:C:,'AV,$6-C:,&$AVp72,169,197,141,23,208u141,10,212z169,200,141,22,208169,3}8,141,24,208169,214,141,0,2169,6,141,1,2 104,64$ D1:GOLF.MANOPPPPMPNNNNHIRRO]~##GRAHPOVBLOOPMMCAR } ##*****************************##* GOLF *##* ATARI VERSION 2.1 *##}* COPYRIGHT HAYDEN BOOK CO *##* (1983) *##*****************************$.STOP BREAK AND} RESET KEYS8'@'@B A @LINIT INTRODUCTIONV%AR@( % A'`}INIT FAST FILL ROUTINEj A"tINIT DISPLAY LIST ROUTINE~ A&p"AR";@,%-}@%%AU+B2V%+A% !!AY@4 A}))( }WOULD YOU CARE TO SEE THE RULES.4WOPOTE+ HI WAYNE! WELCOME BACK.&$$7@<@,4NA}P$$7@<@,0YAAR@ Aoo(gHERE IS A LIST OF INSTRUCTIONS AND RULES T}HAT WILL HELP YOU TO ENJOY HAYDEN GOLF TO THE FULLEST. A A(RULE #1(88(/TO BEGIN WITH, THE} COMPUTER WILL ASK YOU A FEW 55(, QUESTIONS AND THEN WILL DRAWTHE FIRST HOLE.99(0 EACH HOLE WILL HAVE A TOP VIEW AN}D A SIDE VIEW.QQ(H IN THE TOP VIEW, THERE WILL OFTEN BE SANDTRAPS (ORANGE). IN THE SIDE(>>(6 VIEW, YOU WILL BE A}BLE TO SEE THE TEE AND FLAGSTICK.2 A A<(RULE #2(F<<(3JUST BELOW THE HOLE YOU WILL SEE A STATU}S LINE. PSS(JHERE YOU WILL BE ABLE TO READ THE INFORMATION NECESSARY TO MAKEYOUR SHOT. Z<<(4THE FOLLOWING IS AN EXAMP}LEOF A TYPICAL STATUS LINE:d3(0(% HOLE:6 SIZE:425 PAR:4 DIST:210 ST:33(nLL(CTHE ABOVE DESCRIBES THE BALL AS BEING 2}10 YARDS AWAY FROM THE HOLE x(((ON A 425 YARD PAR 4 SIXTH HOLE.77(/ ST:3 INDICATES THAT 3 STROKES HAVE BEEN TAKEN.} A A(RULE #3(TT(KBELOW THE STATUS LINE THERE APPEARS A QUESTION: 'WHAT CLUB WILL YOU USE?'. }<<(3 TO THIS YOU MUST RESPOND IN THE FOLLOWING MANNER. YY(PTYPE IN THE NUMBER OF THE CLUB DIRECTLY FOLLOWED BY A 'W' }TO INDICATE A WOOD __(VOR AN 'I' TO INDICATE AN IRON. FOR EXAMPLE LET US SAY THAT YOU WISH TO USE A 3 WOOD. AA(}8YOU RESPOND BY ENTERING A '3W'. A 5 IRON WOULD BE '5I'. JJ(BTHERE IS ALSO A PITCHING WEDGE ('10I') AND A SAND WEDGE ('}11I').  A A(RULE #4(SS(JAFTER YOU HAVE TOLD THE COMPUTER WHAT CLUB YOU WANT, IT WILL THEN ASK} YOU TT(K 'STRENGTH (0 TO 10)?'. TO THIS YOU ANSWER WITH A NUMBER CORRESPONDING 22()TO THE RELATIVE STRENGTH OF} THE BALL HIT.HH(@A VALUE OF 0 IS NO POWER WHILE A VALUEOF 10 GIVES A MAXIMUM HIT. A A"(RULE #5}(,[[(RFINALLY, THE COMPUTER WILL ASK YOU IN WHAT DIRECTION YOU WISH TO SHOOT THE BALL. 6VV(MYOU ANSWER BY ENTERING }A VALUE OF 0 TO 360 DEGREES. ZERO DEGREES IS NORTH, @MM(D90 DEGREES IS EAST, 180 DEGREESIS SOUTH, WHILE 270 DEGREES IS }WEST. J//(' ANY NUMBER BETWEEN 0 AND 360 IS VALID.T A A^(RULE #6(h]](TAFTER YOU HAVE ANSWERE}D ALL OF THE QUESTIONS, YOU WILL SEE YOUR BALL IN FLIGHT, r&&(BOTH THE TOP AND SIDE VIEWS. |BB(9 ONCE YOUR BALL }HAS STOPPED, YOU WILL BE ADVISED OF ANY UU(LPENALTIES THAT YOU MAY HAVE INCURRED, AND ALSO THE DISTANCE YOU HAVE} 11()SHOT AND REMAINING DISTANCE TO THE HOLE. A A(RULE #7(NN(EIF MORE THAN ONE PERSON I}S PLAYING, AS SOON AS YOU GET ON THE GREEN==(4, THE NEXT PLAYER WILL TAKE HIS FAIRWAY SHOTS. BB(:WHEN EVERYO}NE IS ON THE GREEN YOU WILL BEGIN PUTTING OUT. A A(RULE #8(ZZ(RWHEN YOU ARE PUTTING ON THE G}REEN, ONLY 'STRENGTH' AND 'DIRECTION' ARE ASKED. A A(RULE #9:(UU(LFINALLY, WHEN THE COMP}UTER FIRST ASKS YOU WHICH CLUB TO USE, IF YOU RESPOND dd([WITH THE LETTER 'C' YOU WILL ENTER 'COMMAND MODE'. COMMAND} MODE ALLOWS YOU TO DISPLAY bb(YTHE CURRENT SCORE, DISPLAY A LIST OF WOODS AND IRONS AND THEIR CORRESPONDING AVERAG}E (DISTANCES,AND &CC(;A DIRECTION CHART TO HELP YOU TO SELECT A SHOT DIRECTION. 01(1(&THESE ARE THE RULES I}N THEIR ENTIRETY.:""( ENJOY THE GAME!D AN APX (}b&&( HAYDEN GOLF INSTRUCTIONS}l/&( ------------------------)(,(/$v'( ('(PRESS ANY KEY TO CONTINUEAdAU F:Ad,"A}UA0AdAU$$ (} (((((((!($(AR@''( VERY WELL. LETS P}LAY GOLF''( PLEASE WAIT A MOMENT.....% D1:GOLF.MAN* ** VERTICAL BLANK RTN *}* TO STOP BREAK KEY! ** SAVE AT: 1152 *-A `A i"   169,64,133,16,141,14}210,76,0,0,120,173,36 DD2,141,200,3,173,37,2,141,201,3,169,192,141,36,2,169,3,141,37,2*104,88,964I;@&,$-}@@&("667<,.>:,: F6-?:C:,,I$>* *H* ROUTINE TO CLEAR *R* P/M MEMOR}Y *\* *f 104,104p104,24,105,0,133,209z169,0,133,208,168,1624,145,208,200,}208,251230,209,202,208,248,96 * * * GOLF HOLE FILL ROUTINE * * LOADS AT LOCATION }1536 * * *-A5A7"  $104,169,02,141,210,6169,40,14}1,208,6165,250,141,202,6165,251,141,203,6 165,252,141,204,6 165,253,141,205,6 165,254,141,206,6$ }165,255,141,207,6. 165,88,133,254,165,898 133,255,160,39B 169,4,141,209,6L 162,65,169,0,133,251V 165,2}54,133,252` 165,255,133,253j 177,252,45,210,6t 240,21,165,251,208,11~ 165,252,133,250 165,253,133,251 }76,97,6,32,169,6 234,234,234,24,165,252 105,40,133,252 165,253,105,0,133,253 202,208,212,14,210,6 }14,210,6,206,209,6 208,187,206,208,6 240,9,169,02,141,210,6 136,76,50,6 173,202,6,133,250 173,203,6},133,251 173,204,6,133,252 173,205,6,133,253 173,206,6,133,254 173,207,6,133,255( 96,177,250,13,210,6}2 145,250,24,165,250,105,40< 133,250,165,251,105,0F 133,251,165,250,197,252P 208,230,165,251,197,253Z 208},224,96d * *n * DISPLAY LIST HANDLER *x * STORE AT ADDRESS 1750* * } * -APA "   $ 72,169,52,141,22,208 169,0,141,24,208 141,10,212,169,10 }141,23,208,169,0 141,0,2,169,0,141,1,2 104,64 * * * GAME INTRODUCTION * * } * 'A'B7'  +A "AR@";@&}," -@@&", 67<,.>:, 6 ( (@ ""( HAYDEN SOFTWAREJ  A6(T ( } PRESENTS^ A6h 6-B2w6-B2Hr &6-F:A,&@ &BBy| 6-?:C:,<, !!6-$AV}%A%@P A&A@ %@A) %@A( %@A( %@}A( %@AB %@A7 %@A) %@A& -@} %B2V%@%%A@ A%  !!AY@B !@!A}@ A6 & -A@6@0   AA: A60D !!6-$AV%A@%@P}N A&X %@A)b %@A)l %@A)v %@A) %@}A) %@A) %@A) )%@A&)A@ A6  -@}A@ '%@ 'AA A60 !!6-$AV%Ah%@P A( %@}A( %@A( %@A( %@A( %@A( %@A(} %@A(* )%@AT)A@4 A6 > -AA26@H '%@} 'AAR A60\ !!6-$AV%A%@Pf ATp %@A(z %@}A( %@A( %@AR %@A( %@A( %@A( })%@A()A@ A6  -@AT@ '%@ 'AA /} A60/2 *( ( (((((((!($('(*( ""( COPYRIGHT (C) 1983 $$(} HAYDEN BOOK CO., INC.$$( ALL RIGHTS RESERVED$-@A $$$.$ D1:}GOLF.BAS##GRAHPOVBLOOPMMCAR  0100 ; GOLF GREEN FILLER ROUTINE0110 ;0120 *= $06000130 .OPT OBJ0140 ;0150 ; INIT FILL ROUTINE0160 ;0165 }PLA ;FIX STACK0170 LDA #$10 ;COLOR MASK0180 STA MASK ;SAVE0190 LDA #40 ;GET SCRN WIDTH0200 } STA COL1 ;SAVE0210 LDA $FA ;SAVE FA-FF0220 STA SAVFA+0 ;0230 LDA $FB ;SAVE FA-FF0240 STA S}AVFA+1 ;0250 LDA $FC ;SAVE FA-FF0260 STA SAVFA+2 ;0270 LDA $FD ;SAVE FA-FF0280 STA SAVFA+3 ;0290} LDA $FE ;SAVE FA-FF0300 STA SAVFA+4 ;0310 LDA $FF ;SAVE FA-FF0320 STA SAVFA+5 ;0330 LDA 88 } ;SET POINTER0340 STA $FE ;0350 LDA 89 ;0360 STA $FF ;0370 LDY #39 ;GET SCRN OFFSET0}380 ;0390 ; INIT BYTE LOOP0400 ;0410 LOOP00420 LDA #4 ;4 PIX PER BYTE0430 STA COL2 ;SAVE0440 ;0450 ; I}NIT SCAN LOOP0460 ;0470 LOOP10480 LDX #65 ;GET DEPTH0490 LDA #0 ;0500 STA $FB ;INIT FLAG0510 } LDA $FE ;COPY POINTER0520 STA $FC ;0530 LDA $FF ;0540 STA $FD ;0550 ;0560 ; LOOK AT SCREE}N BYTE0570 ;0580 LOOP20590 LDA ($FC),Y ;GET BYTE0600 AND MASK ;MASK OFF COLOR0610 BEQ LOOP5 ;IF NOT SKI }P0620 LDA $FB ;FIRST PIX?0630 BNE LOOP3 ;NO0640 LDA $FC ;COPY POINTER0650 STA $FA ;0660  } LDA $FD ;0670 STA $FB ;0680 JMP LOOP5 ;NEXT0690 LOOP30700 JSR FILL ;FILL COLUMN0720 LOOP5073 }0 CLC ;CLEAR C0740 LDA $FC ;PT TO NEXT ROW0750 ADC #40 ;0760 STA $FC ;0770 LDA $F }D ;0780 ADC #0 ;ALLOW CARRY0790 STA $FD ;0800 DEX ;DONE COLUMN?0810 BNE LOOP2 ;NO }0820 ;0830 ; ADJUST FOR NEXT COLUMN0840 ;0850 LOOP100860 ASL MASK ;SHIFT COLOR MASK0870 ASL MASK ;0880 } DEC COL2 ;DONE?0890 BNE LOOP1 ;NO0900 DEC COL1 ;DONE WITH FILL?0910 BEQ LOOP90 ;YES0920 LDA #$}10 ;RESET MASK0930 STA MASK ;0940 DEY ;ADJUST OFFSET0950 JMP LOOP0 ;REPEAT0960 ;0970 ; ALL D}ONE0980 ;0990 LOOP901000 LDA SAVFA+0 ;RESTORE FA-FF1010 STA $FA ;1020 LDA SAVFA+1 ;RESTORE FA-FF1030 } STA $FB ;1040 LDA SAVFA+2 ;RESTORE FA-FF1050 STA $FC ;1060 LDA SAVFA+3 ;RESTORE FA-FF1070 STA $}FD ;1080 LDA SAVFA+4 ;RESTORE FA-FF1090 STA $FE ;1100 LDA SAVFA+5 ;RESTORE FA-FF1110 STA $FF };1120 RTS ;RETURN1130 ;1140 ; FILL COLUMN SUBROUTINE1150 ;1160 FILL1170 LDA ($FA),Y ;GET BYTE1180 }ORA MASK ;ADD COLOR MASK1190 STA ($FA),Y ;PUT BACK1200 CLC ;NO CARRY1210 LDA $FA ;PT TO NEXT RO}W1220 ADC #40 ;1230 STA $FA ;1240 LDA $FB ;1250 ADC #0 ;ADJUST FOR C1260 STA $FB } ;1270 LDA $FA ;ALL DONE?1280 CMP $FC ;1290 BNE FILL ;NO1300 LDA $FB ;1310 CMP $FD } ;1320 BNE FILL ;NO1330 RTS ;ALL DONE!1340 ;1350 ; LOCAL RAM1360 ;1370 SAVFA .BYTE 0,0,0,0,0,0138}0 COL1 .BYTE 01390 COL2 .BYTE 01400 MASK .BYTE 01410 .OPT NO LIST1420 .END ; INIT FILL ROUTINE0160 ;0165 XBSTART PRGB'DOS SYSB:AUTORUN SYSB<GOLF DA2BvAGOLF MANBHGOLF BASBFILL MACBqP BAS@Ar}s}t}u+u+I x xwV$V$ϳϳ