$ ****************************G *** ***j ** MINIATURE GOLF V.2 **( *** ***2 ****************************< IDEA CONCEIVED AND WRITTENF BY WVMIKE. V.2 AS MODIFIED P AND ENHANCED BY B29GUNNER.8 Z MORE ENHANCEMENTS PLANNED.> d:z nS54272:P1US1:W1US3:F1WS4:A1DS5:S1RS6:P2LS7 xU2PS8:L2WS9:P2US10:F2WS11:A2DS12:S2RS13 : VOLS24 ^^^ STANDARD SID ASDDRESSES ^^^ : 230: INSTRUCTIONS 850: SETUP, 2770: PLAY!> 3790: !END!D J :P :e : *** INSTS ***k : 53281,15:53280,15 "DO YOU NEED INSTRUCTIONS (Y/N):";YN$ YN$"N""PLEASE WAIT...": "YN$"Y"270 ,""8)"*** MINIATURE GOLF ***" 6:b @"WELCOME TO THE ALBERTS COUNTRY CLUB. THIS BEAUTIFUL NINE-HOLE "; J"MINIATURE GOLF COURSE IS OPEN AND WAITING FOR YOU !" T ^"YOU SHOULD KNOW THE RULES OF THE COURSE BEFORE YOU BEGIN PLAY !" h7 r"TO PUTT THE BALL,YOU HAVE TO INPUT WHICH WAY YOU WANT TO ";F |"AIM IT." "THERE ARE 8 DIRECTIONS WITH THE BALL ASSUMED AT * (SEE BELOW): :17)"2 1 8":17)"3 * 7":17)"4 5 6" ::"PRESS RETURN WHEN READY TO CONTINUE" X$:X$(13)420 ""* 9)"*** MINIATURE GOLF ***2 :{ "THEN YOU MUST INPUT HOW HARD TO HIT THE BALL. THE SPEED SHOULD "; "BE SOME NUMBER BETWEEN 0.00 AND 5.00. FOR EXAMPLE, YOUCOULD"; " HIT THE BALL A RELATIVE SPEED OF 3.2" ?"IT WILL TAKE A FEW TRIES BEFORE YOU GET USED TO HOW HARD TO PUTT ";R"THE BALL.":"ALSO, THERE ARE FOUR TYPES OF HAZARDS ONTHE COURSE. YOU SHOULD ";"BE AWARE OF WHATTHEY ARE AND WHAT AFFECT THEY HAVE ON YOU ";"AND YOUR BALL."'&:::"PRESS RETURN WHEN READY TO CONTINUE">0X$:X$(13)560G:""gD9)"*** MINIATURE GOLF ***oN:X"BLOCKS: THESE ARE LIKE WALLS. YOU MUST PUTT AROUND THEM."bl"YELLOW TRAPS REPRESENT SAND. YOUR BALL CANNOT PENETRATE THROUGH ";Jv"A SAND TRAP. THE PENALTY FOR LANDING IN THE SAND IS ONE STROKE."P"WATER: LIKE SAND, THESE BLUE HAZARDS WILL STOP YOUR BALL.";" THE PENALTY FOR LANDING IN WATER IS ONE STROKE.""UNEVEN SURFACES: THESE RED HAZARDS CAUSETHE BALL TO ROLL IN ";]"A DIRECTION WHICH ISUNPREDICTABLE THERE IS NO PENALTY ";|"FORHITTING THIS HAZARD."::"PRESS RETURN WHEN READY TO CONTINUE"X$:X$(13)720""9)"*** MINIATURE GOLF ***:>"YOU ARE TRYING TO SINK THE BALL IN AS FEW TRIES AS POSSIBLE. ";c"THE HOLE IS THE BLACK SQUARE."i "IF YOU HIT THE BALL TOO HARD, IT WILL JUMP OVER THE HOLE AND "; "CONTINUE ROLLING.IT MAY ALSO CHANGE DIRECTION, SO BE SURETO HIT ";*"THE BALL JUST HARD ENOUGH."L4::"PRESS RETURN WHEN READY TO CONTINUE"c>X$:X$(13)830iHoR:\: *** SETUP ***f:p STORE FANFARE NOTESz YY(12),ZZ(12)I112:YY(I),ZZ(I):I 25,30,18,209,33,135,25,30,42,62,31,165,50,60,37,162,42,62,31,165/ 50,60,37,162WHA(9,5):I19:J15:HA(I,J)::g 0,0,0,0,2w 1,0,0,0,3 0,1,0,0,3 1,1,0,0,3 0,0,0,1,3 0,0,1,1,3 1,0,1,0,3 0,1,1,0,4 0,0,1,1,3DI(8,2):I18:DI(I,1),DI(I,2):: 0,-1,-1,-1,-1,0,-1,1,0,1,1,1,1,0,1,-1_PLT49152:I024:C:PLTI,C:Is$ 32,16,192,132. 253,32,16,1928 152,170,164,253B 24,76,240,255L 32,253,174,32V 158,173,76,170,177`V(8):I18:V(I)::-40,-41,-1,39,40,41,1,-392j SC(X)(1024BX40BYX)Vt CO(X)(55296BX40BYX)15\~q *** HOLE 1 ***"":TS010)""I11510)" "10)"" ""19)" ":BY16:BX11(17(0)):PLT,BX,BY:"";@U *** HOLE 2 ***d"":TS08)"" I158)" "(8)"  "28)"  "8<8)"  "ZF8)"  "{P8)" "ZI16d8)" "nx8)""BY17:BX9(15(0)):PLT,BX,BY:"";""30)" "* *** HOLE 3 ***9"":TS0X20)""cI1520)" "8)" "8)" "8)" "B8)" "p8)" "8)"  "8)" ""I14,8)" "6@8)""3J""32)" "_TBY17:BX9(15(0)):PLT,BX,BY:""e^zh *** HOLE 4 ***r"":TS0|7)""I167)" "%7)"  "0I14b7)"  "h7)" "I137)" "7)"" ""18)"  "625)"    "LPLT,32,11:" "xBY16:BX8(10(0)):PLT,BX,BY:""~&0 *** HOLE 5 ***:""D"":TS0N10)""XI115b10)" "l7v10)""RPLT,19,6:"ý"gPLT,22,4:" "BY16:BX11(23(0)):PLT,BX,BY:"" *** HOLE 6 ***"":TS08)""I178)" " J8)" "UI17u8)" "{ 8)""PLT,27,4:"" PLT,20,5:"    "*PLT,30,5:" "* 4BY16:BX9(15(0)):PLT,BX,BY:""0 >E H *** HOLE 7 ***T R"":TS0n \8)""y fI14 p8)" " z 8)" " I14!8)" " !8!8)" "C!I15c!24)" "i!!24)""!PLT,9,7:"    ""PLT,27,8:"    ""PLT,13,4:" "J"BY16:BX25(13(0)):PLT,BX,BY:""P" e" *** HOLE 8 ***t" "":TS0"$ 7)""". I16"8 7)" ""B #L 7)"  "#V I14K#` 7)"  "Q#j #t 7)"  "#~ I13# 26)" "# # 26)""# PLT,28,3:" "$ PLT,29,4:" "$ PLT,30,5:" "4$ PLT,30,6:" "L$ PLT,32,7:" "b$ PLT,33,8:" "$ PLT,13,3:"    "$ PLT,13,10:" "$ BY16:BX27(10(0)):PLT,BX,BY:""$ $ *** HOLE 9 ***% "":TS0,% 8)""7%( I19c%2 8)" "i%< %F 8)" "%P I15%Z 20)" "%d %n 20)"" &x PLT,21,3:" "+& PLT,22,4:" "K& PLT,23,5:" "j& PLT,24,6:" "& PLT,25,7:" "& PLT,11,6:" "& PLT,14,5:""& BY16:BX21(15(0)):PLT,BX,BY:""& & :' : *** PLAY *** ' :' HO19:BC$""/' 4030:"";d' HO1160,1260,1440,1640,1840,1960,2120,2320,2570' 646,9:"HOLE NUMBER:";(HO);" PAR:";(HA(HO,5));' " SCORE";(SC)' "STROKES:";TS;" OVER/UNDER:";OU;"":646,0(" :"TRAPS:":HA(HO,1)"WATER"(, HA(HO,2)"SAND"6(6 HA(HO,3)"UNEVEN"O(@ HA(HO,4)"BLOCKS"t(J :"2 1 8":"3 7":"4 5 6"(T PLOT,0,20:I13:" ":(^ D$"":PLT,0,20:"DIRECTION (1-8)";D$:DIR(D$) )h DIR0DIR9DIR(DIR)2940I)r "THE DIRECTION IS FROM 1 TO 8 ...":PA11500::2900)| PLT,0,20:I13:" ":) D$"":PLT,0,20:"SPEED (0-5)";D$:SP(D$)) SP0SP9N151:N275:4200:2980* "THE SPEED IS FROM 0 TO 5...":PA11500::29404* UF0: CLEAR UNEVEN FLAGU* TF0:BT0: CLEAR TRAP FLAGS* BALL MOVES TILL SP=0 OR HAZARD ENCOUNTERED* X2BXDI(DI,1):Y2BYDI(DI,2)* D2V(DI):COCO(D2):CO5SC(D2)1603060+ PLT,BX,BY:BC$" ";:BXX2:BYY2:PLT,BX,BY:"";)+ BT0:BC$"":3720C+ DETERMINE BALL LIEv+ CO0SC(D2)1603140: HIT A WALL OR BUMPER+ CO6BT1BT0:3380: WAS IN THE WATER+ CO6BT1:3380: JUST LANDED IN WATER+ CO7BT1BT0:3440: WAS IN THE SAND*, CO7BT1:3440: JUST LANDED IN SANDJ,& CO23500: UNEVEN SURFACEh,0 CO03590: HIT THE HOLE,: HIT WALL OR BUMPER (FROM 3120),D DI1DI3DIDI4:3010: REBOUND DIR 1 OR 3 TO DIR 5 OR 7-N DI5DI7DIDI4:3010: REBOUND DIR 5 OR 7 TO DIR 1 OR 3--X DI23180,3230,3280,3330K-b REBOUND DIR 2 TO DIR 6z-l SC(D21)160SC(D240)160DI6:3010-v SC(D21)160DI4:3010- SC(D240)160DI8:3010- DI6:3010- REBOUND DIR 4 TO DIR 6. SC(D21)160SC(D240)160DI8:30104. SC(D21)160DI2:3010T. SC(D240)160DI6:3010c. DI8:3010. REBOUND DIR 6 TO DIR 2. SC(D21)160SC(D240)160DI2:3010. SC(D21)160DI8:3010. SC(D240)160DI4:3010. DI2:3010/ REBOUND DIR 8 TO DIR 4K/ SC(D21)160SC(D240)160DI4:3010j/ SC(D21)160DI6:3010/ SC(D240)160DI2:3010/ DI4:3010/* WATER TRAP (FROM 3121)/4 TF03400/> TF3: SET TRAP FLAG/H PLT,BX,BY:BC$" ";#0R BXX2:BYY2:PLT,BX,BY:"";:BC$""-0\ 3720J0f SAND TRAP (FROM 3122)Y0p TF03460r0z TF3: SET TRAP FLAG0 PLT,BX,BY:BC$" ";0 BXX2:BYY2:PLT,BX,BY:"";:BC$""0 37200 UNEVEN SURFACE (FROM 3123)0 UF3550"1 UF1: SET UNEVEN FLAG REROLL BALL OFF COURSE:1 DIDI2(2(0))1I1 DI0DI2X1 DI9DI7q1 PLT,BX,BY:BC$" ";1 BXX2:BYY2:PLT,BX,BY:"";:BC$""1 37201 DETERMINE IF BALL IN HOLE1PLT,BX,BY:" ":PLT,X2,Y2:" "2PLT,X2,Y2:" ";2DIDI2(2(0))1-2$DI0DI8<2.DI9DI1s28SPSP.5:SP0X2X2DI(DI,1):Y2Y2DI(DI,2):30202BN17:N250:4200: CUP SOUND2LSCSC1:TSTS1: BUMP SCORE2VTPTPHA(HO,5):OUSCTP: DETERMINE OVER/UNDER PAR,3`646,9:"HOLE NUMBER:";HO;" PAR:";HA(HO,5);" SCORE:";SC]3j"STROKES:";TS;" OVER/UNDER:";OU;"":646,0m3tSC14290w3~37803 DECREMENT PENALTY OR NEXT HOLE3TF0TFTF1:TF037503SPSP.3:SP030103SCSC1:TSTS14BT14060: PENALTY 4283044030:HO4:14: *** END ***74:P4PA1200:PA:646,7x4"";9)"*** MINIATURE GOLF ***"4 "THE GAME IS OVER !"44"ON THE PAR 27 COURSE, YOU SHOT":"A ROUND OF"SC".";4(" THAT MAKES YOUR" 52"AVERAGE"(SC1009)100"SHOTS PER HOLE.":X5<SC27"GREAT GAME! YOU SHOULD TURN PRO.":39605FSC27SC36"VERY, VERY NICE TRY!":39605P:SC36SC45"NOT TOO BAD - FOR A DUFFER!":39606ZSC45SC50"YOU NEED LOTS AND LOTS OF PRACTICE!":3960G6dSC50SC56"DON'T TRY TO MAKE A LIVING OFF GOLF!":3960p6n"FORGET IT AND GO PLAY MONOPOLY!!"6x"PLAY AGAIN (Y/N):";YN$6YN$""39606YN$"N"6YN$"Y"396066 -----------------------------7 HOLD SCREEN DELAY7X11250::=7 -----------------------------Y7 FLASH PENALTY SIGNALe7PF137CLEARSVOL:CLEAR,0:7VOL,157A1D,80:S1R,243:W1U,47KS137""20)"PENALTY":X1300:7F1W,658"I201405:P1U,I:'8,F1W,64:I150:]86""20)" ":X1300:e8@KS8JSCSC1:TSTS1:BT0:8T -----------------------------8^ GOLF SOUNDS ROUTINE8hCLEARSVOL:CLEAR,0:8rVOL,159|W1U,8:A1D,0:S1R,2409S,N1:P1U,N2!9F1W,6549F1W,64:VOL,0:9_9 -----------------------------u9 FANFARE SALUTE9CLEARSVOL:CLEAR,0:9FF149A1D,85:S1R,85:A2D,85:S2R,859VOL,15:F1W,33:F2W,179I1112:P1U,YY(I):S,ZZ(I):U2P,YY(I1):P2L,ZZ(I1)7:YY(I)50PA1200:G:PA1100:M:m:F1W,32:F2W,16:PA1500::&4430: FLASH MESSAGE:0FF::H10:""::D HOLE IN ONE FLASH:N""20)"A HOLE IN ONE!!":X1300:5;X""20)" ":X1300:B;bVOL,0: