Home » Personal collection » Acorn hard disk » zipped_disks » 2000_games » games/!HOLEDOUT/HoledOut3

games/!HOLEDOUT/HoledOut3

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn hard disk » zipped_disks » 2000_games
Filename: games/!HOLEDOUT/HoledOut3
Read OK: ✔
File size: 767B bytes
Load address: 0000
Exec address: 0000
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10REM >HOLEDOUT3
   20REM PROGRAMMED BY G.J.KEY BETWEEN 23-3-89 AND 29-4-89
   30REM (C) THE FOURTH DIMENSION
   40REM 
   50*FX200,3
   60PROCpointer:PROCinitiate
   70PROCinstruct
   80*FX200,2
   90ONERROR
  100PROCcolours(12)
  110*SCHOOSE SCREEN
  120*CHANNELVOICE 1 BELL
  130PLOT&ED,0,0
  140TIME=0
  150*FX15
  160REPEAT:MOUSEX%,Y%,T%
  170IFTIME>3000SOUND1,-15,300,1:TIME=0
  180UNTILT%ORINKEY(10)<>TRUE
  190*CHANNELVOICE 1 1
  200REPEAT
  210PROCgetoptions
  220ONERROROFF
  230*FX200,3
  240PROCcolours(12)
  250Hole%=1:totscore%()=0
  260FORT%=1TOnoofplayers:hsp%(T%)=T%:NEXT
  270X%=0
  280REPEAT
  290IFX%>718ORHole%=18UNTILTRUE:UNTILFALSE
  300round%=FALSE
  310PROCinitcloud
  320li%=RND(4)-1
  330PROCgetstart
  340PROCinitwind
  350PROCsetplayer
  360REPEAT
  370PROCwhichplayer
  380IFround%UNTILTRUE:PROCboard:UNTILFALSE
  390PROCgetplayvals
  400PROClight
  410PROCsine(X%,Y%)
  420PROCdrawscreen
  430PROCspot
  440MOVEmx%(g%,Hand%),my%(g%):MOVEBY120,176
  450*SGET PLAIN
  460*SCHOOSE BALL1
  470PLOT&ED,xs%,ys%
  480MOVEmx%(g%,Hand%),my%(g%):MOVEBY120,176
  490*SGET BLACK
  500*SCHOOSE 20
  510ba%=sty%=y1%:GCOL8,0
  520IFba%PLOT&ED,bag%(Hand%),-754
  530REPEAT
  540VDU23,27;m%(1,g%)|:PLOT&ED,mx%(g%,Hand%),my%(g%)
  550PROCgetinfo
  560D%=FALSE:B%=FALSE
  570W%=TRUE:K%=FALSE
  580PROCwalter
  590PROCflight
  600IFABSsx%>640PROCchofsc
  610IFNOTW%PROCsplash:UNTILFALSE:ELSEUNTILTRUE
  620PROCputback
  630UNTILFALSE
  640REM 
  650DEFPROCinstruct
  660PROCcolours(9):PROCscreenbox
  670IFFNquest("DO YOU REQUIRE INSTRUCTIONS?","YES","NO",0):PROCbutt(0):ENDPROC
  680PROCcolours(12):PROCmesbox(0,0,1279,1023)
  690GCOL12:RECTANGLE998,640,160,256
  700LINE1058,896,1066,940:DRAW1090,940:DRAW1098,896
  710GCOL139:GCOL1:FILL1078,900
  720COLOUR1,240,240,192
  730COLOUR2,240,208,208
  740COLOUR3,240,240,224
  750GCOL1:RECTANGLEFILL1000,644,156,248
  760GCOL3:RECTANGLEFILL1000,644,156,124
  770FORT%=0TO2
  780GCOL12:RECTANGLE1012+T%*50,800,32,64
  790GCOL2:RECTANGLEFILL1014+T%*50,804,28,56
  800GCOL12:MOVE1020+T%*50,850:VDU5:PRINT;T%+1
  810NEXT:VDU4:OFF
  820COLOUR139:COLOUR12
  830VDU28,2,30,78,4
  840PRINTTAB(0,0)"Game control in the Archimedes version of ";:COLOUR9:PRINT"HOLED OUT";:COLOUR12:PRINT" is via"'"the MOUSE, the keys are numbered as indicated on the right."
  850PRINT'"The differences to the instructions as shown in the manual"'"are as follows:"
  860PRINT'"STROKEPLAY/"TAB(16)"There can be up to 6 players in any round"
  870PRINT'"GAME CONTROLS/"''"1. SELECT CLUB. Use the MOUSE to indicate the club required then"TAB(16)"press any button to go to the next stage"
  880PRINT'"2. DIRECTION.   Position the cursor with the MOUSE then either."
  890PRINTSPC(16)"Press [2] to go to the next stage."
  900PRINTSPC(16)"Press [1] or [3] to select another club"
  910PRINT'"3. POWER."TAB(16)"As soon as the direction has been selected by pressing [2]"
  920PRINTTAB(16)"the bar indicator will start to move."
  930PRINTTAB(16)"Pressing [2] will give a Normal shot"
  940PRINTTAB(16)"Pressing [1] will give a Hooked shot"
  950PRINTTAB(16)"Pressing [3] will give a Sliced shot"
  960PRINT''TAB(22)"PRESS ANY BUTTON TO CONTINUE"
  970PROCbutt(0)
  980REPEAT:MOUSEX%,Y%,K%:UNTILK%:SOUND1,-10,200,1
  990PROCbutt(0)
 1000ENDPROC
 1010REM 
 1020DEFPROCchofsc
 1030*FX112,3
 1040CLS
 1050IFSGNx1%=TRUE ORIGIN1280,768+O%-6166*green%:ELSEORIGIN0,768+O%-6166*green%
 1060P%=rough
 1070GCOLFNmap1:PROCdrawit
 1080GCOLFNmap1:PROCdrawit
 1090P%=water:GCOL6:PROCdrawit
 1100G%=POINT(xs%,ys%)
 1110IFG%=6ORG%=11W%=FALSE
 1120*FX112,1
 1130ENDPROC
 1140REM 
 1150DEFPROCpreview
 1160REPEAT
 1170PROCcolours(9):PROCscreenbox:MOUSEON
 1180lhol%=FNchoseahole
 1190IFNOTlhol%PROCdrawmap(lhol%)
 1200UNTILlhol%=TRUE
 1210ENDPROC
 1220REM 
 1230DEFPROCdrawmap(holeno%)
 1240PROCinitcloud
 1250li%=2:PROCinitwind
 1260LOCALr%,l%,OL%,A%,AA%,T%,I%,SP%,X%,Y%
 1270X%=640:Y%=512
 1280REPEAT
 1290P%=mappoint%+holeno%:SP%=P%
 1300OL%=(VAL(STR$~((map!(P%+&2FA))AND&FFFF)))
 1310AA%=FNmap1
 1320FORA%=1TOAA%
 1330l%=FNmap2/10.5
 1340r%=FNmap2/10.5
 1350x%(A%)=r%:y%(A%)=l%
 1360NEXT
 1370I%=FNmap1-1
 1380T%=FNmap1:T%=FNmap1:P%=P%+T%*4+4
 1390l%=0:r%=0:t%=0:b%=0
 1400PROCcolours(12):PROCscreenbox:GCOL137
 1410PROCmesbox(532-OL%,294,OL%*2+212,692)
 1420VDU26,24,548-OL%;310;548+OL%+180;970;:CLG
 1430ORIGIN592+OL%,640
 1440FORT%=1TOI%:GCOLFNmap1
 1450np%=FNmap1
 1460PROCmap2(CX%,CY%,4):PROCmap2(SX%,SY%,4)
 1470FORI%=1TOnp%-1:PROCmap2(XI%,YI%,85):MOVECX%,CY%:NEXT
 1480PLOT85,SX%,SY%
 1490NEXT:GCOL14
 1500FORT%=1TOAA%:IFPOINT(-x%(T%),-y%(T%))<>6CIRCLEFILL-x%(T%),-y%(T%),8
 1510NEXT:GCOL0:POINT0,0
 1520VDU26
 1530PROCsmallmes(144,166,12,"POSITION POINTER ON VIEWPOINT THEN PRESS THE MIDDLE BUTTON")
 1540PROCsmallmes(232,66,12,"ANY OTHER BUTTON TO RETURN TO THE HOLE SELECTOR")
 1550MOUSEON:MOUSETOX%,Y%
 1560REPEAT
 1570MOUSERECTANGLE548-OL%,310,OL%*2+180,660
 1580MOUSEX%,Y%,T%
 1590IFX%<688THENr%=(688-X%)DIV8ELSEr%=(X%-688)DIV8
 1600MOUSERECTANGLE548-OL%,310+r%,OL%*2+180,660-r%*2
 1610y%=((592+OL%)-X%)DIV2
 1620x%=(640-Y%)DIV2
 1630IFT%=2PROCdisplayview(X%,Y%,SP%):UNTILTRUE:UNTILFALSE
 1640UNTILT%:UNTILTRUE
 1650ENDPROC
 1660REM 
 1670DEFPROCdisplayview(X%,Y%,SP%)
 1680MOUSEOFF
 1690LOCALA$,mappoint%:mappoint%=SP%
 1700YY%=(((592+OL%)-X%)DIV2)*21
 1710X%=((640-Y%)DIV2)*21
 1720IFABSX%<42ANDABSYY%<42X%=42:YY%=42
 1730OL%=(FNdistance(X%,YY%)):green%=(OL%<525):OL%=OL%/21
 1740A$=Course$+" HOLE "+STR$(holeno%DIV&300+1)+", "
 1750IFgreen% A$=A$+STR$(OL%*3)+" FEET":ELSEA$=A$+STR$OL%+" YARDS"
 1760A$=A$+" FROM HOLE"
 1770PROClight
 1780PROCsine(X%,Y%)
 1790PROCdrawscreen
 1800VDU26:X%=640-LENA$*8-24:PROCsmallmes(X%,860,13,A$)
 1810PROCbutt(0)
 1820REPEATMOUSEX%,Y%,SP%:UNTILSP%
 1830PROCbutt(0)
 1840ENDPROC
 1850REM 
 1860DEFPROCmap2(RETURN x%,RETURN y%,p%)
 1870y%=-FNmap2/10.5:x%=-FNmap2/10.5
 1880PLOTp%,x%,y%
 1890ENDPROC
 1900REM 
 1910DEFFNchoseahole
 1920PROCbutt(0)
 1930LOCALX%,Y%,K%,F%,N%,out%
 1940PROCcentbox(TRUE,"PLEASE SELECT A HOLE",12,10)
 1950PROCmesbox(464,444,148,100):PROCdono2(1)
 1960PROCmesbox(704,536,80,80)
 1970PROCsmallmes(704,462,12,"EXIT")
 1980PROCmesbox(704,368,80,80)
 1990GCOL15:MOVE744,600:MOVE720,554:PLOT85,768,554
 2000MOVE744,388:MOVE720,432:PLOT85,768,432:LINE720,436,768,436
 2010GCOL8:LINE720,432,744,388:DRAW768,432
 2020LINE720,558,744,600:DRAW768,558
 2030MOUSERECTANGLE480,388,432,220
 2040N%=1:REPEAT:MOUSEX%,Y%,K%
 2050IFK%THEN
 2060IFX%>716THEN
 2070IFX%<772THEN
 2080IFY%>544N%=N%MOD18+1:PROCdono2(N%):SOUND1,-10,200,1:PROCbutt(0)
 2090IFY%<442N%-=1:N%=N%-(N%=0)*18:PROCdono2(N%):SOUND1,-10,200,1:PROCbutt(0)
 2100ENDIF
 2110IFY%>472ANDY%<516out%=TRUE:F%=TRUE:SOUND1,-10,200,1
 2120ENDIF
 2130IFX%<604THEN
 2140IFY%>456ANDY%<540F%=TRUE
 2150ENDIF
 2160ENDIF
 2170UNTILF%=TRUE
 2180=((N%-1)*&300)ORout%
 2190REM 
 2200DEFPROCdono2(A%)
 2210LOCALA$,T%:A$=STR$(A%)
 2220GCOL11:RECTANGLEFILL476,464,124,64
 2230MOVE476-32*(A%<10),520
 2240GCOL12:FORT%=1TOLENA$:PROCdouble(VAL(MID$(A$,T%,1))):NEXT
 2250ENDPROC
 2260REM 
 2270DEFPROCgetoptions
 2280FORT%=1TO6:jump%(T%)=T%:NEXT
 2290*CHANNELVOICE 1 1
 2300REPEAT:REPEAT
 2310PROCcolours(9):PROCscreenbox
 2320MOUSETO640,496
 2330mappoint%=FNquest("WHICH COURSE DO YOU WISH TO PLAY?","CONE LINKS","PINE ISLES",0)*&3600:mapstart%=map+mappoint%
 2340IFmappoint%Course$="PINE ISLES"ELSECourse$="CONE LINKS"
 2350IFFNquest("PREVIEW HOLES OR PLAY ROUND?","PLAY","PREVIEW",0)PROCpreview:UNTILFALSE:ELSEUNTILTRUE
 2360play%=FNquest("UNDER WHICH RULES ARE YOU TO PLAY?","MATCH PLAY","STROKE PLAY",0)+1:REM 1=MATCH 2=STROKE
 2370noofplayers=FNnoplaying
 2380FORT%=1TOnoofplayers
 2390PROCgetname(T%)
 2400hand%(T%)=1-FNquest("IS "+name$(T%)+" LEFT OR RIGHT HANDED?","LEFT","RIGHT",0)
 2410PROCgetskill(T%)
 2420NEXT
 2430IFFNconfirm(noofplayers)UNTIL0
 2440UNTILTRUE
 2450REM CHANGE THE FOLLOWING NUMBER TO (HOLE NO. -1)*&300
 2460REMmappoint%=&2400
 2470ENDPROC
 2480REM 
 2490DEFFNconfirm(T%)
 2500LOCALN%,I%,A$:I%=(T%+(T%AND1))
 2510PROCbutt(0)
 2520PROCcolours(12):PROCscreenbox
 2530PROCcentbox(FALSE,"            ARE THE FOLLOWING GAME OPTIONS CORRECT?            ",15,10+I%)
 2540VDU28,10,20+I%DIV2,69,13-I%DIV2,4:OFF
 2550COLOUR12:COLOUR139:PRINT;T%;" PLAYER";
 2560IFT%<>1PRINT"S";
 2570PRINT",  PLAYING AT ";Course$;",  UNDER ";
 2580CASEplay%OF
 2590WHEN1:PRINT"MATCH";
 2600WHEN2:PRINT"STROKE";
 2610ENDCASE
 2620PRINT" PLAY RULES"
 2630PRINTTAB(0,1)STRING$(60,"-")
 2640COLOUR6:PRINTTAB(0,2)"NAME"TAB(22)"DEXTERITY"TAB(46)"SKILL":COLOUR12
 2650PRINTTAB(0,3)STRING$(60,"-")
 2660PRINTTAB(0,4);
 2670PROCboardcol
 2680FORN%=1TOT%
 2690COLOURN%+4
 2700PRINTname$(N%)TAB(22);
 2710CASEhand%(N%)OF
 2720WHEN0:PRINT"RIGHT";
 2730WHEN1:PRINT"LEFT";
 2740ENDCASE
 2750PRINT" HANDED"TAB(46);
 2760A$=FNskillname(currents%(N%))
 2770PRINTA$
 2780NEXT
 2790COLOUR12:PRINTSTRING$(60,"-")
 2800PROCsmallmes(520,368-I%*16,8,"YES")
 2810PROCsmallmes(680,368-I%*16,8,"NO")
 2820MOUSERECTANGLE536,376-I%*16,208,44:MOUSE ON
 2830REPEAT
 2840MOUSEX%,Y%,K%
 2850UNTIL(X%<590ORX%>692)ANDK%
 2860SOUND1,-10,200,1
 2870=X%>692
 2880ENDPROC
 2890REM 
 2900DEFPROCboardcol
 2910COLOUR5,208,0,0
 2920COLOUR6,144,128,80
 2930COLOUR7,112,112,112
 2940COLOUR8,240,112,0
 2950COLOUR9,96,96,48
 2960COLOUR10,208,80,144
 2970ENDPROC
 2980REM 
 2990DEFPROCgetskill(T%)
 3000PROCbutt(0)
 3010LOCALX%,Y%,K%,F%,N%
 3020PROCcentbox(TRUE,"WHAT IS "+name$(T%)+"S SKILL LEVEL?",15,12)
 3030PROCmesbox(356,464,416,64):PROCdoskill(currents%(T%))
 3040PROCmesbox(820,540,80,80)
 3050PROCmesbox(820,372,80,80)
 3060GCOL15:MOVE860,604:MOVE836,558:PLOT85,884,558
 3070MOVE860,388:MOVE836,432:PLOT85,884,432:LINE836,436,884,436
 3080GCOL8:LINE836,432,860,388:DRAW884,432
 3090LINE836,562,860,604:DRAW884,562
 3100MOUSERECTANGLE372,388,514,220
 3110N%=currents%(T%):REPEAT:MOUSEX%,Y%,K%
 3120IFK%THEN
 3130IFX%>836THEN
 3140IFY%>544ANDN%<4N%+=1:PROCdoskill(N%):SOUND1,-10,200,1:PROCbutt(0)
 3150IFY%<442ANDN%>1N%-=1:PROCdoskill(N%):SOUND1,-10,200,1:PROCbutt(0)
 3160ENDIF
 3170IFX%<780THEN
 3180IFY%>475ANDY%<514F%=TRUE
 3190ENDIF
 3200ENDIF
 3210UNTILF%=TRUE
 3220SOUND1,-10,200,1
 3230currents%(T%)=N%
 3240ENDPROC
 3250REM 
 3260DEFPROCdoskill(T%)
 3270LOCALA$
 3280A$=FNskillname(T%)
 3290GCOL11:RECTANGLEFILL372,480,12*32,32
 3300GCOL12:MOVE372,508:PRINTA$
 3310ENDPROC
 3320REM 
 3330DEFFNskillname(T%)
 3340LOCALA$
 3350CASET%OF
 3360WHEN1:A$="BEGINNER"
 3370WHEN2:A$="ENTHUSIAST"
 3380WHEN3:A$="AMATEUR"
 3390WHEN4:A$="PROFESSIONAL"
 3400ENDCASE
 3410=A$
 3420REM 
 3430DEFPROCgetname(T%)
 3440PROCbutt(0)
 3450LOCALX%,Y%,K%,Q,OX%,OY%,A$,B$:A$=name$(T%)
 3460IFnoofplayers>1THEN
 3470CASET%OF
 3480WHEN1:B$="FIRST "
 3490WHEN2:B$="SECOND "
 3500WHEN3:B$="THIRD "
 3510WHEN4:B$="FOURTH "
 3520WHEN5:B$="FIFTH "
 3530WHEN6:B$="SIXTH "
 3540ENDCASE
 3550ENDIF
 3560IFLENA$<10A$=A$+STRING$(10-LENA$," ")
 3570PROCcentbox(TRUE,"WHAT IS THE "+B$+"PLAYERS NAME?",15,8)
 3580MOUSERECTANGLE306,480,634,48
 3590PROCsmallmes(784,472,11,"OK")
 3600PROCsmallmes(288,472,11,A$)
 3610MOUSEOX%,OY%,K%:TIME=1000
 3620REPEAT
 3630PROCbutt(0)
 3640A$=name$(T%)
 3650MOVE336,516:PRINTA$;
 3660GCOL139:*FX21
 3670REPEAT
 3680Q=INKEY(0):IFQ<>TRUE OR(X%<702ANDK%) TIME=0:MOUSEOX%,OY%,K%:MOUSEOFF
 3690IFQ<>127Q=Q AND223
 3700IF(Q>64ANDQ<91)ORQ=127THEN
 3710IFLENA$<>10ANDQ<>127A$=A$+CHR$Q:VDUQ:SOUND1,-10,200,1
 3720IFLENA$<>0ANDQ=127A$=LEFT$(A$,LENA$-1):VDUQ:SOUND1,-10,200,1
 3730ENDIF
 3740MOUSEX%,Y%,K%
 3750IFTIME>500ORABS(X%-OX%)>8ORABS(Y%-OY%)>8MOUSEON
 3760UNTIL(X%>792ANDK%)ORQ=13
 3770IFA$=""SOUND1,-15,125,20:name$(T%)=defname$(T%):TIME=0:UNTILFALSE
 3780SOUND1,-10,200,1:UNTILTRUE
 3790GCOL140:name$(T%)=A$
 3800defname$(T%)=A$
 3810ENDPROC
 3820REM 
 3830DEFFNnoplaying
 3840PROCbutt(0)
 3850IFplay%=1THEN=2
 3860LOCALX%,Y%,K%,F%,N%
 3870PROCcentbox(TRUE,"HOW MANY PLAYERS?",12,10)
 3880PROCmesbox(464,444,84,100):PROCdono(1)
 3890PROCmesbox(704,536,80,80)
 3900PROCmesbox(704,372,80,80)
 3910GCOL15:MOVE744,600:MOVE720,554:PLOT85,768,554
 3920MOVE744,388:MOVE720,432:PLOT85,768,432:LINE720,436,768,436
 3930GCOL8:LINE720,432,744,388:DRAW768,432
 3940LINE720,558,744,600:DRAW768,558
 3950MOUSERECTANGLE480,384,292,220
 3960N%=1:REPEAT:MOUSEX%,Y%,K%
 3970IFK%THEN
 3980IFX%>716THEN
 3990IFY%>544ANDN%<6N%+=1:PROCdono(N%):SOUND1,-10,200,1:PROCbutt(0)
 4000IFY%<442ANDN%>1N%-=1:PROCdono(N%):SOUND1,-10,200,1:PROCbutt(0)
 4010ENDIF
 4020IFX%<540THEN
 4030IFY%>456ANDY%<540F%=TRUE
 4040ENDIF
 4050ENDIF
 4060UNTILF%=TRUE
 4070SOUND1,-10,200,1
 4080=N%
 4090REM 
 4100DEFPROCdono(A%)
 4110GCOL11:RECTANGLEFILL476,468,60,64
 4120MOVE476,520
 4130GCOL12:PROCdouble(A%)
 4140ENDPROC
 4150REM 
 4160DEFFNquest(A$,B$,C$,H%)
 4170LOCALL%,D%,R%
 4180R%=704+FNlength(LENC$)
 4190L%=600-FNlength(LENB$)
 4200PROCcentbox(TRUE,A$,12,6+H%)
 4210D%=464-H%*32
 4220PROCsmallmes(L%,D%,11,B$)
 4230PROCsmallmes(704,D%,11,C$)
 4240MOUSERECTANGLEL%+16,D%+8,R%-L%-64,48
 4250MOUSE ON
 4260PROCbutt(0)
 4270REPEAT:MOUSEL%,R%,D%
 4280UNTILD%AND(L%<568ORL%>712)
 4290SOUND1,-10,200,1
 4300D%=-(L%>712)
 4310=D%
 4320REM 
 4330DEFFNlength(L%)
 4340L%+=3:IF(L%AND1)-0L%+=1
 4350=L%*32
 4360REM 
 4370DEFPROCdouble(C%)
 4380C%=128+4*C%
 4390VDUC%,C%+1,8,8,10,C%+2,C%+3,11
 4400ENDPROC
 4410REM 
 4420DEFPROCscreenbox
 4430LOCALM%:M%=MODEDIV6
 4440PROCmesbox(0,0,1279,1023)
 4450VDU24,16;16;1263;1007;:GCOL140:CLG
 4460DEFPROCtextwind
 4470VDU28,1,30,38*M%,1:COLOUR140:CLS
 4480ENDPROC
 4490REM 
 4500DEFPROCcentbox(cls,A$,C%,H%)
 4510IFcls CLS
 4520LOCALT%,I%,M%
 4530IFMODE=9M%=16ELSEM%=8
 4540T%=640-LENA$*M%
 4550I%=512+H%*16
 4560PROCmesbox(T%-M%,496-H%*16-20*(H%=1),LENA$*M%*2+M%*2,H%*32+32)
 4570GCOLC%:MOVET%,I%-16*(H%=1):VDU5:PRINTA$
 4580ENDPROC
 4590REM 
 4600DEFPROCsmallmes(x%,y%,C%,A$)
 4610LOCALo%,M%
 4620IFMODE=12M%=16ELSEM%=32
 4630o%=(1-(LENA$AND1))*M%
 4640PROCmesbox(x%,y%,LENA$*M%+M%*2+o%,64)
 4650GCOL12:VDU5:MOVEx%+M%+o%DIV2,y%+44:PRINTA$;
 4660ENDPROC
 4670REM 
 4680DEFPROCmesbox(x%,y%,X%,Y%)
 4690GCOL8:RECTANGLEFILLx%,y%,X%,Y%
 4700GCOL3:RECTANGLEx%+4,y%+4,X%-8,Y%-8
 4710GCOL4:RECTANGLEx%+8,y%+8,X%-16,Y%-16
 4720GCOL11:RECTANGLEFILLx%+12,y%+12,X%-24,Y%-24
 4730ENDPROC
 4740REM 
 4750DEFPROCmeswind(A$,B$,C$,F%,C%)
 4760*CHANNELVOICE 1 1
 4770VDU26
 4780LOCALX%,x%,x2%,c%,I%,Y%
 4790Y%=80-(B$<>"")*48-(C$<>"")*48
 4800X%=(LENA$*16+32):x%=640-X%DIV2
 4810PROCmesbox(x%,800,X%,Y%)
 4820GCOL3,C%
 4830VDU5:X%=x%+16
 4840x%=640-(LENB$*8)
 4850x2%=640-(LENC$*8)
 4860FORI%=1TOF%*2+1
 4870MOVEX%,772+Y%:PRINTA$
 4880IFB$<>""MOVEx%,724+Y%:PRINTB$
 4890IFC$<>""MOVEx2%,676+Y%:PRINTC$
 4900PROCdel(50)
 4910SOUND1,-10,180,1
 4920NEXT
 4930VDU4:OFF
 4940GCOL8,0
 4950*SCHOOSE topofscreen
 4960PLOT&ED,0,704
 4970PROCwindows2
 4980ENDPROC
 4990REM 
 5000DEFPROCboard
 5010totscore%()=totscore%()+currentS%()
 5020FORT%=1TOnoofplayers:holescores%(hsp%(T%),Hole%)=currentS%(T%):NEXT
 5030PROCboardcol
 5040COLOUR3,0,144,0:GCOL131:CLG
 5050PROCwinsort
 5060LOCALP%,Y%,T%,I%,S%,mp%,A$,sc%,O%
 5070O%=(play%=2)*4:VDU26
 5080GCOL0:RECTANGLEFILL60,76,1156,920
 5090GCOL64,0:RECTANGLEFILL64,80,1148,128
 5100GCOL48,0:RECTANGLEFILL64,992,1148,-128
 5110GCOL12:MOVE768,544:MOVE1212,992:PLOT85,1212,80
 5120GCOL13:MOVE512,544:MOVE64,80:PLOT85,64,992
 5130GCOL11:RECTANGLEFILL98,112,1080,848
 5140GCOL0:RECTANGLE98,112,1080,848
 5150VDU24,100;116;1176;956;:ORIGIN98,116:VDU5
 5160GCOL14:FORP%=1TO6:Y%=788-P%*132
 5170GCOL7:LINE0,Y%+124,1080,Y%+124
 5180GCOL14:LINE0,Y%,1080,Y%
 5190FORT%=40TO80STEP40:LINE0,Y%+T%,1080,Y%+T%:NEXT
 5200FORT%=1TO8:X%=T%*120:LINEX%,Y%,X%,Y%+80:NEXT
 5210NEXT
 5220FORP%=1TOnoofplayers
 5230mp%=mapstart%+&2F9:Y%=728-(P%-1)*132:GCOL12
 5240FORI%=0TO-40STEP-40:FORT%=0TO8:MOVET%*120+4,Y%+I%:PRINT;?mp%:mp%+=&300
 5250NEXT:NEXT:NEXT
 5260FORP%=1TOnoofplayers
 5270mp%=mapstart%+&2F9:Y%=728-(P%-1)*132:X%=32:par%=0
 5280FORT%=1TOHole%:IFT%=10Y%-=40:X%=32
 5290sc%=holescores%(hsp%(P%),T%)-?mp%:par%+=?mp%:MOVEX%,Y%
 5300CASESGNsc%OF
 5310WHEN 0:A$="PAR":GCOL15
 5320WHEN 1:A$="+"+STR$sc%:GCOL5
 5330WHEN-1:A$=STR$sc%:GCOL0
 5340ENDCASE
 5350PRINTSTRING$(5-LENA$," ");A$
 5360X%+=120:mp%+=&300
 5370NEXT
 5380GCOLjump%(P%)+4:MOVE4,768-(P%-1)*132:PRINTname$(P%)TAB(20+O%);
 5390CASEcurrents%(P%)OF
 5400WHEN1:PRINT"{BEGINNER}";
 5410WHEN2:PRINT"{ENTHUSIAST}";
 5420WHEN3:PRINT"{AMATEUR}";
 5430WHEN4:PRINT"{PROFESSIONAL}";
 5440ENDCASE
 5450PRINTTAB(40+O%);totscore%(P%);" STROKE"CHR$(-(totscore%(P%)>1)*83)TAB(53);
 5460A$=" : "+STR$Hole%+" HOLE"+STRING$(-(Hole%>1),"S")+" PLAYED"
 5470CASEplay%OF
 5480WHEN1:PROCmatch
 5490WHEN2:PROCstroke
 5500ENDCASE
 5510NEXT
 5520GCOL15:T%=542-LENA$*8:MOVET%,824:PRINTA$
 5530GCOL12:RECTANGLET%-8,788,LENA$*16+14,48
 5540VDU26:PROCsmallmes(360,32,11," CONTINUE ")
 5550PROCsmallmes(720,32,11,"QUIT ROUND")
 5560REPEAT
 5570MOUSERECTANGLE372,44,528,40
 5580MOUSEON:MOUSETO464,64
 5590PROCbutt(0):TIME=0:REPEATUNTILTIME>100
 5600REPEAT:MOUSEX%,Y%,T%
 5610UNTILT%AND(X%<556ORX%>718)
 5620IFX%>718PROCconfirm:IFX%>926MOVE0,0:OSCLI("SCHOOSE topofscreen"):PLOT&ED,0,0:UNTIL0
 5630UNTILTRUE
 5640COLOUR0:VDU4:OFF
 5650MOUSEOFF
 5660GCOL139
 5670ENDPROC
 5680REM 
 5690DEFPROCconfirm
 5700PROCbutt(0)
 5710PROCgtos(0)
 5720PROCmesbox(640,32,512,160)
 5730GCOL8:MOVE656,176:PRINT"ARE YOU SURE YOU WANT TO QUIT?"
 5740PROCsmallmes(794,60,8,"YES")
 5750PROCsmallmes(916,60,8,"NO")
 5760MOUSERECTANGLE806,72,178,40:MOUSETO890,82
 5770REPEAT:MOUSEX%,Y%,T%
 5780UNTILT%AND(X%<866ORX%>926)
 5790ENDPROC
 5800REM 
 5810DEFPROCmatch
 5820LOCALT%,B$,S1%,S2%
 5830FORT%=1TOHole%
 5840IF holescores%(hsp%(1),T%)<holescores%(hsp%(2),T%)S1%+=1
 5850IF holescores%(hsp%(2),T%)<holescores%(hsp%(1),T%)S2%+=1
 5860NEXT:T%=ABS(S2%-S1%)
 5870B$=STR$(T%):IFT%B$=B$+" UP"ELSEB$="EVEN"
 5880B$=STRING$(14-LENB$," ")+B$
 5890CASEP%OF
 5900WHEN1:IFS1%>=S2%PRINTB$
 5910WHEN2:IFS2%>=S1%PRINTB$
 5920ENDCASE
 5930A$=Course$+" : MATCH PLAY"+A$
 5940ENDPROC
 5950REM 
 5960DEFPROCstroke
 5970LOCALT%,B$
 5980T%=totscore%(P%)-par%:B$=STR$(ABST%)
 5990CASESGNT%OF
 6000WHEN0:B$="EVEN PAR"
 6010WHEN1:B$=B$+" OVER PAR"
 6020WHEN-1:B$=B$+" UNDER PAR"
 6030ENDCASE
 6040PRINTSTRING$(14-LENB$," ");B$
 6050A$=Course$+" : STROKE PLAY"+A$
 6060ENDPROC
 6070REM 
 6080DEFPROCshowwind
 6090LOCALw$,T%,C%,s%,i%,x1%,y1%,BX%,BY%
 6100IFgreen% C%=9:w$="SLOPE":s%=-2ELSEC%=6:w$="WIND":s%=4
 6110COLOUR13:PRINTTAB(26,0)"DIRECTION OF"TAB(29,1)w$
 6120FORT%=C%TOC%+s%STEPs%
 6130GCOLT%
 6140CIRCLE526,820,88+i%
 6150CIRCLE526,820,12+i%
 6160i%+=4:NEXT
 6170GCOL8
 6180MOVE526,820
 6190BX%=wx*25:BY%=wy*25
 6200x1%=va*BY%+vb*BX%:y1%=vi*BY%+va*BX%
 6210DRAW526+x1%,820+y1%
 6220ENDPROC
 6230REM 
 6240DEFPROCsetwind
 6250WX=0:WY=0:F%=green%
 6260wc=5+4*green%:wc2=wc
 6270IFF%:P%=mappoint%+&2F4:wx=FNmap2/3:wy=FNmap2/3:ENDPROC
 6280wx=0:wy=0:IFskill%<3ENDPROC
 6290wx=Wx:wy=Wy
 6300ENDPROC
 6310REM 
 6320DEFPROCinitwind
 6330LOCALa%
 6340stren%=RND(36)
 6350a%=RND(360)
 6360Wx=((COSRADa%)*stren%)/9
 6370Wy=((SINRADa%)*stren%)/9
 6380Fx=(SINRADa%)*(15+(stren%DIV2))
 6390Fy=(COSRADa%)*(15+(stren%DIV2))
 6400ENDPROC
 6410REM 
 6420DEFPROCspot
 6430bs%=1:BX=0:BY%=-R%:h%=0
 6440x1%=va*BY%+vb*BX:y1%=vi*BY%+va*BX
 6450PROCvt(y1%,x1%,H%):ys%-=4
 6460*FX112,2
 6470lie%=POINT(xs%+2,ys%)
 6480PROCwellie(0)
 6490IFNOTgreen%THEN
 6500T%=POINT((mx%(0,Hand%)+4+T%+80*Hand%),my%(0))
 6510IFT%=6ORT%=11THEN
 6520PROCwellie(30)
 6530ENDIF
 6540ENDIF
 6550*FX112,1
 6560MOVExs%,ys%:MOVEBY10,16
 6570ox%=xs%:oy%=ys%
 6580osx%=xs%:osy%=ys%
 6590sx%=xs%:sy%=ys%
 6600*SGET gr
 6610*SGET sh
 6620ENDPROC
 6630REM 
 6640DEFPROCwellie(W%)
 6650LOCALT%
 6660FORT%=1TO8:m%(T%,0)=T%+W%:NEXT
 6670wellie%=W%=30
 6680ENDPROC
 6690REM 
 6700DEFPROCsplash
 6710*CHANNELVOICE 1 PLOP
 6720LOCALA$,r%,a%,T%,x%,y%
 6730bad%=FALSE:SOUND1,-15,5,20
 6740FORr%=5TO55STEP5
 6750IFr%>9THEN
 6760GCOL6:WAIT:WAIT
 6770FORa%=0TO45
 6780x%=xs%+C(a%)*(r%-10):y%=ys%+S(a%)*((r%-10)>>2)
 6790IFPOINT(x%,y%)=11POINTx%,y%
 6800NEXT
 6810ENDIF
 6820GCOL11:IFr%<50THEN
 6830WAIT:WAIT
 6840FORa%=0TO45:x%=xs%+C(a%)*r%:y%=ys%+S(a%)*(r%>>2)
 6850IFPOINT(x%,y%)=6POINTx%,y%
 6860NEXT
 6870ENDIF
 6880NEXT
 6890stroke%+=1
 6900IFG%=11A$="THE SEA"ELSEA$="WATER"
 6910PROCmeswind("BALL LOST IN "+A$,"FORFEIT ONE STROKE","PLEASE PLAY AGAIN",5,6)
 6920PROCgetplayvals
 6930PROCspot
 6940*SCHOOSE plain
 6950WAIT:PLOT&ED,mx%(g%,Hand%),my%(g%):VDU23,27;m%(1,g%)|:PLOT&ED,mx%(g%,Hand%),my%(g%)
 6960ENDPROC
 6970REM 
 6980DEFPROCputback
 6990IFNOTgreen%THEN
 7000IFABSx1%<80x1%=(80+RND(30))*SGNx1%
 7010IFABSy1%<80y1%=(80+RND(30))*SGNy1%
 7020ENDIF
 7030currentR%(1)=FNdistance(ABSx1%,ABSy1%)
 7040currentx%(1)=x1%
 7050currenty%(1)=y1%
 7060currentS%(1)=stroke%
 7070ENDPROC
 7080REM 
 7090DEFPROCswapall
 7100SWAP currentR%(I%),currentR%(I%-1)
 7110SWAP currentx%(I%),currentx%(I%-1)
 7120SWAP currenty%(I%),currenty%(I%-1)
 7130SWAP currents%(I%),currents%(I%-1)
 7140SWAP currentS%(I%),currentS%(I%-1)
 7150SWAP totscore%(I%),totscore%(I%-1)
 7160SWAP oldpos%(I%),oldpos%(I%-1)
 7170SWAP name$(I%),name$(I%-1)
 7180SWAP hsp%(I%),hsp%(I%-1)
 7190SWAP hand%(I%),hand%(I%-1)
 7200SWAP jump%(I%),jump%(I%-1)
 7210ENDPROC
 7220REM 
 7230DEFPROCwinsort
 7240LOCALT%,I%
 7250IFnoofplayers<>1THEN
 7260FORT%=1TOnoofplayers:FORI%=2TOnoofplayers
 7270IFoldpos%(I%)<oldpos%(I%-1)THEN
 7280PROCswapall
 7290ENDIF
 7300NEXT:NEXT
 7310FORT%=1TOnoofplayers:FORI%=2TOnoofplayers
 7320IFcurrentS%(I%)<currentS%(I%-1)THEN
 7330PROCswapall
 7340ENDIF
 7350NEXT:NEXT
 7360ENDIF
 7370ENDPROC
 7380REM 
 7390DEFPROCsetplayer
 7400LOCALT%
 7410FORT%=1TOnoofplayers
 7420oldpos%(T%)=T%
 7430NEXT
 7440ENDPROC
 7450REM 
 7460DEFPROCwhichplayer
 7470LOCALT%,I%
 7480IFnoofplayers<>1THEN
 7490FORT%=1TOnoofplayers
 7500FORI%=2TOnoofplayers
 7510IFcurrentR%(I%)>currentR%(I%-1)THEN
 7520PROCswapall
 7530ENDIF
 7540NEXT:NEXT
 7550ENDIF
 7560stroke%=currentS%(1)
 7570skill%=currents%(1)
 7580IFcurrentx%(1)=0ANDcurrenty%(1)=0THEN
 7590round%=TRUE:mappoint%+=&300
 7600ENDIF
 7610IFhand%(1)<>Hand%THEN
 7620Hand%=hand%(1)
 7630FORT%=1TO11:OSCLI("SFlipY "+STR$(T%)):NEXT
 7640FORT%=31TO38:OSCLI("SFlipY "+STR$(T%)):NEXT
 7650*SFlipY 20
 7660ENDIF
 7670ENDPROC
 7680REM 
 7690DEFPROCgetplayvals
 7700X%=currentx%(1):YY%=currenty%(1)
 7710ENDPROC
 7720REM 
 7730DEFPROClight
 7740Y%=YY%
 7750IFY%>0ANDX%>0!px%=li%
 7760IFY%>0ANDX%<=0!px%=(li%+1)AND3
 7770IFY%<=0ANDX%<=0!px%=(li%+2)AND3
 7780IFY%<=0ANDX%>0!px%=(li%+3)AND3
 7790ENDPROC
 7800REM 
 7810DEFPROCdrawscreen
 7820P%=mappoint%:AA%=FNmap1
 7830PROCcaltre(x%(),y%(),z%())
 7840CALLsort,bs%,R%,BY%,K%,x1%,y1%,h%,AA%,x%(),z%(),y%()
 7850PROCwindows:PROCsceen
 7860ENDPROC
 7870REM 
 7880DEFPROCsine(X%,Y%)
 7890R%=FNdistance(ABSX%,ABSY%)
 7900green%=(R%<525):Ma=.7-(green%*.3)
 7910OL%=(VAL(STR$~((map!(mappoint%+&2FA))AND&FFFF)))>440
 7920r=12096-2000*green%-1500*(OL%ANDNOTgreen%)
 7930d=r-R%
 7940g%=-green%:O%=-6292*green%:H%=250+O%
 7950va=-X%/R%:vb=Y%/R%:vi=-vb
 7960ENDPROC
 7970REM 
 7980DEFFNdistance(x%,y%)
 7990=SQR(x%^2+y%^2)
 8000REM 
 8010DEFPROCgetstart
 8020P%=&2E8+mappoint%:X%=FNmap2
 8030YY%=FNmap2
 8040Hole%=map?(mappoint%+&2F8)
 8050stx%=X%:sty%=YY%
 8060REMYY%=15*21:X%=0
 8070FORT%=1TOnoofplayers
 8080currentx%(T%)=X%
 8090currenty%(T%)=YY%
 8100currentR%(T%)=FNdistance(X%,YY%)
 8110currentS%(T%)=0
 8120NEXT
 8130ENDPROC
 8140REM 
 8150DEFPROCchhole
 8160B%-=1
 8170IF(B%>0ANDya>4)ORh%>30ENDPROC
 8180IFh%>1ORABS(OBY%-BY%)>5PROCric:B%=4:ENDPROC
 8190DEFPROCchhole2
 8200D%=TRUE:*SCHOOSE sh
 8210PLOT&ED,osx%,osy%
 8220*SCHOOSE gr
 8230PLOT&ED,ox%,oy%
 8240*CHANNELVOICE 1 HOLED
 8250SOUND1,-15,20,20
 8260PROCdel(150)
 8270PROCholedout
 8280ya=0:u=0:ud=0:p%=0:h%=0:x1%=0:y1%=0
 8290ENDPROC
 8300REM 
 8310DEFPROCholedout
 8320LOCALA$,B$,C$,F%,S%
 8330S%=stroke%-map?(mappoint%+&2F9)
 8340CASES%OF
 8350WHEN1:A$="IT'S A BOGIE":B$=""
 8360WHEN0:A$="HOLED OUT TO PAR":B$="WELL DONE!"
 8370WHEN-1:A$="NICE ONE "+name$(1):B$="IT'S A BIRDIE"
 8380WHEN-2:A$="SUPERB PLAY "+name$(1):B$="IT'S AN EAGLE"
 8390WHEN-3:A$="CONGRATULATIONS "+name$(1):B$="YOU'VE FLOWN AN ALBATROSS"
 8400OTHERWISE A$="HOLED OUT "+STR$S%+" OVER PAR":B$=""
 8410ENDCASE
 8420C$="":F%=3:S%=5:IFstroke%=1A$="WOW! IT'S A HOLE IN ONE":B$="KNOCKED IN BY":C$=name$(1):F%=6:S%=3
 8430IF LENA$<LENB$REPEAT:A$=" "+A$+" ":UNTILLENA$>=LENB$
 8440PROCmeswind(A$,B$,C$,F%,S%)
 8450PROCdel(50)
 8460ENDPROC
 8470REM 
 8480DEFPROCric
 8490SOUND4,-15,20,1
 8500DEFPROC2ric
 8510u=u*4:IFu=0u=(3+RND(5))*SGNx1%
 8520ya=ya DIV2:p%=ya DIV3
 8530IFNOTgreen%ANDya=0 h%=0:p%=0
 8540ENDPROC
 8550REM 
 8560DEFPROCflight
 8570OBY%=BY%
 8580REPEATPROCfly:VDU23,27;m%(8,g%)|:PLOT&ED,mx%(g%,Hand%),my%(g%):IFba%:VDU23,27;20|:PLOT&ED,bag%(Hand%),-754
 8590IFgreen%ANDh%=0SYS6,112,2:G%=POINT(sx%+4,sy%+4):SYS6,112,1:IFG%=0PROCchhole
 8600OBY%=BY%:IFNOTgreen%ANDABS(x1%+4)<5ANDABS(y1%)<5PROCchhole
 8610IFABSsl>ya sl=ya/2*SGNsl
 8620wc-=1:IFwc=0THEN
 8630wc=wc2:IFwc2>1wc2-=1
 8640WX+=wx:WY+=wy
 8650ENDIF
 8660UNTILya<=0ANDh%=0ANDABSp%<2
 8670YY%=y1%:X%=x1%
 8680IFD%ORNOTgreen%ENDPROC
 8690*FX112,2
 8700G%=POINT(sx%,sy%)
 8710G1%=POINT(sx%,sy%+8)
 8720*FX112,1
 8730IF(G%ANDG1%)=0PROCchhole2
 8740ENDPROC
 8750REM 
 8760DEFPROCfly
 8770IFh%<4ANDya<16WAIT
 8780WAIT:BX+=u*yd+Sl:Sl+=sl:u-=ud:IFABSu>ya u=u>>1
 8790BY%+=ya*yd:IFya>0 ya-=.5:ELSEya=0
 8800x1%=va*BY%+vb*BX+WX:y1%=vi*BY%+va*BX+WY:h%+=p%*Ma:p%-=1:IFp%<10F%=TRUE
 8810IFh%<=0 PROCbounce
 8820PROCvt(y1%,x1%,H%):sx%=xs%:sy%=ys%:PROCvt(y1%,x1%,H%-h%)
 8830IFK%=TRUE ud=0:ya=0:p%=0:u=0:K%=1:SOUND3,-10,20,40
 8840IFW%CALL plotball,bs%,oy%,ox%,osy%,osx%,ys%,xs%,sy%,sx%
 8850ENDPROC
 8860REM 
 8870DEFPROCwalter
 8880*CHANNELVOICE 1 SHOOSH
 8890LOCALT%,I%
 8900yd=1+(.75*green%):FORT%=1TO5:*SCHOOSE BLACK
 8910WAIT:PLOT&ED,mx%(g%,Hand%),my%(g%):VDU23,27;m%(T%,g%)|:PLOT&ED,mx%(g%,Hand%),my%(g%):FORI%=0TOT%:WAIT:NEXT:NEXT
 8920FORT%=5TO1STEPTRUE:*SCHOOSE BLACK
 8930IFT%=3ANDNOTgreen%SOUND1,SO%,40,40
 8940FORI%=1TOT%:WAIT:NEXT:PLOT&ED,mx%(g%,Hand%),my%(g%):VDU23,27;m%(T%,g%)|:PLOT&ED,mx%(g%,Hand%),my%(g%):NEXT
 8950SOUND2,SO%,1,10
 8960FORT%=6TO8:IFT%>6PROCfly:ELSEWAIT
 8970*SCHOOSE plain
 8980IFNOTgreen%:WAIT:PLOT&ED,mx%(g%,Hand%),my%(g%)ELSEWAIT
 8990VDU23,27;m%(T%,g%)|:PLOT&ED,mx%(g%,Hand%),my%(g%)
 9000IFlie%=1:GCOL1:FORI%=0TO20:POINTsa%(0,T%-6,I%)+(T%+10)*Hand%,sa%(1,T%-6,I%)+my%(g%):NEXT:GCOL8,0
 9010NEXT
 9020PROCfly:PROCfly
 9030*SCHOOSE plain
 9040WAIT:PLOT&ED,mx%(g%,Hand%),my%(g%):VDU23,27;m%(8,g%)|:PLOT&ED,mx%(g%,Hand%),my%(g%)
 9050ENDPROC
 9060REM 
 9070DEFPROCdel(T%)
 9080TIME=0:REPEATUNTILTIME>T%
 9090ENDPROC
 9100REM 
 9110DEFPROCbunker
 9120GCOL32,0:H%+=2:P%=oP%
 9130PROCdrawbunk
 9140GCOL2:H%+=2:P%=oP%
 9150PROCdrawbunk
 9160H%-=4
 9170ENDPROC
 9180REM 
 9190DEFPROCdrawbunk
 9200np%=FNmap1:PROCmap(CX%,CY%,H%,4,r):PROCmap3(SX%,SY%,H%,4,r,CX%)
 9210FORI%=1TOnp%-1:PROCmap3(XI%,YI%,H%,85,r,CX%):MOVECX%,CY%:NEXT
 9220PLOT85,SX%,SY%
 9230ENDPROC
 9240REM 
 9250DEFPROCmap3(RETURN x%,RETURN y%,z%,p%,r,CX%)
 9260LOCALpO%
 9270y%=FNmap2:x%=FNmap2:xe=va*x%+vb*y%:ze=(vi*x%+va*y%+r)*Ma:x%=d*xe DIVze:y%=-(d*z%DIVze)*2
 9280IFNOTgreen%IFy%>-32ORy%<&FFFF8000 y%=-6000
 9290x%=x%-SGN(x%-CX%)*4
 9300pO%=POINT(x%,y%)
 9310WHILEpO%>3
 9320y%+=4:pO%=POINT(x%,y%)
 9330ENDWHILE
 9340PLOTp%,x%,y%
 9350ENDPROC
 9360REM 
 9370DEFPROCsceen
 9380No%=FNmap1
 9390rough=P%
 9400IFgreen%THEN
 9410Co%=FNmap1
 9420REPEAT:np%=FNmap1
 9430P%=P%+np%*4+4:Co%=FNmap1:No%-=1
 9440UNTILCo%=5ORCo%=1:P%-=1
 9450ENDIF
 9460sP%=P%:FORT%=1TONo%:Co%=FNmap1:IFCo%=6water=P%
 9470IFgreen%ANDCo%=4THEN
 9480np%=FNmap1:P%=P%+np%*4+4
 9490ELSE:oP%=P%:Co%=Co%-((Co%=1)ANDgreen%):GCOLCo%
 9500PROCdrawit:IFCo%=1PROCbunker
 9510ENDIF:NEXT:IFgreen%THEN
 9520GCOL8,0
 9530*SCHOOSE HOLE
 9540PLOT&ED,-6,-(d*H%DIVr)*2-12
 9550ENDIF
 9560PROCtrees:*FX112,2
 9570IFgreen%COLOUR135:ELSECOLOUR139
 9580CLS:P%=sP%:FORT%=1TONo%:Co%=FNmap1:GCOLCo%
 9590IFgreen%ANDCo%=4THEN
 9600np%=FNmap1:P%=P%+np%*4+4
 9610ELSEoP%=P%:PROCdrawit
 9620ENDIF
 9630NEXT
 9640IFgreen%THEN
 9650GCOL8,0
 9660*SCHOOSE BLACKHOLE
 9670PLOT&ED,-6,-(d*H%DIVr)*2-12
 9680ENDIF
 9690*FX112,1
 9700CASEjump%(1)OF
 9710WHEN1:COLOUR8,208,0,0
 9720WHEN2:COLOUR8,144,128,80
 9730WHEN3:COLOUR8,112,112,112
 9740WHEN4:COLOUR8,240,112,0
 9750WHEN5:COLOUR8,96,96,48
 9760WHEN6:COLOUR8,208,80,144
 9770ENDCASE
 9780ENDPROC
 9790REM 
 9800DEFPROCgtos(Y%)
 9810VDU26:MOVE0,Y%:MOVE1279,Y%+319:*SGET topofscreen
 9820ENDPROC
 9830REM 
 9840DEFPROCgetinfo
 9850*CHANNELVOICE 1 1
 9860LOCALya2,BX%,BY%,yst%
 9870PROCgtos(704)
 9880ORIGIN80,0
 9890VDU24,0;704;1131;1023;
 9900GCOL139:COLOUR139:CLG
 9910GCOL8:RECTANGLE0,704,412,319
 9920RECTANGLE412,704,228,319
 9930RECTANGLE640,704,491,319
 9940GCOL3:RECTANGLE4,708,404,311
 9950RECTANGLE416,708,220,311
 9960RECTANGLE644,708,483,311
 9970GCOL4:RECTANGLE8,712,396,303
 9980RECTANGLE420,712,212,303
 9990RECTANGLE648,712,475,303
10000OFF:VDU28,6,8,74,1:COLOUR12
10010PRINTTAB(41,0)"PLAYER         : ";:COLOUR8:PRINTname$(player%):COLOUR12
10020PRINTTAB(41,1)"PLAYING AT     : "Course$
10030PRINTTAB(41,2)"HOLE NUMBER    : ";Hole%
10040PRINTTAB(41,3)"PAR            : ";~map?(mappoint%+&2F9)
10050PRINTTAB(41,4)"OVERALL LENGTH : ";~(map!(mappoint%+&2FA))AND&FFFF;" YARDS"
10060PRINTTAB(41,5)"RANGE TO HOLE  : ";:COLOUR8:PRINT;(R%DIV21)*(1-green%*2);:IFgreen%:PRINT" FEET":ELSEPRINT" YARDS"
10070COLOUR12:PRINTTAB(41,6)"STROKES PLAYED : ";stroke%
10080PROCshowlie
10090PROCsetwind
10100PROCshowwind
10110REPEAT
10120ORIGIN80,0
10130PROCgetclub
10140COLOUR12:PRINTTAB(2)"DIRECTION THEN POWER"
10150COLOUR8:PRINTTAB(4)A$(vp%)" SELECTED"
10160GCOL8:RECTANGLE46,776,320,128:RECTANGLE44,776,324,128:LINE48,866,364,866
10170GCOL6:RECTANGLEFILL48,870,316,32:GCOL12:MOVE78,898:VDU5:PRINT"CLUB POWER METER"CHR$4:OFF
10180LINE56,784,56,824:FORT%=49TO100:IFINT((T%/100*T%)MOD25)=0:LINET%*3+56,784,T%*3+56,824
10190NEXT
10200RECTANGLE56,792,300,24
10210GCOL11:RECTANGLEFILL56,796,300,16
10220my%=256-green%*164:SYS6,106,2
10230ORIGIN0,0
10240MOUSERECTANGLE432+(green%=0)*160,my%,414-(green%=0)*320,0:MOUSETO640,my%
10250xs%=0:OX%=0:u=0
10260REPEAT:MOUSEX%,Y%,C%
10270IFC%=1ORC%=4UNTILTRUE:UNTILFALSE
10280a%=(X%-xs%-640)/8:IFABSa%<10a%=SGNa%
10290u+=a%
10300IFX%<>xs%THEN
10310BX%=0:BY%=-R%:PROCvt(vi*BY%+va*BX%,va*BY%+vb*BX%,H%):yst%=ys%+25
10320REPEAT:BX%+=u:BY%+=80:PROCvt(vi*BY%+va*BX%,va*BY%+vb*BX%,H%):UNTILys%>=yst%
10330ENDIF
10340MOUSETOxs%-640,my%
10350UNTILC%=2
10360MOUSEOFF
10370p%=FNpower
10380SO%=-15*p%/100
10390IFNOTgreen%ANDvp%=13u=u+RND(5)-3
10400u=u/(8-g%*2):ya=INT((CV%(vp%)/100)*p%):IFya<1ya=1
10410ud=u/(ya*3)
10420p%=p%*.32:h%=0
10430IFvp%=13p%=5*-(green%=FALSE)
10440PROCdel(100):stroke%+=1
10450VDU4,26:OFF:*SCHOOSE topofscreen
10460GCOL8,0:PLOT&ED,0,704
10470PROCwindows2
10480ENDPROC
10490REM 
10500DEFPROCshowlie
10510LOCALa$
10520a$="ON THE ":COLOUR8
10530PRINTTAB(41,7);
10540bunk%=FALSE:bad%=FALSE:wind%=skill%>2
10550IFgreen%THEN
10560IFlie%=5 PRINTa$"GREEN";:ELSEPRINT"ON EDGE OF GREEN";:lie%=5
10570ENDIF
10580CASElie%OF
10590WHEN1:PRINT"IN A BUNKER ";:PROCgob
10600WHEN4:PRINT"ON A PATHWAY";
10610WHEN6:PROCwetmes
10620WHEN7:IFy1%<>sty%:PRINTa$"FAIRWAY";:ELSEPRINTa$"TEE";
10630WHEN9:PRINT"IN THE ROUGH ";:PROCgob
10640ENDCASE
10650ENDPROC
10660REM 
10670DEFPROCwetmes
10680GCOL6:bunk%=TRUE:LOCALT%
10690T%=RND(3)
10700CASET%OF
10710WHEN1,3:PRINT"IN SHALLOW WATER";
10720WHEN2:IFwellie%PRINT"IT'S A WELLIE JOB";:ELSEPRINT"BALANCED ON LILY PAD";
10730ENDCASE
10740ENDPROC
10750REM 
10760DEFPROCgob
10770LOCALg$,b$:g$="GOOD LIE":IFlie%=9b$="BAD LIE":ELSEb$="PLUGGED"
10780CASEskill%OF
10790WHEN1:PRINT"NO EFFECT";
10800WHEN2,3:PRINTg$;:bunk%=TRUE
10810WHEN4:bunk%=TRUE:IFRND(2)=2PRINTb$;:bad%=1:ELSEPRINTg$;
10820ENDCASE
10830ENDPROC
10840REM 
10850DEFFNpower
10860LOCALX%,C%,c%,p%,a%
10870ORIGIN80,0
10880COLOUR12:PROCbutt(0):PROCdel(1):a%=1
10890WHILEC%=0ANDc%<>156
10900p%+=a%:IFp%=100a%=TRUE
10910c%+=1:GCOL8:IFc%AND1WAIT
10920RECTANGLEFILL56,796,p%*3,16:GCOL11:RECTANGLEFILL56+p%*3,796,300-p%*3,16
10930PRINTTAB(2,4);INT(p%/100*p%)-(c%<10);"%  ":MOUSEX%,X%,C%
10940ENDWHILE
10950Sl=0:sl=0
10960IFvp%<>13THEN
10970CASEC%OF
10980WHEN1:sl=.05
10990WHEN4:sl=-.05
11000ENDCASE
11010ENDIF
11020IFskill%<>1THEN
11030CASElie%OF
11040WHEN1,9:p%=(p%/100)*red%(vp%,bad%)
11050WHEN6:a%=vp%-2*(p%<11):p%=p%/100*red%(a%,bad%)
11060ENDCASE
11070ENDIF
11080SOUND1,-10,200,1
11090IFp%<1p%=1
11100=p%
11110REM 
11120DEFPROCgetclub
11130PROCbutt(0):PROCcls
11140IFgreen%vp%=13:ENDPROC
11150LOCALX%,Y%,C%,x%,y%,ox%,oy%
11160ox%=-100:OFF:VDU28,6,8,74,1:PROCmrect(1):MOUSE ON:COLOUR12:REM:SYS6,106,3
11170FORT%=0TO13:PRINTTAB(TX%(T%),TY%(T%))A$(T%);:NEXT
11180COLOUR2:PRINTTAB(6,0)"SELECT A CLUB":TEMPO&2000:BEATS100:VDU5:GCOL3,2:PROCbox
11190REPEAT:IFBEAT=0:GCOL3,2:PRINTTAB(7,1)"SELECT A CLUB":REPEATUNTILBEAT<>0
11200MOUSEX%,Y%,C%:x%=X%DIV128:y%=Y%AND&FFE0
11210IFx%<>ox%ORy%<>oy%PROCbox
11220PROCmrect(X%):vp%=3^x%+(x%=0)+28-y%DIV32+(x%=2ANDy%<832)
11230UNTILC%<>0
11240PROCbutt(0):VDU4
11250DEFPROCcls
11260OFF:VDU28,6,8,29,1:CLS
11270ENDPROC
11280REM 
11290DEFPROCbox
11300GCOL3,6
11310RECTANGLEFILL32+128*ox%,oy%,96,32
11320RECTANGLEFILL32+128*x%,y%,96,32
11330SOUND1,-10,200,1
11340ox%=x%:oy%=y%
11350ENDPROC
11360REM 
11370DEFPROCmrect(R%)
11380IFR%>288PROCiop2
11390CASER%OF
11400WHEN 1:MOUSERECTANGLE38,844,90,72:MOUSETO83,912
11410WHEN 162:MOUSERECTANGLE38,844,90,72:MOUSETO83,846
11420WHEN 128:MOUSERECTANGLE162,752,90,164:MOUSETO208,912
11430WHEN 252:PROCiop
11440WHEN 288:MOUSERECTANGLE162,752,90,164:MOUSETO208,756
11450ENDCASE
11460ENDPROC
11470REM 
11480DEFPROCiop
11490IFY%>835THEN
11500MOUSERECTANGLE288,836,90,80:MOUSETO349,912
11510ELSE MOUSERECTANGLE288,752,90,50:MOUSETO349,778
11520ENDIF
11530ENDPROC
11540REM 
11550DEFPROCiop2
11560IFY%=836MOUSERECTANGLE288,752,90,50:MOUSETO349,786
11570IFY%=802MOUSERECTANGLE288,836,90,80:MOUSETO349,856
11580ENDPROC
11590REM 
11600DEFPROCbutt(on)
11610LOCALD%,C%
11620REPEAT
11630MOUSED%,D%,C%
11640UNTILC%=on
11650ENDPROC
11660REM 
11670DEFPROCwindows
11680VDU26:GCOL128:CLG:PROCmaincols
11690IFNOTgreen%THEN
11700GCOL6:RECTANGLEFILL 0,0,1280,736
11710GCOL4:LINE0,732,1280,732
11720GCOL138:VDU24,0;736;1279;1023;:CLG
11730PROCclouds
11740ELSEGCOL135:CLG
11750ENDIF
11760DEFPROCwindows2
11770VDU26:ORIGIN640,768+O%-6166*green%
11780ENDPROC
11790REM 
11800DEFPROCclouds
11810LOCALC%,T%,O%
11820IFvb>0 O%=DEGASNva ELSEO%=180+(180-DEGASNva)
11830O%=ABSO%*3.5:GCOL11
11840FORC%=1TO12:FORT%=1TO12
11850ELLIPSEFILL(CL%(0,C%,T%)+O%)MOD2520+I%,CL%(1,C%,T%),256,64
11860NEXT:NEXT
11870ENDPROC
11880REM 
11890DEFPROCinitcloud
11900LOCALC%,T%,X%,Y%
11910FORC%=0TO12:X%=194*C%+RND(194):Y%=RND(288)+736
11920FORT%=0TO12:CL%(0,C%,T%)=X%+RND(5)*40:CL%(1,C%,T%)=Y%+RND(5)*12
11930NEXT:NEXT
11940ENDPROC
11950REM 
11960DEFPROCbounce
11970h%=0:p%=-p%/2.2
11980IFvp%=13ANDNOTgreen%ANDRND(10)=5PROC2ric
11990*FX112,2
12000G%=POINT(sx%,sy%)
12010*FX112,1
12020CASEG%OF
12030WHEN1:p%=p%>>1:IFp%>4:ya=ya*.3:ELSEya=ya*.75
12040WHEN4:IFp%>3ANDya<>0p%=p%*1.5:ya=ya*1.3:ud=ud/1.3
12050WHEN6,11:W%=FALSE:xs%=1000:sx%=1000:ya=0:p%=0:h%=0:CALL plotball,bs%,oy%,ox%,osy%,osx%,ys%,xs%,sy%,sx%
12060WHEN9,-1:ya=ya/1.5:p%=p%>>1:u=u/2:ud=ud/2
12070ENDCASE
12080ENDPROC
12090REM 
12100DEFPROCdrawit
12110np%=FNmap1:PROCmap(CX%,CY%,H%,4,r):PROCmap(SX%,SY%,H%,4,r)
12120FORI%=1TOnp%-1:PROCmap(XI%,YI%,H%,85,r):MOVECX%,CY%:NEXT
12130PLOT85,SX%,SY%
12140ENDPROC
12150REM 
12160DEFPROCvt(x%,y%,z%)
12170xe%=va*x%+vb*y%:ze%=(vi*x%+va*y%+r)*Ma:xs%=d*xe% DIVze%:ys%=-(d*z% DIVze%)*2
12180ENDPROC
12190REM 
12200DEFPROCcaltre(RETURN x%(),RETURN y%(),RETURN z%())
12210LOCALi%,l%,lo%,n%
12220FORA%=1TOAA%
12230l%=FNmap2:trex!(A%*4)=l%
12240i%=FNmap2:trey!(A%*4)=i%
12250xe=va*i%+vb*l%
12260ze=(vi*i%+va*l%+r)*Ma
12270x%(A%)=d*xe DIVze:y%(A%)=-(d*H% DIVze)*2
12280z%(A%)=-(d*(H%+200)DIVze)*2
12290NEXT
12300ENDPROC
12310REM 
12320DEFPROCmap(RETURN x%,RETURN y%,z%,p%,r)
12330y%=FNmap2:x%=FNmap2:xe=va*x%+vb*y%:ze=(vi*x%+va*y%+r)*Ma:x%=d*xe DIVze:y%=-(d*z%DIVze)*2
12340IFNOTgreen%IFy%>-32ORy%<&FFFF8000 y%=-6000
12350PLOTp%,x%,y%
12360ENDPROC
12370REM 
12380DEFFNmap1:P%+=1:=map?(P%-1)
12390REM 
12400DEFFNmap2:P%+=2:Q%=map!(P%-2)AND&FFFF
12410IFQ%>&7FFFQ%=Q%OR&FFFF0000
12420=Q%
12430REM 
12440DEFPROCtrees
12450PF%=TRUE:PB%=-(d*H%DIV(r*Ma))*2
12460PT%=-(d*(H%-30)DIV(r*Ma))*2
12470FB%=-(d*(H%-24)DIV(r*Ma))*2
12480xe=va*Fx+vb*Fy:ze=(vi*Fx+va*Fy+r)*Ma:FX%=d*xe DIVze:FY%=-(d*(H%-16-(stren%DIV4))DIVze)*2
12490IFgreen%ENDPROC
12500FORT%=AA%TO1STEPTRUE
12510X1%=x%(T%):Y%=y%(T%)
12520IFPF%ANDY%<PB% GCOL11:MOVE0,PB%:DRAW0,PT%:GCOL3:MOVE0,FB%:PLOT85,FX%,FY%:PF%=FALSE
12530IF(ABSX1%>400ORY%>-708)ANDABSX1%<800ANDY%>-1000THEN
12540x%=(ABSY%-ABSz%(T%))>>1:y%=-x%>>2:ya%=y%*1.5:xa%=x%>>4:yd%=ya%>>2
12550GCOLtr%!(((px%+1)AND3)*4):RECTANGLEFILLX1%,Y%,-xa%,y%
12560GCOLtr%!(((px%+2)AND3)*4):RECTANGLEFILLX1%,Y%,xa%,y%
12570Y%+=y%:xa%=xa%*2:z%(T%)=FALSE:x%=x%*.8:xa%=xa%*.8
12580CALLplottree,xa%,y%,x%,X1%,Y%,ya%,yd%
12590ELSE z%(T%)=TRUE
12600ENDIF
12610NEXT
12620ENDPROC
12630REM 
12640DEFPROCinitiate
12650Hand%=0:green%=0
12660GCOL0,1
12670PROCcolours(12)
12680DIMred%(13,1)
12690DIM CL%(1,12,12)
12700DIM code &900
12710DIM map &6D00
12720OSCLI"L. THE_LINKS "+STR$~map
12730DIM parb 20
12740DIM x%(96),y%(96),z%(96)
12750DIMTX%(13),TY%(13),A$(13),CV%(13)
12760DIMmx%(1,1),my%(1),m%(8,1),bag%(1),name$(6),defname$(6):player%=1
12770DIMholescores%(6,18),currentx%(6),currenty%(6),currentR%(6),currentS%(6),currents%(6),totscore%(6),oldpos%(6),hsp%(6),hand%(6),jump%(6)
12780DIMC(45),S(45)
12790DIMsa%(1,2,20)
12800currents%()=1
12810FORI%=2TO4
12820FORN%=0TO20
12830sa%(0,I%-2,N%)=RND(I%*8)-I%*4
12840sa%(1,I%-2,N%)=I%*12+16+RND(I%)*4
12850NEXT
12860NEXT
12870FORT%=0TO45
12880C(T%)=COSRAD(T%*8):S(T%)=SINRAD(T%*8)
12890NEXT
12900mx%(0,1)=-2:mx%(0,0)=-96:my%(0)=-728
12910mx%(1,1)=-4:mx%(1,0)=-64:my%(1)=-13121
12920bag%(0)=-196:bag%(1)=120
12930sx%=TRUE:sy%=TRUE:r=11096
12940RESTORE 13150
12950FORT%=0TO13
12960READTX%(T%),TY%(T%),A$(T%),CV%(T%)
12970NEXT
12980PROCwellie(0)
12990FORT%=1TO8:READm%(T%,1):NEXT
13000FORI%=0TO1:FORT%=0TO13:READred%(T%,I%):NEXT,
13010CX%=0:CY%=0:SX%=0:SY%=0:XI%=0:YI%=0
13020h%=0:x1%=0:y1%=0:K%=0:BY%=0:bs%=0
13030defname$(1)="JOHN"
13040defname$(2)="GEORGE"
13050defname$(3)="PAUL"
13060defname$(4)="RINGO"
13070defname$(5)="MICK"
13080defname$(6)="JERRY"
13090PROCcode
13100*POINTER
13110MOUSE OFF
13120MOUSECOLOUR1,0,240,0
13130MOUSECOLOUR2,0,128,0
13140ENDPROC
13150DATA1,2,1 WOOD,74
13160DATA1,3,3 WOOD,70
13170DATA1,4,5 WOOD,68
13180DATA9,2,1 IRON,67
13190DATA9,3,2 IRON,65
13200DATA9,4,3 IRON,63
13210DATA9,5,4 IRON,61
13220DATA9,6,5 IRON,59
13230DATA9,7,6 IRON,57
13240DATA17,2,7 IRON,55
13250DATA17,3,8 IRON,53
13260DATA17,4,9 IRON,48
13270DATA17,6,WEDGE,41
13280DATA17,7,PUTTER,60
13290DATA9,10,10,11,11,9,9,9
13300DATA30,40,48,55,61,66,71,76,81,85,89,93,96,100
13310DATA1,1,1,1,1,1,15,40,55,66,76,85,93,1
13320REM 
13330DEFPROCcolours(M%)
13340WAIT:MODEM%:OFF
13350PROCmaincols
13360VDU23,17,4,1|
13370VDU23,2,&EF,&FE,&EF,&FE,&EF,&FE,&EF,&FE
13380VDU23,3,&12,&21,&12,&21,&12,&21,&12,&21
13390VDU23,4,&C0,&0C,&C0,&0C,&C0,&0C,&C0,&0C
13400VDU23,5,&D4,&4D,&D4,&4D,&D4,&4D,&D4,&4D
13410ENDPROC
13420DEFPROCmaincols
13430REM 
13440COLOUR0,0,0,0:REM BLACK
13450COLOUR1,176,128,0:REM DARK SAND
13460COLOUR2,176,160,48:REM LIGHT SAND
13470COLOUR3,208,160,144:REM FLESH
13480COLOUR4,144,144,144:REM PATH
13490COLOUR5,16,208,0:REM GREEN
13500COLOUR6,32,144,208:REM WATER
13510COLOUR7,0,160,0:REM FAIRWAY
13520COLOUR8,208,0,0:REM RED
13530COLOUR9,0,112,0:REM ROUGH
13540COLOUR10,96,192,224:REM SKY
13550COLOUR11,240,240,240:REM WHITE
13560COLOUR12,80,48,16:REM DARK BROWN
13570COLOUR13,96,64,48:REM LIGHT BROWN
13580COLOUR14,16,64,48:REM DARK GREEN (TREE)
13590COLOUR15,0,96,64:REM LIGHTER GREEN (TREE)
13600ENDPROC
13610REM 
13620DEFPROCpointer
13630DIMpar 20,block 112
13640RESTORE13750
13650FORT%=0TO108STEP4:READblock!T%:NEXT
13660?par=0
13670par?1=2
13680par?2=8
13690par?3=14
13700par?4=16
13710par?5=7
13720par!6=block
13730MODE12
13740A%=21:B%=par:C%=par DIV256:SYS 7,A%,B%,C%
13750DATA&AAAA,&AAAA0000,&9556,&95560000,&AA96,&96AA0000,&A6,&9A000000,&2A,&A8000000,&0,&0,&0,&0,&0,&0,&0,&0,&2A,&A8000000,&A6,&9A000000,&AA96,&96AA0000,&9556,&95560000,&AAAA,&AAAA0000
13760ENDPROC
13770REM 
13780DEFPROCcode
13790OSCLI("LOAD holedout4 "+STR$~code)
13800plotball=code+&188
13810plottree=code
13820sort=code+&7E0
13830px%=code+&158
13840tr%=code+&148
13850trex=code+&4B8
13860trey=code+&63C
13870ENDPROC
13880*RUN DRIVER


� >HOLEDOUT3
7� PROGRAMMED BY G.J.KEY BETWEEN 23-3-89 AND 29-4-89
� (C) THE FOURTH DIMENSION
(� 
2*FX200,3
<�pointer:�initiate
F
�instruct
P*FX200,2
Z�
d�colours(12)
n*SCHOOSE SCREEN
x*CHANNELVOICE 1 BELL
��&ED,0,0
��=0
�	*FX15
��:ȗX%,Y%,T%
��>3000�1,-15,300,1:�=0
��T%��(10)<>�
�*CHANNELVOICE 1 1
��
��getoptions
�
�*FX200,3
��colours(12)
�Hole%=1:totscore%()=0
#�T%=1�noofplayers:hsp%(T%)=T%:�
X%=0
�
"�X%>718�Hole%=18��:��
,round%=�
6�initcloud
@li%=�(4)-1
J
�getstart
T
�initwind
^�setplayer
h�
r�whichplayer
|�round%��:�board:��
��getplayvals
�
�light
��sine(X%,Y%)
��drawscreen
�	�spot
�%�mx%(g%,Hand%),my%(g%):�BY120,176
�*SGET PLAIN
�*SCHOOSE BALL1
��&ED,xs%,ys%
�%�mx%(g%,Hand%),my%(g%):�BY120,176
�*SGET BLACK
�*SCHOOSE 20
�ba%=sty%=y1%:�8,0
�ba%�&ED,bag%(Hand%),-754
�
/�23,27;m%(1,g%)|:�&ED,mx%(g%,Hand%),my%(g%)
&�getinfo
0
D%=�:B%=�
:
W%=�:K%=�
D�walter
N�flight
X�sx%>640�chofsc
b�W%�splash:��:���
l�putback
v��
�� 
���instruct
��colours(9):�screenbox
�C�quest("DO YOU REQUIRE INSTRUCTIONS?","YES","NO",0):�butt(0):�
�'�colours(12):�mesbox(0,0,1279,1023)
��12:ȓ998,640,160,256
�*�1058,896,1066,940:�1090,940:�1098,896
��139:�1:Ȑ1078,900
��1,240,240,192
��2,240,208,208
��3,240,240,224
��1:ȓȐ1000,644,156,248
��3:ȓȐ1000,644,156,124
�T%=0�2
�12:ȓ1012+T%*50,800,32,64
�2:ȓȐ1014+T%*50,804,28,56
 !�12:�1020+T%*50,850:�5:�;T%+1
*
�:�4:�
4�139:�12
>�28,2,30,78,4
H��0,0)"Game control in the Archimedes version of ";:�9:�"HOLED OUT";:�12:�" is via"'"the MOUSE, the keys are numbered as indicated on the right."
RT�'"The differences to the instructions as shown in the manual"'"are as follows:"
\B�'"STROKEPLAY/"�16)"There can be up to 6 players in any round"
f��'"GAME CONTROLS/"''"1. SELECT CLUB. Use the MOUSE to indicate the club required then"�16)"press any button to go to the next stage"
pG�'"2. DIRECTION.   Position the cursor with the MOUSE then either."
z.�(16)"Press [2] to go to the next stage."
�3�(16)"Press [1] or [3] to select another club"
�Q�'"3. POWER."�16)"As soon as the direction has been selected by pressing [2]"
�0�16)"the bar indicator will start to move."
�/�16)"Pressing [2] will give a Normal shot"
�/�16)"Pressing [1] will give a Hooked shot"
�/�16)"Pressing [3] will give a Sliced shot"
�)�''�22)"PRESS ANY BUTTON TO CONTINUE"
��butt(0)
�!�:ȗX%,Y%,K%:�K%:�1,-10,200,1
��butt(0)
��
�� 
���chofsc
*FX112,3
�
=�x1%=� ȑ1280,768+O%-6166*green%:�ȑ0,768+O%-6166*green%
$P%=rough
.�map1:�drawit
8�map1:�drawit
BP%=water:�6:�drawit
LG%=�xs%,ys%)
V�G%=6�G%=11W%=�
`*FX112,1
j�
t� 
~
��preview
��
��colours(9):�screenbox:ȗ�
�lhol%=�choseahole
��lhol%�drawmap(lhol%)
��lhol%=�
��
�� 
���drawmap(holeno%)
��initcloud
�li%=2:�initwind
�%�r%,l%,OL%,A%,AA%,T%,I%,SP%,X%,Y%
�X%=640:Y%=512
�

P%=mappoint%+holeno%:SP%=P%
&OL%=(�(�~((map!(P%+&2FA))�&FFFF)))

AA%=�map1
(
�A%=1�AA%
2l%=�map2/10.5
<r%=�map2/10.5
Fx%(A%)=r%:y%(A%)=l%
P�
ZI%=�map1-1
d"T%=�map1:T%=�map1:P%=P%+T%*4+4
nl%=0:r%=0:t%=0:b%=0
x �colours(12):�screenbox:�137
�&�mesbox(532-OL%,294,OL%*2+212,692)
�)�26,24,548-OL%;310;548+OL%+180;970;:�
�ȑ592+OL%,640
��T%=1�I%:�map1
�
np%=�map1
�%�map2(CX%,CY%,4):�map2(SX%,SY%,4)
�,�I%=1�np%-1:�map2(XI%,YI%,85):�CX%,CY%:�
��85,SX%,SY%
�	�:�14
�8�T%=1�AA%:�-x%(T%),-y%(T%))<>6ȏȐ-x%(T%),-y%(T%),8
��:�0:Ȓ0,0
��26
�V�smallmes(144,166,12,"POSITION POINTER ON VIEWPOINT THEN PRESS THE MIDDLE BUTTON")
J�smallmes(232,66,12,"ANY OTHER BUTTON TO RETURN TO THE HOLE SELECTOR")
ȗ�:ȗ�X%,Y%
�
"!ȗȓ548-OL%,310,OL%*2+180,660
,ȗX%,Y%,T%
6'�X%<688�r%=(688-X%)�8�r%=(X%-688)�8
@)ȗȓ548-OL%,310+r%,OL%*2+180,660-r%*2
Jy%=((592+OL%)-X%)�2
Tx%=(640-Y%)�2
^&�T%=2�displayview(X%,Y%,SP%):��:��
h
�T%:��
r�
|� 
���displayview(X%,Y%,SP%)
�ȗ�
��A$,mappoint%:mappoint%=SP%
�YY%=(((592+OL%)-X%)�2)*21
�X%=((640-Y%)�2)*21
��X%<42��YY%<42X%=42:YY%=42
�7OL%=(�distance(X%,YY%)):green%=(OL%<525):OL%=OL%/21
�.A$=Course$+" HOLE "+�(holeno%�&300+1)+", "
�7�green% A$=A$+�(OL%*3)+" FEET":�A$=A$+�OL%+" YARDS"
�A$=A$+" FROM HOLE"
�
�light
��sine(X%,Y%)
��drawscreen
/�26:X%=640-�A$*8-24:�smallmes(X%,860,13,A$)
�butt(0)
�ȗX%,Y%,SP%:�SP%
&�butt(0)
0�
:� 
D��map2(� x%,� y%,p%)
N!y%=-�map2/10.5:x%=-�map2/10.5
X
�p%,x%,y%
b�
l� 
vݤchoseahole
��butt(0)
��X%,Y%,K%,F%,N%,out%
�,�centbox(�,"PLEASE SELECT A HOLE",12,10)
�&�mesbox(464,444,148,100):�dono2(1)
��mesbox(704,536,80,80)
� �smallmes(704,462,12,"EXIT")
��mesbox(704,368,80,80)
�%�15:�744,600:�720,554:�85,768,554
�2�744,388:�720,432:�85,768,432:�720,436,768,436
� �8:�720,432,744,388:�768,432
��720,558,744,600:�768,558
�ȗȓ480,388,432,220
�N%=1:�:ȗX%,Y%,K%
�K%�
�X%>716�
�X%<772�
 6�Y%>544N%=N%�18+1:�dono2(N%):�1,-10,200,1:�butt(0)
*A�Y%<442N%-=1:N%=N%-(N%=0)*18:�dono2(N%):�1,-10,200,1:�butt(0)
4�
>*�Y%>472�Y%<516out%=�:F%=�:�1,-10,200,1
H�
R�X%<604�
\�Y%>456�Y%<540F%=�
f�
p�
z	�F%=�
�=((N%-1)*&300)�out%
�� 
���dono2(A%)
��A$,T%:A$=�(A%)
��11:ȓȐ476,464,124,64
��476-32*(A%<10),520
�)�12:�T%=1��A$:�double(�(�A$,T%,1))):�
��
�� 
���getoptions
��T%=1�6:jump%(T%)=T%:�
�*CHANNELVOICE 1 1
��:�
	�colours(9):�screenbox
	ȗ�640,496
	smappoint%=�quest("WHICH COURSE DO YOU WISH TO PLAY?","CONE LINKS","PINE ISLES",0)*&3600:mapstart%=map+mappoint%
	$7�mappoint%Course$="PINE ISLES"�Course$="CONE LINKS"
	.M�quest("PREVIEW HOLES OR PLAY ROUND?","PLAY","PREVIEW",0)�preview:��:���
	8hplay%=�quest("UNDER WHICH RULES ARE YOU TO PLAY?","MATCH PLAY","STROKE PLAY",0)+1:� 1=MATCH 2=STROKE
	Bnoofplayers=�noplaying
	L�T%=1�noofplayers
	V�getname(T%)
	`Qhand%(T%)=1-�quest("IS "+name$(T%)+" LEFT OR RIGHT HANDED?","LEFT","RIGHT",0)
	j�getskill(T%)
	t�
	~�confirm(noofplayers)�0
	���
	�7� CHANGE THE FOLLOWING NUMBER TO (HOLE NO. -1)*&300
	��mappoint%=&2400
	��
	�� 
	�ݤconfirm(T%)
	��N%,I%,A$:I%=(T%+(T%�1))
	��butt(0)
	��colours(12):�screenbox
	�Z�centbox(�,"            ARE THE FOLLOWING GAME OPTIONS CORRECT?            ",15,10+I%)
	�!�28,10,20+I%�2,69,13-I%�2,4:�
	��12:�139:�;T%;" PLAYER";
�T%<>1�"S";

*�",  PLAYING AT ";Course$;",  UNDER ";
Ȏplay%�
�1:�"MATCH";
(�2:�"STROKE";
2�
<�" PLAY RULES"
F�0,1)�60,"-")
P1�6:�0,2)"NAME"�22)"DEXTERITY"�46)"SKILL":�12
Z�0,3)�60,"-")
d�0,4);
n
�boardcol
x�N%=1�T%
�	�N%+4
��name$(N%)�22);
�Ȏhand%(N%)�
��0:�"RIGHT";
��1:�"LEFT";
��
��" HANDED"�46);
� A$=�skillname(currents%(N%))
��A$
��
��12:��60,"-")
�$�smallmes(520,368-I%*16,8,"YES")
�#�smallmes(680,368-I%*16,8,"NO")
!ȗȓ536,376-I%*16,208,44:ȗ �
�
ȗX%,Y%,K%
"�(X%<590�X%>692)�K%
,�1,-10,200,1
6=X%>692
@�
J� 
T��boardcol
^�5,208,0,0
h�6,144,128,80
r�7,112,112,112
|�8,240,112,0
��9,96,96,48
��10,208,80,144
��
�� 
���getskill(T%)
��butt(0)
��X%,Y%,K%,F%,N%
�;�centbox(�,"WHAT IS "+name$(T%)+"S SKILL LEVEL?",15,12)
�3�mesbox(356,464,416,64):�doskill(currents%(T%))
��mesbox(820,540,80,80)
��mesbox(820,372,80,80)
�%�15:�860,604:�836,558:�85,884,558
�2�860,388:�836,432:�85,884,432:�836,436,884,436
 �8:�836,432,860,388:�884,432
�836,562,860,604:�884,562
ȗȓ372,388,514,220
&!N%=currents%(T%):�:ȗX%,Y%,K%
0�K%�
:�X%>836�
D8�Y%>544�N%<4N%+=1:�doskill(N%):�1,-10,200,1:�butt(0)
N8�Y%<442�N%>1N%-=1:�doskill(N%):�1,-10,200,1:�butt(0)
X�
b�X%<780�
l�Y%>475�Y%<514F%=�
v�
��
�	�F%=�
��1,-10,200,1
�currents%(T%)=N%
��
�� 
���doskill(T%)
��A$
�A$=�skillname(T%)
��11:ȓȐ372,480,12*32,32
��12:�372,508:�A$
��
�� 

ݤskillname(T%)

�A$

	ȎT%�

 �1:A$="BEGINNER"

*�2:A$="ENTHUSIAST"

4�3:A$="AMATEUR"

>�4:A$="PROFESSIONAL"

H�

R=A$

\� 

f��getname(T%)

p�butt(0)

z*�X%,Y%,K%,Q,OX%,OY%,A$,B$:A$=name$(T%)

��noofplayers>1�

�	ȎT%�

��1:B$="FIRST "

��2:B$="SECOND "

��3:B$="THIRD "

��4:B$="FOURTH "

��5:B$="FIFTH "

��6:B$="SIXTH "

��

��

��A$<10A$=A$+�10-�A$," ")

�6�centbox(�,"WHAT IS THE "+B$+"PLAYERS NAME?",15,8)

�ȗȓ306,480,634,48
�smallmes(784,472,11,"OK")
�smallmes(288,472,11,A$)
ȗOX%,OY%,K%:�=1000
$�
.�butt(0)
8A$=name$(T%)
B�336,516:�A$;
L�139:*FX21
V�
`2Q=�(0):�Q<>� �(X%<702�K%) �=0:ȗOX%,OY%,K%:ȗ�
j�Q<>127Q=Q �223
t�(Q>64�Q<91)�Q=127�
~+�A$<>10�Q<>127A$=A$+�Q:�Q:�1,-10,200,1
�.�A$<>0�Q=127A$=�A$,�A$-1):�Q:�1,-10,200,1
��
�ȗX%,Y%,K%
�%�>500��(X%-OX%)>8��(Y%-OY%)>8ȗ�
��(X%>792�K%)�Q=13
�5�A$=""�1,-15,125,20:name$(T%)=defname$(T%):�=0:��
��1,-10,200,1:��
��140:name$(T%)=A$
�defname$(T%)=A$
��
�� 
�ݤnoplaying
�butt(0)

�play%=1�=2
�X%,Y%,K%,F%,N%
)�centbox(�,"HOW MANY PLAYERS?",12,10)
($�mesbox(464,444,84,100):�dono(1)
2�mesbox(704,536,80,80)
<�mesbox(704,372,80,80)
F%�15:�744,600:�720,554:�85,768,554
P2�744,388:�720,432:�85,768,432:�720,436,768,436
Z �8:�720,432,744,388:�768,432
d�720,558,744,600:�768,558
nȗȓ480,384,292,220
xN%=1:�:ȗX%,Y%,K%
��K%�
��X%>716�
�5�Y%>544�N%<6N%+=1:�dono(N%):�1,-10,200,1:�butt(0)
�5�Y%<442�N%>1N%-=1:�dono(N%):�1,-10,200,1:�butt(0)
��
��X%<540�
��Y%>456�Y%<540F%=�
��
��
�	�F%=�
��1,-10,200,1
�=N%
�� 
��dono(A%)
�11:ȓȐ476,468,60,64
�476,520
"�12:�double(A%)
,�
6� 
@ݤquest(A$,B$,C$,H%)
J
�L%,D%,R%
TR%=704+�length(�C$)
^L%=600-�length(�B$)
h�centbox(�,A$,12,6+H%)
rD%=464-H%*32
|�smallmes(L%,D%,11,B$)
��smallmes(704,D%,11,C$)
�ȗȓL%+16,D%+8,R%-L%-64,48
�ȗ �
��butt(0)
��:ȗL%,R%,D%
��D%�(L%<568�L%>712)
��1,-10,200,1
�D%=-(L%>712)
�=D%
�� 
�ݤlength(L%)
�L%+=3:�(L%�1)-0L%+=1
�
=L%*32
� 
��double(C%)
C%=128+4*C%
& �C%,C%+1,8,8,10,C%+2,C%+3,11
0�
:� 
D��screenbox
N�M%:M%=�6
X�mesbox(0,0,1279,1023)
b�24,16;16;1263;1007;:�140:�
l��textwind
v�28,1,30,38*M%,1:�140:�
��
�� 
���centbox(cls,A$,C%,H%)
�
�cls �
�
�T%,I%,M%
���=9M%=16�M%=8
�T%=640-�A$*M%
�I%=512+H%*16
�=�mesbox(T%-M%,496-H%*16-20*(H%=1),�A$*M%*2+M%*2,H%*32+32)
��C%:�T%,I%-16*(H%=1):�5:�A$
��
�� 
���smallmes(x%,y%,C%,A$)

�o%,M%
��=12M%=16�M%=32
o%=(1-(�A$�1))*M%
 $�mesbox(x%,y%,�A$*M%+M%*2+o%,64)
*!�12:�5:�x%+M%+o%�2,y%+44:�A$;
4�
>� 
H��mesbox(x%,y%,X%,Y%)
R�8:ȓȐx%,y%,X%,Y%
\�3:ȓx%+4,y%+4,X%-8,Y%-8
f�4:ȓx%+8,y%+8,X%-16,Y%-16
p#�11:ȓȐx%+12,y%+12,X%-24,Y%-24
z�
�� 
���meswind(A$,B$,C$,F%,C%)
�*CHANNELVOICE 1 1
��26
��X%,x%,x2%,c%,I%,Y%
�!Y%=80-(B$<>"")*48-(C$<>"")*48
�X%=(�A$*16+32):x%=640-X%�2
��mesbox(x%,800,X%,Y%)
�	�3,C%
��5:X%=x%+16
�x%=640-(�B$*8)
�x2%=640-(�C$*8)
��I%=1�F%*2+1
�X%,772+Y%:�A$
�B$<>""�x%,724+Y%:�B$
�C$<>""�x2%,676+Y%:�C$
$�del(50)
.�1,-10,180,1
8�
B�4:�
L�8,0
V*SCHOOSE topofscreen
`�&ED,0,704
j
�windows2
t�
~� 
���board
�'totscore%()=totscore%()+currentS%()
�A�T%=1�noofplayers:holescores%(hsp%(T%),Hole%)=currentS%(T%):�
�
�boardcol
��3,0,144,0:�131:�
��winsort
�!�P%,Y%,T%,I%,S%,mp%,A$,sc%,O%
�O%=(play%=2)*4:�26
��0:ȓȐ60,76,1156,920
��64,0:ȓȐ64,80,1148,128
��48,0:ȓȐ64,992,1148,-128
�&�12:�768,544:�1212,992:�85,1212,80
"�13:�512,544:�64,80:�85,64,992

�11:ȓȐ98,112,1080,848
�0:ȓ98,112,1080,848
%�24,100;116;1176;956;:ȑ98,116:�5
(�14:�P%=1�6:Y%=788-P%*132
2�7:�0,Y%+124,1080,Y%+124
<�14:�0,Y%,1080,Y%
F&�T%=40�80�40:�0,Y%+T%,1080,Y%+T%:�
P'�T%=1�8:X%=T%*120:�X%,Y%,X%,Y%+80:�
Z�
d�P%=1�noofplayers
n,mp%=mapstart%+&2F9:Y%=728-(P%-1)*132:�12
x:�I%=0�-40�-40:�T%=0�8:�T%*120+4,Y%+I%:�;?mp%:mp%+=&300
�	�:�:�
��P%=1�noofplayers
�5mp%=mapstart%+&2F9:Y%=728-(P%-1)*132:X%=32:par%=0
�"�T%=1�Hole%:�T%=10Y%-=40:X%=32
�7sc%=holescores%(hsp%(P%),T%)-?mp%:par%+=?mp%:�X%,Y%
�Ȏ�sc%�
�� 0:A$="PAR":�15
�� 1:A$="+"+�sc%:�5
��-1:A$=�sc%:�0
��
���5-�A$," ");A$
�X%+=120:mp%+=&300
��
5�jump%(P%)+4:�4,768-(P%-1)*132:�name$(P%)�20+O%);
Ȏcurrents%(P%)�
�1:�"{BEGINNER}";
"�2:�"{ENTHUSIAST}";
,�3:�"{AMATEUR}";
6�4:�"{PROFESSIONAL}";
@�
JA�40+O%);totscore%(P%);" STROKE"�(-(totscore%(P%)>1)*83)�53);
T6A$=" : "+�Hole%+" HOLE"+�-(Hole%>1),"S")+" PLAYED"
^Ȏplay%�
h
�1:�match
r�2:�stroke
|�
��
� �15:T%=542-�A$*8:�T%,824:�A$
��12:ȓT%-8,788,�A$*16+14,48
�)�26:�smallmes(360,32,11," CONTINUE ")
�%�smallmes(720,32,11,"QUIT ROUND")
��
�ȗȓ372,44,528,40
�ȗ�:ȗ�464,64
��butt(0):�=0:���>100
��:ȗX%,Y%,T%
��T%�(X%<556�X%>718)
�D�X%>718�confirm:�X%>926�0,0:�("SCHOOSE topofscreen"):�&ED,0,0:�0
���
�0:�4:�
ȗ�
�139
&�
0� 
:
��confirm
D�butt(0)
N�gtos(0)
X�mesbox(640,32,512,160)
b1�8:�656,176:�"ARE YOU SURE YOU WANT TO QUIT?"
l�smallmes(794,60,8,"YES")
v�smallmes(916,60,8,"NO")
�ȗȓ806,72,178,40:ȗ�890,82
��:ȗX%,Y%,T%
��T%�(X%<866�X%>926)
��
�� 
���match
��T%,B$,S1%,S2%
��T%=1�Hole%
�;� holescores%(hsp%(1),T%)<holescores%(hsp%(2),T%)S1%+=1
�;� holescores%(hsp%(2),T%)<holescores%(hsp%(1),T%)S2%+=1
��:T%=�(S2%-S1%)
�%B$=�(T%):�T%B$=B$+" UP"�B$="EVEN"
�B$=�14-�B$," ")+B$
	ȎP%�
�1:�S1%>=S2%�B$
�2:�S2%>=S1%�B$
 �
*!A$=Course$+" : MATCH PLAY"+A$
4�
>� 
H��stroke
R
�T%,B$
\#T%=totscore%(P%)-par%:B$=�(�T%)
f
Ȏ�T%�
p�0:B$="EVEN PAR"
z�1:B$=B$+" OVER PAR"
��-1:B$=B$+" UNDER PAR"
��
���14-�B$," ");B$
�"A$=Course$+" : STROKE PLAY"+A$
��
�� 
���showwind
�#�w$,T%,C%,s%,i%,x1%,y1%,BX%,BY%
�5�green% C%=9:w$="SLOPE":s%=-2�C%=6:w$="WIND":s%=4
�%�13:�26,0)"DIRECTION OF"�29,1)w$
��T%=C%�C%+s%�s%
��T%
�ȏ526,820,88+i%
ȏ526,820,12+i%
i%+=4:�
�8
$�526,820
.BX%=wx*25:BY%=wy*25
8'x1%=va*BY%+vb*BX%:y1%=vi*BY%+va*BX%
B�526+x1%,820+y1%
L�
V� 
`
��setwind
jWX=0:WY=0:F%=green%
twc=5+4*green%:wc2=wc
~1�F%:P%=mappoint%+&2F4:wx=�map2/3:wy=�map2/3:�
�wx=0:wy=0:�skill%<3�
�wx=Wx:wy=Wy
��
�� 
���initwind
��a%
�stren%=�(36)
�
a%=�(360)
�Wx=((��a%)*stren%)/9
�Wy=((��a%)*stren%)/9
�Fx=(��a%)*(15+(stren%�2))
�Fy=(��a%)*(15+(stren%�2))
�

� 

��spot
bs%=1:BX=0:BY%=-R%:h%=0
(%x1%=va*BY%+vb*BX:y1%=vi*BY%+va*BX
2�vt(y1%,x1%,H%):ys%-=4
<*FX112,2
Flie%=�xs%+2,ys%)
P�wellie(0)
Z
�green%�
d,T%=�(mx%(0,Hand%)+4+T%+80*Hand%),my%(0))
n�T%=6�T%=11�
x�wellie(30)
��
��
�*FX112,1
��xs%,ys%:�BY10,16
�ox%=xs%:oy%=ys%
�osx%=xs%:osy%=ys%
�sx%=xs%:sy%=ys%
�*SGET gr
�*SGET sh
��
�� 
���wellie(W%)
��T%
�T%=1�8:m%(T%,0)=T%+W%:�
wellie%=W%=30
�
"� 
,��splash
6*CHANNELVOICE 1 PLOP
@�A$,r%,a%,T%,x%,y%
Jbad%=�:�1,-15,5,20
T�r%=5�55�5
^
�r%>9�
h�6:Ȗ:Ȗ
r�a%=0�45
|2x%=xs%+C(a%)*(r%-10):y%=ys%+S(a%)*((r%-10)>>2)
��x%,y%)=11Ȓx%,y%
��
��
��11:�r%<50�
�	Ȗ:Ȗ
�1�a%=0�45:x%=xs%+C(a%)*r%:y%=ys%+S(a%)*(r%>>2)
��x%,y%)=6Ȓx%,y%
��
��
��
�stroke%+=1
�!�G%=11A$="THE SEA"�A$="WATER"
�M�meswind("BALL LOST IN "+A$,"FORFEIT ONE STROKE","PLEASE PLAY AGAIN",5,6)
�getplayvals
	�spot
*SCHOOSE plain
&MȖ:�&ED,mx%(g%,Hand%),my%(g%):�23,27;m%(1,g%)|:�&ED,mx%(g%,Hand%),my%(g%)
0�
:� 
D
��putback
N
�green%�
X�x1%<80x1%=(80+�(30))*�x1%
b�y1%<80y1%=(80+�(30))*�y1%
l�
v%currentR%(1)=�distance(�x1%,�y1%)
�currentx%(1)=x1%
�currenty%(1)=y1%
�currentS%(1)=stroke%
��
�� 
�
��swapall
�$Ȕ currentR%(I%),currentR%(I%-1)
�$Ȕ currentx%(I%),currentx%(I%-1)
�$Ȕ currenty%(I%),currenty%(I%-1)
�$Ȕ currents%(I%),currents%(I%-1)
�$Ȕ currentS%(I%),currentS%(I%-1)
�$Ȕ totscore%(I%),totscore%(I%-1)
� Ȕ oldpos%(I%),oldpos%(I%-1)
Ȕ name$(I%),name$(I%-1)
Ȕ hsp%(I%),hsp%(I%-1)
Ȕ hand%(I%),hand%(I%-1)
 Ȕ jump%(I%),jump%(I%-1)
*�
4� 
>
��winsort
H
�T%,I%
R�noofplayers<>1�
\'�T%=1�noofplayers:�I%=2�noofplayers
f�oldpos%(I%)<oldpos%(I%-1)�
p�swapall
z�
��:�
�'�T%=1�noofplayers:�I%=2�noofplayers
�#�currentS%(I%)<currentS%(I%-1)�
��swapall
��
��:�
��
��
�� 
���setplayer
��T%
��T%=1�noofplayers
�oldpos%(T%)=T%
�
�
� 
$��whichplayer
.
�T%,I%
8�noofplayers<>1�
B�T%=1�noofplayers
L�I%=2�noofplayers
V#�currentR%(I%)>currentR%(I%-1)�
`�swapall
j�
t�:�
~�
�stroke%=currentS%(1)
�skill%=currents%(1)
�#�currentx%(1)=0�currenty%(1)=0�
�round%=�:mappoint%+=&300
��
��hand%(1)<>Hand%�
�Hand%=hand%(1)
�!�T%=1�11:�("SFlipY "+�(T%)):�
�"�T%=31�38:�("SFlipY "+�(T%)):�
�*SFlipY 20
��
��
� 

��getplayvals
$X%=currentx%(1):YY%=currenty%(1)
�
(� 
2��light
<
Y%=YY%
F�Y%>0�X%>0!px%=li%
P�Y%>0�X%<=0!px%=(li%+1)�3
Z�Y%<=0�X%<=0!px%=(li%+2)�3
d�Y%<=0�X%>0!px%=(li%+3)�3
n�
x� 
���drawscreen
�P%=mappoint%:AA%=�map1
��caltre(x%(),y%(),z%())
�5�sort,bs%,R%,BY%,K%,x1%,y1%,h%,AA%,x%(),z%(),y%()
��windows:�sceen
��
�� 
���sine(X%,Y%)
�R%=�distance(�X%,�Y%)
�%green%=(R%<525):Ma=.7-(green%*.3)
�1OL%=(�(�~((map!(mappoint%+&2FA))�&FFFF)))>440
�*r=12096-2000*green%-1500*(OL%��green%)
�
d=r-R%
(g%=-green%:O%=-6292*green%:H%=250+O%
va=-X%/R%:vb=Y%/R%:vi=-vb
�
"� 
,ݤdistance(x%,y%)
6=�(x%^2+y%^2)
@� 
J��getstart
TP%=&2E8+mappoint%:X%=�map2
^
YY%=�map2
hHole%=map?(mappoint%+&2F8)
rstx%=X%:sty%=YY%
|�YY%=15*21:X%=0
��T%=1�noofplayers
�currentx%(T%)=X%
�currenty%(T%)=YY%
�#currentR%(T%)=�distance(X%,YY%)
�currentS%(T%)=0
��
��
�� 
���chhole
�	B%-=1
��(B%>0�ya>4)�h%>30�
�"�h%>1��(OBY%-BY%)>5�ric:B%=4:�
�
��chhole2
 D%=�:*SCHOOSE sh
 �&ED,osx%,osy%
 *SCHOOSE gr
 &�&ED,ox%,oy%
 0*CHANNELVOICE 1 HOLED
 :�1,-15,20,20
 D
�del(150)
 N
�holedout
 X'ya=0:u=0:ud=0:p%=0:h%=0:x1%=0:y1%=0
 b�
 l� 
 v��holedout
 ��A$,B$,C$,F%,S%
 �#S%=stroke%-map?(mappoint%+&2F9)
 �	ȎS%�
 ��1:A$="IT'S A BOGIE":B$=""
 �,�0:A$="HOLED OUT TO PAR":B$="WELL DONE!"
 �2�-1:A$="NICE ONE "+name$(1):B$="IT'S A BIRDIE"
 �5�-2:A$="SUPERB PLAY "+name$(1):B$="IT'S AN EAGLE"
 �E�-3:A$="CONGRATULATIONS "+name$(1):B$="YOU'VE FLOWN AN ALBATROSS"
 �+ A$="HOLED OUT "+�S%+" OVER PAR":B$=""
 ��
 �cC$="":F%=3:S%=5:�stroke%=1A$="WOW! IT'S A HOLE IN ONE":B$="KNOCKED IN BY":C$=name$(1):F%=6:S%=3
 �&� �A$<�B$�:A$=" "+A$+" ":��A$>=�B$
 ��meswind(A$,B$,C$,F%,S%)
!�del(50)
!�
!� 
! 	��ric
!*�4,-15,20,1
!4
��2ric
!>u=u*4:�u=0u=(3+�(5))*�x1%
!Hya=ya �2:p%=ya �3
!R�green%�ya=0 h%=0:p%=0
!\�
!f� 
!p��flight
!zOBY%=BY%
!�[��fly:�23,27;m%(8,g%)|:�&ED,mx%(g%,Hand%),my%(g%):�ba%:�23,27;20|:�&ED,bag%(Hand%),-754
!�A�green%�h%=0ș6,112,2:G%=�sx%+4,sy%+4):ș6,112,1:�G%=0�chhole
!�0OBY%=BY%:�green%��(x1%+4)<5��(y1%)<5�chhole
!��sl>ya sl=ya/2*�sl
!�wc-=1:�wc=0�
!�wc=wc2:�wc2>1wc2-=1
!�WX+=wx:WY+=wy
!��
!��ya<=0�h%=0��p%<2
!�YY%=y1%:X%=x1%
!��D%��green%�
!�*FX112,2
!�G%=�sx%,sy%)
"G1%=�sx%,sy%+8)
"*FX112,1
"�(G%�G1%)=0�chhole2
"$�
".� 
"8	��fly
"B�h%<4�ya<16Ȗ
"L-Ȗ:BX+=u*yd+Sl:Sl+=sl:u-=ud:�u>ya u=u>>1
"V!BY%+=ya*yd:�ya>0 ya-=.5:�ya=0
"`Fx1%=va*BY%+vb*BX+WX:y1%=vi*BY%+va*BX+WY:h%+=p%*Ma:p%-=1:�p%<10F%=�
"j�h%<=0 �bounce
"t6�vt(y1%,x1%,H%):sx%=xs%:sy%=ys%:�vt(y1%,x1%,H%-h%)
"~.�K%=� ud=0:ya=0:p%=0:u=0:K%=1:�3,-10,20,40
"�7�W%� plotball,bs%,oy%,ox%,osy%,osx%,ys%,xs%,sy%,sx%
"��
"�� 
"���walter
"�*CHANNELVOICE 1 SHOOSH
"�
�T%,I%
"�,yd=1+(.75*green%):�T%=1�5:*SCHOOSE BLACK
"�^Ȗ:�&ED,mx%(g%,Hand%),my%(g%):�23,27;m%(T%,g%)|:�&ED,mx%(g%,Hand%),my%(g%):�I%=0�T%:Ȗ:�:�
"��T%=5�1��:*SCHOOSE BLACK
"��T%=3��green%�1,SO%,40,40
"�[�I%=1�T%:Ȗ:�:�&ED,mx%(g%,Hand%),my%(g%):�23,27;m%(T%,g%)|:�&ED,mx%(g%,Hand%),my%(g%):�
"��2,SO%,1,10
#�T%=6�8:�T%>6�fly:�Ȗ
#
*SCHOOSE plain
#-�green%:Ȗ:�&ED,mx%(g%,Hand%),my%(g%)�Ȗ
#0�23,27;m%(T%,g%)|:�&ED,mx%(g%,Hand%),my%(g%)
#(T�lie%=1:�1:�I%=0�20:Ȓsa%(0,T%-6,I%)+(T%+10)*Hand%,sa%(1,T%-6,I%)+my%(g%):�:�8,0
#2�
#<
�fly:�fly
#F*SCHOOSE plain
#PMȖ:�&ED,mx%(g%,Hand%),my%(g%):�23,27;m%(8,g%)|:�&ED,mx%(g%,Hand%),my%(g%)
#Z�
#d� 
#n
��del(T%)
#x�=0:���>T%
#��
#�� 
#���bunker
#��32,0:H%+=2:P%=oP%
#�
�drawbunk
#��2:H%+=2:P%=oP%
#�
�drawbunk
#�	H%-=4
#��
#�� 
#���drawbunk
#�<np%=�map1:�map(CX%,CY%,H%,4,r):�map3(SX%,SY%,H%,4,r,CX%)
#�5�I%=1�np%-1:�map3(XI%,YI%,H%,85,r,CX%):�CX%,CY%:�
$�85,SX%,SY%
$�
$� 
$"!��map3(� x%,� y%,z%,p%,r,CX%)
$,�pO%
$6Vy%=�map2:x%=�map2:xe=va*x%+vb*y%:ze=(vi*x%+va*y%+r)*Ma:x%=d*xe �ze:y%=-(d*z%�ze)*2
$@)�green%�y%>-32�y%<&FFFF8000 y%=-6000
$Jx%=x%-�(x%-CX%)*4
$TpO%=�x%,y%)
$^ȕpO%>3
$hy%+=4:pO%=�x%,y%)
$r�
$|
�p%,x%,y%
$��
$�� 
$���sceen
$�
No%=�map1
$�rough=P%
$��green%�
$�
Co%=�map1
$��:np%=�map1
$�"P%=P%+np%*4+4:Co%=�map1:No%-=1
$��Co%=5�Co%=1:P%-=1
$��
$�-sP%=P%:�T%=1�No%:Co%=�map1:�Co%=6water=P%
$��green%�Co%=4�
%np%=�map1:P%=P%+np%*4+4
%*�:oP%=P%:Co%=Co%-((Co%=1)�green%):�Co%
%�drawit:�Co%=1�bunker
%&�:�:�green%�
%0�8,0
%:*SCHOOSE HOLE
%D�&ED,-6,-(d*H%�r)*2-12
%N�
%X�trees:*FX112,2
%b�green%�135:��139
%l%�:P%=sP%:�T%=1�No%:Co%=�map1:�Co%
%v�green%�Co%=4�
%�np%=�map1:P%=P%+np%*4+4
%��oP%=P%:�drawit
%��
%��
%��green%�
%��8,0
%�*SCHOOSE BLACKHOLE
%��&ED,-6,-(d*H%�r)*2-12
%��
%�*FX112,1
%�Ȏjump%(1)�
%��1:�8,208,0,0
%��2:�8,144,128,80
&�3:�8,112,112,112
&�4:�8,240,112,0
&�5:�8,96,96,48
& �6:�8,208,80,144
&*�
&4�
&>� 
&H��gtos(Y%)
&R,�26:�0,Y%:�1279,Y%+319:*SGET topofscreen
&\�
&f� 
&p
��getinfo
&z*CHANNELVOICE 1 1
&��ya2,BX%,BY%,yst%
&��gtos(704)
&�
ȑ80,0
&��24,0;704;1131;1023;
&��139:�139:�
&��8:ȓ0,704,412,319
&�ȓ412,704,228,319
&�ȓ640,704,491,319
&��3:ȓ4,708,404,311
&�ȓ416,708,220,311
&�ȓ644,708,483,311
&��4:ȓ8,712,396,303
&�ȓ420,712,212,303
'ȓ648,712,475,303
'�:�28,6,8,74,1:�12
'6�41,0)"PLAYER         : ";:�8:�name$(player%):�12
'$%�41,1)"PLAYING AT     : "Course$
'.$�41,2)"HOLE NUMBER    : ";Hole%
'84�41,3)"PAR            : ";~map?(mappoint%+&2F9)
'BE�41,4)"OVERALL LENGTH : ";~(map!(mappoint%+&2FA))�&FFFF;" YARDS"
'LV�41,5)"RANGE TO HOLE  : ";:�8:�;(R%�21)*(1-green%*2);:�green%:�" FEET":��" YARDS"
'V*�12:�41,6)"STROKES PLAYED : ";stroke%
'`�showlie
'j�setwind
't
�showwind
'~�
'�
ȑ80,0
'��getclub
'�"�12:�2)"DIRECTION THEN POWER"
'��8:�4)A$(vp%)" SELECTED"
'�8�8:ȓ46,776,320,128:ȓ44,776,324,128:�48,866,364,866
'�?�6:ȓȐ48,870,316,32:�12:�78,898:�5:�"CLUB POWER METER"�4:�
'�K�56,784,56,824:�T%=49�100:�((T%/100*T%)�25)=0:�T%*3+56,784,T%*3+56,824
'��
'�ȓ56,792,300,24
'��11:ȓȐ56,796,300,16
'� my%=256-green%*164:ș6,106,2
'�	ȑ0,0
(>ȗȓ432+(green%=0)*160,my%,414-(green%=0)*320,0:ȗ�640,my%
(
xs%=0:OX%=0:u=0
(�:ȗX%,Y%,C%
(�C%=1�C%=4��:��
((#a%=(X%-xs%-640)/8:�a%<10a%=�a%
(2	u+=a%
(<
�X%<>xs%�
(FABX%=0:BY%=-R%:�vt(vi*BY%+va*BX%,va*BY%+vb*BX%,H%):yst%=ys%+25
(PC�:BX%+=u:BY%+=80:�vt(vi*BY%+va*BX%,va*BY%+vb*BX%,H%):�ys%>=yst%
(Z�
(dȗ�xs%-640,my%
(n	�C%=2
(xȗ�
(�
p%=�power
(�SO%=-15*p%/100
(��green%�vp%=13u=u+�(5)-3
(�2u=u/(8-g%*2):ya=�((CV%(vp%)/100)*p%):�ya<1ya=1
(�ud=u/(ya*3)
(�p%=p%*.32:h%=0
(��vp%=13p%=5*-(green%=�)
(��del(100):stroke%+=1
(� �4,26:�:*SCHOOSE topofscreen
(��8,0:�&ED,0,704
(�
�windows2
(��
(�� 
)
��showlie
)�a$
)a$="ON THE ":�8
)"�41,7);
),!bunk%=�:bad%=�:wind%=skill%>2
)6�green%�
)@4�lie%=5 �a$"GREEN";:��"ON EDGE OF GREEN";:lie%=5
)J�
)TȎlie%�
)^�1:�"IN A BUNKER ";:�gob
)h�4:�"ON A PATHWAY";
)r�6:�wetmes
)|*�7:�y1%<>sty%:�a$"FAIRWAY";:��a$"TEE";
)��9:�"IN THE ROUGH ";:�gob
)��
)��
)�� 
)���wetmes
)��6:bunk%=�:�T%
)�T%=�(3)
)�	ȎT%�
)��1,3:�"IN SHALLOW WATER";
)�>�2:�wellie%�"IT'S A WELLIE JOB";:��"BALANCED ON LILY PAD";
)��
)��
)�� 
*	��gob
*:�g$,b$:g$="GOOD LIE":�lie%=9b$="BAD LIE":�b$="PLUGGED"
*
Ȏskill%�
*&�1:�"NO EFFECT";
*0�2,3:�g$;:bunk%=�
*:'�4:bunk%=�:�(2)=2�b$;:bad%=1:��g$;
*D�
*N�
*X� 
*bݤpower
*l�X%,C%,c%,p%,a%
*v
ȑ80,0
*��12:�butt(0):�del(1):a%=1
*�ȕC%=0�c%<>156
*�p%+=a%:�p%=100a%=�
*�c%+=1:�8:�c%�1Ȗ
*�6ȓȐ56,796,p%*3,16:�11:ȓȐ56+p%*3,796,300-p%*3,16
*�0�2,4);�(p%/100*p%)-(c%<10);"%  ":ȗX%,X%,C%
*��
*�
Sl=0:sl=0
*�
�vp%<>13�
*�	ȎC%�
*�
�1:sl=.05
*��4:sl=-.05
*��
+�
+�skill%<>1�
+Ȏlie%�
+ #�1,9:p%=(p%/100)*red%(vp%,bad%)
+*/�6:a%=vp%-2*(p%<11):p%=p%/100*red%(a%,bad%)
+4�
+>�
+H�1,-10,200,1
+R
�p%<1p%=1
+\=p%
+f� 
+p
��getclub
+z�butt(0):�cls
+��green%vp%=13:�
+��X%,Y%,C%,x%,y%,ox%,oy%
+�;ox%=-100:�:�28,6,8,74,1:�mrect(1):ȗ �:�12:�:SYS6,106,3
+�(�T%=0�13:�TX%(T%),TY%(T%))A$(T%);:�
+�7�2:�6,0)"SELECT A CLUB":ȟ&2000:Ȟ100:�5:�3,2:�box
+�.�:�Ə=0:�3,2:�7,1)"SELECT A CLUB":��Ə<>0
+�$ȗX%,Y%,C%:x%=X%�128:y%=Y%�&FFE0
+��x%<>ox%�y%<>oy%�box
+�5�mrect(X%):vp%=3^x%+(x%=0)+28-y%�32+(x%=2�y%<832)
+�
�C%<>0
+��butt(0):�4
+�	��cls
+��:�28,6,8,29,1:�
,�
,� 
,	��box
,$�3,6
,.ȓȐ32+128*ox%,oy%,96,32
,8ȓȐ32+128*x%,y%,96,32
,B�1,-10,200,1
,Lox%=x%:oy%=y%
,V�
,`� 
,j��mrect(R%)
,t�R%>288�iop2
,~	ȎR%�
,�"� 1:ȗȓ38,844,90,72:ȗ�83,912
,�$� 162:ȗȓ38,844,90,72:ȗ�83,846
,�'� 128:ȗȓ162,752,90,164:ȗ�208,912
,�� 252:�iop
,�'� 288:ȗȓ162,752,90,164:ȗ�208,756
,��
,��
,�� 
,�	��iop
,��Y%>835�
,� ȗȓ288,836,90,80:ȗ�349,912
,�"� ȗȓ288,752,90,50:ȗ�349,778
-�
-
�
-� 
-
��iop2
-('�Y%=836ȗȓ288,752,90,50:ȗ�349,786
-2'�Y%=802ȗȓ288,836,90,80:ȗ�349,856
-<�
-F� 
-P��butt(on)
-Z
�D%,C%
-d�
-nȗD%,D%,C%
-x
�C%=on
-��
-�� 
-�
��windows
-��26:�128:�:�maincols
-�
�green%�
-��6:ȓȐ 0,0,1280,736
-��4:�0,732,1280,732
-��138:�24,0;736;1279;1023;:�
-��clouds
-���135:�
-��
-���windows2
-� �26:ȑ640,768+O%-6166*green%
.�
.� 
.��clouds
."
�C%,T%,O%
.,$�vb>0 O%=��va �O%=180+(180-��va)
.6O%=�O%*3.5:�11
.@�C%=1�12:�T%=1�12
.J5ȝȐ(CL%(0,C%,T%)+O%)�2520+I%,CL%(1,C%,T%),256,64
.T�:�
.^�
.h� 
.r��initcloud
.|�C%,T%,X%,Y%
.�+�C%=0�12:X%=194*C%+�(194):Y%=�(288)+736
.�<�T%=0�12:CL%(0,C%,T%)=X%+�(5)*40:CL%(1,C%,T%)=Y%+�(5)*12
.��:�
.��
.�� 
.���bounce
.�h%=0:p%=-p%/2.2
.� �vp%=13��green%��(10)=5�2ric
.�*FX112,2
.�G%=�sx%,sy%)
.�*FX112,1
.�	ȎG%�
.�)�1:p%=p%>>1:�p%>4:ya=ya*.3:�ya=ya*.75
//�4:�p%>3�ya<>0p%=p%*1.5:ya=ya*1.3:ud=ud/1.3
/`�6,11:W%=�:xs%=1000:sx%=1000:ya=0:p%=0:h%=0:� plotball,bs%,oy%,ox%,osy%,osx%,ys%,xs%,sy%,sx%
/*�9,-1:ya=ya/1.5:p%=p%>>1:u=u/2:ud=ud/2
/&�
/0�
/:� 
/D��drawit
/N7np%=�map1:�map(CX%,CY%,H%,4,r):�map(SX%,SY%,H%,4,r)
/X0�I%=1�np%-1:�map(XI%,YI%,H%,85,r):�CX%,CY%:�
/b�85,SX%,SY%
/l�
/v� 
/���vt(x%,y%,z%)
/�Lxe%=va*x%+vb*y%:ze%=(vi*x%+va*y%+r)*Ma:xs%=d*xe% �ze%:ys%=-(d*z% �ze%)*2
/��
/�� 
/�"��caltre(� x%(),� y%(),� z%())
/��i%,l%,lo%,n%
/�
�A%=1�AA%
/�l%=�map2:trex!(A%*4)=l%
/�i%=�map2:trey!(A%*4)=i%
/�xe=va*i%+vb*l%
/�ze=(vi*i%+va*l%+r)*Ma
/�(x%(A%)=d*xe �ze:y%(A%)=-(d*H% �ze)*2
/�z%(A%)=-(d*(H%+200)�ze)*2
0�
0�
0� 
0 ��map(� x%,� y%,z%,p%,r)
0*Vy%=�map2:x%=�map2:xe=va*x%+vb*y%:ze=(vi*x%+va*y%+r)*Ma:x%=d*xe �ze:y%=-(d*z%�ze)*2
04)�green%�y%>-32�y%<&FFFF8000 y%=-6000
0>
�p%,x%,y%
0H�
0R� 
0\ݤmap1:P%+=1:=map?(P%-1)
0f� 
0p$ݤmap2:P%+=2:Q%=map!(P%-2)�&FFFF
0z�Q%>&7FFFQ%=Q%�&FFFF0000
0�=Q%
0�� 
0���trees
0�PF%=�:PB%=-(d*H%�(r*Ma))*2
0�PT%=-(d*(H%-30)�(r*Ma))*2
0�FB%=-(d*(H%-24)�(r*Ma))*2
0�Vxe=va*Fx+vb*Fy:ze=(vi*Fx+va*Fy+r)*Ma:FX%=d*xe �ze:FY%=-(d*(H%-16-(stren%�4))�ze)*2
0��green%�
0��T%=AA%�1��
0�X1%=x%(T%):Y%=y%(T%)
0�=�PF%�Y%<PB% �11:�0,PB%:�0,PT%:�3:�0,FB%:�85,FX%,FY%:PF%=�
0�*�(�X1%>400�Y%>-708)��X1%<800�Y%>-1000�
0�Ax%=(�Y%-�z%(T%))>>1:y%=-x%>>2:ya%=y%*1.5:xa%=x%>>4:yd%=ya%>>2
1+�tr%!(((px%+1)�3)*4):ȓȐX1%,Y%,-xa%,y%
1*�tr%!(((px%+2)�3)*4):ȓȐX1%,Y%,xa%,y%
11Y%+=y%:xa%=xa%*2:z%(T%)=�:x%=x%*.8:xa%=xa%*.8
1$&�plottree,xa%,y%,x%,X1%,Y%,ya%,yd%
1.� z%(T%)=�
18�
1B�
1L�
1V� 
1`��initiate
1jHand%=0:green%=0
1t�0,1
1~�colours(12)
1��red%(13,1)
1�� CL%(1,12,12)
1�� code &900
1�� map &6D00
1��"L. THE_LINKS "+�~map
1�
� parb 20
1�� x%(96),y%(96),z%(96)
1�#�TX%(13),TY%(13),A$(13),CV%(13)
1�C�mx%(1,1),my%(1),m%(8,1),bag%(1),name$(6),defname$(6):player%=1
1��holescores%(6,18),currentx%(6),currenty%(6),currentR%(6),currentS%(6),currents%(6),totscore%(6),oldpos%(6),hsp%(6),hand%(6),jump%(6)
1��C(45),S(45)
1��sa%(1,2,20)
2currents%()=1
2
�I%=2�4
2�N%=0�20
2sa%(0,I%-2,N%)=�(I%*8)-I%*4
2(#sa%(1,I%-2,N%)=I%*12+16+�(I%)*4
22�
2<�
2F�T%=0�45
2P!C(T%)=��(T%*8):S(T%)=��(T%*8)
2Z�
2d(mx%(0,1)=-2:mx%(0,0)=-96:my%(0)=-728
2n*mx%(1,1)=-4:mx%(1,0)=-64:my%(1)=-13121
2xbag%(0)=-196:bag%(1)=120
2�sx%=�:sy%=�:r=11096
2�
� �D^s
2��T%=0�13
2�#�TX%(T%),TY%(T%),A$(T%),CV%(T%)
2��
2��wellie(0)
2��T%=1�8:�m%(T%,1):�
2�$�I%=0�1:�T%=0�13:�red%(T%,I%):�,
2�'CX%=0:CY%=0:SX%=0:SY%=0:XI%=0:YI%=0
2�%h%=0:x1%=0:y1%=0:K%=0:BY%=0:bs%=0
2�defname$(1)="JOHN"
2�defname$(2)="GEORGE"
2�defname$(3)="PAUL"
3defname$(4)="RINGO"
3defname$(5)="MICK"
3defname$(6)="JERRY"
3"	�code
3,*POINTER
36ȗ �
3@ȗ�1,0,240,0
3Jȗ�2,0,128,0
3T�
3^�1,2,1 WOOD,74
3h�1,3,3 WOOD,70
3r�1,4,5 WOOD,68
3|�9,2,1 IRON,67
3��9,3,2 IRON,65
3��9,4,3 IRON,63
3��9,5,4 IRON,61
3��9,6,5 IRON,59
3��9,7,6 IRON,57
3��17,2,7 IRON,55
3��17,3,8 IRON,53
3��17,4,9 IRON,48
3��17,6,WEDGE,41
3��17,7,PUTTER,60
3��9,10,10,11,11,9,9,9
3�/�30,40,48,55,61,66,71,76,81,85,89,93,96,100
3�'�1,1,1,1,1,1,15,40,55,66,76,85,93,1
4� 
4��colours(M%)
4Ȗ:�M%:�
4&
�maincols
40�23,17,4,1|
4:)�23,2,&EF,&FE,&EF,&FE,&EF,&FE,&EF,&FE
4D)�23,3,&12,&21,&12,&21,&12,&21,&12,&21
4N)�23,4,&C0,&0C,&C0,&0C,&C0,&0C,&C0,&0C
4X)�23,5,&D4,&4D,&D4,&4D,&D4,&4D,&D4,&4D
4b�
4l��maincols
4v� 
4��0,0,0,0:� BLACK
4��1,176,128,0:� DARK SAND
4��2,176,160,48:� LIGHT SAND
4��3,208,160,144:� FLESH
4��4,144,144,144:� PATH
4��5,16,208,0:� GREEN
4��6,32,144,208:� WATER
4��7,0,160,0:� FAIRWAY
4��8,208,0,0:� RED
4��9,0,112,0:� ROUGH
4��10,96,192,224:� SKY
4��11,240,240,240:� WHITE
4��12,80,48,16:� DARK BROWN
5�13,96,64,48:� LIGHT BROWN
5$�14,16,64,48:� DARK GREEN (TREE)
5&�15,0,96,64:� LIGHTER GREEN (TREE)
5 �
5*� 
54
��pointer
5>�par 20,block 112
5H	��tvu
5R�T%=0�108�4:�block!T%:�
5\
?par=0
5fpar?1=2
5ppar?2=8
5zpar?3=14
5�par?4=16
5�par?5=7
5�par!6=block
5��12
5�*A%=21:B%=par:C%=par �256:ș 7,A%,B%,C%
5���&AAAA,&AAAA0000,&9556,&95560000,&AA96,&96AA0000,&A6,&9A000000,&2A,&A8000000,&0,&0,&0,&0,&0,&0,&0,&0,&2A,&A8000000,&A6,&9A000000,&AA96,&96AA0000,&9556,&95560000,&AAAA,&AAAA0000
5��
5�� 
5�
��code
5��("LOAD holedout4 "+�~code)
5�plotball=code+&188
5�plottree=code
5�sort=code+&7E0
6px%=code+&158
6tr%=code+&148
6trex=code+&4B8
6$trey=code+&63C
6.�
68*� DRIVER
�
00000000  0d 00 0a 10 f4 20 3e 48  4f 4c 45 44 4f 55 54 33  |..... >HOLEDOUT3|
00000010  0d 00 14 37 f4 20 50 52  4f 47 52 41 4d 4d 45 44  |...7. PROGRAMMED|
00000020  20 42 59 20 47 2e 4a 2e  4b 45 59 20 42 45 54 57  | BY G.J.KEY BETW|
00000030  45 45 4e 20 32 33 2d 33  2d 38 39 20 41 4e 44 20  |EEN 23-3-89 AND |
00000040  32 39 2d 34 2d 38 39 0d  00 1e 1e f4 20 28 43 29  |29-4-89..... (C)|
00000050  20 54 48 45 20 46 4f 55  52 54 48 20 44 49 4d 45  | THE FOURTH DIME|
00000060  4e 53 49 4f 4e 0d 00 28  07 f4 20 15 0d 00 32 0c  |NSION..(.. ...2.|
00000070  2a 46 58 32 30 30 2c 33  0d 00 3c 16 f2 70 6f 69  |*FX200,3..<..poi|
00000080  6e 74 65 72 3a f2 69 6e  69 74 69 61 74 65 0d 00  |nter:.initiate..|
00000090  46 0d f2 69 6e 73 74 72  75 63 74 0d 00 50 0c 2a  |F..instruct..P.*|
000000a0  46 58 32 30 30 2c 32 0d  00 5a 06 ee 85 0d 00 64  |FX200,2..Z.....d|
000000b0  10 f2 63 6f 6c 6f 75 72  73 28 31 32 29 0d 00 6e  |..colours(12)..n|
000000c0  13 2a 53 43 48 4f 4f 53  45 20 53 43 52 45 45 4e  |.*SCHOOSE SCREEN|
000000d0  0d 00 78 18 2a 43 48 41  4e 4e 45 4c 56 4f 49 43  |..x.*CHANNELVOIC|
000000e0  45 20 31 20 42 45 4c 4c  0d 00 82 0c f0 26 45 44  |E 1 BELL.....&ED|
000000f0  2c 30 2c 30 0d 00 8c 07  d1 3d 30 0d 00 96 09 2a  |,0,0.....=0....*|
00000100  46 58 31 35 0d 00 a0 10  f5 3a c8 97 58 25 2c 59  |FX15.....:..X%,Y|
00000110  25 2c 54 25 0d 00 aa 1b  e7 91 3e 33 30 30 30 d4  |%,T%......>3000.|
00000120  31 2c 2d 31 35 2c 33 30  30 2c 31 3a d1 3d 30 0d  |1,-15,300,1:.=0.|
00000130  00 b4 10 fd 54 25 84 a6  28 31 30 29 3c 3e b9 0d  |....T%..(10)<>..|
00000140  00 be 15 2a 43 48 41 4e  4e 45 4c 56 4f 49 43 45  |...*CHANNELVOICE|
00000150  20 31 20 31 0d 00 c8 05  f5 0d 00 d2 0f f2 67 65  | 1 1..........ge|
00000160  74 6f 70 74 69 6f 6e 73  0d 00 dc 07 ee 85 87 0d  |toptions........|
00000170  00 e6 0c 2a 46 58 32 30  30 2c 33 0d 00 f0 10 f2  |...*FX200,3.....|
00000180  63 6f 6c 6f 75 72 73 28  31 32 29 0d 00 fa 19 48  |colours(12)....H|
00000190  6f 6c 65 25 3d 31 3a 74  6f 74 73 63 6f 72 65 25  |ole%=1:totscore%|
000001a0  28 29 3d 30 0d 01 04 23  e3 54 25 3d 31 b8 6e 6f  |()=0...#.T%=1.no|
000001b0  6f 66 70 6c 61 79 65 72  73 3a 68 73 70 25 28 54  |ofplayers:hsp%(T|
000001c0  25 29 3d 54 25 3a ed 0d  01 0e 08 58 25 3d 30 0d  |%)=T%:.....X%=0.|
000001d0  01 18 05 f5 0d 01 22 19  e7 58 25 3e 37 31 38 84  |......"..X%>718.|
000001e0  48 6f 6c 65 25 3d 31 38  fd b9 3a fd a3 0d 01 2c  |Hole%=18..:....,|
000001f0  0c 72 6f 75 6e 64 25 3d  a3 0d 01 36 0e f2 69 6e  |.round%=...6..in|
00000200  69 74 63 6c 6f 75 64 0d  01 40 0e 6c 69 25 3d b3  |itcloud..@.li%=.|
00000210  28 34 29 2d 31 0d 01 4a  0d f2 67 65 74 73 74 61  |(4)-1..J..getsta|
00000220  72 74 0d 01 54 0d f2 69  6e 69 74 77 69 6e 64 0d  |rt..T..initwind.|
00000230  01 5e 0e f2 73 65 74 70  6c 61 79 65 72 0d 01 68  |.^..setplayer..h|
00000240  05 f5 0d 01 72 10 f2 77  68 69 63 68 70 6c 61 79  |....r..whichplay|
00000250  65 72 0d 01 7c 17 e7 72  6f 75 6e 64 25 fd b9 3a  |er..|..round%..:|
00000260  f2 62 6f 61 72 64 3a fd  a3 0d 01 86 10 f2 67 65  |.board:.......ge|
00000270  74 70 6c 61 79 76 61 6c  73 0d 01 90 0a f2 6c 69  |tplayvals.....li|
00000280  67 68 74 0d 01 9a 10 f2  73 69 6e 65 28 58 25 2c  |ght.....sine(X%,|
00000290  59 25 29 0d 01 a4 0f f2  64 72 61 77 73 63 72 65  |Y%).....drawscre|
000002a0  65 6e 0d 01 ae 09 f2 73  70 6f 74 0d 01 b8 25 ec  |en.....spot...%.|
000002b0  6d 78 25 28 67 25 2c 48  61 6e 64 25 29 2c 6d 79  |mx%(g%,Hand%),my|
000002c0  25 28 67 25 29 3a ec 42  59 31 32 30 2c 31 37 36  |%(g%):.BY120,176|
000002d0  0d 01 c2 0f 2a 53 47 45  54 20 50 4c 41 49 4e 0d  |....*SGET PLAIN.|
000002e0  01 cc 12 2a 53 43 48 4f  4f 53 45 20 42 41 4c 4c  |...*SCHOOSE BALL|
000002f0  31 0d 01 d6 10 f0 26 45  44 2c 78 73 25 2c 79 73  |1.....&ED,xs%,ys|
00000300  25 0d 01 e0 25 ec 6d 78  25 28 67 25 2c 48 61 6e  |%...%.mx%(g%,Han|
00000310  64 25 29 2c 6d 79 25 28  67 25 29 3a ec 42 59 31  |d%),my%(g%):.BY1|
00000320  32 30 2c 31 37 36 0d 01  ea 0f 2a 53 47 45 54 20  |20,176....*SGET |
00000330  42 4c 41 43 4b 0d 01 f4  0f 2a 53 43 48 4f 4f 53  |BLACK....*SCHOOS|
00000340  45 20 32 30 0d 01 fe 15  62 61 25 3d 73 74 79 25  |E 20....ba%=sty%|
00000350  3d 79 31 25 3a e6 38 2c  30 0d 02 08 1d e7 62 61  |=y1%:.8,0.....ba|
00000360  25 f0 26 45 44 2c 62 61  67 25 28 48 61 6e 64 25  |%.&ED,bag%(Hand%|
00000370  29 2c 2d 37 35 34 0d 02  12 05 f5 0d 02 1c 2f ef  |),-754......../.|
00000380  32 33 2c 32 37 3b 6d 25  28 31 2c 67 25 29 7c 3a  |23,27;m%(1,g%)|:|
00000390  f0 26 45 44 2c 6d 78 25  28 67 25 2c 48 61 6e 64  |.&ED,mx%(g%,Hand|
000003a0  25 29 2c 6d 79 25 28 67  25 29 0d 02 26 0c f2 67  |%),my%(g%)..&..g|
000003b0  65 74 69 6e 66 6f 0d 02  30 0d 44 25 3d a3 3a 42  |etinfo..0.D%=.:B|
000003c0  25 3d a3 0d 02 3a 0d 57  25 3d b9 3a 4b 25 3d a3  |%=...:.W%=.:K%=.|
000003d0  0d 02 44 0b f2 77 61 6c  74 65 72 0d 02 4e 0b f2  |..D..walter..N..|
000003e0  66 6c 69 67 68 74 0d 02  58 14 e7 94 73 78 25 3e  |flight..X...sx%>|
000003f0  36 34 30 f2 63 68 6f 66  73 63 0d 02 62 16 e7 ac  |640.chofsc..b...|
00000400  57 25 f2 73 70 6c 61 73  68 3a fd a3 3a 8b fd b9  |W%.splash:..:...|
00000410  0d 02 6c 0c f2 70 75 74  62 61 63 6b 0d 02 76 06  |..l..putback..v.|
00000420  fd a3 0d 02 80 07 f4 20  15 0d 02 8a 0e dd f2 69  |....... .......i|
00000430  6e 73 74 72 75 63 74 0d  02 94 1a f2 63 6f 6c 6f  |nstruct.....colo|
00000440  75 72 73 28 39 29 3a f2  73 63 72 65 65 6e 62 6f  |urs(9):.screenbo|
00000450  78 0d 02 9e 43 e7 a4 71  75 65 73 74 28 22 44 4f  |x...C..quest("DO|
00000460  20 59 4f 55 20 52 45 51  55 49 52 45 20 49 4e 53  | YOU REQUIRE INS|
00000470  54 52 55 43 54 49 4f 4e  53 3f 22 2c 22 59 45 53  |TRUCTIONS?","YES|
00000480  22 2c 22 4e 4f 22 2c 30  29 3a f2 62 75 74 74 28  |","NO",0):.butt(|
00000490  30 29 3a e1 0d 02 a8 27  f2 63 6f 6c 6f 75 72 73  |0):....'.colours|
000004a0  28 31 32 29 3a f2 6d 65  73 62 6f 78 28 30 2c 30  |(12):.mesbox(0,0|
000004b0  2c 31 32 37 39 2c 31 30  32 33 29 0d 02 b2 19 e6  |,1279,1023).....|
000004c0  31 32 3a c8 93 39 39 38  2c 36 34 30 2c 31 36 30  |12:..998,640,160|
000004d0  2c 32 35 36 0d 02 bc 2a  86 31 30 35 38 2c 38 39  |,256...*.1058,89|
000004e0  36 2c 31 30 36 36 2c 39  34 30 3a df 31 30 39 30  |6,1066,940:.1090|
000004f0  2c 39 34 30 3a df 31 30  39 38 2c 38 39 36 0d 02  |,940:.1098,896..|
00000500  c6 16 e6 31 33 39 3a e6  31 3a c8 90 31 30 37 38  |...139:.1:..1078|
00000510  2c 39 30 30 0d 02 d0 12  fb 31 2c 32 34 30 2c 32  |,900.....1,240,2|
00000520  34 30 2c 31 39 32 0d 02  da 12 fb 32 2c 32 34 30  |40,192.....2,240|
00000530  2c 32 30 38 2c 32 30 38  0d 02 e4 12 fb 33 2c 32  |,208,208.....3,2|
00000540  34 30 2c 32 34 30 2c 32  32 34 0d 02 ee 1b e6 31  |40,240,224.....1|
00000550  3a c8 93 c8 90 31 30 30  30 2c 36 34 34 2c 31 35  |:....1000,644,15|
00000560  36 2c 32 34 38 0d 02 f8  1b e6 33 3a c8 93 c8 90  |6,248.....3:....|
00000570  31 30 30 30 2c 36 34 34  2c 31 35 36 2c 31 32 34  |1000,644,156,124|
00000580  0d 03 02 0b e3 54 25 3d  30 b8 32 0d 03 0c 1e e6  |.....T%=0.2.....|
00000590  31 32 3a c8 93 31 30 31  32 2b 54 25 2a 35 30 2c  |12:..1012+T%*50,|
000005a0  38 30 30 2c 33 32 2c 36  34 0d 03 16 1f e6 32 3a  |800,32,64.....2:|
000005b0  c8 93 c8 90 31 30 31 34  2b 54 25 2a 35 30 2c 38  |....1014+T%*50,8|
000005c0  30 34 2c 32 38 2c 35 36  0d 03 20 21 e6 31 32 3a  |04,28,56.. !.12:|
000005d0  ec 31 30 32 30 2b 54 25  2a 35 30 2c 38 35 30 3a  |.1020+T%*50,850:|
000005e0  ef 35 3a f1 3b 54 25 2b  31 0d 03 2a 0a ed 3a ef  |.5:.;T%+1..*..:.|
000005f0  34 3a 87 0d 03 34 0c fb  31 33 39 3a fb 31 32 0d  |4:...4..139:.12.|
00000600  03 3e 11 ef 32 38 2c 32  2c 33 30 2c 37 38 2c 34  |.>..28,2,30,78,4|
00000610  0d 03 48 95 f1 8a 30 2c  30 29 22 47 61 6d 65 20  |..H...0,0)"Game |
00000620  63 6f 6e 74 72 6f 6c 20  69 6e 20 74 68 65 20 41  |control in the A|
00000630  72 63 68 69 6d 65 64 65  73 20 76 65 72 73 69 6f  |rchimedes versio|
00000640  6e 20 6f 66 20 22 3b 3a  fb 39 3a f1 22 48 4f 4c  |n of ";:.9:."HOL|
00000650  45 44 20 4f 55 54 22 3b  3a fb 31 32 3a f1 22 20  |ED OUT";:.12:." |
00000660  69 73 20 76 69 61 22 27  22 74 68 65 20 4d 4f 55  |is via"'"the MOU|
00000670  53 45 2c 20 74 68 65 20  6b 65 79 73 20 61 72 65  |SE, the keys are|
00000680  20 6e 75 6d 62 65 72 65  64 20 61 73 20 69 6e 64  | numbered as ind|
00000690  69 63 61 74 65 64 20 6f  6e 20 74 68 65 20 72 69  |icated on the ri|
000006a0  67 68 74 2e 22 0d 03 52  54 f1 27 22 54 68 65 20  |ght."..RT.'"The |
000006b0  64 69 66 66 65 72 65 6e  63 65 73 20 74 6f 20 74  |differences to t|
000006c0  68 65 20 69 6e 73 74 72  75 63 74 69 6f 6e 73 20  |he instructions |
000006d0  61 73 20 73 68 6f 77 6e  20 69 6e 20 74 68 65 20  |as shown in the |
000006e0  6d 61 6e 75 61 6c 22 27  22 61 72 65 20 61 73 20  |manual"'"are as |
000006f0  66 6f 6c 6c 6f 77 73 3a  22 0d 03 5c 42 f1 27 22  |follows:"..\B.'"|
00000700  53 54 52 4f 4b 45 50 4c  41 59 2f 22 8a 31 36 29  |STROKEPLAY/".16)|
00000710  22 54 68 65 72 65 20 63  61 6e 20 62 65 20 75 70  |"There can be up|
00000720  20 74 6f 20 36 20 70 6c  61 79 65 72 73 20 69 6e  | to 6 players in|
00000730  20 61 6e 79 20 72 6f 75  6e 64 22 0d 03 66 88 f1  | any round"..f..|
00000740  27 22 47 41 4d 45 20 43  4f 4e 54 52 4f 4c 53 2f  |'"GAME CONTROLS/|
00000750  22 27 27 22 31 2e 20 53  45 4c 45 43 54 20 43 4c  |"''"1. SELECT CL|
00000760  55 42 2e 20 55 73 65 20  74 68 65 20 4d 4f 55 53  |UB. Use the MOUS|
00000770  45 20 74 6f 20 69 6e 64  69 63 61 74 65 20 74 68  |E to indicate th|
00000780  65 20 63 6c 75 62 20 72  65 71 75 69 72 65 64 20  |e club required |
00000790  74 68 65 6e 22 8a 31 36  29 22 70 72 65 73 73 20  |then".16)"press |
000007a0  61 6e 79 20 62 75 74 74  6f 6e 20 74 6f 20 67 6f  |any button to go|
000007b0  20 74 6f 20 74 68 65 20  6e 65 78 74 20 73 74 61  | to the next sta|
000007c0  67 65 22 0d 03 70 47 f1  27 22 32 2e 20 44 49 52  |ge"..pG.'"2. DIR|
000007d0  45 43 54 49 4f 4e 2e 20  20 20 50 6f 73 69 74 69  |ECTION.   Positi|
000007e0  6f 6e 20 74 68 65 20 63  75 72 73 6f 72 20 77 69  |on the cursor wi|
000007f0  74 68 20 74 68 65 20 4d  4f 55 53 45 20 74 68 65  |th the MOUSE the|
00000800  6e 20 65 69 74 68 65 72  2e 22 0d 03 7a 2e f1 89  |n either."..z...|
00000810  28 31 36 29 22 50 72 65  73 73 20 5b 32 5d 20 74  |(16)"Press [2] t|
00000820  6f 20 67 6f 20 74 6f 20  74 68 65 20 6e 65 78 74  |o go to the next|
00000830  20 73 74 61 67 65 2e 22  0d 03 84 33 f1 89 28 31  | stage."...3..(1|
00000840  36 29 22 50 72 65 73 73  20 5b 31 5d 20 6f 72 20  |6)"Press [1] or |
00000850  5b 33 5d 20 74 6f 20 73  65 6c 65 63 74 20 61 6e  |[3] to select an|
00000860  6f 74 68 65 72 20 63 6c  75 62 22 0d 03 8e 51 f1  |other club"...Q.|
00000870  27 22 33 2e 20 50 4f 57  45 52 2e 22 8a 31 36 29  |'"3. POWER.".16)|
00000880  22 41 73 20 73 6f 6f 6e  20 61 73 20 74 68 65 20  |"As soon as the |
00000890  64 69 72 65 63 74 69 6f  6e 20 68 61 73 20 62 65  |direction has be|
000008a0  65 6e 20 73 65 6c 65 63  74 65 64 20 62 79 20 70  |en selected by p|
000008b0  72 65 73 73 69 6e 67 20  5b 32 5d 22 0d 03 98 30  |ressing [2]"...0|
000008c0  f1 8a 31 36 29 22 74 68  65 20 62 61 72 20 69 6e  |..16)"the bar in|
000008d0  64 69 63 61 74 6f 72 20  77 69 6c 6c 20 73 74 61  |dicator will sta|
000008e0  72 74 20 74 6f 20 6d 6f  76 65 2e 22 0d 03 a2 2f  |rt to move.".../|
000008f0  f1 8a 31 36 29 22 50 72  65 73 73 69 6e 67 20 5b  |..16)"Pressing [|
00000900  32 5d 20 77 69 6c 6c 20  67 69 76 65 20 61 20 4e  |2] will give a N|
00000910  6f 72 6d 61 6c 20 73 68  6f 74 22 0d 03 ac 2f f1  |ormal shot".../.|
00000920  8a 31 36 29 22 50 72 65  73 73 69 6e 67 20 5b 31  |.16)"Pressing [1|
00000930  5d 20 77 69 6c 6c 20 67  69 76 65 20 61 20 48 6f  |] will give a Ho|
00000940  6f 6b 65 64 20 73 68 6f  74 22 0d 03 b6 2f f1 8a  |oked shot".../..|
00000950  31 36 29 22 50 72 65 73  73 69 6e 67 20 5b 33 5d  |16)"Pressing [3]|
00000960  20 77 69 6c 6c 20 67 69  76 65 20 61 20 53 6c 69  | will give a Sli|
00000970  63 65 64 20 73 68 6f 74  22 0d 03 c0 29 f1 27 27  |ced shot"...).''|
00000980  8a 32 32 29 22 50 52 45  53 53 20 41 4e 59 20 42  |.22)"PRESS ANY B|
00000990  55 54 54 4f 4e 20 54 4f  20 43 4f 4e 54 49 4e 55  |UTTON TO CONTINU|
000009a0  45 22 0d 03 ca 0c f2 62  75 74 74 28 30 29 0d 03  |E".....butt(0)..|
000009b0  d4 21 f5 3a c8 97 58 25  2c 59 25 2c 4b 25 3a fd  |.!.:..X%,Y%,K%:.|
000009c0  4b 25 3a d4 31 2c 2d 31  30 2c 32 30 30 2c 31 0d  |K%:.1,-10,200,1.|
000009d0  03 de 0c f2 62 75 74 74  28 30 29 0d 03 e8 05 e1  |....butt(0).....|
000009e0  0d 03 f2 07 f4 20 15 0d  03 fc 0c dd f2 63 68 6f  |..... .......cho|
000009f0  66 73 63 0d 04 06 0c 2a  46 58 31 31 32 2c 33 0d  |fsc....*FX112,3.|
00000a00  04 10 05 db 0d 04 1a 3d  e7 b4 78 31 25 3d b9 20  |.......=..x1%=. |
00000a10  c8 91 31 32 38 30 2c 37  36 38 2b 4f 25 2d 36 31  |..1280,768+O%-61|
00000a20  36 36 2a 67 72 65 65 6e  25 3a 8b c8 91 30 2c 37  |66*green%:...0,7|
00000a30  36 38 2b 4f 25 2d 36 31  36 36 2a 67 72 65 65 6e  |68+O%-6166*green|
00000a40  25 0d 04 24 0c 50 25 3d  72 6f 75 67 68 0d 04 2e  |%..$.P%=rough...|
00000a50  12 e6 a4 6d 61 70 31 3a  f2 64 72 61 77 69 74 0d  |...map1:.drawit.|
00000a60  04 38 12 e6 a4 6d 61 70  31 3a f2 64 72 61 77 69  |.8...map1:.drawi|
00000a70  74 0d 04 42 17 50 25 3d  77 61 74 65 72 3a e6 36  |t..B.P%=water:.6|
00000a80  3a f2 64 72 61 77 69 74  0d 04 4c 10 47 25 3d b0  |:.drawit..L.G%=.|
00000a90  78 73 25 2c 79 73 25 29  0d 04 56 13 e7 47 25 3d  |xs%,ys%)..V..G%=|
00000aa0  36 84 47 25 3d 31 31 57  25 3d a3 0d 04 60 0c 2a  |6.G%=11W%=...`.*|
00000ab0  46 58 31 31 32 2c 31 0d  04 6a 05 e1 0d 04 74 07  |FX112,1..j....t.|
00000ac0  f4 20 15 0d 04 7e 0d dd  f2 70 72 65 76 69 65 77  |. ...~...preview|
00000ad0  0d 04 88 05 f5 0d 04 92  1e f2 63 6f 6c 6f 75 72  |..........colour|
00000ae0  73 28 39 29 3a f2 73 63  72 65 65 6e 62 6f 78 3a  |s(9):.screenbox:|
00000af0  c8 97 ee 0d 04 9c 15 6c  68 6f 6c 25 3d a4 63 68  |.......lhol%=.ch|
00000b00  6f 73 65 61 68 6f 6c 65  0d 04 a6 1a e7 ac 6c 68  |oseahole......lh|
00000b10  6f 6c 25 f2 64 72 61 77  6d 61 70 28 6c 68 6f 6c  |ol%.drawmap(lhol|
00000b20  25 29 0d 04 b0 0c fd 6c  68 6f 6c 25 3d b9 0d 04  |%).....lhol%=...|
00000b30  ba 05 e1 0d 04 c4 07 f4  20 15 0d 04 ce 16 dd f2  |........ .......|
00000b40  64 72 61 77 6d 61 70 28  68 6f 6c 65 6e 6f 25 29  |drawmap(holeno%)|
00000b50  0d 04 d8 0e f2 69 6e 69  74 63 6c 6f 75 64 0d 04  |.....initcloud..|
00000b60  e2 13 6c 69 25 3d 32 3a  f2 69 6e 69 74 77 69 6e  |..li%=2:.initwin|
00000b70  64 0d 04 ec 25 ea 72 25  2c 6c 25 2c 4f 4c 25 2c  |d...%.r%,l%,OL%,|
00000b80  41 25 2c 41 41 25 2c 54  25 2c 49 25 2c 53 50 25  |A%,AA%,T%,I%,SP%|
00000b90  2c 58 25 2c 59 25 0d 04  f6 11 58 25 3d 36 34 30  |,X%,Y%....X%=640|
00000ba0  3a 59 25 3d 35 31 32 0d  05 00 05 f5 0d 05 0a 1f  |:Y%=512.........|
00000bb0  50 25 3d 6d 61 70 70 6f  69 6e 74 25 2b 68 6f 6c  |P%=mappoint%+hol|
00000bc0  65 6e 6f 25 3a 53 50 25  3d 50 25 0d 05 14 26 4f  |eno%:SP%=P%...&O|
00000bd0  4c 25 3d 28 bb 28 c3 7e  28 28 6d 61 70 21 28 50  |L%=(.(.~((map!(P|
00000be0  25 2b 26 32 46 41 29 29  80 26 46 46 46 46 29 29  |%+&2FA)).&FFFF))|
00000bf0  29 0d 05 1e 0d 41 41 25  3d a4 6d 61 70 31 0d 05  |)....AA%=.map1..|
00000c00  28 0d e3 41 25 3d 31 b8  41 41 25 0d 05 32 11 6c  |(..A%=1.AA%..2.l|
00000c10  25 3d a4 6d 61 70 32 2f  31 30 2e 35 0d 05 3c 11  |%=.map2/10.5..<.|
00000c20  72 25 3d a4 6d 61 70 32  2f 31 30 2e 35 0d 05 46  |r%=.map2/10.5..F|
00000c30  17 78 25 28 41 25 29 3d  72 25 3a 79 25 28 41 25  |.x%(A%)=r%:y%(A%|
00000c40  29 3d 6c 25 0d 05 50 05  ed 0d 05 5a 0e 49 25 3d  |)=l%..P....Z.I%=|
00000c50  a4 6d 61 70 31 2d 31 0d  05 64 22 54 25 3d a4 6d  |.map1-1..d"T%=.m|
00000c60  61 70 31 3a 54 25 3d a4  6d 61 70 31 3a 50 25 3d  |ap1:T%=.map1:P%=|
00000c70  50 25 2b 54 25 2a 34 2b  34 0d 05 6e 17 6c 25 3d  |P%+T%*4+4..n.l%=|
00000c80  30 3a 72 25 3d 30 3a 74  25 3d 30 3a 62 25 3d 30  |0:r%=0:t%=0:b%=0|
00000c90  0d 05 78 20 f2 63 6f 6c  6f 75 72 73 28 31 32 29  |..x .colours(12)|
00000ca0  3a f2 73 63 72 65 65 6e  62 6f 78 3a e6 31 33 37  |:.screenbox:.137|
00000cb0  0d 05 82 26 f2 6d 65 73  62 6f 78 28 35 33 32 2d  |...&.mesbox(532-|
00000cc0  4f 4c 25 2c 32 39 34 2c  4f 4c 25 2a 32 2b 32 31  |OL%,294,OL%*2+21|
00000cd0  32 2c 36 39 32 29 0d 05  8c 29 ef 32 36 2c 32 34  |2,692)...).26,24|
00000ce0  2c 35 34 38 2d 4f 4c 25  3b 33 31 30 3b 35 34 38  |,548-OL%;310;548|
00000cf0  2b 4f 4c 25 2b 31 38 30  3b 39 37 30 3b 3a da 0d  |+OL%+180;970;:..|
00000d00  05 96 11 c8 91 35 39 32  2b 4f 4c 25 2c 36 34 30  |.....592+OL%,640|
00000d10  0d 05 a0 13 e3 54 25 3d  31 b8 49 25 3a e6 a4 6d  |.....T%=1.I%:..m|
00000d20  61 70 31 0d 05 aa 0d 6e  70 25 3d a4 6d 61 70 31  |ap1....np%=.map1|
00000d30  0d 05 b4 25 f2 6d 61 70  32 28 43 58 25 2c 43 59  |...%.map2(CX%,CY|
00000d40  25 2c 34 29 3a f2 6d 61  70 32 28 53 58 25 2c 53  |%,4):.map2(SX%,S|
00000d50  59 25 2c 34 29 0d 05 be  2c e3 49 25 3d 31 b8 6e  |Y%,4)...,.I%=1.n|
00000d60  70 25 2d 31 3a f2 6d 61  70 32 28 58 49 25 2c 59  |p%-1:.map2(XI%,Y|
00000d70  49 25 2c 38 35 29 3a ec  43 58 25 2c 43 59 25 3a  |I%,85):.CX%,CY%:|
00000d80  ed 0d 05 c8 0f f0 38 35  2c 53 58 25 2c 53 59 25  |......85,SX%,SY%|
00000d90  0d 05 d2 09 ed 3a e6 31  34 0d 05 dc 38 e3 54 25  |.....:.14...8.T%|
00000da0  3d 31 b8 41 41 25 3a e7  b0 2d 78 25 28 54 25 29  |=1.AA%:..-x%(T%)|
00000db0  2c 2d 79 25 28 54 25 29  29 3c 3e 36 c8 8f c8 90  |,-y%(T%))<>6....|
00000dc0  2d 78 25 28 54 25 29 2c  2d 79 25 28 54 25 29 2c  |-x%(T%),-y%(T%),|
00000dd0  38 0d 05 e6 0e ed 3a e6  30 3a c8 92 30 2c 30 0d  |8.....:.0:..0,0.|
00000de0  05 f0 07 ef 32 36 0d 05  fa 56 f2 73 6d 61 6c 6c  |....26...V.small|
00000df0  6d 65 73 28 31 34 34 2c  31 36 36 2c 31 32 2c 22  |mes(144,166,12,"|
00000e00  50 4f 53 49 54 49 4f 4e  20 50 4f 49 4e 54 45 52  |POSITION POINTER|
00000e10  20 4f 4e 20 56 49 45 57  50 4f 49 4e 54 20 54 48  | ON VIEWPOINT TH|
00000e20  45 4e 20 50 52 45 53 53  20 54 48 45 20 4d 49 44  |EN PRESS THE MID|
00000e30  44 4c 45 20 42 55 54 54  4f 4e 22 29 0d 06 04 4a  |DLE BUTTON")...J|
00000e40  f2 73 6d 61 6c 6c 6d 65  73 28 32 33 32 2c 36 36  |.smallmes(232,66|
00000e50  2c 31 32 2c 22 41 4e 59  20 4f 54 48 45 52 20 42  |,12,"ANY OTHER B|
00000e60  55 54 54 4f 4e 20 54 4f  20 52 45 54 55 52 4e 20  |UTTON TO RETURN |
00000e70  54 4f 20 54 48 45 20 48  4f 4c 45 20 53 45 4c 45  |TO THE HOLE SELE|
00000e80  43 54 4f 52 22 29 0d 06  0e 10 c8 97 ee 3a c8 97  |CTOR").......:..|
00000e90  b8 58 25 2c 59 25 0d 06  18 05 f5 0d 06 22 21 c8  |.X%,Y%......."!.|
00000ea0  97 c8 93 35 34 38 2d 4f  4c 25 2c 33 31 30 2c 4f  |...548-OL%,310,O|
00000eb0  4c 25 2a 32 2b 31 38 30  2c 36 36 30 0d 06 2c 0e  |L%*2+180,660..,.|
00000ec0  c8 97 58 25 2c 59 25 2c  54 25 0d 06 36 27 e7 58  |..X%,Y%,T%..6'.X|
00000ed0  25 3c 36 38 38 8c 72 25  3d 28 36 38 38 2d 58 25  |%<688.r%=(688-X%|
00000ee0  29 81 38 8b 72 25 3d 28  58 25 2d 36 38 38 29 81  |).8.r%=(X%-688).|
00000ef0  38 0d 06 40 29 c8 97 c8  93 35 34 38 2d 4f 4c 25  |8..@)....548-OL%|
00000f00  2c 33 31 30 2b 72 25 2c  4f 4c 25 2a 32 2b 31 38  |,310+r%,OL%*2+18|
00000f10  30 2c 36 36 30 2d 72 25  2a 32 0d 06 4a 17 79 25  |0,660-r%*2..J.y%|
00000f20  3d 28 28 35 39 32 2b 4f  4c 25 29 2d 58 25 29 81  |=((592+OL%)-X%).|
00000f30  32 0d 06 54 11 78 25 3d  28 36 34 30 2d 59 25 29  |2..T.x%=(640-Y%)|
00000f40  81 32 0d 06 5e 26 e7 54  25 3d 32 f2 64 69 73 70  |.2..^&.T%=2.disp|
00000f50  6c 61 79 76 69 65 77 28  58 25 2c 59 25 2c 53 50  |layview(X%,Y%,SP|
00000f60  25 29 3a fd b9 3a fd a3  0d 06 68 0a fd 54 25 3a  |%):..:....h..T%:|
00000f70  fd b9 0d 06 72 05 e1 0d  06 7c 07 f4 20 15 0d 06  |....r....|.. ...|
00000f80  86 1c dd f2 64 69 73 70  6c 61 79 76 69 65 77 28  |....displayview(|
00000f90  58 25 2c 59 25 2c 53 50  25 29 0d 06 90 07 c8 97  |X%,Y%,SP%)......|
00000fa0  87 0d 06 9a 1f ea 41 24  2c 6d 61 70 70 6f 69 6e  |......A$,mappoin|
00000fb0  74 25 3a 6d 61 70 70 6f  69 6e 74 25 3d 53 50 25  |t%:mappoint%=SP%|
00000fc0  0d 06 a4 1d 59 59 25 3d  28 28 28 35 39 32 2b 4f  |....YY%=(((592+O|
00000fd0  4c 25 29 2d 58 25 29 81  32 29 2a 32 31 0d 06 ae  |L%)-X%).2)*21...|
00000fe0  16 58 25 3d 28 28 36 34  30 2d 59 25 29 81 32 29  |.X%=((640-Y%).2)|
00000ff0  2a 32 31 0d 06 b8 1f e7  94 58 25 3c 34 32 80 94  |*21......X%<42..|
00001000  59 59 25 3c 34 32 58 25  3d 34 32 3a 59 59 25 3d  |YY%<42X%=42:YY%=|
00001010  34 32 0d 06 c2 37 4f 4c  25 3d 28 a4 64 69 73 74  |42...7OL%=(.dist|
00001020  61 6e 63 65 28 58 25 2c  59 59 25 29 29 3a 67 72  |ance(X%,YY%)):gr|
00001030  65 65 6e 25 3d 28 4f 4c  25 3c 35 32 35 29 3a 4f  |een%=(OL%<525):O|
00001040  4c 25 3d 4f 4c 25 2f 32  31 0d 06 cc 2e 41 24 3d  |L%=OL%/21....A$=|
00001050  43 6f 75 72 73 65 24 2b  22 20 48 4f 4c 45 20 22  |Course$+" HOLE "|
00001060  2b c3 28 68 6f 6c 65 6e  6f 25 81 26 33 30 30 2b  |+.(holeno%.&300+|
00001070  31 29 2b 22 2c 20 22 0d  06 d6 37 e7 67 72 65 65  |1)+", "...7.gree|
00001080  6e 25 20 41 24 3d 41 24  2b c3 28 4f 4c 25 2a 33  |n% A$=A$+.(OL%*3|
00001090  29 2b 22 20 46 45 45 54  22 3a 8b 41 24 3d 41 24  |)+" FEET":.A$=A$|
000010a0  2b c3 4f 4c 25 2b 22 20  59 41 52 44 53 22 0d 06  |+.OL%+" YARDS"..|
000010b0  e0 16 41 24 3d 41 24 2b  22 20 46 52 4f 4d 20 48  |..A$=A$+" FROM H|
000010c0  4f 4c 45 22 0d 06 ea 0a  f2 6c 69 67 68 74 0d 06  |OLE".....light..|
000010d0  f4 10 f2 73 69 6e 65 28  58 25 2c 59 25 29 0d 06  |...sine(X%,Y%)..|
000010e0  fe 0f f2 64 72 61 77 73  63 72 65 65 6e 0d 07 08  |...drawscreen...|
000010f0  2f ef 32 36 3a 58 25 3d  36 34 30 2d a9 41 24 2a  |/.26:X%=640-.A$*|
00001100  38 2d 32 34 3a f2 73 6d  61 6c 6c 6d 65 73 28 58  |8-24:.smallmes(X|
00001110  25 2c 38 36 30 2c 31 33  2c 41 24 29 0d 07 12 0c  |%,860,13,A$)....|
00001120  f2 62 75 74 74 28 30 29  0d 07 1c 15 f5 c8 97 58  |.butt(0).......X|
00001130  25 2c 59 25 2c 53 50 25  3a fd 53 50 25 0d 07 26  |%,Y%,SP%:.SP%..&|
00001140  0c f2 62 75 74 74 28 30  29 0d 07 30 05 e1 0d 07  |..butt(0)..0....|
00001150  3a 07 f4 20 15 0d 07 44  18 dd f2 6d 61 70 32 28  |:.. ...D...map2(|
00001160  f8 20 78 25 2c f8 20 79  25 2c 70 25 29 0d 07 4e  |. x%,. y%,p%)..N|
00001170  21 79 25 3d 2d a4 6d 61  70 32 2f 31 30 2e 35 3a  |!y%=-.map2/10.5:|
00001180  78 25 3d 2d a4 6d 61 70  32 2f 31 30 2e 35 0d 07  |x%=-.map2/10.5..|
00001190  58 0d f0 70 25 2c 78 25  2c 79 25 0d 07 62 05 e1  |X..p%,x%,y%..b..|
000011a0  0d 07 6c 07 f4 20 15 0d  07 76 10 dd a4 63 68 6f  |..l.. ...v...cho|
000011b0  73 65 61 68 6f 6c 65 0d  07 80 0c f2 62 75 74 74  |seahole.....butt|
000011c0  28 30 29 0d 07 8a 18 ea  58 25 2c 59 25 2c 4b 25  |(0).....X%,Y%,K%|
000011d0  2c 46 25 2c 4e 25 2c 6f  75 74 25 0d 07 94 2c f2  |,F%,N%,out%...,.|
000011e0  63 65 6e 74 62 6f 78 28  b9 2c 22 50 4c 45 41 53  |centbox(.,"PLEAS|
000011f0  45 20 53 45 4c 45 43 54  20 41 20 48 4f 4c 45 22  |E SELECT A HOLE"|
00001200  2c 31 32 2c 31 30 29 0d  07 9e 26 f2 6d 65 73 62  |,12,10)...&.mesb|
00001210  6f 78 28 34 36 34 2c 34  34 34 2c 31 34 38 2c 31  |ox(464,444,148,1|
00001220  30 30 29 3a f2 64 6f 6e  6f 32 28 31 29 0d 07 a8  |00):.dono2(1)...|
00001230  1a f2 6d 65 73 62 6f 78  28 37 30 34 2c 35 33 36  |..mesbox(704,536|
00001240  2c 38 30 2c 38 30 29 0d  07 b2 20 f2 73 6d 61 6c  |,80,80)... .smal|
00001250  6c 6d 65 73 28 37 30 34  2c 34 36 32 2c 31 32 2c  |lmes(704,462,12,|
00001260  22 45 58 49 54 22 29 0d  07 bc 1a f2 6d 65 73 62  |"EXIT").....mesb|
00001270  6f 78 28 37 30 34 2c 33  36 38 2c 38 30 2c 38 30  |ox(704,368,80,80|
00001280  29 0d 07 c6 25 e6 31 35  3a ec 37 34 34 2c 36 30  |)...%.15:.744,60|
00001290  30 3a ec 37 32 30 2c 35  35 34 3a f0 38 35 2c 37  |0:.720,554:.85,7|
000012a0  36 38 2c 35 35 34 0d 07  d0 32 ec 37 34 34 2c 33  |68,554...2.744,3|
000012b0  38 38 3a ec 37 32 30 2c  34 33 32 3a f0 38 35 2c  |88:.720,432:.85,|
000012c0  37 36 38 2c 34 33 32 3a  86 37 32 30 2c 34 33 36  |768,432:.720,436|
000012d0  2c 37 36 38 2c 34 33 36  0d 07 da 20 e6 38 3a 86  |,768,436... .8:.|
000012e0  37 32 30 2c 34 33 32 2c  37 34 34 2c 33 38 38 3a  |720,432,744,388:|
000012f0  df 37 36 38 2c 34 33 32  0d 07 e4 1d 86 37 32 30  |.768,432.....720|
00001300  2c 35 35 38 2c 37 34 34  2c 36 30 30 3a df 37 36  |,558,744,600:.76|
00001310  38 2c 35 35 38 0d 07 ee  17 c8 97 c8 93 34 38 30  |8,558........480|
00001320  2c 33 38 38 2c 34 33 32  2c 32 32 30 0d 07 f8 15  |,388,432,220....|
00001330  4e 25 3d 31 3a f5 3a c8  97 58 25 2c 59 25 2c 4b  |N%=1:.:..X%,Y%,K|
00001340  25 0d 08 02 08 e7 4b 25  8c 0d 08 0c 0c e7 58 25  |%.....K%......X%|
00001350  3e 37 31 36 8c 0d 08 16  0c e7 58 25 3c 37 37 32  |>716......X%<772|
00001360  8c 0d 08 20 36 e7 59 25  3e 35 34 34 4e 25 3d 4e  |... 6.Y%>544N%=N|
00001370  25 83 31 38 2b 31 3a f2  64 6f 6e 6f 32 28 4e 25  |%.18+1:.dono2(N%|
00001380  29 3a d4 31 2c 2d 31 30  2c 32 30 30 2c 31 3a f2  |):.1,-10,200,1:.|
00001390  62 75 74 74 28 30 29 0d  08 2a 41 e7 59 25 3c 34  |butt(0)..*A.Y%<4|
000013a0  34 32 4e 25 2d 3d 31 3a  4e 25 3d 4e 25 2d 28 4e  |42N%-=1:N%=N%-(N|
000013b0  25 3d 30 29 2a 31 38 3a  f2 64 6f 6e 6f 32 28 4e  |%=0)*18:.dono2(N|
000013c0  25 29 3a d4 31 2c 2d 31  30 2c 32 30 30 2c 31 3a  |%):.1,-10,200,1:|
000013d0  f2 62 75 74 74 28 30 29  0d 08 34 05 cd 0d 08 3e  |.butt(0)..4....>|
000013e0  2a e7 59 25 3e 34 37 32  80 59 25 3c 35 31 36 6f  |*.Y%>472.Y%<516o|
000013f0  75 74 25 3d b9 3a 46 25  3d b9 3a d4 31 2c 2d 31  |ut%=.:F%=.:.1,-1|
00001400  30 2c 32 30 30 2c 31 0d  08 48 05 cd 0d 08 52 0c  |0,200,1..H....R.|
00001410  e7 58 25 3c 36 30 34 8c  0d 08 5c 16 e7 59 25 3e  |.X%<604...\..Y%>|
00001420  34 35 36 80 59 25 3c 35  34 30 46 25 3d b9 0d 08  |456.Y%<540F%=...|
00001430  66 05 cd 0d 08 70 05 cd  0d 08 7a 09 fd 46 25 3d  |f....p....z..F%=|
00001440  b9 0d 08 84 17 3d 28 28  4e 25 2d 31 29 2a 26 33  |.....=((N%-1)*&3|
00001450  30 30 29 84 6f 75 74 25  0d 08 8e 07 f4 20 15 0d  |00).out%..... ..|
00001460  08 98 0f dd f2 64 6f 6e  6f 32 28 41 25 29 0d 08  |.....dono2(A%)..|
00001470  a2 13 ea 41 24 2c 54 25  3a 41 24 3d c3 28 41 25  |...A$,T%:A$=.(A%|
00001480  29 0d 08 ac 1a e6 31 31  3a c8 93 c8 90 34 37 36  |).....11:....476|
00001490  2c 34 36 34 2c 31 32 34  2c 36 34 0d 08 b6 17 ec  |,464,124,64.....|
000014a0  34 37 36 2d 33 32 2a 28  41 25 3c 31 30 29 2c 35  |476-32*(A%<10),5|
000014b0  32 30 0d 08 c0 29 e6 31  32 3a e3 54 25 3d 31 b8  |20...).12:.T%=1.|
000014c0  a9 41 24 3a f2 64 6f 75  62 6c 65 28 bb 28 c1 41  |.A$:.double(.(.A|
000014d0  24 2c 54 25 2c 31 29 29  29 3a ed 0d 08 ca 05 e1  |$,T%,1))):......|
000014e0  0d 08 d4 07 f4 20 15 0d  08 de 10 dd f2 67 65 74  |..... .......get|
000014f0  6f 70 74 69 6f 6e 73 0d  08 e8 1a e3 54 25 3d 31  |options.....T%=1|
00001500  b8 36 3a 6a 75 6d 70 25  28 54 25 29 3d 54 25 3a  |.6:jump%(T%)=T%:|
00001510  ed 0d 08 f2 15 2a 43 48  41 4e 4e 45 4c 56 4f 49  |.....*CHANNELVOI|
00001520  43 45 20 31 20 31 0d 08  fc 07 f5 3a f5 0d 09 06  |CE 1 1.....:....|
00001530  1a f2 63 6f 6c 6f 75 72  73 28 39 29 3a f2 73 63  |..colours(9):.sc|
00001540  72 65 65 6e 62 6f 78 0d  09 10 0e c8 97 b8 36 34  |reenbox.......64|
00001550  30 2c 34 39 36 0d 09 1a  73 6d 61 70 70 6f 69 6e  |0,496...smappoin|
00001560  74 25 3d a4 71 75 65 73  74 28 22 57 48 49 43 48  |t%=.quest("WHICH|
00001570  20 43 4f 55 52 53 45 20  44 4f 20 59 4f 55 20 57  | COURSE DO YOU W|
00001580  49 53 48 20 54 4f 20 50  4c 41 59 3f 22 2c 22 43  |ISH TO PLAY?","C|
00001590  4f 4e 45 20 4c 49 4e 4b  53 22 2c 22 50 49 4e 45  |ONE LINKS","PINE|
000015a0  20 49 53 4c 45 53 22 2c  30 29 2a 26 33 36 30 30  | ISLES",0)*&3600|
000015b0  3a 6d 61 70 73 74 61 72  74 25 3d 6d 61 70 2b 6d  |:mapstart%=map+m|
000015c0  61 70 70 6f 69 6e 74 25  0d 09 24 37 e7 6d 61 70  |appoint%..$7.map|
000015d0  70 6f 69 6e 74 25 43 6f  75 72 73 65 24 3d 22 50  |point%Course$="P|
000015e0  49 4e 45 20 49 53 4c 45  53 22 8b 43 6f 75 72 73  |INE ISLES".Cours|
000015f0  65 24 3d 22 43 4f 4e 45  20 4c 49 4e 4b 53 22 0d  |e$="CONE LINKS".|
00001600  09 2e 4d e7 a4 71 75 65  73 74 28 22 50 52 45 56  |..M..quest("PREV|
00001610  49 45 57 20 48 4f 4c 45  53 20 4f 52 20 50 4c 41  |IEW HOLES OR PLA|
00001620  59 20 52 4f 55 4e 44 3f  22 2c 22 50 4c 41 59 22  |Y ROUND?","PLAY"|
00001630  2c 22 50 52 45 56 49 45  57 22 2c 30 29 f2 70 72  |,"PREVIEW",0).pr|
00001640  65 76 69 65 77 3a fd a3  3a 8b fd b9 0d 09 38 68  |eview:..:.....8h|
00001650  70 6c 61 79 25 3d a4 71  75 65 73 74 28 22 55 4e  |play%=.quest("UN|
00001660  44 45 52 20 57 48 49 43  48 20 52 55 4c 45 53 20  |DER WHICH RULES |
00001670  41 52 45 20 59 4f 55 20  54 4f 20 50 4c 41 59 3f  |ARE YOU TO PLAY?|
00001680  22 2c 22 4d 41 54 43 48  20 50 4c 41 59 22 2c 22  |","MATCH PLAY","|
00001690  53 54 52 4f 4b 45 20 50  4c 41 59 22 2c 30 29 2b  |STROKE PLAY",0)+|
000016a0  31 3a f4 20 31 3d 4d 41  54 43 48 20 32 3d 53 54  |1:. 1=MATCH 2=ST|
000016b0  52 4f 4b 45 0d 09 42 1a  6e 6f 6f 66 70 6c 61 79  |ROKE..B.noofplay|
000016c0  65 72 73 3d a4 6e 6f 70  6c 61 79 69 6e 67 0d 09  |ers=.noplaying..|
000016d0  4c 15 e3 54 25 3d 31 b8  6e 6f 6f 66 70 6c 61 79  |L..T%=1.noofplay|
000016e0  65 72 73 0d 09 56 10 f2  67 65 74 6e 61 6d 65 28  |ers..V..getname(|
000016f0  54 25 29 0d 09 60 51 68  61 6e 64 25 28 54 25 29  |T%)..`Qhand%(T%)|
00001700  3d 31 2d a4 71 75 65 73  74 28 22 49 53 20 22 2b  |=1-.quest("IS "+|
00001710  6e 61 6d 65 24 28 54 25  29 2b 22 20 4c 45 46 54  |name$(T%)+" LEFT|
00001720  20 4f 52 20 52 49 47 48  54 20 48 41 4e 44 45 44  | OR RIGHT HANDED|
00001730  3f 22 2c 22 4c 45 46 54  22 2c 22 52 49 47 48 54  |?","LEFT","RIGHT|
00001740  22 2c 30 29 0d 09 6a 11  f2 67 65 74 73 6b 69 6c  |",0)..j..getskil|
00001750  6c 28 54 25 29 0d 09 74  05 ed 0d 09 7e 1c e7 a4  |l(T%)..t....~...|
00001760  63 6f 6e 66 69 72 6d 28  6e 6f 6f 66 70 6c 61 79  |confirm(noofplay|
00001770  65 72 73 29 fd 30 0d 09  88 06 fd b9 0d 09 92 37  |ers).0.........7|
00001780  f4 20 43 48 41 4e 47 45  20 54 48 45 20 46 4f 4c  |. CHANGE THE FOL|
00001790  4c 4f 57 49 4e 47 20 4e  55 4d 42 45 52 20 54 4f  |LOWING NUMBER TO|
000017a0  20 28 48 4f 4c 45 20 4e  4f 2e 20 2d 31 29 2a 26  | (HOLE NO. -1)*&|
000017b0  33 30 30 0d 09 9c 14 f4  6d 61 70 70 6f 69 6e 74  |300.....mappoint|
000017c0  25 3d 26 32 34 30 30 0d  09 a6 05 e1 0d 09 b0 07  |%=&2400.........|
000017d0  f4 20 15 0d 09 ba 11 dd  a4 63 6f 6e 66 69 72 6d  |. .......confirm|
000017e0  28 54 25 29 0d 09 c4 1c  ea 4e 25 2c 49 25 2c 41  |(T%).....N%,I%,A|
000017f0  24 3a 49 25 3d 28 54 25  2b 28 54 25 80 31 29 29  |$:I%=(T%+(T%.1))|
00001800  0d 09 ce 0c f2 62 75 74  74 28 30 29 0d 09 d8 1b  |.....butt(0)....|
00001810  f2 63 6f 6c 6f 75 72 73  28 31 32 29 3a f2 73 63  |.colours(12):.sc|
00001820  72 65 65 6e 62 6f 78 0d  09 e2 5a f2 63 65 6e 74  |reenbox...Z.cent|
00001830  62 6f 78 28 a3 2c 22 20  20 20 20 20 20 20 20 20  |box(.,"         |
00001840  20 20 20 41 52 45 20 54  48 45 20 46 4f 4c 4c 4f  |   ARE THE FOLLO|
00001850  57 49 4e 47 20 47 41 4d  45 20 4f 50 54 49 4f 4e  |WING GAME OPTION|
00001860  53 20 43 4f 52 52 45 43  54 3f 20 20 20 20 20 20  |S CORRECT?      |
00001870  20 20 20 20 20 20 22 2c  31 35 2c 31 30 2b 49 25  |      ",15,10+I%|
00001880  29 0d 09 ec 21 ef 32 38  2c 31 30 2c 32 30 2b 49  |)...!.28,10,20+I|
00001890  25 81 32 2c 36 39 2c 31  33 2d 49 25 81 32 2c 34  |%.2,69,13-I%.2,4|
000018a0  3a 87 0d 09 f6 1c fb 31  32 3a fb 31 33 39 3a f1  |:......12:.139:.|
000018b0  3b 54 25 3b 22 20 50 4c  41 59 45 52 22 3b 0d 0a  |;T%;" PLAYER";..|
000018c0  00 0f e7 54 25 3c 3e 31  f1 22 53 22 3b 0d 0a 0a  |...T%<>1."S";...|
000018d0  2a f1 22 2c 20 20 50 4c  41 59 49 4e 47 20 41 54  |*.",  PLAYING AT|
000018e0  20 22 3b 43 6f 75 72 73  65 24 3b 22 2c 20 20 55  | ";Course$;",  U|
000018f0  4e 44 45 52 20 22 3b 0d  0a 14 0c c8 8e 70 6c 61  |NDER ";......pla|
00001900  79 25 ca 0d 0a 1e 10 c9  31 3a f1 22 4d 41 54 43  |y%......1:."MATC|
00001910  48 22 3b 0d 0a 28 11 c9  32 3a f1 22 53 54 52 4f  |H";..(..2:."STRO|
00001920  4b 45 22 3b 0d 0a 32 05  cb 0d 0a 3c 12 f1 22 20  |KE";..2....<.." |
00001930  50 4c 41 59 20 52 55 4c  45 53 22 0d 0a 46 12 f1  |PLAY RULES"..F..|
00001940  8a 30 2c 31 29 c4 36 30  2c 22 2d 22 29 0d 0a 50  |.0,1).60,"-")..P|
00001950  31 fb 36 3a f1 8a 30 2c  32 29 22 4e 41 4d 45 22  |1.6:..0,2)"NAME"|
00001960  8a 32 32 29 22 44 45 58  54 45 52 49 54 59 22 8a  |.22)"DEXTERITY".|
00001970  34 36 29 22 53 4b 49 4c  4c 22 3a fb 31 32 0d 0a  |46)"SKILL":.12..|
00001980  5a 12 f1 8a 30 2c 33 29  c4 36 30 2c 22 2d 22 29  |Z...0,3).60,"-")|
00001990  0d 0a 64 0b f1 8a 30 2c  34 29 3b 0d 0a 6e 0d f2  |..d...0,4);..n..|
000019a0  62 6f 61 72 64 63 6f 6c  0d 0a 78 0c e3 4e 25 3d  |boardcol..x..N%=|
000019b0  31 b8 54 25 0d 0a 82 09  fb 4e 25 2b 34 0d 0a 8c  |1.T%.....N%+4...|
000019c0  13 f1 6e 61 6d 65 24 28  4e 25 29 8a 32 32 29 3b  |..name$(N%).22);|
000019d0  0d 0a 96 10 c8 8e 68 61  6e 64 25 28 4e 25 29 ca  |......hand%(N%).|
000019e0  0d 0a a0 10 c9 30 3a f1  22 52 49 47 48 54 22 3b  |.....0:."RIGHT";|
000019f0  0d 0a aa 0f c9 31 3a f1  22 4c 45 46 54 22 3b 0d  |.....1:."LEFT";.|
00001a00  0a b4 05 cb 0d 0a be 13  f1 22 20 48 41 4e 44 45  |........." HANDE|
00001a10  44 22 8a 34 36 29 3b 0d  0a c8 20 41 24 3d a4 73  |D".46);... A$=.s|
00001a20  6b 69 6c 6c 6e 61 6d 65  28 63 75 72 72 65 6e 74  |killname(current|
00001a30  73 25 28 4e 25 29 29 0d  0a d2 07 f1 41 24 0d 0a  |s%(N%)).....A$..|
00001a40  dc 05 ed 0d 0a e6 11 fb  31 32 3a f1 c4 36 30 2c  |........12:..60,|
00001a50  22 2d 22 29 0d 0a f0 24  f2 73 6d 61 6c 6c 6d 65  |"-")...$.smallme|
00001a60  73 28 35 32 30 2c 33 36  38 2d 49 25 2a 31 36 2c  |s(520,368-I%*16,|
00001a70  38 2c 22 59 45 53 22 29  0d 0a fa 23 f2 73 6d 61  |8,"YES")...#.sma|
00001a80  6c 6c 6d 65 73 28 36 38  30 2c 33 36 38 2d 49 25  |llmes(680,368-I%|
00001a90  2a 31 36 2c 38 2c 22 4e  4f 22 29 0d 0b 04 21 c8  |*16,8,"NO")...!.|
00001aa0  97 c8 93 35 33 36 2c 33  37 36 2d 49 25 2a 31 36  |...536,376-I%*16|
00001ab0  2c 32 30 38 2c 34 34 3a  c8 97 20 ee 0d 0b 0e 05  |,208,44:.. .....|
00001ac0  f5 0d 0b 18 0e c8 97 58  25 2c 59 25 2c 4b 25 0d  |.......X%,Y%,K%.|
00001ad0  0b 22 17 fd 28 58 25 3c  35 39 30 84 58 25 3e 36  |."..(X%<590.X%>6|
00001ae0  39 32 29 80 4b 25 0d 0b  2c 10 d4 31 2c 2d 31 30  |92).K%..,..1,-10|
00001af0  2c 32 30 30 2c 31 0d 0b  36 0b 3d 58 25 3e 36 39  |,200,1..6.=X%>69|
00001b00  32 0d 0b 40 05 e1 0d 0b  4a 07 f4 20 15 0d 0b 54  |2..@....J.. ...T|
00001b10  0e dd f2 62 6f 61 72 64  63 6f 6c 0d 0b 5e 0e fb  |...boardcol..^..|
00001b20  35 2c 32 30 38 2c 30 2c  30 0d 0b 68 11 fb 36 2c  |5,208,0,0..h..6,|
00001b30  31 34 34 2c 31 32 38 2c  38 30 0d 0b 72 12 fb 37  |144,128,80..r..7|
00001b40  2c 31 31 32 2c 31 31 32  2c 31 31 32 0d 0b 7c 10  |,112,112,112..|.|
00001b50  fb 38 2c 32 34 30 2c 31  31 32 2c 30 0d 0b 86 0f  |.8,240,112,0....|
00001b60  fb 39 2c 39 36 2c 39 36  2c 34 38 0d 0b 90 12 fb  |.9,96,96,48.....|
00001b70  31 30 2c 32 30 38 2c 38  30 2c 31 34 34 0d 0b 9a  |10,208,80,144...|
00001b80  05 e1 0d 0b a4 07 f4 20  15 0d 0b ae 12 dd f2 67  |....... .......g|
00001b90  65 74 73 6b 69 6c 6c 28  54 25 29 0d 0b b8 0c f2  |etskill(T%).....|
00001ba0  62 75 74 74 28 30 29 0d  0b c2 13 ea 58 25 2c 59  |butt(0).....X%,Y|
00001bb0  25 2c 4b 25 2c 46 25 2c  4e 25 0d 0b cc 3b f2 63  |%,K%,F%,N%...;.c|
00001bc0  65 6e 74 62 6f 78 28 b9  2c 22 57 48 41 54 20 49  |entbox(.,"WHAT I|
00001bd0  53 20 22 2b 6e 61 6d 65  24 28 54 25 29 2b 22 53  |S "+name$(T%)+"S|
00001be0  20 53 4b 49 4c 4c 20 4c  45 56 45 4c 3f 22 2c 31  | SKILL LEVEL?",1|
00001bf0  35 2c 31 32 29 0d 0b d6  33 f2 6d 65 73 62 6f 78  |5,12)...3.mesbox|
00001c00  28 33 35 36 2c 34 36 34  2c 34 31 36 2c 36 34 29  |(356,464,416,64)|
00001c10  3a f2 64 6f 73 6b 69 6c  6c 28 63 75 72 72 65 6e  |:.doskill(curren|
00001c20  74 73 25 28 54 25 29 29  0d 0b e0 1a f2 6d 65 73  |ts%(T%)).....mes|
00001c30  62 6f 78 28 38 32 30 2c  35 34 30 2c 38 30 2c 38  |box(820,540,80,8|
00001c40  30 29 0d 0b ea 1a f2 6d  65 73 62 6f 78 28 38 32  |0).....mesbox(82|
00001c50  30 2c 33 37 32 2c 38 30  2c 38 30 29 0d 0b f4 25  |0,372,80,80)...%|
00001c60  e6 31 35 3a ec 38 36 30  2c 36 30 34 3a ec 38 33  |.15:.860,604:.83|
00001c70  36 2c 35 35 38 3a f0 38  35 2c 38 38 34 2c 35 35  |6,558:.85,884,55|
00001c80  38 0d 0b fe 32 ec 38 36  30 2c 33 38 38 3a ec 38  |8...2.860,388:.8|
00001c90  33 36 2c 34 33 32 3a f0  38 35 2c 38 38 34 2c 34  |36,432:.85,884,4|
00001ca0  33 32 3a 86 38 33 36 2c  34 33 36 2c 38 38 34 2c  |32:.836,436,884,|
00001cb0  34 33 36 0d 0c 08 20 e6  38 3a 86 38 33 36 2c 34  |436... .8:.836,4|
00001cc0  33 32 2c 38 36 30 2c 33  38 38 3a df 38 38 34 2c  |32,860,388:.884,|
00001cd0  34 33 32 0d 0c 12 1d 86  38 33 36 2c 35 36 32 2c  |432.....836,562,|
00001ce0  38 36 30 2c 36 30 34 3a  df 38 38 34 2c 35 36 32  |860,604:.884,562|
00001cf0  0d 0c 1c 17 c8 97 c8 93  33 37 32 2c 33 38 38 2c  |........372,388,|
00001d00  35 31 34 2c 32 32 30 0d  0c 26 21 4e 25 3d 63 75  |514,220..&!N%=cu|
00001d10  72 72 65 6e 74 73 25 28  54 25 29 3a f5 3a c8 97  |rrents%(T%):.:..|
00001d20  58 25 2c 59 25 2c 4b 25  0d 0c 30 08 e7 4b 25 8c  |X%,Y%,K%..0..K%.|
00001d30  0d 0c 3a 0c e7 58 25 3e  38 33 36 8c 0d 0c 44 38  |..:..X%>836...D8|
00001d40  e7 59 25 3e 35 34 34 80  4e 25 3c 34 4e 25 2b 3d  |.Y%>544.N%<4N%+=|
00001d50  31 3a f2 64 6f 73 6b 69  6c 6c 28 4e 25 29 3a d4  |1:.doskill(N%):.|
00001d60  31 2c 2d 31 30 2c 32 30  30 2c 31 3a f2 62 75 74  |1,-10,200,1:.but|
00001d70  74 28 30 29 0d 0c 4e 38  e7 59 25 3c 34 34 32 80  |t(0)..N8.Y%<442.|
00001d80  4e 25 3e 31 4e 25 2d 3d  31 3a f2 64 6f 73 6b 69  |N%>1N%-=1:.doski|
00001d90  6c 6c 28 4e 25 29 3a d4  31 2c 2d 31 30 2c 32 30  |ll(N%):.1,-10,20|
00001da0  30 2c 31 3a f2 62 75 74  74 28 30 29 0d 0c 58 05  |0,1:.butt(0)..X.|
00001db0  cd 0d 0c 62 0c e7 58 25  3c 37 38 30 8c 0d 0c 6c  |...b..X%<780...l|
00001dc0  16 e7 59 25 3e 34 37 35  80 59 25 3c 35 31 34 46  |..Y%>475.Y%<514F|
00001dd0  25 3d b9 0d 0c 76 05 cd  0d 0c 80 05 cd 0d 0c 8a  |%=...v..........|
00001de0  09 fd 46 25 3d b9 0d 0c  94 10 d4 31 2c 2d 31 30  |..F%=......1,-10|
00001df0  2c 32 30 30 2c 31 0d 0c  9e 14 63 75 72 72 65 6e  |,200,1....curren|
00001e00  74 73 25 28 54 25 29 3d  4e 25 0d 0c a8 05 e1 0d  |ts%(T%)=N%......|
00001e10  0c b2 07 f4 20 15 0d 0c  bc 11 dd f2 64 6f 73 6b  |.... .......dosk|
00001e20  69 6c 6c 28 54 25 29 0d  0c c6 07 ea 41 24 0d 0c  |ill(T%).....A$..|
00001e30  d0 15 41 24 3d a4 73 6b  69 6c 6c 6e 61 6d 65 28  |..A$=.skillname(|
00001e40  54 25 29 0d 0c da 1c e6  31 31 3a c8 93 c8 90 33  |T%).....11:....3|
00001e50  37 32 2c 34 38 30 2c 31  32 2a 33 32 2c 33 32 0d  |72,480,12*32,32.|
00001e60  0c e4 14 e6 31 32 3a ec  33 37 32 2c 35 30 38 3a  |....12:.372,508:|
00001e70  f1 41 24 0d 0c ee 05 e1  0d 0c f8 07 f4 20 15 0d  |.A$.......... ..|
00001e80  0d 02 13 dd a4 73 6b 69  6c 6c 6e 61 6d 65 28 54  |.....skillname(T|
00001e90  25 29 0d 0d 0c 07 ea 41  24 0d 0d 16 09 c8 8e 54  |%).....A$......T|
00001ea0  25 ca 0d 0d 20 14 c9 31  3a 41 24 3d 22 42 45 47  |%... ..1:A$="BEG|
00001eb0  49 4e 4e 45 52 22 0d 0d  2a 16 c9 32 3a 41 24 3d  |INNER"..*..2:A$=|
00001ec0  22 45 4e 54 48 55 53 49  41 53 54 22 0d 0d 34 13  |"ENTHUSIAST"..4.|
00001ed0  c9 33 3a 41 24 3d 22 41  4d 41 54 45 55 52 22 0d  |.3:A$="AMATEUR".|
00001ee0  0d 3e 18 c9 34 3a 41 24  3d 22 50 52 4f 46 45 53  |.>..4:A$="PROFES|
00001ef0  53 49 4f 4e 41 4c 22 0d  0d 48 05 cb 0d 0d 52 07  |SIONAL"..H....R.|
00001f00  3d 41 24 0d 0d 5c 07 f4  20 15 0d 0d 66 11 dd f2  |=A$..\.. ...f...|
00001f10  67 65 74 6e 61 6d 65 28  54 25 29 0d 0d 70 0c f2  |getname(T%)..p..|
00001f20  62 75 74 74 28 30 29 0d  0d 7a 2a ea 58 25 2c 59  |butt(0)..z*.X%,Y|
00001f30  25 2c 4b 25 2c 51 2c 4f  58 25 2c 4f 59 25 2c 41  |%,K%,Q,OX%,OY%,A|
00001f40  24 2c 42 24 3a 41 24 3d  6e 61 6d 65 24 28 54 25  |$,B$:A$=name$(T%|
00001f50  29 0d 0d 84 13 e7 6e 6f  6f 66 70 6c 61 79 65 72  |).....noofplayer|
00001f60  73 3e 31 8c 0d 0d 8e 09  c8 8e 54 25 ca 0d 0d 98  |s>1.......T%....|
00001f70  12 c9 31 3a 42 24 3d 22  46 49 52 53 54 20 22 0d  |..1:B$="FIRST ".|
00001f80  0d a2 13 c9 32 3a 42 24  3d 22 53 45 43 4f 4e 44  |....2:B$="SECOND|
00001f90  20 22 0d 0d ac 12 c9 33  3a 42 24 3d 22 54 48 49  | ".....3:B$="THI|
00001fa0  52 44 20 22 0d 0d b6 13  c9 34 3a 42 24 3d 22 46  |RD ".....4:B$="F|
00001fb0  4f 55 52 54 48 20 22 0d  0d c0 12 c9 35 3a 42 24  |OURTH ".....5:B$|
00001fc0  3d 22 46 49 46 54 48 20  22 0d 0d ca 12 c9 36 3a  |="FIFTH ".....6:|
00001fd0  42 24 3d 22 53 49 58 54  48 20 22 0d 0d d4 05 cb  |B$="SIXTH ".....|
00001fe0  0d 0d de 05 cd 0d 0d e8  1d e7 a9 41 24 3c 31 30  |...........A$<10|
00001ff0  41 24 3d 41 24 2b c4 31  30 2d a9 41 24 2c 22 20  |A$=A$+.10-.A$," |
00002000  22 29 0d 0d f2 36 f2 63  65 6e 74 62 6f 78 28 b9  |")...6.centbox(.|
00002010  2c 22 57 48 41 54 20 49  53 20 54 48 45 20 22 2b  |,"WHAT IS THE "+|
00002020  42 24 2b 22 50 4c 41 59  45 52 53 20 4e 41 4d 45  |B$+"PLAYERS NAME|
00002030  3f 22 2c 31 35 2c 38 29  0d 0d fc 16 c8 97 c8 93  |?",15,8)........|
00002040  33 30 36 2c 34 38 30 2c  36 33 34 2c 34 38 0d 0e  |306,480,634,48..|
00002050  06 1e f2 73 6d 61 6c 6c  6d 65 73 28 37 38 34 2c  |...smallmes(784,|
00002060  34 37 32 2c 31 31 2c 22  4f 4b 22 29 0d 0e 10 1c  |472,11,"OK")....|
00002070  f2 73 6d 61 6c 6c 6d 65  73 28 32 38 38 2c 34 37  |.smallmes(288,47|
00002080  32 2c 31 31 2c 41 24 29  0d 0e 1a 17 c8 97 4f 58  |2,11,A$)......OX|
00002090  25 2c 4f 59 25 2c 4b 25  3a d1 3d 31 30 30 30 0d  |%,OY%,K%:.=1000.|
000020a0  0e 24 05 f5 0d 0e 2e 0c  f2 62 75 74 74 28 30 29  |.$.......butt(0)|
000020b0  0d 0e 38 10 41 24 3d 6e  61 6d 65 24 28 54 25 29  |..8.A$=name$(T%)|
000020c0  0d 0e 42 11 ec 33 33 36  2c 35 31 36 3a f1 41 24  |..B..336,516:.A$|
000020d0  3b 0d 0e 4c 0e e6 31 33  39 3a 2a 46 58 32 31 0d  |;..L..139:*FX21.|
000020e0  0e 56 05 f5 0d 0e 60 32  51 3d a6 28 30 29 3a e7  |.V....`2Q=.(0):.|
000020f0  51 3c 3e b9 20 84 28 58  25 3c 37 30 32 80 4b 25  |Q<>. .(X%<702.K%|
00002100  29 20 91 3d 30 3a c8 97  4f 58 25 2c 4f 59 25 2c  |) .=0:..OX%,OY%,|
00002110  4b 25 3a c8 97 87 0d 0e  6a 13 e7 51 3c 3e 31 32  |K%:.....j..Q<>12|
00002120  37 51 3d 51 20 80 32 32  33 0d 0e 74 17 e7 28 51  |7Q=Q .223..t..(Q|
00002130  3e 36 34 80 51 3c 39 31  29 84 51 3d 31 32 37 8c  |>64.Q<91).Q=127.|
00002140  0d 0e 7e 2b e7 a9 41 24  3c 3e 31 30 80 51 3c 3e  |..~+..A$<>10.Q<>|
00002150  31 32 37 41 24 3d 41 24  2b bd 51 3a ef 51 3a d4  |127A$=A$+.Q:.Q:.|
00002160  31 2c 2d 31 30 2c 32 30  30 2c 31 0d 0e 88 2e e7  |1,-10,200,1.....|
00002170  a9 41 24 3c 3e 30 80 51  3d 31 32 37 41 24 3d c0  |.A$<>0.Q=127A$=.|
00002180  41 24 2c a9 41 24 2d 31  29 3a ef 51 3a d4 31 2c  |A$,.A$-1):.Q:.1,|
00002190  2d 31 30 2c 32 30 30 2c  31 0d 0e 92 05 cd 0d 0e  |-10,200,1.......|
000021a0  9c 0e c8 97 58 25 2c 59  25 2c 4b 25 0d 0e a6 25  |....X%,Y%,K%...%|
000021b0  e7 91 3e 35 30 30 84 94  28 58 25 2d 4f 58 25 29  |..>500..(X%-OX%)|
000021c0  3e 38 84 94 28 59 25 2d  4f 59 25 29 3e 38 c8 97  |>8..(Y%-OY%)>8..|
000021d0  ee 0d 0e b0 15 fd 28 58  25 3e 37 39 32 80 4b 25  |......(X%>792.K%|
000021e0  29 84 51 3d 31 33 0d 0e  ba 35 e7 41 24 3d 22 22  |).Q=13...5.A$=""|
000021f0  d4 31 2c 2d 31 35 2c 31  32 35 2c 32 30 3a 6e 61  |.1,-15,125,20:na|
00002200  6d 65 24 28 54 25 29 3d  64 65 66 6e 61 6d 65 24  |me$(T%)=defname$|
00002210  28 54 25 29 3a d1 3d 30  3a fd a3 0d 0e c4 13 d4  |(T%):.=0:.......|
00002220  31 2c 2d 31 30 2c 32 30  30 2c 31 3a fd b9 0d 0e  |1,-10,200,1:....|
00002230  ce 15 e6 31 34 30 3a 6e  61 6d 65 24 28 54 25 29  |...140:name$(T%)|
00002240  3d 41 24 0d 0e d8 13 64  65 66 6e 61 6d 65 24 28  |=A$....defname$(|
00002250  54 25 29 3d 41 24 0d 0e  e2 05 e1 0d 0e ec 07 f4  |T%)=A$..........|
00002260  20 15 0d 0e f6 0f dd a4  6e 6f 70 6c 61 79 69 6e  | .......noplayin|
00002270  67 0d 0f 00 0c f2 62 75  74 74 28 30 29 0d 0f 0a  |g.....butt(0)...|
00002280  0f e7 70 6c 61 79 25 3d  31 8c 3d 32 0d 0f 14 13  |..play%=1.=2....|
00002290  ea 58 25 2c 59 25 2c 4b  25 2c 46 25 2c 4e 25 0d  |.X%,Y%,K%,F%,N%.|
000022a0  0f 1e 29 f2 63 65 6e 74  62 6f 78 28 b9 2c 22 48  |..).centbox(.,"H|
000022b0  4f 57 20 4d 41 4e 59 20  50 4c 41 59 45 52 53 3f  |OW MANY PLAYERS?|
000022c0  22 2c 31 32 2c 31 30 29  0d 0f 28 24 f2 6d 65 73  |",12,10)..($.mes|
000022d0  62 6f 78 28 34 36 34 2c  34 34 34 2c 38 34 2c 31  |box(464,444,84,1|
000022e0  30 30 29 3a f2 64 6f 6e  6f 28 31 29 0d 0f 32 1a  |00):.dono(1)..2.|
000022f0  f2 6d 65 73 62 6f 78 28  37 30 34 2c 35 33 36 2c  |.mesbox(704,536,|
00002300  38 30 2c 38 30 29 0d 0f  3c 1a f2 6d 65 73 62 6f  |80,80)..<..mesbo|
00002310  78 28 37 30 34 2c 33 37  32 2c 38 30 2c 38 30 29  |x(704,372,80,80)|
00002320  0d 0f 46 25 e6 31 35 3a  ec 37 34 34 2c 36 30 30  |..F%.15:.744,600|
00002330  3a ec 37 32 30 2c 35 35  34 3a f0 38 35 2c 37 36  |:.720,554:.85,76|
00002340  38 2c 35 35 34 0d 0f 50  32 ec 37 34 34 2c 33 38  |8,554..P2.744,38|
00002350  38 3a ec 37 32 30 2c 34  33 32 3a f0 38 35 2c 37  |8:.720,432:.85,7|
00002360  36 38 2c 34 33 32 3a 86  37 32 30 2c 34 33 36 2c  |68,432:.720,436,|
00002370  37 36 38 2c 34 33 36 0d  0f 5a 20 e6 38 3a 86 37  |768,436..Z .8:.7|
00002380  32 30 2c 34 33 32 2c 37  34 34 2c 33 38 38 3a df  |20,432,744,388:.|
00002390  37 36 38 2c 34 33 32 0d  0f 64 1d 86 37 32 30 2c  |768,432..d..720,|
000023a0  35 35 38 2c 37 34 34 2c  36 30 30 3a df 37 36 38  |558,744,600:.768|
000023b0  2c 35 35 38 0d 0f 6e 17  c8 97 c8 93 34 38 30 2c  |,558..n.....480,|
000023c0  33 38 34 2c 32 39 32 2c  32 32 30 0d 0f 78 15 4e  |384,292,220..x.N|
000023d0  25 3d 31 3a f5 3a c8 97  58 25 2c 59 25 2c 4b 25  |%=1:.:..X%,Y%,K%|
000023e0  0d 0f 82 08 e7 4b 25 8c  0d 0f 8c 0c e7 58 25 3e  |.....K%......X%>|
000023f0  37 31 36 8c 0d 0f 96 35  e7 59 25 3e 35 34 34 80  |716....5.Y%>544.|
00002400  4e 25 3c 36 4e 25 2b 3d  31 3a f2 64 6f 6e 6f 28  |N%<6N%+=1:.dono(|
00002410  4e 25 29 3a d4 31 2c 2d  31 30 2c 32 30 30 2c 31  |N%):.1,-10,200,1|
00002420  3a f2 62 75 74 74 28 30  29 0d 0f a0 35 e7 59 25  |:.butt(0)...5.Y%|
00002430  3c 34 34 32 80 4e 25 3e  31 4e 25 2d 3d 31 3a f2  |<442.N%>1N%-=1:.|
00002440  64 6f 6e 6f 28 4e 25 29  3a d4 31 2c 2d 31 30 2c  |dono(N%):.1,-10,|
00002450  32 30 30 2c 31 3a f2 62  75 74 74 28 30 29 0d 0f  |200,1:.butt(0)..|
00002460  aa 05 cd 0d 0f b4 0c e7  58 25 3c 35 34 30 8c 0d  |........X%<540..|
00002470  0f be 16 e7 59 25 3e 34  35 36 80 59 25 3c 35 34  |....Y%>456.Y%<54|
00002480  30 46 25 3d b9 0d 0f c8  05 cd 0d 0f d2 05 cd 0d  |0F%=............|
00002490  0f dc 09 fd 46 25 3d b9  0d 0f e6 10 d4 31 2c 2d  |....F%=......1,-|
000024a0  31 30 2c 32 30 30 2c 31  0d 0f f0 07 3d 4e 25 0d  |10,200,1....=N%.|
000024b0  0f fa 07 f4 20 15 0d 10  04 0e dd f2 64 6f 6e 6f  |.... .......dono|
000024c0  28 41 25 29 0d 10 0e 19  e6 31 31 3a c8 93 c8 90  |(A%).....11:....|
000024d0  34 37 36 2c 34 36 38 2c  36 30 2c 36 34 0d 10 18  |476,468,60,64...|
000024e0  0c ec 34 37 36 2c 35 32  30 0d 10 22 13 e6 31 32  |..476,520.."..12|
000024f0  3a f2 64 6f 75 62 6c 65  28 41 25 29 0d 10 2c 05  |:.double(A%)..,.|
00002500  e1 0d 10 36 07 f4 20 15  0d 10 40 18 dd a4 71 75  |...6.. ...@...qu|
00002510  65 73 74 28 41 24 2c 42  24 2c 43 24 2c 48 25 29  |est(A$,B$,C$,H%)|
00002520  0d 10 4a 0d ea 4c 25 2c  44 25 2c 52 25 0d 10 54  |..J..L%,D%,R%..T|
00002530  17 52 25 3d 37 30 34 2b  a4 6c 65 6e 67 74 68 28  |.R%=704+.length(|
00002540  a9 43 24 29 0d 10 5e 17  4c 25 3d 36 30 30 2d a4  |.C$)..^.L%=600-.|
00002550  6c 65 6e 67 74 68 28 a9  42 24 29 0d 10 68 1a f2  |length(.B$)..h..|
00002560  63 65 6e 74 62 6f 78 28  b9 2c 41 24 2c 31 32 2c  |centbox(.,A$,12,|
00002570  36 2b 48 25 29 0d 10 72  10 44 25 3d 34 36 34 2d  |6+H%)..r.D%=464-|
00002580  48 25 2a 33 32 0d 10 7c  1a f2 73 6d 61 6c 6c 6d  |H%*32..|..smallm|
00002590  65 73 28 4c 25 2c 44 25  2c 31 31 2c 42 24 29 0d  |es(L%,D%,11,B$).|
000025a0  10 86 1b f2 73 6d 61 6c  6c 6d 65 73 28 37 30 34  |....smallmes(704|
000025b0  2c 44 25 2c 31 31 2c 43  24 29 0d 10 90 1e c8 97  |,D%,11,C$)......|
000025c0  c8 93 4c 25 2b 31 36 2c  44 25 2b 38 2c 52 25 2d  |..L%+16,D%+8,R%-|
000025d0  4c 25 2d 36 34 2c 34 38  0d 10 9a 08 c8 97 20 ee  |L%-64,48...... .|
000025e0  0d 10 a4 0c f2 62 75 74  74 28 30 29 0d 10 ae 10  |.....butt(0)....|
000025f0  f5 3a c8 97 4c 25 2c 52  25 2c 44 25 0d 10 b8 17  |.:..L%,R%,D%....|
00002600  fd 44 25 80 28 4c 25 3c  35 36 38 84 4c 25 3e 37  |.D%.(L%<568.L%>7|
00002610  31 32 29 0d 10 c2 10 d4  31 2c 2d 31 30 2c 32 30  |12).....1,-10,20|
00002620  30 2c 31 0d 10 cc 10 44  25 3d 2d 28 4c 25 3e 37  |0,1....D%=-(L%>7|
00002630  31 32 29 0d 10 d6 07 3d  44 25 0d 10 e0 07 f4 20  |12)....=D%..... |
00002640  15 0d 10 ea 10 dd a4 6c  65 6e 67 74 68 28 4c 25  |.......length(L%|
00002650  29 0d 10 f4 18 4c 25 2b  3d 33 3a e7 28 4c 25 80  |)....L%+=3:.(L%.|
00002660  31 29 2d 30 4c 25 2b 3d  31 0d 10 fe 0a 3d 4c 25  |1)-0L%+=1....=L%|
00002670  2a 33 32 0d 11 08 07 f4  20 15 0d 11 12 10 dd f2  |*32..... .......|
00002680  64 6f 75 62 6c 65 28 43  25 29 0d 11 1c 0f 43 25  |double(C%)....C%|
00002690  3d 31 32 38 2b 34 2a 43  25 0d 11 26 20 ef 43 25  |=128+4*C%..& .C%|
000026a0  2c 43 25 2b 31 2c 38 2c  38 2c 31 30 2c 43 25 2b  |,C%+1,8,8,10,C%+|
000026b0  32 2c 43 25 2b 33 2c 31  31 0d 11 30 05 e1 0d 11  |2,C%+3,11..0....|
000026c0  3a 07 f4 20 15 0d 11 44  0f dd f2 73 63 72 65 65  |:.. ...D...scree|
000026d0  6e 62 6f 78 0d 11 4e 0e  ea 4d 25 3a 4d 25 3d eb  |nbox..N..M%:M%=.|
000026e0  81 36 0d 11 58 1a f2 6d  65 73 62 6f 78 28 30 2c  |.6..X..mesbox(0,|
000026f0  30 2c 31 32 37 39 2c 31  30 32 33 29 0d 11 62 1f  |0,1279,1023)..b.|
00002700  ef 32 34 2c 31 36 3b 31  36 3b 31 32 36 33 3b 31  |.24,16;16;1263;1|
00002710  30 30 37 3b 3a e6 31 34  30 3a da 0d 11 6c 0e dd  |007;:.140:...l..|
00002720  f2 74 65 78 74 77 69 6e  64 0d 11 76 1b ef 32 38  |.textwind..v..28|
00002730  2c 31 2c 33 30 2c 33 38  2a 4d 25 2c 31 3a fb 31  |,1,30,38*M%,1:.1|
00002740  34 30 3a db 0d 11 80 05  e1 0d 11 8a 07 f4 20 15  |40:........... .|
00002750  0d 11 94 1b dd f2 63 65  6e 74 62 6f 78 28 63 6c  |......centbox(cl|
00002760  73 2c 41 24 2c 43 25 2c  48 25 29 0d 11 9e 0a e7  |s,A$,C%,H%).....|
00002770  63 6c 73 20 db 0d 11 a8  0d ea 54 25 2c 49 25 2c  |cls ......T%,I%,|
00002780  4d 25 0d 11 b2 12 e7 eb  3d 39 4d 25 3d 31 36 8b  |M%......=9M%=16.|
00002790  4d 25 3d 38 0d 11 bc 11  54 25 3d 36 34 30 2d a9  |M%=8....T%=640-.|
000027a0  41 24 2a 4d 25 0d 11 c6  10 49 25 3d 35 31 32 2b  |A$*M%....I%=512+|
000027b0  48 25 2a 31 36 0d 11 d0  3d f2 6d 65 73 62 6f 78  |H%*16...=.mesbox|
000027c0  28 54 25 2d 4d 25 2c 34  39 36 2d 48 25 2a 31 36  |(T%-M%,496-H%*16|
000027d0  2d 32 30 2a 28 48 25 3d  31 29 2c a9 41 24 2a 4d  |-20*(H%=1),.A$*M|
000027e0  25 2a 32 2b 4d 25 2a 32  2c 48 25 2a 33 32 2b 33  |%*2+M%*2,H%*32+3|
000027f0  32 29 0d 11 da 1f e6 43  25 3a ec 54 25 2c 49 25  |2).....C%:.T%,I%|
00002800  2d 31 36 2a 28 48 25 3d  31 29 3a ef 35 3a f1 41  |-16*(H%=1):.5:.A|
00002810  24 0d 11 e4 05 e1 0d 11  ee 07 f4 20 15 0d 11 f8  |$.......... ....|
00002820  1b dd f2 73 6d 61 6c 6c  6d 65 73 28 78 25 2c 79  |...smallmes(x%,y|
00002830  25 2c 43 25 2c 41 24 29  0d 12 02 0a ea 6f 25 2c  |%,C%,A$).....o%,|
00002840  4d 25 0d 12 0c 14 e7 eb  3d 31 32 4d 25 3d 31 36  |M%......=12M%=16|
00002850  8b 4d 25 3d 33 32 0d 12  16 15 6f 25 3d 28 31 2d  |.M%=32....o%=(1-|
00002860  28 a9 41 24 80 31 29 29  2a 4d 25 0d 12 20 24 f2  |(.A$.1))*M%.. $.|
00002870  6d 65 73 62 6f 78 28 78  25 2c 79 25 2c a9 41 24  |mesbox(x%,y%,.A$|
00002880  2a 4d 25 2b 4d 25 2a 32  2b 6f 25 2c 36 34 29 0d  |*M%+M%*2+o%,64).|
00002890  12 2a 21 e6 31 32 3a ef  35 3a ec 78 25 2b 4d 25  |.*!.12:.5:.x%+M%|
000028a0  2b 6f 25 81 32 2c 79 25  2b 34 34 3a f1 41 24 3b  |+o%.2,y%+44:.A$;|
000028b0  0d 12 34 05 e1 0d 12 3e  07 f4 20 15 0d 12 48 19  |..4....>.. ...H.|
000028c0  dd f2 6d 65 73 62 6f 78  28 78 25 2c 79 25 2c 58  |..mesbox(x%,y%,X|
000028d0  25 2c 59 25 29 0d 12 52  16 e6 38 3a c8 93 c8 90  |%,Y%)..R..8:....|
000028e0  78 25 2c 79 25 2c 58 25  2c 59 25 0d 12 5c 1c e6  |x%,y%,X%,Y%..\..|
000028f0  33 3a c8 93 78 25 2b 34  2c 79 25 2b 34 2c 58 25  |3:..x%+4,y%+4,X%|
00002900  2d 38 2c 59 25 2d 38 0d  12 66 1e e6 34 3a c8 93  |-8,Y%-8..f..4:..|
00002910  78 25 2b 38 2c 79 25 2b  38 2c 58 25 2d 31 36 2c  |x%+8,y%+8,X%-16,|
00002920  59 25 2d 31 36 0d 12 70  23 e6 31 31 3a c8 93 c8  |Y%-16..p#.11:...|
00002930  90 78 25 2b 31 32 2c 79  25 2b 31 32 2c 58 25 2d  |.x%+12,y%+12,X%-|
00002940  32 34 2c 59 25 2d 32 34  0d 12 7a 05 e1 0d 12 84  |24,Y%-24..z.....|
00002950  07 f4 20 15 0d 12 8e 1d  dd f2 6d 65 73 77 69 6e  |.. .......meswin|
00002960  64 28 41 24 2c 42 24 2c  43 24 2c 46 25 2c 43 25  |d(A$,B$,C$,F%,C%|
00002970  29 0d 12 98 15 2a 43 48  41 4e 4e 45 4c 56 4f 49  |)....*CHANNELVOI|
00002980  43 45 20 31 20 31 0d 12  a2 07 ef 32 36 0d 12 ac  |CE 1 1.....26...|
00002990  17 ea 58 25 2c 78 25 2c  78 32 25 2c 63 25 2c 49  |..X%,x%,x2%,c%,I|
000029a0  25 2c 59 25 0d 12 b6 21  59 25 3d 38 30 2d 28 42  |%,Y%...!Y%=80-(B|
000029b0  24 3c 3e 22 22 29 2a 34  38 2d 28 43 24 3c 3e 22  |$<>"")*48-(C$<>"|
000029c0  22 29 2a 34 38 0d 12 c0  1e 58 25 3d 28 a9 41 24  |")*48....X%=(.A$|
000029d0  2a 31 36 2b 33 32 29 3a  78 25 3d 36 34 30 2d 58  |*16+32):x%=640-X|
000029e0  25 81 32 0d 12 ca 19 f2  6d 65 73 62 6f 78 28 78  |%.2.....mesbox(x|
000029f0  25 2c 38 30 30 2c 58 25  2c 59 25 29 0d 12 d4 09  |%,800,X%,Y%)....|
00002a00  e6 33 2c 43 25 0d 12 de  0f ef 35 3a 58 25 3d 78  |.3,C%.....5:X%=x|
00002a10  25 2b 31 36 0d 12 e8 12  78 25 3d 36 34 30 2d 28  |%+16....x%=640-(|
00002a20  a9 42 24 2a 38 29 0d 12  f2 13 78 32 25 3d 36 34  |.B$*8)....x2%=64|
00002a30  30 2d 28 a9 43 24 2a 38  29 0d 12 fc 10 e3 49 25  |0-(.C$*8).....I%|
00002a40  3d 31 b8 46 25 2a 32 2b  31 0d 13 06 12 ec 58 25  |=1.F%*2+1.....X%|
00002a50  2c 37 37 32 2b 59 25 3a  f1 41 24 0d 13 10 19 e7  |,772+Y%:.A$.....|
00002a60  42 24 3c 3e 22 22 ec 78  25 2c 37 32 34 2b 59 25  |B$<>"".x%,724+Y%|
00002a70  3a f1 42 24 0d 13 1a 1a  e7 43 24 3c 3e 22 22 ec  |:.B$.....C$<>"".|
00002a80  78 32 25 2c 36 37 36 2b  59 25 3a f1 43 24 0d 13  |x2%,676+Y%:.C$..|
00002a90  24 0c f2 64 65 6c 28 35  30 29 0d 13 2e 10 d4 31  |$..del(50).....1|
00002aa0  2c 2d 31 30 2c 31 38 30  2c 31 0d 13 38 05 ed 0d  |,-10,180,1..8...|
00002ab0  13 42 08 ef 34 3a 87 0d  13 4c 08 e6 38 2c 30 0d  |.B..4:...L..8,0.|
00002ac0  13 56 18 2a 53 43 48 4f  4f 53 45 20 74 6f 70 6f  |.V.*SCHOOSE topo|
00002ad0  66 73 63 72 65 65 6e 0d  13 60 0e f0 26 45 44 2c  |fscreen..`..&ED,|
00002ae0  30 2c 37 30 34 0d 13 6a  0d f2 77 69 6e 64 6f 77  |0,704..j..window|
00002af0  73 32 0d 13 74 05 e1 0d  13 7e 07 f4 20 15 0d 13  |s2..t....~.. ...|
00002b00  88 0b dd f2 62 6f 61 72  64 0d 13 92 27 74 6f 74  |....board...'tot|
00002b10  73 63 6f 72 65 25 28 29  3d 74 6f 74 73 63 6f 72  |score%()=totscor|
00002b20  65 25 28 29 2b 63 75 72  72 65 6e 74 53 25 28 29  |e%()+currentS%()|
00002b30  0d 13 9c 41 e3 54 25 3d  31 b8 6e 6f 6f 66 70 6c  |...A.T%=1.noofpl|
00002b40  61 79 65 72 73 3a 68 6f  6c 65 73 63 6f 72 65 73  |ayers:holescores|
00002b50  25 28 68 73 70 25 28 54  25 29 2c 48 6f 6c 65 25  |%(hsp%(T%),Hole%|
00002b60  29 3d 63 75 72 72 65 6e  74 53 25 28 54 25 29 3a  |)=currentS%(T%):|
00002b70  ed 0d 13 a6 0d f2 62 6f  61 72 64 63 6f 6c 0d 13  |......boardcol..|
00002b80  b0 15 fb 33 2c 30 2c 31  34 34 2c 30 3a e6 31 33  |...3,0,144,0:.13|
00002b90  31 3a da 0d 13 ba 0c f2  77 69 6e 73 6f 72 74 0d  |1:......winsort.|
00002ba0  13 c4 21 ea 50 25 2c 59  25 2c 54 25 2c 49 25 2c  |..!.P%,Y%,T%,I%,|
00002bb0  53 25 2c 6d 70 25 2c 41  24 2c 73 63 25 2c 4f 25  |S%,mp%,A$,sc%,O%|
00002bc0  0d 13 ce 16 4f 25 3d 28  70 6c 61 79 25 3d 32 29  |....O%=(play%=2)|
00002bd0  2a 34 3a ef 32 36 0d 13  d8 19 e6 30 3a c8 93 c8  |*4:.26.....0:...|
00002be0  90 36 30 2c 37 36 2c 31  31 35 36 2c 39 32 30 0d  |.60,76,1156,920.|
00002bf0  13 e2 1c e6 36 34 2c 30  3a c8 93 c8 90 36 34 2c  |....64,0:....64,|
00002c00  38 30 2c 31 31 34 38 2c  31 32 38 0d 13 ec 1e e6  |80,1148,128.....|
00002c10  34 38 2c 30 3a c8 93 c8  90 36 34 2c 39 39 32 2c  |48,0:....64,992,|
00002c20  31 31 34 38 2c 2d 31 32  38 0d 13 f6 26 e6 31 32  |1148,-128...&.12|
00002c30  3a ec 37 36 38 2c 35 34  34 3a ec 31 32 31 32 2c  |:.768,544:.1212,|
00002c40  39 39 32 3a f0 38 35 2c  31 32 31 32 2c 38 30 0d  |992:.85,1212,80.|
00002c50  14 00 22 e6 31 33 3a ec  35 31 32 2c 35 34 34 3a  |..".13:.512,544:|
00002c60  ec 36 34 2c 38 30 3a f0  38 35 2c 36 34 2c 39 39  |.64,80:.85,64,99|
00002c70  32 0d 14 0a 1b e6 31 31  3a c8 93 c8 90 39 38 2c  |2.....11:....98,|
00002c80  31 31 32 2c 31 30 38 30  2c 38 34 38 0d 14 14 18  |112,1080,848....|
00002c90  e6 30 3a c8 93 39 38 2c  31 31 32 2c 31 30 38 30  |.0:..98,112,1080|
00002ca0  2c 38 34 38 0d 14 1e 25  ef 32 34 2c 31 30 30 3b  |,848...%.24,100;|
00002cb0  31 31 36 3b 31 31 37 36  3b 39 35 36 3b 3a c8 91  |116;1176;956;:..|
00002cc0  39 38 2c 31 31 36 3a ef  35 0d 14 28 1d e6 31 34  |98,116:.5..(..14|
00002cd0  3a e3 50 25 3d 31 b8 36  3a 59 25 3d 37 38 38 2d  |:.P%=1.6:Y%=788-|
00002ce0  50 25 2a 31 33 32 0d 14  32 1c e6 37 3a 86 30 2c  |P%*132..2..7:.0,|
00002cf0  59 25 2b 31 32 34 2c 31  30 38 30 2c 59 25 2b 31  |Y%+124,1080,Y%+1|
00002d00  32 34 0d 14 3c 15 e6 31  34 3a 86 30 2c 59 25 2c  |24..<..14:.0,Y%,|
00002d10  31 30 38 30 2c 59 25 0d  14 46 26 e3 54 25 3d 34  |1080,Y%..F&.T%=4|
00002d20  30 b8 38 30 88 34 30 3a  86 30 2c 59 25 2b 54 25  |0.80.40:.0,Y%+T%|
00002d30  2c 31 30 38 30 2c 59 25  2b 54 25 3a ed 0d 14 50  |,1080,Y%+T%:...P|
00002d40  27 e3 54 25 3d 31 b8 38  3a 58 25 3d 54 25 2a 31  |'.T%=1.8:X%=T%*1|
00002d50  32 30 3a 86 58 25 2c 59  25 2c 58 25 2c 59 25 2b  |20:.X%,Y%,X%,Y%+|
00002d60  38 30 3a ed 0d 14 5a 05  ed 0d 14 64 15 e3 50 25  |80:...Z....d..P%|
00002d70  3d 31 b8 6e 6f 6f 66 70  6c 61 79 65 72 73 0d 14  |=1.noofplayers..|
00002d80  6e 2c 6d 70 25 3d 6d 61  70 73 74 61 72 74 25 2b  |n,mp%=mapstart%+|
00002d90  26 32 46 39 3a 59 25 3d  37 32 38 2d 28 50 25 2d  |&2F9:Y%=728-(P%-|
00002da0  31 29 2a 31 33 32 3a e6  31 32 0d 14 78 3a e3 49  |1)*132:.12..x:.I|
00002db0  25 3d 30 b8 2d 34 30 88  2d 34 30 3a e3 54 25 3d  |%=0.-40.-40:.T%=|
00002dc0  30 b8 38 3a ec 54 25 2a  31 32 30 2b 34 2c 59 25  |0.8:.T%*120+4,Y%|
00002dd0  2b 49 25 3a f1 3b 3f 6d  70 25 3a 6d 70 25 2b 3d  |+I%:.;?mp%:mp%+=|
00002de0  26 33 30 30 0d 14 82 09  ed 3a ed 3a ed 0d 14 8c  |&300.....:.:....|
00002df0  15 e3 50 25 3d 31 b8 6e  6f 6f 66 70 6c 61 79 65  |..P%=1.noofplaye|
00002e00  72 73 0d 14 96 35 6d 70  25 3d 6d 61 70 73 74 61  |rs...5mp%=mapsta|
00002e10  72 74 25 2b 26 32 46 39  3a 59 25 3d 37 32 38 2d  |rt%+&2F9:Y%=728-|
00002e20  28 50 25 2d 31 29 2a 31  33 32 3a 58 25 3d 33 32  |(P%-1)*132:X%=32|
00002e30  3a 70 61 72 25 3d 30 0d  14 a0 22 e3 54 25 3d 31  |:par%=0...".T%=1|
00002e40  b8 48 6f 6c 65 25 3a e7  54 25 3d 31 30 59 25 2d  |.Hole%:.T%=10Y%-|
00002e50  3d 34 30 3a 58 25 3d 33  32 0d 14 aa 37 73 63 25  |=40:X%=32...7sc%|
00002e60  3d 68 6f 6c 65 73 63 6f  72 65 73 25 28 68 73 70  |=holescores%(hsp|
00002e70  25 28 50 25 29 2c 54 25  29 2d 3f 6d 70 25 3a 70  |%(P%),T%)-?mp%:p|
00002e80  61 72 25 2b 3d 3f 6d 70  25 3a ec 58 25 2c 59 25  |ar%+=?mp%:.X%,Y%|
00002e90  0d 14 b4 0b c8 8e b4 73  63 25 ca 0d 14 be 14 c9  |.......sc%......|
00002ea0  20 30 3a 41 24 3d 22 50  41 52 22 3a e6 31 35 0d  | 0:A$="PAR":.15.|
00002eb0  14 c8 16 c9 20 31 3a 41  24 3d 22 2b 22 2b c3 73  |.... 1:A$="+"+.s|
00002ec0  63 25 3a e6 35 0d 14 d2  12 c9 2d 31 3a 41 24 3d  |c%:.5.....-1:A$=|
00002ed0  c3 73 63 25 3a e6 30 0d  14 dc 05 cb 0d 14 e6 13  |.sc%:.0.........|
00002ee0  f1 c4 35 2d a9 41 24 2c  22 20 22 29 3b 41 24 0d  |..5-.A$," ");A$.|
00002ef0  14 f0 15 58 25 2b 3d 31  32 30 3a 6d 70 25 2b 3d  |...X%+=120:mp%+=|
00002f00  26 33 30 30 0d 14 fa 05  ed 0d 15 04 35 e6 6a 75  |&300........5.ju|
00002f10  6d 70 25 28 50 25 29 2b  34 3a ec 34 2c 37 36 38  |mp%(P%)+4:.4,768|
00002f20  2d 28 50 25 2d 31 29 2a  31 33 32 3a f1 6e 61 6d  |-(P%-1)*132:.nam|
00002f30  65 24 28 50 25 29 8a 32  30 2b 4f 25 29 3b 0d 15  |e$(P%).20+O%);..|
00002f40  0e 14 c8 8e 63 75 72 72  65 6e 74 73 25 28 50 25  |....currents%(P%|
00002f50  29 ca 0d 15 18 15 c9 31  3a f1 22 7b 42 45 47 49  |)......1:."{BEGI|
00002f60  4e 4e 45 52 7d 22 3b 0d  15 22 17 c9 32 3a f1 22  |NNER}";.."..2:."|
00002f70  7b 45 4e 54 48 55 53 49  41 53 54 7d 22 3b 0d 15  |{ENTHUSIAST}";..|
00002f80  2c 14 c9 33 3a f1 22 7b  41 4d 41 54 45 55 52 7d  |,..3:."{AMATEUR}|
00002f90  22 3b 0d 15 36 19 c9 34  3a f1 22 7b 50 52 4f 46  |";..6..4:."{PROF|
00002fa0  45 53 53 49 4f 4e 41 4c  7d 22 3b 0d 15 40 05 cb  |ESSIONAL}";..@..|
00002fb0  0d 15 4a 41 f1 8a 34 30  2b 4f 25 29 3b 74 6f 74  |..JA..40+O%);tot|
00002fc0  73 63 6f 72 65 25 28 50  25 29 3b 22 20 53 54 52  |score%(P%);" STR|
00002fd0  4f 4b 45 22 bd 28 2d 28  74 6f 74 73 63 6f 72 65  |OKE".(-(totscore|
00002fe0  25 28 50 25 29 3e 31 29  2a 38 33 29 8a 35 33 29  |%(P%)>1)*83).53)|
00002ff0  3b 0d 15 54 36 41 24 3d  22 20 3a 20 22 2b c3 48  |;..T6A$=" : "+.H|
00003000  6f 6c 65 25 2b 22 20 48  4f 4c 45 22 2b c4 2d 28  |ole%+" HOLE"+.-(|
00003010  48 6f 6c 65 25 3e 31 29  2c 22 53 22 29 2b 22 20  |Hole%>1),"S")+" |
00003020  50 4c 41 59 45 44 22 0d  15 5e 0c c8 8e 70 6c 61  |PLAYED"..^...pla|
00003030  79 25 ca 0d 15 68 0d c9  31 3a f2 6d 61 74 63 68  |y%...h..1:.match|
00003040  0d 15 72 0e c9 32 3a f2  73 74 72 6f 6b 65 0d 15  |..r..2:.stroke..|
00003050  7c 05 cb 0d 15 86 05 ed  0d 15 90 20 e6 31 35 3a  ||.......... .15:|
00003060  54 25 3d 35 34 32 2d a9  41 24 2a 38 3a ec 54 25  |T%=542-.A$*8:.T%|
00003070  2c 38 32 34 3a f1 41 24  0d 15 9a 1f e6 31 32 3a  |,824:.A$.....12:|
00003080  c8 93 54 25 2d 38 2c 37  38 38 2c a9 41 24 2a 31  |..T%-8,788,.A$*1|
00003090  36 2b 31 34 2c 34 38 0d  15 a4 29 ef 32 36 3a f2  |6+14,48...).26:.|
000030a0  73 6d 61 6c 6c 6d 65 73  28 33 36 30 2c 33 32 2c  |smallmes(360,32,|
000030b0  31 31 2c 22 20 43 4f 4e  54 49 4e 55 45 20 22 29  |11," CONTINUE ")|
000030c0  0d 15 ae 25 f2 73 6d 61  6c 6c 6d 65 73 28 37 32  |...%.smallmes(72|
000030d0  30 2c 33 32 2c 31 31 2c  22 51 55 49 54 20 52 4f  |0,32,11,"QUIT RO|
000030e0  55 4e 44 22 29 0d 15 b8  05 f5 0d 15 c2 15 c8 97  |UND")...........|
000030f0  c8 93 33 37 32 2c 34 34  2c 35 32 38 2c 34 30 0d  |..372,44,528,40.|
00003100  15 cc 11 c8 97 ee 3a c8  97 b8 34 36 34 2c 36 34  |......:...464,64|
00003110  0d 15 d6 18 f2 62 75 74  74 28 30 29 3a d1 3d 30  |.....butt(0):.=0|
00003120  3a f5 fd 91 3e 31 30 30  0d 15 e0 10 f5 3a c8 97  |:...>100.....:..|
00003130  58 25 2c 59 25 2c 54 25  0d 15 ea 17 fd 54 25 80  |X%,Y%,T%.....T%.|
00003140  28 58 25 3c 35 35 36 84  58 25 3e 37 31 38 29 0d  |(X%<556.X%>718).|
00003150  15 f4 44 e7 58 25 3e 37  31 38 f2 63 6f 6e 66 69  |..D.X%>718.confi|
00003160  72 6d 3a e7 58 25 3e 39  32 36 ec 30 2c 30 3a ff  |rm:.X%>926.0,0:.|
00003170  28 22 53 43 48 4f 4f 53  45 20 74 6f 70 6f 66 73  |("SCHOOSE topofs|
00003180  63 72 65 65 6e 22 29 3a  f0 26 45 44 2c 30 2c 30  |creen"):.&ED,0,0|
00003190  3a fd 30 0d 15 fe 06 fd  b9 0d 16 08 0b fb 30 3a  |:.0...........0:|
000031a0  ef 34 3a 87 0d 16 12 07  c8 97 87 0d 16 1c 08 e6  |.4:.............|
000031b0  31 33 39 0d 16 26 05 e1  0d 16 30 07 f4 20 15 0d  |139..&....0.. ..|
000031c0  16 3a 0d dd f2 63 6f 6e  66 69 72 6d 0d 16 44 0c  |.:...confirm..D.|
000031d0  f2 62 75 74 74 28 30 29  0d 16 4e 0c f2 67 74 6f  |.butt(0)..N..gto|
000031e0  73 28 30 29 0d 16 58 1b  f2 6d 65 73 62 6f 78 28  |s(0)..X..mesbox(|
000031f0  36 34 30 2c 33 32 2c 35  31 32 2c 31 36 30 29 0d  |640,32,512,160).|
00003200  16 62 31 e6 38 3a ec 36  35 36 2c 31 37 36 3a f1  |.b1.8:.656,176:.|
00003210  22 41 52 45 20 59 4f 55  20 53 55 52 45 20 59 4f  |"ARE YOU SURE YO|
00003220  55 20 57 41 4e 54 20 54  4f 20 51 55 49 54 3f 22  |U WANT TO QUIT?"|
00003230  0d 16 6c 1d f2 73 6d 61  6c 6c 6d 65 73 28 37 39  |..l..smallmes(79|
00003240  34 2c 36 30 2c 38 2c 22  59 45 53 22 29 0d 16 76  |4,60,8,"YES")..v|
00003250  1c f2 73 6d 61 6c 6c 6d  65 73 28 39 31 36 2c 36  |..smallmes(916,6|
00003260  30 2c 38 2c 22 4e 4f 22  29 0d 16 80 1f c8 97 c8  |0,8,"NO").......|
00003270  93 38 30 36 2c 37 32 2c  31 37 38 2c 34 30 3a c8  |.806,72,178,40:.|
00003280  97 b8 38 39 30 2c 38 32  0d 16 8a 10 f5 3a c8 97  |..890,82.....:..|
00003290  58 25 2c 59 25 2c 54 25  0d 16 94 17 fd 54 25 80  |X%,Y%,T%.....T%.|
000032a0  28 58 25 3c 38 36 36 84  58 25 3e 39 32 36 29 0d  |(X%<866.X%>926).|
000032b0  16 9e 05 e1 0d 16 a8 07  f4 20 15 0d 16 b2 0b dd  |......... ......|
000032c0  f2 6d 61 74 63 68 0d 16  bc 12 ea 54 25 2c 42 24  |.match.....T%,B$|
000032d0  2c 53 31 25 2c 53 32 25  0d 16 c6 0f e3 54 25 3d  |,S1%,S2%.....T%=|
000032e0  31 b8 48 6f 6c 65 25 0d  16 d0 3b e7 20 68 6f 6c  |1.Hole%...;. hol|
000032f0  65 73 63 6f 72 65 73 25  28 68 73 70 25 28 31 29  |escores%(hsp%(1)|
00003300  2c 54 25 29 3c 68 6f 6c  65 73 63 6f 72 65 73 25  |,T%)<holescores%|
00003310  28 68 73 70 25 28 32 29  2c 54 25 29 53 31 25 2b  |(hsp%(2),T%)S1%+|
00003320  3d 31 0d 16 da 3b e7 20  68 6f 6c 65 73 63 6f 72  |=1...;. holescor|
00003330  65 73 25 28 68 73 70 25  28 32 29 2c 54 25 29 3c  |es%(hsp%(2),T%)<|
00003340  68 6f 6c 65 73 63 6f 72  65 73 25 28 68 73 70 25  |holescores%(hsp%|
00003350  28 31 29 2c 54 25 29 53  32 25 2b 3d 31 0d 16 e4  |(1),T%)S2%+=1...|
00003360  13 ed 3a 54 25 3d 94 28  53 32 25 2d 53 31 25 29  |..:T%=.(S2%-S1%)|
00003370  0d 16 ee 25 42 24 3d c3  28 54 25 29 3a e7 54 25  |...%B$=.(T%):.T%|
00003380  42 24 3d 42 24 2b 22 20  55 50 22 8b 42 24 3d 22  |B$=B$+" UP".B$="|
00003390  45 56 45 4e 22 0d 16 f8  16 42 24 3d c4 31 34 2d  |EVEN"....B$=.14-|
000033a0  a9 42 24 2c 22 20 22 29  2b 42 24 0d 17 02 09 c8  |.B$," ")+B$.....|
000033b0  8e 50 25 ca 0d 17 0c 13  c9 31 3a e7 53 31 25 3e  |.P%......1:.S1%>|
000033c0  3d 53 32 25 f1 42 24 0d  17 16 13 c9 32 3a e7 53  |=S2%.B$.....2:.S|
000033d0  32 25 3e 3d 53 31 25 f1  42 24 0d 17 20 05 cb 0d  |2%>=S1%.B$.. ...|
000033e0  17 2a 21 41 24 3d 43 6f  75 72 73 65 24 2b 22 20  |.*!A$=Course$+" |
000033f0  3a 20 4d 41 54 43 48 20  50 4c 41 59 22 2b 41 24  |: MATCH PLAY"+A$|
00003400  0d 17 34 05 e1 0d 17 3e  07 f4 20 15 0d 17 48 0c  |..4....>.. ...H.|
00003410  dd f2 73 74 72 6f 6b 65  0d 17 52 0a ea 54 25 2c  |..stroke..R..T%,|
00003420  42 24 0d 17 5c 23 54 25  3d 74 6f 74 73 63 6f 72  |B$..\#T%=totscor|
00003430  65 25 28 50 25 29 2d 70  61 72 25 3a 42 24 3d c3  |e%(P%)-par%:B$=.|
00003440  28 94 54 25 29 0d 17 66  0a c8 8e b4 54 25 ca 0d  |(.T%)..f....T%..|
00003450  17 70 14 c9 30 3a 42 24  3d 22 45 56 45 4e 20 50  |.p..0:B$="EVEN P|
00003460  41 52 22 0d 17 7a 18 c9  31 3a 42 24 3d 42 24 2b  |AR"..z..1:B$=B$+|
00003470  22 20 4f 56 45 52 20 50  41 52 22 0d 17 84 1a c9  |" OVER PAR".....|
00003480  2d 31 3a 42 24 3d 42 24  2b 22 20 55 4e 44 45 52  |-1:B$=B$+" UNDER|
00003490  20 50 41 52 22 0d 17 8e  05 cb 0d 17 98 14 f1 c4  | PAR"...........|
000034a0  31 34 2d a9 42 24 2c 22  20 22 29 3b 42 24 0d 17  |14-.B$," ");B$..|
000034b0  a2 22 41 24 3d 43 6f 75  72 73 65 24 2b 22 20 3a  |."A$=Course$+" :|
000034c0  20 53 54 52 4f 4b 45 20  50 4c 41 59 22 2b 41 24  | STROKE PLAY"+A$|
000034d0  0d 17 ac 05 e1 0d 17 b6  07 f4 20 15 0d 17 c0 0e  |.......... .....|
000034e0  dd f2 73 68 6f 77 77 69  6e 64 0d 17 ca 23 ea 77  |..showwind...#.w|
000034f0  24 2c 54 25 2c 43 25 2c  73 25 2c 69 25 2c 78 31  |$,T%,C%,s%,i%,x1|
00003500  25 2c 79 31 25 2c 42 58  25 2c 42 59 25 0d 17 d4  |%,y1%,BX%,BY%...|
00003510  35 e7 67 72 65 65 6e 25  20 43 25 3d 39 3a 77 24  |5.green% C%=9:w$|
00003520  3d 22 53 4c 4f 50 45 22  3a 73 25 3d 2d 32 8b 43  |="SLOPE":s%=-2.C|
00003530  25 3d 36 3a 77 24 3d 22  57 49 4e 44 22 3a 73 25  |%=6:w$="WIND":s%|
00003540  3d 34 0d 17 de 25 fb 31  33 3a f1 8a 32 36 2c 30  |=4...%.13:..26,0|
00003550  29 22 44 49 52 45 43 54  49 4f 4e 20 4f 46 22 8a  |)"DIRECTION OF".|
00003560  32 39 2c 31 29 77 24 0d  17 e8 13 e3 54 25 3d 43  |29,1)w$.....T%=C|
00003570  25 b8 43 25 2b 73 25 88  73 25 0d 17 f2 07 e6 54  |%.C%+s%.s%.....T|
00003580  25 0d 17 fc 13 c8 8f 35  32 36 2c 38 32 30 2c 38  |%......526,820,8|
00003590  38 2b 69 25 0d 18 06 13  c8 8f 35 32 36 2c 38 32  |8+i%......526,82|
000035a0  30 2c 31 32 2b 69 25 0d  18 10 0b 69 25 2b 3d 34  |0,12+i%....i%+=4|
000035b0  3a ed 0d 18 1a 06 e6 38  0d 18 24 0c ec 35 32 36  |:......8..$..526|
000035c0  2c 38 32 30 0d 18 2e 17  42 58 25 3d 77 78 2a 32  |,820....BX%=wx*2|
000035d0  35 3a 42 59 25 3d 77 79  2a 32 35 0d 18 38 27 78  |5:BY%=wy*25..8'x|
000035e0  31 25 3d 76 61 2a 42 59  25 2b 76 62 2a 42 58 25  |1%=va*BY%+vb*BX%|
000035f0  3a 79 31 25 3d 76 69 2a  42 59 25 2b 76 61 2a 42  |:y1%=vi*BY%+va*B|
00003600  58 25 0d 18 42 14 df 35  32 36 2b 78 31 25 2c 38  |X%..B..526+x1%,8|
00003610  32 30 2b 79 31 25 0d 18  4c 05 e1 0d 18 56 07 f4  |20+y1%..L....V..|
00003620  20 15 0d 18 60 0d dd f2  73 65 74 77 69 6e 64 0d  | ...`...setwind.|
00003630  18 6a 17 57 58 3d 30 3a  57 59 3d 30 3a 46 25 3d  |.j.WX=0:WY=0:F%=|
00003640  67 72 65 65 6e 25 0d 18  74 18 77 63 3d 35 2b 34  |green%..t.wc=5+4|
00003650  2a 67 72 65 65 6e 25 3a  77 63 32 3d 77 63 0d 18  |*green%:wc2=wc..|
00003660  7e 31 e7 46 25 3a 50 25  3d 6d 61 70 70 6f 69 6e  |~1.F%:P%=mappoin|
00003670  74 25 2b 26 32 46 34 3a  77 78 3d a4 6d 61 70 32  |t%+&2F4:wx=.map2|
00003680  2f 33 3a 77 79 3d a4 6d  61 70 32 2f 33 3a e1 0d  |/3:wy=.map2/3:..|
00003690  18 88 18 77 78 3d 30 3a  77 79 3d 30 3a e7 73 6b  |...wx=0:wy=0:.sk|
000036a0  69 6c 6c 25 3c 33 e1 0d  18 92 0f 77 78 3d 57 78  |ill%<3.....wx=Wx|
000036b0  3a 77 79 3d 57 79 0d 18  9c 05 e1 0d 18 a6 07 f4  |:wy=Wy..........|
000036c0  20 15 0d 18 b0 0e dd f2  69 6e 69 74 77 69 6e 64  | .......initwind|
000036d0  0d 18 ba 07 ea 61 25 0d  18 c4 10 73 74 72 65 6e  |.....a%....stren|
000036e0  25 3d b3 28 33 36 29 0d  18 ce 0d 61 25 3d b3 28  |%=.(36)....a%=.(|
000036f0  33 36 30 29 0d 18 d8 18  57 78 3d 28 28 9b b2 61  |360)....Wx=((..a|
00003700  25 29 2a 73 74 72 65 6e  25 29 2f 39 0d 18 e2 18  |%)*stren%)/9....|
00003710  57 79 3d 28 28 b5 b2 61  25 29 2a 73 74 72 65 6e  |Wy=((..a%)*stren|
00003720  25 29 2f 39 0d 18 ec 1d  46 78 3d 28 b5 b2 61 25  |%)/9....Fx=(..a%|
00003730  29 2a 28 31 35 2b 28 73  74 72 65 6e 25 81 32 29  |)*(15+(stren%.2)|
00003740  29 0d 18 f6 1d 46 79 3d  28 9b b2 61 25 29 2a 28  |)....Fy=(..a%)*(|
00003750  31 35 2b 28 73 74 72 65  6e 25 81 32 29 29 0d 19  |15+(stren%.2))..|
00003760  00 05 e1 0d 19 0a 07 f4  20 15 0d 19 14 0a dd f2  |........ .......|
00003770  73 70 6f 74 0d 19 1e 1b  62 73 25 3d 31 3a 42 58  |spot....bs%=1:BX|
00003780  3d 30 3a 42 59 25 3d 2d  52 25 3a 68 25 3d 30 0d  |=0:BY%=-R%:h%=0.|
00003790  19 28 25 78 31 25 3d 76  61 2a 42 59 25 2b 76 62  |.(%x1%=va*BY%+vb|
000037a0  2a 42 58 3a 79 31 25 3d  76 69 2a 42 59 25 2b 76  |*BX:y1%=vi*BY%+v|
000037b0  61 2a 42 58 0d 19 32 1a  f2 76 74 28 79 31 25 2c  |a*BX..2..vt(y1%,|
000037c0  78 31 25 2c 48 25 29 3a  79 73 25 2d 3d 34 0d 19  |x1%,H%):ys%-=4..|
000037d0  3c 0c 2a 46 58 31 31 32  2c 32 0d 19 46 14 6c 69  |<.*FX112,2..F.li|
000037e0  65 25 3d b0 78 73 25 2b  32 2c 79 73 25 29 0d 19  |e%=.xs%+2,ys%)..|
000037f0  50 0e f2 77 65 6c 6c 69  65 28 30 29 0d 19 5a 0d  |P..wellie(0)..Z.|
00003800  e7 ac 67 72 65 65 6e 25  8c 0d 19 64 2c 54 25 3d  |..green%...d,T%=|
00003810  b0 28 6d 78 25 28 30 2c  48 61 6e 64 25 29 2b 34  |.(mx%(0,Hand%)+4|
00003820  2b 54 25 2b 38 30 2a 48  61 6e 64 25 29 2c 6d 79  |+T%+80*Hand%),my|
00003830  25 28 30 29 29 0d 19 6e  10 e7 54 25 3d 36 84 54  |%(0))..n..T%=6.T|
00003840  25 3d 31 31 8c 0d 19 78  0f f2 77 65 6c 6c 69 65  |%=11...x..wellie|
00003850  28 33 30 29 0d 19 82 05  cd 0d 19 8c 05 cd 0d 19  |(30)............|
00003860  96 0c 2a 46 58 31 31 32  2c 31 0d 19 a0 15 ec 78  |..*FX112,1.....x|
00003870  73 25 2c 79 73 25 3a ec  42 59 31 30 2c 31 36 0d  |s%,ys%:.BY10,16.|
00003880  19 aa 13 6f 78 25 3d 78  73 25 3a 6f 79 25 3d 79  |...ox%=xs%:oy%=y|
00003890  73 25 0d 19 b4 15 6f 73  78 25 3d 78 73 25 3a 6f  |s%....osx%=xs%:o|
000038a0  73 79 25 3d 79 73 25 0d  19 be 13 73 78 25 3d 78  |sy%=ys%....sx%=x|
000038b0  73 25 3a 73 79 25 3d 79  73 25 0d 19 c8 0c 2a 53  |s%:sy%=ys%....*S|
000038c0  47 45 54 20 67 72 0d 19  d2 0c 2a 53 47 45 54 20  |GET gr....*SGET |
000038d0  73 68 0d 19 dc 05 e1 0d  19 e6 07 f4 20 15 0d 19  |sh.......... ...|
000038e0  f0 10 dd f2 77 65 6c 6c  69 65 28 57 25 29 0d 19  |....wellie(W%)..|
000038f0  fa 07 ea 54 25 0d 1a 04  1c e3 54 25 3d 31 b8 38  |...T%.....T%=1.8|
00003900  3a 6d 25 28 54 25 2c 30  29 3d 54 25 2b 57 25 3a  |:m%(T%,0)=T%+W%:|
00003910  ed 0d 1a 0e 11 77 65 6c  6c 69 65 25 3d 57 25 3d  |.....wellie%=W%=|
00003920  33 30 0d 1a 18 05 e1 0d  1a 22 07 f4 20 15 0d 1a  |30.......".. ...|
00003930  2c 0c dd f2 73 70 6c 61  73 68 0d 1a 36 18 2a 43  |,...splash..6.*C|
00003940  48 41 4e 4e 45 4c 56 4f  49 43 45 20 31 20 50 4c  |HANNELVOICE 1 PL|
00003950  4f 50 0d 1a 40 16 ea 41  24 2c 72 25 2c 61 25 2c  |OP..@..A$,r%,a%,|
00003960  54 25 2c 78 25 2c 79 25  0d 1a 4a 16 62 61 64 25  |T%,x%,y%..J.bad%|
00003970  3d a3 3a d4 31 2c 2d 31  35 2c 35 2c 32 30 0d 1a  |=.:.1,-15,5,20..|
00003980  54 0e e3 72 25 3d 35 b8  35 35 88 35 0d 1a 5e 0a  |T..r%=5.55.5..^.|
00003990  e7 72 25 3e 39 8c 0d 1a  68 0c e6 36 3a c8 96 3a  |.r%>9...h..6:..:|
000039a0  c8 96 0d 1a 72 0c e3 61  25 3d 30 b8 34 35 0d 1a  |....r..a%=0.45..|
000039b0  7c 32 78 25 3d 78 73 25  2b 43 28 61 25 29 2a 28  ||2x%=xs%+C(a%)*(|
000039c0  72 25 2d 31 30 29 3a 79  25 3d 79 73 25 2b 53 28  |r%-10):y%=ys%+S(|
000039d0  61 25 29 2a 28 28 72 25  2d 31 30 29 3e 3e 32 29  |a%)*((r%-10)>>2)|
000039e0  0d 1a 86 16 e7 b0 78 25  2c 79 25 29 3d 31 31 c8  |......x%,y%)=11.|
000039f0  92 78 25 2c 79 25 0d 1a  90 05 ed 0d 1a 9a 05 cd  |.x%,y%..........|
00003a00  0d 1a a4 0f e6 31 31 3a  e7 72 25 3c 35 30 8c 0d  |.....11:.r%<50..|
00003a10  1a ae 09 c8 96 3a c8 96  0d 1a b8 31 e3 61 25 3d  |.....:.....1.a%=|
00003a20  30 b8 34 35 3a 78 25 3d  78 73 25 2b 43 28 61 25  |0.45:x%=xs%+C(a%|
00003a30  29 2a 72 25 3a 79 25 3d  79 73 25 2b 53 28 61 25  |)*r%:y%=ys%+S(a%|
00003a40  29 2a 28 72 25 3e 3e 32  29 0d 1a c2 15 e7 b0 78  |)*(r%>>2)......x|
00003a50  25 2c 79 25 29 3d 36 c8  92 78 25 2c 79 25 0d 1a  |%,y%)=6..x%,y%..|
00003a60  cc 05 ed 0d 1a d6 05 cd  0d 1a e0 05 ed 0d 1a ea  |................|
00003a70  0e 73 74 72 6f 6b 65 25  2b 3d 31 0d 1a f4 21 e7  |.stroke%+=1...!.|
00003a80  47 25 3d 31 31 41 24 3d  22 54 48 45 20 53 45 41  |G%=11A$="THE SEA|
00003a90  22 8b 41 24 3d 22 57 41  54 45 52 22 0d 1a fe 4d  |".A$="WATER"...M|
00003aa0  f2 6d 65 73 77 69 6e 64  28 22 42 41 4c 4c 20 4c  |.meswind("BALL L|
00003ab0  4f 53 54 20 49 4e 20 22  2b 41 24 2c 22 46 4f 52  |OST IN "+A$,"FOR|
00003ac0  46 45 49 54 20 4f 4e 45  20 53 54 52 4f 4b 45 22  |FEIT ONE STROKE"|
00003ad0  2c 22 50 4c 45 41 53 45  20 50 4c 41 59 20 41 47  |,"PLEASE PLAY AG|
00003ae0  41 49 4e 22 2c 35 2c 36  29 0d 1b 08 10 f2 67 65  |AIN",5,6).....ge|
00003af0  74 70 6c 61 79 76 61 6c  73 0d 1b 12 09 f2 73 70  |tplayvals.....sp|
00003b00  6f 74 0d 1b 1c 12 2a 53  43 48 4f 4f 53 45 20 70  |ot....*SCHOOSE p|
00003b10  6c 61 69 6e 0d 1b 26 4d  c8 96 3a f0 26 45 44 2c  |lain..&M..:.&ED,|
00003b20  6d 78 25 28 67 25 2c 48  61 6e 64 25 29 2c 6d 79  |mx%(g%,Hand%),my|
00003b30  25 28 67 25 29 3a ef 32  33 2c 32 37 3b 6d 25 28  |%(g%):.23,27;m%(|
00003b40  31 2c 67 25 29 7c 3a f0  26 45 44 2c 6d 78 25 28  |1,g%)|:.&ED,mx%(|
00003b50  67 25 2c 48 61 6e 64 25  29 2c 6d 79 25 28 67 25  |g%,Hand%),my%(g%|
00003b60  29 0d 1b 30 05 e1 0d 1b  3a 07 f4 20 15 0d 1b 44  |)..0....:.. ...D|
00003b70  0d dd f2 70 75 74 62 61  63 6b 0d 1b 4e 0d e7 ac  |...putback..N...|
00003b80  67 72 65 65 6e 25 8c 0d  1b 58 1f e7 94 78 31 25  |green%...X...x1%|
00003b90  3c 38 30 78 31 25 3d 28  38 30 2b b3 28 33 30 29  |<80x1%=(80+.(30)|
00003ba0  29 2a b4 78 31 25 0d 1b  62 1f e7 94 79 31 25 3c  |)*.x1%..b...y1%<|
00003bb0  38 30 79 31 25 3d 28 38  30 2b b3 28 33 30 29 29  |80y1%=(80+.(30))|
00003bc0  2a b4 79 31 25 0d 1b 6c  05 cd 0d 1b 76 25 63 75  |*.y1%..l....v%cu|
00003bd0  72 72 65 6e 74 52 25 28  31 29 3d a4 64 69 73 74  |rrentR%(1)=.dist|
00003be0  61 6e 63 65 28 94 78 31  25 2c 94 79 31 25 29 0d  |ance(.x1%,.y1%).|
00003bf0  1b 80 14 63 75 72 72 65  6e 74 78 25 28 31 29 3d  |...currentx%(1)=|
00003c00  78 31 25 0d 1b 8a 14 63  75 72 72 65 6e 74 79 25  |x1%....currenty%|
00003c10  28 31 29 3d 79 31 25 0d  1b 94 18 63 75 72 72 65  |(1)=y1%....curre|
00003c20  6e 74 53 25 28 31 29 3d  73 74 72 6f 6b 65 25 0d  |ntS%(1)=stroke%.|
00003c30  1b 9e 05 e1 0d 1b a8 07  f4 20 15 0d 1b b2 0d dd  |......... ......|
00003c40  f2 73 77 61 70 61 6c 6c  0d 1b bc 24 c8 94 20 63  |.swapall...$.. c|
00003c50  75 72 72 65 6e 74 52 25  28 49 25 29 2c 63 75 72  |urrentR%(I%),cur|
00003c60  72 65 6e 74 52 25 28 49  25 2d 31 29 0d 1b c6 24  |rentR%(I%-1)...$|
00003c70  c8 94 20 63 75 72 72 65  6e 74 78 25 28 49 25 29  |.. currentx%(I%)|
00003c80  2c 63 75 72 72 65 6e 74  78 25 28 49 25 2d 31 29  |,currentx%(I%-1)|
00003c90  0d 1b d0 24 c8 94 20 63  75 72 72 65 6e 74 79 25  |...$.. currenty%|
00003ca0  28 49 25 29 2c 63 75 72  72 65 6e 74 79 25 28 49  |(I%),currenty%(I|
00003cb0  25 2d 31 29 0d 1b da 24  c8 94 20 63 75 72 72 65  |%-1)...$.. curre|
00003cc0  6e 74 73 25 28 49 25 29  2c 63 75 72 72 65 6e 74  |nts%(I%),current|
00003cd0  73 25 28 49 25 2d 31 29  0d 1b e4 24 c8 94 20 63  |s%(I%-1)...$.. c|
00003ce0  75 72 72 65 6e 74 53 25  28 49 25 29 2c 63 75 72  |urrentS%(I%),cur|
00003cf0  72 65 6e 74 53 25 28 49  25 2d 31 29 0d 1b ee 24  |rentS%(I%-1)...$|
00003d00  c8 94 20 74 6f 74 73 63  6f 72 65 25 28 49 25 29  |.. totscore%(I%)|
00003d10  2c 74 6f 74 73 63 6f 72  65 25 28 49 25 2d 31 29  |,totscore%(I%-1)|
00003d20  0d 1b f8 20 c8 94 20 6f  6c 64 70 6f 73 25 28 49  |... .. oldpos%(I|
00003d30  25 29 2c 6f 6c 64 70 6f  73 25 28 49 25 2d 31 29  |%),oldpos%(I%-1)|
00003d40  0d 1c 02 1c c8 94 20 6e  61 6d 65 24 28 49 25 29  |...... name$(I%)|
00003d50  2c 6e 61 6d 65 24 28 49  25 2d 31 29 0d 1c 0c 1a  |,name$(I%-1)....|
00003d60  c8 94 20 68 73 70 25 28  49 25 29 2c 68 73 70 25  |.. hsp%(I%),hsp%|
00003d70  28 49 25 2d 31 29 0d 1c  16 1c c8 94 20 68 61 6e  |(I%-1)...... han|
00003d80  64 25 28 49 25 29 2c 68  61 6e 64 25 28 49 25 2d  |d%(I%),hand%(I%-|
00003d90  31 29 0d 1c 20 1c c8 94  20 6a 75 6d 70 25 28 49  |1).. ... jump%(I|
00003da0  25 29 2c 6a 75 6d 70 25  28 49 25 2d 31 29 0d 1c  |%),jump%(I%-1)..|
00003db0  2a 05 e1 0d 1c 34 07 f4  20 15 0d 1c 3e 0d dd f2  |*....4.. ...>...|
00003dc0  77 69 6e 73 6f 72 74 0d  1c 48 0a ea 54 25 2c 49  |winsort..H..T%,I|
00003dd0  25 0d 1c 52 14 e7 6e 6f  6f 66 70 6c 61 79 65 72  |%..R..noofplayer|
00003de0  73 3c 3e 31 8c 0d 1c 5c  27 e3 54 25 3d 31 b8 6e  |s<>1...\'.T%=1.n|
00003df0  6f 6f 66 70 6c 61 79 65  72 73 3a e3 49 25 3d 32  |oofplayers:.I%=2|
00003e00  b8 6e 6f 6f 66 70 6c 61  79 65 72 73 0d 1c 66 1f  |.noofplayers..f.|
00003e10  e7 6f 6c 64 70 6f 73 25  28 49 25 29 3c 6f 6c 64  |.oldpos%(I%)<old|
00003e20  70 6f 73 25 28 49 25 2d  31 29 8c 0d 1c 70 0c f2  |pos%(I%-1)...p..|
00003e30  73 77 61 70 61 6c 6c 0d  1c 7a 05 cd 0d 1c 84 07  |swapall..z......|
00003e40  ed 3a ed 0d 1c 8e 27 e3  54 25 3d 31 b8 6e 6f 6f  |.:....'.T%=1.noo|
00003e50  66 70 6c 61 79 65 72 73  3a e3 49 25 3d 32 b8 6e  |fplayers:.I%=2.n|
00003e60  6f 6f 66 70 6c 61 79 65  72 73 0d 1c 98 23 e7 63  |oofplayers...#.c|
00003e70  75 72 72 65 6e 74 53 25  28 49 25 29 3c 63 75 72  |urrentS%(I%)<cur|
00003e80  72 65 6e 74 53 25 28 49  25 2d 31 29 8c 0d 1c a2  |rentS%(I%-1)....|
00003e90  0c f2 73 77 61 70 61 6c  6c 0d 1c ac 05 cd 0d 1c  |..swapall.......|
00003ea0  b6 07 ed 3a ed 0d 1c c0  05 cd 0d 1c ca 05 e1 0d  |...:............|
00003eb0  1c d4 07 f4 20 15 0d 1c  de 0f dd f2 73 65 74 70  |.... .......setp|
00003ec0  6c 61 79 65 72 0d 1c e8  07 ea 54 25 0d 1c f2 15  |layer.....T%....|
00003ed0  e3 54 25 3d 31 b8 6e 6f  6f 66 70 6c 61 79 65 72  |.T%=1.noofplayer|
00003ee0  73 0d 1c fc 12 6f 6c 64  70 6f 73 25 28 54 25 29  |s....oldpos%(T%)|
00003ef0  3d 54 25 0d 1d 06 05 ed  0d 1d 10 05 e1 0d 1d 1a  |=T%.............|
00003f00  07 f4 20 15 0d 1d 24 11  dd f2 77 68 69 63 68 70  |.. ...$...whichp|
00003f10  6c 61 79 65 72 0d 1d 2e  0a ea 54 25 2c 49 25 0d  |layer.....T%,I%.|
00003f20  1d 38 14 e7 6e 6f 6f 66  70 6c 61 79 65 72 73 3c  |.8..noofplayers<|
00003f30  3e 31 8c 0d 1d 42 15 e3  54 25 3d 31 b8 6e 6f 6f  |>1...B..T%=1.noo|
00003f40  66 70 6c 61 79 65 72 73  0d 1d 4c 15 e3 49 25 3d  |fplayers..L..I%=|
00003f50  32 b8 6e 6f 6f 66 70 6c  61 79 65 72 73 0d 1d 56  |2.noofplayers..V|
00003f60  23 e7 63 75 72 72 65 6e  74 52 25 28 49 25 29 3e  |#.currentR%(I%)>|
00003f70  63 75 72 72 65 6e 74 52  25 28 49 25 2d 31 29 8c  |currentR%(I%-1).|
00003f80  0d 1d 60 0c f2 73 77 61  70 61 6c 6c 0d 1d 6a 05  |..`..swapall..j.|
00003f90  cd 0d 1d 74 07 ed 3a ed  0d 1d 7e 05 cd 0d 1d 88  |...t..:...~.....|
00003fa0  18 73 74 72 6f 6b 65 25  3d 63 75 72 72 65 6e 74  |.stroke%=current|
00003fb0  53 25 28 31 29 0d 1d 92  17 73 6b 69 6c 6c 25 3d  |S%(1)....skill%=|
00003fc0  63 75 72 72 65 6e 74 73  25 28 31 29 0d 1d 9c 23  |currents%(1)...#|
00003fd0  e7 63 75 72 72 65 6e 74  78 25 28 31 29 3d 30 80  |.currentx%(1)=0.|
00003fe0  63 75 72 72 65 6e 74 79  25 28 31 29 3d 30 8c 0d  |currenty%(1)=0..|
00003ff0  1d a6 1c 72 6f 75 6e 64  25 3d b9 3a 6d 61 70 70  |...round%=.:mapp|
00004000  6f 69 6e 74 25 2b 3d 26  33 30 30 0d 1d b0 05 cd  |oint%+=&300.....|
00004010  0d 1d ba 15 e7 68 61 6e  64 25 28 31 29 3c 3e 48  |.....hand%(1)<>H|
00004020  61 6e 64 25 8c 0d 1d c4  12 48 61 6e 64 25 3d 68  |and%.....Hand%=h|
00004030  61 6e 64 25 28 31 29 0d  1d ce 21 e3 54 25 3d 31  |and%(1)...!.T%=1|
00004040  b8 31 31 3a ff 28 22 53  46 6c 69 70 59 20 22 2b  |.11:.("SFlipY "+|
00004050  c3 28 54 25 29 29 3a ed  0d 1d d8 22 e3 54 25 3d  |.(T%)):....".T%=|
00004060  33 31 b8 33 38 3a ff 28  22 53 46 6c 69 70 59 20  |31.38:.("SFlipY |
00004070  22 2b c3 28 54 25 29 29  3a ed 0d 1d e2 0e 2a 53  |"+.(T%)):.....*S|
00004080  46 6c 69 70 59 20 32 30  0d 1d ec 05 cd 0d 1d f6  |FlipY 20........|
00004090  05 e1 0d 1e 00 07 f4 20  15 0d 1e 0a 11 dd f2 67  |....... .......g|
000040a0  65 74 70 6c 61 79 76 61  6c 73 0d 1e 14 24 58 25  |etplayvals...$X%|
000040b0  3d 63 75 72 72 65 6e 74  78 25 28 31 29 3a 59 59  |=currentx%(1):YY|
000040c0  25 3d 63 75 72 72 65 6e  74 79 25 28 31 29 0d 1e  |%=currenty%(1)..|
000040d0  1e 05 e1 0d 1e 28 07 f4  20 15 0d 1e 32 0b dd f2  |.....(.. ...2...|
000040e0  6c 69 67 68 74 0d 1e 3c  0a 59 25 3d 59 59 25 0d  |light..<.Y%=YY%.|
000040f0  1e 46 16 e7 59 25 3e 30  80 58 25 3e 30 21 70 78  |.F..Y%>0.X%>0!px|
00004100  25 3d 6c 69 25 0d 1e 50  1d e7 59 25 3e 30 80 58  |%=li%..P..Y%>0.X|
00004110  25 3c 3d 30 21 70 78 25  3d 28 6c 69 25 2b 31 29  |%<=0!px%=(li%+1)|
00004120  80 33 0d 1e 5a 1e e7 59  25 3c 3d 30 80 58 25 3c  |.3..Z..Y%<=0.X%<|
00004130  3d 30 21 70 78 25 3d 28  6c 69 25 2b 32 29 80 33  |=0!px%=(li%+2).3|
00004140  0d 1e 64 1d e7 59 25 3c  3d 30 80 58 25 3e 30 21  |..d..Y%<=0.X%>0!|
00004150  70 78 25 3d 28 6c 69 25  2b 33 29 80 33 0d 1e 6e  |px%=(li%+3).3..n|
00004160  05 e1 0d 1e 78 07 f4 20  15 0d 1e 82 10 dd f2 64  |....x.. .......d|
00004170  72 61 77 73 63 72 65 65  6e 0d 1e 8c 1a 50 25 3d  |rawscreen....P%=|
00004180  6d 61 70 70 6f 69 6e 74  25 3a 41 41 25 3d a4 6d  |mappoint%:AA%=.m|
00004190  61 70 31 0d 1e 96 1b f2  63 61 6c 74 72 65 28 78  |ap1.....caltre(x|
000041a0  25 28 29 2c 79 25 28 29  2c 7a 25 28 29 29 0d 1e  |%(),y%(),z%())..|
000041b0  a0 35 d6 73 6f 72 74 2c  62 73 25 2c 52 25 2c 42  |.5.sort,bs%,R%,B|
000041c0  59 25 2c 4b 25 2c 78 31  25 2c 79 31 25 2c 68 25  |Y%,K%,x1%,y1%,h%|
000041d0  2c 41 41 25 2c 78 25 28  29 2c 7a 25 28 29 2c 79  |,AA%,x%(),z%(),y|
000041e0  25 28 29 0d 1e aa 13 f2  77 69 6e 64 6f 77 73 3a  |%().....windows:|
000041f0  f2 73 63 65 65 6e 0d 1e  b4 05 e1 0d 1e be 07 f4  |.sceen..........|
00004200  20 15 0d 1e c8 11 dd f2  73 69 6e 65 28 58 25 2c  | .......sine(X%,|
00004210  59 25 29 0d 1e d2 19 52  25 3d a4 64 69 73 74 61  |Y%)....R%=.dista|
00004220  6e 63 65 28 94 58 25 2c  94 59 25 29 0d 1e dc 25  |nce(.X%,.Y%)...%|
00004230  67 72 65 65 6e 25 3d 28  52 25 3c 35 32 35 29 3a  |green%=(R%<525):|
00004240  4d 61 3d 2e 37 2d 28 67  72 65 65 6e 25 2a 2e 33  |Ma=.7-(green%*.3|
00004250  29 0d 1e e6 31 4f 4c 25  3d 28 bb 28 c3 7e 28 28  |)...1OL%=(.(.~((|
00004260  6d 61 70 21 28 6d 61 70  70 6f 69 6e 74 25 2b 26  |map!(mappoint%+&|
00004270  32 46 41 29 29 80 26 46  46 46 46 29 29 29 3e 34  |2FA)).&FFFF)))>4|
00004280  34 30 0d 1e f0 2a 72 3d  31 32 30 39 36 2d 32 30  |40...*r=12096-20|
00004290  30 30 2a 67 72 65 65 6e  25 2d 31 35 30 30 2a 28  |00*green%-1500*(|
000042a0  4f 4c 25 80 ac 67 72 65  65 6e 25 29 0d 1e fa 0a  |OL%..green%)....|
000042b0  64 3d 72 2d 52 25 0d 1f  04 28 67 25 3d 2d 67 72  |d=r-R%...(g%=-gr|
000042c0  65 65 6e 25 3a 4f 25 3d  2d 36 32 39 32 2a 67 72  |een%:O%=-6292*gr|
000042d0  65 65 6e 25 3a 48 25 3d  32 35 30 2b 4f 25 0d 1f  |een%:H%=250+O%..|
000042e0  0e 1d 76 61 3d 2d 58 25  2f 52 25 3a 76 62 3d 59  |..va=-X%/R%:vb=Y|
000042f0  25 2f 52 25 3a 76 69 3d  2d 76 62 0d 1f 18 05 e1  |%/R%:vi=-vb.....|
00004300  0d 1f 22 07 f4 20 15 0d  1f 2c 15 dd a4 64 69 73  |..".. ...,...dis|
00004310  74 61 6e 63 65 28 78 25  2c 79 25 29 0d 1f 36 11  |tance(x%,y%)..6.|
00004320  3d b6 28 78 25 5e 32 2b  79 25 5e 32 29 0d 1f 40  |=.(x%^2+y%^2)..@|
00004330  07 f4 20 15 0d 1f 4a 0e  dd f2 67 65 74 73 74 61  |.. ...J...getsta|
00004340  72 74 0d 1f 54 1e 50 25  3d 26 32 45 38 2b 6d 61  |rt..T.P%=&2E8+ma|
00004350  70 70 6f 69 6e 74 25 3a  58 25 3d a4 6d 61 70 32  |ppoint%:X%=.map2|
00004360  0d 1f 5e 0d 59 59 25 3d  a4 6d 61 70 32 0d 1f 68  |..^.YY%=.map2..h|
00004370  1e 48 6f 6c 65 25 3d 6d  61 70 3f 28 6d 61 70 70  |.Hole%=map?(mapp|
00004380  6f 69 6e 74 25 2b 26 32  46 38 29 0d 1f 72 14 73  |oint%+&2F8)..r.s|
00004390  74 78 25 3d 58 25 3a 73  74 79 25 3d 59 59 25 0d  |tx%=X%:sty%=YY%.|
000043a0  1f 7c 13 f4 59 59 25 3d  31 35 2a 32 31 3a 58 25  |.|..YY%=15*21:X%|
000043b0  3d 30 0d 1f 86 15 e3 54  25 3d 31 b8 6e 6f 6f 66  |=0.....T%=1.noof|
000043c0  70 6c 61 79 65 72 73 0d  1f 90 14 63 75 72 72 65  |players....curre|
000043d0  6e 74 78 25 28 54 25 29  3d 58 25 0d 1f 9a 15 63  |ntx%(T%)=X%....c|
000043e0  75 72 72 65 6e 74 79 25  28 54 25 29 3d 59 59 25  |urrenty%(T%)=YY%|
000043f0  0d 1f a4 23 63 75 72 72  65 6e 74 52 25 28 54 25  |...#currentR%(T%|
00004400  29 3d a4 64 69 73 74 61  6e 63 65 28 58 25 2c 59  |)=.distance(X%,Y|
00004410  59 25 29 0d 1f ae 13 63  75 72 72 65 6e 74 53 25  |Y%)....currentS%|
00004420  28 54 25 29 3d 30 0d 1f  b8 05 ed 0d 1f c2 05 e1  |(T%)=0..........|
00004430  0d 1f cc 07 f4 20 15 0d  1f d6 0c dd f2 63 68 68  |..... .......chh|
00004440  6f 6c 65 0d 1f e0 09 42  25 2d 3d 31 0d 1f ea 17  |ole....B%-=1....|
00004450  e7 28 42 25 3e 30 80 79  61 3e 34 29 84 68 25 3e  |.(B%>0.ya>4).h%>|
00004460  33 30 e1 0d 1f f4 22 e7  68 25 3e 31 84 94 28 4f  |30....".h%>1..(O|
00004470  42 59 25 2d 42 59 25 29  3e 35 f2 72 69 63 3a 42  |BY%-BY%)>5.ric:B|
00004480  25 3d 34 3a e1 0d 1f fe  0d dd f2 63 68 68 6f 6c  |%=4:.......chhol|
00004490  65 32 0d 20 08 14 44 25  3d b9 3a 2a 53 43 48 4f  |e2. ..D%=.:*SCHO|
000044a0  4f 53 45 20 73 68 0d 20  12 12 f0 26 45 44 2c 6f  |OSE sh. ...&ED,o|
000044b0  73 78 25 2c 6f 73 79 25  0d 20 1c 0f 2a 53 43 48  |sx%,osy%. ..*SCH|
000044c0  4f 4f 53 45 20 67 72 0d  20 26 10 f0 26 45 44 2c  |OOSE gr. &..&ED,|
000044d0  6f 78 25 2c 6f 79 25 0d  20 30 19 2a 43 48 41 4e  |ox%,oy%. 0.*CHAN|
000044e0  4e 45 4c 56 4f 49 43 45  20 31 20 48 4f 4c 45 44  |NELVOICE 1 HOLED|
000044f0  0d 20 3a 10 d4 31 2c 2d  31 35 2c 32 30 2c 32 30  |. :..1,-15,20,20|
00004500  0d 20 44 0d f2 64 65 6c  28 31 35 30 29 0d 20 4e  |. D..del(150). N|
00004510  0d f2 68 6f 6c 65 64 6f  75 74 0d 20 58 27 79 61  |..holedout. X'ya|
00004520  3d 30 3a 75 3d 30 3a 75  64 3d 30 3a 70 25 3d 30  |=0:u=0:ud=0:p%=0|
00004530  3a 68 25 3d 30 3a 78 31  25 3d 30 3a 79 31 25 3d  |:h%=0:x1%=0:y1%=|
00004540  30 0d 20 62 05 e1 0d 20  6c 07 f4 20 15 0d 20 76  |0. b... l.. .. v|
00004550  0e dd f2 68 6f 6c 65 64  6f 75 74 0d 20 80 13 ea  |...holedout. ...|
00004560  41 24 2c 42 24 2c 43 24  2c 46 25 2c 53 25 0d 20  |A$,B$,C$,F%,S%. |
00004570  8a 23 53 25 3d 73 74 72  6f 6b 65 25 2d 6d 61 70  |.#S%=stroke%-map|
00004580  3f 28 6d 61 70 70 6f 69  6e 74 25 2b 26 32 46 39  |?(mappoint%+&2F9|
00004590  29 0d 20 94 09 c8 8e 53  25 ca 0d 20 9e 1e c9 31  |). ....S%.. ...1|
000045a0  3a 41 24 3d 22 49 54 27  53 20 41 20 42 4f 47 49  |:A$="IT'S A BOGI|
000045b0  45 22 3a 42 24 3d 22 22  0d 20 a8 2c c9 30 3a 41  |E":B$="". .,.0:A|
000045c0  24 3d 22 48 4f 4c 45 44  20 4f 55 54 20 54 4f 20  |$="HOLED OUT TO |
000045d0  50 41 52 22 3a 42 24 3d  22 57 45 4c 4c 20 44 4f  |PAR":B$="WELL DO|
000045e0  4e 45 21 22 0d 20 b2 32  c9 2d 31 3a 41 24 3d 22  |NE!". .2.-1:A$="|
000045f0  4e 49 43 45 20 4f 4e 45  20 22 2b 6e 61 6d 65 24  |NICE ONE "+name$|
00004600  28 31 29 3a 42 24 3d 22  49 54 27 53 20 41 20 42  |(1):B$="IT'S A B|
00004610  49 52 44 49 45 22 0d 20  bc 35 c9 2d 32 3a 41 24  |IRDIE". .5.-2:A$|
00004620  3d 22 53 55 50 45 52 42  20 50 4c 41 59 20 22 2b  |="SUPERB PLAY "+|
00004630  6e 61 6d 65 24 28 31 29  3a 42 24 3d 22 49 54 27  |name$(1):B$="IT'|
00004640  53 20 41 4e 20 45 41 47  4c 45 22 0d 20 c6 45 c9  |S AN EAGLE". .E.|
00004650  2d 33 3a 41 24 3d 22 43  4f 4e 47 52 41 54 55 4c  |-3:A$="CONGRATUL|
00004660  41 54 49 4f 4e 53 20 22  2b 6e 61 6d 65 24 28 31  |ATIONS "+name$(1|
00004670  29 3a 42 24 3d 22 59 4f  55 27 56 45 20 46 4c 4f  |):B$="YOU'VE FLO|
00004680  57 4e 20 41 4e 20 41 4c  42 41 54 52 4f 53 53 22  |WN AN ALBATROSS"|
00004690  0d 20 d0 2b 7f 20 41 24  3d 22 48 4f 4c 45 44 20  |. .+. A$="HOLED |
000046a0  4f 55 54 20 22 2b c3 53  25 2b 22 20 4f 56 45 52  |OUT "+.S%+" OVER|
000046b0  20 50 41 52 22 3a 42 24  3d 22 22 0d 20 da 05 cb  | PAR":B$="". ...|
000046c0  0d 20 e4 63 43 24 3d 22  22 3a 46 25 3d 33 3a 53  |. .cC$="":F%=3:S|
000046d0  25 3d 35 3a e7 73 74 72  6f 6b 65 25 3d 31 41 24  |%=5:.stroke%=1A$|
000046e0  3d 22 57 4f 57 21 20 49  54 27 53 20 41 20 48 4f  |="WOW! IT'S A HO|
000046f0  4c 45 20 49 4e 20 4f 4e  45 22 3a 42 24 3d 22 4b  |LE IN ONE":B$="K|
00004700  4e 4f 43 4b 45 44 20 49  4e 20 42 59 22 3a 43 24  |NOCKED IN BY":C$|
00004710  3d 6e 61 6d 65 24 28 31  29 3a 46 25 3d 36 3a 53  |=name$(1):F%=6:S|
00004720  25 3d 33 0d 20 ee 26 e7  20 a9 41 24 3c a9 42 24  |%=3. .&. .A$<.B$|
00004730  f5 3a 41 24 3d 22 20 22  2b 41 24 2b 22 20 22 3a  |.:A$=" "+A$+" ":|
00004740  fd a9 41 24 3e 3d a9 42  24 0d 20 f8 1c f2 6d 65  |..A$>=.B$. ...me|
00004750  73 77 69 6e 64 28 41 24  2c 42 24 2c 43 24 2c 46  |swind(A$,B$,C$,F|
00004760  25 2c 53 25 29 0d 21 02  0c f2 64 65 6c 28 35 30  |%,S%).!...del(50|
00004770  29 0d 21 0c 05 e1 0d 21  16 07 f4 20 15 0d 21 20  |).!....!... ..! |
00004780  09 dd f2 72 69 63 0d 21  2a 0f d4 34 2c 2d 31 35  |...ric.!*..4,-15|
00004790  2c 32 30 2c 31 0d 21 34  0a dd f2 32 72 69 63 0d  |,20,1.!4...2ric.|
000047a0  21 3e 1d 75 3d 75 2a 34  3a e7 75 3d 30 75 3d 28  |!>.u=u*4:.u=0u=(|
000047b0  33 2b b3 28 35 29 29 2a  b4 78 31 25 0d 21 48 15  |3+.(5))*.x1%.!H.|
000047c0  79 61 3d 79 61 20 81 32  3a 70 25 3d 79 61 20 81  |ya=ya .2:p%=ya .|
000047d0  33 0d 21 52 1b e7 ac 67  72 65 65 6e 25 80 79 61  |3.!R...green%.ya|
000047e0  3d 30 20 68 25 3d 30 3a  70 25 3d 30 0d 21 5c 05  |=0 h%=0:p%=0.!\.|
000047f0  e1 0d 21 66 07 f4 20 15  0d 21 70 0c dd f2 66 6c  |..!f.. ..!p...fl|
00004800  69 67 68 74 0d 21 7a 0c  4f 42 59 25 3d 42 59 25  |ight.!z.OBY%=BY%|
00004810  0d 21 84 5b f5 f2 66 6c  79 3a ef 32 33 2c 32 37  |.!.[..fly:.23,27|
00004820  3b 6d 25 28 38 2c 67 25  29 7c 3a f0 26 45 44 2c  |;m%(8,g%)|:.&ED,|
00004830  6d 78 25 28 67 25 2c 48  61 6e 64 25 29 2c 6d 79  |mx%(g%,Hand%),my|
00004840  25 28 67 25 29 3a e7 62  61 25 3a ef 32 33 2c 32  |%(g%):.ba%:.23,2|
00004850  37 3b 32 30 7c 3a f0 26  45 44 2c 62 61 67 25 28  |7;20|:.&ED,bag%(|
00004860  48 61 6e 64 25 29 2c 2d  37 35 34 0d 21 8e 41 e7  |Hand%),-754.!.A.|
00004870  67 72 65 65 6e 25 80 68  25 3d 30 c8 99 36 2c 31  |green%.h%=0..6,1|
00004880  31 32 2c 32 3a 47 25 3d  b0 73 78 25 2b 34 2c 73  |12,2:G%=.sx%+4,s|
00004890  79 25 2b 34 29 3a c8 99  36 2c 31 31 32 2c 31 3a  |y%+4):..6,112,1:|
000048a0  e7 47 25 3d 30 f2 63 68  68 6f 6c 65 0d 21 98 30  |.G%=0.chhole.!.0|
000048b0  4f 42 59 25 3d 42 59 25  3a e7 ac 67 72 65 65 6e  |OBY%=BY%:..green|
000048c0  25 80 94 28 78 31 25 2b  34 29 3c 35 80 94 28 79  |%..(x1%+4)<5..(y|
000048d0  31 25 29 3c 35 f2 63 68  68 6f 6c 65 0d 21 a2 17  |1%)<5.chhole.!..|
000048e0  e7 94 73 6c 3e 79 61 20  73 6c 3d 79 61 2f 32 2a  |..sl>ya sl=ya/2*|
000048f0  b4 73 6c 0d 21 ac 10 77  63 2d 3d 31 3a e7 77 63  |.sl.!..wc-=1:.wc|
00004900  3d 30 8c 0d 21 b6 17 77  63 3d 77 63 32 3a e7 77  |=0..!..wc=wc2:.w|
00004910  63 32 3e 31 77 63 32 2d  3d 31 0d 21 c0 11 57 58  |c2>1wc2-=1.!..WX|
00004920  2b 3d 77 78 3a 57 59 2b  3d 77 79 0d 21 ca 05 cd  |+=wx:WY+=wy.!...|
00004930  0d 21 d4 15 fd 79 61 3c  3d 30 80 68 25 3d 30 80  |.!...ya<=0.h%=0.|
00004940  94 70 25 3c 32 0d 21 de  12 59 59 25 3d 79 31 25  |.p%<2.!..YY%=y1%|
00004950  3a 58 25 3d 78 31 25 0d  21 e8 10 e7 44 25 84 ac  |:X%=x1%.!...D%..|
00004960  67 72 65 65 6e 25 e1 0d  21 f2 0c 2a 46 58 31 31  |green%..!..*FX11|
00004970  32 2c 32 0d 21 fc 10 47  25 3d b0 73 78 25 2c 73  |2,2.!..G%=.sx%,s|
00004980  79 25 29 0d 22 06 13 47  31 25 3d b0 73 78 25 2c  |y%)."..G1%=.sx%,|
00004990  73 79 25 2b 38 29 0d 22  10 0c 2a 46 58 31 31 32  |sy%+8)."..*FX112|
000049a0  2c 31 0d 22 1a 17 e7 28  47 25 80 47 31 25 29 3d  |,1."...(G%.G1%)=|
000049b0  30 f2 63 68 68 6f 6c 65  32 0d 22 24 05 e1 0d 22  |0.chhole2."$..."|
000049c0  2e 07 f4 20 15 0d 22 38  09 dd f2 66 6c 79 0d 22  |... .."8...fly."|
000049d0  42 11 e7 68 25 3c 34 80  79 61 3c 31 36 c8 96 0d  |B..h%<4.ya<16...|
000049e0  22 4c 2d c8 96 3a 42 58  2b 3d 75 2a 79 64 2b 53  |"L-..:BX+=u*yd+S|
000049f0  6c 3a 53 6c 2b 3d 73 6c  3a 75 2d 3d 75 64 3a e7  |l:Sl+=sl:u-=ud:.|
00004a00  94 75 3e 79 61 20 75 3d  75 3e 3e 31 0d 22 56 21  |.u>ya u=u>>1."V!|
00004a10  42 59 25 2b 3d 79 61 2a  79 64 3a e7 79 61 3e 30  |BY%+=ya*yd:.ya>0|
00004a20  20 79 61 2d 3d 2e 35 3a  8b 79 61 3d 30 0d 22 60  | ya-=.5:.ya=0."`|
00004a30  46 78 31 25 3d 76 61 2a  42 59 25 2b 76 62 2a 42  |Fx1%=va*BY%+vb*B|
00004a40  58 2b 57 58 3a 79 31 25  3d 76 69 2a 42 59 25 2b  |X+WX:y1%=vi*BY%+|
00004a50  76 61 2a 42 58 2b 57 59  3a 68 25 2b 3d 70 25 2a  |va*BX+WY:h%+=p%*|
00004a60  4d 61 3a 70 25 2d 3d 31  3a e7 70 25 3c 31 30 46  |Ma:p%-=1:.p%<10F|
00004a70  25 3d b9 0d 22 6a 12 e7  68 25 3c 3d 30 20 f2 62  |%=.."j..h%<=0 .b|
00004a80  6f 75 6e 63 65 0d 22 74  36 f2 76 74 28 79 31 25  |ounce."t6.vt(y1%|
00004a90  2c 78 31 25 2c 48 25 29  3a 73 78 25 3d 78 73 25  |,x1%,H%):sx%=xs%|
00004aa0  3a 73 79 25 3d 79 73 25  3a f2 76 74 28 79 31 25  |:sy%=ys%:.vt(y1%|
00004ab0  2c 78 31 25 2c 48 25 2d  68 25 29 0d 22 7e 2e e7  |,x1%,H%-h%)."~..|
00004ac0  4b 25 3d b9 20 75 64 3d  30 3a 79 61 3d 30 3a 70  |K%=. ud=0:ya=0:p|
00004ad0  25 3d 30 3a 75 3d 30 3a  4b 25 3d 31 3a d4 33 2c  |%=0:u=0:K%=1:.3,|
00004ae0  2d 31 30 2c 32 30 2c 34  30 0d 22 88 37 e7 57 25  |-10,20,40.".7.W%|
00004af0  d6 20 70 6c 6f 74 62 61  6c 6c 2c 62 73 25 2c 6f  |. plotball,bs%,o|
00004b00  79 25 2c 6f 78 25 2c 6f  73 79 25 2c 6f 73 78 25  |y%,ox%,osy%,osx%|
00004b10  2c 79 73 25 2c 78 73 25  2c 73 79 25 2c 73 78 25  |,ys%,xs%,sy%,sx%|
00004b20  0d 22 92 05 e1 0d 22 9c  07 f4 20 15 0d 22 a6 0c  |."...."... .."..|
00004b30  dd f2 77 61 6c 74 65 72  0d 22 b0 1a 2a 43 48 41  |..walter."..*CHA|
00004b40  4e 4e 45 4c 56 4f 49 43  45 20 31 20 53 48 4f 4f  |NNELVOICE 1 SHOO|
00004b50  53 48 0d 22 ba 0a ea 54  25 2c 49 25 0d 22 c4 2c  |SH."...T%,I%.".,|
00004b60  79 64 3d 31 2b 28 2e 37  35 2a 67 72 65 65 6e 25  |yd=1+(.75*green%|
00004b70  29 3a e3 54 25 3d 31 b8  35 3a 2a 53 43 48 4f 4f  |):.T%=1.5:*SCHOO|
00004b80  53 45 20 42 4c 41 43 4b  0d 22 ce 5e c8 96 3a f0  |SE BLACK.".^..:.|
00004b90  26 45 44 2c 6d 78 25 28  67 25 2c 48 61 6e 64 25  |&ED,mx%(g%,Hand%|
00004ba0  29 2c 6d 79 25 28 67 25  29 3a ef 32 33 2c 32 37  |),my%(g%):.23,27|
00004bb0  3b 6d 25 28 54 25 2c 67  25 29 7c 3a f0 26 45 44  |;m%(T%,g%)|:.&ED|
00004bc0  2c 6d 78 25 28 67 25 2c  48 61 6e 64 25 29 2c 6d  |,mx%(g%,Hand%),m|
00004bd0  79 25 28 67 25 29 3a e3  49 25 3d 30 b8 54 25 3a  |y%(g%):.I%=0.T%:|
00004be0  c8 96 3a ed 3a ed 0d 22  d8 1c e3 54 25 3d 35 b8  |..:.:.."...T%=5.|
00004bf0  31 88 b9 3a 2a 53 43 48  4f 4f 53 45 20 42 4c 41  |1..:*SCHOOSE BLA|
00004c00  43 4b 0d 22 e2 1d e7 54  25 3d 33 80 ac 67 72 65  |CK."...T%=3..gre|
00004c10  65 6e 25 d4 31 2c 53 4f  25 2c 34 30 2c 34 30 0d  |en%.1,SO%,40,40.|
00004c20  22 ec 5b e3 49 25 3d 31  b8 54 25 3a c8 96 3a ed  |".[.I%=1.T%:..:.|
00004c30  3a f0 26 45 44 2c 6d 78  25 28 67 25 2c 48 61 6e  |:.&ED,mx%(g%,Han|
00004c40  64 25 29 2c 6d 79 25 28  67 25 29 3a ef 32 33 2c  |d%),my%(g%):.23,|
00004c50  32 37 3b 6d 25 28 54 25  2c 67 25 29 7c 3a f0 26  |27;m%(T%,g%)|:.&|
00004c60  45 44 2c 6d 78 25 28 67  25 2c 48 61 6e 64 25 29  |ED,mx%(g%,Hand%)|
00004c70  2c 6d 79 25 28 67 25 29  3a ed 0d 22 f6 0f d4 32  |,my%(g%):.."...2|
00004c80  2c 53 4f 25 2c 31 2c 31  30 0d 23 00 19 e3 54 25  |,SO%,1,10.#...T%|
00004c90  3d 36 b8 38 3a e7 54 25  3e 36 f2 66 6c 79 3a 8b  |=6.8:.T%>6.fly:.|
00004ca0  c8 96 0d 23 0a 12 2a 53  43 48 4f 4f 53 45 20 70  |...#..*SCHOOSE p|
00004cb0  6c 61 69 6e 0d 23 14 2d  e7 ac 67 72 65 65 6e 25  |lain.#.-..green%|
00004cc0  3a c8 96 3a f0 26 45 44  2c 6d 78 25 28 67 25 2c  |:..:.&ED,mx%(g%,|
00004cd0  48 61 6e 64 25 29 2c 6d  79 25 28 67 25 29 8b c8  |Hand%),my%(g%)..|
00004ce0  96 0d 23 1e 30 ef 32 33  2c 32 37 3b 6d 25 28 54  |..#.0.23,27;m%(T|
00004cf0  25 2c 67 25 29 7c 3a f0  26 45 44 2c 6d 78 25 28  |%,g%)|:.&ED,mx%(|
00004d00  67 25 2c 48 61 6e 64 25  29 2c 6d 79 25 28 67 25  |g%,Hand%),my%(g%|
00004d10  29 0d 23 28 54 e7 6c 69  65 25 3d 31 3a e6 31 3a  |).#(T.lie%=1:.1:|
00004d20  e3 49 25 3d 30 b8 32 30  3a c8 92 73 61 25 28 30  |.I%=0.20:..sa%(0|
00004d30  2c 54 25 2d 36 2c 49 25  29 2b 28 54 25 2b 31 30  |,T%-6,I%)+(T%+10|
00004d40  29 2a 48 61 6e 64 25 2c  73 61 25 28 31 2c 54 25  |)*Hand%,sa%(1,T%|
00004d50  2d 36 2c 49 25 29 2b 6d  79 25 28 67 25 29 3a ed  |-6,I%)+my%(g%):.|
00004d60  3a e6 38 2c 30 0d 23 32  05 ed 0d 23 3c 0d f2 66  |:.8,0.#2...#<..f|
00004d70  6c 79 3a f2 66 6c 79 0d  23 46 12 2a 53 43 48 4f  |ly:.fly.#F.*SCHO|
00004d80  4f 53 45 20 70 6c 61 69  6e 0d 23 50 4d c8 96 3a  |OSE plain.#PM..:|
00004d90  f0 26 45 44 2c 6d 78 25  28 67 25 2c 48 61 6e 64  |.&ED,mx%(g%,Hand|
00004da0  25 29 2c 6d 79 25 28 67  25 29 3a ef 32 33 2c 32  |%),my%(g%):.23,2|
00004db0  37 3b 6d 25 28 38 2c 67  25 29 7c 3a f0 26 45 44  |7;m%(8,g%)|:.&ED|
00004dc0  2c 6d 78 25 28 67 25 2c  48 61 6e 64 25 29 2c 6d  |,mx%(g%,Hand%),m|
00004dd0  79 25 28 67 25 29 0d 23  5a 05 e1 0d 23 64 07 f4  |y%(g%).#Z...#d..|
00004de0  20 15 0d 23 6e 0d dd f2  64 65 6c 28 54 25 29 0d  | ..#n...del(T%).|
00004df0  23 78 0e d1 3d 30 3a f5  fd 91 3e 54 25 0d 23 82  |#x..=0:...>T%.#.|
00004e00  05 e1 0d 23 8c 07 f4 20  15 0d 23 96 0c dd f2 62  |...#... ..#....b|
00004e10  75 6e 6b 65 72 0d 23 a0  16 e6 33 32 2c 30 3a 48  |unker.#...32,0:H|
00004e20  25 2b 3d 32 3a 50 25 3d  6f 50 25 0d 23 aa 0d f2  |%+=2:P%=oP%.#...|
00004e30  64 72 61 77 62 75 6e 6b  0d 23 b4 13 e6 32 3a 48  |drawbunk.#...2:H|
00004e40  25 2b 3d 32 3a 50 25 3d  6f 50 25 0d 23 be 0d f2  |%+=2:P%=oP%.#...|
00004e50  64 72 61 77 62 75 6e 6b  0d 23 c8 09 48 25 2d 3d  |drawbunk.#..H%-=|
00004e60  34 0d 23 d2 05 e1 0d 23  dc 07 f4 20 15 0d 23 e6  |4.#....#... ..#.|
00004e70  0e dd f2 64 72 61 77 62  75 6e 6b 0d 23 f0 3c 6e  |...drawbunk.#.<n|
00004e80  70 25 3d a4 6d 61 70 31  3a f2 6d 61 70 28 43 58  |p%=.map1:.map(CX|
00004e90  25 2c 43 59 25 2c 48 25  2c 34 2c 72 29 3a f2 6d  |%,CY%,H%,4,r):.m|
00004ea0  61 70 33 28 53 58 25 2c  53 59 25 2c 48 25 2c 34  |ap3(SX%,SY%,H%,4|
00004eb0  2c 72 2c 43 58 25 29 0d  23 fa 35 e3 49 25 3d 31  |,r,CX%).#.5.I%=1|
00004ec0  b8 6e 70 25 2d 31 3a f2  6d 61 70 33 28 58 49 25  |.np%-1:.map3(XI%|
00004ed0  2c 59 49 25 2c 48 25 2c  38 35 2c 72 2c 43 58 25  |,YI%,H%,85,r,CX%|
00004ee0  29 3a ec 43 58 25 2c 43  59 25 3a ed 0d 24 04 0f  |):.CX%,CY%:..$..|
00004ef0  f0 38 35 2c 53 58 25 2c  53 59 25 0d 24 0e 05 e1  |.85,SX%,SY%.$...|
00004f00  0d 24 18 07 f4 20 15 0d  24 22 21 dd f2 6d 61 70  |.$... ..$"!..map|
00004f10  33 28 f8 20 78 25 2c f8  20 79 25 2c 7a 25 2c 70  |3(. x%,. y%,z%,p|
00004f20  25 2c 72 2c 43 58 25 29  0d 24 2c 08 ea 70 4f 25  |%,r,CX%).$,..pO%|
00004f30  0d 24 36 56 79 25 3d a4  6d 61 70 32 3a 78 25 3d  |.$6Vy%=.map2:x%=|
00004f40  a4 6d 61 70 32 3a 78 65  3d 76 61 2a 78 25 2b 76  |.map2:xe=va*x%+v|
00004f50  62 2a 79 25 3a 7a 65 3d  28 76 69 2a 78 25 2b 76  |b*y%:ze=(vi*x%+v|
00004f60  61 2a 79 25 2b 72 29 2a  4d 61 3a 78 25 3d 64 2a  |a*y%+r)*Ma:x%=d*|
00004f70  78 65 20 81 7a 65 3a 79  25 3d 2d 28 64 2a 7a 25  |xe .ze:y%=-(d*z%|
00004f80  81 7a 65 29 2a 32 0d 24  40 29 e7 ac 67 72 65 65  |.ze)*2.$@)..gree|
00004f90  6e 25 e7 79 25 3e 2d 33  32 84 79 25 3c 26 46 46  |n%.y%>-32.y%<&FF|
00004fa0  46 46 38 30 30 30 20 79  25 3d 2d 36 30 30 30 0d  |FF8000 y%=-6000.|
00004fb0  24 4a 15 78 25 3d 78 25  2d b4 28 78 25 2d 43 58  |$J.x%=x%-.(x%-CX|
00004fc0  25 29 2a 34 0d 24 54 0f  70 4f 25 3d b0 78 25 2c  |%)*4.$T.pO%=.x%,|
00004fd0  79 25 29 0d 24 5e 0b c8  95 70 4f 25 3e 33 0d 24  |y%).$^...pO%>3.$|
00004fe0  68 15 79 25 2b 3d 34 3a  70 4f 25 3d b0 78 25 2c  |h.y%+=4:pO%=.x%,|
00004ff0  79 25 29 0d 24 72 05 ce  0d 24 7c 0d f0 70 25 2c  |y%).$r...$|..p%,|
00005000  78 25 2c 79 25 0d 24 86  05 e1 0d 24 90 07 f4 20  |x%,y%.$....$... |
00005010  15 0d 24 9a 0b dd f2 73  63 65 65 6e 0d 24 a4 0d  |..$....sceen.$..|
00005020  4e 6f 25 3d a4 6d 61 70  31 0d 24 ae 0c 72 6f 75  |No%=.map1.$..rou|
00005030  67 68 3d 50 25 0d 24 b8  0c e7 67 72 65 65 6e 25  |gh=P%.$...green%|
00005040  8c 0d 24 c2 0d 43 6f 25  3d a4 6d 61 70 31 0d 24  |..$..Co%=.map1.$|
00005050  cc 0f f5 3a 6e 70 25 3d  a4 6d 61 70 31 0d 24 d6  |...:np%=.map1.$.|
00005060  22 50 25 3d 50 25 2b 6e  70 25 2a 34 2b 34 3a 43  |"P%=P%+np%*4+4:C|
00005070  6f 25 3d a4 6d 61 70 31  3a 4e 6f 25 2d 3d 31 0d  |o%=.map1:No%-=1.|
00005080  24 e0 16 fd 43 6f 25 3d  35 84 43 6f 25 3d 31 3a  |$...Co%=5.Co%=1:|
00005090  50 25 2d 3d 31 0d 24 ea  05 cd 0d 24 f4 2d 73 50  |P%-=1.$....$.-sP|
000050a0  25 3d 50 25 3a e3 54 25  3d 31 b8 4e 6f 25 3a 43  |%=P%:.T%=1.No%:C|
000050b0  6f 25 3d a4 6d 61 70 31  3a e7 43 6f 25 3d 36 77  |o%=.map1:.Co%=6w|
000050c0  61 74 65 72 3d 50 25 0d  24 fe 12 e7 67 72 65 65  |ater=P%.$...gree|
000050d0  6e 25 80 43 6f 25 3d 34  8c 0d 25 08 1b 6e 70 25  |n%.Co%=4..%..np%|
000050e0  3d a4 6d 61 70 31 3a 50  25 3d 50 25 2b 6e 70 25  |=.map1:P%=P%+np%|
000050f0  2a 34 2b 34 0d 25 12 2a  cc 3a 6f 50 25 3d 50 25  |*4+4.%.*.:oP%=P%|
00005100  3a 43 6f 25 3d 43 6f 25  2d 28 28 43 6f 25 3d 31  |:Co%=Co%-((Co%=1|
00005110  29 80 67 72 65 65 6e 25  29 3a e6 43 6f 25 0d 25  |).green%):.Co%.%|
00005120  1c 19 f2 64 72 61 77 69  74 3a e7 43 6f 25 3d 31  |...drawit:.Co%=1|
00005130  f2 62 75 6e 6b 65 72 0d  25 26 10 cd 3a ed 3a e7  |.bunker.%&..:.:.|
00005140  67 72 65 65 6e 25 8c 0d  25 30 08 e6 38 2c 30 0d  |green%..%0..8,0.|
00005150  25 3a 11 2a 53 43 48 4f  4f 53 45 20 48 4f 4c 45  |%:.*SCHOOSE HOLE|
00005160  0d 25 44 1a f0 26 45 44  2c 2d 36 2c 2d 28 64 2a  |.%D..&ED,-6,-(d*|
00005170  48 25 81 72 29 2a 32 2d  31 32 0d 25 4e 05 cd 0d  |H%.r)*2-12.%N...|
00005180  25 58 13 f2 74 72 65 65  73 3a 2a 46 58 31 31 32  |%X..trees:*FX112|
00005190  2c 32 0d 25 62 15 e7 67  72 65 65 6e 25 fb 31 33  |,2.%b..green%.13|
000051a0  35 3a 8b fb 31 33 39 0d  25 6c 25 db 3a 50 25 3d  |5:..139.%l%.:P%=|
000051b0  73 50 25 3a e3 54 25 3d  31 b8 4e 6f 25 3a 43 6f  |sP%:.T%=1.No%:Co|
000051c0  25 3d a4 6d 61 70 31 3a  e6 43 6f 25 0d 25 76 12  |%=.map1:.Co%.%v.|
000051d0  e7 67 72 65 65 6e 25 80  43 6f 25 3d 34 8c 0d 25  |.green%.Co%=4..%|
000051e0  80 1b 6e 70 25 3d a4 6d  61 70 31 3a 50 25 3d 50  |..np%=.map1:P%=P|
000051f0  25 2b 6e 70 25 2a 34 2b  34 0d 25 8a 13 cc 6f 50  |%+np%*4+4.%...oP|
00005200  25 3d 50 25 3a f2 64 72  61 77 69 74 0d 25 94 05  |%=P%:.drawit.%..|
00005210  cd 0d 25 9e 05 ed 0d 25  a8 0c e7 67 72 65 65 6e  |..%....%...green|
00005220  25 8c 0d 25 b2 08 e6 38  2c 30 0d 25 bc 16 2a 53  |%..%...8,0.%..*S|
00005230  43 48 4f 4f 53 45 20 42  4c 41 43 4b 48 4f 4c 45  |CHOOSE BLACKHOLE|
00005240  0d 25 c6 1a f0 26 45 44  2c 2d 36 2c 2d 28 64 2a  |.%...&ED,-6,-(d*|
00005250  48 25 81 72 29 2a 32 2d  31 32 0d 25 d0 05 cd 0d  |H%.r)*2-12.%....|
00005260  25 da 0c 2a 46 58 31 31  32 2c 31 0d 25 e4 0f c8  |%..*FX112,1.%...|
00005270  8e 6a 75 6d 70 25 28 31  29 ca 0d 25 ee 11 c9 31  |.jump%(1)..%...1|
00005280  3a fb 38 2c 32 30 38 2c  30 2c 30 0d 25 f8 14 c9  |:.8,208,0,0.%...|
00005290  32 3a fb 38 2c 31 34 34  2c 31 32 38 2c 38 30 0d  |2:.8,144,128,80.|
000052a0  26 02 15 c9 33 3a fb 38  2c 31 31 32 2c 31 31 32  |&...3:.8,112,112|
000052b0  2c 31 31 32 0d 26 0c 13  c9 34 3a fb 38 2c 32 34  |,112.&...4:.8,24|
000052c0  30 2c 31 31 32 2c 30 0d  26 16 12 c9 35 3a fb 38  |0,112,0.&...5:.8|
000052d0  2c 39 36 2c 39 36 2c 34  38 0d 26 20 14 c9 36 3a  |,96,96,48.& ..6:|
000052e0  fb 38 2c 32 30 38 2c 38  30 2c 31 34 34 0d 26 2a  |.8,208,80,144.&*|
000052f0  05 cb 0d 26 34 05 e1 0d  26 3e 07 f4 20 15 0d 26  |...&4...&>.. ..&|
00005300  48 0e dd f2 67 74 6f 73  28 59 25 29 0d 26 52 2c  |H...gtos(Y%).&R,|
00005310  ef 32 36 3a ec 30 2c 59  25 3a ec 31 32 37 39 2c  |.26:.0,Y%:.1279,|
00005320  59 25 2b 33 31 39 3a 2a  53 47 45 54 20 74 6f 70  |Y%+319:*SGET top|
00005330  6f 66 73 63 72 65 65 6e  0d 26 5c 05 e1 0d 26 66  |ofscreen.&\...&f|
00005340  07 f4 20 15 0d 26 70 0d  dd f2 67 65 74 69 6e 66  |.. ..&p...getinf|
00005350  6f 0d 26 7a 15 2a 43 48  41 4e 4e 45 4c 56 4f 49  |o.&z.*CHANNELVOI|
00005360  43 45 20 31 20 31 0d 26  84 15 ea 79 61 32 2c 42  |CE 1 1.&...ya2,B|
00005370  58 25 2c 42 59 25 2c 79  73 74 25 0d 26 8e 0e f2  |X%,BY%,yst%.&...|
00005380  67 74 6f 73 28 37 30 34  29 0d 26 98 0a c8 91 38  |gtos(704).&....8|
00005390  30 2c 30 0d 26 a2 18 ef  32 34 2c 30 3b 37 30 34  |0,0.&...24,0;704|
000053a0  3b 31 31 33 31 3b 31 30  32 33 3b 0d 26 ac 0f e6  |;1131;1023;.&...|
000053b0  31 33 39 3a fb 31 33 39  3a da 0d 26 b6 16 e6 38  |139:.139:..&...8|
000053c0  3a c8 93 30 2c 37 30 34  2c 34 31 32 2c 33 31 39  |:..0,704,412,319|
000053d0  0d 26 c0 15 c8 93 34 31  32 2c 37 30 34 2c 32 32  |.&....412,704,22|
000053e0  38 2c 33 31 39 0d 26 ca  15 c8 93 36 34 30 2c 37  |8,319.&....640,7|
000053f0  30 34 2c 34 39 31 2c 33  31 39 0d 26 d4 16 e6 33  |04,491,319.&...3|
00005400  3a c8 93 34 2c 37 30 38  2c 34 30 34 2c 33 31 31  |:..4,708,404,311|
00005410  0d 26 de 15 c8 93 34 31  36 2c 37 30 38 2c 32 32  |.&....416,708,22|
00005420  30 2c 33 31 31 0d 26 e8  15 c8 93 36 34 34 2c 37  |0,311.&....644,7|
00005430  30 38 2c 34 38 33 2c 33  31 31 0d 26 f2 16 e6 34  |08,483,311.&...4|
00005440  3a c8 93 38 2c 37 31 32  2c 33 39 36 2c 33 30 33  |:..8,712,396,303|
00005450  0d 26 fc 15 c8 93 34 32  30 2c 37 31 32 2c 32 31  |.&....420,712,21|
00005460  32 2c 33 30 33 0d 27 06  15 c8 93 36 34 38 2c 37  |2,303.'....648,7|
00005470  31 32 2c 34 37 35 2c 33  30 33 0d 27 10 16 87 3a  |12,475,303.'...:|
00005480  ef 32 38 2c 36 2c 38 2c  37 34 2c 31 3a fb 31 32  |.28,6,8,74,1:.12|
00005490  0d 27 1a 36 f1 8a 34 31  2c 30 29 22 50 4c 41 59  |.'.6..41,0)"PLAY|
000054a0  45 52 20 20 20 20 20 20  20 20 20 3a 20 22 3b 3a  |ER         : ";:|
000054b0  fb 38 3a f1 6e 61 6d 65  24 28 70 6c 61 79 65 72  |.8:.name$(player|
000054c0  25 29 3a fb 31 32 0d 27  24 25 f1 8a 34 31 2c 31  |%):.12.'$%..41,1|
000054d0  29 22 50 4c 41 59 49 4e  47 20 41 54 20 20 20 20  |)"PLAYING AT    |
000054e0  20 3a 20 22 43 6f 75 72  73 65 24 0d 27 2e 24 f1  | : "Course$.'.$.|
000054f0  8a 34 31 2c 32 29 22 48  4f 4c 45 20 4e 55 4d 42  |.41,2)"HOLE NUMB|
00005500  45 52 20 20 20 20 3a 20  22 3b 48 6f 6c 65 25 0d  |ER    : ";Hole%.|
00005510  27 38 34 f1 8a 34 31 2c  33 29 22 50 41 52 20 20  |'84..41,3)"PAR  |
00005520  20 20 20 20 20 20 20 20  20 20 3a 20 22 3b 7e 6d  |          : ";~m|
00005530  61 70 3f 28 6d 61 70 70  6f 69 6e 74 25 2b 26 32  |ap?(mappoint%+&2|
00005540  46 39 29 0d 27 42 45 f1  8a 34 31 2c 34 29 22 4f  |F9).'BE..41,4)"O|
00005550  56 45 52 41 4c 4c 20 4c  45 4e 47 54 48 20 3a 20  |VERALL LENGTH : |
00005560  22 3b 7e 28 6d 61 70 21  28 6d 61 70 70 6f 69 6e  |";~(map!(mappoin|
00005570  74 25 2b 26 32 46 41 29  29 80 26 46 46 46 46 3b  |t%+&2FA)).&FFFF;|
00005580  22 20 59 41 52 44 53 22  0d 27 4c 56 f1 8a 34 31  |" YARDS".'LV..41|
00005590  2c 35 29 22 52 41 4e 47  45 20 54 4f 20 48 4f 4c  |,5)"RANGE TO HOL|
000055a0  45 20 20 3a 20 22 3b 3a  fb 38 3a f1 3b 28 52 25  |E  : ";:.8:.;(R%|
000055b0  81 32 31 29 2a 28 31 2d  67 72 65 65 6e 25 2a 32  |.21)*(1-green%*2|
000055c0  29 3b 3a e7 67 72 65 65  6e 25 3a f1 22 20 46 45  |);:.green%:." FE|
000055d0  45 54 22 3a 8b f1 22 20  59 41 52 44 53 22 0d 27  |ET":.." YARDS".'|
000055e0  56 2a fb 31 32 3a f1 8a  34 31 2c 36 29 22 53 54  |V*.12:..41,6)"ST|
000055f0  52 4f 4b 45 53 20 50 4c  41 59 45 44 20 3a 20 22  |ROKES PLAYED : "|
00005600  3b 73 74 72 6f 6b 65 25  0d 27 60 0c f2 73 68 6f  |;stroke%.'`..sho|
00005610  77 6c 69 65 0d 27 6a 0c  f2 73 65 74 77 69 6e 64  |wlie.'j..setwind|
00005620  0d 27 74 0d f2 73 68 6f  77 77 69 6e 64 0d 27 7e  |.'t..showwind.'~|
00005630  05 f5 0d 27 88 0a c8 91  38 30 2c 30 0d 27 92 0c  |...'....80,0.'..|
00005640  f2 67 65 74 63 6c 75 62  0d 27 9c 22 fb 31 32 3a  |.getclub.'.".12:|
00005650  f1 8a 32 29 22 44 49 52  45 43 54 49 4f 4e 20 54  |..2)"DIRECTION T|
00005660  48 45 4e 20 50 4f 57 45  52 22 0d 27 a6 1d fb 38  |HEN POWER".'...8|
00005670  3a f1 8a 34 29 41 24 28  76 70 25 29 22 20 53 45  |:..4)A$(vp%)" SE|
00005680  4c 45 43 54 45 44 22 0d  27 b0 38 e6 38 3a c8 93  |LECTED".'.8.8:..|
00005690  34 36 2c 37 37 36 2c 33  32 30 2c 31 32 38 3a c8  |46,776,320,128:.|
000056a0  93 34 34 2c 37 37 36 2c  33 32 34 2c 31 32 38 3a  |.44,776,324,128:|
000056b0  86 34 38 2c 38 36 36 2c  33 36 34 2c 38 36 36 0d  |.48,866,364,866.|
000056c0  27 ba 3f e6 36 3a c8 93  c8 90 34 38 2c 38 37 30  |'.?.6:....48,870|
000056d0  2c 33 31 36 2c 33 32 3a  e6 31 32 3a ec 37 38 2c  |,316,32:.12:.78,|
000056e0  38 39 38 3a ef 35 3a f1  22 43 4c 55 42 20 50 4f  |898:.5:."CLUB PO|
000056f0  57 45 52 20 4d 45 54 45  52 22 bd 34 3a 87 0d 27  |WER METER".4:..'|
00005700  c4 4b 86 35 36 2c 37 38  34 2c 35 36 2c 38 32 34  |.K.56,784,56,824|
00005710  3a e3 54 25 3d 34 39 b8  31 30 30 3a e7 a8 28 28  |:.T%=49.100:..((|
00005720  54 25 2f 31 30 30 2a 54  25 29 83 32 35 29 3d 30  |T%/100*T%).25)=0|
00005730  3a 86 54 25 2a 33 2b 35  36 2c 37 38 34 2c 54 25  |:.T%*3+56,784,T%|
00005740  2a 33 2b 35 36 2c 38 32  34 0d 27 ce 05 ed 0d 27  |*3+56,824.'....'|
00005750  d8 13 c8 93 35 36 2c 37  39 32 2c 33 30 30 2c 32  |....56,792,300,2|
00005760  34 0d 27 e2 19 e6 31 31  3a c8 93 c8 90 35 36 2c  |4.'...11:....56,|
00005770  37 39 36 2c 33 30 30 2c  31 36 0d 27 ec 20 6d 79  |796,300,16.'. my|
00005780  25 3d 32 35 36 2d 67 72  65 65 6e 25 2a 31 36 34  |%=256-green%*164|
00005790  3a c8 99 36 2c 31 30 36  2c 32 0d 27 f6 09 c8 91  |:..6,106,2.'....|
000057a0  30 2c 30 0d 28 00 3e c8  97 c8 93 34 33 32 2b 28  |0,0.(.>....432+(|
000057b0  67 72 65 65 6e 25 3d 30  29 2a 31 36 30 2c 6d 79  |green%=0)*160,my|
000057c0  25 2c 34 31 34 2d 28 67  72 65 65 6e 25 3d 30 29  |%,414-(green%=0)|
000057d0  2a 33 32 30 2c 30 3a c8  97 b8 36 34 30 2c 6d 79  |*320,0:...640,my|
000057e0  25 0d 28 0a 13 78 73 25  3d 30 3a 4f 58 25 3d 30  |%.(..xs%=0:OX%=0|
000057f0  3a 75 3d 30 0d 28 14 10  f5 3a c8 97 58 25 2c 59  |:u=0.(...:..X%,Y|
00005800  25 2c 43 25 0d 28 1e 13  e7 43 25 3d 31 84 43 25  |%,C%.(...C%=1.C%|
00005810  3d 34 fd b9 3a fd a3 0d  28 28 23 61 25 3d 28 58  |=4..:...((#a%=(X|
00005820  25 2d 78 73 25 2d 36 34  30 29 2f 38 3a e7 94 61  |%-xs%-640)/8:..a|
00005830  25 3c 31 30 61 25 3d b4  61 25 0d 28 32 09 75 2b  |%<10a%=.a%.(2.u+|
00005840  3d 61 25 0d 28 3c 0d e7  58 25 3c 3e 78 73 25 8c  |=a%.(<..X%<>xs%.|
00005850  0d 28 46 41 42 58 25 3d  30 3a 42 59 25 3d 2d 52  |.(FABX%=0:BY%=-R|
00005860  25 3a f2 76 74 28 76 69  2a 42 59 25 2b 76 61 2a  |%:.vt(vi*BY%+va*|
00005870  42 58 25 2c 76 61 2a 42  59 25 2b 76 62 2a 42 58  |BX%,va*BY%+vb*BX|
00005880  25 2c 48 25 29 3a 79 73  74 25 3d 79 73 25 2b 32  |%,H%):yst%=ys%+2|
00005890  35 0d 28 50 43 f5 3a 42  58 25 2b 3d 75 3a 42 59  |5.(PC.:BX%+=u:BY|
000058a0  25 2b 3d 38 30 3a f2 76  74 28 76 69 2a 42 59 25  |%+=80:.vt(vi*BY%|
000058b0  2b 76 61 2a 42 58 25 2c  76 61 2a 42 59 25 2b 76  |+va*BX%,va*BY%+v|
000058c0  62 2a 42 58 25 2c 48 25  29 3a fd 79 73 25 3e 3d  |b*BX%,H%):.ys%>=|
000058d0  79 73 74 25 0d 28 5a 05  cd 0d 28 64 12 c8 97 b8  |yst%.(Z...(d....|
000058e0  78 73 25 2d 36 34 30 2c  6d 79 25 0d 28 6e 09 fd  |xs%-640,my%.(n..|
000058f0  43 25 3d 32 0d 28 78 07  c8 97 87 0d 28 82 0d 70  |C%=2.(x.....(..p|
00005900  25 3d a4 70 6f 77 65 72  0d 28 8c 12 53 4f 25 3d  |%=.power.(..SO%=|
00005910  2d 31 35 2a 70 25 2f 31  30 30 0d 28 96 1d e7 ac  |-15*p%/100.(....|
00005920  67 72 65 65 6e 25 80 76  70 25 3d 31 33 75 3d 75  |green%.vp%=13u=u|
00005930  2b b3 28 35 29 2d 33 0d  28 a0 32 75 3d 75 2f 28  |+.(5)-3.(.2u=u/(|
00005940  38 2d 67 25 2a 32 29 3a  79 61 3d a8 28 28 43 56  |8-g%*2):ya=.((CV|
00005950  25 28 76 70 25 29 2f 31  30 30 29 2a 70 25 29 3a  |%(vp%)/100)*p%):|
00005960  e7 79 61 3c 31 79 61 3d  31 0d 28 aa 0f 75 64 3d  |.ya<1ya=1.(..ud=|
00005970  75 2f 28 79 61 2a 33 29  0d 28 b4 12 70 25 3d 70  |u/(ya*3).(..p%=p|
00005980  25 2a 2e 33 32 3a 68 25  3d 30 0d 28 be 1b e7 76  |%*.32:h%=0.(...v|
00005990  70 25 3d 31 33 70 25 3d  35 2a 2d 28 67 72 65 65  |p%=13p%=5*-(gree|
000059a0  6e 25 3d a3 29 0d 28 c8  18 f2 64 65 6c 28 31 30  |n%=.).(...del(10|
000059b0  30 29 3a 73 74 72 6f 6b  65 25 2b 3d 31 0d 28 d2  |0):stroke%+=1.(.|
000059c0  20 ef 34 2c 32 36 3a 87  3a 2a 53 43 48 4f 4f 53  | .4,26:.:*SCHOOS|
000059d0  45 20 74 6f 70 6f 66 73  63 72 65 65 6e 0d 28 dc  |E topofscreen.(.|
000059e0  13 e6 38 2c 30 3a f0 26  45 44 2c 30 2c 37 30 34  |..8,0:.&ED,0,704|
000059f0  0d 28 e6 0d f2 77 69 6e  64 6f 77 73 32 0d 28 f0  |.(...windows2.(.|
00005a00  05 e1 0d 28 fa 07 f4 20  15 0d 29 04 0d dd f2 73  |...(... ..)....s|
00005a10  68 6f 77 6c 69 65 0d 29  0e 07 ea 61 24 0d 29 18  |howlie.)...a$.).|
00005a20  13 61 24 3d 22 4f 4e 20  54 48 45 20 22 3a fb 38  |.a$="ON THE ":.8|
00005a30  0d 29 22 0c f1 8a 34 31  2c 37 29 3b 0d 29 2c 21  |.)"...41,7);.),!|
00005a40  62 75 6e 6b 25 3d a3 3a  62 61 64 25 3d a3 3a 77  |bunk%=.:bad%=.:w|
00005a50  69 6e 64 25 3d 73 6b 69  6c 6c 25 3e 32 0d 29 36  |ind%=skill%>2.)6|
00005a60  0c e7 67 72 65 65 6e 25  8c 0d 29 40 34 e7 6c 69  |..green%..)@4.li|
00005a70  65 25 3d 35 20 f1 61 24  22 47 52 45 45 4e 22 3b  |e%=5 .a$"GREEN";|
00005a80  3a 8b f1 22 4f 4e 20 45  44 47 45 20 4f 46 20 47  |:.."ON EDGE OF G|
00005a90  52 45 45 4e 22 3b 3a 6c  69 65 25 3d 35 0d 29 4a  |REEN";:lie%=5.)J|
00005aa0  05 cd 0d 29 54 0b c8 8e  6c 69 65 25 ca 0d 29 5e  |...)T...lie%..)^|
00005ab0  1c c9 31 3a f1 22 49 4e  20 41 20 42 55 4e 4b 45  |..1:."IN A BUNKE|
00005ac0  52 20 22 3b 3a f2 67 6f  62 0d 29 68 17 c9 34 3a  |R ";:.gob.)h..4:|
00005ad0  f1 22 4f 4e 20 41 20 50  41 54 48 57 41 59 22 3b  |."ON A PATHWAY";|
00005ae0  0d 29 72 0e c9 36 3a f2  77 65 74 6d 65 73 0d 29  |.)r..6:.wetmes.)|
00005af0  7c 2a c9 37 3a e7 79 31  25 3c 3e 73 74 79 25 3a  ||*.7:.y1%<>sty%:|
00005b00  f1 61 24 22 46 41 49 52  57 41 59 22 3b 3a 8b f1  |.a$"FAIRWAY";:..|
00005b10  61 24 22 54 45 45 22 3b  0d 29 86 1d c9 39 3a f1  |a$"TEE";.)...9:.|
00005b20  22 49 4e 20 54 48 45 20  52 4f 55 47 48 20 22 3b  |"IN THE ROUGH ";|
00005b30  3a f2 67 6f 62 0d 29 90  05 cb 0d 29 9a 05 e1 0d  |:.gob.)....)....|
00005b40  29 a4 07 f4 20 15 0d 29  ae 0c dd f2 77 65 74 6d  |)... ..)....wetm|
00005b50  65 73 0d 29 b8 12 e6 36  3a 62 75 6e 6b 25 3d b9  |es.)...6:bunk%=.|
00005b60  3a ea 54 25 0d 29 c2 0b  54 25 3d b3 28 33 29 0d  |:.T%.)..T%=.(3).|
00005b70  29 cc 09 c8 8e 54 25 ca  0d 29 d6 1d c9 31 2c 33  |)....T%..)...1,3|
00005b80  3a f1 22 49 4e 20 53 48  41 4c 4c 4f 57 20 57 41  |:."IN SHALLOW WA|
00005b90  54 45 52 22 3b 0d 29 e0  3e c9 32 3a e7 77 65 6c  |TER";.).>.2:.wel|
00005ba0  6c 69 65 25 f1 22 49 54  27 53 20 41 20 57 45 4c  |lie%."IT'S A WEL|
00005bb0  4c 49 45 20 4a 4f 42 22  3b 3a 8b f1 22 42 41 4c  |LIE JOB";:.."BAL|
00005bc0  41 4e 43 45 44 20 4f 4e  20 4c 49 4c 59 20 50 41  |ANCED ON LILY PA|
00005bd0  44 22 3b 0d 29 ea 05 cb  0d 29 f4 05 e1 0d 29 fe  |D";.)....)....).|
00005be0  07 f4 20 15 0d 2a 08 09  dd f2 67 6f 62 0d 2a 12  |.. ..*....gob.*.|
00005bf0  3a ea 67 24 2c 62 24 3a  67 24 3d 22 47 4f 4f 44  |:.g$,b$:g$="GOOD|
00005c00  20 4c 49 45 22 3a e7 6c  69 65 25 3d 39 62 24 3d  | LIE":.lie%=9b$=|
00005c10  22 42 41 44 20 4c 49 45  22 3a 8b 62 24 3d 22 50  |"BAD LIE":.b$="P|
00005c20  4c 55 47 47 45 44 22 0d  2a 1c 0d c8 8e 73 6b 69  |LUGGED".*....ski|
00005c30  6c 6c 25 ca 0d 2a 26 14  c9 31 3a f1 22 4e 4f 20  |ll%..*&..1:."NO |
00005c40  45 46 46 45 43 54 22 3b  0d 2a 30 15 c9 32 2c 33  |EFFECT";.*0..2,3|
00005c50  3a f1 67 24 3b 3a 62 75  6e 6b 25 3d b9 0d 2a 3a  |:.g$;:bunk%=..*:|
00005c60  27 c9 34 3a 62 75 6e 6b  25 3d b9 3a e7 b3 28 32  |'.4:bunk%=.:..(2|
00005c70  29 3d 32 f1 62 24 3b 3a  62 61 64 25 3d 31 3a 8b  |)=2.b$;:bad%=1:.|
00005c80  f1 67 24 3b 0d 2a 44 05  cb 0d 2a 4e 05 e1 0d 2a  |.g$;.*D...*N...*|
00005c90  58 07 f4 20 15 0d 2a 62  0b dd a4 70 6f 77 65 72  |X.. ..*b...power|
00005ca0  0d 2a 6c 13 ea 58 25 2c  43 25 2c 63 25 2c 70 25  |.*l..X%,C%,c%,p%|
00005cb0  2c 61 25 0d 2a 76 0a c8  91 38 30 2c 30 0d 2a 80  |,a%.*v...80,0.*.|
00005cc0  1d fb 31 32 3a f2 62 75  74 74 28 30 29 3a f2 64  |..12:.butt(0):.d|
00005cd0  65 6c 28 31 29 3a 61 25  3d 31 0d 2a 8a 12 c8 95  |el(1):a%=1.*....|
00005ce0  43 25 3d 30 80 63 25 3c  3e 31 35 36 0d 2a 94 16  |C%=0.c%<>156.*..|
00005cf0  70 25 2b 3d 61 25 3a e7  70 25 3d 31 30 30 61 25  |p%+=a%:.p%=100a%|
00005d00  3d b9 0d 2a 9e 14 63 25  2b 3d 31 3a e6 38 3a e7  |=..*..c%+=1:.8:.|
00005d10  63 25 80 31 c8 96 0d 2a  a8 36 c8 93 c8 90 35 36  |c%.1...*.6....56|
00005d20  2c 37 39 36 2c 70 25 2a  33 2c 31 36 3a e6 31 31  |,796,p%*3,16:.11|
00005d30  3a c8 93 c8 90 35 36 2b  70 25 2a 33 2c 37 39 36  |:....56+p%*3,796|
00005d40  2c 33 30 30 2d 70 25 2a  33 2c 31 36 0d 2a b2 30  |,300-p%*3,16.*.0|
00005d50  f1 8a 32 2c 34 29 3b a8  28 70 25 2f 31 30 30 2a  |..2,4);.(p%/100*|
00005d60  70 25 29 2d 28 63 25 3c  31 30 29 3b 22 25 20 20  |p%)-(c%<10);"%  |
00005d70  22 3a c8 97 58 25 2c 58  25 2c 43 25 0d 2a bc 05  |":..X%,X%,C%.*..|
00005d80  ce 0d 2a c6 0d 53 6c 3d  30 3a 73 6c 3d 30 0d 2a  |..*..Sl=0:sl=0.*|
00005d90  d0 0d e7 76 70 25 3c 3e  31 33 8c 0d 2a da 09 c8  |...vp%<>13..*...|
00005da0  8e 43 25 ca 0d 2a e4 0d  c9 31 3a 73 6c 3d 2e 30  |.C%..*...1:sl=.0|
00005db0  35 0d 2a ee 0e c9 34 3a  73 6c 3d 2d 2e 30 35 0d  |5.*...4:sl=-.05.|
00005dc0  2a f8 05 cb 0d 2b 02 05  cd 0d 2b 0c 0f e7 73 6b  |*....+....+...sk|
00005dd0  69 6c 6c 25 3c 3e 31 8c  0d 2b 16 0b c8 8e 6c 69  |ill%<>1..+....li|
00005de0  65 25 ca 0d 2b 20 23 c9  31 2c 39 3a 70 25 3d 28  |e%..+ #.1,9:p%=(|
00005df0  70 25 2f 31 30 30 29 2a  72 65 64 25 28 76 70 25  |p%/100)*red%(vp%|
00005e00  2c 62 61 64 25 29 0d 2b  2a 2f c9 36 3a 61 25 3d  |,bad%).+*/.6:a%=|
00005e10  76 70 25 2d 32 2a 28 70  25 3c 31 31 29 3a 70 25  |vp%-2*(p%<11):p%|
00005e20  3d 70 25 2f 31 30 30 2a  72 65 64 25 28 61 25 2c  |=p%/100*red%(a%,|
00005e30  62 61 64 25 29 0d 2b 34  05 cb 0d 2b 3e 05 cd 0d  |bad%).+4...+>...|
00005e40  2b 48 10 d4 31 2c 2d 31  30 2c 32 30 30 2c 31 0d  |+H..1,-10,200,1.|
00005e50  2b 52 0d e7 70 25 3c 31  70 25 3d 31 0d 2b 5c 07  |+R..p%<1p%=1.+\.|
00005e60  3d 70 25 0d 2b 66 07 f4  20 15 0d 2b 70 0d dd f2  |=p%.+f.. ..+p...|
00005e70  67 65 74 63 6c 75 62 0d  2b 7a 11 f2 62 75 74 74  |getclub.+z..butt|
00005e80  28 30 29 3a f2 63 6c 73  0d 2b 84 13 e7 67 72 65  |(0):.cls.+...gre|
00005e90  65 6e 25 76 70 25 3d 31  33 3a e1 0d 2b 8e 1b ea  |en%vp%=13:..+...|
00005ea0  58 25 2c 59 25 2c 43 25  2c 78 25 2c 79 25 2c 6f  |X%,Y%,C%,x%,y%,o|
00005eb0  78 25 2c 6f 79 25 0d 2b  98 3b 6f 78 25 3d 2d 31  |x%,oy%.+.;ox%=-1|
00005ec0  30 30 3a 87 3a ef 32 38  2c 36 2c 38 2c 37 34 2c  |00:.:.28,6,8,74,|
00005ed0  31 3a f2 6d 72 65 63 74  28 31 29 3a c8 97 20 ee  |1:.mrect(1):.. .|
00005ee0  3a fb 31 32 3a f4 3a 53  59 53 36 2c 31 30 36 2c  |:.12:.:SYS6,106,|
00005ef0  33 0d 2b a2 28 e3 54 25  3d 30 b8 31 33 3a f1 8a  |3.+.(.T%=0.13:..|
00005f00  54 58 25 28 54 25 29 2c  54 59 25 28 54 25 29 29  |TX%(T%),TY%(T%))|
00005f10  41 24 28 54 25 29 3b 3a  ed 0d 2b ac 37 fb 32 3a  |A$(T%);:..+.7.2:|
00005f20  f1 8a 36 2c 30 29 22 53  45 4c 45 43 54 20 41 20  |..6,0)"SELECT A |
00005f30  43 4c 55 42 22 3a c8 9f  26 32 30 30 30 3a c8 9e  |CLUB":..&2000:..|
00005f40  31 30 30 3a ef 35 3a e6  33 2c 32 3a f2 62 6f 78  |100:.5:.3,2:.box|
00005f50  0d 2b b6 2e f5 3a e7 c6  8f 3d 30 3a e6 33 2c 32  |.+...:...=0:.3,2|
00005f60  3a f1 8a 37 2c 31 29 22  53 45 4c 45 43 54 20 41  |:..7,1)"SELECT A|
00005f70  20 43 4c 55 42 22 3a f5  fd c6 8f 3c 3e 30 0d 2b  | CLUB":....<>0.+|
00005f80  c0 24 c8 97 58 25 2c 59  25 2c 43 25 3a 78 25 3d  |.$..X%,Y%,C%:x%=|
00005f90  58 25 81 31 32 38 3a 79  25 3d 59 25 80 26 46 46  |X%.128:y%=Y%.&FF|
00005fa0  45 30 0d 2b ca 18 e7 78  25 3c 3e 6f 78 25 84 79  |E0.+...x%<>ox%.y|
00005fb0  25 3c 3e 6f 79 25 f2 62  6f 78 0d 2b d4 35 f2 6d  |%<>oy%.box.+.5.m|
00005fc0  72 65 63 74 28 58 25 29  3a 76 70 25 3d 33 5e 78  |rect(X%):vp%=3^x|
00005fd0  25 2b 28 78 25 3d 30 29  2b 32 38 2d 79 25 81 33  |%+(x%=0)+28-y%.3|
00005fe0  32 2b 28 78 25 3d 32 80  79 25 3c 38 33 32 29 0d  |2+(x%=2.y%<832).|
00005ff0  2b de 0a fd 43 25 3c 3e  30 0d 2b e8 0f f2 62 75  |+...C%<>0.+...bu|
00006000  74 74 28 30 29 3a ef 34  0d 2b f2 09 dd f2 63 6c  |tt(0):.4.+....cl|
00006010  73 0d 2b fc 14 87 3a ef  32 38 2c 36 2c 38 2c 32  |s.+...:.28,6,8,2|
00006020  39 2c 31 3a db 0d 2c 06  05 e1 0d 2c 10 07 f4 20  |9,1:..,....,... |
00006030  15 0d 2c 1a 09 dd f2 62  6f 78 0d 2c 24 08 e6 33  |..,....box.,$..3|
00006040  2c 36 0d 2c 2e 1c c8 93  c8 90 33 32 2b 31 32 38  |,6.,......32+128|
00006050  2a 6f 78 25 2c 6f 79 25  2c 39 36 2c 33 32 0d 2c  |*ox%,oy%,96,32.,|
00006060  38 1a c8 93 c8 90 33 32  2b 31 32 38 2a 78 25 2c  |8.....32+128*x%,|
00006070  79 25 2c 39 36 2c 33 32  0d 2c 42 10 d4 31 2c 2d  |y%,96,32.,B..1,-|
00006080  31 30 2c 32 30 30 2c 31  0d 2c 4c 11 6f 78 25 3d  |10,200,1.,L.ox%=|
00006090  78 25 3a 6f 79 25 3d 79  25 0d 2c 56 05 e1 0d 2c  |x%:oy%=y%.,V...,|
000060a0  60 07 f4 20 15 0d 2c 6a  0f dd f2 6d 72 65 63 74  |`.. ..,j...mrect|
000060b0  28 52 25 29 0d 2c 74 10  e7 52 25 3e 32 38 38 f2  |(R%).,t..R%>288.|
000060c0  69 6f 70 32 0d 2c 7e 09  c8 8e 52 25 ca 0d 2c 88  |iop2.,~...R%..,.|
000060d0  22 c9 20 31 3a c8 97 c8  93 33 38 2c 38 34 34 2c  |". 1:....38,844,|
000060e0  39 30 2c 37 32 3a c8 97  b8 38 33 2c 39 31 32 0d  |90,72:...83,912.|
000060f0  2c 92 24 c9 20 31 36 32  3a c8 97 c8 93 33 38 2c  |,.$. 162:....38,|
00006100  38 34 34 2c 39 30 2c 37  32 3a c8 97 b8 38 33 2c  |844,90,72:...83,|
00006110  38 34 36 0d 2c 9c 27 c9  20 31 32 38 3a c8 97 c8  |846.,.'. 128:...|
00006120  93 31 36 32 2c 37 35 32  2c 39 30 2c 31 36 34 3a  |.162,752,90,164:|
00006130  c8 97 b8 32 30 38 2c 39  31 32 0d 2c a6 0e c9 20  |...208,912.,... |
00006140  32 35 32 3a f2 69 6f 70  0d 2c b0 27 c9 20 32 38  |252:.iop.,.'. 28|
00006150  38 3a c8 97 c8 93 31 36  32 2c 37 35 32 2c 39 30  |8:....162,752,90|
00006160  2c 31 36 34 3a c8 97 b8  32 30 38 2c 37 35 36 0d  |,164:...208,756.|
00006170  2c ba 05 cb 0d 2c c4 05  e1 0d 2c ce 07 f4 20 15  |,....,....,... .|
00006180  0d 2c d8 09 dd f2 69 6f  70 0d 2c e2 0c e7 59 25  |.,....iop.,...Y%|
00006190  3e 38 33 35 8c 0d 2c ec  20 c8 97 c8 93 32 38 38  |>835..,. ....288|
000061a0  2c 38 33 36 2c 39 30 2c  38 30 3a c8 97 b8 33 34  |,836,90,80:...34|
000061b0  39 2c 39 31 32 0d 2c f6  22 cc 20 c8 97 c8 93 32  |9,912.,.". ....2|
000061c0  38 38 2c 37 35 32 2c 39  30 2c 35 30 3a c8 97 b8  |88,752,90,50:...|
000061d0  33 34 39 2c 37 37 38 0d  2d 00 05 cd 0d 2d 0a 05  |349,778.-....-..|
000061e0  e1 0d 2d 14 07 f4 20 15  0d 2d 1e 0a dd f2 69 6f  |..-... ..-....io|
000061f0  70 32 0d 2d 28 27 e7 59  25 3d 38 33 36 c8 97 c8  |p2.-('.Y%=836...|
00006200  93 32 38 38 2c 37 35 32  2c 39 30 2c 35 30 3a c8  |.288,752,90,50:.|
00006210  97 b8 33 34 39 2c 37 38  36 0d 2d 32 27 e7 59 25  |..349,786.-2'.Y%|
00006220  3d 38 30 32 c8 97 c8 93  32 38 38 2c 38 33 36 2c  |=802....288,836,|
00006230  39 30 2c 38 30 3a c8 97  b8 33 34 39 2c 38 35 36  |90,80:...349,856|
00006240  0d 2d 3c 05 e1 0d 2d 46  07 f4 20 15 0d 2d 50 0e  |.-<...-F.. ..-P.|
00006250  dd f2 62 75 74 74 28 6f  6e 29 0d 2d 5a 0a ea 44  |..butt(on).-Z..D|
00006260  25 2c 43 25 0d 2d 64 05  f5 0d 2d 6e 0e c8 97 44  |%,C%.-d...-n...D|
00006270  25 2c 44 25 2c 43 25 0d  2d 78 0a fd 43 25 3d 6f  |%,D%,C%.-x..C%=o|
00006280  6e 0d 2d 82 05 e1 0d 2d  8c 07 f4 20 15 0d 2d 96  |n.-....-... ..-.|
00006290  0d dd f2 77 69 6e 64 6f  77 73 0d 2d a0 18 ef 32  |...windows.-...2|
000062a0  36 3a e6 31 32 38 3a da  3a f2 6d 61 69 6e 63 6f  |6:.128:.:.mainco|
000062b0  6c 73 0d 2d aa 0d e7 ac  67 72 65 65 6e 25 8c 0d  |ls.-....green%..|
000062c0  2d b4 18 e6 36 3a c8 93  c8 90 20 30 2c 30 2c 31  |-...6:.... 0,0,1|
000062d0  32 38 30 2c 37 33 36 0d  2d be 16 e6 34 3a 86 30  |280,736.-...4:.0|
000062e0  2c 37 33 32 2c 31 32 38  30 2c 37 33 32 0d 2d c8  |,732,1280,732.-.|
000062f0  1f e6 31 33 38 3a ef 32  34 2c 30 3b 37 33 36 3b  |..138:.24,0;736;|
00006300  31 32 37 39 3b 31 30 32  33 3b 3a da 0d 2d d2 0b  |1279;1023;:..-..|
00006310  f2 63 6c 6f 75 64 73 0d  2d dc 0b cc e6 31 33 35  |.clouds.-....135|
00006320  3a da 0d 2d e6 05 cd 0d  2d f0 0e dd f2 77 69 6e  |:..-....-....win|
00006330  64 6f 77 73 32 0d 2d fa  20 ef 32 36 3a c8 91 36  |dows2.-. .26:..6|
00006340  34 30 2c 37 36 38 2b 4f  25 2d 36 31 36 36 2a 67  |40,768+O%-6166*g|
00006350  72 65 65 6e 25 0d 2e 04  05 e1 0d 2e 0e 07 f4 20  |reen%.......... |
00006360  15 0d 2e 18 0c dd f2 63  6c 6f 75 64 73 0d 2e 22  |.......clouds.."|
00006370  0d ea 43 25 2c 54 25 2c  4f 25 0d 2e 2c 24 e7 76  |..C%,T%,O%..,$.v|
00006380  62 3e 30 20 4f 25 3d 9d  98 76 61 20 8b 4f 25 3d  |b>0 O%=..va .O%=|
00006390  31 38 30 2b 28 31 38 30  2d 9d 98 76 61 29 0d 2e  |180+(180-..va)..|
000063a0  36 12 4f 25 3d 94 4f 25  2a 33 2e 35 3a e6 31 31  |6.O%=.O%*3.5:.11|
000063b0  0d 2e 40 15 e3 43 25 3d  31 b8 31 32 3a e3 54 25  |..@..C%=1.12:.T%|
000063c0  3d 31 b8 31 32 0d 2e 4a  35 c8 9d c8 90 28 43 4c  |=1.12..J5....(CL|
000063d0  25 28 30 2c 43 25 2c 54  25 29 2b 4f 25 29 83 32  |%(0,C%,T%)+O%).2|
000063e0  35 32 30 2b 49 25 2c 43  4c 25 28 31 2c 43 25 2c  |520+I%,CL%(1,C%,|
000063f0  54 25 29 2c 32 35 36 2c  36 34 0d 2e 54 07 ed 3a  |T%),256,64..T..:|
00006400  ed 0d 2e 5e 05 e1 0d 2e  68 07 f4 20 15 0d 2e 72  |...^....h.. ...r|
00006410  0f dd f2 69 6e 69 74 63  6c 6f 75 64 0d 2e 7c 10  |...initcloud..|.|
00006420  ea 43 25 2c 54 25 2c 58  25 2c 59 25 0d 2e 86 2b  |.C%,T%,X%,Y%...+|
00006430  e3 43 25 3d 30 b8 31 32  3a 58 25 3d 31 39 34 2a  |.C%=0.12:X%=194*|
00006440  43 25 2b b3 28 31 39 34  29 3a 59 25 3d b3 28 32  |C%+.(194):Y%=.(2|
00006450  38 38 29 2b 37 33 36 0d  2e 90 3c e3 54 25 3d 30  |88)+736...<.T%=0|
00006460  b8 31 32 3a 43 4c 25 28  30 2c 43 25 2c 54 25 29  |.12:CL%(0,C%,T%)|
00006470  3d 58 25 2b b3 28 35 29  2a 34 30 3a 43 4c 25 28  |=X%+.(5)*40:CL%(|
00006480  31 2c 43 25 2c 54 25 29  3d 59 25 2b b3 28 35 29  |1,C%,T%)=Y%+.(5)|
00006490  2a 31 32 0d 2e 9a 07 ed  3a ed 0d 2e a4 05 e1 0d  |*12.....:.......|
000064a0  2e ae 07 f4 20 15 0d 2e  b8 0c dd f2 62 6f 75 6e  |.... .......boun|
000064b0  63 65 0d 2e c2 13 68 25  3d 30 3a 70 25 3d 2d 70  |ce....h%=0:p%=-p|
000064c0  25 2f 32 2e 32 0d 2e cc  20 e7 76 70 25 3d 31 33  |%/2.2... .vp%=13|
000064d0  80 ac 67 72 65 65 6e 25  80 b3 28 31 30 29 3d 35  |..green%..(10)=5|
000064e0  f2 32 72 69 63 0d 2e d6  0c 2a 46 58 31 31 32 2c  |.2ric....*FX112,|
000064f0  32 0d 2e e0 10 47 25 3d  b0 73 78 25 2c 73 79 25  |2....G%=.sx%,sy%|
00006500  29 0d 2e ea 0c 2a 46 58  31 31 32 2c 31 0d 2e f4  |)....*FX112,1...|
00006510  09 c8 8e 47 25 ca 0d 2e  fe 29 c9 31 3a 70 25 3d  |...G%....).1:p%=|
00006520  70 25 3e 3e 31 3a e7 70  25 3e 34 3a 79 61 3d 79  |p%>>1:.p%>4:ya=y|
00006530  61 2a 2e 33 3a 8b 79 61  3d 79 61 2a 2e 37 35 0d  |a*.3:.ya=ya*.75.|
00006540  2f 08 2f c9 34 3a e7 70  25 3e 33 80 79 61 3c 3e  |/./.4:.p%>3.ya<>|
00006550  30 70 25 3d 70 25 2a 31  2e 35 3a 79 61 3d 79 61  |0p%=p%*1.5:ya=ya|
00006560  2a 31 2e 33 3a 75 64 3d  75 64 2f 31 2e 33 0d 2f  |*1.3:ud=ud/1.3./|
00006570  12 60 c9 36 2c 31 31 3a  57 25 3d a3 3a 78 73 25  |.`.6,11:W%=.:xs%|
00006580  3d 31 30 30 30 3a 73 78  25 3d 31 30 30 30 3a 79  |=1000:sx%=1000:y|
00006590  61 3d 30 3a 70 25 3d 30  3a 68 25 3d 30 3a d6 20  |a=0:p%=0:h%=0:. |
000065a0  70 6c 6f 74 62 61 6c 6c  2c 62 73 25 2c 6f 79 25  |plotball,bs%,oy%|
000065b0  2c 6f 78 25 2c 6f 73 79  25 2c 6f 73 78 25 2c 79  |,ox%,osy%,osx%,y|
000065c0  73 25 2c 78 73 25 2c 73  79 25 2c 73 78 25 0d 2f  |s%,xs%,sy%,sx%./|
000065d0  1c 2a c9 39 2c 2d 31 3a  79 61 3d 79 61 2f 31 2e  |.*.9,-1:ya=ya/1.|
000065e0  35 3a 70 25 3d 70 25 3e  3e 31 3a 75 3d 75 2f 32  |5:p%=p%>>1:u=u/2|
000065f0  3a 75 64 3d 75 64 2f 32  0d 2f 26 05 cb 0d 2f 30  |:ud=ud/2./&.../0|
00006600  05 e1 0d 2f 3a 07 f4 20  15 0d 2f 44 0c dd f2 64  |.../:.. ../D...d|
00006610  72 61 77 69 74 0d 2f 4e  37 6e 70 25 3d a4 6d 61  |rawit./N7np%=.ma|
00006620  70 31 3a f2 6d 61 70 28  43 58 25 2c 43 59 25 2c  |p1:.map(CX%,CY%,|
00006630  48 25 2c 34 2c 72 29 3a  f2 6d 61 70 28 53 58 25  |H%,4,r):.map(SX%|
00006640  2c 53 59 25 2c 48 25 2c  34 2c 72 29 0d 2f 58 30  |,SY%,H%,4,r)./X0|
00006650  e3 49 25 3d 31 b8 6e 70  25 2d 31 3a f2 6d 61 70  |.I%=1.np%-1:.map|
00006660  28 58 49 25 2c 59 49 25  2c 48 25 2c 38 35 2c 72  |(XI%,YI%,H%,85,r|
00006670  29 3a ec 43 58 25 2c 43  59 25 3a ed 0d 2f 62 0f  |):.CX%,CY%:../b.|
00006680  f0 38 35 2c 53 58 25 2c  53 59 25 0d 2f 6c 05 e1  |.85,SX%,SY%./l..|
00006690  0d 2f 76 07 f4 20 15 0d  2f 80 12 dd f2 76 74 28  |./v.. ../....vt(|
000066a0  78 25 2c 79 25 2c 7a 25  29 0d 2f 8a 4c 78 65 25  |x%,y%,z%)./.Lxe%|
000066b0  3d 76 61 2a 78 25 2b 76  62 2a 79 25 3a 7a 65 25  |=va*x%+vb*y%:ze%|
000066c0  3d 28 76 69 2a 78 25 2b  76 61 2a 79 25 2b 72 29  |=(vi*x%+va*y%+r)|
000066d0  2a 4d 61 3a 78 73 25 3d  64 2a 78 65 25 20 81 7a  |*Ma:xs%=d*xe% .z|
000066e0  65 25 3a 79 73 25 3d 2d  28 64 2a 7a 25 20 81 7a  |e%:ys%=-(d*z% .z|
000066f0  65 25 29 2a 32 0d 2f 94  05 e1 0d 2f 9e 07 f4 20  |e%)*2./..../... |
00006700  15 0d 2f a8 22 dd f2 63  61 6c 74 72 65 28 f8 20  |../."..caltre(. |
00006710  78 25 28 29 2c f8 20 79  25 28 29 2c f8 20 7a 25  |x%(),. y%(),. z%|
00006720  28 29 29 0d 2f b2 11 ea  69 25 2c 6c 25 2c 6c 6f  |())./...i%,l%,lo|
00006730  25 2c 6e 25 0d 2f bc 0d  e3 41 25 3d 31 b8 41 41  |%,n%./...A%=1.AA|
00006740  25 0d 2f c6 1b 6c 25 3d  a4 6d 61 70 32 3a 74 72  |%./..l%=.map2:tr|
00006750  65 78 21 28 41 25 2a 34  29 3d 6c 25 0d 2f d0 1b  |ex!(A%*4)=l%./..|
00006760  69 25 3d a4 6d 61 70 32  3a 74 72 65 79 21 28 41  |i%=.map2:trey!(A|
00006770  25 2a 34 29 3d 69 25 0d  2f da 12 78 65 3d 76 61  |%*4)=i%./..xe=va|
00006780  2a 69 25 2b 76 62 2a 6c  25 0d 2f e4 19 7a 65 3d  |*i%+vb*l%./..ze=|
00006790  28 76 69 2a 69 25 2b 76  61 2a 6c 25 2b 72 29 2a  |(vi*i%+va*l%+r)*|
000067a0  4d 61 0d 2f ee 28 78 25  28 41 25 29 3d 64 2a 78  |Ma./.(x%(A%)=d*x|
000067b0  65 20 81 7a 65 3a 79 25  28 41 25 29 3d 2d 28 64  |e .ze:y%(A%)=-(d|
000067c0  2a 48 25 20 81 7a 65 29  2a 32 0d 2f f8 1d 7a 25  |*H% .ze)*2./..z%|
000067d0  28 41 25 29 3d 2d 28 64  2a 28 48 25 2b 32 30 30  |(A%)=-(d*(H%+200|
000067e0  29 81 7a 65 29 2a 32 0d  30 02 05 ed 0d 30 0c 05  |).ze)*2.0....0..|
000067f0  e1 0d 30 16 07 f4 20 15  0d 30 20 1c dd f2 6d 61  |..0... ..0 ...ma|
00006800  70 28 f8 20 78 25 2c f8  20 79 25 2c 7a 25 2c 70  |p(. x%,. y%,z%,p|
00006810  25 2c 72 29 0d 30 2a 56  79 25 3d a4 6d 61 70 32  |%,r).0*Vy%=.map2|
00006820  3a 78 25 3d a4 6d 61 70  32 3a 78 65 3d 76 61 2a  |:x%=.map2:xe=va*|
00006830  78 25 2b 76 62 2a 79 25  3a 7a 65 3d 28 76 69 2a  |x%+vb*y%:ze=(vi*|
00006840  78 25 2b 76 61 2a 79 25  2b 72 29 2a 4d 61 3a 78  |x%+va*y%+r)*Ma:x|
00006850  25 3d 64 2a 78 65 20 81  7a 65 3a 79 25 3d 2d 28  |%=d*xe .ze:y%=-(|
00006860  64 2a 7a 25 81 7a 65 29  2a 32 0d 30 34 29 e7 ac  |d*z%.ze)*2.04)..|
00006870  67 72 65 65 6e 25 e7 79  25 3e 2d 33 32 84 79 25  |green%.y%>-32.y%|
00006880  3c 26 46 46 46 46 38 30  30 30 20 79 25 3d 2d 36  |<&FFFF8000 y%=-6|
00006890  30 30 30 0d 30 3e 0d f0  70 25 2c 78 25 2c 79 25  |000.0>..p%,x%,y%|
000068a0  0d 30 48 05 e1 0d 30 52  07 f4 20 15 0d 30 5c 1c  |.0H...0R.. ..0\.|
000068b0  dd a4 6d 61 70 31 3a 50  25 2b 3d 31 3a 3d 6d 61  |..map1:P%+=1:=ma|
000068c0  70 3f 28 50 25 2d 31 29  0d 30 66 07 f4 20 15 0d  |p?(P%-1).0f.. ..|
000068d0  30 70 24 dd a4 6d 61 70  32 3a 50 25 2b 3d 32 3a  |0p$..map2:P%+=2:|
000068e0  51 25 3d 6d 61 70 21 28  50 25 2d 32 29 80 26 46  |Q%=map!(P%-2).&F|
000068f0  46 46 46 0d 30 7a 1c e7  51 25 3e 26 37 46 46 46  |FFF.0z..Q%>&7FFF|
00006900  51 25 3d 51 25 84 26 46  46 46 46 30 30 30 30 0d  |Q%=Q%.&FFFF0000.|
00006910  30 84 07 3d 51 25 0d 30  8e 07 f4 20 15 0d 30 98  |0..=Q%.0... ..0.|
00006920  0b dd f2 74 72 65 65 73  0d 30 a2 1e 50 46 25 3d  |...trees.0..PF%=|
00006930  b9 3a 50 42 25 3d 2d 28  64 2a 48 25 81 28 72 2a  |.:PB%=-(d*H%.(r*|
00006940  4d 61 29 29 2a 32 0d 30  ac 1d 50 54 25 3d 2d 28  |Ma))*2.0..PT%=-(|
00006950  64 2a 28 48 25 2d 33 30  29 81 28 72 2a 4d 61 29  |d*(H%-30).(r*Ma)|
00006960  29 2a 32 0d 30 b6 1d 46  42 25 3d 2d 28 64 2a 28  |)*2.0..FB%=-(d*(|
00006970  48 25 2d 32 34 29 81 28  72 2a 4d 61 29 29 2a 32  |H%-24).(r*Ma))*2|
00006980  0d 30 c0 56 78 65 3d 76  61 2a 46 78 2b 76 62 2a  |.0.Vxe=va*Fx+vb*|
00006990  46 79 3a 7a 65 3d 28 76  69 2a 46 78 2b 76 61 2a  |Fy:ze=(vi*Fx+va*|
000069a0  46 79 2b 72 29 2a 4d 61  3a 46 58 25 3d 64 2a 78  |Fy+r)*Ma:FX%=d*x|
000069b0  65 20 81 7a 65 3a 46 59  25 3d 2d 28 64 2a 28 48  |e .ze:FY%=-(d*(H|
000069c0  25 2d 31 36 2d 28 73 74  72 65 6e 25 81 34 29 29  |%-16-(stren%.4))|
000069d0  81 7a 65 29 2a 32 0d 30  ca 0c e7 67 72 65 65 6e  |.ze)*2.0...green|
000069e0  25 e1 0d 30 d4 0f e3 54  25 3d 41 41 25 b8 31 88  |%..0...T%=AA%.1.|
000069f0  b9 0d 30 de 18 58 31 25  3d 78 25 28 54 25 29 3a  |..0..X1%=x%(T%):|
00006a00  59 25 3d 79 25 28 54 25  29 0d 30 e8 3d e7 50 46  |Y%=y%(T%).0.=.PF|
00006a10  25 80 59 25 3c 50 42 25  20 e6 31 31 3a ec 30 2c  |%.Y%<PB% .11:.0,|
00006a20  50 42 25 3a df 30 2c 50  54 25 3a e6 33 3a ec 30  |PB%:.0,PT%:.3:.0|
00006a30  2c 46 42 25 3a f0 38 35  2c 46 58 25 2c 46 59 25  |,FB%:.85,FX%,FY%|
00006a40  3a 50 46 25 3d a3 0d 30  f2 2a e7 28 94 58 31 25  |:PF%=..0.*.(.X1%|
00006a50  3e 34 30 30 84 59 25 3e  2d 37 30 38 29 80 94 58  |>400.Y%>-708)..X|
00006a60  31 25 3c 38 30 30 80 59  25 3e 2d 31 30 30 30 8c  |1%<800.Y%>-1000.|
00006a70  0d 30 fc 41 78 25 3d 28  94 59 25 2d 94 7a 25 28  |.0.Ax%=(.Y%-.z%(|
00006a80  54 25 29 29 3e 3e 31 3a  79 25 3d 2d 78 25 3e 3e  |T%))>>1:y%=-x%>>|
00006a90  32 3a 79 61 25 3d 79 25  2a 31 2e 35 3a 78 61 25  |2:ya%=y%*1.5:xa%|
00006aa0  3d 78 25 3e 3e 34 3a 79  64 25 3d 79 61 25 3e 3e  |=x%>>4:yd%=ya%>>|
00006ab0  32 0d 31 06 2b e6 74 72  25 21 28 28 28 70 78 25  |2.1.+.tr%!(((px%|
00006ac0  2b 31 29 80 33 29 2a 34  29 3a c8 93 c8 90 58 31  |+1).3)*4):....X1|
00006ad0  25 2c 59 25 2c 2d 78 61  25 2c 79 25 0d 31 10 2a  |%,Y%,-xa%,y%.1.*|
00006ae0  e6 74 72 25 21 28 28 28  70 78 25 2b 32 29 80 33  |.tr%!(((px%+2).3|
00006af0  29 2a 34 29 3a c8 93 c8  90 58 31 25 2c 59 25 2c  |)*4):....X1%,Y%,|
00006b00  78 61 25 2c 79 25 0d 31  1a 31 59 25 2b 3d 79 25  |xa%,y%.1.1Y%+=y%|
00006b10  3a 78 61 25 3d 78 61 25  2a 32 3a 7a 25 28 54 25  |:xa%=xa%*2:z%(T%|
00006b20  29 3d a3 3a 78 25 3d 78  25 2a 2e 38 3a 78 61 25  |)=.:x%=x%*.8:xa%|
00006b30  3d 78 61 25 2a 2e 38 0d  31 24 26 d6 70 6c 6f 74  |=xa%*.8.1$&.plot|
00006b40  74 72 65 65 2c 78 61 25  2c 79 25 2c 78 25 2c 58  |tree,xa%,y%,x%,X|
00006b50  31 25 2c 59 25 2c 79 61  25 2c 79 64 25 0d 31 2e  |1%,Y%,ya%,yd%.1.|
00006b60  0e cc 20 7a 25 28 54 25  29 3d b9 0d 31 38 05 cd  |.. z%(T%)=..18..|
00006b70  0d 31 42 05 ed 0d 31 4c  05 e1 0d 31 56 07 f4 20  |.1B...1L...1V.. |
00006b80  15 0d 31 60 0e dd f2 69  6e 69 74 69 61 74 65 0d  |..1`...initiate.|
00006b90  31 6a 14 48 61 6e 64 25  3d 30 3a 67 72 65 65 6e  |1j.Hand%=0:green|
00006ba0  25 3d 30 0d 31 74 08 e6  30 2c 31 0d 31 7e 10 f2  |%=0.1t..0,1.1~..|
00006bb0  63 6f 6c 6f 75 72 73 28  31 32 29 0d 31 88 0f de  |colours(12).1...|
00006bc0  72 65 64 25 28 31 33 2c  31 29 0d 31 92 12 de 20  |red%(13,1).1... |
00006bd0  43 4c 25 28 31 2c 31 32  2c 31 32 29 0d 31 9c 0f  |CL%(1,12,12).1..|
00006be0  de 20 63 6f 64 65 20 26  39 30 30 0d 31 a6 0f de  |. code &900.1...|
00006bf0  20 6d 61 70 20 26 36 44  30 30 0d 31 b0 1a ff 22  | map &6D00.1..."|
00006c00  4c 2e 20 54 48 45 5f 4c  49 4e 4b 53 20 22 2b c3  |L. THE_LINKS "+.|
00006c10  7e 6d 61 70 0d 31 ba 0d  de 20 70 61 72 62 20 32  |~map.1... parb 2|
00006c20  30 0d 31 c4 1a de 20 78  25 28 39 36 29 2c 79 25  |0.1... x%(96),y%|
00006c30  28 39 36 29 2c 7a 25 28  39 36 29 0d 31 ce 23 de  |(96),z%(96).1.#.|
00006c40  54 58 25 28 31 33 29 2c  54 59 25 28 31 33 29 2c  |TX%(13),TY%(13),|
00006c50  41 24 28 31 33 29 2c 43  56 25 28 31 33 29 0d 31  |A$(13),CV%(13).1|
00006c60  d8 43 de 6d 78 25 28 31  2c 31 29 2c 6d 79 25 28  |.C.mx%(1,1),my%(|
00006c70  31 29 2c 6d 25 28 38 2c  31 29 2c 62 61 67 25 28  |1),m%(8,1),bag%(|
00006c80  31 29 2c 6e 61 6d 65 24  28 36 29 2c 64 65 66 6e  |1),name$(6),defn|
00006c90  61 6d 65 24 28 36 29 3a  70 6c 61 79 65 72 25 3d  |ame$(6):player%=|
00006ca0  31 0d 31 e2 89 de 68 6f  6c 65 73 63 6f 72 65 73  |1.1...holescores|
00006cb0  25 28 36 2c 31 38 29 2c  63 75 72 72 65 6e 74 78  |%(6,18),currentx|
00006cc0  25 28 36 29 2c 63 75 72  72 65 6e 74 79 25 28 36  |%(6),currenty%(6|
00006cd0  29 2c 63 75 72 72 65 6e  74 52 25 28 36 29 2c 63  |),currentR%(6),c|
00006ce0  75 72 72 65 6e 74 53 25  28 36 29 2c 63 75 72 72  |urrentS%(6),curr|
00006cf0  65 6e 74 73 25 28 36 29  2c 74 6f 74 73 63 6f 72  |ents%(6),totscor|
00006d00  65 25 28 36 29 2c 6f 6c  64 70 6f 73 25 28 36 29  |e%(6),oldpos%(6)|
00006d10  2c 68 73 70 25 28 36 29  2c 68 61 6e 64 25 28 36  |,hsp%(6),hand%(6|
00006d20  29 2c 6a 75 6d 70 25 28  36 29 0d 31 ec 10 de 43  |),jump%(6).1...C|
00006d30  28 34 35 29 2c 53 28 34  35 29 0d 31 f6 10 de 73  |(45),S(45).1...s|
00006d40  61 25 28 31 2c 32 2c 32  30 29 0d 32 00 11 63 75  |a%(1,2,20).2..cu|
00006d50  72 72 65 6e 74 73 25 28  29 3d 31 0d 32 0a 0b e3  |rrents%()=1.2...|
00006d60  49 25 3d 32 b8 34 0d 32  14 0c e3 4e 25 3d 30 b8  |I%=2.4.2...N%=0.|
00006d70  32 30 0d 32 1e 1f 73 61  25 28 30 2c 49 25 2d 32  |20.2..sa%(0,I%-2|
00006d80  2c 4e 25 29 3d b3 28 49  25 2a 38 29 2d 49 25 2a  |,N%)=.(I%*8)-I%*|
00006d90  34 0d 32 28 23 73 61 25  28 31 2c 49 25 2d 32 2c  |4.2(#sa%(1,I%-2,|
00006da0  4e 25 29 3d 49 25 2a 31  32 2b 31 36 2b b3 28 49  |N%)=I%*12+16+.(I|
00006db0  25 29 2a 34 0d 32 32 05  ed 0d 32 3c 05 ed 0d 32  |%)*4.22...2<...2|
00006dc0  46 0c e3 54 25 3d 30 b8  34 35 0d 32 50 21 43 28  |F..T%=0.45.2P!C(|
00006dd0  54 25 29 3d 9b b2 28 54  25 2a 38 29 3a 53 28 54  |T%)=..(T%*8):S(T|
00006de0  25 29 3d b5 b2 28 54 25  2a 38 29 0d 32 5a 05 ed  |%)=..(T%*8).2Z..|
00006df0  0d 32 64 28 6d 78 25 28  30 2c 31 29 3d 2d 32 3a  |.2d(mx%(0,1)=-2:|
00006e00  6d 78 25 28 30 2c 30 29  3d 2d 39 36 3a 6d 79 25  |mx%(0,0)=-96:my%|
00006e10  28 30 29 3d 2d 37 32 38  0d 32 6e 2a 6d 78 25 28  |(0)=-728.2n*mx%(|
00006e20  31 2c 31 29 3d 2d 34 3a  6d 78 25 28 31 2c 30 29  |1,1)=-4:mx%(1,0)|
00006e30  3d 2d 36 34 3a 6d 79 25  28 31 29 3d 2d 31 33 31  |=-64:my%(1)=-131|
00006e40  32 31 0d 32 78 1c 62 61  67 25 28 30 29 3d 2d 31  |21.2x.bag%(0)=-1|
00006e50  39 36 3a 62 61 67 25 28  31 29 3d 31 32 30 0d 32  |96:bag%(1)=120.2|
00006e60  82 17 73 78 25 3d b9 3a  73 79 25 3d b9 3a 72 3d  |..sx%=.:sy%=.:r=|
00006e70  31 31 30 39 36 0d 32 8c  0a f7 20 8d 44 5e 73 0d  |11096.2... .D^s.|
00006e80  32 96 0c e3 54 25 3d 30  b8 31 33 0d 32 a0 23 f3  |2...T%=0.13.2.#.|
00006e90  54 58 25 28 54 25 29 2c  54 59 25 28 54 25 29 2c  |TX%(T%),TY%(T%),|
00006ea0  41 24 28 54 25 29 2c 43  56 25 28 54 25 29 0d 32  |A$(T%),CV%(T%).2|
00006eb0  aa 05 ed 0d 32 b4 0e f2  77 65 6c 6c 69 65 28 30  |....2...wellie(0|
00006ec0  29 0d 32 be 17 e3 54 25  3d 31 b8 38 3a f3 6d 25  |).2...T%=1.8:.m%|
00006ed0  28 54 25 2c 31 29 3a ed  0d 32 c8 24 e3 49 25 3d  |(T%,1):..2.$.I%=|
00006ee0  30 b8 31 3a e3 54 25 3d  30 b8 31 33 3a f3 72 65  |0.1:.T%=0.13:.re|
00006ef0  64 25 28 54 25 2c 49 25  29 3a ed 2c 0d 32 d2 27  |d%(T%,I%):.,.2.'|
00006f00  43 58 25 3d 30 3a 43 59  25 3d 30 3a 53 58 25 3d  |CX%=0:CY%=0:SX%=|
00006f10  30 3a 53 59 25 3d 30 3a  58 49 25 3d 30 3a 59 49  |0:SY%=0:XI%=0:YI|
00006f20  25 3d 30 0d 32 dc 25 68  25 3d 30 3a 78 31 25 3d  |%=0.2.%h%=0:x1%=|
00006f30  30 3a 79 31 25 3d 30 3a  4b 25 3d 30 3a 42 59 25  |0:y1%=0:K%=0:BY%|
00006f40  3d 30 3a 62 73 25 3d 30  0d 32 e6 16 64 65 66 6e  |=0:bs%=0.2..defn|
00006f50  61 6d 65 24 28 31 29 3d  22 4a 4f 48 4e 22 0d 32  |ame$(1)="JOHN".2|
00006f60  f0 18 64 65 66 6e 61 6d  65 24 28 32 29 3d 22 47  |..defname$(2)="G|
00006f70  45 4f 52 47 45 22 0d 32  fa 16 64 65 66 6e 61 6d  |EORGE".2..defnam|
00006f80  65 24 28 33 29 3d 22 50  41 55 4c 22 0d 33 04 17  |e$(3)="PAUL".3..|
00006f90  64 65 66 6e 61 6d 65 24  28 34 29 3d 22 52 49 4e  |defname$(4)="RIN|
00006fa0  47 4f 22 0d 33 0e 16 64  65 66 6e 61 6d 65 24 28  |GO".3..defname$(|
00006fb0  35 29 3d 22 4d 49 43 4b  22 0d 33 18 17 64 65 66  |5)="MICK".3..def|
00006fc0  6e 61 6d 65 24 28 36 29  3d 22 4a 45 52 52 59 22  |name$(6)="JERRY"|
00006fd0  0d 33 22 09 f2 63 6f 64  65 0d 33 2c 0c 2a 50 4f  |.3"..code.3,.*PO|
00006fe0  49 4e 54 45 52 0d 33 36  08 c8 97 20 87 0d 33 40  |INTER.36... ..3@|
00006ff0  10 c8 97 fb 31 2c 30 2c  32 34 30 2c 30 0d 33 4a  |....1,0,240,0.3J|
00007000  10 c8 97 fb 32 2c 30 2c  31 32 38 2c 30 0d 33 54  |....2,0,128,0.3T|
00007010  05 e1 0d 33 5e 12 dc 31  2c 32 2c 31 20 57 4f 4f  |...3^..1,2,1 WOO|
00007020  44 2c 37 34 0d 33 68 12  dc 31 2c 33 2c 33 20 57  |D,74.3h..1,3,3 W|
00007030  4f 4f 44 2c 37 30 0d 33  72 12 dc 31 2c 34 2c 35  |OOD,70.3r..1,4,5|
00007040  20 57 4f 4f 44 2c 36 38  0d 33 7c 12 dc 39 2c 32  | WOOD,68.3|..9,2|
00007050  2c 31 20 49 52 4f 4e 2c  36 37 0d 33 86 12 dc 39  |,1 IRON,67.3...9|
00007060  2c 33 2c 32 20 49 52 4f  4e 2c 36 35 0d 33 90 12  |,3,2 IRON,65.3..|
00007070  dc 39 2c 34 2c 33 20 49  52 4f 4e 2c 36 33 0d 33  |.9,4,3 IRON,63.3|
00007080  9a 12 dc 39 2c 35 2c 34  20 49 52 4f 4e 2c 36 31  |...9,5,4 IRON,61|
00007090  0d 33 a4 12 dc 39 2c 36  2c 35 20 49 52 4f 4e 2c  |.3...9,6,5 IRON,|
000070a0  35 39 0d 33 ae 12 dc 39  2c 37 2c 36 20 49 52 4f  |59.3...9,7,6 IRO|
000070b0  4e 2c 35 37 0d 33 b8 13  dc 31 37 2c 32 2c 37 20  |N,57.3...17,2,7 |
000070c0  49 52 4f 4e 2c 35 35 0d  33 c2 13 dc 31 37 2c 33  |IRON,55.3...17,3|
000070d0  2c 38 20 49 52 4f 4e 2c  35 33 0d 33 cc 13 dc 31  |,8 IRON,53.3...1|
000070e0  37 2c 34 2c 39 20 49 52  4f 4e 2c 34 38 0d 33 d6  |7,4,9 IRON,48.3.|
000070f0  12 dc 31 37 2c 36 2c 57  45 44 47 45 2c 34 31 0d  |..17,6,WEDGE,41.|
00007100  33 e0 13 dc 31 37 2c 37  2c 50 55 54 54 45 52 2c  |3...17,7,PUTTER,|
00007110  36 30 0d 33 ea 18 dc 39  2c 31 30 2c 31 30 2c 31  |60.3...9,10,10,1|
00007120  31 2c 31 31 2c 39 2c 39  2c 39 0d 33 f4 2f dc 33  |1,11,9,9,9.3./.3|
00007130  30 2c 34 30 2c 34 38 2c  35 35 2c 36 31 2c 36 36  |0,40,48,55,61,66|
00007140  2c 37 31 2c 37 36 2c 38  31 2c 38 35 2c 38 39 2c  |,71,76,81,85,89,|
00007150  39 33 2c 39 36 2c 31 30  30 0d 33 fe 27 dc 31 2c  |93,96,100.3.'.1,|
00007160  31 2c 31 2c 31 2c 31 2c  31 2c 31 35 2c 34 30 2c  |1,1,1,1,1,15,40,|
00007170  35 35 2c 36 36 2c 37 36  2c 38 35 2c 39 33 2c 31  |55,66,76,85,93,1|
00007180  0d 34 08 07 f4 20 15 0d  34 12 11 dd f2 63 6f 6c  |.4... ..4....col|
00007190  6f 75 72 73 28 4d 25 29  0d 34 1c 0c c8 96 3a eb  |ours(M%).4....:.|
000071a0  4d 25 3a 87 0d 34 26 0d  f2 6d 61 69 6e 63 6f 6c  |M%:..4&..maincol|
000071b0  73 0d 34 30 0f ef 32 33  2c 31 37 2c 34 2c 31 7c  |s.40..23,17,4,1||
000071c0  0d 34 3a 29 ef 32 33 2c  32 2c 26 45 46 2c 26 46  |.4:).23,2,&EF,&F|
000071d0  45 2c 26 45 46 2c 26 46  45 2c 26 45 46 2c 26 46  |E,&EF,&FE,&EF,&F|
000071e0  45 2c 26 45 46 2c 26 46  45 0d 34 44 29 ef 32 33  |E,&EF,&FE.4D).23|
000071f0  2c 33 2c 26 31 32 2c 26  32 31 2c 26 31 32 2c 26  |,3,&12,&21,&12,&|
00007200  32 31 2c 26 31 32 2c 26  32 31 2c 26 31 32 2c 26  |21,&12,&21,&12,&|
00007210  32 31 0d 34 4e 29 ef 32  33 2c 34 2c 26 43 30 2c  |21.4N).23,4,&C0,|
00007220  26 30 43 2c 26 43 30 2c  26 30 43 2c 26 43 30 2c  |&0C,&C0,&0C,&C0,|
00007230  26 30 43 2c 26 43 30 2c  26 30 43 0d 34 58 29 ef  |&0C,&C0,&0C.4X).|
00007240  32 33 2c 35 2c 26 44 34  2c 26 34 44 2c 26 44 34  |23,5,&D4,&4D,&D4|
00007250  2c 26 34 44 2c 26 44 34  2c 26 34 44 2c 26 44 34  |,&4D,&D4,&4D,&D4|
00007260  2c 26 34 44 0d 34 62 05  e1 0d 34 6c 0e dd f2 6d  |,&4D.4b...4l...m|
00007270  61 69 6e 63 6f 6c 73 0d  34 76 07 f4 20 15 0d 34  |aincols.4v.. ..4|
00007280  80 14 fb 30 2c 30 2c 30  2c 30 3a f4 20 42 4c 41  |...0,0,0,0:. BLA|
00007290  43 4b 0d 34 8a 1c fb 31  2c 31 37 36 2c 31 32 38  |CK.4...1,176,128|
000072a0  2c 30 3a f4 20 44 41 52  4b 20 53 41 4e 44 0d 34  |,0:. DARK SAND.4|
000072b0  94 1e fb 32 2c 31 37 36  2c 31 36 30 2c 34 38 3a  |...2,176,160,48:|
000072c0  f4 20 4c 49 47 48 54 20  53 41 4e 44 0d 34 9e 1a  |. LIGHT SAND.4..|
000072d0  fb 33 2c 32 30 38 2c 31  36 30 2c 31 34 34 3a f4  |.3,208,160,144:.|
000072e0  20 46 4c 45 53 48 0d 34  a8 19 fb 34 2c 31 34 34  | FLESH.4...4,144|
000072f0  2c 31 34 34 2c 31 34 34  3a f4 20 50 41 54 48 0d  |,144,144:. PATH.|
00007300  34 b2 17 fb 35 2c 31 36  2c 32 30 38 2c 30 3a f4  |4...5,16,208,0:.|
00007310  20 47 52 45 45 4e 0d 34  bc 19 fb 36 2c 33 32 2c  | GREEN.4...6,32,|
00007320  31 34 34 2c 32 30 38 3a  f4 20 57 41 54 45 52 0d  |144,208:. WATER.|
00007330  34 c6 18 fb 37 2c 30 2c  31 36 30 2c 30 3a f4 20  |4...7,0,160,0:. |
00007340  46 41 49 52 57 41 59 0d  34 d0 14 fb 38 2c 32 30  |FAIRWAY.4...8,20|
00007350  38 2c 30 2c 30 3a f4 20  52 45 44 0d 34 da 16 fb  |8,0,0:. RED.4...|
00007360  39 2c 30 2c 31 31 32 2c  30 3a f4 20 52 4f 55 47  |9,0,112,0:. ROUG|
00007370  48 0d 34 e4 18 fb 31 30  2c 39 36 2c 31 39 32 2c  |H.4...10,96,192,|
00007380  32 32 34 3a f4 20 53 4b  59 0d 34 ee 1b fb 31 31  |224:. SKY.4...11|
00007390  2c 32 34 30 2c 32 34 30  2c 32 34 30 3a f4 20 57  |,240,240,240:. W|
000073a0  48 49 54 45 0d 34 f8 1d  fb 31 32 2c 38 30 2c 34  |HITE.4...12,80,4|
000073b0  38 2c 31 36 3a f4 20 44  41 52 4b 20 42 52 4f 57  |8,16:. DARK BROW|
000073c0  4e 0d 35 02 1e fb 31 33  2c 39 36 2c 36 34 2c 34  |N.5...13,96,64,4|
000073d0  38 3a f4 20 4c 49 47 48  54 20 42 52 4f 57 4e 0d  |8:. LIGHT BROWN.|
000073e0  35 0c 24 fb 31 34 2c 31  36 2c 36 34 2c 34 38 3a  |5.$.14,16,64,48:|
000073f0  f4 20 44 41 52 4b 20 47  52 45 45 4e 20 28 54 52  |. DARK GREEN (TR|
00007400  45 45 29 0d 35 16 26 fb  31 35 2c 30 2c 39 36 2c  |EE).5.&.15,0,96,|
00007410  36 34 3a f4 20 4c 49 47  48 54 45 52 20 47 52 45  |64:. LIGHTER GRE|
00007420  45 4e 20 28 54 52 45 45  29 0d 35 20 05 e1 0d 35  |EN (TREE).5 ...5|
00007430  2a 07 f4 20 15 0d 35 34  0d dd f2 70 6f 69 6e 74  |*.. ..54...point|
00007440  65 72 0d 35 3e 15 de 70  61 72 20 32 30 2c 62 6c  |er.5>..par 20,bl|
00007450  6f 63 6b 20 31 31 32 0d  35 48 09 f7 8d 74 76 75  |ock 112.5H...tvu|
00007460  0d 35 52 1b e3 54 25 3d  30 b8 31 30 38 88 34 3a  |.5R..T%=0.108.4:|
00007470  f3 62 6c 6f 63 6b 21 54  25 3a ed 0d 35 5c 0a 3f  |.block!T%:..5\.?|
00007480  70 61 72 3d 30 0d 35 66  0b 70 61 72 3f 31 3d 32  |par=0.5f.par?1=2|
00007490  0d 35 70 0b 70 61 72 3f  32 3d 38 0d 35 7a 0c 70  |.5p.par?2=8.5z.p|
000074a0  61 72 3f 33 3d 31 34 0d  35 84 0c 70 61 72 3f 34  |ar?3=14.5..par?4|
000074b0  3d 31 36 0d 35 8e 0b 70  61 72 3f 35 3d 37 0d 35  |=16.5..par?5=7.5|
000074c0  98 0f 70 61 72 21 36 3d  62 6c 6f 63 6b 0d 35 a2  |..par!6=block.5.|
000074d0  07 eb 31 32 0d 35 ac 2a  41 25 3d 32 31 3a 42 25  |..12.5.*A%=21:B%|
000074e0  3d 70 61 72 3a 43 25 3d  70 61 72 20 81 32 35 36  |=par:C%=par .256|
000074f0  3a c8 99 20 37 2c 41 25  2c 42 25 2c 43 25 0d 35  |:.. 7,A%,B%,C%.5|
00007500  b6 b4 dc 26 41 41 41 41  2c 26 41 41 41 41 30 30  |...&AAAA,&AAAA00|
00007510  30 30 2c 26 39 35 35 36  2c 26 39 35 35 36 30 30  |00,&9556,&955600|
00007520  30 30 2c 26 41 41 39 36  2c 26 39 36 41 41 30 30  |00,&AA96,&96AA00|
00007530  30 30 2c 26 41 36 2c 26  39 41 30 30 30 30 30 30  |00,&A6,&9A000000|
00007540  2c 26 32 41 2c 26 41 38  30 30 30 30 30 30 2c 26  |,&2A,&A8000000,&|
00007550  30 2c 26 30 2c 26 30 2c  26 30 2c 26 30 2c 26 30  |0,&0,&0,&0,&0,&0|
00007560  2c 26 30 2c 26 30 2c 26  32 41 2c 26 41 38 30 30  |,&0,&0,&2A,&A800|
00007570  30 30 30 30 2c 26 41 36  2c 26 39 41 30 30 30 30  |0000,&A6,&9A0000|
00007580  30 30 2c 26 41 41 39 36  2c 26 39 36 41 41 30 30  |00,&AA96,&96AA00|
00007590  30 30 2c 26 39 35 35 36  2c 26 39 35 35 36 30 30  |00,&9556,&955600|
000075a0  30 30 2c 26 41 41 41 41  2c 26 41 41 41 41 30 30  |00,&AAAA,&AAAA00|
000075b0  30 30 0d 35 c0 05 e1 0d  35 ca 07 f4 20 15 0d 35  |00.5....5... ..5|
000075c0  d4 0a dd f2 63 6f 64 65  0d 35 de 1f ff 28 22 4c  |....code.5...("L|
000075d0  4f 41 44 20 68 6f 6c 65  64 6f 75 74 34 20 22 2b  |OAD holedout4 "+|
000075e0  c3 7e 63 6f 64 65 29 0d  35 e8 16 70 6c 6f 74 62  |.~code).5..plotb|
000075f0  61 6c 6c 3d 63 6f 64 65  2b 26 31 38 38 0d 35 f2  |all=code+&188.5.|
00007600  11 70 6c 6f 74 74 72 65  65 3d 63 6f 64 65 0d 35  |.plottree=code.5|
00007610  fc 12 73 6f 72 74 3d 63  6f 64 65 2b 26 37 45 30  |..sort=code+&7E0|
00007620  0d 36 06 11 70 78 25 3d  63 6f 64 65 2b 26 31 35  |.6..px%=code+&15|
00007630  38 0d 36 10 11 74 72 25  3d 63 6f 64 65 2b 26 31  |8.6..tr%=code+&1|
00007640  34 38 0d 36 1a 12 74 72  65 78 3d 63 6f 64 65 2b  |48.6..trex=code+|
00007650  26 34 42 38 0d 36 24 12  74 72 65 79 3d 63 6f 64  |&4B8.6$.trey=cod|
00007660  65 2b 26 36 33 43 0d 36  2e 05 e1 0d 36 38 0e 06  |e+&63C.6....68..|
00007670  2a f9 20 44 52 49 56 45  52 0d ff                 |*. DRIVER..|
0000767b

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .