Home » Personal collection » Acorn hard disk » games » !HOLEDOUT » HoledOut3
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 » games » !HOLEDOUT |
| Filename: | 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:
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_1.6M_UnlabelledBlackImation.adf » !HOLEDOUT/HoledOut3
- Personal collection » Acorn hard disk » games » !HOLEDOUT » HoledOut3
- Personal collection » Acorn hard disk » zipped_disks » 2000_games » games/!HOLEDOUT/HoledOut3
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
T P%=&2E8+mappoint%:X%=�map2
^
YY%=�map2
h Hole%=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)
2 currents%()=1
2
�I%=2�4
2 �N%=0�20
2 sa%(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
2x bag%(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
5f par?1=2
5p par?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 
.