Home » Archimedes archive » Games » Holed Out 2 (1989)(The Fourth Dimension).adf » !Holedout/HOLEDOUT3

!Holedout/HOLEDOUT3

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

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

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


� >!*.HOLEDOUT3
7� PROGRAMMED BY G.J.KEY BETWEEN 23-3-89 AND 29-4-89
� (C) THE FOURTH DIMENSION
(� 
2*FX200,3
<�pointer:�initiate
=� �-2 � *DESKTOP
F
�instruct
P*FX200,2
Z�colours(12)
d*SCHOOSE SCREEN
n*CHANNELVOICE 1 BELL
x�&ED,0,0
��=0
�	*FX15
��:ȗX%,Y%,T%
��>3000�1,-15,300,1:�=0
��T%��(10)<>�
�*CHANNELVOICE 1 1
��
�*FX200,2
��getoptions
��ONERROROFF
�*FX200,3
��colours(12)
Hole%=1:totscore%()=0
#�T%=1�noofplayers:hsp%(T%)=T%:�
X%=0
"�
,�X%>718�Hole%=18��:��
6round%=�
@�initcloud
Jli%=�(4)-1
T
�getstart
^
�initwind
h�setplayer
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%)
0�getinfo
:
D%=�:B%=�
D
W%=�:K%=�
N�walter
X�flight
b�sx%>640�chofsc
l�W%�splash:��:���
v�putback
�
�del(150)
���
�� 
���instruct
��colours(9):�screenbox
�C�quest("DO YOU REQUIRE INSTRUCTIONS?","YES","NO",0):�butt(0):�
�'�colours(12):�mesbox(0,0,1279,1023)
��139:�9:�28,3,30,78,1
�"�24)"HOLED OUT EXTRA COURSES"
��8
�9�14,2)"2 Volumes of extra courses are now available"
��12
�R�0,4)"Each volume contains 2 superbly designed new courses to challenge your"
K�"golfing skills to the limit.  All the features of the game have been"
E�"carefully woven together to test even the likes of Nick Faldo."
O�"(For example: narrow short fairways, keenly positioned bunkers and water"
 L�"protective treelines, strong varied winds and steeply sloped greens)."
*P�'"Included with each volume is a 16-page instruction manual which features"
4O�"easy to follow guidelines, general rules of golf and detailed scale maps"
>M�"of all the 36 holes.  In addition there is also a handy reference card"
HN�"which gives summarised details of the performance of each club and tips"
R*�"on how to deal with course hazards."
\�9
f�'�32)"PRICES"
p>�'�15)"Holed Out Extra Courses Volume 1";:�8:�"    @16.95"
z@�9:�15)"Holed Out Extra Courses Volume 2";:�8:�"    @16.95"
��12
�S�''"Ask your dealer to reserve your copies now or you can obtain them directly"
�L�"from us by mail.  Access and Visa telephone orders are welcome on our"
�!�"24 hour answering service."
��8
�N�'�4)"THE FOURTH DIMENSION, P.O. Box 4444, Sheffield.  Tel. (0742) 700661"
��12
�
�peb:�
��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
8�2:ȓȐ1014+T%*50,804,28,56
B!�12:�1020+T%*50,850:�5:�;T%+1
L
�:�4:�
V�139:�12
`�28,2,30,78,4
j��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."
tT�'"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"
���'"GAME CONTROLS/"''"1. SELECT CLUB. Use the MOUSE to indicate the club required then"�16)"press any button to go to the next stage"
�G�'"2. DIRECTION.   Position the cursor with the MOUSE then either."
�.�(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"
�0�16)"Pressing [3] will give a Sliced shot"'
�	��peb
�(�'�22)"PRESS ANY BUTTON TO CONTINUE"
��butt(0)
!�:ȗX%,Y%,K%:�K%:�1,-10,200,1

�butt(0)
�
� 
(��chofsc
2*FX112,3
<�
F=�x1%=� ȑ1280,768+O%-6166*green%:�ȑ0,768+O%-6166*green%
PP%=rough
Z�map1:�drawit
d�map1:�drawit
nP%=water:�6:�drawit
x
�green%�
�G%=�xs%,ys%)
��G%=6�G%=11W%=�
��
�*FX112,1
��
�� 
�
��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%
6X%=640:Y%=512
@�
JP%=mappoint%+holeno%:SP%=P%
T&OL%=(�(�~((map!(P%+&2FA))�&FFFF)))
^
AA%=�map1
h
�A%=1�AA%
rl%=�map2/10.5
|r%=�map2/10.5
�x%(A%)=r%:y%(A%)=l%
��
�I%=�map1-1
�"T%=�map1:T%=�map1:P%=P%+T%*4+4
�l%=0:r%=0:t%=0:b%=0
� �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
0�26
:V�smallmes(144,166,12,"POSITION POINTER ON VIEWPOINT THEN PRESS THE MIDDLE BUTTON")
DJ�smallmes(232,66,12,"ANY OTHER BUTTON TO RETURN TO THE HOLE SELECTOR")
Nȗ�:ȗ�X%,Y%
X�
b!ȗȓ548-OL%,310,OL%*2+180,660
lȗX%,Y%,T%
v'�X%<688�r%=(688-X%)�8�r%=(X%-688)�8
�)ȗȓ548-OL%,310+r%,OL%*2+180,660-r%*2
�y%=((592+OL%)-X%)�2
�x%=(640-Y%)�2
�&�T%=2�displayview(X%,Y%,SP%):��:��
�
�T%:��
��
�� 
���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
4�sine(X%,Y%)
>�drawscreen
H/�26:X%=640-�A$*8-24:�smallmes(X%,860,13,A$)
R�butt(0)
\�ȗX%,Y%,SP%:�SP%
f�butt(0)
p�
z� 
���map2(� x%,� y%,p%)
�!y%=-�map2/10.5:x%=-�map2/10.5
�
�p%,x%,y%
��
�� 
�ݤ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
	8N%=1:�:ȗX%,Y%,K%
	B�K%�
	L�X%>716�
	V�X%<772�
	`6�Y%>544N%=N%�18+1:�dono2(N%):�1,-10,200,1:�butt(0)
	jA�Y%<442N%-=1:N%=N%-(N%=0)*18:�dono2(N%):�1,-10,200,1:�butt(0)
	t�
	~*�Y%>472�Y%<516out%=�:F%=�:�1,-10,200,1
	��
	��X%<604�
	��Y%>456�Y%<540F%=�
	��
	��
	�	�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%:�
2*CHANNELVOICE 1 1
<�:�
F�colours(9):�screenbox
Pȗ�640,496
Zsmappoint%=�quest("WHICH COURSE DO YOU WISH TO PLAY?","CONE LINKS","PINE ISLES",0)*&3600:mapstart%=map+mappoint%
d7�mappoint%Course$="PINE ISLES"�Course$="CONE LINKS"
nM�quest("PREVIEW HOLES OR PLAY ROUND?","PLAY","PREVIEW",0)�preview:��:���
xhplay%=�quest("UNDER WHICH RULES ARE YOU TO PLAY?","MATCH PLAY","STROKE PLAY",0)+1:� 1=MATCH 2=STROKE
�noofplayers=�noplaying
��T%=1�noofplayers
��getname(T%)
�Qhand%(T%)=1-�quest("IS "+name$(T%)+" LEFT OR RIGHT HANDED?","LEFT","RIGHT",0)
��getskill(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:�
6�12:�139:�;T%;" PLAYER";
@�T%<>1�"S";
J*�",  PLAYING AT ";Course$;",  UNDER ";
TȎplay%�
^�1:�"MATCH";
h�2:�"STROKE";
r�
|�" PLAY RULES"
��0,1)�60,"-")
�1�6:�0,2)"NAME"�22)"DEXTERITY"�46)"SKILL":�12
��0,3)�60,"-")
��0,4);
�
�boardcol
��N%=1�T%
�	�N%+4
��name$(N%)�22);
�Ȏhand%(N%)�
��0:�"RIGHT";
��1:�"LEFT";
��
��" HANDED"�46);
 A$=�skillname(currents%(N%))
�A$
�
&�12:��60,"-")
0$�smallmes(520,368-I%*16,8,"YES")
:#�smallmes(680,368-I%*16,8,"NO")
D!ȗȓ536,376-I%*16,208,44:ȗ �
N�
XȗX%,Y%,K%
b�(X%<590�X%>692)�K%
l�1,-10,200,1
v=X%>692
��
�� 
���boardcol
��5,208,0,0
��6,144,128,80
��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)

4%�15:�860,604:�836,558:�85,884,558

>2�860,388:�836,432:�85,884,432:�836,436,884,436

H �8:�836,432,860,388:�884,432

R�836,562,860,604:�884,562

\ȗȓ372,388,514,220

f!N%=currents%(T%):�:ȗX%,Y%,K%

p�K%�

z�X%>836�

�8�Y%>544�N%<4N%+=1:�doskill(N%):�1,-10,200,1:�butt(0)

�8�Y%<442�N%>1N%-=1:�doskill(N%):�1,-10,200,1:�butt(0)

��

��X%<780�

��Y%>475�Y%<514F%=�

��

��

�	�F%=�

��1,-10,200,1

�currents%(T%)=N%

��

�� 

���doskill(T%)
�A$
A$=�skillname(T%)
�11:ȓȐ372,480,12*32,32
$�12:�372,508:�A$
.�
8� 
Bݤskillname(T%)
L�A$
V	ȎT%�
`�1:A$="BEGINNER"
j�2:A$="ENTHUSIAST"
t�3:A$="AMATEUR"
~�4:A$="PROFESSIONAL"
��
�=A$
�� 
���getname(T%)
��butt(0)
�*�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$," ")
26�centbox(�,"WHAT IS THE "+B$+"PLAYERS NAME?",15,8)
<ȗȓ306,480,634,48
F�smallmes(784,472,11,"OK")
P�smallmes(288,472,11,A$)
ZȗOX%,OY%,K%:�=1000
d�
n�butt(0)
xA$=name$(T%)
��336,516:�A$;
��139:*FX21
��
�2Q=�(0):�Q<>� �(X%<702�K%) �=0:ȗOX%,OY%,K%:ȗ�
��Q<>127Q=Q �223
��(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$
"�
,� 
6ݤnoplaying
@�butt(0)
J�play%=1�=2
T�X%,Y%,K%,F%,N%
^)�centbox(�,"HOW MANY PLAYERS?",12,10)
h$�mesbox(464,444,84,100):�dono(1)
r�mesbox(704,536,80,80)
|�mesbox(704,372,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,384,292,220
�N%=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
0=N%
:� 
D��dono(A%)
N�11:ȓȐ476,468,60,64
X�476,520
b�12:�double(A%)
l�
v� 
�ݤquest(A$,B$,C$,H%)
�
�L%,D%,R%
�R%=704+�length(�C$)
�L%=600-�length(�B$)
��centbox(�,A$,12,6+H%)
�D%=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%)
4L%+=3:�(L%�1)-0L%+=1
>
=L%*32
H� 
R��double(C%)
\C%=128+4*C%
f �C%,C%+1,8,8,10,C%+2,C%+3,11
p�
z� 
���screenbox
��M%:M%=�6
��mesbox(0,0,1279,1023)
��24,16;16;1263;1007;:�140:�
���textwind
��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$
$�
.� 
8��smallmes(x%,y%,C%,A$)
B
�o%,M%
L��=12M%=16�M%=32
Vo%=(1-(�A$�1))*M%
`$�mesbox(x%,y%,�A$*M%+M%*2+o%,64)
j!�12:�5:�x%+M%+o%�2,y%+44:�A$;
t�
~� 
���mesbox(x%,y%,X%,Y%)
��8:ȓȐx%,y%,X%,Y%
��3:ȓx%+4,y%+4,X%-8,Y%-8
��4:ȓx%+8,y%+8,X%-16,Y%-16
�#�11:ȓȐx%+12,y%+12,X%-24,Y%-24
��
�� 
���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)
2x2%=640-(�C$*8)
<�I%=1�F%*2+1
F�X%,772+Y%:�A$
P�B$<>""�x%,724+Y%:�B$
Z�C$<>""�x2%,676+Y%:�C$
d�del(50)
n�1,-10,180,1
x�
��4:�
��8,0
�*SCHOOSE topofscreen
��&ED,0,704
�
�windows2
��
�� 
���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
6&�12:�768,544:�1212,992:�85,1212,80
@"�13:�512,544:�64,80:�85,64,992
J�11:ȓȐ98,112,1080,848
T�0:ȓ98,112,1080,848
^%�24,100;116;1176;956;:ȑ98,116:�5
h�14:�P%=1�6:Y%=788-P%*132
r�7:�0,Y%+124,1080,Y%+124
|�14:�0,Y%,1080,Y%
�&�T%=40�80�40:�0,Y%+T%,1080,Y%+T%:�
�'�T%=1�8:X%=T%*120:�X%,Y%,X%,Y%+80:�
��
��P%=1�noofplayers
�,mp%=mapstart%+&2F9:Y%=728-(P%-1)*132:�12
�:�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$
0X%+=120:mp%+=&300
:�
D5�jump%(P%)+4:�4,768-(P%-1)*132:�name$(P%)�20+O%);
NȎcurrents%(P%)�
X�1:�"{BEGINNER}";
b�2:�"{ENTHUSIAST}";
l�3:�"{AMATEUR}";
v�4:�"{PROFESSIONAL}";
��
�A�40+O%);totscore%(P%);" STROKE"�(-(totscore%(P%)>1)*83)�53);
�6A$=" : "+�Hole%+" HOLE"+�-(Hole%>1),"S")+" PLAYED"
�Ȏplay%�
�
�1:�match
��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)
4D�X%>718�confirm:�X%>926�0,0:�("SCHOOSE topofscreen"):�&ED,0,0:�0
>��
H�0:�4:�
Rȗ�
\�139
f�
p� 
z
��confirm
��butt(0)
��gtos(0)
��mesbox(640,32,512,160)
�1�8:�656,176:�"ARE YOU SURE YOU WANT TO QUIT?"
��smallmes(794,60,8,"YES")
��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"
8B$=�14-�B$," ")+B$
B	ȎP%�
L�1:�S1%>=S2%�B$
V�2:�S2%>=S1%�B$
`�
j!A$=Course$+" : MATCH PLAY"+A$
t�
~� 
���stroke
�
�T%,B$
�#T%=totscore%(P%)-par%:B$=�(�T%)
�
Ȏ�T%�
��0:B$="EVEN PAR"
��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%
2�T%
<ȏ526,820,88+i%
Fȏ526,820,12+i%
Pi%+=4:�
Z�8
d�526,820
nBX%=wx*25:BY%=wy*25
x'x1%=va*BY%+vb*BX%:y1%=vi*BY%+va*BX%
��526+x1%,820+y1%
��
�� 
�
��setwind
�WX=0:WY=0:F%=green%
�wc=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))
6Fy=(��a%)*(15+(stren%�2))
@�
J� 
T
��spot
^bs%=1:BX=0:BY%=-R%:h%=0
h%x1%=va*BY%+vb*BX:y1%=vi*BY%+va*BX
r�vt(y1%,x1%,H%):ys%-=4
|*FX112,2
�lie%=�xs%+2,ys%)
��wellie(0)
�
�green%�
�,T%=�(mx%(0,Hand%)+4+T%+80*Hand%),my%(0))
��T%=6�T%=11�
��wellie(30)
��
��
�*FX112,1
��xs%,ys%:�BY10,16
�ox%=xs%:oy%=ys%
�osx%=xs%:osy%=ys%
�sx%=xs%:sy%=ys%
*SGET gr
*SGET sh
�
&� 
0��wellie(W%)
:�T%
D�T%=1�8:m%(T%,0)=T%+W%:�
Nwellie%=W%=30
X�
b� 
l��splash
v*CHANNELVOICE 1 PLOP
��A$,r%,a%,T%,x%,y%
�bad%=�:�1,-15,5,20
��sx%<640�
��r%=5�55�5
�
�r%>9�
��6:Ȗ:Ȗ
��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%
�
 �
*�
4�
>stroke%+=1
H!�G%=11A$="THE SEA"�A$="WATER"
RM�meswind("BALL LOST IN "+A$,"FORFEIT ONE STROKE","PLEASE PLAY AGAIN",5,6)
\�getplayvals
f	�spot
p*SCHOOSE plain
zMȖ:�&ED,mx%(g%,Hand%),my%(g%):�23,27;m%(1,g%)|:�&ED,mx%(g%,Hand%),my%(g%)
��
�� 
�
��putback
�
�green%�
��x1%<80x1%=(80+�(30))*�x1%
��y1%<80y1%=(80+�(30))*�y1%
��
�%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)
8$Ȕ currentS%(I%),currentS%(I%-1)
B$Ȕ totscore%(I%),totscore%(I%-1)
L Ȕ oldpos%(I%),oldpos%(I%-1)
VȔ name$(I%),name$(I%-1)
`Ȕ hsp%(I%),hsp%(I%-1)
jȔ hand%(I%),hand%(I%-1)
tȔ jump%(I%),jump%(I%-1)
~�
�� 
�
��winsort
�
�T%,I%
��noofplayers<>1�
�'�T%=1�noofplayers:�I%=2�noofplayers
��oldpos%(I%)<oldpos%(I%-1)�
��swapall
��
��:�
�'�T%=1�noofplayers:�I%=2�noofplayers
�#�currentS%(I%)<currentS%(I%-1)�
��swapall
�

�:�
�
�
(� 
2��setplayer
<�T%
F�T%=1�noofplayers
Poldpos%(T%)=T%
Z�
d�
n� 
x��whichplayer
�
�T%,I%
��noofplayers<>1�
��T%=1�noofplayers
��I%=2�noofplayers
�#�currentR%(I%)>currentR%(I%-1)�
��swapall
��
��:�
��
�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%)):�
6*SFlipY 20
@�
J�
T� 
^��getplayvals
h$X%=currentx%(1):YY%=currenty%(1)
r�
|� 
���light
�
Y%=YY%
��Y%>0�X%>0!px%=li%
��Y%>0�X%<=0!px%=(li%+1)�3
��Y%<=0�X%<=0!px%=(li%+2)�3
��Y%<=0�X%>0!px%=(li%+3)�3
��
�� 
���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%)
 0%green%=(R%<525):Ma=.7-(green%*.3)
 :1OL%=(�(�~((map!(mappoint%+&2FA))�&FFFF)))>440
 D*r=12096-2000*green%-1500*(OL%��green%)
 N
d=r-R%
 X(g%=-green%:O%=-6292*green%:H%=250+O%
 bva=-X%/R%:vb=Y%/R%:vi=-vb
 l�
 v� 
 �ݤdistance(x%,y%)
 �=�(x%^2+y%^2)
 �� 
 ���getstart
 �P%=&2E8+mappoint%:X%=�map2
 �
YY%=�map2
 �Hole%=map?(mappoint%+&2F8)
 �stx%=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
!4	B%-=1
!>!�(B%>0�(ya>4��green%))�h%>30�
!H4�h%>1��(OBY%-BY%)>5�(�green%��(5)<>2)�ric:B%=4:�
!R
��chhole2
!\D%=�:*SCHOOSE sh
!f�&ED,osx%,osy%
!p*SCHOOSE gr
!z�&ED,ox%,oy%
!�*CHANNELVOICE 1 HOLED
!��1,-15,20,20
!�
�del(150)
!�
�holedout
!�'ya=0:u=0:ud=0:p%=0:h%=0:x1%=0:y1%=0
!��
!�� 
!���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$=""
".�
"8cC$="":F%=3:S%=5:�stroke%=1A$="WOW! IT'S A HOLE IN ONE":B$="KNOCKED IN BY":C$=name$(1):F%=6:S%=3
"B&� �A$<�B$�:A$=" "+A$+" ":��A$>=�B$
"L�meswind(A$,B$,C$,F%,S%)
"V�del(50)
"`�
"j� 
"t	��ric
"~�4,-15,20,1
"�
��2ric
"�u=u*4:�u=0u=(3+�(5))*�x1%
"�ya=ya �2:p%=ya �3
"��green%�ya=0 h%=0:p%=0
"��
"�� 
"���flight
"�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
#2YY%=y1%:X%=x1%
#<�D%��green%�
#F*FX112,2
#PG%=�sx%,sy%)
#ZG1%=�sx%,sy%+8)
#d*FX112,1
#n�(G%�G1%)=0�chhole2
#x�
#�� 
#�	��fly
#��h%<4�ya<16Ȗ
#�-Ȗ:BX+=u*yd+Sl:Sl+=sl:u-=ud:�u>ya u=u>>1
#�!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%=�
#��h%<=0 �bounce
#�6�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
$6�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%):�
$J�2,SO%,1,10
$T�T%=6�8:�T%>6�fly:�Ȗ
$^*SCHOOSE plain
$h-�green%:Ȗ:�&ED,mx%(g%,Hand%),my%(g%)�Ȗ
$r0�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
$��
$�
�fly:�fly
$�*SCHOOSE plain
$�MȖ:�&ED,mx%(g%,Hand%),my%(g%):�23,27;m%(8,g%)|:�&ED,mx%(g%,Hand%),my%(g%)
$��
$�� 
$�
��del(T%)
$��=0:���>T%
$��
$�� 
$���bunker
$��32,0:H%+=2:P%=oP%
$�
�drawbunk
%�2:H%+=2:P%=oP%
%
�drawbunk
%	H%-=4
%&�
%0� 
%:��drawbunk
%D<np%=�map1:�map(CX%,CY%,H%,4,r):�map3(SX%,SY%,H%,4,r,CX%)
%N5�I%=1�np%-1:�map3(XI%,YI%,H%,85,r,CX%):�CX%,CY%:�
%X�85,SX%,SY%
%b�
%l� 
%v!��map3(� x%,� y%,z%,p%,r,CX%)
%��pO%
%�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
%�)�green%�y%>-32�y%<&FFFF8000 y%=-6000
%�x%=x%-�(x%-CX%)*4
%�pO%=�x%,y%)
%�ȕpO%>3
%�y%+=4:pO%=�x%,y%)
%��
%�
�p%,x%,y%
%��
%�� 
%���sceen
%�
No%=�map1
&rough=P%
&�green%�
&
Co%=�map1
& �:np%=�map1
&*"P%=P%+np%*4+4:Co%=�map1:No%-=1
&4�Co%=5�Co%=1:P%-=1
&>�
&H-sP%=P%:�T%=1�No%:Co%=�map1:�Co%=6water=P%
&R�green%�Co%=4�
&\np%=�map1:P%=P%+np%*4+4
&f*�:oP%=P%:Co%=Co%-((Co%=1)�green%):�Co%
&p�drawit:�Co%=1�bunker
&z�:�:�green%�
&��8,0
&�*SCHOOSE HOLE
&��&ED,-6,-(d*H%�r)*2-12
&��
&��trees:*FX112,2
&��green%�135:��139
&�%�:P%=sP%:�T%=1�No%:Co%=�map1:�Co%
&��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
'8Ȏjump%(1)�
'B�1:�8,208,0,0
'L�2:�8,144,128,80
'V�3:�8,112,112,112
'`�4:�8,240,112,0
'j�5:�8,96,96,48
't�6:�8,208,80,144
'~�
'��
'�� 
'���gtos(Y%)
'�,�26:�0,Y%:�1279,Y%+319:*SGET topofscreen
'��
'�� 
'�
��getinfo
'�*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
(2ȓ416,708,220,311
(<ȓ644,708,483,311
(F�4:ȓ8,712,396,303
(Pȓ420,712,212,303
(Zȓ648,712,475,303
(d�:�28,6,8,74,1:�12
(n6�41,0)"PLAYER         : ";:�8:�name$(player%):�12
(x%�41,1)"PLAYING AT     : "Course$
(�$�41,2)"HOLE NUMBER    : ";Hole%
(�4�41,3)"PAR            : ";~map?(mappoint%+&2F9)
(�E�41,4)"OVERALL LENGTH : ";~(map!(mappoint%+&2FA))�&FFFF;" YARDS"
(�V�41,5)"RANGE TO HOLE  : ";:�8:�;(R%�21)*(1-green%*2);:�green%:�" FEET":��" YARDS"
(�*�12:�41,6)"STROKES PLAYED : ";stroke%
(��showlie
(��setwind
(�
�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
)6�11:ȓȐ56,796,300,16
)@ my%=256-green%*164:ș6,106,2
)J	ȑ0,0
)T>ȗȓ432+(green%=0)*160,my%,414-(green%=0)*320,0:ȗ�640,my%
)^xs%=0:OX%=0:u=0
)h�:ȗX%,Y%,C%
)r�C%=1�C%=4��:��
)|#a%=(X%-xs%-640)/8:�a%<10a%=�a%
)�	u+=a%
)�
�X%<>xs%�
)�ABX%=0:BY%=-R%:�vt(vi*BY%+va*BX%,va*BY%+vb*BX%,H%):yst%=ys%+25
)�C�:BX%+=u:BY%+=80:�vt(vi*BY%+va*BX%,va*BY%+vb*BX%,H%):�ys%>=yst%
)��
)�ȗ�xs%-640,my%
)�	�C%=2
)�ȗ�
)�
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
*0�8,0:�&ED,0,704
*:
�windows2
*D�
*N� 
*X
��showlie
*b�a$
*la$="ON THE ":�8
*v�41,7);
*�!bunk%=�:bad%=�:wind%=skill%>2
*��green%�
*�4�lie%=5 �a$"GREEN";:��"ON EDGE OF GREEN";:lie%=5
*��
*�Ȏlie%�
*��1:�"IN A BUNKER ";:�gob
*��4:�"ON A PATHWAY";
*��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";
+4>�2:�wellie%�"IT'S A WELLIE JOB";:��"BALANCED ON LILY PAD";
+>�
+H�
+R� 
+\	��gob
+f:�g$,b$:g$="GOOD LIE":�lie%=9b$="BAD LIE":�b$="PLUGGED"
+p
Ȏskill%�
+z�1:�"NO EFFECT";
+��2,3:�g$;:bunk%=�
+�'�4:bunk%=�:�(2)=2�b$;:bad%=1:��g$;
+��
+��
+�� 
+�ݤpower
+��X%,C%,c%,p%,a%
+�
ȑ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%�
,8
�1:sl=.05
,B�4:sl=-.05
,L�
,V�
,`�skill%<>1�
,jȎlie%�
,t#�1,9:p%=(p%/100)*red%(vp%,bad%)
,~/�6:a%=vp%-2*(p%<11):p%=p%/100*red%(a%,bad%)
,��
,��
,��1,-10,200,1
,�
�p%<1p%=1
,�=p%
,�� 
,�
��getclub
,��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)
-2
�C%<>0
-<�butt(0):�4
-F	��cls
-P�:�28,6,8,29,1:�
-Z�
-d� 
-n	��box
-x�3,6
-�ȓȐ32+128*ox%,oy%,96,32
-�ȓȐ32+128*x%,y%,96,32
-��1,-10,200,1
-�ox%=x%:oy%=y%
-��
-�� 
-���mrect(R%)
-��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
.6�Y%>835�
.@ ȗȓ288,836,90,80:ȗ�349,912
.J"� ȗȓ288,752,90,50:ȗ�349,778
.T�
.^�
.h� 
.r
��iop2
.|'�Y%=836ȗȓ288,752,90,50:ȗ�349,786
.�'�Y%=802ȗȓ288,836,90,80:ȗ�349,856
.��
.�� 
.���butt(on)
.�
�D%,C%
.��
.�ȗD%,D%,C%
.�
�C%=on
.��
.�� 
.�
��windows
.��26:�128:�:�maincols
.�
�green%�
/�6:ȓȐ 0,0,1280,736
/�4:�0,732,1280,732
/�138:�24,0;736;1279;1023;:�
/&�clouds
/0��135:�
/:�
/D��windows2
/N �26:ȑ640,768+O%-6166*green%
/X�
/b� 
/l��clouds
/v
�C%,T%,O%
/�$�vb>0 O%=��va �O%=180+(180-��va)
/�O%=�O%*3.5:�11
/��C%=1�12:�T%=1�12
/�5ȝȐ(CL%(0,C%,T%)+O%)�2520+I%,CL%(1,C%,T%),256,64
/��:�
/��
/�� 
/���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
/��:�
/��
0� 
0��bounce
0h%=0:p%=-p%/2.2
0  �vp%=13��green%��(10)=5�2ric
0**FX112,2
04G%=�sx%,sy%)
0>*FX112,1
0H	ȎG%�
0R)�1:p%=p%>>1:�p%>4:ya=ya*.3:�ya=ya*.75
0\/�4:�p%>3�ya<>0p%=p%*1.5:ya=ya*1.3:ud=ud/1.3
0f`�6,11:W%=�:xs%=1000:sx%=1000:ya=0:p%=0:h%=0:� plotball,bs%,oy%,ox%,osy%,osx%,ys%,xs%,sy%,sx%
0pJ�9,-1:ya=ya/1.5:p%=p%>>1:u=u/2:ud=ud/2:�green%�G%=-1ya=0:p%=0:u=0:ud=0
0z�
0��
0�� 
0���drawit
0�7np%=�map1:�map(CX%,CY%,H%,4,r):�map(SX%,SY%,H%,4,r)
0�0�I%=1�np%-1:�map(XI%,YI%,H%,85,r):�CX%,CY%:�
0��85,SX%,SY%
0��
0�� 
0���vt(x%,y%,z%)
0�Lxe%=va*x%+vb*y%:ze%=(vi*x%+va*y%+r)*Ma:xs%=d*xe% �ze%:ys%=-(d*z% �ze%)*2
0��
0�� 
0�"��caltre(� x%(),� y%(),� z%())
1�i%,l%,lo%,n%
1
�A%=1�AA%
1l%=�map2:trex!(A%*4)=l%
1$i%=�map2:trey!(A%*4)=i%
1.xe=va*i%+vb*l%
18ze=(vi*i%+va*l%+r)*Ma
1B(x%(A%)=d*xe �ze:y%(A%)=-(d*H% �ze)*2
1Lz%(A%)=-(d*(H%+200)�ze)*2
1V�
1`�
1j� 
1t��map(� x%,� y%,z%,p%,r)
1~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
1�)�green%�y%>-32�y%<&FFFF8000 y%=-6000
1�
�p%,x%,y%
1��
1�� 
1�ݤmap1:P%+=1:=map?(P%-1)
1�� 
1�$ݤmap2:P%+=2:Q%=map!(P%-2)�&FFFF
1��Q%>&7FFFQ%=Q%�&FFFF0000
1�=Q%
1�� 
1���trees
1�PF%=�:PB%=-(d*H%�(r*Ma))*2
2PT%=-(d*(H%-30)�(r*Ma))*2
2
FB%=-(d*(H%-24)�(r*Ma))*2
2Vxe=va*Fx+vb*Fy:ze=(vi*Fx+va*Fy+r)*Ma:FX%=d*xe �ze:FY%=-(d*(H%-16-(stren%�4))�ze)*2
2�green%�
2(�T%=AA%�1��
22X1%=x%(T%):Y%=y%(T%)
2<=�PF%�Y%<PB% �11:�0,PB%:�0,PT%:�3:�0,FB%:�85,FX%,FY%:PF%=�
2F*�(�X1%>400�Y%>-708)��X1%<800�Y%>-1000�
2PAx%=(�Y%-�z%(T%))>>1:y%=-x%>>2:ya%=y%*1.5:xa%=x%>>4:yd%=ya%>>2
2Z+�tr%!(((px%+1)�3)*4):ȓȐX1%,Y%,-xa%,y%
2d*�tr%!(((px%+2)�3)*4):ȓȐX1%,Y%,xa%,y%
2n1Y%+=y%:xa%=xa%*2:z%(T%)=�:x%=x%*.8:xa%=xa%*.8
2x&�plottree,xa%,y%,x%,X1%,Y%,ya%,yd%
2�� z%(T%)=�
2��
2��
2��
2�� 
2���initiate
2�Hand%=0:green%=0
2��0,1
2��colours(12)
2��red%(13,1)
2�� CL%(1,12,12)
2�� code &900
2�� map &6D00
3%�"L. <Obey$Dir>.THE_LINKS "+�~map
3
� parb 20
3� x%(96),y%(96),z%(96)
3"#�TX%(13),TY%(13),A$(13),CV%(13)
3,C�mx%(1,1),my%(1),m%(8,1),bag%(1),name$(6),defname$(6):player%=1
36��holescores%(6,18),currentx%(6),currenty%(6),currentR%(6),currentS%(6),currents%(6),totscore%(6),oldpos%(6),hsp%(6),hand%(6),jump%(6)
3@�C(45),S(45)
3J�sa%(1,2,20)
3Tcurrents%()=1
3^�I%=2�4
3h�N%=0�20
3rsa%(0,I%-2,N%)=�(I%*8)-I%*4
3|#sa%(1,I%-2,N%)=I%*12+16+�(I%)*4
3��
3��
3��T%=0�45
3�!C(T%)=��(T%*8):S(T%)=��(T%*8)
3��
3�(mx%(0,1)=-2:mx%(0,0)=-96:my%(0)=-728
3�*mx%(1,1)=-4:mx%(1,0)=-64:my%(1)=-13121
3�bag%(0)=-196:bag%(1)=120
3�sx%=�:sy%=�:r=11096
3�
� �t|t
3��T%=0�13
3�#�TX%(T%),TY%(T%),A$(T%),CV%(T%)
3��
4�wellie(0)
4�T%=1�8:�m%(T%,1):�
4$�I%=0�1:�T%=0�13:�red%(T%,I%):�,
4&'CX%=0:CY%=0:SX%=0:SY%=0:XI%=0:YI%=0
40%h%=0:x1%=0:y1%=0:K%=0:BY%=0:bs%=0
4:defname$(1)="JOHN"
4Ddefname$(2)="GEORGE"
4Ndefname$(3)="PAUL"
4Xdefname$(4)="RINGO"
4bdefname$(5)="MICK"
4ldefname$(6)="JERRY"
4v	�code
4�ș"Hourglass_Off"
4�*POINTER
4�ȗ �
4�ȗ�1,0,240,0
4�ȗ�2,0,128,0
4��
4��1,2,1 WOOD,74
4��1,3,3 WOOD,70
4��1,4,5 WOOD,68
4��9,2,1 IRON,67
4��9,3,2 IRON,65
4��9,4,3 IRON,63
4��9,5,4 IRON,61
5�9,6,5 IRON,59
5�9,7,6 IRON,57
5�17,2,7 IRON,55
5 �17,3,8 IRON,53
5*�17,4,9 IRON,48
54�17,6,WEDGE,41
5>�17,7,PUTTER,60
5H�9,10,10,11,11,9,9,9
5R/�30,40,48,55,61,66,71,76,81,85,89,93,96,100
5\'�1,1,1,1,1,1,15,40,55,66,76,85,93,1
5f� 
5p��colours(M%)
5zȖ:�M%:�
5�
�maincols
5��23,17,4,1|
5�)�23,2,&EF,&FE,&EF,&FE,&EF,&FE,&EF,&FE
5�)�23,3,&12,&21,&12,&21,&12,&21,&12,&21
5�)�23,4,&C0,&0C,&C0,&0C,&C0,&0C,&C0,&0C
5�)�23,5,&D4,&4D,&D4,&4D,&D4,&4D,&D4,&4D
5��
5���maincols
5�� 
5��0,0,0,0:� BLACK
5��1,176,128,0:� DARK SAND
5��2,176,160,48:� LIGHT SAND
5��3,208,160,144:� FLESH
6�4,144,144,144:� PATH
6�5,16,208,0:� GREEN
6�6,32,144,208:� WATER
6$�7,0,160,0:� FAIRWAY
6.�8,208,0,0:� RED
68�9,0,112,0:� ROUGH
6B�10,96,192,224:� SKY
6L�11,240,240,240:� WHITE
6V�12,80,48,16:� DARK BROWN
6`�13,96,64,48:� LIGHT BROWN
6j$�14,16,64,48:� DARK GREEN (TREE)
6t&�15,0,96,64:� LIGHTER GREEN (TREE)
6~�
6�� 
6�
��pointer
6��par 20,block 112
6�	��TTw
6��T%=0�108�4:�block!T%:�
6�
?par=0
6�par?1=2
6�par?2=8
6�par?3=14
6�par?4=16
6�par?5=7
6�par!6=block
7�12
7
*A%=21:B%=par:C%=par �256:ș 7,A%,B%,C%
7��&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
7�
7(� 
72
��code
7<*�("LOAD <Obey$Dir>.holedout4 "+�~code)
7Fplotball=code+&188
7Pplottree=code
7Zsort=code+&7E0
7dpx%=code+&158
7ntr%=code+&148
7xtrex=code+&4B8
7�trey=code+&63C
7��
7�
�
00000000  0d 00 0a 13 f4 20 3e 21  2a 2e 48 4f 4c 45 44 4f  |..... >!*.HOLEDO|
00000010  55 54 33 0d 00 14 37 f4  20 50 52 4f 47 52 41 4d  |UT3...7. PROGRAM|
00000020  4d 45 44 20 42 59 20 47  2e 4a 2e 4b 45 59 20 42  |MED BY G.J.KEY B|
00000030  45 54 57 45 45 4e 20 32  33 2d 33 2d 38 39 20 41  |ETWEEN 23-3-89 A|
00000040  4e 44 20 32 39 2d 34 2d  38 39 0d 00 1e 1e f4 20  |ND 29-4-89..... |
00000050  28 43 29 20 54 48 45 20  46 4f 55 52 54 48 20 44  |(C) THE FOURTH D|
00000060  49 4d 45 4e 53 49 4f 4e  0d 00 28 07 f4 20 15 0d  |IMENSION..(.. ..|
00000070  00 32 0c 2a 46 58 32 30  30 2c 33 0d 00 3c 16 f2  |.2.*FX200,3..<..|
00000080  70 6f 69 6e 74 65 72 3a  f2 69 6e 69 74 69 61 74  |pointer:.initiat|
00000090  65 0d 00 3d 16 ee 85 20  e7 a6 2d 32 20 8c 20 2a  |e..=... ..-2 . *|
000000a0  44 45 53 4b 54 4f 50 0d  00 46 0d f2 69 6e 73 74  |DESKTOP..F..inst|
000000b0  72 75 63 74 0d 00 50 0c  2a 46 58 32 30 30 2c 32  |ruct..P.*FX200,2|
000000c0  0d 00 5a 10 f2 63 6f 6c  6f 75 72 73 28 31 32 29  |..Z..colours(12)|
000000d0  0d 00 64 13 2a 53 43 48  4f 4f 53 45 20 53 43 52  |..d.*SCHOOSE SCR|
000000e0  45 45 4e 0d 00 6e 18 2a  43 48 41 4e 4e 45 4c 56  |EEN..n.*CHANNELV|
000000f0  4f 49 43 45 20 31 20 42  45 4c 4c 0d 00 78 0c f0  |OICE 1 BELL..x..|
00000100  26 45 44 2c 30 2c 30 0d  00 82 07 d1 3d 30 0d 00  |&ED,0,0.....=0..|
00000110  8c 09 2a 46 58 31 35 0d  00 96 10 f5 3a c8 97 58  |..*FX15.....:..X|
00000120  25 2c 59 25 2c 54 25 0d  00 a0 1b e7 91 3e 33 30  |%,Y%,T%......>30|
00000130  30 30 d4 31 2c 2d 31 35  2c 33 30 30 2c 31 3a d1  |00.1,-15,300,1:.|
00000140  3d 30 0d 00 aa 10 fd 54  25 84 a6 28 31 30 29 3c  |=0.....T%..(10)<|
00000150  3e b9 0d 00 b4 15 2a 43  48 41 4e 4e 45 4c 56 4f  |>.....*CHANNELVO|
00000160  49 43 45 20 31 20 31 0d  00 be 05 f5 0d 00 bf 0c  |ICE 1 1.........|
00000170  2a 46 58 32 30 30 2c 32  0d 00 dc 0f f2 67 65 74  |*FX200,2.....get|
00000180  6f 70 74 69 6f 6e 73 0d  00 e6 0f f4 4f 4e 45 52  |options.....ONER|
00000190  52 4f 52 4f 46 46 0d 00  f0 0c 2a 46 58 32 30 30  |ROROFF....*FX200|
000001a0  2c 33 0d 00 fa 10 f2 63  6f 6c 6f 75 72 73 28 31  |,3.....colours(1|
000001b0  32 29 0d 01 04 19 48 6f  6c 65 25 3d 31 3a 74 6f  |2)....Hole%=1:to|
000001c0  74 73 63 6f 72 65 25 28  29 3d 30 0d 01 0e 23 e3  |tscore%()=0...#.|
000001d0  54 25 3d 31 b8 6e 6f 6f  66 70 6c 61 79 65 72 73  |T%=1.noofplayers|
000001e0  3a 68 73 70 25 28 54 25  29 3d 54 25 3a ed 0d 01  |:hsp%(T%)=T%:...|
000001f0  18 08 58 25 3d 30 0d 01  22 05 f5 0d 01 2c 19 e7  |..X%=0.."....,..|
00000200  58 25 3e 37 31 38 84 48  6f 6c 65 25 3d 31 38 fd  |X%>718.Hole%=18.|
00000210  b9 3a fd a3 0d 01 36 0c  72 6f 75 6e 64 25 3d a3  |.:....6.round%=.|
00000220  0d 01 40 0e f2 69 6e 69  74 63 6c 6f 75 64 0d 01  |..@..initcloud..|
00000230  4a 0e 6c 69 25 3d b3 28  34 29 2d 31 0d 01 54 0d  |J.li%=.(4)-1..T.|
00000240  f2 67 65 74 73 74 61 72  74 0d 01 5e 0d f2 69 6e  |.getstart..^..in|
00000250  69 74 77 69 6e 64 0d 01  68 0e f2 73 65 74 70 6c  |itwind..h..setpl|
00000260  61 79 65 72 0d 01 72 05  f5 0d 01 7c 10 f2 77 68  |ayer..r....|..wh|
00000270  69 63 68 70 6c 61 79 65  72 0d 01 86 17 e7 72 6f  |ichplayer.....ro|
00000280  75 6e 64 25 fd b9 3a f2  62 6f 61 72 64 3a fd a3  |und%..:.board:..|
00000290  0d 01 90 10 f2 67 65 74  70 6c 61 79 76 61 6c 73  |.....getplayvals|
000002a0  0d 01 9a 0a f2 6c 69 67  68 74 0d 01 a4 10 f2 73  |.....light.....s|
000002b0  69 6e 65 28 58 25 2c 59  25 29 0d 01 ae 0f f2 64  |ine(X%,Y%).....d|
000002c0  72 61 77 73 63 72 65 65  6e 0d 01 b8 09 f2 73 70  |rawscreen.....sp|
000002d0  6f 74 0d 01 c2 25 ec 6d  78 25 28 67 25 2c 48 61  |ot...%.mx%(g%,Ha|
000002e0  6e 64 25 29 2c 6d 79 25  28 67 25 29 3a ec 42 59  |nd%),my%(g%):.BY|
000002f0  31 32 30 2c 31 37 36 0d  01 cc 0f 2a 53 47 45 54  |120,176....*SGET|
00000300  20 50 4c 41 49 4e 0d 01  d6 12 2a 53 43 48 4f 4f  | PLAIN....*SCHOO|
00000310  53 45 20 42 41 4c 4c 31  0d 01 e0 10 f0 26 45 44  |SE BALL1.....&ED|
00000320  2c 78 73 25 2c 79 73 25  0d 01 ea 25 ec 6d 78 25  |,xs%,ys%...%.mx%|
00000330  28 67 25 2c 48 61 6e 64  25 29 2c 6d 79 25 28 67  |(g%,Hand%),my%(g|
00000340  25 29 3a ec 42 59 31 32  30 2c 31 37 36 0d 01 f4  |%):.BY120,176...|
00000350  0f 2a 53 47 45 54 20 42  4c 41 43 4b 0d 01 fe 0f  |.*SGET BLACK....|
00000360  2a 53 43 48 4f 4f 53 45  20 32 30 0d 02 08 15 62  |*SCHOOSE 20....b|
00000370  61 25 3d 73 74 79 25 3d  79 31 25 3a e6 38 2c 30  |a%=sty%=y1%:.8,0|
00000380  0d 02 12 1d e7 62 61 25  f0 26 45 44 2c 62 61 67  |.....ba%.&ED,bag|
00000390  25 28 48 61 6e 64 25 29  2c 2d 37 35 34 0d 02 1c  |%(Hand%),-754...|
000003a0  05 f5 0d 02 26 2f ef 32  33 2c 32 37 3b 6d 25 28  |....&/.23,27;m%(|
000003b0  31 2c 67 25 29 7c 3a f0  26 45 44 2c 6d 78 25 28  |1,g%)|:.&ED,mx%(|
000003c0  67 25 2c 48 61 6e 64 25  29 2c 6d 79 25 28 67 25  |g%,Hand%),my%(g%|
000003d0  29 0d 02 30 0c f2 67 65  74 69 6e 66 6f 0d 02 3a  |)..0..getinfo..:|
000003e0  0d 44 25 3d a3 3a 42 25  3d a3 0d 02 44 0d 57 25  |.D%=.:B%=...D.W%|
000003f0  3d b9 3a 4b 25 3d a3 0d  02 4e 0b f2 77 61 6c 74  |=.:K%=...N..walt|
00000400  65 72 0d 02 58 0b f2 66  6c 69 67 68 74 0d 02 62  |er..X..flight..b|
00000410  14 e7 94 73 78 25 3e 36  34 30 f2 63 68 6f 66 73  |...sx%>640.chofs|
00000420  63 0d 02 6c 16 e7 ac 57  25 f2 73 70 6c 61 73 68  |c..l...W%.splash|
00000430  3a fd a3 3a 8b fd b9 0d  02 76 0c f2 70 75 74 62  |:..:.....v..putb|
00000440  61 63 6b 0d 02 80 0d f2  64 65 6c 28 31 35 30 29  |ack.....del(150)|
00000450  0d 02 8a 06 fd a3 0d 02  94 07 f4 20 15 0d 02 9e  |........... ....|
00000460  0e dd f2 69 6e 73 74 72  75 63 74 0d 02 a8 1a f2  |...instruct.....|
00000470  63 6f 6c 6f 75 72 73 28  39 29 3a f2 73 63 72 65  |colours(9):.scre|
00000480  65 6e 62 6f 78 0d 02 b2  43 e7 a4 71 75 65 73 74  |enbox...C..quest|
00000490  28 22 44 4f 20 59 4f 55  20 52 45 51 55 49 52 45  |("DO YOU REQUIRE|
000004a0  20 49 4e 53 54 52 55 43  54 49 4f 4e 53 3f 22 2c  | INSTRUCTIONS?",|
000004b0  22 59 45 53 22 2c 22 4e  4f 22 2c 30 29 3a f2 62  |"YES","NO",0):.b|
000004c0  75 74 74 28 30 29 3a e1  0d 02 bc 27 f2 63 6f 6c  |utt(0):....'.col|
000004d0  6f 75 72 73 28 31 32 29  3a f2 6d 65 73 62 6f 78  |ours(12):.mesbox|
000004e0  28 30 2c 30 2c 31 32 37  39 2c 31 30 32 33 29 0d  |(0,0,1279,1023).|
000004f0  02 c6 19 fb 31 33 39 3a  fb 39 3a ef 32 38 2c 33  |....139:.9:.28,3|
00000500  2c 33 30 2c 37 38 2c 31  0d 02 d0 22 f1 8a 32 34  |,30,78,1..."..24|
00000510  29 22 48 4f 4c 45 44 20  4f 55 54 20 45 58 54 52  |)"HOLED OUT EXTR|
00000520  41 20 43 4f 55 52 53 45  53 22 0d 02 da 06 fb 38  |A COURSES".....8|
00000530  0d 02 e4 39 f1 8a 31 34  2c 32 29 22 32 20 56 6f  |...9..14,2)"2 Vo|
00000540  6c 75 6d 65 73 20 6f 66  20 65 78 74 72 61 20 63  |lumes of extra c|
00000550  6f 75 72 73 65 73 20 61  72 65 20 6e 6f 77 20 61  |ourses are now a|
00000560  76 61 69 6c 61 62 6c 65  22 0d 02 ee 07 fb 31 32  |vailable".....12|
00000570  0d 02 f8 52 f1 8a 30 2c  34 29 22 45 61 63 68 20  |...R..0,4)"Each |
00000580  76 6f 6c 75 6d 65 20 63  6f 6e 74 61 69 6e 73 20  |volume contains |
00000590  32 20 73 75 70 65 72 62  6c 79 20 64 65 73 69 67  |2 superbly desig|
000005a0  6e 65 64 20 6e 65 77 20  63 6f 75 72 73 65 73 20  |ned new courses |
000005b0  74 6f 20 63 68 61 6c 6c  65 6e 67 65 20 79 6f 75  |to challenge you|
000005c0  72 22 0d 03 02 4b f1 22  67 6f 6c 66 69 6e 67 20  |r"...K."golfing |
000005d0  73 6b 69 6c 6c 73 20 74  6f 20 74 68 65 20 6c 69  |skills to the li|
000005e0  6d 69 74 2e 20 20 41 6c  6c 20 74 68 65 20 66 65  |mit.  All the fe|
000005f0  61 74 75 72 65 73 20 6f  66 20 74 68 65 20 67 61  |atures of the ga|
00000600  6d 65 20 68 61 76 65 20  62 65 65 6e 22 0d 03 0c  |me have been"...|
00000610  45 f1 22 63 61 72 65 66  75 6c 6c 79 20 77 6f 76  |E."carefully wov|
00000620  65 6e 20 74 6f 67 65 74  68 65 72 20 74 6f 20 74  |en together to t|
00000630  65 73 74 20 65 76 65 6e  20 74 68 65 20 6c 69 6b  |est even the lik|
00000640  65 73 20 6f 66 20 4e 69  63 6b 20 46 61 6c 64 6f  |es of Nick Faldo|
00000650  2e 22 0d 03 16 4f f1 22  28 46 6f 72 20 65 78 61  |."...O."(For exa|
00000660  6d 70 6c 65 3a 20 6e 61  72 72 6f 77 20 73 68 6f  |mple: narrow sho|
00000670  72 74 20 66 61 69 72 77  61 79 73 2c 20 6b 65 65  |rt fairways, kee|
00000680  6e 6c 79 20 70 6f 73 69  74 69 6f 6e 65 64 20 62  |nly positioned b|
00000690  75 6e 6b 65 72 73 20 61  6e 64 20 77 61 74 65 72  |unkers and water|
000006a0  22 0d 03 20 4c f1 22 70  72 6f 74 65 63 74 69 76  |".. L."protectiv|
000006b0  65 20 74 72 65 65 6c 69  6e 65 73 2c 20 73 74 72  |e treelines, str|
000006c0  6f 6e 67 20 76 61 72 69  65 64 20 77 69 6e 64 73  |ong varied winds|
000006d0  20 61 6e 64 20 73 74 65  65 70 6c 79 20 73 6c 6f  | and steeply slo|
000006e0  70 65 64 20 67 72 65 65  6e 73 29 2e 22 0d 03 2a  |ped greens)."..*|
000006f0  50 f1 27 22 49 6e 63 6c  75 64 65 64 20 77 69 74  |P.'"Included wit|
00000700  68 20 65 61 63 68 20 76  6f 6c 75 6d 65 20 69 73  |h each volume is|
00000710  20 61 20 31 36 2d 70 61  67 65 20 69 6e 73 74 72  | a 16-page instr|
00000720  75 63 74 69 6f 6e 20 6d  61 6e 75 61 6c 20 77 68  |uction manual wh|
00000730  69 63 68 20 66 65 61 74  75 72 65 73 22 0d 03 34  |ich features"..4|
00000740  4f f1 22 65 61 73 79 20  74 6f 20 66 6f 6c 6c 6f  |O."easy to follo|
00000750  77 20 67 75 69 64 65 6c  69 6e 65 73 2c 20 67 65  |w guidelines, ge|
00000760  6e 65 72 61 6c 20 72 75  6c 65 73 20 6f 66 20 67  |neral rules of g|
00000770  6f 6c 66 20 61 6e 64 20  64 65 74 61 69 6c 65 64  |olf and detailed|
00000780  20 73 63 61 6c 65 20 6d  61 70 73 22 0d 03 3e 4d  | scale maps"..>M|
00000790  f1 22 6f 66 20 61 6c 6c  20 74 68 65 20 33 36 20  |."of all the 36 |
000007a0  68 6f 6c 65 73 2e 20 20  49 6e 20 61 64 64 69 74  |holes.  In addit|
000007b0  69 6f 6e 20 74 68 65 72  65 20 69 73 20 61 6c 73  |ion there is als|
000007c0  6f 20 61 20 68 61 6e 64  79 20 72 65 66 65 72 65  |o a handy refere|
000007d0  6e 63 65 20 63 61 72 64  22 0d 03 48 4e f1 22 77  |nce card"..HN."w|
000007e0  68 69 63 68 20 67 69 76  65 73 20 73 75 6d 6d 61  |hich gives summa|
000007f0  72 69 73 65 64 20 64 65  74 61 69 6c 73 20 6f 66  |rised details of|
00000800  20 74 68 65 20 70 65 72  66 6f 72 6d 61 6e 63 65  | the performance|
00000810  20 6f 66 20 65 61 63 68  20 63 6c 75 62 20 61 6e  | of each club an|
00000820  64 20 74 69 70 73 22 0d  03 52 2a f1 22 6f 6e 20  |d tips"..R*."on |
00000830  68 6f 77 20 74 6f 20 64  65 61 6c 20 77 69 74 68  |how to deal with|
00000840  20 63 6f 75 72 73 65 20  68 61 7a 61 72 64 73 2e  | course hazards.|
00000850  22 0d 03 5c 06 fb 39 0d  03 66 12 f1 27 8a 33 32  |"..\..9..f..'.32|
00000860  29 22 50 52 49 43 45 53  22 0d 03 70 3e f1 27 8a  |)"PRICES"..p>.'.|
00000870  31 35 29 22 48 6f 6c 65  64 20 4f 75 74 20 45 78  |15)"Holed Out Ex|
00000880  74 72 61 20 43 6f 75 72  73 65 73 20 56 6f 6c 75  |tra Courses Volu|
00000890  6d 65 20 31 22 3b 3a fb  38 3a f1 22 20 20 20 20  |me 1";:.8:."    |
000008a0  40 31 36 2e 39 35 22 0d  03 7a 40 fb 39 3a f1 8a  |@16.95"..z@.9:..|
000008b0  31 35 29 22 48 6f 6c 65  64 20 4f 75 74 20 45 78  |15)"Holed Out Ex|
000008c0  74 72 61 20 43 6f 75 72  73 65 73 20 56 6f 6c 75  |tra Courses Volu|
000008d0  6d 65 20 32 22 3b 3a fb  38 3a f1 22 20 20 20 20  |me 2";:.8:."    |
000008e0  40 31 36 2e 39 35 22 0d  03 84 07 fb 31 32 0d 03  |@16.95".....12..|
000008f0  8e 53 f1 27 27 22 41 73  6b 20 79 6f 75 72 20 64  |.S.''"Ask your d|
00000900  65 61 6c 65 72 20 74 6f  20 72 65 73 65 72 76 65  |ealer to reserve|
00000910  20 79 6f 75 72 20 63 6f  70 69 65 73 20 6e 6f 77  | your copies now|
00000920  20 6f 72 20 79 6f 75 20  63 61 6e 20 6f 62 74 61  | or you can obta|
00000930  69 6e 20 74 68 65 6d 20  64 69 72 65 63 74 6c 79  |in them directly|
00000940  22 0d 03 98 4c f1 22 66  72 6f 6d 20 75 73 20 62  |"...L."from us b|
00000950  79 20 6d 61 69 6c 2e 20  20 41 63 63 65 73 73 20  |y mail.  Access |
00000960  61 6e 64 20 56 69 73 61  20 74 65 6c 65 70 68 6f  |and Visa telepho|
00000970  6e 65 20 6f 72 64 65 72  73 20 61 72 65 20 77 65  |ne orders are we|
00000980  6c 63 6f 6d 65 20 6f 6e  20 6f 75 72 22 0d 03 a2  |lcome on our"...|
00000990  21 f1 22 32 34 20 68 6f  75 72 20 61 6e 73 77 65  |!."24 hour answe|
000009a0  72 69 6e 67 20 73 65 72  76 69 63 65 2e 22 0d 03  |ring service."..|
000009b0  ac 06 fb 38 0d 03 b6 4e  f1 27 8a 34 29 22 54 48  |...8...N.'.4)"TH|
000009c0  45 20 46 4f 55 52 54 48  20 44 49 4d 45 4e 53 49  |E FOURTH DIMENSI|
000009d0  4f 4e 2c 20 50 2e 4f 2e  20 42 6f 78 20 34 34 34  |ON, P.O. Box 444|
000009e0  34 2c 20 53 68 65 66 66  69 65 6c 64 2e 20 20 54  |4, Sheffield.  T|
000009f0  65 6c 2e 20 28 30 37 34  32 29 20 37 30 30 36 36  |el. (0742) 70066|
00000a00  31 22 0d 03 c0 07 fb 31  32 0d 03 ca 0a f2 70 65  |1".....12.....pe|
00000a10  62 3a db 0d 03 d4 19 e6  31 32 3a c8 93 39 39 38  |b:......12:..998|
00000a20  2c 36 34 30 2c 31 36 30  2c 32 35 36 0d 03 de 2a  |,640,160,256...*|
00000a30  86 31 30 35 38 2c 38 39  36 2c 31 30 36 36 2c 39  |.1058,896,1066,9|
00000a40  34 30 3a df 31 30 39 30  2c 39 34 30 3a df 31 30  |40:.1090,940:.10|
00000a50  39 38 2c 38 39 36 0d 03  e8 16 e6 31 33 39 3a e6  |98,896.....139:.|
00000a60  31 3a c8 90 31 30 37 38  2c 39 30 30 0d 03 f2 12  |1:..1078,900....|
00000a70  fb 31 2c 32 34 30 2c 32  34 30 2c 31 39 32 0d 03  |.1,240,240,192..|
00000a80  fc 12 fb 32 2c 32 34 30  2c 32 30 38 2c 32 30 38  |...2,240,208,208|
00000a90  0d 04 06 12 fb 33 2c 32  34 30 2c 32 34 30 2c 32  |.....3,240,240,2|
00000aa0  32 34 0d 04 10 1b e6 31  3a c8 93 c8 90 31 30 30  |24.....1:....100|
00000ab0  30 2c 36 34 34 2c 31 35  36 2c 32 34 38 0d 04 1a  |0,644,156,248...|
00000ac0  1b e6 33 3a c8 93 c8 90  31 30 30 30 2c 36 34 34  |..3:....1000,644|
00000ad0  2c 31 35 36 2c 31 32 34  0d 04 24 0b e3 54 25 3d  |,156,124..$..T%=|
00000ae0  30 b8 32 0d 04 2e 1e e6  31 32 3a c8 93 31 30 31  |0.2.....12:..101|
00000af0  32 2b 54 25 2a 35 30 2c  38 30 30 2c 33 32 2c 36  |2+T%*50,800,32,6|
00000b00  34 0d 04 38 1f e6 32 3a  c8 93 c8 90 31 30 31 34  |4..8..2:....1014|
00000b10  2b 54 25 2a 35 30 2c 38  30 34 2c 32 38 2c 35 36  |+T%*50,804,28,56|
00000b20  0d 04 42 21 e6 31 32 3a  ec 31 30 32 30 2b 54 25  |..B!.12:.1020+T%|
00000b30  2a 35 30 2c 38 35 30 3a  ef 35 3a f1 3b 54 25 2b  |*50,850:.5:.;T%+|
00000b40  31 0d 04 4c 0a ed 3a ef  34 3a 87 0d 04 56 0c fb  |1..L..:.4:...V..|
00000b50  31 33 39 3a fb 31 32 0d  04 60 11 ef 32 38 2c 32  |139:.12..`..28,2|
00000b60  2c 33 30 2c 37 38 2c 34  0d 04 6a 95 f1 8a 30 2c  |,30,78,4..j...0,|
00000b70  30 29 22 47 61 6d 65 20  63 6f 6e 74 72 6f 6c 20  |0)"Game control |
00000b80  69 6e 20 74 68 65 20 41  72 63 68 69 6d 65 64 65  |in the Archimede|
00000b90  73 20 76 65 72 73 69 6f  6e 20 6f 66 20 22 3b 3a  |s version of ";:|
00000ba0  fb 39 3a f1 22 48 4f 4c  45 44 20 4f 55 54 22 3b  |.9:."HOLED OUT";|
00000bb0  3a fb 31 32 3a f1 22 20  69 73 20 76 69 61 22 27  |:.12:." is via"'|
00000bc0  22 74 68 65 20 4d 4f 55  53 45 2c 20 74 68 65 20  |"the MOUSE, the |
00000bd0  6b 65 79 73 20 61 72 65  20 6e 75 6d 62 65 72 65  |keys are numbere|
00000be0  64 20 61 73 20 69 6e 64  69 63 61 74 65 64 20 6f  |d as indicated o|
00000bf0  6e 20 74 68 65 20 72 69  67 68 74 2e 22 0d 04 74  |n the right."..t|
00000c00  54 f1 27 22 54 68 65 20  64 69 66 66 65 72 65 6e  |T.'"The differen|
00000c10  63 65 73 20 74 6f 20 74  68 65 20 69 6e 73 74 72  |ces to the instr|
00000c20  75 63 74 69 6f 6e 73 20  61 73 20 73 68 6f 77 6e  |uctions as shown|
00000c30  20 69 6e 20 74 68 65 20  6d 61 6e 75 61 6c 22 27  | in the manual"'|
00000c40  22 61 72 65 20 61 73 20  66 6f 6c 6c 6f 77 73 3a  |"are as follows:|
00000c50  22 0d 04 7e 42 f1 27 22  53 54 52 4f 4b 45 50 4c  |"..~B.'"STROKEPL|
00000c60  41 59 2f 22 8a 31 36 29  22 54 68 65 72 65 20 63  |AY/".16)"There c|
00000c70  61 6e 20 62 65 20 75 70  20 74 6f 20 36 20 70 6c  |an be up to 6 pl|
00000c80  61 79 65 72 73 20 69 6e  20 61 6e 79 20 72 6f 75  |ayers in any rou|
00000c90  6e 64 22 0d 04 88 88 f1  27 22 47 41 4d 45 20 43  |nd".....'"GAME C|
00000ca0  4f 4e 54 52 4f 4c 53 2f  22 27 27 22 31 2e 20 53  |ONTROLS/"''"1. S|
00000cb0  45 4c 45 43 54 20 43 4c  55 42 2e 20 55 73 65 20  |ELECT CLUB. Use |
00000cc0  74 68 65 20 4d 4f 55 53  45 20 74 6f 20 69 6e 64  |the MOUSE to ind|
00000cd0  69 63 61 74 65 20 74 68  65 20 63 6c 75 62 20 72  |icate the club r|
00000ce0  65 71 75 69 72 65 64 20  74 68 65 6e 22 8a 31 36  |equired then".16|
00000cf0  29 22 70 72 65 73 73 20  61 6e 79 20 62 75 74 74  |)"press any butt|
00000d00  6f 6e 20 74 6f 20 67 6f  20 74 6f 20 74 68 65 20  |on to go to the |
00000d10  6e 65 78 74 20 73 74 61  67 65 22 0d 04 92 47 f1  |next stage"...G.|
00000d20  27 22 32 2e 20 44 49 52  45 43 54 49 4f 4e 2e 20  |'"2. DIRECTION. |
00000d30  20 20 50 6f 73 69 74 69  6f 6e 20 74 68 65 20 63  |  Position the c|
00000d40  75 72 73 6f 72 20 77 69  74 68 20 74 68 65 20 4d  |ursor with the M|
00000d50  4f 55 53 45 20 74 68 65  6e 20 65 69 74 68 65 72  |OUSE then either|
00000d60  2e 22 0d 04 9c 2e f1 89  28 31 36 29 22 50 72 65  |."......(16)"Pre|
00000d70  73 73 20 5b 32 5d 20 74  6f 20 67 6f 20 74 6f 20  |ss [2] to go to |
00000d80  74 68 65 20 6e 65 78 74  20 73 74 61 67 65 2e 22  |the next stage."|
00000d90  0d 04 a6 33 f1 89 28 31  36 29 22 50 72 65 73 73  |...3..(16)"Press|
00000da0  20 5b 31 5d 20 6f 72 20  5b 33 5d 20 74 6f 20 73  | [1] or [3] to s|
00000db0  65 6c 65 63 74 20 61 6e  6f 74 68 65 72 20 63 6c  |elect another cl|
00000dc0  75 62 22 0d 04 b0 51 f1  27 22 33 2e 20 50 4f 57  |ub"...Q.'"3. POW|
00000dd0  45 52 2e 22 8a 31 36 29  22 41 73 20 73 6f 6f 6e  |ER.".16)"As soon|
00000de0  20 61 73 20 74 68 65 20  64 69 72 65 63 74 69 6f  | as the directio|
00000df0  6e 20 68 61 73 20 62 65  65 6e 20 73 65 6c 65 63  |n has been selec|
00000e00  74 65 64 20 62 79 20 70  72 65 73 73 69 6e 67 20  |ted by pressing |
00000e10  5b 32 5d 22 0d 04 ba 30  f1 8a 31 36 29 22 74 68  |[2]"...0..16)"th|
00000e20  65 20 62 61 72 20 69 6e  64 69 63 61 74 6f 72 20  |e bar indicator |
00000e30  77 69 6c 6c 20 73 74 61  72 74 20 74 6f 20 6d 6f  |will start to mo|
00000e40  76 65 2e 22 0d 04 c4 2f  f1 8a 31 36 29 22 50 72  |ve.".../..16)"Pr|
00000e50  65 73 73 69 6e 67 20 5b  32 5d 20 77 69 6c 6c 20  |essing [2] will |
00000e60  67 69 76 65 20 61 20 4e  6f 72 6d 61 6c 20 73 68  |give a Normal sh|
00000e70  6f 74 22 0d 04 ce 2f f1  8a 31 36 29 22 50 72 65  |ot".../..16)"Pre|
00000e80  73 73 69 6e 67 20 5b 31  5d 20 77 69 6c 6c 20 67  |ssing [1] will g|
00000e90  69 76 65 20 61 20 48 6f  6f 6b 65 64 20 73 68 6f  |ive a Hooked sho|
00000ea0  74 22 0d 04 d8 30 f1 8a  31 36 29 22 50 72 65 73  |t"...0..16)"Pres|
00000eb0  73 69 6e 67 20 5b 33 5d  20 77 69 6c 6c 20 67 69  |sing [3] will gi|
00000ec0  76 65 20 61 20 53 6c 69  63 65 64 20 73 68 6f 74  |ve a Sliced shot|
00000ed0  22 27 0d 04 e2 09 dd f2  70 65 62 0d 04 ec 28 f1  |"'......peb...(.|
00000ee0  27 8a 32 32 29 22 50 52  45 53 53 20 41 4e 59 20  |'.22)"PRESS ANY |
00000ef0  42 55 54 54 4f 4e 20 54  4f 20 43 4f 4e 54 49 4e  |BUTTON TO CONTIN|
00000f00  55 45 22 0d 04 f6 0c f2  62 75 74 74 28 30 29 0d  |UE".....butt(0).|
00000f10  05 00 21 f5 3a c8 97 58  25 2c 59 25 2c 4b 25 3a  |..!.:..X%,Y%,K%:|
00000f20  fd 4b 25 3a d4 31 2c 2d  31 30 2c 32 30 30 2c 31  |.K%:.1,-10,200,1|
00000f30  0d 05 0a 0c f2 62 75 74  74 28 30 29 0d 05 14 05  |.....butt(0)....|
00000f40  e1 0d 05 1e 07 f4 20 15  0d 05 28 0c dd f2 63 68  |...... ...(...ch|
00000f50  6f 66 73 63 0d 05 32 0c  2a 46 58 31 31 32 2c 33  |ofsc..2.*FX112,3|
00000f60  0d 05 3c 05 db 0d 05 46  3d e7 b4 78 31 25 3d b9  |..<....F=..x1%=.|
00000f70  20 c8 91 31 32 38 30 2c  37 36 38 2b 4f 25 2d 36  | ..1280,768+O%-6|
00000f80  31 36 36 2a 67 72 65 65  6e 25 3a 8b c8 91 30 2c  |166*green%:...0,|
00000f90  37 36 38 2b 4f 25 2d 36  31 36 36 2a 67 72 65 65  |768+O%-6166*gree|
00000fa0  6e 25 0d 05 50 0c 50 25  3d 72 6f 75 67 68 0d 05  |n%..P.P%=rough..|
00000fb0  5a 12 e6 a4 6d 61 70 31  3a f2 64 72 61 77 69 74  |Z...map1:.drawit|
00000fc0  0d 05 64 12 e6 a4 6d 61  70 31 3a f2 64 72 61 77  |..d...map1:.draw|
00000fd0  69 74 0d 05 6e 17 50 25  3d 77 61 74 65 72 3a e6  |it..n.P%=water:.|
00000fe0  36 3a f2 64 72 61 77 69  74 0d 05 78 0d e7 ac 67  |6:.drawit..x...g|
00000ff0  72 65 65 6e 25 8c 0d 05  82 10 47 25 3d b0 78 73  |reen%.....G%=.xs|
00001000  25 2c 79 73 25 29 0d 05  8c 13 e7 47 25 3d 36 84  |%,ys%).....G%=6.|
00001010  47 25 3d 31 31 57 25 3d  a3 0d 05 96 05 cd 0d 05  |G%=11W%=........|
00001020  a0 0c 2a 46 58 31 31 32  2c 31 0d 05 aa 05 e1 0d  |..*FX112,1......|
00001030  05 b4 07 f4 20 15 0d 05  be 0d dd f2 70 72 65 76  |.... .......prev|
00001040  69 65 77 0d 05 c8 05 f5  0d 05 d2 1e f2 63 6f 6c  |iew..........col|
00001050  6f 75 72 73 28 39 29 3a  f2 73 63 72 65 65 6e 62  |ours(9):.screenb|
00001060  6f 78 3a c8 97 ee 0d 05  dc 15 6c 68 6f 6c 25 3d  |ox:.......lhol%=|
00001070  a4 63 68 6f 73 65 61 68  6f 6c 65 0d 05 e6 1a e7  |.choseahole.....|
00001080  ac 6c 68 6f 6c 25 f2 64  72 61 77 6d 61 70 28 6c  |.lhol%.drawmap(l|
00001090  68 6f 6c 25 29 0d 05 f0  0c fd 6c 68 6f 6c 25 3d  |hol%).....lhol%=|
000010a0  b9 0d 05 fa 05 e1 0d 06  04 07 f4 20 15 0d 06 0e  |........... ....|
000010b0  16 dd f2 64 72 61 77 6d  61 70 28 68 6f 6c 65 6e  |...drawmap(holen|
000010c0  6f 25 29 0d 06 18 0e f2  69 6e 69 74 63 6c 6f 75  |o%).....initclou|
000010d0  64 0d 06 22 13 6c 69 25  3d 32 3a f2 69 6e 69 74  |d..".li%=2:.init|
000010e0  77 69 6e 64 0d 06 2c 25  ea 72 25 2c 6c 25 2c 4f  |wind..,%.r%,l%,O|
000010f0  4c 25 2c 41 25 2c 41 41  25 2c 54 25 2c 49 25 2c  |L%,A%,AA%,T%,I%,|
00001100  53 50 25 2c 58 25 2c 59  25 0d 06 36 11 58 25 3d  |SP%,X%,Y%..6.X%=|
00001110  36 34 30 3a 59 25 3d 35  31 32 0d 06 40 05 f5 0d  |640:Y%=512..@...|
00001120  06 4a 1f 50 25 3d 6d 61  70 70 6f 69 6e 74 25 2b  |.J.P%=mappoint%+|
00001130  68 6f 6c 65 6e 6f 25 3a  53 50 25 3d 50 25 0d 06  |holeno%:SP%=P%..|
00001140  54 26 4f 4c 25 3d 28 bb  28 c3 7e 28 28 6d 61 70  |T&OL%=(.(.~((map|
00001150  21 28 50 25 2b 26 32 46  41 29 29 80 26 46 46 46  |!(P%+&2FA)).&FFF|
00001160  46 29 29 29 0d 06 5e 0d  41 41 25 3d a4 6d 61 70  |F)))..^.AA%=.map|
00001170  31 0d 06 68 0d e3 41 25  3d 31 b8 41 41 25 0d 06  |1..h..A%=1.AA%..|
00001180  72 11 6c 25 3d a4 6d 61  70 32 2f 31 30 2e 35 0d  |r.l%=.map2/10.5.|
00001190  06 7c 11 72 25 3d a4 6d  61 70 32 2f 31 30 2e 35  |.|.r%=.map2/10.5|
000011a0  0d 06 86 17 78 25 28 41  25 29 3d 72 25 3a 79 25  |....x%(A%)=r%:y%|
000011b0  28 41 25 29 3d 6c 25 0d  06 90 05 ed 0d 06 9a 0e  |(A%)=l%.........|
000011c0  49 25 3d a4 6d 61 70 31  2d 31 0d 06 a4 22 54 25  |I%=.map1-1..."T%|
000011d0  3d a4 6d 61 70 31 3a 54  25 3d a4 6d 61 70 31 3a  |=.map1:T%=.map1:|
000011e0  50 25 3d 50 25 2b 54 25  2a 34 2b 34 0d 06 ae 17  |P%=P%+T%*4+4....|
000011f0  6c 25 3d 30 3a 72 25 3d  30 3a 74 25 3d 30 3a 62  |l%=0:r%=0:t%=0:b|
00001200  25 3d 30 0d 06 b8 20 f2  63 6f 6c 6f 75 72 73 28  |%=0... .colours(|
00001210  31 32 29 3a f2 73 63 72  65 65 6e 62 6f 78 3a e6  |12):.screenbox:.|
00001220  31 33 37 0d 06 c2 26 f2  6d 65 73 62 6f 78 28 35  |137...&.mesbox(5|
00001230  33 32 2d 4f 4c 25 2c 32  39 34 2c 4f 4c 25 2a 32  |32-OL%,294,OL%*2|
00001240  2b 32 31 32 2c 36 39 32  29 0d 06 cc 29 ef 32 36  |+212,692)...).26|
00001250  2c 32 34 2c 35 34 38 2d  4f 4c 25 3b 33 31 30 3b  |,24,548-OL%;310;|
00001260  35 34 38 2b 4f 4c 25 2b  31 38 30 3b 39 37 30 3b  |548+OL%+180;970;|
00001270  3a da 0d 06 d6 11 c8 91  35 39 32 2b 4f 4c 25 2c  |:.......592+OL%,|
00001280  36 34 30 0d 06 e0 13 e3  54 25 3d 31 b8 49 25 3a  |640.....T%=1.I%:|
00001290  e6 a4 6d 61 70 31 0d 06  ea 0d 6e 70 25 3d a4 6d  |..map1....np%=.m|
000012a0  61 70 31 0d 06 f4 25 f2  6d 61 70 32 28 43 58 25  |ap1...%.map2(CX%|
000012b0  2c 43 59 25 2c 34 29 3a  f2 6d 61 70 32 28 53 58  |,CY%,4):.map2(SX|
000012c0  25 2c 53 59 25 2c 34 29  0d 06 fe 2c e3 49 25 3d  |%,SY%,4)...,.I%=|
000012d0  31 b8 6e 70 25 2d 31 3a  f2 6d 61 70 32 28 58 49  |1.np%-1:.map2(XI|
000012e0  25 2c 59 49 25 2c 38 35  29 3a ec 43 58 25 2c 43  |%,YI%,85):.CX%,C|
000012f0  59 25 3a ed 0d 07 08 0f  f0 38 35 2c 53 58 25 2c  |Y%:......85,SX%,|
00001300  53 59 25 0d 07 12 09 ed  3a e6 31 34 0d 07 1c 38  |SY%.....:.14...8|
00001310  e3 54 25 3d 31 b8 41 41  25 3a e7 b0 2d 78 25 28  |.T%=1.AA%:..-x%(|
00001320  54 25 29 2c 2d 79 25 28  54 25 29 29 3c 3e 36 c8  |T%),-y%(T%))<>6.|
00001330  8f c8 90 2d 78 25 28 54  25 29 2c 2d 79 25 28 54  |...-x%(T%),-y%(T|
00001340  25 29 2c 38 0d 07 26 0e  ed 3a e6 30 3a c8 92 30  |%),8..&..:.0:..0|
00001350  2c 30 0d 07 30 07 ef 32  36 0d 07 3a 56 f2 73 6d  |,0..0..26..:V.sm|
00001360  61 6c 6c 6d 65 73 28 31  34 34 2c 31 36 36 2c 31  |allmes(144,166,1|
00001370  32 2c 22 50 4f 53 49 54  49 4f 4e 20 50 4f 49 4e  |2,"POSITION POIN|
00001380  54 45 52 20 4f 4e 20 56  49 45 57 50 4f 49 4e 54  |TER ON VIEWPOINT|
00001390  20 54 48 45 4e 20 50 52  45 53 53 20 54 48 45 20  | THEN PRESS THE |
000013a0  4d 49 44 44 4c 45 20 42  55 54 54 4f 4e 22 29 0d  |MIDDLE BUTTON").|
000013b0  07 44 4a f2 73 6d 61 6c  6c 6d 65 73 28 32 33 32  |.DJ.smallmes(232|
000013c0  2c 36 36 2c 31 32 2c 22  41 4e 59 20 4f 54 48 45  |,66,12,"ANY OTHE|
000013d0  52 20 42 55 54 54 4f 4e  20 54 4f 20 52 45 54 55  |R BUTTON TO RETU|
000013e0  52 4e 20 54 4f 20 54 48  45 20 48 4f 4c 45 20 53  |RN TO THE HOLE S|
000013f0  45 4c 45 43 54 4f 52 22  29 0d 07 4e 10 c8 97 ee  |ELECTOR")..N....|
00001400  3a c8 97 b8 58 25 2c 59  25 0d 07 58 05 f5 0d 07  |:...X%,Y%..X....|
00001410  62 21 c8 97 c8 93 35 34  38 2d 4f 4c 25 2c 33 31  |b!....548-OL%,31|
00001420  30 2c 4f 4c 25 2a 32 2b  31 38 30 2c 36 36 30 0d  |0,OL%*2+180,660.|
00001430  07 6c 0e c8 97 58 25 2c  59 25 2c 54 25 0d 07 76  |.l...X%,Y%,T%..v|
00001440  27 e7 58 25 3c 36 38 38  8c 72 25 3d 28 36 38 38  |'.X%<688.r%=(688|
00001450  2d 58 25 29 81 38 8b 72  25 3d 28 58 25 2d 36 38  |-X%).8.r%=(X%-68|
00001460  38 29 81 38 0d 07 80 29  c8 97 c8 93 35 34 38 2d  |8).8...)....548-|
00001470  4f 4c 25 2c 33 31 30 2b  72 25 2c 4f 4c 25 2a 32  |OL%,310+r%,OL%*2|
00001480  2b 31 38 30 2c 36 36 30  2d 72 25 2a 32 0d 07 8a  |+180,660-r%*2...|
00001490  17 79 25 3d 28 28 35 39  32 2b 4f 4c 25 29 2d 58  |.y%=((592+OL%)-X|
000014a0  25 29 81 32 0d 07 94 11  78 25 3d 28 36 34 30 2d  |%).2....x%=(640-|
000014b0  59 25 29 81 32 0d 07 9e  26 e7 54 25 3d 32 f2 64  |Y%).2...&.T%=2.d|
000014c0  69 73 70 6c 61 79 76 69  65 77 28 58 25 2c 59 25  |isplayview(X%,Y%|
000014d0  2c 53 50 25 29 3a fd b9  3a fd a3 0d 07 a8 0a fd  |,SP%):..:.......|
000014e0  54 25 3a fd b9 0d 07 b2  05 e1 0d 07 bc 07 f4 20  |T%:............ |
000014f0  15 0d 07 c6 1c dd f2 64  69 73 70 6c 61 79 76 69  |.......displayvi|
00001500  65 77 28 58 25 2c 59 25  2c 53 50 25 29 0d 07 d0  |ew(X%,Y%,SP%)...|
00001510  07 c8 97 87 0d 07 da 1f  ea 41 24 2c 6d 61 70 70  |.........A$,mapp|
00001520  6f 69 6e 74 25 3a 6d 61  70 70 6f 69 6e 74 25 3d  |oint%:mappoint%=|
00001530  53 50 25 0d 07 e4 1d 59  59 25 3d 28 28 28 35 39  |SP%....YY%=(((59|
00001540  32 2b 4f 4c 25 29 2d 58  25 29 81 32 29 2a 32 31  |2+OL%)-X%).2)*21|
00001550  0d 07 ee 16 58 25 3d 28  28 36 34 30 2d 59 25 29  |....X%=((640-Y%)|
00001560  81 32 29 2a 32 31 0d 07  f8 1f e7 94 58 25 3c 34  |.2)*21......X%<4|
00001570  32 80 94 59 59 25 3c 34  32 58 25 3d 34 32 3a 59  |2..YY%<42X%=42:Y|
00001580  59 25 3d 34 32 0d 08 02  37 4f 4c 25 3d 28 a4 64  |Y%=42...7OL%=(.d|
00001590  69 73 74 61 6e 63 65 28  58 25 2c 59 59 25 29 29  |istance(X%,YY%))|
000015a0  3a 67 72 65 65 6e 25 3d  28 4f 4c 25 3c 35 32 35  |:green%=(OL%<525|
000015b0  29 3a 4f 4c 25 3d 4f 4c  25 2f 32 31 0d 08 0c 2e  |):OL%=OL%/21....|
000015c0  41 24 3d 43 6f 75 72 73  65 24 2b 22 20 48 4f 4c  |A$=Course$+" HOL|
000015d0  45 20 22 2b c3 28 68 6f  6c 65 6e 6f 25 81 26 33  |E "+.(holeno%.&3|
000015e0  30 30 2b 31 29 2b 22 2c  20 22 0d 08 16 37 e7 67  |00+1)+", "...7.g|
000015f0  72 65 65 6e 25 20 41 24  3d 41 24 2b c3 28 4f 4c  |reen% A$=A$+.(OL|
00001600  25 2a 33 29 2b 22 20 46  45 45 54 22 3a 8b 41 24  |%*3)+" FEET":.A$|
00001610  3d 41 24 2b c3 4f 4c 25  2b 22 20 59 41 52 44 53  |=A$+.OL%+" YARDS|
00001620  22 0d 08 20 16 41 24 3d  41 24 2b 22 20 46 52 4f  |".. .A$=A$+" FRO|
00001630  4d 20 48 4f 4c 45 22 0d  08 2a 0a f2 6c 69 67 68  |M HOLE"..*..ligh|
00001640  74 0d 08 34 10 f2 73 69  6e 65 28 58 25 2c 59 25  |t..4..sine(X%,Y%|
00001650  29 0d 08 3e 0f f2 64 72  61 77 73 63 72 65 65 6e  |)..>..drawscreen|
00001660  0d 08 48 2f ef 32 36 3a  58 25 3d 36 34 30 2d a9  |..H/.26:X%=640-.|
00001670  41 24 2a 38 2d 32 34 3a  f2 73 6d 61 6c 6c 6d 65  |A$*8-24:.smallme|
00001680  73 28 58 25 2c 38 36 30  2c 31 33 2c 41 24 29 0d  |s(X%,860,13,A$).|
00001690  08 52 0c f2 62 75 74 74  28 30 29 0d 08 5c 15 f5  |.R..butt(0)..\..|
000016a0  c8 97 58 25 2c 59 25 2c  53 50 25 3a fd 53 50 25  |..X%,Y%,SP%:.SP%|
000016b0  0d 08 66 0c f2 62 75 74  74 28 30 29 0d 08 70 05  |..f..butt(0)..p.|
000016c0  e1 0d 08 7a 07 f4 20 15  0d 08 84 18 dd f2 6d 61  |...z.. .......ma|
000016d0  70 32 28 f8 20 78 25 2c  f8 20 79 25 2c 70 25 29  |p2(. x%,. y%,p%)|
000016e0  0d 08 8e 21 79 25 3d 2d  a4 6d 61 70 32 2f 31 30  |...!y%=-.map2/10|
000016f0  2e 35 3a 78 25 3d 2d a4  6d 61 70 32 2f 31 30 2e  |.5:x%=-.map2/10.|
00001700  35 0d 08 98 0d f0 70 25  2c 78 25 2c 79 25 0d 08  |5.....p%,x%,y%..|
00001710  a2 05 e1 0d 08 ac 07 f4  20 15 0d 08 b6 10 dd a4  |........ .......|
00001720  63 68 6f 73 65 61 68 6f  6c 65 0d 08 c0 0c f2 62  |choseahole.....b|
00001730  75 74 74 28 30 29 0d 08  ca 18 ea 58 25 2c 59 25  |utt(0).....X%,Y%|
00001740  2c 4b 25 2c 46 25 2c 4e  25 2c 6f 75 74 25 0d 08  |,K%,F%,N%,out%..|
00001750  d4 2c f2 63 65 6e 74 62  6f 78 28 b9 2c 22 50 4c  |.,.centbox(.,"PL|
00001760  45 41 53 45 20 53 45 4c  45 43 54 20 41 20 48 4f  |EASE SELECT A HO|
00001770  4c 45 22 2c 31 32 2c 31  30 29 0d 08 de 26 f2 6d  |LE",12,10)...&.m|
00001780  65 73 62 6f 78 28 34 36  34 2c 34 34 34 2c 31 34  |esbox(464,444,14|
00001790  38 2c 31 30 30 29 3a f2  64 6f 6e 6f 32 28 31 29  |8,100):.dono2(1)|
000017a0  0d 08 e8 1a f2 6d 65 73  62 6f 78 28 37 30 34 2c  |.....mesbox(704,|
000017b0  35 33 36 2c 38 30 2c 38  30 29 0d 08 f2 20 f2 73  |536,80,80)... .s|
000017c0  6d 61 6c 6c 6d 65 73 28  37 30 34 2c 34 36 32 2c  |mallmes(704,462,|
000017d0  31 32 2c 22 45 58 49 54  22 29 0d 08 fc 1a f2 6d  |12,"EXIT").....m|
000017e0  65 73 62 6f 78 28 37 30  34 2c 33 36 38 2c 38 30  |esbox(704,368,80|
000017f0  2c 38 30 29 0d 09 06 25  e6 31 35 3a ec 37 34 34  |,80)...%.15:.744|
00001800  2c 36 30 30 3a ec 37 32  30 2c 35 35 34 3a f0 38  |,600:.720,554:.8|
00001810  35 2c 37 36 38 2c 35 35  34 0d 09 10 32 ec 37 34  |5,768,554...2.74|
00001820  34 2c 33 38 38 3a ec 37  32 30 2c 34 33 32 3a f0  |4,388:.720,432:.|
00001830  38 35 2c 37 36 38 2c 34  33 32 3a 86 37 32 30 2c  |85,768,432:.720,|
00001840  34 33 36 2c 37 36 38 2c  34 33 36 0d 09 1a 20 e6  |436,768,436... .|
00001850  38 3a 86 37 32 30 2c 34  33 32 2c 37 34 34 2c 33  |8:.720,432,744,3|
00001860  38 38 3a df 37 36 38 2c  34 33 32 0d 09 24 1d 86  |88:.768,432..$..|
00001870  37 32 30 2c 35 35 38 2c  37 34 34 2c 36 30 30 3a  |720,558,744,600:|
00001880  df 37 36 38 2c 35 35 38  0d 09 2e 17 c8 97 c8 93  |.768,558........|
00001890  34 38 30 2c 33 38 38 2c  34 33 32 2c 32 32 30 0d  |480,388,432,220.|
000018a0  09 38 15 4e 25 3d 31 3a  f5 3a c8 97 58 25 2c 59  |.8.N%=1:.:..X%,Y|
000018b0  25 2c 4b 25 0d 09 42 08  e7 4b 25 8c 0d 09 4c 0c  |%,K%..B..K%...L.|
000018c0  e7 58 25 3e 37 31 36 8c  0d 09 56 0c e7 58 25 3c  |.X%>716...V..X%<|
000018d0  37 37 32 8c 0d 09 60 36  e7 59 25 3e 35 34 34 4e  |772...`6.Y%>544N|
000018e0  25 3d 4e 25 83 31 38 2b  31 3a f2 64 6f 6e 6f 32  |%=N%.18+1:.dono2|
000018f0  28 4e 25 29 3a d4 31 2c  2d 31 30 2c 32 30 30 2c  |(N%):.1,-10,200,|
00001900  31 3a f2 62 75 74 74 28  30 29 0d 09 6a 41 e7 59  |1:.butt(0)..jA.Y|
00001910  25 3c 34 34 32 4e 25 2d  3d 31 3a 4e 25 3d 4e 25  |%<442N%-=1:N%=N%|
00001920  2d 28 4e 25 3d 30 29 2a  31 38 3a f2 64 6f 6e 6f  |-(N%=0)*18:.dono|
00001930  32 28 4e 25 29 3a d4 31  2c 2d 31 30 2c 32 30 30  |2(N%):.1,-10,200|
00001940  2c 31 3a f2 62 75 74 74  28 30 29 0d 09 74 05 cd  |,1:.butt(0)..t..|
00001950  0d 09 7e 2a e7 59 25 3e  34 37 32 80 59 25 3c 35  |..~*.Y%>472.Y%<5|
00001960  31 36 6f 75 74 25 3d b9  3a 46 25 3d b9 3a d4 31  |16out%=.:F%=.:.1|
00001970  2c 2d 31 30 2c 32 30 30  2c 31 0d 09 88 05 cd 0d  |,-10,200,1......|
00001980  09 92 0c e7 58 25 3c 36  30 34 8c 0d 09 9c 16 e7  |....X%<604......|
00001990  59 25 3e 34 35 36 80 59  25 3c 35 34 30 46 25 3d  |Y%>456.Y%<540F%=|
000019a0  b9 0d 09 a6 05 cd 0d 09  b0 05 cd 0d 09 ba 09 fd  |................|
000019b0  46 25 3d b9 0d 09 c4 17  3d 28 28 4e 25 2d 31 29  |F%=.....=((N%-1)|
000019c0  2a 26 33 30 30 29 84 6f  75 74 25 0d 09 ce 07 f4  |*&300).out%.....|
000019d0  20 15 0d 09 d8 0f dd f2  64 6f 6e 6f 32 28 41 25  | .......dono2(A%|
000019e0  29 0d 09 e2 13 ea 41 24  2c 54 25 3a 41 24 3d c3  |).....A$,T%:A$=.|
000019f0  28 41 25 29 0d 09 ec 1a  e6 31 31 3a c8 93 c8 90  |(A%).....11:....|
00001a00  34 37 36 2c 34 36 34 2c  31 32 34 2c 36 34 0d 09  |476,464,124,64..|
00001a10  f6 17 ec 34 37 36 2d 33  32 2a 28 41 25 3c 31 30  |...476-32*(A%<10|
00001a20  29 2c 35 32 30 0d 0a 00  29 e6 31 32 3a e3 54 25  |),520...).12:.T%|
00001a30  3d 31 b8 a9 41 24 3a f2  64 6f 75 62 6c 65 28 bb  |=1..A$:.double(.|
00001a40  28 c1 41 24 2c 54 25 2c  31 29 29 29 3a ed 0d 0a  |(.A$,T%,1))):...|
00001a50  0a 05 e1 0d 0a 14 07 f4  20 15 0d 0a 1e 10 dd f2  |........ .......|
00001a60  67 65 74 6f 70 74 69 6f  6e 73 0d 0a 28 1a e3 54  |getoptions..(..T|
00001a70  25 3d 31 b8 36 3a 6a 75  6d 70 25 28 54 25 29 3d  |%=1.6:jump%(T%)=|
00001a80  54 25 3a ed 0d 0a 32 15  2a 43 48 41 4e 4e 45 4c  |T%:...2.*CHANNEL|
00001a90  56 4f 49 43 45 20 31 20  31 0d 0a 3c 07 f5 3a f5  |VOICE 1 1..<..:.|
00001aa0  0d 0a 46 1a f2 63 6f 6c  6f 75 72 73 28 39 29 3a  |..F..colours(9):|
00001ab0  f2 73 63 72 65 65 6e 62  6f 78 0d 0a 50 0e c8 97  |.screenbox..P...|
00001ac0  b8 36 34 30 2c 34 39 36  0d 0a 5a 73 6d 61 70 70  |.640,496..Zsmapp|
00001ad0  6f 69 6e 74 25 3d a4 71  75 65 73 74 28 22 57 48  |oint%=.quest("WH|
00001ae0  49 43 48 20 43 4f 55 52  53 45 20 44 4f 20 59 4f  |ICH COURSE DO YO|
00001af0  55 20 57 49 53 48 20 54  4f 20 50 4c 41 59 3f 22  |U WISH TO PLAY?"|
00001b00  2c 22 43 4f 4e 45 20 4c  49 4e 4b 53 22 2c 22 50  |,"CONE LINKS","P|
00001b10  49 4e 45 20 49 53 4c 45  53 22 2c 30 29 2a 26 33  |INE ISLES",0)*&3|
00001b20  36 30 30 3a 6d 61 70 73  74 61 72 74 25 3d 6d 61  |600:mapstart%=ma|
00001b30  70 2b 6d 61 70 70 6f 69  6e 74 25 0d 0a 64 37 e7  |p+mappoint%..d7.|
00001b40  6d 61 70 70 6f 69 6e 74  25 43 6f 75 72 73 65 24  |mappoint%Course$|
00001b50  3d 22 50 49 4e 45 20 49  53 4c 45 53 22 8b 43 6f  |="PINE ISLES".Co|
00001b60  75 72 73 65 24 3d 22 43  4f 4e 45 20 4c 49 4e 4b  |urse$="CONE LINK|
00001b70  53 22 0d 0a 6e 4d e7 a4  71 75 65 73 74 28 22 50  |S"..nM..quest("P|
00001b80  52 45 56 49 45 57 20 48  4f 4c 45 53 20 4f 52 20  |REVIEW HOLES OR |
00001b90  50 4c 41 59 20 52 4f 55  4e 44 3f 22 2c 22 50 4c  |PLAY ROUND?","PL|
00001ba0  41 59 22 2c 22 50 52 45  56 49 45 57 22 2c 30 29  |AY","PREVIEW",0)|
00001bb0  f2 70 72 65 76 69 65 77  3a fd a3 3a 8b fd b9 0d  |.preview:..:....|
00001bc0  0a 78 68 70 6c 61 79 25  3d a4 71 75 65 73 74 28  |.xhplay%=.quest(|
00001bd0  22 55 4e 44 45 52 20 57  48 49 43 48 20 52 55 4c  |"UNDER WHICH RUL|
00001be0  45 53 20 41 52 45 20 59  4f 55 20 54 4f 20 50 4c  |ES ARE YOU TO PL|
00001bf0  41 59 3f 22 2c 22 4d 41  54 43 48 20 50 4c 41 59  |AY?","MATCH PLAY|
00001c00  22 2c 22 53 54 52 4f 4b  45 20 50 4c 41 59 22 2c  |","STROKE PLAY",|
00001c10  30 29 2b 31 3a f4 20 31  3d 4d 41 54 43 48 20 32  |0)+1:. 1=MATCH 2|
00001c20  3d 53 54 52 4f 4b 45 0d  0a 82 1a 6e 6f 6f 66 70  |=STROKE....noofp|
00001c30  6c 61 79 65 72 73 3d a4  6e 6f 70 6c 61 79 69 6e  |layers=.noplayin|
00001c40  67 0d 0a 8c 15 e3 54 25  3d 31 b8 6e 6f 6f 66 70  |g.....T%=1.noofp|
00001c50  6c 61 79 65 72 73 0d 0a  96 10 f2 67 65 74 6e 61  |layers.....getna|
00001c60  6d 65 28 54 25 29 0d 0a  a0 51 68 61 6e 64 25 28  |me(T%)...Qhand%(|
00001c70  54 25 29 3d 31 2d a4 71  75 65 73 74 28 22 49 53  |T%)=1-.quest("IS|
00001c80  20 22 2b 6e 61 6d 65 24  28 54 25 29 2b 22 20 4c  | "+name$(T%)+" L|
00001c90  45 46 54 20 4f 52 20 52  49 47 48 54 20 48 41 4e  |EFT OR RIGHT HAN|
00001ca0  44 45 44 3f 22 2c 22 4c  45 46 54 22 2c 22 52 49  |DED?","LEFT","RI|
00001cb0  47 48 54 22 2c 30 29 0d  0a aa 11 f2 67 65 74 73  |GHT",0).....gets|
00001cc0  6b 69 6c 6c 28 54 25 29  0d 0a b4 05 ed 0d 0a be  |kill(T%)........|
00001cd0  1c e7 a4 63 6f 6e 66 69  72 6d 28 6e 6f 6f 66 70  |...confirm(noofp|
00001ce0  6c 61 79 65 72 73 29 fd  30 0d 0a c8 06 fd b9 0d  |layers).0.......|
00001cf0  0a d2 37 f4 20 43 48 41  4e 47 45 20 54 48 45 20  |..7. CHANGE THE |
00001d00  46 4f 4c 4c 4f 57 49 4e  47 20 4e 55 4d 42 45 52  |FOLLOWING NUMBER|
00001d10  20 54 4f 20 28 48 4f 4c  45 20 4e 4f 2e 20 2d 31  | TO (HOLE NO. -1|
00001d20  29 2a 26 33 30 30 0d 0a  dc 14 f4 6d 61 70 70 6f  |)*&300.....mappo|
00001d30  69 6e 74 25 3d 26 32 34  30 30 0d 0a e6 05 e1 0d  |int%=&2400......|
00001d40  0a f0 07 f4 20 15 0d 0a  fa 11 dd a4 63 6f 6e 66  |.... .......conf|
00001d50  69 72 6d 28 54 25 29 0d  0b 04 1c ea 4e 25 2c 49  |irm(T%).....N%,I|
00001d60  25 2c 41 24 3a 49 25 3d  28 54 25 2b 28 54 25 80  |%,A$:I%=(T%+(T%.|
00001d70  31 29 29 0d 0b 0e 0c f2  62 75 74 74 28 30 29 0d  |1)).....butt(0).|
00001d80  0b 18 1b f2 63 6f 6c 6f  75 72 73 28 31 32 29 3a  |....colours(12):|
00001d90  f2 73 63 72 65 65 6e 62  6f 78 0d 0b 22 5a f2 63  |.screenbox.."Z.c|
00001da0  65 6e 74 62 6f 78 28 a3  2c 22 20 20 20 20 20 20  |entbox(.,"      |
00001db0  20 20 20 20 20 20 41 52  45 20 54 48 45 20 46 4f  |      ARE THE FO|
00001dc0  4c 4c 4f 57 49 4e 47 20  47 41 4d 45 20 4f 50 54  |LLOWING GAME OPT|
00001dd0  49 4f 4e 53 20 43 4f 52  52 45 43 54 3f 20 20 20  |IONS CORRECT?   |
00001de0  20 20 20 20 20 20 20 20  20 22 2c 31 35 2c 31 30  |         ",15,10|
00001df0  2b 49 25 29 0d 0b 2c 21  ef 32 38 2c 31 30 2c 32  |+I%)..,!.28,10,2|
00001e00  30 2b 49 25 81 32 2c 36  39 2c 31 33 2d 49 25 81  |0+I%.2,69,13-I%.|
00001e10  32 2c 34 3a 87 0d 0b 36  1c fb 31 32 3a fb 31 33  |2,4:...6..12:.13|
00001e20  39 3a f1 3b 54 25 3b 22  20 50 4c 41 59 45 52 22  |9:.;T%;" PLAYER"|
00001e30  3b 0d 0b 40 0f e7 54 25  3c 3e 31 f1 22 53 22 3b  |;..@..T%<>1."S";|
00001e40  0d 0b 4a 2a f1 22 2c 20  20 50 4c 41 59 49 4e 47  |..J*.",  PLAYING|
00001e50  20 41 54 20 22 3b 43 6f  75 72 73 65 24 3b 22 2c  | AT ";Course$;",|
00001e60  20 20 55 4e 44 45 52 20  22 3b 0d 0b 54 0c c8 8e  |  UNDER ";..T...|
00001e70  70 6c 61 79 25 ca 0d 0b  5e 10 c9 31 3a f1 22 4d  |play%...^..1:."M|
00001e80  41 54 43 48 22 3b 0d 0b  68 11 c9 32 3a f1 22 53  |ATCH";..h..2:."S|
00001e90  54 52 4f 4b 45 22 3b 0d  0b 72 05 cb 0d 0b 7c 12  |TROKE";..r....|.|
00001ea0  f1 22 20 50 4c 41 59 20  52 55 4c 45 53 22 0d 0b  |." PLAY RULES"..|
00001eb0  86 12 f1 8a 30 2c 31 29  c4 36 30 2c 22 2d 22 29  |....0,1).60,"-")|
00001ec0  0d 0b 90 31 fb 36 3a f1  8a 30 2c 32 29 22 4e 41  |...1.6:..0,2)"NA|
00001ed0  4d 45 22 8a 32 32 29 22  44 45 58 54 45 52 49 54  |ME".22)"DEXTERIT|
00001ee0  59 22 8a 34 36 29 22 53  4b 49 4c 4c 22 3a fb 31  |Y".46)"SKILL":.1|
00001ef0  32 0d 0b 9a 12 f1 8a 30  2c 33 29 c4 36 30 2c 22  |2......0,3).60,"|
00001f00  2d 22 29 0d 0b a4 0b f1  8a 30 2c 34 29 3b 0d 0b  |-")......0,4);..|
00001f10  ae 0d f2 62 6f 61 72 64  63 6f 6c 0d 0b b8 0c e3  |...boardcol.....|
00001f20  4e 25 3d 31 b8 54 25 0d  0b c2 09 fb 4e 25 2b 34  |N%=1.T%.....N%+4|
00001f30  0d 0b cc 13 f1 6e 61 6d  65 24 28 4e 25 29 8a 32  |.....name$(N%).2|
00001f40  32 29 3b 0d 0b d6 10 c8  8e 68 61 6e 64 25 28 4e  |2);......hand%(N|
00001f50  25 29 ca 0d 0b e0 10 c9  30 3a f1 22 52 49 47 48  |%)......0:."RIGH|
00001f60  54 22 3b 0d 0b ea 0f c9  31 3a f1 22 4c 45 46 54  |T";.....1:."LEFT|
00001f70  22 3b 0d 0b f4 05 cb 0d  0b fe 13 f1 22 20 48 41  |";.........." HA|
00001f80  4e 44 45 44 22 8a 34 36  29 3b 0d 0c 08 20 41 24  |NDED".46);... A$|
00001f90  3d a4 73 6b 69 6c 6c 6e  61 6d 65 28 63 75 72 72  |=.skillname(curr|
00001fa0  65 6e 74 73 25 28 4e 25  29 29 0d 0c 12 07 f1 41  |ents%(N%)).....A|
00001fb0  24 0d 0c 1c 05 ed 0d 0c  26 11 fb 31 32 3a f1 c4  |$.......&..12:..|
00001fc0  36 30 2c 22 2d 22 29 0d  0c 30 24 f2 73 6d 61 6c  |60,"-")..0$.smal|
00001fd0  6c 6d 65 73 28 35 32 30  2c 33 36 38 2d 49 25 2a  |lmes(520,368-I%*|
00001fe0  31 36 2c 38 2c 22 59 45  53 22 29 0d 0c 3a 23 f2  |16,8,"YES")..:#.|
00001ff0  73 6d 61 6c 6c 6d 65 73  28 36 38 30 2c 33 36 38  |smallmes(680,368|
00002000  2d 49 25 2a 31 36 2c 38  2c 22 4e 4f 22 29 0d 0c  |-I%*16,8,"NO")..|
00002010  44 21 c8 97 c8 93 35 33  36 2c 33 37 36 2d 49 25  |D!....536,376-I%|
00002020  2a 31 36 2c 32 30 38 2c  34 34 3a c8 97 20 ee 0d  |*16,208,44:.. ..|
00002030  0c 4e 05 f5 0d 0c 58 0e  c8 97 58 25 2c 59 25 2c  |.N....X...X%,Y%,|
00002040  4b 25 0d 0c 62 17 fd 28  58 25 3c 35 39 30 84 58  |K%..b..(X%<590.X|
00002050  25 3e 36 39 32 29 80 4b  25 0d 0c 6c 10 d4 31 2c  |%>692).K%..l..1,|
00002060  2d 31 30 2c 32 30 30 2c  31 0d 0c 76 0b 3d 58 25  |-10,200,1..v.=X%|
00002070  3e 36 39 32 0d 0c 80 05  e1 0d 0c 8a 07 f4 20 15  |>692.......... .|
00002080  0d 0c 94 0e dd f2 62 6f  61 72 64 63 6f 6c 0d 0c  |......boardcol..|
00002090  9e 0e fb 35 2c 32 30 38  2c 30 2c 30 0d 0c a8 11  |...5,208,0,0....|
000020a0  fb 36 2c 31 34 34 2c 31  32 38 2c 38 30 0d 0c b2  |.6,144,128,80...|
000020b0  12 fb 37 2c 31 31 32 2c  31 31 32 2c 31 31 32 0d  |..7,112,112,112.|
000020c0  0c bc 10 fb 38 2c 32 34  30 2c 31 31 32 2c 30 0d  |....8,240,112,0.|
000020d0  0c c6 0f fb 39 2c 39 36  2c 39 36 2c 34 38 0d 0c  |....9,96,96,48..|
000020e0  d0 12 fb 31 30 2c 32 30  38 2c 38 30 2c 31 34 34  |...10,208,80,144|
000020f0  0d 0c da 05 e1 0d 0c e4  07 f4 20 15 0d 0c ee 12  |.......... .....|
00002100  dd f2 67 65 74 73 6b 69  6c 6c 28 54 25 29 0d 0c  |..getskill(T%)..|
00002110  f8 0c f2 62 75 74 74 28  30 29 0d 0d 02 13 ea 58  |...butt(0).....X|
00002120  25 2c 59 25 2c 4b 25 2c  46 25 2c 4e 25 0d 0d 0c  |%,Y%,K%,F%,N%...|
00002130  3b f2 63 65 6e 74 62 6f  78 28 b9 2c 22 57 48 41  |;.centbox(.,"WHA|
00002140  54 20 49 53 20 22 2b 6e  61 6d 65 24 28 54 25 29  |T IS "+name$(T%)|
00002150  2b 22 53 20 53 4b 49 4c  4c 20 4c 45 56 45 4c 3f  |+"S SKILL LEVEL?|
00002160  22 2c 31 35 2c 31 32 29  0d 0d 16 33 f2 6d 65 73  |",15,12)...3.mes|
00002170  62 6f 78 28 33 35 36 2c  34 36 34 2c 34 31 36 2c  |box(356,464,416,|
00002180  36 34 29 3a f2 64 6f 73  6b 69 6c 6c 28 63 75 72  |64):.doskill(cur|
00002190  72 65 6e 74 73 25 28 54  25 29 29 0d 0d 20 1a f2  |rents%(T%)).. ..|
000021a0  6d 65 73 62 6f 78 28 38  32 30 2c 35 34 30 2c 38  |mesbox(820,540,8|
000021b0  30 2c 38 30 29 0d 0d 2a  1a f2 6d 65 73 62 6f 78  |0,80)..*..mesbox|
000021c0  28 38 32 30 2c 33 37 32  2c 38 30 2c 38 30 29 0d  |(820,372,80,80).|
000021d0  0d 34 25 e6 31 35 3a ec  38 36 30 2c 36 30 34 3a  |.4%.15:.860,604:|
000021e0  ec 38 33 36 2c 35 35 38  3a f0 38 35 2c 38 38 34  |.836,558:.85,884|
000021f0  2c 35 35 38 0d 0d 3e 32  ec 38 36 30 2c 33 38 38  |,558..>2.860,388|
00002200  3a ec 38 33 36 2c 34 33  32 3a f0 38 35 2c 38 38  |:.836,432:.85,88|
00002210  34 2c 34 33 32 3a 86 38  33 36 2c 34 33 36 2c 38  |4,432:.836,436,8|
00002220  38 34 2c 34 33 36 0d 0d  48 20 e6 38 3a 86 38 33  |84,436..H .8:.83|
00002230  36 2c 34 33 32 2c 38 36  30 2c 33 38 38 3a df 38  |6,432,860,388:.8|
00002240  38 34 2c 34 33 32 0d 0d  52 1d 86 38 33 36 2c 35  |84,432..R..836,5|
00002250  36 32 2c 38 36 30 2c 36  30 34 3a df 38 38 34 2c  |62,860,604:.884,|
00002260  35 36 32 0d 0d 5c 17 c8  97 c8 93 33 37 32 2c 33  |562..\.....372,3|
00002270  38 38 2c 35 31 34 2c 32  32 30 0d 0d 66 21 4e 25  |88,514,220..f!N%|
00002280  3d 63 75 72 72 65 6e 74  73 25 28 54 25 29 3a f5  |=currents%(T%):.|
00002290  3a c8 97 58 25 2c 59 25  2c 4b 25 0d 0d 70 08 e7  |:..X%,Y%,K%..p..|
000022a0  4b 25 8c 0d 0d 7a 0c e7  58 25 3e 38 33 36 8c 0d  |K%...z..X%>836..|
000022b0  0d 84 38 e7 59 25 3e 35  34 34 80 4e 25 3c 34 4e  |..8.Y%>544.N%<4N|
000022c0  25 2b 3d 31 3a f2 64 6f  73 6b 69 6c 6c 28 4e 25  |%+=1:.doskill(N%|
000022d0  29 3a d4 31 2c 2d 31 30  2c 32 30 30 2c 31 3a f2  |):.1,-10,200,1:.|
000022e0  62 75 74 74 28 30 29 0d  0d 8e 38 e7 59 25 3c 34  |butt(0)...8.Y%<4|
000022f0  34 32 80 4e 25 3e 31 4e  25 2d 3d 31 3a f2 64 6f  |42.N%>1N%-=1:.do|
00002300  73 6b 69 6c 6c 28 4e 25  29 3a d4 31 2c 2d 31 30  |skill(N%):.1,-10|
00002310  2c 32 30 30 2c 31 3a f2  62 75 74 74 28 30 29 0d  |,200,1:.butt(0).|
00002320  0d 98 05 cd 0d 0d a2 0c  e7 58 25 3c 37 38 30 8c  |.........X%<780.|
00002330  0d 0d ac 16 e7 59 25 3e  34 37 35 80 59 25 3c 35  |.....Y%>475.Y%<5|
00002340  31 34 46 25 3d b9 0d 0d  b6 05 cd 0d 0d c0 05 cd  |14F%=...........|
00002350  0d 0d ca 09 fd 46 25 3d  b9 0d 0d d4 10 d4 31 2c  |.....F%=......1,|
00002360  2d 31 30 2c 32 30 30 2c  31 0d 0d de 14 63 75 72  |-10,200,1....cur|
00002370  72 65 6e 74 73 25 28 54  25 29 3d 4e 25 0d 0d e8  |rents%(T%)=N%...|
00002380  05 e1 0d 0d f2 07 f4 20  15 0d 0d fc 11 dd f2 64  |....... .......d|
00002390  6f 73 6b 69 6c 6c 28 54  25 29 0d 0e 06 07 ea 41  |oskill(T%).....A|
000023a0  24 0d 0e 10 15 41 24 3d  a4 73 6b 69 6c 6c 6e 61  |$....A$=.skillna|
000023b0  6d 65 28 54 25 29 0d 0e  1a 1c e6 31 31 3a c8 93  |me(T%).....11:..|
000023c0  c8 90 33 37 32 2c 34 38  30 2c 31 32 2a 33 32 2c  |..372,480,12*32,|
000023d0  33 32 0d 0e 24 14 e6 31  32 3a ec 33 37 32 2c 35  |32..$..12:.372,5|
000023e0  30 38 3a f1 41 24 0d 0e  2e 05 e1 0d 0e 38 07 f4  |08:.A$.......8..|
000023f0  20 15 0d 0e 42 13 dd a4  73 6b 69 6c 6c 6e 61 6d  | ...B...skillnam|
00002400  65 28 54 25 29 0d 0e 4c  07 ea 41 24 0d 0e 56 09  |e(T%)..L..A$..V.|
00002410  c8 8e 54 25 ca 0d 0e 60  14 c9 31 3a 41 24 3d 22  |..T%...`..1:A$="|
00002420  42 45 47 49 4e 4e 45 52  22 0d 0e 6a 16 c9 32 3a  |BEGINNER"..j..2:|
00002430  41 24 3d 22 45 4e 54 48  55 53 49 41 53 54 22 0d  |A$="ENTHUSIAST".|
00002440  0e 74 13 c9 33 3a 41 24  3d 22 41 4d 41 54 45 55  |.t..3:A$="AMATEU|
00002450  52 22 0d 0e 7e 18 c9 34  3a 41 24 3d 22 50 52 4f  |R"..~..4:A$="PRO|
00002460  46 45 53 53 49 4f 4e 41  4c 22 0d 0e 88 05 cb 0d  |FESSIONAL"......|
00002470  0e 92 07 3d 41 24 0d 0e  9c 07 f4 20 15 0d 0e a6  |...=A$..... ....|
00002480  11 dd f2 67 65 74 6e 61  6d 65 28 54 25 29 0d 0e  |...getname(T%)..|
00002490  b0 0c f2 62 75 74 74 28  30 29 0d 0e ba 2a ea 58  |...butt(0)...*.X|
000024a0  25 2c 59 25 2c 4b 25 2c  51 2c 4f 58 25 2c 4f 59  |%,Y%,K%,Q,OX%,OY|
000024b0  25 2c 41 24 2c 42 24 3a  41 24 3d 6e 61 6d 65 24  |%,A$,B$:A$=name$|
000024c0  28 54 25 29 0d 0e c4 13  e7 6e 6f 6f 66 70 6c 61  |(T%).....noofpla|
000024d0  79 65 72 73 3e 31 8c 0d  0e ce 09 c8 8e 54 25 ca  |yers>1.......T%.|
000024e0  0d 0e d8 12 c9 31 3a 42  24 3d 22 46 49 52 53 54  |.....1:B$="FIRST|
000024f0  20 22 0d 0e e2 13 c9 32  3a 42 24 3d 22 53 45 43  | ".....2:B$="SEC|
00002500  4f 4e 44 20 22 0d 0e ec  12 c9 33 3a 42 24 3d 22  |OND ".....3:B$="|
00002510  54 48 49 52 44 20 22 0d  0e f6 13 c9 34 3a 42 24  |THIRD ".....4:B$|
00002520  3d 22 46 4f 55 52 54 48  20 22 0d 0f 00 12 c9 35  |="FOURTH ".....5|
00002530  3a 42 24 3d 22 46 49 46  54 48 20 22 0d 0f 0a 12  |:B$="FIFTH "....|
00002540  c9 36 3a 42 24 3d 22 53  49 58 54 48 20 22 0d 0f  |.6:B$="SIXTH "..|
00002550  14 05 cb 0d 0f 1e 05 cd  0d 0f 28 1d e7 a9 41 24  |..........(...A$|
00002560  3c 31 30 41 24 3d 41 24  2b c4 31 30 2d a9 41 24  |<10A$=A$+.10-.A$|
00002570  2c 22 20 22 29 0d 0f 32  36 f2 63 65 6e 74 62 6f  |," ")..26.centbo|
00002580  78 28 b9 2c 22 57 48 41  54 20 49 53 20 54 48 45  |x(.,"WHAT IS THE|
00002590  20 22 2b 42 24 2b 22 50  4c 41 59 45 52 53 20 4e  | "+B$+"PLAYERS N|
000025a0  41 4d 45 3f 22 2c 31 35  2c 38 29 0d 0f 3c 16 c8  |AME?",15,8)..<..|
000025b0  97 c8 93 33 30 36 2c 34  38 30 2c 36 33 34 2c 34  |...306,480,634,4|
000025c0  38 0d 0f 46 1e f2 73 6d  61 6c 6c 6d 65 73 28 37  |8..F..smallmes(7|
000025d0  38 34 2c 34 37 32 2c 31  31 2c 22 4f 4b 22 29 0d  |84,472,11,"OK").|
000025e0  0f 50 1c f2 73 6d 61 6c  6c 6d 65 73 28 32 38 38  |.P..smallmes(288|
000025f0  2c 34 37 32 2c 31 31 2c  41 24 29 0d 0f 5a 17 c8  |,472,11,A$)..Z..|
00002600  97 4f 58 25 2c 4f 59 25  2c 4b 25 3a d1 3d 31 30  |.OX%,OY%,K%:.=10|
00002610  30 30 0d 0f 64 05 f5 0d  0f 6e 0c f2 62 75 74 74  |00..d....n..butt|
00002620  28 30 29 0d 0f 78 10 41  24 3d 6e 61 6d 65 24 28  |(0)..x.A$=name$(|
00002630  54 25 29 0d 0f 82 11 ec  33 33 36 2c 35 31 36 3a  |T%).....336,516:|
00002640  f1 41 24 3b 0d 0f 8c 0e  e6 31 33 39 3a 2a 46 58  |.A$;.....139:*FX|
00002650  32 31 0d 0f 96 05 f5 0d  0f a0 32 51 3d a6 28 30  |21........2Q=.(0|
00002660  29 3a e7 51 3c 3e b9 20  84 28 58 25 3c 37 30 32  |):.Q<>. .(X%<702|
00002670  80 4b 25 29 20 91 3d 30  3a c8 97 4f 58 25 2c 4f  |.K%) .=0:..OX%,O|
00002680  59 25 2c 4b 25 3a c8 97  87 0d 0f aa 13 e7 51 3c  |Y%,K%:........Q<|
00002690  3e 31 32 37 51 3d 51 20  80 32 32 33 0d 0f b4 17  |>127Q=Q .223....|
000026a0  e7 28 51 3e 36 34 80 51  3c 39 31 29 84 51 3d 31  |.(Q>64.Q<91).Q=1|
000026b0  32 37 8c 0d 0f be 2b e7  a9 41 24 3c 3e 31 30 80  |27....+..A$<>10.|
000026c0  51 3c 3e 31 32 37 41 24  3d 41 24 2b bd 51 3a ef  |Q<>127A$=A$+.Q:.|
000026d0  51 3a d4 31 2c 2d 31 30  2c 32 30 30 2c 31 0d 0f  |Q:.1,-10,200,1..|
000026e0  c8 2e e7 a9 41 24 3c 3e  30 80 51 3d 31 32 37 41  |....A$<>0.Q=127A|
000026f0  24 3d c0 41 24 2c a9 41  24 2d 31 29 3a ef 51 3a  |$=.A$,.A$-1):.Q:|
00002700  d4 31 2c 2d 31 30 2c 32  30 30 2c 31 0d 0f d2 05  |.1,-10,200,1....|
00002710  cd 0d 0f dc 0e c8 97 58  25 2c 59 25 2c 4b 25 0d  |.......X%,Y%,K%.|
00002720  0f e6 25 e7 91 3e 35 30  30 84 94 28 58 25 2d 4f  |..%..>500..(X%-O|
00002730  58 25 29 3e 38 84 94 28  59 25 2d 4f 59 25 29 3e  |X%)>8..(Y%-OY%)>|
00002740  38 c8 97 ee 0d 0f f0 15  fd 28 58 25 3e 37 39 32  |8........(X%>792|
00002750  80 4b 25 29 84 51 3d 31  33 0d 0f fa 35 e7 41 24  |.K%).Q=13...5.A$|
00002760  3d 22 22 d4 31 2c 2d 31  35 2c 31 32 35 2c 32 30  |="".1,-15,125,20|
00002770  3a 6e 61 6d 65 24 28 54  25 29 3d 64 65 66 6e 61  |:name$(T%)=defna|
00002780  6d 65 24 28 54 25 29 3a  d1 3d 30 3a fd a3 0d 10  |me$(T%):.=0:....|
00002790  04 13 d4 31 2c 2d 31 30  2c 32 30 30 2c 31 3a fd  |...1,-10,200,1:.|
000027a0  b9 0d 10 0e 15 e6 31 34  30 3a 6e 61 6d 65 24 28  |......140:name$(|
000027b0  54 25 29 3d 41 24 0d 10  18 13 64 65 66 6e 61 6d  |T%)=A$....defnam|
000027c0  65 24 28 54 25 29 3d 41  24 0d 10 22 05 e1 0d 10  |e$(T%)=A$.."....|
000027d0  2c 07 f4 20 15 0d 10 36  0f dd a4 6e 6f 70 6c 61  |,.. ...6...nopla|
000027e0  79 69 6e 67 0d 10 40 0c  f2 62 75 74 74 28 30 29  |ying..@..butt(0)|
000027f0  0d 10 4a 0f e7 70 6c 61  79 25 3d 31 8c 3d 32 0d  |..J..play%=1.=2.|
00002800  10 54 13 ea 58 25 2c 59  25 2c 4b 25 2c 46 25 2c  |.T..X%,Y%,K%,F%,|
00002810  4e 25 0d 10 5e 29 f2 63  65 6e 74 62 6f 78 28 b9  |N%..^).centbox(.|
00002820  2c 22 48 4f 57 20 4d 41  4e 59 20 50 4c 41 59 45  |,"HOW MANY PLAYE|
00002830  52 53 3f 22 2c 31 32 2c  31 30 29 0d 10 68 24 f2  |RS?",12,10)..h$.|
00002840  6d 65 73 62 6f 78 28 34  36 34 2c 34 34 34 2c 38  |mesbox(464,444,8|
00002850  34 2c 31 30 30 29 3a f2  64 6f 6e 6f 28 31 29 0d  |4,100):.dono(1).|
00002860  10 72 1a f2 6d 65 73 62  6f 78 28 37 30 34 2c 35  |.r..mesbox(704,5|
00002870  33 36 2c 38 30 2c 38 30  29 0d 10 7c 1a f2 6d 65  |36,80,80)..|..me|
00002880  73 62 6f 78 28 37 30 34  2c 33 37 32 2c 38 30 2c  |sbox(704,372,80,|
00002890  38 30 29 0d 10 86 25 e6  31 35 3a ec 37 34 34 2c  |80)...%.15:.744,|
000028a0  36 30 30 3a ec 37 32 30  2c 35 35 34 3a f0 38 35  |600:.720,554:.85|
000028b0  2c 37 36 38 2c 35 35 34  0d 10 90 32 ec 37 34 34  |,768,554...2.744|
000028c0  2c 33 38 38 3a ec 37 32  30 2c 34 33 32 3a f0 38  |,388:.720,432:.8|
000028d0  35 2c 37 36 38 2c 34 33  32 3a 86 37 32 30 2c 34  |5,768,432:.720,4|
000028e0  33 36 2c 37 36 38 2c 34  33 36 0d 10 9a 20 e6 38  |36,768,436... .8|
000028f0  3a 86 37 32 30 2c 34 33  32 2c 37 34 34 2c 33 38  |:.720,432,744,38|
00002900  38 3a df 37 36 38 2c 34  33 32 0d 10 a4 1d 86 37  |8:.768,432.....7|
00002910  32 30 2c 35 35 38 2c 37  34 34 2c 36 30 30 3a df  |20,558,744,600:.|
00002920  37 36 38 2c 35 35 38 0d  10 ae 17 c8 97 c8 93 34  |768,558........4|
00002930  38 30 2c 33 38 34 2c 32  39 32 2c 32 32 30 0d 10  |80,384,292,220..|
00002940  b8 15 4e 25 3d 31 3a f5  3a c8 97 58 25 2c 59 25  |..N%=1:.:..X%,Y%|
00002950  2c 4b 25 0d 10 c2 08 e7  4b 25 8c 0d 10 cc 0c e7  |,K%.....K%......|
00002960  58 25 3e 37 31 36 8c 0d  10 d6 35 e7 59 25 3e 35  |X%>716....5.Y%>5|
00002970  34 34 80 4e 25 3c 36 4e  25 2b 3d 31 3a f2 64 6f  |44.N%<6N%+=1:.do|
00002980  6e 6f 28 4e 25 29 3a d4  31 2c 2d 31 30 2c 32 30  |no(N%):.1,-10,20|
00002990  30 2c 31 3a f2 62 75 74  74 28 30 29 0d 10 e0 35  |0,1:.butt(0)...5|
000029a0  e7 59 25 3c 34 34 32 80  4e 25 3e 31 4e 25 2d 3d  |.Y%<442.N%>1N%-=|
000029b0  31 3a f2 64 6f 6e 6f 28  4e 25 29 3a d4 31 2c 2d  |1:.dono(N%):.1,-|
000029c0  31 30 2c 32 30 30 2c 31  3a f2 62 75 74 74 28 30  |10,200,1:.butt(0|
000029d0  29 0d 10 ea 05 cd 0d 10  f4 0c e7 58 25 3c 35 34  |)..........X%<54|
000029e0  30 8c 0d 10 fe 16 e7 59  25 3e 34 35 36 80 59 25  |0......Y%>456.Y%|
000029f0  3c 35 34 30 46 25 3d b9  0d 11 08 05 cd 0d 11 12  |<540F%=.........|
00002a00  05 cd 0d 11 1c 09 fd 46  25 3d b9 0d 11 26 10 d4  |.......F%=...&..|
00002a10  31 2c 2d 31 30 2c 32 30  30 2c 31 0d 11 30 07 3d  |1,-10,200,1..0.=|
00002a20  4e 25 0d 11 3a 07 f4 20  15 0d 11 44 0e dd f2 64  |N%..:.. ...D...d|
00002a30  6f 6e 6f 28 41 25 29 0d  11 4e 19 e6 31 31 3a c8  |ono(A%)..N..11:.|
00002a40  93 c8 90 34 37 36 2c 34  36 38 2c 36 30 2c 36 34  |...476,468,60,64|
00002a50  0d 11 58 0c ec 34 37 36  2c 35 32 30 0d 11 62 13  |..X..476,520..b.|
00002a60  e6 31 32 3a f2 64 6f 75  62 6c 65 28 41 25 29 0d  |.12:.double(A%).|
00002a70  11 6c 05 e1 0d 11 76 07  f4 20 15 0d 11 80 18 dd  |.l....v.. ......|
00002a80  a4 71 75 65 73 74 28 41  24 2c 42 24 2c 43 24 2c  |.quest(A$,B$,C$,|
00002a90  48 25 29 0d 11 8a 0d ea  4c 25 2c 44 25 2c 52 25  |H%).....L%,D%,R%|
00002aa0  0d 11 94 17 52 25 3d 37  30 34 2b a4 6c 65 6e 67  |....R%=704+.leng|
00002ab0  74 68 28 a9 43 24 29 0d  11 9e 17 4c 25 3d 36 30  |th(.C$)....L%=60|
00002ac0  30 2d a4 6c 65 6e 67 74  68 28 a9 42 24 29 0d 11  |0-.length(.B$)..|
00002ad0  a8 1a f2 63 65 6e 74 62  6f 78 28 b9 2c 41 24 2c  |...centbox(.,A$,|
00002ae0  31 32 2c 36 2b 48 25 29  0d 11 b2 10 44 25 3d 34  |12,6+H%)....D%=4|
00002af0  36 34 2d 48 25 2a 33 32  0d 11 bc 1a f2 73 6d 61  |64-H%*32.....sma|
00002b00  6c 6c 6d 65 73 28 4c 25  2c 44 25 2c 31 31 2c 42  |llmes(L%,D%,11,B|
00002b10  24 29 0d 11 c6 1b f2 73  6d 61 6c 6c 6d 65 73 28  |$).....smallmes(|
00002b20  37 30 34 2c 44 25 2c 31  31 2c 43 24 29 0d 11 d0  |704,D%,11,C$)...|
00002b30  1e c8 97 c8 93 4c 25 2b  31 36 2c 44 25 2b 38 2c  |.....L%+16,D%+8,|
00002b40  52 25 2d 4c 25 2d 36 34  2c 34 38 0d 11 da 08 c8  |R%-L%-64,48.....|
00002b50  97 20 ee 0d 11 e4 0c f2  62 75 74 74 28 30 29 0d  |. ......butt(0).|
00002b60  11 ee 10 f5 3a c8 97 4c  25 2c 52 25 2c 44 25 0d  |....:..L%,R%,D%.|
00002b70  11 f8 17 fd 44 25 80 28  4c 25 3c 35 36 38 84 4c  |....D%.(L%<568.L|
00002b80  25 3e 37 31 32 29 0d 12  02 10 d4 31 2c 2d 31 30  |%>712).....1,-10|
00002b90  2c 32 30 30 2c 31 0d 12  0c 10 44 25 3d 2d 28 4c  |,200,1....D%=-(L|
00002ba0  25 3e 37 31 32 29 0d 12  16 07 3d 44 25 0d 12 20  |%>712)....=D%.. |
00002bb0  07 f4 20 15 0d 12 2a 10  dd a4 6c 65 6e 67 74 68  |.. ...*...length|
00002bc0  28 4c 25 29 0d 12 34 18  4c 25 2b 3d 33 3a e7 28  |(L%)..4.L%+=3:.(|
00002bd0  4c 25 80 31 29 2d 30 4c  25 2b 3d 31 0d 12 3e 0a  |L%.1)-0L%+=1..>.|
00002be0  3d 4c 25 2a 33 32 0d 12  48 07 f4 20 15 0d 12 52  |=L%*32..H.. ...R|
00002bf0  10 dd f2 64 6f 75 62 6c  65 28 43 25 29 0d 12 5c  |...double(C%)..\|
00002c00  0f 43 25 3d 31 32 38 2b  34 2a 43 25 0d 12 66 20  |.C%=128+4*C%..f |
00002c10  ef 43 25 2c 43 25 2b 31  2c 38 2c 38 2c 31 30 2c  |.C%,C%+1,8,8,10,|
00002c20  43 25 2b 32 2c 43 25 2b  33 2c 31 31 0d 12 70 05  |C%+2,C%+3,11..p.|
00002c30  e1 0d 12 7a 07 f4 20 15  0d 12 84 0f dd f2 73 63  |...z.. .......sc|
00002c40  72 65 65 6e 62 6f 78 0d  12 8e 0e ea 4d 25 3a 4d  |reenbox.....M%:M|
00002c50  25 3d eb 81 36 0d 12 98  1a f2 6d 65 73 62 6f 78  |%=..6.....mesbox|
00002c60  28 30 2c 30 2c 31 32 37  39 2c 31 30 32 33 29 0d  |(0,0,1279,1023).|
00002c70  12 a2 1f ef 32 34 2c 31  36 3b 31 36 3b 31 32 36  |....24,16;16;126|
00002c80  33 3b 31 30 30 37 3b 3a  e6 31 34 30 3a da 0d 12  |3;1007;:.140:...|
00002c90  ac 0e dd f2 74 65 78 74  77 69 6e 64 0d 12 b6 1b  |....textwind....|
00002ca0  ef 32 38 2c 31 2c 33 30  2c 33 38 2a 4d 25 2c 31  |.28,1,30,38*M%,1|
00002cb0  3a fb 31 34 30 3a db 0d  12 c0 05 e1 0d 12 ca 07  |:.140:..........|
00002cc0  f4 20 15 0d 12 d4 1b dd  f2 63 65 6e 74 62 6f 78  |. .......centbox|
00002cd0  28 63 6c 73 2c 41 24 2c  43 25 2c 48 25 29 0d 12  |(cls,A$,C%,H%)..|
00002ce0  de 0a e7 63 6c 73 20 db  0d 12 e8 0d ea 54 25 2c  |...cls ......T%,|
00002cf0  49 25 2c 4d 25 0d 12 f2  12 e7 eb 3d 39 4d 25 3d  |I%,M%......=9M%=|
00002d00  31 36 8b 4d 25 3d 38 0d  12 fc 11 54 25 3d 36 34  |16.M%=8....T%=64|
00002d10  30 2d a9 41 24 2a 4d 25  0d 13 06 10 49 25 3d 35  |0-.A$*M%....I%=5|
00002d20  31 32 2b 48 25 2a 31 36  0d 13 10 3d f2 6d 65 73  |12+H%*16...=.mes|
00002d30  62 6f 78 28 54 25 2d 4d  25 2c 34 39 36 2d 48 25  |box(T%-M%,496-H%|
00002d40  2a 31 36 2d 32 30 2a 28  48 25 3d 31 29 2c a9 41  |*16-20*(H%=1),.A|
00002d50  24 2a 4d 25 2a 32 2b 4d  25 2a 32 2c 48 25 2a 33  |$*M%*2+M%*2,H%*3|
00002d60  32 2b 33 32 29 0d 13 1a  1f e6 43 25 3a ec 54 25  |2+32).....C%:.T%|
00002d70  2c 49 25 2d 31 36 2a 28  48 25 3d 31 29 3a ef 35  |,I%-16*(H%=1):.5|
00002d80  3a f1 41 24 0d 13 24 05  e1 0d 13 2e 07 f4 20 15  |:.A$..$....... .|
00002d90  0d 13 38 1b dd f2 73 6d  61 6c 6c 6d 65 73 28 78  |..8...smallmes(x|
00002da0  25 2c 79 25 2c 43 25 2c  41 24 29 0d 13 42 0a ea  |%,y%,C%,A$)..B..|
00002db0  6f 25 2c 4d 25 0d 13 4c  14 e7 eb 3d 31 32 4d 25  |o%,M%..L...=12M%|
00002dc0  3d 31 36 8b 4d 25 3d 33  32 0d 13 56 15 6f 25 3d  |=16.M%=32..V.o%=|
00002dd0  28 31 2d 28 a9 41 24 80  31 29 29 2a 4d 25 0d 13  |(1-(.A$.1))*M%..|
00002de0  60 24 f2 6d 65 73 62 6f  78 28 78 25 2c 79 25 2c  |`$.mesbox(x%,y%,|
00002df0  a9 41 24 2a 4d 25 2b 4d  25 2a 32 2b 6f 25 2c 36  |.A$*M%+M%*2+o%,6|
00002e00  34 29 0d 13 6a 21 e6 31  32 3a ef 35 3a ec 78 25  |4)..j!.12:.5:.x%|
00002e10  2b 4d 25 2b 6f 25 81 32  2c 79 25 2b 34 34 3a f1  |+M%+o%.2,y%+44:.|
00002e20  41 24 3b 0d 13 74 05 e1  0d 13 7e 07 f4 20 15 0d  |A$;..t....~.. ..|
00002e30  13 88 19 dd f2 6d 65 73  62 6f 78 28 78 25 2c 79  |.....mesbox(x%,y|
00002e40  25 2c 58 25 2c 59 25 29  0d 13 92 16 e6 38 3a c8  |%,X%,Y%).....8:.|
00002e50  93 c8 90 78 25 2c 79 25  2c 58 25 2c 59 25 0d 13  |...x%,y%,X%,Y%..|
00002e60  9c 1c e6 33 3a c8 93 78  25 2b 34 2c 79 25 2b 34  |...3:..x%+4,y%+4|
00002e70  2c 58 25 2d 38 2c 59 25  2d 38 0d 13 a6 1e e6 34  |,X%-8,Y%-8.....4|
00002e80  3a c8 93 78 25 2b 38 2c  79 25 2b 38 2c 58 25 2d  |:..x%+8,y%+8,X%-|
00002e90  31 36 2c 59 25 2d 31 36  0d 13 b0 23 e6 31 31 3a  |16,Y%-16...#.11:|
00002ea0  c8 93 c8 90 78 25 2b 31  32 2c 79 25 2b 31 32 2c  |....x%+12,y%+12,|
00002eb0  58 25 2d 32 34 2c 59 25  2d 32 34 0d 13 ba 05 e1  |X%-24,Y%-24.....|
00002ec0  0d 13 c4 07 f4 20 15 0d  13 ce 1d dd f2 6d 65 73  |..... .......mes|
00002ed0  77 69 6e 64 28 41 24 2c  42 24 2c 43 24 2c 46 25  |wind(A$,B$,C$,F%|
00002ee0  2c 43 25 29 0d 13 d8 15  2a 43 48 41 4e 4e 45 4c  |,C%)....*CHANNEL|
00002ef0  56 4f 49 43 45 20 31 20  31 0d 13 e2 07 ef 32 36  |VOICE 1 1.....26|
00002f00  0d 13 ec 17 ea 58 25 2c  78 25 2c 78 32 25 2c 63  |.....X%,x%,x2%,c|
00002f10  25 2c 49 25 2c 59 25 0d  13 f6 21 59 25 3d 38 30  |%,I%,Y%...!Y%=80|
00002f20  2d 28 42 24 3c 3e 22 22  29 2a 34 38 2d 28 43 24  |-(B$<>"")*48-(C$|
00002f30  3c 3e 22 22 29 2a 34 38  0d 14 00 1e 58 25 3d 28  |<>"")*48....X%=(|
00002f40  a9 41 24 2a 31 36 2b 33  32 29 3a 78 25 3d 36 34  |.A$*16+32):x%=64|
00002f50  30 2d 58 25 81 32 0d 14  0a 19 f2 6d 65 73 62 6f  |0-X%.2.....mesbo|
00002f60  78 28 78 25 2c 38 30 30  2c 58 25 2c 59 25 29 0d  |x(x%,800,X%,Y%).|
00002f70  14 14 09 e6 33 2c 43 25  0d 14 1e 0f ef 35 3a 58  |....3,C%.....5:X|
00002f80  25 3d 78 25 2b 31 36 0d  14 28 12 78 25 3d 36 34  |%=x%+16..(.x%=64|
00002f90  30 2d 28 a9 42 24 2a 38  29 0d 14 32 13 78 32 25  |0-(.B$*8)..2.x2%|
00002fa0  3d 36 34 30 2d 28 a9 43  24 2a 38 29 0d 14 3c 10  |=640-(.C$*8)..<.|
00002fb0  e3 49 25 3d 31 b8 46 25  2a 32 2b 31 0d 14 46 12  |.I%=1.F%*2+1..F.|
00002fc0  ec 58 25 2c 37 37 32 2b  59 25 3a f1 41 24 0d 14  |.X%,772+Y%:.A$..|
00002fd0  50 19 e7 42 24 3c 3e 22  22 ec 78 25 2c 37 32 34  |P..B$<>"".x%,724|
00002fe0  2b 59 25 3a f1 42 24 0d  14 5a 1a e7 43 24 3c 3e  |+Y%:.B$..Z..C$<>|
00002ff0  22 22 ec 78 32 25 2c 36  37 36 2b 59 25 3a f1 43  |"".x2%,676+Y%:.C|
00003000  24 0d 14 64 0c f2 64 65  6c 28 35 30 29 0d 14 6e  |$..d..del(50)..n|
00003010  10 d4 31 2c 2d 31 30 2c  31 38 30 2c 31 0d 14 78  |..1,-10,180,1..x|
00003020  05 ed 0d 14 82 08 ef 34  3a 87 0d 14 8c 08 e6 38  |.......4:......8|
00003030  2c 30 0d 14 96 18 2a 53  43 48 4f 4f 53 45 20 74  |,0....*SCHOOSE t|
00003040  6f 70 6f 66 73 63 72 65  65 6e 0d 14 a0 0e f0 26  |opofscreen.....&|
00003050  45 44 2c 30 2c 37 30 34  0d 14 aa 0d f2 77 69 6e  |ED,0,704.....win|
00003060  64 6f 77 73 32 0d 14 b4  05 e1 0d 14 be 07 f4 20  |dows2.......... |
00003070  15 0d 14 c8 0b dd f2 62  6f 61 72 64 0d 14 d2 27  |.......board...'|
00003080  74 6f 74 73 63 6f 72 65  25 28 29 3d 74 6f 74 73  |totscore%()=tots|
00003090  63 6f 72 65 25 28 29 2b  63 75 72 72 65 6e 74 53  |core%()+currentS|
000030a0  25 28 29 0d 14 dc 41 e3  54 25 3d 31 b8 6e 6f 6f  |%()...A.T%=1.noo|
000030b0  66 70 6c 61 79 65 72 73  3a 68 6f 6c 65 73 63 6f  |fplayers:holesco|
000030c0  72 65 73 25 28 68 73 70  25 28 54 25 29 2c 48 6f  |res%(hsp%(T%),Ho|
000030d0  6c 65 25 29 3d 63 75 72  72 65 6e 74 53 25 28 54  |le%)=currentS%(T|
000030e0  25 29 3a ed 0d 14 e6 0d  f2 62 6f 61 72 64 63 6f  |%):......boardco|
000030f0  6c 0d 14 f0 15 fb 33 2c  30 2c 31 34 34 2c 30 3a  |l.....3,0,144,0:|
00003100  e6 31 33 31 3a da 0d 14  fa 0c f2 77 69 6e 73 6f  |.131:......winso|
00003110  72 74 0d 15 04 21 ea 50  25 2c 59 25 2c 54 25 2c  |rt...!.P%,Y%,T%,|
00003120  49 25 2c 53 25 2c 6d 70  25 2c 41 24 2c 73 63 25  |I%,S%,mp%,A$,sc%|
00003130  2c 4f 25 0d 15 0e 16 4f  25 3d 28 70 6c 61 79 25  |,O%....O%=(play%|
00003140  3d 32 29 2a 34 3a ef 32  36 0d 15 18 19 e6 30 3a  |=2)*4:.26.....0:|
00003150  c8 93 c8 90 36 30 2c 37  36 2c 31 31 35 36 2c 39  |....60,76,1156,9|
00003160  32 30 0d 15 22 1c e6 36  34 2c 30 3a c8 93 c8 90  |20.."..64,0:....|
00003170  36 34 2c 38 30 2c 31 31  34 38 2c 31 32 38 0d 15  |64,80,1148,128..|
00003180  2c 1e e6 34 38 2c 30 3a  c8 93 c8 90 36 34 2c 39  |,..48,0:....64,9|
00003190  39 32 2c 31 31 34 38 2c  2d 31 32 38 0d 15 36 26  |92,1148,-128..6&|
000031a0  e6 31 32 3a ec 37 36 38  2c 35 34 34 3a ec 31 32  |.12:.768,544:.12|
000031b0  31 32 2c 39 39 32 3a f0  38 35 2c 31 32 31 32 2c  |12,992:.85,1212,|
000031c0  38 30 0d 15 40 22 e6 31  33 3a ec 35 31 32 2c 35  |80..@".13:.512,5|
000031d0  34 34 3a ec 36 34 2c 38  30 3a f0 38 35 2c 36 34  |44:.64,80:.85,64|
000031e0  2c 39 39 32 0d 15 4a 1b  e6 31 31 3a c8 93 c8 90  |,992..J..11:....|
000031f0  39 38 2c 31 31 32 2c 31  30 38 30 2c 38 34 38 0d  |98,112,1080,848.|
00003200  15 54 18 e6 30 3a c8 93  39 38 2c 31 31 32 2c 31  |.T..0:..98,112,1|
00003210  30 38 30 2c 38 34 38 0d  15 5e 25 ef 32 34 2c 31  |080,848..^%.24,1|
00003220  30 30 3b 31 31 36 3b 31  31 37 36 3b 39 35 36 3b  |00;116;1176;956;|
00003230  3a c8 91 39 38 2c 31 31  36 3a ef 35 0d 15 68 1d  |:..98,116:.5..h.|
00003240  e6 31 34 3a e3 50 25 3d  31 b8 36 3a 59 25 3d 37  |.14:.P%=1.6:Y%=7|
00003250  38 38 2d 50 25 2a 31 33  32 0d 15 72 1c e6 37 3a  |88-P%*132..r..7:|
00003260  86 30 2c 59 25 2b 31 32  34 2c 31 30 38 30 2c 59  |.0,Y%+124,1080,Y|
00003270  25 2b 31 32 34 0d 15 7c  15 e6 31 34 3a 86 30 2c  |%+124..|..14:.0,|
00003280  59 25 2c 31 30 38 30 2c  59 25 0d 15 86 26 e3 54  |Y%,1080,Y%...&.T|
00003290  25 3d 34 30 b8 38 30 88  34 30 3a 86 30 2c 59 25  |%=40.80.40:.0,Y%|
000032a0  2b 54 25 2c 31 30 38 30  2c 59 25 2b 54 25 3a ed  |+T%,1080,Y%+T%:.|
000032b0  0d 15 90 27 e3 54 25 3d  31 b8 38 3a 58 25 3d 54  |...'.T%=1.8:X%=T|
000032c0  25 2a 31 32 30 3a 86 58  25 2c 59 25 2c 58 25 2c  |%*120:.X%,Y%,X%,|
000032d0  59 25 2b 38 30 3a ed 0d  15 9a 05 ed 0d 15 a4 15  |Y%+80:..........|
000032e0  e3 50 25 3d 31 b8 6e 6f  6f 66 70 6c 61 79 65 72  |.P%=1.noofplayer|
000032f0  73 0d 15 ae 2c 6d 70 25  3d 6d 61 70 73 74 61 72  |s...,mp%=mapstar|
00003300  74 25 2b 26 32 46 39 3a  59 25 3d 37 32 38 2d 28  |t%+&2F9:Y%=728-(|
00003310  50 25 2d 31 29 2a 31 33  32 3a e6 31 32 0d 15 b8  |P%-1)*132:.12...|
00003320  3a e3 49 25 3d 30 b8 2d  34 30 88 2d 34 30 3a e3  |:.I%=0.-40.-40:.|
00003330  54 25 3d 30 b8 38 3a ec  54 25 2a 31 32 30 2b 34  |T%=0.8:.T%*120+4|
00003340  2c 59 25 2b 49 25 3a f1  3b 3f 6d 70 25 3a 6d 70  |,Y%+I%:.;?mp%:mp|
00003350  25 2b 3d 26 33 30 30 0d  15 c2 09 ed 3a ed 3a ed  |%+=&300.....:.:.|
00003360  0d 15 cc 15 e3 50 25 3d  31 b8 6e 6f 6f 66 70 6c  |.....P%=1.noofpl|
00003370  61 79 65 72 73 0d 15 d6  35 6d 70 25 3d 6d 61 70  |ayers...5mp%=map|
00003380  73 74 61 72 74 25 2b 26  32 46 39 3a 59 25 3d 37  |start%+&2F9:Y%=7|
00003390  32 38 2d 28 50 25 2d 31  29 2a 31 33 32 3a 58 25  |28-(P%-1)*132:X%|
000033a0  3d 33 32 3a 70 61 72 25  3d 30 0d 15 e0 22 e3 54  |=32:par%=0...".T|
000033b0  25 3d 31 b8 48 6f 6c 65  25 3a e7 54 25 3d 31 30  |%=1.Hole%:.T%=10|
000033c0  59 25 2d 3d 34 30 3a 58  25 3d 33 32 0d 15 ea 37  |Y%-=40:X%=32...7|
000033d0  73 63 25 3d 68 6f 6c 65  73 63 6f 72 65 73 25 28  |sc%=holescores%(|
000033e0  68 73 70 25 28 50 25 29  2c 54 25 29 2d 3f 6d 70  |hsp%(P%),T%)-?mp|
000033f0  25 3a 70 61 72 25 2b 3d  3f 6d 70 25 3a ec 58 25  |%:par%+=?mp%:.X%|
00003400  2c 59 25 0d 15 f4 0b c8  8e b4 73 63 25 ca 0d 15  |,Y%.......sc%...|
00003410  fe 14 c9 20 30 3a 41 24  3d 22 50 41 52 22 3a e6  |... 0:A$="PAR":.|
00003420  31 35 0d 16 08 16 c9 20  31 3a 41 24 3d 22 2b 22  |15..... 1:A$="+"|
00003430  2b c3 73 63 25 3a e6 35  0d 16 12 12 c9 2d 31 3a  |+.sc%:.5.....-1:|
00003440  41 24 3d c3 73 63 25 3a  e6 30 0d 16 1c 05 cb 0d  |A$=.sc%:.0......|
00003450  16 26 13 f1 c4 35 2d a9  41 24 2c 22 20 22 29 3b  |.&...5-.A$," ");|
00003460  41 24 0d 16 30 15 58 25  2b 3d 31 32 30 3a 6d 70  |A$..0.X%+=120:mp|
00003470  25 2b 3d 26 33 30 30 0d  16 3a 05 ed 0d 16 44 35  |%+=&300..:....D5|
00003480  e6 6a 75 6d 70 25 28 50  25 29 2b 34 3a ec 34 2c  |.jump%(P%)+4:.4,|
00003490  37 36 38 2d 28 50 25 2d  31 29 2a 31 33 32 3a f1  |768-(P%-1)*132:.|
000034a0  6e 61 6d 65 24 28 50 25  29 8a 32 30 2b 4f 25 29  |name$(P%).20+O%)|
000034b0  3b 0d 16 4e 14 c8 8e 63  75 72 72 65 6e 74 73 25  |;..N...currents%|
000034c0  28 50 25 29 ca 0d 16 58  15 c9 31 3a f1 22 7b 42  |(P%)...X..1:."{B|
000034d0  45 47 49 4e 4e 45 52 7d  22 3b 0d 16 62 17 c9 32  |EGINNER}";..b..2|
000034e0  3a f1 22 7b 45 4e 54 48  55 53 49 41 53 54 7d 22  |:."{ENTHUSIAST}"|
000034f0  3b 0d 16 6c 14 c9 33 3a  f1 22 7b 41 4d 41 54 45  |;..l..3:."{AMATE|
00003500  55 52 7d 22 3b 0d 16 76  19 c9 34 3a f1 22 7b 50  |UR}";..v..4:."{P|
00003510  52 4f 46 45 53 53 49 4f  4e 41 4c 7d 22 3b 0d 16  |ROFESSIONAL}";..|
00003520  80 05 cb 0d 16 8a 41 f1  8a 34 30 2b 4f 25 29 3b  |......A..40+O%);|
00003530  74 6f 74 73 63 6f 72 65  25 28 50 25 29 3b 22 20  |totscore%(P%);" |
00003540  53 54 52 4f 4b 45 22 bd  28 2d 28 74 6f 74 73 63  |STROKE".(-(totsc|
00003550  6f 72 65 25 28 50 25 29  3e 31 29 2a 38 33 29 8a  |ore%(P%)>1)*83).|
00003560  35 33 29 3b 0d 16 94 36  41 24 3d 22 20 3a 20 22  |53);...6A$=" : "|
00003570  2b c3 48 6f 6c 65 25 2b  22 20 48 4f 4c 45 22 2b  |+.Hole%+" HOLE"+|
00003580  c4 2d 28 48 6f 6c 65 25  3e 31 29 2c 22 53 22 29  |.-(Hole%>1),"S")|
00003590  2b 22 20 50 4c 41 59 45  44 22 0d 16 9e 0c c8 8e  |+" PLAYED"......|
000035a0  70 6c 61 79 25 ca 0d 16  a8 0d c9 31 3a f2 6d 61  |play%......1:.ma|
000035b0  74 63 68 0d 16 b2 0e c9  32 3a f2 73 74 72 6f 6b  |tch.....2:.strok|
000035c0  65 0d 16 bc 05 cb 0d 16  c6 05 ed 0d 16 d0 20 e6  |e............. .|
000035d0  31 35 3a 54 25 3d 35 34  32 2d a9 41 24 2a 38 3a  |15:T%=542-.A$*8:|
000035e0  ec 54 25 2c 38 32 34 3a  f1 41 24 0d 16 da 1f e6  |.T%,824:.A$.....|
000035f0  31 32 3a c8 93 54 25 2d  38 2c 37 38 38 2c a9 41  |12:..T%-8,788,.A|
00003600  24 2a 31 36 2b 31 34 2c  34 38 0d 16 e4 29 ef 32  |$*16+14,48...).2|
00003610  36 3a f2 73 6d 61 6c 6c  6d 65 73 28 33 36 30 2c  |6:.smallmes(360,|
00003620  33 32 2c 31 31 2c 22 20  43 4f 4e 54 49 4e 55 45  |32,11," CONTINUE|
00003630  20 22 29 0d 16 ee 25 f2  73 6d 61 6c 6c 6d 65 73  | ")...%.smallmes|
00003640  28 37 32 30 2c 33 32 2c  31 31 2c 22 51 55 49 54  |(720,32,11,"QUIT|
00003650  20 52 4f 55 4e 44 22 29  0d 16 f8 05 f5 0d 17 02  | ROUND")........|
00003660  15 c8 97 c8 93 33 37 32  2c 34 34 2c 35 32 38 2c  |.....372,44,528,|
00003670  34 30 0d 17 0c 11 c8 97  ee 3a c8 97 b8 34 36 34  |40.......:...464|
00003680  2c 36 34 0d 17 16 18 f2  62 75 74 74 28 30 29 3a  |,64.....butt(0):|
00003690  d1 3d 30 3a f5 fd 91 3e  31 30 30 0d 17 20 10 f5  |.=0:...>100.. ..|
000036a0  3a c8 97 58 25 2c 59 25  2c 54 25 0d 17 2a 17 fd  |:..X%,Y%,T%..*..|
000036b0  54 25 80 28 58 25 3c 35  35 36 84 58 25 3e 37 31  |T%.(X%<556.X%>71|
000036c0  38 29 0d 17 34 44 e7 58  25 3e 37 31 38 f2 63 6f  |8)..4D.X%>718.co|
000036d0  6e 66 69 72 6d 3a e7 58  25 3e 39 32 36 ec 30 2c  |nfirm:.X%>926.0,|
000036e0  30 3a ff 28 22 53 43 48  4f 4f 53 45 20 74 6f 70  |0:.("SCHOOSE top|
000036f0  6f 66 73 63 72 65 65 6e  22 29 3a f0 26 45 44 2c  |ofscreen"):.&ED,|
00003700  30 2c 30 3a fd 30 0d 17  3e 06 fd b9 0d 17 48 0b  |0,0:.0..>.....H.|
00003710  fb 30 3a ef 34 3a 87 0d  17 52 07 c8 97 87 0d 17  |.0:.4:...R......|
00003720  5c 08 e6 31 33 39 0d 17  66 05 e1 0d 17 70 07 f4  |\..139..f....p..|
00003730  20 15 0d 17 7a 0d dd f2  63 6f 6e 66 69 72 6d 0d  | ...z...confirm.|
00003740  17 84 0c f2 62 75 74 74  28 30 29 0d 17 8e 0c f2  |....butt(0).....|
00003750  67 74 6f 73 28 30 29 0d  17 98 1b f2 6d 65 73 62  |gtos(0).....mesb|
00003760  6f 78 28 36 34 30 2c 33  32 2c 35 31 32 2c 31 36  |ox(640,32,512,16|
00003770  30 29 0d 17 a2 31 e6 38  3a ec 36 35 36 2c 31 37  |0)...1.8:.656,17|
00003780  36 3a f1 22 41 52 45 20  59 4f 55 20 53 55 52 45  |6:."ARE YOU SURE|
00003790  20 59 4f 55 20 57 41 4e  54 20 54 4f 20 51 55 49  | YOU WANT TO QUI|
000037a0  54 3f 22 0d 17 ac 1d f2  73 6d 61 6c 6c 6d 65 73  |T?".....smallmes|
000037b0  28 37 39 34 2c 36 30 2c  38 2c 22 59 45 53 22 29  |(794,60,8,"YES")|
000037c0  0d 17 b6 1c f2 73 6d 61  6c 6c 6d 65 73 28 39 31  |.....smallmes(91|
000037d0  36 2c 36 30 2c 38 2c 22  4e 4f 22 29 0d 17 c0 1f  |6,60,8,"NO")....|
000037e0  c8 97 c8 93 38 30 36 2c  37 32 2c 31 37 38 2c 34  |....806,72,178,4|
000037f0  30 3a c8 97 b8 38 39 30  2c 38 32 0d 17 ca 10 f5  |0:...890,82.....|
00003800  3a c8 97 58 25 2c 59 25  2c 54 25 0d 17 d4 17 fd  |:..X%,Y%,T%.....|
00003810  54 25 80 28 58 25 3c 38  36 36 84 58 25 3e 39 32  |T%.(X%<866.X%>92|
00003820  36 29 0d 17 de 05 e1 0d  17 e8 07 f4 20 15 0d 17  |6).......... ...|
00003830  f2 0b dd f2 6d 61 74 63  68 0d 17 fc 12 ea 54 25  |....match.....T%|
00003840  2c 42 24 2c 53 31 25 2c  53 32 25 0d 18 06 0f e3  |,B$,S1%,S2%.....|
00003850  54 25 3d 31 b8 48 6f 6c  65 25 0d 18 10 3b e7 20  |T%=1.Hole%...;. |
00003860  68 6f 6c 65 73 63 6f 72  65 73 25 28 68 73 70 25  |holescores%(hsp%|
00003870  28 31 29 2c 54 25 29 3c  68 6f 6c 65 73 63 6f 72  |(1),T%)<holescor|
00003880  65 73 25 28 68 73 70 25  28 32 29 2c 54 25 29 53  |es%(hsp%(2),T%)S|
00003890  31 25 2b 3d 31 0d 18 1a  3b e7 20 68 6f 6c 65 73  |1%+=1...;. holes|
000038a0  63 6f 72 65 73 25 28 68  73 70 25 28 32 29 2c 54  |cores%(hsp%(2),T|
000038b0  25 29 3c 68 6f 6c 65 73  63 6f 72 65 73 25 28 68  |%)<holescores%(h|
000038c0  73 70 25 28 31 29 2c 54  25 29 53 32 25 2b 3d 31  |sp%(1),T%)S2%+=1|
000038d0  0d 18 24 13 ed 3a 54 25  3d 94 28 53 32 25 2d 53  |..$..:T%=.(S2%-S|
000038e0  31 25 29 0d 18 2e 25 42  24 3d c3 28 54 25 29 3a  |1%)...%B$=.(T%):|
000038f0  e7 54 25 42 24 3d 42 24  2b 22 20 55 50 22 8b 42  |.T%B$=B$+" UP".B|
00003900  24 3d 22 45 56 45 4e 22  0d 18 38 16 42 24 3d c4  |$="EVEN"..8.B$=.|
00003910  31 34 2d a9 42 24 2c 22  20 22 29 2b 42 24 0d 18  |14-.B$," ")+B$..|
00003920  42 09 c8 8e 50 25 ca 0d  18 4c 13 c9 31 3a e7 53  |B...P%...L..1:.S|
00003930  31 25 3e 3d 53 32 25 f1  42 24 0d 18 56 13 c9 32  |1%>=S2%.B$..V..2|
00003940  3a e7 53 32 25 3e 3d 53  31 25 f1 42 24 0d 18 60  |:.S2%>=S1%.B$..`|
00003950  05 cb 0d 18 6a 21 41 24  3d 43 6f 75 72 73 65 24  |....j!A$=Course$|
00003960  2b 22 20 3a 20 4d 41 54  43 48 20 50 4c 41 59 22  |+" : MATCH PLAY"|
00003970  2b 41 24 0d 18 74 05 e1  0d 18 7e 07 f4 20 15 0d  |+A$..t....~.. ..|
00003980  18 88 0c dd f2 73 74 72  6f 6b 65 0d 18 92 0a ea  |.....stroke.....|
00003990  54 25 2c 42 24 0d 18 9c  23 54 25 3d 74 6f 74 73  |T%,B$...#T%=tots|
000039a0  63 6f 72 65 25 28 50 25  29 2d 70 61 72 25 3a 42  |core%(P%)-par%:B|
000039b0  24 3d c3 28 94 54 25 29  0d 18 a6 0a c8 8e b4 54  |$=.(.T%).......T|
000039c0  25 ca 0d 18 b0 14 c9 30  3a 42 24 3d 22 45 56 45  |%......0:B$="EVE|
000039d0  4e 20 50 41 52 22 0d 18  ba 18 c9 31 3a 42 24 3d  |N PAR".....1:B$=|
000039e0  42 24 2b 22 20 4f 56 45  52 20 50 41 52 22 0d 18  |B$+" OVER PAR"..|
000039f0  c4 1a c9 2d 31 3a 42 24  3d 42 24 2b 22 20 55 4e  |...-1:B$=B$+" UN|
00003a00  44 45 52 20 50 41 52 22  0d 18 ce 05 cb 0d 18 d8  |DER PAR"........|
00003a10  14 f1 c4 31 34 2d a9 42  24 2c 22 20 22 29 3b 42  |...14-.B$," ");B|
00003a20  24 0d 18 e2 22 41 24 3d  43 6f 75 72 73 65 24 2b  |$..."A$=Course$+|
00003a30  22 20 3a 20 53 54 52 4f  4b 45 20 50 4c 41 59 22  |" : STROKE PLAY"|
00003a40  2b 41 24 0d 18 ec 05 e1  0d 18 f6 07 f4 20 15 0d  |+A$.......... ..|
00003a50  19 00 0e dd f2 73 68 6f  77 77 69 6e 64 0d 19 0a  |.....showwind...|
00003a60  23 ea 77 24 2c 54 25 2c  43 25 2c 73 25 2c 69 25  |#.w$,T%,C%,s%,i%|
00003a70  2c 78 31 25 2c 79 31 25  2c 42 58 25 2c 42 59 25  |,x1%,y1%,BX%,BY%|
00003a80  0d 19 14 35 e7 67 72 65  65 6e 25 20 43 25 3d 39  |...5.green% C%=9|
00003a90  3a 77 24 3d 22 53 4c 4f  50 45 22 3a 73 25 3d 2d  |:w$="SLOPE":s%=-|
00003aa0  32 8b 43 25 3d 36 3a 77  24 3d 22 57 49 4e 44 22  |2.C%=6:w$="WIND"|
00003ab0  3a 73 25 3d 34 0d 19 1e  25 fb 31 33 3a f1 8a 32  |:s%=4...%.13:..2|
00003ac0  36 2c 30 29 22 44 49 52  45 43 54 49 4f 4e 20 4f  |6,0)"DIRECTION O|
00003ad0  46 22 8a 32 39 2c 31 29  77 24 0d 19 28 13 e3 54  |F".29,1)w$..(..T|
00003ae0  25 3d 43 25 b8 43 25 2b  73 25 88 73 25 0d 19 32  |%=C%.C%+s%.s%..2|
00003af0  07 e6 54 25 0d 19 3c 13  c8 8f 35 32 36 2c 38 32  |..T%..<...526,82|
00003b00  30 2c 38 38 2b 69 25 0d  19 46 13 c8 8f 35 32 36  |0,88+i%..F...526|
00003b10  2c 38 32 30 2c 31 32 2b  69 25 0d 19 50 0b 69 25  |,820,12+i%..P.i%|
00003b20  2b 3d 34 3a ed 0d 19 5a  06 e6 38 0d 19 64 0c ec  |+=4:...Z..8..d..|
00003b30  35 32 36 2c 38 32 30 0d  19 6e 17 42 58 25 3d 77  |526,820..n.BX%=w|
00003b40  78 2a 32 35 3a 42 59 25  3d 77 79 2a 32 35 0d 19  |x*25:BY%=wy*25..|
00003b50  78 27 78 31 25 3d 76 61  2a 42 59 25 2b 76 62 2a  |x'x1%=va*BY%+vb*|
00003b60  42 58 25 3a 79 31 25 3d  76 69 2a 42 59 25 2b 76  |BX%:y1%=vi*BY%+v|
00003b70  61 2a 42 58 25 0d 19 82  14 df 35 32 36 2b 78 31  |a*BX%.....526+x1|
00003b80  25 2c 38 32 30 2b 79 31  25 0d 19 8c 05 e1 0d 19  |%,820+y1%.......|
00003b90  96 07 f4 20 15 0d 19 a0  0d dd f2 73 65 74 77 69  |... .......setwi|
00003ba0  6e 64 0d 19 aa 17 57 58  3d 30 3a 57 59 3d 30 3a  |nd....WX=0:WY=0:|
00003bb0  46 25 3d 67 72 65 65 6e  25 0d 19 b4 18 77 63 3d  |F%=green%....wc=|
00003bc0  35 2b 34 2a 67 72 65 65  6e 25 3a 77 63 32 3d 77  |5+4*green%:wc2=w|
00003bd0  63 0d 19 be 31 e7 46 25  3a 50 25 3d 6d 61 70 70  |c...1.F%:P%=mapp|
00003be0  6f 69 6e 74 25 2b 26 32  46 34 3a 77 78 3d a4 6d  |oint%+&2F4:wx=.m|
00003bf0  61 70 32 2f 33 3a 77 79  3d a4 6d 61 70 32 2f 33  |ap2/3:wy=.map2/3|
00003c00  3a e1 0d 19 c8 18 77 78  3d 30 3a 77 79 3d 30 3a  |:.....wx=0:wy=0:|
00003c10  e7 73 6b 69 6c 6c 25 3c  33 e1 0d 19 d2 0f 77 78  |.skill%<3.....wx|
00003c20  3d 57 78 3a 77 79 3d 57  79 0d 19 dc 05 e1 0d 19  |=Wx:wy=Wy.......|
00003c30  e6 07 f4 20 15 0d 19 f0  0e dd f2 69 6e 69 74 77  |... .......initw|
00003c40  69 6e 64 0d 19 fa 07 ea  61 25 0d 1a 04 10 73 74  |ind.....a%....st|
00003c50  72 65 6e 25 3d b3 28 33  36 29 0d 1a 0e 0d 61 25  |ren%=.(36)....a%|
00003c60  3d b3 28 33 36 30 29 0d  1a 18 18 57 78 3d 28 28  |=.(360)....Wx=((|
00003c70  9b b2 61 25 29 2a 73 74  72 65 6e 25 29 2f 39 0d  |..a%)*stren%)/9.|
00003c80  1a 22 18 57 79 3d 28 28  b5 b2 61 25 29 2a 73 74  |.".Wy=((..a%)*st|
00003c90  72 65 6e 25 29 2f 39 0d  1a 2c 1d 46 78 3d 28 b5  |ren%)/9..,.Fx=(.|
00003ca0  b2 61 25 29 2a 28 31 35  2b 28 73 74 72 65 6e 25  |.a%)*(15+(stren%|
00003cb0  81 32 29 29 0d 1a 36 1d  46 79 3d 28 9b b2 61 25  |.2))..6.Fy=(..a%|
00003cc0  29 2a 28 31 35 2b 28 73  74 72 65 6e 25 81 32 29  |)*(15+(stren%.2)|
00003cd0  29 0d 1a 40 05 e1 0d 1a  4a 07 f4 20 15 0d 1a 54  |)..@....J.. ...T|
00003ce0  0a dd f2 73 70 6f 74 0d  1a 5e 1b 62 73 25 3d 31  |...spot..^.bs%=1|
00003cf0  3a 42 58 3d 30 3a 42 59  25 3d 2d 52 25 3a 68 25  |:BX=0:BY%=-R%:h%|
00003d00  3d 30 0d 1a 68 25 78 31  25 3d 76 61 2a 42 59 25  |=0..h%x1%=va*BY%|
00003d10  2b 76 62 2a 42 58 3a 79  31 25 3d 76 69 2a 42 59  |+vb*BX:y1%=vi*BY|
00003d20  25 2b 76 61 2a 42 58 0d  1a 72 1a f2 76 74 28 79  |%+va*BX..r..vt(y|
00003d30  31 25 2c 78 31 25 2c 48  25 29 3a 79 73 25 2d 3d  |1%,x1%,H%):ys%-=|
00003d40  34 0d 1a 7c 0c 2a 46 58  31 31 32 2c 32 0d 1a 86  |4..|.*FX112,2...|
00003d50  14 6c 69 65 25 3d b0 78  73 25 2b 32 2c 79 73 25  |.lie%=.xs%+2,ys%|
00003d60  29 0d 1a 90 0e f2 77 65  6c 6c 69 65 28 30 29 0d  |).....wellie(0).|
00003d70  1a 9a 0d e7 ac 67 72 65  65 6e 25 8c 0d 1a a4 2c  |.....green%....,|
00003d80  54 25 3d b0 28 6d 78 25  28 30 2c 48 61 6e 64 25  |T%=.(mx%(0,Hand%|
00003d90  29 2b 34 2b 54 25 2b 38  30 2a 48 61 6e 64 25 29  |)+4+T%+80*Hand%)|
00003da0  2c 6d 79 25 28 30 29 29  0d 1a ae 10 e7 54 25 3d  |,my%(0)).....T%=|
00003db0  36 84 54 25 3d 31 31 8c  0d 1a b8 0f f2 77 65 6c  |6.T%=11......wel|
00003dc0  6c 69 65 28 33 30 29 0d  1a c2 05 cd 0d 1a cc 05  |lie(30).........|
00003dd0  cd 0d 1a d6 0c 2a 46 58  31 31 32 2c 31 0d 1a e0  |.....*FX112,1...|
00003de0  15 ec 78 73 25 2c 79 73  25 3a ec 42 59 31 30 2c  |..xs%,ys%:.BY10,|
00003df0  31 36 0d 1a ea 13 6f 78  25 3d 78 73 25 3a 6f 79  |16....ox%=xs%:oy|
00003e00  25 3d 79 73 25 0d 1a f4  15 6f 73 78 25 3d 78 73  |%=ys%....osx%=xs|
00003e10  25 3a 6f 73 79 25 3d 79  73 25 0d 1a fe 13 73 78  |%:osy%=ys%....sx|
00003e20  25 3d 78 73 25 3a 73 79  25 3d 79 73 25 0d 1b 08  |%=xs%:sy%=ys%...|
00003e30  0c 2a 53 47 45 54 20 67  72 0d 1b 12 0c 2a 53 47  |.*SGET gr....*SG|
00003e40  45 54 20 73 68 0d 1b 1c  05 e1 0d 1b 26 07 f4 20  |ET sh.......&.. |
00003e50  15 0d 1b 30 10 dd f2 77  65 6c 6c 69 65 28 57 25  |...0...wellie(W%|
00003e60  29 0d 1b 3a 07 ea 54 25  0d 1b 44 1c e3 54 25 3d  |)..:..T%..D..T%=|
00003e70  31 b8 38 3a 6d 25 28 54  25 2c 30 29 3d 54 25 2b  |1.8:m%(T%,0)=T%+|
00003e80  57 25 3a ed 0d 1b 4e 11  77 65 6c 6c 69 65 25 3d  |W%:...N.wellie%=|
00003e90  57 25 3d 33 30 0d 1b 58  05 e1 0d 1b 62 07 f4 20  |W%=30..X....b.. |
00003ea0  15 0d 1b 6c 0c dd f2 73  70 6c 61 73 68 0d 1b 76  |...l...splash..v|
00003eb0  18 2a 43 48 41 4e 4e 45  4c 56 4f 49 43 45 20 31  |.*CHANNELVOICE 1|
00003ec0  20 50 4c 4f 50 0d 1b 80  16 ea 41 24 2c 72 25 2c  | PLOP.....A$,r%,|
00003ed0  61 25 2c 54 25 2c 78 25  2c 79 25 0d 1b 8a 16 62  |a%,T%,x%,y%....b|
00003ee0  61 64 25 3d a3 3a d4 31  2c 2d 31 35 2c 35 2c 32  |ad%=.:.1,-15,5,2|
00003ef0  30 0d 1b 94 0e e7 94 73  78 25 3c 36 34 30 8c 0d  |0......sx%<640..|
00003f00  1b 9e 0e e3 72 25 3d 35  b8 35 35 88 35 0d 1b a8  |....r%=5.55.5...|
00003f10  0a e7 72 25 3e 39 8c 0d  1b b2 0c e6 36 3a c8 96  |..r%>9......6:..|
00003f20  3a c8 96 0d 1b bc 0c e3  61 25 3d 30 b8 34 35 0d  |:.......a%=0.45.|
00003f30  1b c6 32 78 25 3d 78 73  25 2b 43 28 61 25 29 2a  |..2x%=xs%+C(a%)*|
00003f40  28 72 25 2d 31 30 29 3a  79 25 3d 79 73 25 2b 53  |(r%-10):y%=ys%+S|
00003f50  28 61 25 29 2a 28 28 72  25 2d 31 30 29 3e 3e 32  |(a%)*((r%-10)>>2|
00003f60  29 0d 1b d0 16 e7 b0 78  25 2c 79 25 29 3d 31 31  |)......x%,y%)=11|
00003f70  c8 92 78 25 2c 79 25 0d  1b da 05 ed 0d 1b e4 05  |..x%,y%.........|
00003f80  cd 0d 1b ee 0f e6 31 31  3a e7 72 25 3c 35 30 8c  |......11:.r%<50.|
00003f90  0d 1b f8 09 c8 96 3a c8  96 0d 1c 02 31 e3 61 25  |......:.....1.a%|
00003fa0  3d 30 b8 34 35 3a 78 25  3d 78 73 25 2b 43 28 61  |=0.45:x%=xs%+C(a|
00003fb0  25 29 2a 72 25 3a 79 25  3d 79 73 25 2b 53 28 61  |%)*r%:y%=ys%+S(a|
00003fc0  25 29 2a 28 72 25 3e 3e  32 29 0d 1c 0c 15 e7 b0  |%)*(r%>>2)......|
00003fd0  78 25 2c 79 25 29 3d 36  c8 92 78 25 2c 79 25 0d  |x%,y%)=6..x%,y%.|
00003fe0  1c 16 05 ed 0d 1c 20 05  cd 0d 1c 2a 05 ed 0d 1c  |...... ....*....|
00003ff0  34 05 cd 0d 1c 3e 0e 73  74 72 6f 6b 65 25 2b 3d  |4....>.stroke%+=|
00004000  31 0d 1c 48 21 e7 47 25  3d 31 31 41 24 3d 22 54  |1..H!.G%=11A$="T|
00004010  48 45 20 53 45 41 22 8b  41 24 3d 22 57 41 54 45  |HE SEA".A$="WATE|
00004020  52 22 0d 1c 52 4d f2 6d  65 73 77 69 6e 64 28 22  |R"..RM.meswind("|
00004030  42 41 4c 4c 20 4c 4f 53  54 20 49 4e 20 22 2b 41  |BALL LOST IN "+A|
00004040  24 2c 22 46 4f 52 46 45  49 54 20 4f 4e 45 20 53  |$,"FORFEIT ONE S|
00004050  54 52 4f 4b 45 22 2c 22  50 4c 45 41 53 45 20 50  |TROKE","PLEASE P|
00004060  4c 41 59 20 41 47 41 49  4e 22 2c 35 2c 36 29 0d  |LAY AGAIN",5,6).|
00004070  1c 5c 10 f2 67 65 74 70  6c 61 79 76 61 6c 73 0d  |.\..getplayvals.|
00004080  1c 66 09 f2 73 70 6f 74  0d 1c 70 12 2a 53 43 48  |.f..spot..p.*SCH|
00004090  4f 4f 53 45 20 70 6c 61  69 6e 0d 1c 7a 4d c8 96  |OOSE plain..zM..|
000040a0  3a f0 26 45 44 2c 6d 78  25 28 67 25 2c 48 61 6e  |:.&ED,mx%(g%,Han|
000040b0  64 25 29 2c 6d 79 25 28  67 25 29 3a ef 32 33 2c  |d%),my%(g%):.23,|
000040c0  32 37 3b 6d 25 28 31 2c  67 25 29 7c 3a f0 26 45  |27;m%(1,g%)|:.&E|
000040d0  44 2c 6d 78 25 28 67 25  2c 48 61 6e 64 25 29 2c  |D,mx%(g%,Hand%),|
000040e0  6d 79 25 28 67 25 29 0d  1c 84 05 e1 0d 1c 8e 07  |my%(g%).........|
000040f0  f4 20 15 0d 1c 98 0d dd  f2 70 75 74 62 61 63 6b  |. .......putback|
00004100  0d 1c a2 0d e7 ac 67 72  65 65 6e 25 8c 0d 1c ac  |......green%....|
00004110  1f e7 94 78 31 25 3c 38  30 78 31 25 3d 28 38 30  |...x1%<80x1%=(80|
00004120  2b b3 28 33 30 29 29 2a  b4 78 31 25 0d 1c b6 1f  |+.(30))*.x1%....|
00004130  e7 94 79 31 25 3c 38 30  79 31 25 3d 28 38 30 2b  |..y1%<80y1%=(80+|
00004140  b3 28 33 30 29 29 2a b4  79 31 25 0d 1c c0 05 cd  |.(30))*.y1%.....|
00004150  0d 1c ca 25 63 75 72 72  65 6e 74 52 25 28 31 29  |...%currentR%(1)|
00004160  3d a4 64 69 73 74 61 6e  63 65 28 94 78 31 25 2c  |=.distance(.x1%,|
00004170  94 79 31 25 29 0d 1c d4  14 63 75 72 72 65 6e 74  |.y1%)....current|
00004180  78 25 28 31 29 3d 78 31  25 0d 1c de 14 63 75 72  |x%(1)=x1%....cur|
00004190  72 65 6e 74 79 25 28 31  29 3d 79 31 25 0d 1c e8  |renty%(1)=y1%...|
000041a0  18 63 75 72 72 65 6e 74  53 25 28 31 29 3d 73 74  |.currentS%(1)=st|
000041b0  72 6f 6b 65 25 0d 1c f2  05 e1 0d 1c fc 07 f4 20  |roke%.......... |
000041c0  15 0d 1d 06 0d dd f2 73  77 61 70 61 6c 6c 0d 1d  |.......swapall..|
000041d0  10 24 c8 94 20 63 75 72  72 65 6e 74 52 25 28 49  |.$.. currentR%(I|
000041e0  25 29 2c 63 75 72 72 65  6e 74 52 25 28 49 25 2d  |%),currentR%(I%-|
000041f0  31 29 0d 1d 1a 24 c8 94  20 63 75 72 72 65 6e 74  |1)...$.. current|
00004200  78 25 28 49 25 29 2c 63  75 72 72 65 6e 74 78 25  |x%(I%),currentx%|
00004210  28 49 25 2d 31 29 0d 1d  24 24 c8 94 20 63 75 72  |(I%-1)..$$.. cur|
00004220  72 65 6e 74 79 25 28 49  25 29 2c 63 75 72 72 65  |renty%(I%),curre|
00004230  6e 74 79 25 28 49 25 2d  31 29 0d 1d 2e 24 c8 94  |nty%(I%-1)...$..|
00004240  20 63 75 72 72 65 6e 74  73 25 28 49 25 29 2c 63  | currents%(I%),c|
00004250  75 72 72 65 6e 74 73 25  28 49 25 2d 31 29 0d 1d  |urrents%(I%-1)..|
00004260  38 24 c8 94 20 63 75 72  72 65 6e 74 53 25 28 49  |8$.. currentS%(I|
00004270  25 29 2c 63 75 72 72 65  6e 74 53 25 28 49 25 2d  |%),currentS%(I%-|
00004280  31 29 0d 1d 42 24 c8 94  20 74 6f 74 73 63 6f 72  |1)..B$.. totscor|
00004290  65 25 28 49 25 29 2c 74  6f 74 73 63 6f 72 65 25  |e%(I%),totscore%|
000042a0  28 49 25 2d 31 29 0d 1d  4c 20 c8 94 20 6f 6c 64  |(I%-1)..L .. old|
000042b0  70 6f 73 25 28 49 25 29  2c 6f 6c 64 70 6f 73 25  |pos%(I%),oldpos%|
000042c0  28 49 25 2d 31 29 0d 1d  56 1c c8 94 20 6e 61 6d  |(I%-1)..V... nam|
000042d0  65 24 28 49 25 29 2c 6e  61 6d 65 24 28 49 25 2d  |e$(I%),name$(I%-|
000042e0  31 29 0d 1d 60 1a c8 94  20 68 73 70 25 28 49 25  |1)..`... hsp%(I%|
000042f0  29 2c 68 73 70 25 28 49  25 2d 31 29 0d 1d 6a 1c  |),hsp%(I%-1)..j.|
00004300  c8 94 20 68 61 6e 64 25  28 49 25 29 2c 68 61 6e  |.. hand%(I%),han|
00004310  64 25 28 49 25 2d 31 29  0d 1d 74 1c c8 94 20 6a  |d%(I%-1)..t... j|
00004320  75 6d 70 25 28 49 25 29  2c 6a 75 6d 70 25 28 49  |ump%(I%),jump%(I|
00004330  25 2d 31 29 0d 1d 7e 05  e1 0d 1d 88 07 f4 20 15  |%-1)..~....... .|
00004340  0d 1d 92 0d dd f2 77 69  6e 73 6f 72 74 0d 1d 9c  |......winsort...|
00004350  0a ea 54 25 2c 49 25 0d  1d a6 14 e7 6e 6f 6f 66  |..T%,I%.....noof|
00004360  70 6c 61 79 65 72 73 3c  3e 31 8c 0d 1d b0 27 e3  |players<>1....'.|
00004370  54 25 3d 31 b8 6e 6f 6f  66 70 6c 61 79 65 72 73  |T%=1.noofplayers|
00004380  3a e3 49 25 3d 32 b8 6e  6f 6f 66 70 6c 61 79 65  |:.I%=2.noofplaye|
00004390  72 73 0d 1d ba 1f e7 6f  6c 64 70 6f 73 25 28 49  |rs.....oldpos%(I|
000043a0  25 29 3c 6f 6c 64 70 6f  73 25 28 49 25 2d 31 29  |%)<oldpos%(I%-1)|
000043b0  8c 0d 1d c4 0c f2 73 77  61 70 61 6c 6c 0d 1d ce  |......swapall...|
000043c0  05 cd 0d 1d d8 07 ed 3a  ed 0d 1d e2 27 e3 54 25  |.......:....'.T%|
000043d0  3d 31 b8 6e 6f 6f 66 70  6c 61 79 65 72 73 3a e3  |=1.noofplayers:.|
000043e0  49 25 3d 32 b8 6e 6f 6f  66 70 6c 61 79 65 72 73  |I%=2.noofplayers|
000043f0  0d 1d ec 23 e7 63 75 72  72 65 6e 74 53 25 28 49  |...#.currentS%(I|
00004400  25 29 3c 63 75 72 72 65  6e 74 53 25 28 49 25 2d  |%)<currentS%(I%-|
00004410  31 29 8c 0d 1d f6 0c f2  73 77 61 70 61 6c 6c 0d  |1)......swapall.|
00004420  1e 00 05 cd 0d 1e 0a 07  ed 3a ed 0d 1e 14 05 cd  |.........:......|
00004430  0d 1e 1e 05 e1 0d 1e 28  07 f4 20 15 0d 1e 32 0f  |.......(.. ...2.|
00004440  dd f2 73 65 74 70 6c 61  79 65 72 0d 1e 3c 07 ea  |..setplayer..<..|
00004450  54 25 0d 1e 46 15 e3 54  25 3d 31 b8 6e 6f 6f 66  |T%..F..T%=1.noof|
00004460  70 6c 61 79 65 72 73 0d  1e 50 12 6f 6c 64 70 6f  |players..P.oldpo|
00004470  73 25 28 54 25 29 3d 54  25 0d 1e 5a 05 ed 0d 1e  |s%(T%)=T%..Z....|
00004480  64 05 e1 0d 1e 6e 07 f4  20 15 0d 1e 78 11 dd f2  |d....n.. ...x...|
00004490  77 68 69 63 68 70 6c 61  79 65 72 0d 1e 82 0a ea  |whichplayer.....|
000044a0  54 25 2c 49 25 0d 1e 8c  14 e7 6e 6f 6f 66 70 6c  |T%,I%.....noofpl|
000044b0  61 79 65 72 73 3c 3e 31  8c 0d 1e 96 15 e3 54 25  |ayers<>1......T%|
000044c0  3d 31 b8 6e 6f 6f 66 70  6c 61 79 65 72 73 0d 1e  |=1.noofplayers..|
000044d0  a0 15 e3 49 25 3d 32 b8  6e 6f 6f 66 70 6c 61 79  |...I%=2.noofplay|
000044e0  65 72 73 0d 1e aa 23 e7  63 75 72 72 65 6e 74 52  |ers...#.currentR|
000044f0  25 28 49 25 29 3e 63 75  72 72 65 6e 74 52 25 28  |%(I%)>currentR%(|
00004500  49 25 2d 31 29 8c 0d 1e  b4 0c f2 73 77 61 70 61  |I%-1)......swapa|
00004510  6c 6c 0d 1e be 05 cd 0d  1e c8 07 ed 3a ed 0d 1e  |ll..........:...|
00004520  d2 05 cd 0d 1e dc 18 73  74 72 6f 6b 65 25 3d 63  |.......stroke%=c|
00004530  75 72 72 65 6e 74 53 25  28 31 29 0d 1e e6 17 73  |urrentS%(1)....s|
00004540  6b 69 6c 6c 25 3d 63 75  72 72 65 6e 74 73 25 28  |kill%=currents%(|
00004550  31 29 0d 1e f0 23 e7 63  75 72 72 65 6e 74 78 25  |1)...#.currentx%|
00004560  28 31 29 3d 30 80 63 75  72 72 65 6e 74 79 25 28  |(1)=0.currenty%(|
00004570  31 29 3d 30 8c 0d 1e fa  1c 72 6f 75 6e 64 25 3d  |1)=0.....round%=|
00004580  b9 3a 6d 61 70 70 6f 69  6e 74 25 2b 3d 26 33 30  |.:mappoint%+=&30|
00004590  30 0d 1f 04 05 cd 0d 1f  0e 15 e7 68 61 6e 64 25  |0..........hand%|
000045a0  28 31 29 3c 3e 48 61 6e  64 25 8c 0d 1f 18 12 48  |(1)<>Hand%.....H|
000045b0  61 6e 64 25 3d 68 61 6e  64 25 28 31 29 0d 1f 22  |and%=hand%(1).."|
000045c0  21 e3 54 25 3d 31 b8 31  31 3a ff 28 22 53 46 6c  |!.T%=1.11:.("SFl|
000045d0  69 70 59 20 22 2b c3 28  54 25 29 29 3a ed 0d 1f  |ipY "+.(T%)):...|
000045e0  2c 22 e3 54 25 3d 33 31  b8 33 38 3a ff 28 22 53  |,".T%=31.38:.("S|
000045f0  46 6c 69 70 59 20 22 2b  c3 28 54 25 29 29 3a ed  |FlipY "+.(T%)):.|
00004600  0d 1f 36 0e 2a 53 46 6c  69 70 59 20 32 30 0d 1f  |..6.*SFlipY 20..|
00004610  40 05 cd 0d 1f 4a 05 e1  0d 1f 54 07 f4 20 15 0d  |@....J....T.. ..|
00004620  1f 5e 11 dd f2 67 65 74  70 6c 61 79 76 61 6c 73  |.^...getplayvals|
00004630  0d 1f 68 24 58 25 3d 63  75 72 72 65 6e 74 78 25  |..h$X%=currentx%|
00004640  28 31 29 3a 59 59 25 3d  63 75 72 72 65 6e 74 79  |(1):YY%=currenty|
00004650  25 28 31 29 0d 1f 72 05  e1 0d 1f 7c 07 f4 20 15  |%(1)..r....|.. .|
00004660  0d 1f 86 0b dd f2 6c 69  67 68 74 0d 1f 90 0a 59  |......light....Y|
00004670  25 3d 59 59 25 0d 1f 9a  16 e7 59 25 3e 30 80 58  |%=YY%.....Y%>0.X|
00004680  25 3e 30 21 70 78 25 3d  6c 69 25 0d 1f a4 1d e7  |%>0!px%=li%.....|
00004690  59 25 3e 30 80 58 25 3c  3d 30 21 70 78 25 3d 28  |Y%>0.X%<=0!px%=(|
000046a0  6c 69 25 2b 31 29 80 33  0d 1f ae 1e e7 59 25 3c  |li%+1).3.....Y%<|
000046b0  3d 30 80 58 25 3c 3d 30  21 70 78 25 3d 28 6c 69  |=0.X%<=0!px%=(li|
000046c0  25 2b 32 29 80 33 0d 1f  b8 1d e7 59 25 3c 3d 30  |%+2).3.....Y%<=0|
000046d0  80 58 25 3e 30 21 70 78  25 3d 28 6c 69 25 2b 33  |.X%>0!px%=(li%+3|
000046e0  29 80 33 0d 1f c2 05 e1  0d 1f cc 07 f4 20 15 0d  |).3.......... ..|
000046f0  1f d6 10 dd f2 64 72 61  77 73 63 72 65 65 6e 0d  |.....drawscreen.|
00004700  1f e0 1a 50 25 3d 6d 61  70 70 6f 69 6e 74 25 3a  |...P%=mappoint%:|
00004710  41 41 25 3d a4 6d 61 70  31 0d 1f ea 1b f2 63 61  |AA%=.map1.....ca|
00004720  6c 74 72 65 28 78 25 28  29 2c 79 25 28 29 2c 7a  |ltre(x%(),y%(),z|
00004730  25 28 29 29 0d 1f f4 35  d6 73 6f 72 74 2c 62 73  |%())...5.sort,bs|
00004740  25 2c 52 25 2c 42 59 25  2c 4b 25 2c 78 31 25 2c  |%,R%,BY%,K%,x1%,|
00004750  79 31 25 2c 68 25 2c 41  41 25 2c 78 25 28 29 2c  |y1%,h%,AA%,x%(),|
00004760  7a 25 28 29 2c 79 25 28  29 0d 1f fe 13 f2 77 69  |z%(),y%().....wi|
00004770  6e 64 6f 77 73 3a f2 73  63 65 65 6e 0d 20 08 05  |ndows:.sceen. ..|
00004780  e1 0d 20 12 07 f4 20 15  0d 20 1c 11 dd f2 73 69  |.. ... .. ....si|
00004790  6e 65 28 58 25 2c 59 25  29 0d 20 26 19 52 25 3d  |ne(X%,Y%). &.R%=|
000047a0  a4 64 69 73 74 61 6e 63  65 28 94 58 25 2c 94 59  |.distance(.X%,.Y|
000047b0  25 29 0d 20 30 25 67 72  65 65 6e 25 3d 28 52 25  |%). 0%green%=(R%|
000047c0  3c 35 32 35 29 3a 4d 61  3d 2e 37 2d 28 67 72 65  |<525):Ma=.7-(gre|
000047d0  65 6e 25 2a 2e 33 29 0d  20 3a 31 4f 4c 25 3d 28  |en%*.3). :1OL%=(|
000047e0  bb 28 c3 7e 28 28 6d 61  70 21 28 6d 61 70 70 6f  |.(.~((map!(mappo|
000047f0  69 6e 74 25 2b 26 32 46  41 29 29 80 26 46 46 46  |int%+&2FA)).&FFF|
00004800  46 29 29 29 3e 34 34 30  0d 20 44 2a 72 3d 31 32  |F)))>440. D*r=12|
00004810  30 39 36 2d 32 30 30 30  2a 67 72 65 65 6e 25 2d  |096-2000*green%-|
00004820  31 35 30 30 2a 28 4f 4c  25 80 ac 67 72 65 65 6e  |1500*(OL%..green|
00004830  25 29 0d 20 4e 0a 64 3d  72 2d 52 25 0d 20 58 28  |%). N.d=r-R%. X(|
00004840  67 25 3d 2d 67 72 65 65  6e 25 3a 4f 25 3d 2d 36  |g%=-green%:O%=-6|
00004850  32 39 32 2a 67 72 65 65  6e 25 3a 48 25 3d 32 35  |292*green%:H%=25|
00004860  30 2b 4f 25 0d 20 62 1d  76 61 3d 2d 58 25 2f 52  |0+O%. b.va=-X%/R|
00004870  25 3a 76 62 3d 59 25 2f  52 25 3a 76 69 3d 2d 76  |%:vb=Y%/R%:vi=-v|
00004880  62 0d 20 6c 05 e1 0d 20  76 07 f4 20 15 0d 20 80  |b. l... v.. .. .|
00004890  15 dd a4 64 69 73 74 61  6e 63 65 28 78 25 2c 79  |...distance(x%,y|
000048a0  25 29 0d 20 8a 11 3d b6  28 78 25 5e 32 2b 79 25  |%). ..=.(x%^2+y%|
000048b0  5e 32 29 0d 20 94 07 f4  20 15 0d 20 9e 0e dd f2  |^2). ... .. ....|
000048c0  67 65 74 73 74 61 72 74  0d 20 a8 1e 50 25 3d 26  |getstart. ..P%=&|
000048d0  32 45 38 2b 6d 61 70 70  6f 69 6e 74 25 3a 58 25  |2E8+mappoint%:X%|
000048e0  3d a4 6d 61 70 32 0d 20  b2 0d 59 59 25 3d a4 6d  |=.map2. ..YY%=.m|
000048f0  61 70 32 0d 20 bc 1e 48  6f 6c 65 25 3d 6d 61 70  |ap2. ..Hole%=map|
00004900  3f 28 6d 61 70 70 6f 69  6e 74 25 2b 26 32 46 38  |?(mappoint%+&2F8|
00004910  29 0d 20 c6 14 73 74 78  25 3d 58 25 3a 73 74 79  |). ..stx%=X%:sty|
00004920  25 3d 59 59 25 0d 20 d0  13 f4 59 59 25 3d 31 35  |%=YY%. ...YY%=15|
00004930  2a 32 31 3a 58 25 3d 30  0d 20 da 15 e3 54 25 3d  |*21:X%=0. ...T%=|
00004940  31 b8 6e 6f 6f 66 70 6c  61 79 65 72 73 0d 20 e4  |1.noofplayers. .|
00004950  14 63 75 72 72 65 6e 74  78 25 28 54 25 29 3d 58  |.currentx%(T%)=X|
00004960  25 0d 20 ee 15 63 75 72  72 65 6e 74 79 25 28 54  |%. ..currenty%(T|
00004970  25 29 3d 59 59 25 0d 20  f8 23 63 75 72 72 65 6e  |%)=YY%. .#curren|
00004980  74 52 25 28 54 25 29 3d  a4 64 69 73 74 61 6e 63  |tR%(T%)=.distanc|
00004990  65 28 58 25 2c 59 59 25  29 0d 21 02 13 63 75 72  |e(X%,YY%).!..cur|
000049a0  72 65 6e 74 53 25 28 54  25 29 3d 30 0d 21 0c 05  |rentS%(T%)=0.!..|
000049b0  ed 0d 21 16 05 e1 0d 21  20 07 f4 20 15 0d 21 2a  |..!....! .. ..!*|
000049c0  0c dd f2 63 68 68 6f 6c  65 0d 21 34 09 42 25 2d  |...chhole.!4.B%-|
000049d0  3d 31 0d 21 3e 21 e7 28  42 25 3e 30 80 28 79 61  |=1.!>!.(B%>0.(ya|
000049e0  3e 34 84 ac 67 72 65 65  6e 25 29 29 84 68 25 3e  |>4..green%)).h%>|
000049f0  33 30 e1 0d 21 48 34 e7  68 25 3e 31 84 94 28 4f  |30..!H4.h%>1..(O|
00004a00  42 59 25 2d 42 59 25 29  3e 35 84 28 ac 67 72 65  |BY%-BY%)>5.(.gre|
00004a10  65 6e 25 80 b3 28 35 29  3c 3e 32 29 f2 72 69 63  |en%..(5)<>2).ric|
00004a20  3a 42 25 3d 34 3a e1 0d  21 52 0d dd f2 63 68 68  |:B%=4:..!R...chh|
00004a30  6f 6c 65 32 0d 21 5c 14  44 25 3d b9 3a 2a 53 43  |ole2.!\.D%=.:*SC|
00004a40  48 4f 4f 53 45 20 73 68  0d 21 66 12 f0 26 45 44  |HOOSE sh.!f..&ED|
00004a50  2c 6f 73 78 25 2c 6f 73  79 25 0d 21 70 0f 2a 53  |,osx%,osy%.!p.*S|
00004a60  43 48 4f 4f 53 45 20 67  72 0d 21 7a 10 f0 26 45  |CHOOSE gr.!z..&E|
00004a70  44 2c 6f 78 25 2c 6f 79  25 0d 21 84 19 2a 43 48  |D,ox%,oy%.!..*CH|
00004a80  41 4e 4e 45 4c 56 4f 49  43 45 20 31 20 48 4f 4c  |ANNELVOICE 1 HOL|
00004a90  45 44 0d 21 8e 10 d4 31  2c 2d 31 35 2c 32 30 2c  |ED.!...1,-15,20,|
00004aa0  32 30 0d 21 98 0d f2 64  65 6c 28 31 35 30 29 0d  |20.!...del(150).|
00004ab0  21 a2 0d f2 68 6f 6c 65  64 6f 75 74 0d 21 ac 27  |!...holedout.!.'|
00004ac0  79 61 3d 30 3a 75 3d 30  3a 75 64 3d 30 3a 70 25  |ya=0:u=0:ud=0:p%|
00004ad0  3d 30 3a 68 25 3d 30 3a  78 31 25 3d 30 3a 79 31  |=0:h%=0:x1%=0:y1|
00004ae0  25 3d 30 0d 21 b6 05 e1  0d 21 c0 07 f4 20 15 0d  |%=0.!....!... ..|
00004af0  21 ca 0e dd f2 68 6f 6c  65 64 6f 75 74 0d 21 d4  |!....holedout.!.|
00004b00  13 ea 41 24 2c 42 24 2c  43 24 2c 46 25 2c 53 25  |..A$,B$,C$,F%,S%|
00004b10  0d 21 de 23 53 25 3d 73  74 72 6f 6b 65 25 2d 6d  |.!.#S%=stroke%-m|
00004b20  61 70 3f 28 6d 61 70 70  6f 69 6e 74 25 2b 26 32  |ap?(mappoint%+&2|
00004b30  46 39 29 0d 21 e8 09 c8  8e 53 25 ca 0d 21 f2 1e  |F9).!....S%..!..|
00004b40  c9 31 3a 41 24 3d 22 49  54 27 53 20 41 20 42 4f  |.1:A$="IT'S A BO|
00004b50  47 49 45 22 3a 42 24 3d  22 22 0d 21 fc 2c c9 30  |GIE":B$="".!.,.0|
00004b60  3a 41 24 3d 22 48 4f 4c  45 44 20 4f 55 54 20 54  |:A$="HOLED OUT T|
00004b70  4f 20 50 41 52 22 3a 42  24 3d 22 57 45 4c 4c 20  |O PAR":B$="WELL |
00004b80  44 4f 4e 45 21 22 0d 22  06 32 c9 2d 31 3a 41 24  |DONE!".".2.-1:A$|
00004b90  3d 22 4e 49 43 45 20 4f  4e 45 20 22 2b 6e 61 6d  |="NICE ONE "+nam|
00004ba0  65 24 28 31 29 3a 42 24  3d 22 49 54 27 53 20 41  |e$(1):B$="IT'S A|
00004bb0  20 42 49 52 44 49 45 22  0d 22 10 35 c9 2d 32 3a  | BIRDIE".".5.-2:|
00004bc0  41 24 3d 22 53 55 50 45  52 42 20 50 4c 41 59 20  |A$="SUPERB PLAY |
00004bd0  22 2b 6e 61 6d 65 24 28  31 29 3a 42 24 3d 22 49  |"+name$(1):B$="I|
00004be0  54 27 53 20 41 4e 20 45  41 47 4c 45 22 0d 22 1a  |T'S AN EAGLE".".|
00004bf0  45 c9 2d 33 3a 41 24 3d  22 43 4f 4e 47 52 41 54  |E.-3:A$="CONGRAT|
00004c00  55 4c 41 54 49 4f 4e 53  20 22 2b 6e 61 6d 65 24  |ULATIONS "+name$|
00004c10  28 31 29 3a 42 24 3d 22  59 4f 55 27 56 45 20 46  |(1):B$="YOU'VE F|
00004c20  4c 4f 57 4e 20 41 4e 20  41 4c 42 41 54 52 4f 53  |LOWN AN ALBATROS|
00004c30  53 22 0d 22 24 2b 7f 20  41 24 3d 22 48 4f 4c 45  |S"."$+. A$="HOLE|
00004c40  44 20 4f 55 54 20 22 2b  c3 53 25 2b 22 20 4f 56  |D OUT "+.S%+" OV|
00004c50  45 52 20 50 41 52 22 3a  42 24 3d 22 22 0d 22 2e  |ER PAR":B$="".".|
00004c60  05 cb 0d 22 38 63 43 24  3d 22 22 3a 46 25 3d 33  |..."8cC$="":F%=3|
00004c70  3a 53 25 3d 35 3a e7 73  74 72 6f 6b 65 25 3d 31  |:S%=5:.stroke%=1|
00004c80  41 24 3d 22 57 4f 57 21  20 49 54 27 53 20 41 20  |A$="WOW! IT'S A |
00004c90  48 4f 4c 45 20 49 4e 20  4f 4e 45 22 3a 42 24 3d  |HOLE IN ONE":B$=|
00004ca0  22 4b 4e 4f 43 4b 45 44  20 49 4e 20 42 59 22 3a  |"KNOCKED IN BY":|
00004cb0  43 24 3d 6e 61 6d 65 24  28 31 29 3a 46 25 3d 36  |C$=name$(1):F%=6|
00004cc0  3a 53 25 3d 33 0d 22 42  26 e7 20 a9 41 24 3c a9  |:S%=3."B&. .A$<.|
00004cd0  42 24 f5 3a 41 24 3d 22  20 22 2b 41 24 2b 22 20  |B$.:A$=" "+A$+" |
00004ce0  22 3a fd a9 41 24 3e 3d  a9 42 24 0d 22 4c 1c f2  |":..A$>=.B$."L..|
00004cf0  6d 65 73 77 69 6e 64 28  41 24 2c 42 24 2c 43 24  |meswind(A$,B$,C$|
00004d00  2c 46 25 2c 53 25 29 0d  22 56 0c f2 64 65 6c 28  |,F%,S%)."V..del(|
00004d10  35 30 29 0d 22 60 05 e1  0d 22 6a 07 f4 20 15 0d  |50)."`..."j.. ..|
00004d20  22 74 09 dd f2 72 69 63  0d 22 7e 0f d4 34 2c 2d  |"t...ric."~..4,-|
00004d30  31 35 2c 32 30 2c 31 0d  22 88 0a dd f2 32 72 69  |15,20,1."....2ri|
00004d40  63 0d 22 92 1d 75 3d 75  2a 34 3a e7 75 3d 30 75  |c."..u=u*4:.u=0u|
00004d50  3d 28 33 2b b3 28 35 29  29 2a b4 78 31 25 0d 22  |=(3+.(5))*.x1%."|
00004d60  9c 15 79 61 3d 79 61 20  81 32 3a 70 25 3d 79 61  |..ya=ya .2:p%=ya|
00004d70  20 81 33 0d 22 a6 1b e7  ac 67 72 65 65 6e 25 80  | .3."....green%.|
00004d80  79 61 3d 30 20 68 25 3d  30 3a 70 25 3d 30 0d 22  |ya=0 h%=0:p%=0."|
00004d90  b0 05 e1 0d 22 ba 07 f4  20 15 0d 22 c4 0c dd f2  |...."... .."....|
00004da0  66 6c 69 67 68 74 0d 22  ce 0c 4f 42 59 25 3d 42  |flight."..OBY%=B|
00004db0  59 25 0d 22 d8 5b f5 f2  66 6c 79 3a ef 32 33 2c  |Y%.".[..fly:.23,|
00004dc0  32 37 3b 6d 25 28 38 2c  67 25 29 7c 3a f0 26 45  |27;m%(8,g%)|:.&E|
00004dd0  44 2c 6d 78 25 28 67 25  2c 48 61 6e 64 25 29 2c  |D,mx%(g%,Hand%),|
00004de0  6d 79 25 28 67 25 29 3a  e7 62 61 25 3a ef 32 33  |my%(g%):.ba%:.23|
00004df0  2c 32 37 3b 32 30 7c 3a  f0 26 45 44 2c 62 61 67  |,27;20|:.&ED,bag|
00004e00  25 28 48 61 6e 64 25 29  2c 2d 37 35 34 0d 22 e2  |%(Hand%),-754.".|
00004e10  41 e7 67 72 65 65 6e 25  80 68 25 3d 30 c8 99 36  |A.green%.h%=0..6|
00004e20  2c 31 31 32 2c 32 3a 47  25 3d b0 73 78 25 2b 34  |,112,2:G%=.sx%+4|
00004e30  2c 73 79 25 2b 34 29 3a  c8 99 36 2c 31 31 32 2c  |,sy%+4):..6,112,|
00004e40  31 3a e7 47 25 3d 30 f2  63 68 68 6f 6c 65 0d 22  |1:.G%=0.chhole."|
00004e50  ec 30 4f 42 59 25 3d 42  59 25 3a e7 ac 67 72 65  |.0OBY%=BY%:..gre|
00004e60  65 6e 25 80 94 28 78 31  25 2b 34 29 3c 35 80 94  |en%..(x1%+4)<5..|
00004e70  28 79 31 25 29 3c 35 f2  63 68 68 6f 6c 65 0d 22  |(y1%)<5.chhole."|
00004e80  f6 17 e7 94 73 6c 3e 79  61 20 73 6c 3d 79 61 2f  |....sl>ya sl=ya/|
00004e90  32 2a b4 73 6c 0d 23 00  10 77 63 2d 3d 31 3a e7  |2*.sl.#..wc-=1:.|
00004ea0  77 63 3d 30 8c 0d 23 0a  17 77 63 3d 77 63 32 3a  |wc=0..#..wc=wc2:|
00004eb0  e7 77 63 32 3e 31 77 63  32 2d 3d 31 0d 23 14 11  |.wc2>1wc2-=1.#..|
00004ec0  57 58 2b 3d 77 78 3a 57  59 2b 3d 77 79 0d 23 1e  |WX+=wx:WY+=wy.#.|
00004ed0  05 cd 0d 23 28 15 fd 79  61 3c 3d 30 80 68 25 3d  |...#(..ya<=0.h%=|
00004ee0  30 80 94 70 25 3c 32 0d  23 32 12 59 59 25 3d 79  |0..p%<2.#2.YY%=y|
00004ef0  31 25 3a 58 25 3d 78 31  25 0d 23 3c 10 e7 44 25  |1%:X%=x1%.#<..D%|
00004f00  84 ac 67 72 65 65 6e 25  e1 0d 23 46 0c 2a 46 58  |..green%..#F.*FX|
00004f10  31 31 32 2c 32 0d 23 50  10 47 25 3d b0 73 78 25  |112,2.#P.G%=.sx%|
00004f20  2c 73 79 25 29 0d 23 5a  13 47 31 25 3d b0 73 78  |,sy%).#Z.G1%=.sx|
00004f30  25 2c 73 79 25 2b 38 29  0d 23 64 0c 2a 46 58 31  |%,sy%+8).#d.*FX1|
00004f40  31 32 2c 31 0d 23 6e 17  e7 28 47 25 80 47 31 25  |12,1.#n..(G%.G1%|
00004f50  29 3d 30 f2 63 68 68 6f  6c 65 32 0d 23 78 05 e1  |)=0.chhole2.#x..|
00004f60  0d 23 82 07 f4 20 15 0d  23 8c 09 dd f2 66 6c 79  |.#... ..#....fly|
00004f70  0d 23 96 11 e7 68 25 3c  34 80 79 61 3c 31 36 c8  |.#...h%<4.ya<16.|
00004f80  96 0d 23 a0 2d c8 96 3a  42 58 2b 3d 75 2a 79 64  |..#.-..:BX+=u*yd|
00004f90  2b 53 6c 3a 53 6c 2b 3d  73 6c 3a 75 2d 3d 75 64  |+Sl:Sl+=sl:u-=ud|
00004fa0  3a e7 94 75 3e 79 61 20  75 3d 75 3e 3e 31 0d 23  |:..u>ya u=u>>1.#|
00004fb0  aa 21 42 59 25 2b 3d 79  61 2a 79 64 3a e7 79 61  |.!BY%+=ya*yd:.ya|
00004fc0  3e 30 20 79 61 2d 3d 2e  35 3a 8b 79 61 3d 30 0d  |>0 ya-=.5:.ya=0.|
00004fd0  23 b4 46 78 31 25 3d 76  61 2a 42 59 25 2b 76 62  |#.Fx1%=va*BY%+vb|
00004fe0  2a 42 58 2b 57 58 3a 79  31 25 3d 76 69 2a 42 59  |*BX+WX:y1%=vi*BY|
00004ff0  25 2b 76 61 2a 42 58 2b  57 59 3a 68 25 2b 3d 70  |%+va*BX+WY:h%+=p|
00005000  25 2a 4d 61 3a 70 25 2d  3d 31 3a e7 70 25 3c 31  |%*Ma:p%-=1:.p%<1|
00005010  30 46 25 3d b9 0d 23 be  12 e7 68 25 3c 3d 30 20  |0F%=..#...h%<=0 |
00005020  f2 62 6f 75 6e 63 65 0d  23 c8 36 f2 76 74 28 79  |.bounce.#.6.vt(y|
00005030  31 25 2c 78 31 25 2c 48  25 29 3a 73 78 25 3d 78  |1%,x1%,H%):sx%=x|
00005040  73 25 3a 73 79 25 3d 79  73 25 3a f2 76 74 28 79  |s%:sy%=ys%:.vt(y|
00005050  31 25 2c 78 31 25 2c 48  25 2d 68 25 29 0d 23 d2  |1%,x1%,H%-h%).#.|
00005060  2e e7 4b 25 3d b9 20 75  64 3d 30 3a 79 61 3d 30  |..K%=. ud=0:ya=0|
00005070  3a 70 25 3d 30 3a 75 3d  30 3a 4b 25 3d 31 3a d4  |:p%=0:u=0:K%=1:.|
00005080  33 2c 2d 31 30 2c 32 30  2c 34 30 0d 23 dc 37 e7  |3,-10,20,40.#.7.|
00005090  57 25 d6 20 70 6c 6f 74  62 61 6c 6c 2c 62 73 25  |W%. plotball,bs%|
000050a0  2c 6f 79 25 2c 6f 78 25  2c 6f 73 79 25 2c 6f 73  |,oy%,ox%,osy%,os|
000050b0  78 25 2c 79 73 25 2c 78  73 25 2c 73 79 25 2c 73  |x%,ys%,xs%,sy%,s|
000050c0  78 25 0d 23 e6 05 e1 0d  23 f0 07 f4 20 15 0d 23  |x%.#....#... ..#|
000050d0  fa 0c dd f2 77 61 6c 74  65 72 0d 24 04 1a 2a 43  |....walter.$..*C|
000050e0  48 41 4e 4e 45 4c 56 4f  49 43 45 20 31 20 53 48  |HANNELVOICE 1 SH|
000050f0  4f 4f 53 48 0d 24 0e 0a  ea 54 25 2c 49 25 0d 24  |OOSH.$...T%,I%.$|
00005100  18 2c 79 64 3d 31 2b 28  2e 37 35 2a 67 72 65 65  |.,yd=1+(.75*gree|
00005110  6e 25 29 3a e3 54 25 3d  31 b8 35 3a 2a 53 43 48  |n%):.T%=1.5:*SCH|
00005120  4f 4f 53 45 20 42 4c 41  43 4b 0d 24 22 5e c8 96  |OOSE BLACK.$"^..|
00005130  3a f0 26 45 44 2c 6d 78  25 28 67 25 2c 48 61 6e  |:.&ED,mx%(g%,Han|
00005140  64 25 29 2c 6d 79 25 28  67 25 29 3a ef 32 33 2c  |d%),my%(g%):.23,|
00005150  32 37 3b 6d 25 28 54 25  2c 67 25 29 7c 3a f0 26  |27;m%(T%,g%)|:.&|
00005160  45 44 2c 6d 78 25 28 67  25 2c 48 61 6e 64 25 29  |ED,mx%(g%,Hand%)|
00005170  2c 6d 79 25 28 67 25 29  3a e3 49 25 3d 30 b8 54  |,my%(g%):.I%=0.T|
00005180  25 3a c8 96 3a ed 3a ed  0d 24 2c 1c e3 54 25 3d  |%:..:.:..$,..T%=|
00005190  35 b8 31 88 b9 3a 2a 53  43 48 4f 4f 53 45 20 42  |5.1..:*SCHOOSE B|
000051a0  4c 41 43 4b 0d 24 36 1d  e7 54 25 3d 33 80 ac 67  |LACK.$6..T%=3..g|
000051b0  72 65 65 6e 25 d4 31 2c  53 4f 25 2c 34 30 2c 34  |reen%.1,SO%,40,4|
000051c0  30 0d 24 40 5b e3 49 25  3d 31 b8 54 25 3a c8 96  |0.$@[.I%=1.T%:..|
000051d0  3a ed 3a f0 26 45 44 2c  6d 78 25 28 67 25 2c 48  |:.:.&ED,mx%(g%,H|
000051e0  61 6e 64 25 29 2c 6d 79  25 28 67 25 29 3a ef 32  |and%),my%(g%):.2|
000051f0  33 2c 32 37 3b 6d 25 28  54 25 2c 67 25 29 7c 3a  |3,27;m%(T%,g%)|:|
00005200  f0 26 45 44 2c 6d 78 25  28 67 25 2c 48 61 6e 64  |.&ED,mx%(g%,Hand|
00005210  25 29 2c 6d 79 25 28 67  25 29 3a ed 0d 24 4a 0f  |%),my%(g%):..$J.|
00005220  d4 32 2c 53 4f 25 2c 31  2c 31 30 0d 24 54 19 e3  |.2,SO%,1,10.$T..|
00005230  54 25 3d 36 b8 38 3a e7  54 25 3e 36 f2 66 6c 79  |T%=6.8:.T%>6.fly|
00005240  3a 8b c8 96 0d 24 5e 12  2a 53 43 48 4f 4f 53 45  |:....$^.*SCHOOSE|
00005250  20 70 6c 61 69 6e 0d 24  68 2d e7 ac 67 72 65 65  | plain.$h-..gree|
00005260  6e 25 3a c8 96 3a f0 26  45 44 2c 6d 78 25 28 67  |n%:..:.&ED,mx%(g|
00005270  25 2c 48 61 6e 64 25 29  2c 6d 79 25 28 67 25 29  |%,Hand%),my%(g%)|
00005280  8b c8 96 0d 24 72 30 ef  32 33 2c 32 37 3b 6d 25  |....$r0.23,27;m%|
00005290  28 54 25 2c 67 25 29 7c  3a f0 26 45 44 2c 6d 78  |(T%,g%)|:.&ED,mx|
000052a0  25 28 67 25 2c 48 61 6e  64 25 29 2c 6d 79 25 28  |%(g%,Hand%),my%(|
000052b0  67 25 29 0d 24 7c 54 e7  6c 69 65 25 3d 31 3a e6  |g%).$|T.lie%=1:.|
000052c0  31 3a e3 49 25 3d 30 b8  32 30 3a c8 92 73 61 25  |1:.I%=0.20:..sa%|
000052d0  28 30 2c 54 25 2d 36 2c  49 25 29 2b 28 54 25 2b  |(0,T%-6,I%)+(T%+|
000052e0  31 30 29 2a 48 61 6e 64  25 2c 73 61 25 28 31 2c  |10)*Hand%,sa%(1,|
000052f0  54 25 2d 36 2c 49 25 29  2b 6d 79 25 28 67 25 29  |T%-6,I%)+my%(g%)|
00005300  3a ed 3a e6 38 2c 30 0d  24 86 05 ed 0d 24 90 0d  |:.:.8,0.$....$..|
00005310  f2 66 6c 79 3a f2 66 6c  79 0d 24 9a 12 2a 53 43  |.fly:.fly.$..*SC|
00005320  48 4f 4f 53 45 20 70 6c  61 69 6e 0d 24 a4 4d c8  |HOOSE plain.$.M.|
00005330  96 3a f0 26 45 44 2c 6d  78 25 28 67 25 2c 48 61  |.:.&ED,mx%(g%,Ha|
00005340  6e 64 25 29 2c 6d 79 25  28 67 25 29 3a ef 32 33  |nd%),my%(g%):.23|
00005350  2c 32 37 3b 6d 25 28 38  2c 67 25 29 7c 3a f0 26  |,27;m%(8,g%)|:.&|
00005360  45 44 2c 6d 78 25 28 67  25 2c 48 61 6e 64 25 29  |ED,mx%(g%,Hand%)|
00005370  2c 6d 79 25 28 67 25 29  0d 24 ae 05 e1 0d 24 b8  |,my%(g%).$....$.|
00005380  07 f4 20 15 0d 24 c2 0d  dd f2 64 65 6c 28 54 25  |.. ..$....del(T%|
00005390  29 0d 24 cc 0e d1 3d 30  3a f5 fd 91 3e 54 25 0d  |).$...=0:...>T%.|
000053a0  24 d6 05 e1 0d 24 e0 07  f4 20 15 0d 24 ea 0c dd  |$....$... ..$...|
000053b0  f2 62 75 6e 6b 65 72 0d  24 f4 16 e6 33 32 2c 30  |.bunker.$...32,0|
000053c0  3a 48 25 2b 3d 32 3a 50  25 3d 6f 50 25 0d 24 fe  |:H%+=2:P%=oP%.$.|
000053d0  0d f2 64 72 61 77 62 75  6e 6b 0d 25 08 13 e6 32  |..drawbunk.%...2|
000053e0  3a 48 25 2b 3d 32 3a 50  25 3d 6f 50 25 0d 25 12  |:H%+=2:P%=oP%.%.|
000053f0  0d f2 64 72 61 77 62 75  6e 6b 0d 25 1c 09 48 25  |..drawbunk.%..H%|
00005400  2d 3d 34 0d 25 26 05 e1  0d 25 30 07 f4 20 15 0d  |-=4.%&...%0.. ..|
00005410  25 3a 0e dd f2 64 72 61  77 62 75 6e 6b 0d 25 44  |%:...drawbunk.%D|
00005420  3c 6e 70 25 3d a4 6d 61  70 31 3a f2 6d 61 70 28  |<np%=.map1:.map(|
00005430  43 58 25 2c 43 59 25 2c  48 25 2c 34 2c 72 29 3a  |CX%,CY%,H%,4,r):|
00005440  f2 6d 61 70 33 28 53 58  25 2c 53 59 25 2c 48 25  |.map3(SX%,SY%,H%|
00005450  2c 34 2c 72 2c 43 58 25  29 0d 25 4e 35 e3 49 25  |,4,r,CX%).%N5.I%|
00005460  3d 31 b8 6e 70 25 2d 31  3a f2 6d 61 70 33 28 58  |=1.np%-1:.map3(X|
00005470  49 25 2c 59 49 25 2c 48  25 2c 38 35 2c 72 2c 43  |I%,YI%,H%,85,r,C|
00005480  58 25 29 3a ec 43 58 25  2c 43 59 25 3a ed 0d 25  |X%):.CX%,CY%:..%|
00005490  58 0f f0 38 35 2c 53 58  25 2c 53 59 25 0d 25 62  |X..85,SX%,SY%.%b|
000054a0  05 e1 0d 25 6c 07 f4 20  15 0d 25 76 21 dd f2 6d  |...%l.. ..%v!..m|
000054b0  61 70 33 28 f8 20 78 25  2c f8 20 79 25 2c 7a 25  |ap3(. x%,. y%,z%|
000054c0  2c 70 25 2c 72 2c 43 58  25 29 0d 25 80 08 ea 70  |,p%,r,CX%).%...p|
000054d0  4f 25 0d 25 8a 56 79 25  3d a4 6d 61 70 32 3a 78  |O%.%.Vy%=.map2:x|
000054e0  25 3d a4 6d 61 70 32 3a  78 65 3d 76 61 2a 78 25  |%=.map2:xe=va*x%|
000054f0  2b 76 62 2a 79 25 3a 7a  65 3d 28 76 69 2a 78 25  |+vb*y%:ze=(vi*x%|
00005500  2b 76 61 2a 79 25 2b 72  29 2a 4d 61 3a 78 25 3d  |+va*y%+r)*Ma:x%=|
00005510  64 2a 78 65 20 81 7a 65  3a 79 25 3d 2d 28 64 2a  |d*xe .ze:y%=-(d*|
00005520  7a 25 81 7a 65 29 2a 32  0d 25 94 29 e7 ac 67 72  |z%.ze)*2.%.)..gr|
00005530  65 65 6e 25 e7 79 25 3e  2d 33 32 84 79 25 3c 26  |een%.y%>-32.y%<&|
00005540  46 46 46 46 38 30 30 30  20 79 25 3d 2d 36 30 30  |FFFF8000 y%=-600|
00005550  30 0d 25 9e 15 78 25 3d  78 25 2d b4 28 78 25 2d  |0.%..x%=x%-.(x%-|
00005560  43 58 25 29 2a 34 0d 25  a8 0f 70 4f 25 3d b0 78  |CX%)*4.%..pO%=.x|
00005570  25 2c 79 25 29 0d 25 b2  0b c8 95 70 4f 25 3e 33  |%,y%).%....pO%>3|
00005580  0d 25 bc 15 79 25 2b 3d  34 3a 70 4f 25 3d b0 78  |.%..y%+=4:pO%=.x|
00005590  25 2c 79 25 29 0d 25 c6  05 ce 0d 25 d0 0d f0 70  |%,y%).%....%...p|
000055a0  25 2c 78 25 2c 79 25 0d  25 da 05 e1 0d 25 e4 07  |%,x%,y%.%....%..|
000055b0  f4 20 15 0d 25 ee 0b dd  f2 73 63 65 65 6e 0d 25  |. ..%....sceen.%|
000055c0  f8 0d 4e 6f 25 3d a4 6d  61 70 31 0d 26 02 0c 72  |..No%=.map1.&..r|
000055d0  6f 75 67 68 3d 50 25 0d  26 0c 0c e7 67 72 65 65  |ough=P%.&...gree|
000055e0  6e 25 8c 0d 26 16 0d 43  6f 25 3d a4 6d 61 70 31  |n%..&..Co%=.map1|
000055f0  0d 26 20 0f f5 3a 6e 70  25 3d a4 6d 61 70 31 0d  |.& ..:np%=.map1.|
00005600  26 2a 22 50 25 3d 50 25  2b 6e 70 25 2a 34 2b 34  |&*"P%=P%+np%*4+4|
00005610  3a 43 6f 25 3d a4 6d 61  70 31 3a 4e 6f 25 2d 3d  |:Co%=.map1:No%-=|
00005620  31 0d 26 34 16 fd 43 6f  25 3d 35 84 43 6f 25 3d  |1.&4..Co%=5.Co%=|
00005630  31 3a 50 25 2d 3d 31 0d  26 3e 05 cd 0d 26 48 2d  |1:P%-=1.&>...&H-|
00005640  73 50 25 3d 50 25 3a e3  54 25 3d 31 b8 4e 6f 25  |sP%=P%:.T%=1.No%|
00005650  3a 43 6f 25 3d a4 6d 61  70 31 3a e7 43 6f 25 3d  |:Co%=.map1:.Co%=|
00005660  36 77 61 74 65 72 3d 50  25 0d 26 52 12 e7 67 72  |6water=P%.&R..gr|
00005670  65 65 6e 25 80 43 6f 25  3d 34 8c 0d 26 5c 1b 6e  |een%.Co%=4..&\.n|
00005680  70 25 3d a4 6d 61 70 31  3a 50 25 3d 50 25 2b 6e  |p%=.map1:P%=P%+n|
00005690  70 25 2a 34 2b 34 0d 26  66 2a cc 3a 6f 50 25 3d  |p%*4+4.&f*.:oP%=|
000056a0  50 25 3a 43 6f 25 3d 43  6f 25 2d 28 28 43 6f 25  |P%:Co%=Co%-((Co%|
000056b0  3d 31 29 80 67 72 65 65  6e 25 29 3a e6 43 6f 25  |=1).green%):.Co%|
000056c0  0d 26 70 19 f2 64 72 61  77 69 74 3a e7 43 6f 25  |.&p..drawit:.Co%|
000056d0  3d 31 f2 62 75 6e 6b 65  72 0d 26 7a 10 cd 3a ed  |=1.bunker.&z..:.|
000056e0  3a e7 67 72 65 65 6e 25  8c 0d 26 84 08 e6 38 2c  |:.green%..&...8,|
000056f0  30 0d 26 8e 11 2a 53 43  48 4f 4f 53 45 20 48 4f  |0.&..*SCHOOSE HO|
00005700  4c 45 0d 26 98 1a f0 26  45 44 2c 2d 36 2c 2d 28  |LE.&...&ED,-6,-(|
00005710  64 2a 48 25 81 72 29 2a  32 2d 31 32 0d 26 a2 05  |d*H%.r)*2-12.&..|
00005720  cd 0d 26 ac 13 f2 74 72  65 65 73 3a 2a 46 58 31  |..&...trees:*FX1|
00005730  31 32 2c 32 0d 26 b6 15  e7 67 72 65 65 6e 25 fb  |12,2.&...green%.|
00005740  31 33 35 3a 8b fb 31 33  39 0d 26 c0 25 db 3a 50  |135:..139.&.%.:P|
00005750  25 3d 73 50 25 3a e3 54  25 3d 31 b8 4e 6f 25 3a  |%=sP%:.T%=1.No%:|
00005760  43 6f 25 3d a4 6d 61 70  31 3a e6 43 6f 25 0d 26  |Co%=.map1:.Co%.&|
00005770  ca 12 e7 67 72 65 65 6e  25 80 43 6f 25 3d 34 8c  |...green%.Co%=4.|
00005780  0d 26 d4 1b 6e 70 25 3d  a4 6d 61 70 31 3a 50 25  |.&..np%=.map1:P%|
00005790  3d 50 25 2b 6e 70 25 2a  34 2b 34 0d 26 de 13 cc  |=P%+np%*4+4.&...|
000057a0  6f 50 25 3d 50 25 3a f2  64 72 61 77 69 74 0d 26  |oP%=P%:.drawit.&|
000057b0  e8 05 cd 0d 26 f2 05 ed  0d 26 fc 0c e7 67 72 65  |....&....&...gre|
000057c0  65 6e 25 8c 0d 27 06 08  e6 38 2c 30 0d 27 10 16  |en%..'...8,0.'..|
000057d0  2a 53 43 48 4f 4f 53 45  20 42 4c 41 43 4b 48 4f  |*SCHOOSE BLACKHO|
000057e0  4c 45 0d 27 1a 1a f0 26  45 44 2c 2d 36 2c 2d 28  |LE.'...&ED,-6,-(|
000057f0  64 2a 48 25 81 72 29 2a  32 2d 31 32 0d 27 24 05  |d*H%.r)*2-12.'$.|
00005800  cd 0d 27 2e 0c 2a 46 58  31 31 32 2c 31 0d 27 38  |..'..*FX112,1.'8|
00005810  0f c8 8e 6a 75 6d 70 25  28 31 29 ca 0d 27 42 11  |...jump%(1)..'B.|
00005820  c9 31 3a fb 38 2c 32 30  38 2c 30 2c 30 0d 27 4c  |.1:.8,208,0,0.'L|
00005830  14 c9 32 3a fb 38 2c 31  34 34 2c 31 32 38 2c 38  |..2:.8,144,128,8|
00005840  30 0d 27 56 15 c9 33 3a  fb 38 2c 31 31 32 2c 31  |0.'V..3:.8,112,1|
00005850  31 32 2c 31 31 32 0d 27  60 13 c9 34 3a fb 38 2c  |12,112.'`..4:.8,|
00005860  32 34 30 2c 31 31 32 2c  30 0d 27 6a 12 c9 35 3a  |240,112,0.'j..5:|
00005870  fb 38 2c 39 36 2c 39 36  2c 34 38 0d 27 74 14 c9  |.8,96,96,48.'t..|
00005880  36 3a fb 38 2c 32 30 38  2c 38 30 2c 31 34 34 0d  |6:.8,208,80,144.|
00005890  27 7e 05 cb 0d 27 88 05  e1 0d 27 92 07 f4 20 15  |'~...'....'... .|
000058a0  0d 27 9c 0e dd f2 67 74  6f 73 28 59 25 29 0d 27  |.'....gtos(Y%).'|
000058b0  a6 2c ef 32 36 3a ec 30  2c 59 25 3a ec 31 32 37  |.,.26:.0,Y%:.127|
000058c0  39 2c 59 25 2b 33 31 39  3a 2a 53 47 45 54 20 74  |9,Y%+319:*SGET t|
000058d0  6f 70 6f 66 73 63 72 65  65 6e 0d 27 b0 05 e1 0d  |opofscreen.'....|
000058e0  27 ba 07 f4 20 15 0d 27  c4 0d dd f2 67 65 74 69  |'... ..'....geti|
000058f0  6e 66 6f 0d 27 ce 15 2a  43 48 41 4e 4e 45 4c 56  |nfo.'..*CHANNELV|
00005900  4f 49 43 45 20 31 20 31  0d 27 d8 15 ea 79 61 32  |OICE 1 1.'...ya2|
00005910  2c 42 58 25 2c 42 59 25  2c 79 73 74 25 0d 27 e2  |,BX%,BY%,yst%.'.|
00005920  0e f2 67 74 6f 73 28 37  30 34 29 0d 27 ec 0a c8  |..gtos(704).'...|
00005930  91 38 30 2c 30 0d 27 f6  18 ef 32 34 2c 30 3b 37  |.80,0.'...24,0;7|
00005940  30 34 3b 31 31 33 31 3b  31 30 32 33 3b 0d 28 00  |04;1131;1023;.(.|
00005950  0f e6 31 33 39 3a fb 31  33 39 3a da 0d 28 0a 16  |..139:.139:..(..|
00005960  e6 38 3a c8 93 30 2c 37  30 34 2c 34 31 32 2c 33  |.8:..0,704,412,3|
00005970  31 39 0d 28 14 15 c8 93  34 31 32 2c 37 30 34 2c  |19.(....412,704,|
00005980  32 32 38 2c 33 31 39 0d  28 1e 15 c8 93 36 34 30  |228,319.(....640|
00005990  2c 37 30 34 2c 34 39 31  2c 33 31 39 0d 28 28 16  |,704,491,319.((.|
000059a0  e6 33 3a c8 93 34 2c 37  30 38 2c 34 30 34 2c 33  |.3:..4,708,404,3|
000059b0  31 31 0d 28 32 15 c8 93  34 31 36 2c 37 30 38 2c  |11.(2...416,708,|
000059c0  32 32 30 2c 33 31 31 0d  28 3c 15 c8 93 36 34 34  |220,311.(<...644|
000059d0  2c 37 30 38 2c 34 38 33  2c 33 31 31 0d 28 46 16  |,708,483,311.(F.|
000059e0  e6 34 3a c8 93 38 2c 37  31 32 2c 33 39 36 2c 33  |.4:..8,712,396,3|
000059f0  30 33 0d 28 50 15 c8 93  34 32 30 2c 37 31 32 2c  |03.(P...420,712,|
00005a00  32 31 32 2c 33 30 33 0d  28 5a 15 c8 93 36 34 38  |212,303.(Z...648|
00005a10  2c 37 31 32 2c 34 37 35  2c 33 30 33 0d 28 64 16  |,712,475,303.(d.|
00005a20  87 3a ef 32 38 2c 36 2c  38 2c 37 34 2c 31 3a fb  |.:.28,6,8,74,1:.|
00005a30  31 32 0d 28 6e 36 f1 8a  34 31 2c 30 29 22 50 4c  |12.(n6..41,0)"PL|
00005a40  41 59 45 52 20 20 20 20  20 20 20 20 20 3a 20 22  |AYER         : "|
00005a50  3b 3a fb 38 3a f1 6e 61  6d 65 24 28 70 6c 61 79  |;:.8:.name$(play|
00005a60  65 72 25 29 3a fb 31 32  0d 28 78 25 f1 8a 34 31  |er%):.12.(x%..41|
00005a70  2c 31 29 22 50 4c 41 59  49 4e 47 20 41 54 20 20  |,1)"PLAYING AT  |
00005a80  20 20 20 3a 20 22 43 6f  75 72 73 65 24 0d 28 82  |   : "Course$.(.|
00005a90  24 f1 8a 34 31 2c 32 29  22 48 4f 4c 45 20 4e 55  |$..41,2)"HOLE NU|
00005aa0  4d 42 45 52 20 20 20 20  3a 20 22 3b 48 6f 6c 65  |MBER    : ";Hole|
00005ab0  25 0d 28 8c 34 f1 8a 34  31 2c 33 29 22 50 41 52  |%.(.4..41,3)"PAR|
00005ac0  20 20 20 20 20 20 20 20  20 20 20 20 3a 20 22 3b  |            : ";|
00005ad0  7e 6d 61 70 3f 28 6d 61  70 70 6f 69 6e 74 25 2b  |~map?(mappoint%+|
00005ae0  26 32 46 39 29 0d 28 96  45 f1 8a 34 31 2c 34 29  |&2F9).(.E..41,4)|
00005af0  22 4f 56 45 52 41 4c 4c  20 4c 45 4e 47 54 48 20  |"OVERALL LENGTH |
00005b00  3a 20 22 3b 7e 28 6d 61  70 21 28 6d 61 70 70 6f  |: ";~(map!(mappo|
00005b10  69 6e 74 25 2b 26 32 46  41 29 29 80 26 46 46 46  |int%+&2FA)).&FFF|
00005b20  46 3b 22 20 59 41 52 44  53 22 0d 28 a0 56 f1 8a  |F;" YARDS".(.V..|
00005b30  34 31 2c 35 29 22 52 41  4e 47 45 20 54 4f 20 48  |41,5)"RANGE TO H|
00005b40  4f 4c 45 20 20 3a 20 22  3b 3a fb 38 3a f1 3b 28  |OLE  : ";:.8:.;(|
00005b50  52 25 81 32 31 29 2a 28  31 2d 67 72 65 65 6e 25  |R%.21)*(1-green%|
00005b60  2a 32 29 3b 3a e7 67 72  65 65 6e 25 3a f1 22 20  |*2);:.green%:." |
00005b70  46 45 45 54 22 3a 8b f1  22 20 59 41 52 44 53 22  |FEET":.." YARDS"|
00005b80  0d 28 aa 2a fb 31 32 3a  f1 8a 34 31 2c 36 29 22  |.(.*.12:..41,6)"|
00005b90  53 54 52 4f 4b 45 53 20  50 4c 41 59 45 44 20 3a  |STROKES PLAYED :|
00005ba0  20 22 3b 73 74 72 6f 6b  65 25 0d 28 b4 0c f2 73  | ";stroke%.(...s|
00005bb0  68 6f 77 6c 69 65 0d 28  be 0c f2 73 65 74 77 69  |howlie.(...setwi|
00005bc0  6e 64 0d 28 c8 0d f2 73  68 6f 77 77 69 6e 64 0d  |nd.(...showwind.|
00005bd0  28 d2 05 f5 0d 28 dc 0a  c8 91 38 30 2c 30 0d 28  |(....(....80,0.(|
00005be0  e6 0c f2 67 65 74 63 6c  75 62 0d 28 f0 22 fb 31  |...getclub.(.".1|
00005bf0  32 3a f1 8a 32 29 22 44  49 52 45 43 54 49 4f 4e  |2:..2)"DIRECTION|
00005c00  20 54 48 45 4e 20 50 4f  57 45 52 22 0d 28 fa 1d  | THEN POWER".(..|
00005c10  fb 38 3a f1 8a 34 29 41  24 28 76 70 25 29 22 20  |.8:..4)A$(vp%)" |
00005c20  53 45 4c 45 43 54 45 44  22 0d 29 04 38 e6 38 3a  |SELECTED".).8.8:|
00005c30  c8 93 34 36 2c 37 37 36  2c 33 32 30 2c 31 32 38  |..46,776,320,128|
00005c40  3a c8 93 34 34 2c 37 37  36 2c 33 32 34 2c 31 32  |:..44,776,324,12|
00005c50  38 3a 86 34 38 2c 38 36  36 2c 33 36 34 2c 38 36  |8:.48,866,364,86|
00005c60  36 0d 29 0e 3f e6 36 3a  c8 93 c8 90 34 38 2c 38  |6.).?.6:....48,8|
00005c70  37 30 2c 33 31 36 2c 33  32 3a e6 31 32 3a ec 37  |70,316,32:.12:.7|
00005c80  38 2c 38 39 38 3a ef 35  3a f1 22 43 4c 55 42 20  |8,898:.5:."CLUB |
00005c90  50 4f 57 45 52 20 4d 45  54 45 52 22 bd 34 3a 87  |POWER METER".4:.|
00005ca0  0d 29 18 4b 86 35 36 2c  37 38 34 2c 35 36 2c 38  |.).K.56,784,56,8|
00005cb0  32 34 3a e3 54 25 3d 34  39 b8 31 30 30 3a e7 a8  |24:.T%=49.100:..|
00005cc0  28 28 54 25 2f 31 30 30  2a 54 25 29 83 32 35 29  |((T%/100*T%).25)|
00005cd0  3d 30 3a 86 54 25 2a 33  2b 35 36 2c 37 38 34 2c  |=0:.T%*3+56,784,|
00005ce0  54 25 2a 33 2b 35 36 2c  38 32 34 0d 29 22 05 ed  |T%*3+56,824.)"..|
00005cf0  0d 29 2c 13 c8 93 35 36  2c 37 39 32 2c 33 30 30  |.),...56,792,300|
00005d00  2c 32 34 0d 29 36 19 e6  31 31 3a c8 93 c8 90 35  |,24.)6..11:....5|
00005d10  36 2c 37 39 36 2c 33 30  30 2c 31 36 0d 29 40 20  |6,796,300,16.)@ |
00005d20  6d 79 25 3d 32 35 36 2d  67 72 65 65 6e 25 2a 31  |my%=256-green%*1|
00005d30  36 34 3a c8 99 36 2c 31  30 36 2c 32 0d 29 4a 09  |64:..6,106,2.)J.|
00005d40  c8 91 30 2c 30 0d 29 54  3e c8 97 c8 93 34 33 32  |..0,0.)T>....432|
00005d50  2b 28 67 72 65 65 6e 25  3d 30 29 2a 31 36 30 2c  |+(green%=0)*160,|
00005d60  6d 79 25 2c 34 31 34 2d  28 67 72 65 65 6e 25 3d  |my%,414-(green%=|
00005d70  30 29 2a 33 32 30 2c 30  3a c8 97 b8 36 34 30 2c  |0)*320,0:...640,|
00005d80  6d 79 25 0d 29 5e 13 78  73 25 3d 30 3a 4f 58 25  |my%.)^.xs%=0:OX%|
00005d90  3d 30 3a 75 3d 30 0d 29  68 10 f5 3a c8 97 58 25  |=0:u=0.)h..:..X%|
00005da0  2c 59 25 2c 43 25 0d 29  72 13 e7 43 25 3d 31 84  |,Y%,C%.)r..C%=1.|
00005db0  43 25 3d 34 fd b9 3a fd  a3 0d 29 7c 23 61 25 3d  |C%=4..:...)|#a%=|
00005dc0  28 58 25 2d 78 73 25 2d  36 34 30 29 2f 38 3a e7  |(X%-xs%-640)/8:.|
00005dd0  94 61 25 3c 31 30 61 25  3d b4 61 25 0d 29 86 09  |.a%<10a%=.a%.)..|
00005de0  75 2b 3d 61 25 0d 29 90  0d e7 58 25 3c 3e 78 73  |u+=a%.)...X%<>xs|
00005df0  25 8c 0d 29 9a 41 42 58  25 3d 30 3a 42 59 25 3d  |%..).ABX%=0:BY%=|
00005e00  2d 52 25 3a f2 76 74 28  76 69 2a 42 59 25 2b 76  |-R%:.vt(vi*BY%+v|
00005e10  61 2a 42 58 25 2c 76 61  2a 42 59 25 2b 76 62 2a  |a*BX%,va*BY%+vb*|
00005e20  42 58 25 2c 48 25 29 3a  79 73 74 25 3d 79 73 25  |BX%,H%):yst%=ys%|
00005e30  2b 32 35 0d 29 a4 43 f5  3a 42 58 25 2b 3d 75 3a  |+25.).C.:BX%+=u:|
00005e40  42 59 25 2b 3d 38 30 3a  f2 76 74 28 76 69 2a 42  |BY%+=80:.vt(vi*B|
00005e50  59 25 2b 76 61 2a 42 58  25 2c 76 61 2a 42 59 25  |Y%+va*BX%,va*BY%|
00005e60  2b 76 62 2a 42 58 25 2c  48 25 29 3a fd 79 73 25  |+vb*BX%,H%):.ys%|
00005e70  3e 3d 79 73 74 25 0d 29  ae 05 cd 0d 29 b8 12 c8  |>=yst%.)....)...|
00005e80  97 b8 78 73 25 2d 36 34  30 2c 6d 79 25 0d 29 c2  |..xs%-640,my%.).|
00005e90  09 fd 43 25 3d 32 0d 29  cc 07 c8 97 87 0d 29 d6  |..C%=2.)......).|
00005ea0  0d 70 25 3d a4 70 6f 77  65 72 0d 29 e0 12 53 4f  |.p%=.power.)..SO|
00005eb0  25 3d 2d 31 35 2a 70 25  2f 31 30 30 0d 29 ea 1d  |%=-15*p%/100.)..|
00005ec0  e7 ac 67 72 65 65 6e 25  80 76 70 25 3d 31 33 75  |..green%.vp%=13u|
00005ed0  3d 75 2b b3 28 35 29 2d  33 0d 29 f4 32 75 3d 75  |=u+.(5)-3.).2u=u|
00005ee0  2f 28 38 2d 67 25 2a 32  29 3a 79 61 3d a8 28 28  |/(8-g%*2):ya=.((|
00005ef0  43 56 25 28 76 70 25 29  2f 31 30 30 29 2a 70 25  |CV%(vp%)/100)*p%|
00005f00  29 3a e7 79 61 3c 31 79  61 3d 31 0d 29 fe 0f 75  |):.ya<1ya=1.)..u|
00005f10  64 3d 75 2f 28 79 61 2a  33 29 0d 2a 08 12 70 25  |d=u/(ya*3).*..p%|
00005f20  3d 70 25 2a 2e 33 32 3a  68 25 3d 30 0d 2a 12 1b  |=p%*.32:h%=0.*..|
00005f30  e7 76 70 25 3d 31 33 70  25 3d 35 2a 2d 28 67 72  |.vp%=13p%=5*-(gr|
00005f40  65 65 6e 25 3d a3 29 0d  2a 1c 18 f2 64 65 6c 28  |een%=.).*...del(|
00005f50  31 30 30 29 3a 73 74 72  6f 6b 65 25 2b 3d 31 0d  |100):stroke%+=1.|
00005f60  2a 26 20 ef 34 2c 32 36  3a 87 3a 2a 53 43 48 4f  |*& .4,26:.:*SCHO|
00005f70  4f 53 45 20 74 6f 70 6f  66 73 63 72 65 65 6e 0d  |OSE topofscreen.|
00005f80  2a 30 13 e6 38 2c 30 3a  f0 26 45 44 2c 30 2c 37  |*0..8,0:.&ED,0,7|
00005f90  30 34 0d 2a 3a 0d f2 77  69 6e 64 6f 77 73 32 0d  |04.*:..windows2.|
00005fa0  2a 44 05 e1 0d 2a 4e 07  f4 20 15 0d 2a 58 0d dd  |*D...*N.. ..*X..|
00005fb0  f2 73 68 6f 77 6c 69 65  0d 2a 62 07 ea 61 24 0d  |.showlie.*b..a$.|
00005fc0  2a 6c 13 61 24 3d 22 4f  4e 20 54 48 45 20 22 3a  |*l.a$="ON THE ":|
00005fd0  fb 38 0d 2a 76 0c f1 8a  34 31 2c 37 29 3b 0d 2a  |.8.*v...41,7);.*|
00005fe0  80 21 62 75 6e 6b 25 3d  a3 3a 62 61 64 25 3d a3  |.!bunk%=.:bad%=.|
00005ff0  3a 77 69 6e 64 25 3d 73  6b 69 6c 6c 25 3e 32 0d  |:wind%=skill%>2.|
00006000  2a 8a 0c e7 67 72 65 65  6e 25 8c 0d 2a 94 34 e7  |*...green%..*.4.|
00006010  6c 69 65 25 3d 35 20 f1  61 24 22 47 52 45 45 4e  |lie%=5 .a$"GREEN|
00006020  22 3b 3a 8b f1 22 4f 4e  20 45 44 47 45 20 4f 46  |";:.."ON EDGE OF|
00006030  20 47 52 45 45 4e 22 3b  3a 6c 69 65 25 3d 35 0d  | GREEN";:lie%=5.|
00006040  2a 9e 05 cd 0d 2a a8 0b  c8 8e 6c 69 65 25 ca 0d  |*....*....lie%..|
00006050  2a b2 1c c9 31 3a f1 22  49 4e 20 41 20 42 55 4e  |*...1:."IN A BUN|
00006060  4b 45 52 20 22 3b 3a f2  67 6f 62 0d 2a bc 17 c9  |KER ";:.gob.*...|
00006070  34 3a f1 22 4f 4e 20 41  20 50 41 54 48 57 41 59  |4:."ON A PATHWAY|
00006080  22 3b 0d 2a c6 0e c9 36  3a f2 77 65 74 6d 65 73  |";.*...6:.wetmes|
00006090  0d 2a d0 2a c9 37 3a e7  79 31 25 3c 3e 73 74 79  |.*.*.7:.y1%<>sty|
000060a0  25 3a f1 61 24 22 46 41  49 52 57 41 59 22 3b 3a  |%:.a$"FAIRWAY";:|
000060b0  8b f1 61 24 22 54 45 45  22 3b 0d 2a da 1d c9 39  |..a$"TEE";.*...9|
000060c0  3a f1 22 49 4e 20 54 48  45 20 52 4f 55 47 48 20  |:."IN THE ROUGH |
000060d0  22 3b 3a f2 67 6f 62 0d  2a e4 05 cb 0d 2a ee 05  |";:.gob.*....*..|
000060e0  e1 0d 2a f8 07 f4 20 15  0d 2b 02 0c dd f2 77 65  |..*... ..+....we|
000060f0  74 6d 65 73 0d 2b 0c 12  e6 36 3a 62 75 6e 6b 25  |tmes.+...6:bunk%|
00006100  3d b9 3a ea 54 25 0d 2b  16 0b 54 25 3d b3 28 33  |=.:.T%.+..T%=.(3|
00006110  29 0d 2b 20 09 c8 8e 54  25 ca 0d 2b 2a 1d c9 31  |).+ ...T%..+*..1|
00006120  2c 33 3a f1 22 49 4e 20  53 48 41 4c 4c 4f 57 20  |,3:."IN SHALLOW |
00006130  57 41 54 45 52 22 3b 0d  2b 34 3e c9 32 3a e7 77  |WATER";.+4>.2:.w|
00006140  65 6c 6c 69 65 25 f1 22  49 54 27 53 20 41 20 57  |ellie%."IT'S A W|
00006150  45 4c 4c 49 45 20 4a 4f  42 22 3b 3a 8b f1 22 42  |ELLIE JOB";:.."B|
00006160  41 4c 41 4e 43 45 44 20  4f 4e 20 4c 49 4c 59 20  |ALANCED ON LILY |
00006170  50 41 44 22 3b 0d 2b 3e  05 cb 0d 2b 48 05 e1 0d  |PAD";.+>...+H...|
00006180  2b 52 07 f4 20 15 0d 2b  5c 09 dd f2 67 6f 62 0d  |+R.. ..+\...gob.|
00006190  2b 66 3a ea 67 24 2c 62  24 3a 67 24 3d 22 47 4f  |+f:.g$,b$:g$="GO|
000061a0  4f 44 20 4c 49 45 22 3a  e7 6c 69 65 25 3d 39 62  |OD LIE":.lie%=9b|
000061b0  24 3d 22 42 41 44 20 4c  49 45 22 3a 8b 62 24 3d  |$="BAD LIE":.b$=|
000061c0  22 50 4c 55 47 47 45 44  22 0d 2b 70 0d c8 8e 73  |"PLUGGED".+p...s|
000061d0  6b 69 6c 6c 25 ca 0d 2b  7a 14 c9 31 3a f1 22 4e  |kill%..+z..1:."N|
000061e0  4f 20 45 46 46 45 43 54  22 3b 0d 2b 84 15 c9 32  |O EFFECT";.+...2|
000061f0  2c 33 3a f1 67 24 3b 3a  62 75 6e 6b 25 3d b9 0d  |,3:.g$;:bunk%=..|
00006200  2b 8e 27 c9 34 3a 62 75  6e 6b 25 3d b9 3a e7 b3  |+.'.4:bunk%=.:..|
00006210  28 32 29 3d 32 f1 62 24  3b 3a 62 61 64 25 3d 31  |(2)=2.b$;:bad%=1|
00006220  3a 8b f1 67 24 3b 0d 2b  98 05 cb 0d 2b a2 05 e1  |:..g$;.+....+...|
00006230  0d 2b ac 07 f4 20 15 0d  2b b6 0b dd a4 70 6f 77  |.+... ..+....pow|
00006240  65 72 0d 2b c0 13 ea 58  25 2c 43 25 2c 63 25 2c  |er.+...X%,C%,c%,|
00006250  70 25 2c 61 25 0d 2b ca  0a c8 91 38 30 2c 30 0d  |p%,a%.+....80,0.|
00006260  2b d4 1d fb 31 32 3a f2  62 75 74 74 28 30 29 3a  |+...12:.butt(0):|
00006270  f2 64 65 6c 28 31 29 3a  61 25 3d 31 0d 2b de 12  |.del(1):a%=1.+..|
00006280  c8 95 43 25 3d 30 80 63  25 3c 3e 31 35 36 0d 2b  |..C%=0.c%<>156.+|
00006290  e8 16 70 25 2b 3d 61 25  3a e7 70 25 3d 31 30 30  |..p%+=a%:.p%=100|
000062a0  61 25 3d b9 0d 2b f2 14  63 25 2b 3d 31 3a e6 38  |a%=..+..c%+=1:.8|
000062b0  3a e7 63 25 80 31 c8 96  0d 2b fc 36 c8 93 c8 90  |:.c%.1...+.6....|
000062c0  35 36 2c 37 39 36 2c 70  25 2a 33 2c 31 36 3a e6  |56,796,p%*3,16:.|
000062d0  31 31 3a c8 93 c8 90 35  36 2b 70 25 2a 33 2c 37  |11:....56+p%*3,7|
000062e0  39 36 2c 33 30 30 2d 70  25 2a 33 2c 31 36 0d 2c  |96,300-p%*3,16.,|
000062f0  06 30 f1 8a 32 2c 34 29  3b a8 28 70 25 2f 31 30  |.0..2,4);.(p%/10|
00006300  30 2a 70 25 29 2d 28 63  25 3c 31 30 29 3b 22 25  |0*p%)-(c%<10);"%|
00006310  20 20 22 3a c8 97 58 25  2c 58 25 2c 43 25 0d 2c  |  ":..X%,X%,C%.,|
00006320  10 05 ce 0d 2c 1a 0d 53  6c 3d 30 3a 73 6c 3d 30  |....,..Sl=0:sl=0|
00006330  0d 2c 24 0d e7 76 70 25  3c 3e 31 33 8c 0d 2c 2e  |.,$..vp%<>13..,.|
00006340  09 c8 8e 43 25 ca 0d 2c  38 0d c9 31 3a 73 6c 3d  |...C%..,8..1:sl=|
00006350  2e 30 35 0d 2c 42 0e c9  34 3a 73 6c 3d 2d 2e 30  |.05.,B..4:sl=-.0|
00006360  35 0d 2c 4c 05 cb 0d 2c  56 05 cd 0d 2c 60 0f e7  |5.,L...,V...,`..|
00006370  73 6b 69 6c 6c 25 3c 3e  31 8c 0d 2c 6a 0b c8 8e  |skill%<>1..,j...|
00006380  6c 69 65 25 ca 0d 2c 74  23 c9 31 2c 39 3a 70 25  |lie%..,t#.1,9:p%|
00006390  3d 28 70 25 2f 31 30 30  29 2a 72 65 64 25 28 76  |=(p%/100)*red%(v|
000063a0  70 25 2c 62 61 64 25 29  0d 2c 7e 2f c9 36 3a 61  |p%,bad%).,~/.6:a|
000063b0  25 3d 76 70 25 2d 32 2a  28 70 25 3c 31 31 29 3a  |%=vp%-2*(p%<11):|
000063c0  70 25 3d 70 25 2f 31 30  30 2a 72 65 64 25 28 61  |p%=p%/100*red%(a|
000063d0  25 2c 62 61 64 25 29 0d  2c 88 05 cb 0d 2c 92 05  |%,bad%).,....,..|
000063e0  cd 0d 2c 9c 10 d4 31 2c  2d 31 30 2c 32 30 30 2c  |..,...1,-10,200,|
000063f0  31 0d 2c a6 0d e7 70 25  3c 31 70 25 3d 31 0d 2c  |1.,...p%<1p%=1.,|
00006400  b0 07 3d 70 25 0d 2c ba  07 f4 20 15 0d 2c c4 0d  |..=p%.,... ..,..|
00006410  dd f2 67 65 74 63 6c 75  62 0d 2c ce 11 f2 62 75  |..getclub.,...bu|
00006420  74 74 28 30 29 3a f2 63  6c 73 0d 2c d8 13 e7 67  |tt(0):.cls.,...g|
00006430  72 65 65 6e 25 76 70 25  3d 31 33 3a e1 0d 2c e2  |reen%vp%=13:..,.|
00006440  1b ea 58 25 2c 59 25 2c  43 25 2c 78 25 2c 79 25  |..X%,Y%,C%,x%,y%|
00006450  2c 6f 78 25 2c 6f 79 25  0d 2c ec 3b 6f 78 25 3d  |,ox%,oy%.,.;ox%=|
00006460  2d 31 30 30 3a 87 3a ef  32 38 2c 36 2c 38 2c 37  |-100:.:.28,6,8,7|
00006470  34 2c 31 3a f2 6d 72 65  63 74 28 31 29 3a c8 97  |4,1:.mrect(1):..|
00006480  20 ee 3a fb 31 32 3a f4  3a 53 59 53 36 2c 31 30  | .:.12:.:SYS6,10|
00006490  36 2c 33 0d 2c f6 28 e3  54 25 3d 30 b8 31 33 3a  |6,3.,.(.T%=0.13:|
000064a0  f1 8a 54 58 25 28 54 25  29 2c 54 59 25 28 54 25  |..TX%(T%),TY%(T%|
000064b0  29 29 41 24 28 54 25 29  3b 3a ed 0d 2d 00 37 fb  |))A$(T%);:..-.7.|
000064c0  32 3a f1 8a 36 2c 30 29  22 53 45 4c 45 43 54 20  |2:..6,0)"SELECT |
000064d0  41 20 43 4c 55 42 22 3a  c8 9f 26 32 30 30 30 3a  |A CLUB":..&2000:|
000064e0  c8 9e 31 30 30 3a ef 35  3a e6 33 2c 32 3a f2 62  |..100:.5:.3,2:.b|
000064f0  6f 78 0d 2d 0a 2e f5 3a  e7 c6 8f 3d 30 3a e6 33  |ox.-...:...=0:.3|
00006500  2c 32 3a f1 8a 37 2c 31  29 22 53 45 4c 45 43 54  |,2:..7,1)"SELECT|
00006510  20 41 20 43 4c 55 42 22  3a f5 fd c6 8f 3c 3e 30  | A CLUB":....<>0|
00006520  0d 2d 14 24 c8 97 58 25  2c 59 25 2c 43 25 3a 78  |.-.$..X%,Y%,C%:x|
00006530  25 3d 58 25 81 31 32 38  3a 79 25 3d 59 25 80 26  |%=X%.128:y%=Y%.&|
00006540  46 46 45 30 0d 2d 1e 18  e7 78 25 3c 3e 6f 78 25  |FFE0.-...x%<>ox%|
00006550  84 79 25 3c 3e 6f 79 25  f2 62 6f 78 0d 2d 28 35  |.y%<>oy%.box.-(5|
00006560  f2 6d 72 65 63 74 28 58  25 29 3a 76 70 25 3d 33  |.mrect(X%):vp%=3|
00006570  5e 78 25 2b 28 78 25 3d  30 29 2b 32 38 2d 79 25  |^x%+(x%=0)+28-y%|
00006580  81 33 32 2b 28 78 25 3d  32 80 79 25 3c 38 33 32  |.32+(x%=2.y%<832|
00006590  29 0d 2d 32 0a fd 43 25  3c 3e 30 0d 2d 3c 0f f2  |).-2..C%<>0.-<..|
000065a0  62 75 74 74 28 30 29 3a  ef 34 0d 2d 46 09 dd f2  |butt(0):.4.-F...|
000065b0  63 6c 73 0d 2d 50 14 87  3a ef 32 38 2c 36 2c 38  |cls.-P..:.28,6,8|
000065c0  2c 32 39 2c 31 3a db 0d  2d 5a 05 e1 0d 2d 64 07  |,29,1:..-Z...-d.|
000065d0  f4 20 15 0d 2d 6e 09 dd  f2 62 6f 78 0d 2d 78 08  |. ..-n...box.-x.|
000065e0  e6 33 2c 36 0d 2d 82 1c  c8 93 c8 90 33 32 2b 31  |.3,6.-......32+1|
000065f0  32 38 2a 6f 78 25 2c 6f  79 25 2c 39 36 2c 33 32  |28*ox%,oy%,96,32|
00006600  0d 2d 8c 1a c8 93 c8 90  33 32 2b 31 32 38 2a 78  |.-......32+128*x|
00006610  25 2c 79 25 2c 39 36 2c  33 32 0d 2d 96 10 d4 31  |%,y%,96,32.-...1|
00006620  2c 2d 31 30 2c 32 30 30  2c 31 0d 2d a0 11 6f 78  |,-10,200,1.-..ox|
00006630  25 3d 78 25 3a 6f 79 25  3d 79 25 0d 2d aa 05 e1  |%=x%:oy%=y%.-...|
00006640  0d 2d b4 07 f4 20 15 0d  2d be 0f dd f2 6d 72 65  |.-... ..-....mre|
00006650  63 74 28 52 25 29 0d 2d  c8 10 e7 52 25 3e 32 38  |ct(R%).-...R%>28|
00006660  38 f2 69 6f 70 32 0d 2d  d2 09 c8 8e 52 25 ca 0d  |8.iop2.-....R%..|
00006670  2d dc 22 c9 20 31 3a c8  97 c8 93 33 38 2c 38 34  |-.". 1:....38,84|
00006680  34 2c 39 30 2c 37 32 3a  c8 97 b8 38 33 2c 39 31  |4,90,72:...83,91|
00006690  32 0d 2d e6 24 c9 20 31  36 32 3a c8 97 c8 93 33  |2.-.$. 162:....3|
000066a0  38 2c 38 34 34 2c 39 30  2c 37 32 3a c8 97 b8 38  |8,844,90,72:...8|
000066b0  33 2c 38 34 36 0d 2d f0  27 c9 20 31 32 38 3a c8  |3,846.-.'. 128:.|
000066c0  97 c8 93 31 36 32 2c 37  35 32 2c 39 30 2c 31 36  |...162,752,90,16|
000066d0  34 3a c8 97 b8 32 30 38  2c 39 31 32 0d 2d fa 0e  |4:...208,912.-..|
000066e0  c9 20 32 35 32 3a f2 69  6f 70 0d 2e 04 27 c9 20  |. 252:.iop...'. |
000066f0  32 38 38 3a c8 97 c8 93  31 36 32 2c 37 35 32 2c  |288:....162,752,|
00006700  39 30 2c 31 36 34 3a c8  97 b8 32 30 38 2c 37 35  |90,164:...208,75|
00006710  36 0d 2e 0e 05 cb 0d 2e  18 05 e1 0d 2e 22 07 f4  |6............"..|
00006720  20 15 0d 2e 2c 09 dd f2  69 6f 70 0d 2e 36 0c e7  | ...,...iop..6..|
00006730  59 25 3e 38 33 35 8c 0d  2e 40 20 c8 97 c8 93 32  |Y%>835...@ ....2|
00006740  38 38 2c 38 33 36 2c 39  30 2c 38 30 3a c8 97 b8  |88,836,90,80:...|
00006750  33 34 39 2c 39 31 32 0d  2e 4a 22 cc 20 c8 97 c8  |349,912..J". ...|
00006760  93 32 38 38 2c 37 35 32  2c 39 30 2c 35 30 3a c8  |.288,752,90,50:.|
00006770  97 b8 33 34 39 2c 37 37  38 0d 2e 54 05 cd 0d 2e  |..349,778..T....|
00006780  5e 05 e1 0d 2e 68 07 f4  20 15 0d 2e 72 0a dd f2  |^....h.. ...r...|
00006790  69 6f 70 32 0d 2e 7c 27  e7 59 25 3d 38 33 36 c8  |iop2..|'.Y%=836.|
000067a0  97 c8 93 32 38 38 2c 37  35 32 2c 39 30 2c 35 30  |...288,752,90,50|
000067b0  3a c8 97 b8 33 34 39 2c  37 38 36 0d 2e 86 27 e7  |:...349,786...'.|
000067c0  59 25 3d 38 30 32 c8 97  c8 93 32 38 38 2c 38 33  |Y%=802....288,83|
000067d0  36 2c 39 30 2c 38 30 3a  c8 97 b8 33 34 39 2c 38  |6,90,80:...349,8|
000067e0  35 36 0d 2e 90 05 e1 0d  2e 9a 07 f4 20 15 0d 2e  |56.......... ...|
000067f0  a4 0e dd f2 62 75 74 74  28 6f 6e 29 0d 2e ae 0a  |....butt(on)....|
00006800  ea 44 25 2c 43 25 0d 2e  b8 05 f5 0d 2e c2 0e c8  |.D%,C%..........|
00006810  97 44 25 2c 44 25 2c 43  25 0d 2e cc 0a fd 43 25  |.D%,D%,C%.....C%|
00006820  3d 6f 6e 0d 2e d6 05 e1  0d 2e e0 07 f4 20 15 0d  |=on.......... ..|
00006830  2e ea 0d dd f2 77 69 6e  64 6f 77 73 0d 2e f4 18  |.....windows....|
00006840  ef 32 36 3a e6 31 32 38  3a da 3a f2 6d 61 69 6e  |.26:.128:.:.main|
00006850  63 6f 6c 73 0d 2e fe 0d  e7 ac 67 72 65 65 6e 25  |cols......green%|
00006860  8c 0d 2f 08 18 e6 36 3a  c8 93 c8 90 20 30 2c 30  |../...6:.... 0,0|
00006870  2c 31 32 38 30 2c 37 33  36 0d 2f 12 16 e6 34 3a  |,1280,736./...4:|
00006880  86 30 2c 37 33 32 2c 31  32 38 30 2c 37 33 32 0d  |.0,732,1280,732.|
00006890  2f 1c 1f e6 31 33 38 3a  ef 32 34 2c 30 3b 37 33  |/...138:.24,0;73|
000068a0  36 3b 31 32 37 39 3b 31  30 32 33 3b 3a da 0d 2f  |6;1279;1023;:../|
000068b0  26 0b f2 63 6c 6f 75 64  73 0d 2f 30 0b cc e6 31  |&..clouds./0...1|
000068c0  33 35 3a da 0d 2f 3a 05  cd 0d 2f 44 0e dd f2 77  |35:../:.../D...w|
000068d0  69 6e 64 6f 77 73 32 0d  2f 4e 20 ef 32 36 3a c8  |indows2./N .26:.|
000068e0  91 36 34 30 2c 37 36 38  2b 4f 25 2d 36 31 36 36  |.640,768+O%-6166|
000068f0  2a 67 72 65 65 6e 25 0d  2f 58 05 e1 0d 2f 62 07  |*green%./X.../b.|
00006900  f4 20 15 0d 2f 6c 0c dd  f2 63 6c 6f 75 64 73 0d  |. ../l...clouds.|
00006910  2f 76 0d ea 43 25 2c 54  25 2c 4f 25 0d 2f 80 24  |/v..C%,T%,O%./.$|
00006920  e7 76 62 3e 30 20 4f 25  3d 9d 98 76 61 20 8b 4f  |.vb>0 O%=..va .O|
00006930  25 3d 31 38 30 2b 28 31  38 30 2d 9d 98 76 61 29  |%=180+(180-..va)|
00006940  0d 2f 8a 12 4f 25 3d 94  4f 25 2a 33 2e 35 3a e6  |./..O%=.O%*3.5:.|
00006950  31 31 0d 2f 94 15 e3 43  25 3d 31 b8 31 32 3a e3  |11./...C%=1.12:.|
00006960  54 25 3d 31 b8 31 32 0d  2f 9e 35 c8 9d c8 90 28  |T%=1.12./.5....(|
00006970  43 4c 25 28 30 2c 43 25  2c 54 25 29 2b 4f 25 29  |CL%(0,C%,T%)+O%)|
00006980  83 32 35 32 30 2b 49 25  2c 43 4c 25 28 31 2c 43  |.2520+I%,CL%(1,C|
00006990  25 2c 54 25 29 2c 32 35  36 2c 36 34 0d 2f a8 07  |%,T%),256,64./..|
000069a0  ed 3a ed 0d 2f b2 05 e1  0d 2f bc 07 f4 20 15 0d  |.:../..../... ..|
000069b0  2f c6 0f dd f2 69 6e 69  74 63 6c 6f 75 64 0d 2f  |/....initcloud./|
000069c0  d0 10 ea 43 25 2c 54 25  2c 58 25 2c 59 25 0d 2f  |...C%,T%,X%,Y%./|
000069d0  da 2b e3 43 25 3d 30 b8  31 32 3a 58 25 3d 31 39  |.+.C%=0.12:X%=19|
000069e0  34 2a 43 25 2b b3 28 31  39 34 29 3a 59 25 3d b3  |4*C%+.(194):Y%=.|
000069f0  28 32 38 38 29 2b 37 33  36 0d 2f e4 3c e3 54 25  |(288)+736./.<.T%|
00006a00  3d 30 b8 31 32 3a 43 4c  25 28 30 2c 43 25 2c 54  |=0.12:CL%(0,C%,T|
00006a10  25 29 3d 58 25 2b b3 28  35 29 2a 34 30 3a 43 4c  |%)=X%+.(5)*40:CL|
00006a20  25 28 31 2c 43 25 2c 54  25 29 3d 59 25 2b b3 28  |%(1,C%,T%)=Y%+.(|
00006a30  35 29 2a 31 32 0d 2f ee  07 ed 3a ed 0d 2f f8 05  |5)*12./...:../..|
00006a40  e1 0d 30 02 07 f4 20 15  0d 30 0c 0c dd f2 62 6f  |..0... ..0....bo|
00006a50  75 6e 63 65 0d 30 16 13  68 25 3d 30 3a 70 25 3d  |unce.0..h%=0:p%=|
00006a60  2d 70 25 2f 32 2e 32 0d  30 20 20 e7 76 70 25 3d  |-p%/2.2.0  .vp%=|
00006a70  31 33 80 ac 67 72 65 65  6e 25 80 b3 28 31 30 29  |13..green%..(10)|
00006a80  3d 35 f2 32 72 69 63 0d  30 2a 0c 2a 46 58 31 31  |=5.2ric.0*.*FX11|
00006a90  32 2c 32 0d 30 34 10 47  25 3d b0 73 78 25 2c 73  |2,2.04.G%=.sx%,s|
00006aa0  79 25 29 0d 30 3e 0c 2a  46 58 31 31 32 2c 31 0d  |y%).0>.*FX112,1.|
00006ab0  30 48 09 c8 8e 47 25 ca  0d 30 52 29 c9 31 3a 70  |0H...G%..0R).1:p|
00006ac0  25 3d 70 25 3e 3e 31 3a  e7 70 25 3e 34 3a 79 61  |%=p%>>1:.p%>4:ya|
00006ad0  3d 79 61 2a 2e 33 3a 8b  79 61 3d 79 61 2a 2e 37  |=ya*.3:.ya=ya*.7|
00006ae0  35 0d 30 5c 2f c9 34 3a  e7 70 25 3e 33 80 79 61  |5.0\/.4:.p%>3.ya|
00006af0  3c 3e 30 70 25 3d 70 25  2a 31 2e 35 3a 79 61 3d  |<>0p%=p%*1.5:ya=|
00006b00  79 61 2a 31 2e 33 3a 75  64 3d 75 64 2f 31 2e 33  |ya*1.3:ud=ud/1.3|
00006b10  0d 30 66 60 c9 36 2c 31  31 3a 57 25 3d a3 3a 78  |.0f`.6,11:W%=.:x|
00006b20  73 25 3d 31 30 30 30 3a  73 78 25 3d 31 30 30 30  |s%=1000:sx%=1000|
00006b30  3a 79 61 3d 30 3a 70 25  3d 30 3a 68 25 3d 30 3a  |:ya=0:p%=0:h%=0:|
00006b40  d6 20 70 6c 6f 74 62 61  6c 6c 2c 62 73 25 2c 6f  |. plotball,bs%,o|
00006b50  79 25 2c 6f 78 25 2c 6f  73 79 25 2c 6f 73 78 25  |y%,ox%,osy%,osx%|
00006b60  2c 79 73 25 2c 78 73 25  2c 73 79 25 2c 73 78 25  |,ys%,xs%,sy%,sx%|
00006b70  0d 30 70 4a c9 39 2c 2d  31 3a 79 61 3d 79 61 2f  |.0pJ.9,-1:ya=ya/|
00006b80  31 2e 35 3a 70 25 3d 70  25 3e 3e 31 3a 75 3d 75  |1.5:p%=p%>>1:u=u|
00006b90  2f 32 3a 75 64 3d 75 64  2f 32 3a e7 67 72 65 65  |/2:ud=ud/2:.gree|
00006ba0  6e 25 80 47 25 3d 2d 31  79 61 3d 30 3a 70 25 3d  |n%.G%=-1ya=0:p%=|
00006bb0  30 3a 75 3d 30 3a 75 64  3d 30 0d 30 7a 05 cb 0d  |0:u=0:ud=0.0z...|
00006bc0  30 84 05 e1 0d 30 8e 07  f4 20 15 0d 30 98 0c dd  |0....0... ..0...|
00006bd0  f2 64 72 61 77 69 74 0d  30 a2 37 6e 70 25 3d a4  |.drawit.0.7np%=.|
00006be0  6d 61 70 31 3a f2 6d 61  70 28 43 58 25 2c 43 59  |map1:.map(CX%,CY|
00006bf0  25 2c 48 25 2c 34 2c 72  29 3a f2 6d 61 70 28 53  |%,H%,4,r):.map(S|
00006c00  58 25 2c 53 59 25 2c 48  25 2c 34 2c 72 29 0d 30  |X%,SY%,H%,4,r).0|
00006c10  ac 30 e3 49 25 3d 31 b8  6e 70 25 2d 31 3a f2 6d  |.0.I%=1.np%-1:.m|
00006c20  61 70 28 58 49 25 2c 59  49 25 2c 48 25 2c 38 35  |ap(XI%,YI%,H%,85|
00006c30  2c 72 29 3a ec 43 58 25  2c 43 59 25 3a ed 0d 30  |,r):.CX%,CY%:..0|
00006c40  b6 0f f0 38 35 2c 53 58  25 2c 53 59 25 0d 30 c0  |...85,SX%,SY%.0.|
00006c50  05 e1 0d 30 ca 07 f4 20  15 0d 30 d4 12 dd f2 76  |...0... ..0....v|
00006c60  74 28 78 25 2c 79 25 2c  7a 25 29 0d 30 de 4c 78  |t(x%,y%,z%).0.Lx|
00006c70  65 25 3d 76 61 2a 78 25  2b 76 62 2a 79 25 3a 7a  |e%=va*x%+vb*y%:z|
00006c80  65 25 3d 28 76 69 2a 78  25 2b 76 61 2a 79 25 2b  |e%=(vi*x%+va*y%+|
00006c90  72 29 2a 4d 61 3a 78 73  25 3d 64 2a 78 65 25 20  |r)*Ma:xs%=d*xe% |
00006ca0  81 7a 65 25 3a 79 73 25  3d 2d 28 64 2a 7a 25 20  |.ze%:ys%=-(d*z% |
00006cb0  81 7a 65 25 29 2a 32 0d  30 e8 05 e1 0d 30 f2 07  |.ze%)*2.0....0..|
00006cc0  f4 20 15 0d 30 fc 22 dd  f2 63 61 6c 74 72 65 28  |. ..0."..caltre(|
00006cd0  f8 20 78 25 28 29 2c f8  20 79 25 28 29 2c f8 20  |. x%(),. y%(),. |
00006ce0  7a 25 28 29 29 0d 31 06  11 ea 69 25 2c 6c 25 2c  |z%()).1...i%,l%,|
00006cf0  6c 6f 25 2c 6e 25 0d 31  10 0d e3 41 25 3d 31 b8  |lo%,n%.1...A%=1.|
00006d00  41 41 25 0d 31 1a 1b 6c  25 3d a4 6d 61 70 32 3a  |AA%.1..l%=.map2:|
00006d10  74 72 65 78 21 28 41 25  2a 34 29 3d 6c 25 0d 31  |trex!(A%*4)=l%.1|
00006d20  24 1b 69 25 3d a4 6d 61  70 32 3a 74 72 65 79 21  |$.i%=.map2:trey!|
00006d30  28 41 25 2a 34 29 3d 69  25 0d 31 2e 12 78 65 3d  |(A%*4)=i%.1..xe=|
00006d40  76 61 2a 69 25 2b 76 62  2a 6c 25 0d 31 38 19 7a  |va*i%+vb*l%.18.z|
00006d50  65 3d 28 76 69 2a 69 25  2b 76 61 2a 6c 25 2b 72  |e=(vi*i%+va*l%+r|
00006d60  29 2a 4d 61 0d 31 42 28  78 25 28 41 25 29 3d 64  |)*Ma.1B(x%(A%)=d|
00006d70  2a 78 65 20 81 7a 65 3a  79 25 28 41 25 29 3d 2d  |*xe .ze:y%(A%)=-|
00006d80  28 64 2a 48 25 20 81 7a  65 29 2a 32 0d 31 4c 1d  |(d*H% .ze)*2.1L.|
00006d90  7a 25 28 41 25 29 3d 2d  28 64 2a 28 48 25 2b 32  |z%(A%)=-(d*(H%+2|
00006da0  30 30 29 81 7a 65 29 2a  32 0d 31 56 05 ed 0d 31  |00).ze)*2.1V...1|
00006db0  60 05 e1 0d 31 6a 07 f4  20 15 0d 31 74 1c dd f2  |`...1j.. ..1t...|
00006dc0  6d 61 70 28 f8 20 78 25  2c f8 20 79 25 2c 7a 25  |map(. x%,. y%,z%|
00006dd0  2c 70 25 2c 72 29 0d 31  7e 56 79 25 3d a4 6d 61  |,p%,r).1~Vy%=.ma|
00006de0  70 32 3a 78 25 3d a4 6d  61 70 32 3a 78 65 3d 76  |p2:x%=.map2:xe=v|
00006df0  61 2a 78 25 2b 76 62 2a  79 25 3a 7a 65 3d 28 76  |a*x%+vb*y%:ze=(v|
00006e00  69 2a 78 25 2b 76 61 2a  79 25 2b 72 29 2a 4d 61  |i*x%+va*y%+r)*Ma|
00006e10  3a 78 25 3d 64 2a 78 65  20 81 7a 65 3a 79 25 3d  |:x%=d*xe .ze:y%=|
00006e20  2d 28 64 2a 7a 25 81 7a  65 29 2a 32 0d 31 88 29  |-(d*z%.ze)*2.1.)|
00006e30  e7 ac 67 72 65 65 6e 25  e7 79 25 3e 2d 33 32 84  |..green%.y%>-32.|
00006e40  79 25 3c 26 46 46 46 46  38 30 30 30 20 79 25 3d  |y%<&FFFF8000 y%=|
00006e50  2d 36 30 30 30 0d 31 92  0d f0 70 25 2c 78 25 2c  |-6000.1...p%,x%,|
00006e60  79 25 0d 31 9c 05 e1 0d  31 a6 07 f4 20 15 0d 31  |y%.1....1... ..1|
00006e70  b0 1c dd a4 6d 61 70 31  3a 50 25 2b 3d 31 3a 3d  |....map1:P%+=1:=|
00006e80  6d 61 70 3f 28 50 25 2d  31 29 0d 31 ba 07 f4 20  |map?(P%-1).1... |
00006e90  15 0d 31 c4 24 dd a4 6d  61 70 32 3a 50 25 2b 3d  |..1.$..map2:P%+=|
00006ea0  32 3a 51 25 3d 6d 61 70  21 28 50 25 2d 32 29 80  |2:Q%=map!(P%-2).|
00006eb0  26 46 46 46 46 0d 31 ce  1c e7 51 25 3e 26 37 46  |&FFFF.1...Q%>&7F|
00006ec0  46 46 51 25 3d 51 25 84  26 46 46 46 46 30 30 30  |FFQ%=Q%.&FFFF000|
00006ed0  30 0d 31 d8 07 3d 51 25  0d 31 e2 07 f4 20 15 0d  |0.1..=Q%.1... ..|
00006ee0  31 ec 0b dd f2 74 72 65  65 73 0d 31 f6 1e 50 46  |1....trees.1..PF|
00006ef0  25 3d b9 3a 50 42 25 3d  2d 28 64 2a 48 25 81 28  |%=.:PB%=-(d*H%.(|
00006f00  72 2a 4d 61 29 29 2a 32  0d 32 00 1d 50 54 25 3d  |r*Ma))*2.2..PT%=|
00006f10  2d 28 64 2a 28 48 25 2d  33 30 29 81 28 72 2a 4d  |-(d*(H%-30).(r*M|
00006f20  61 29 29 2a 32 0d 32 0a  1d 46 42 25 3d 2d 28 64  |a))*2.2..FB%=-(d|
00006f30  2a 28 48 25 2d 32 34 29  81 28 72 2a 4d 61 29 29  |*(H%-24).(r*Ma))|
00006f40  2a 32 0d 32 14 56 78 65  3d 76 61 2a 46 78 2b 76  |*2.2.Vxe=va*Fx+v|
00006f50  62 2a 46 79 3a 7a 65 3d  28 76 69 2a 46 78 2b 76  |b*Fy:ze=(vi*Fx+v|
00006f60  61 2a 46 79 2b 72 29 2a  4d 61 3a 46 58 25 3d 64  |a*Fy+r)*Ma:FX%=d|
00006f70  2a 78 65 20 81 7a 65 3a  46 59 25 3d 2d 28 64 2a  |*xe .ze:FY%=-(d*|
00006f80  28 48 25 2d 31 36 2d 28  73 74 72 65 6e 25 81 34  |(H%-16-(stren%.4|
00006f90  29 29 81 7a 65 29 2a 32  0d 32 1e 0c e7 67 72 65  |)).ze)*2.2...gre|
00006fa0  65 6e 25 e1 0d 32 28 0f  e3 54 25 3d 41 41 25 b8  |en%..2(..T%=AA%.|
00006fb0  31 88 b9 0d 32 32 18 58  31 25 3d 78 25 28 54 25  |1...22.X1%=x%(T%|
00006fc0  29 3a 59 25 3d 79 25 28  54 25 29 0d 32 3c 3d e7  |):Y%=y%(T%).2<=.|
00006fd0  50 46 25 80 59 25 3c 50  42 25 20 e6 31 31 3a ec  |PF%.Y%<PB% .11:.|
00006fe0  30 2c 50 42 25 3a df 30  2c 50 54 25 3a e6 33 3a  |0,PB%:.0,PT%:.3:|
00006ff0  ec 30 2c 46 42 25 3a f0  38 35 2c 46 58 25 2c 46  |.0,FB%:.85,FX%,F|
00007000  59 25 3a 50 46 25 3d a3  0d 32 46 2a e7 28 94 58  |Y%:PF%=..2F*.(.X|
00007010  31 25 3e 34 30 30 84 59  25 3e 2d 37 30 38 29 80  |1%>400.Y%>-708).|
00007020  94 58 31 25 3c 38 30 30  80 59 25 3e 2d 31 30 30  |.X1%<800.Y%>-100|
00007030  30 8c 0d 32 50 41 78 25  3d 28 94 59 25 2d 94 7a  |0..2PAx%=(.Y%-.z|
00007040  25 28 54 25 29 29 3e 3e  31 3a 79 25 3d 2d 78 25  |%(T%))>>1:y%=-x%|
00007050  3e 3e 32 3a 79 61 25 3d  79 25 2a 31 2e 35 3a 78  |>>2:ya%=y%*1.5:x|
00007060  61 25 3d 78 25 3e 3e 34  3a 79 64 25 3d 79 61 25  |a%=x%>>4:yd%=ya%|
00007070  3e 3e 32 0d 32 5a 2b e6  74 72 25 21 28 28 28 70  |>>2.2Z+.tr%!(((p|
00007080  78 25 2b 31 29 80 33 29  2a 34 29 3a c8 93 c8 90  |x%+1).3)*4):....|
00007090  58 31 25 2c 59 25 2c 2d  78 61 25 2c 79 25 0d 32  |X1%,Y%,-xa%,y%.2|
000070a0  64 2a e6 74 72 25 21 28  28 28 70 78 25 2b 32 29  |d*.tr%!(((px%+2)|
000070b0  80 33 29 2a 34 29 3a c8  93 c8 90 58 31 25 2c 59  |.3)*4):....X1%,Y|
000070c0  25 2c 78 61 25 2c 79 25  0d 32 6e 31 59 25 2b 3d  |%,xa%,y%.2n1Y%+=|
000070d0  79 25 3a 78 61 25 3d 78  61 25 2a 32 3a 7a 25 28  |y%:xa%=xa%*2:z%(|
000070e0  54 25 29 3d a3 3a 78 25  3d 78 25 2a 2e 38 3a 78  |T%)=.:x%=x%*.8:x|
000070f0  61 25 3d 78 61 25 2a 2e  38 0d 32 78 26 d6 70 6c  |a%=xa%*.8.2x&.pl|
00007100  6f 74 74 72 65 65 2c 78  61 25 2c 79 25 2c 78 25  |ottree,xa%,y%,x%|
00007110  2c 58 31 25 2c 59 25 2c  79 61 25 2c 79 64 25 0d  |,X1%,Y%,ya%,yd%.|
00007120  32 82 0e cc 20 7a 25 28  54 25 29 3d b9 0d 32 8c  |2... z%(T%)=..2.|
00007130  05 cd 0d 32 96 05 ed 0d  32 a0 05 e1 0d 32 aa 07  |...2....2....2..|
00007140  f4 20 15 0d 32 b4 0e dd  f2 69 6e 69 74 69 61 74  |. ..2....initiat|
00007150  65 0d 32 be 14 48 61 6e  64 25 3d 30 3a 67 72 65  |e.2..Hand%=0:gre|
00007160  65 6e 25 3d 30 0d 32 c8  08 e6 30 2c 31 0d 32 d2  |en%=0.2...0,1.2.|
00007170  10 f2 63 6f 6c 6f 75 72  73 28 31 32 29 0d 32 dc  |..colours(12).2.|
00007180  0f de 72 65 64 25 28 31  33 2c 31 29 0d 32 e6 12  |..red%(13,1).2..|
00007190  de 20 43 4c 25 28 31 2c  31 32 2c 31 32 29 0d 32  |. CL%(1,12,12).2|
000071a0  f0 0f de 20 63 6f 64 65  20 26 39 30 30 0d 32 fa  |... code &900.2.|
000071b0  0f de 20 6d 61 70 20 26  36 44 30 30 0d 33 04 25  |.. map &6D00.3.%|
000071c0  ff 22 4c 2e 20 3c 4f 62  65 79 24 44 69 72 3e 2e  |."L. <Obey$Dir>.|
000071d0  54 48 45 5f 4c 49 4e 4b  53 20 22 2b c3 7e 6d 61  |THE_LINKS "+.~ma|
000071e0  70 0d 33 0e 0d de 20 70  61 72 62 20 32 30 0d 33  |p.3... parb 20.3|
000071f0  18 1a de 20 78 25 28 39  36 29 2c 79 25 28 39 36  |... x%(96),y%(96|
00007200  29 2c 7a 25 28 39 36 29  0d 33 22 23 de 54 58 25  |),z%(96).3"#.TX%|
00007210  28 31 33 29 2c 54 59 25  28 31 33 29 2c 41 24 28  |(13),TY%(13),A$(|
00007220  31 33 29 2c 43 56 25 28  31 33 29 0d 33 2c 43 de  |13),CV%(13).3,C.|
00007230  6d 78 25 28 31 2c 31 29  2c 6d 79 25 28 31 29 2c  |mx%(1,1),my%(1),|
00007240  6d 25 28 38 2c 31 29 2c  62 61 67 25 28 31 29 2c  |m%(8,1),bag%(1),|
00007250  6e 61 6d 65 24 28 36 29  2c 64 65 66 6e 61 6d 65  |name$(6),defname|
00007260  24 28 36 29 3a 70 6c 61  79 65 72 25 3d 31 0d 33  |$(6):player%=1.3|
00007270  36 89 de 68 6f 6c 65 73  63 6f 72 65 73 25 28 36  |6..holescores%(6|
00007280  2c 31 38 29 2c 63 75 72  72 65 6e 74 78 25 28 36  |,18),currentx%(6|
00007290  29 2c 63 75 72 72 65 6e  74 79 25 28 36 29 2c 63  |),currenty%(6),c|
000072a0  75 72 72 65 6e 74 52 25  28 36 29 2c 63 75 72 72  |urrentR%(6),curr|
000072b0  65 6e 74 53 25 28 36 29  2c 63 75 72 72 65 6e 74  |entS%(6),current|
000072c0  73 25 28 36 29 2c 74 6f  74 73 63 6f 72 65 25 28  |s%(6),totscore%(|
000072d0  36 29 2c 6f 6c 64 70 6f  73 25 28 36 29 2c 68 73  |6),oldpos%(6),hs|
000072e0  70 25 28 36 29 2c 68 61  6e 64 25 28 36 29 2c 6a  |p%(6),hand%(6),j|
000072f0  75 6d 70 25 28 36 29 0d  33 40 10 de 43 28 34 35  |ump%(6).3@..C(45|
00007300  29 2c 53 28 34 35 29 0d  33 4a 10 de 73 61 25 28  |),S(45).3J..sa%(|
00007310  31 2c 32 2c 32 30 29 0d  33 54 11 63 75 72 72 65  |1,2,20).3T.curre|
00007320  6e 74 73 25 28 29 3d 31  0d 33 5e 0b e3 49 25 3d  |nts%()=1.3^..I%=|
00007330  32 b8 34 0d 33 68 0c e3  4e 25 3d 30 b8 32 30 0d  |2.4.3h..N%=0.20.|
00007340  33 72 1f 73 61 25 28 30  2c 49 25 2d 32 2c 4e 25  |3r.sa%(0,I%-2,N%|
00007350  29 3d b3 28 49 25 2a 38  29 2d 49 25 2a 34 0d 33  |)=.(I%*8)-I%*4.3|
00007360  7c 23 73 61 25 28 31 2c  49 25 2d 32 2c 4e 25 29  ||#sa%(1,I%-2,N%)|
00007370  3d 49 25 2a 31 32 2b 31  36 2b b3 28 49 25 29 2a  |=I%*12+16+.(I%)*|
00007380  34 0d 33 86 05 ed 0d 33  90 05 ed 0d 33 9a 0c e3  |4.3....3....3...|
00007390  54 25 3d 30 b8 34 35 0d  33 a4 21 43 28 54 25 29  |T%=0.45.3.!C(T%)|
000073a0  3d 9b b2 28 54 25 2a 38  29 3a 53 28 54 25 29 3d  |=..(T%*8):S(T%)=|
000073b0  b5 b2 28 54 25 2a 38 29  0d 33 ae 05 ed 0d 33 b8  |..(T%*8).3....3.|
000073c0  28 6d 78 25 28 30 2c 31  29 3d 2d 32 3a 6d 78 25  |(mx%(0,1)=-2:mx%|
000073d0  28 30 2c 30 29 3d 2d 39  36 3a 6d 79 25 28 30 29  |(0,0)=-96:my%(0)|
000073e0  3d 2d 37 32 38 0d 33 c2  2a 6d 78 25 28 31 2c 31  |=-728.3.*mx%(1,1|
000073f0  29 3d 2d 34 3a 6d 78 25  28 31 2c 30 29 3d 2d 36  |)=-4:mx%(1,0)=-6|
00007400  34 3a 6d 79 25 28 31 29  3d 2d 31 33 31 32 31 0d  |4:my%(1)=-13121.|
00007410  33 cc 1c 62 61 67 25 28  30 29 3d 2d 31 39 36 3a  |3..bag%(0)=-196:|
00007420  62 61 67 25 28 31 29 3d  31 32 30 0d 33 d6 17 73  |bag%(1)=120.3..s|
00007430  78 25 3d b9 3a 73 79 25  3d b9 3a 72 3d 31 31 30  |x%=.:sy%=.:r=110|
00007440  39 36 0d 33 e0 0a f7 20  8d 74 7c 74 0d 33 ea 0c  |96.3... .t|t.3..|
00007450  e3 54 25 3d 30 b8 31 33  0d 33 f4 23 f3 54 58 25  |.T%=0.13.3.#.TX%|
00007460  28 54 25 29 2c 54 59 25  28 54 25 29 2c 41 24 28  |(T%),TY%(T%),A$(|
00007470  54 25 29 2c 43 56 25 28  54 25 29 0d 33 fe 05 ed  |T%),CV%(T%).3...|
00007480  0d 34 08 0e f2 77 65 6c  6c 69 65 28 30 29 0d 34  |.4...wellie(0).4|
00007490  12 17 e3 54 25 3d 31 b8  38 3a f3 6d 25 28 54 25  |...T%=1.8:.m%(T%|
000074a0  2c 31 29 3a ed 0d 34 1c  24 e3 49 25 3d 30 b8 31  |,1):..4.$.I%=0.1|
000074b0  3a e3 54 25 3d 30 b8 31  33 3a f3 72 65 64 25 28  |:.T%=0.13:.red%(|
000074c0  54 25 2c 49 25 29 3a ed  2c 0d 34 26 27 43 58 25  |T%,I%):.,.4&'CX%|
000074d0  3d 30 3a 43 59 25 3d 30  3a 53 58 25 3d 30 3a 53  |=0:CY%=0:SX%=0:S|
000074e0  59 25 3d 30 3a 58 49 25  3d 30 3a 59 49 25 3d 30  |Y%=0:XI%=0:YI%=0|
000074f0  0d 34 30 25 68 25 3d 30  3a 78 31 25 3d 30 3a 79  |.40%h%=0:x1%=0:y|
00007500  31 25 3d 30 3a 4b 25 3d  30 3a 42 59 25 3d 30 3a  |1%=0:K%=0:BY%=0:|
00007510  62 73 25 3d 30 0d 34 3a  16 64 65 66 6e 61 6d 65  |bs%=0.4:.defname|
00007520  24 28 31 29 3d 22 4a 4f  48 4e 22 0d 34 44 18 64  |$(1)="JOHN".4D.d|
00007530  65 66 6e 61 6d 65 24 28  32 29 3d 22 47 45 4f 52  |efname$(2)="GEOR|
00007540  47 45 22 0d 34 4e 16 64  65 66 6e 61 6d 65 24 28  |GE".4N.defname$(|
00007550  33 29 3d 22 50 41 55 4c  22 0d 34 58 17 64 65 66  |3)="PAUL".4X.def|
00007560  6e 61 6d 65 24 28 34 29  3d 22 52 49 4e 47 4f 22  |name$(4)="RINGO"|
00007570  0d 34 62 16 64 65 66 6e  61 6d 65 24 28 35 29 3d  |.4b.defname$(5)=|
00007580  22 4d 49 43 4b 22 0d 34  6c 17 64 65 66 6e 61 6d  |"MICK".4l.defnam|
00007590  65 24 28 36 29 3d 22 4a  45 52 52 59 22 0d 34 76  |e$(6)="JERRY".4v|
000075a0  09 f2 63 6f 64 65 0d 34  80 15 c8 99 22 48 6f 75  |..code.4...."Hou|
000075b0  72 67 6c 61 73 73 5f 4f  66 66 22 0d 34 8a 0c 2a  |rglass_Off".4..*|
000075c0  50 4f 49 4e 54 45 52 0d  34 94 08 c8 97 20 87 0d  |POINTER.4.... ..|
000075d0  34 9e 10 c8 97 fb 31 2c  30 2c 32 34 30 2c 30 0d  |4.....1,0,240,0.|
000075e0  34 a8 10 c8 97 fb 32 2c  30 2c 31 32 38 2c 30 0d  |4.....2,0,128,0.|
000075f0  34 b2 05 e1 0d 34 bc 12  dc 31 2c 32 2c 31 20 57  |4....4...1,2,1 W|
00007600  4f 4f 44 2c 37 34 0d 34  c6 12 dc 31 2c 33 2c 33  |OOD,74.4...1,3,3|
00007610  20 57 4f 4f 44 2c 37 30  0d 34 d0 12 dc 31 2c 34  | WOOD,70.4...1,4|
00007620  2c 35 20 57 4f 4f 44 2c  36 38 0d 34 da 12 dc 39  |,5 WOOD,68.4...9|
00007630  2c 32 2c 31 20 49 52 4f  4e 2c 36 37 0d 34 e4 12  |,2,1 IRON,67.4..|
00007640  dc 39 2c 33 2c 32 20 49  52 4f 4e 2c 36 35 0d 34  |.9,3,2 IRON,65.4|
00007650  ee 12 dc 39 2c 34 2c 33  20 49 52 4f 4e 2c 36 33  |...9,4,3 IRON,63|
00007660  0d 34 f8 12 dc 39 2c 35  2c 34 20 49 52 4f 4e 2c  |.4...9,5,4 IRON,|
00007670  36 31 0d 35 02 12 dc 39  2c 36 2c 35 20 49 52 4f  |61.5...9,6,5 IRO|
00007680  4e 2c 35 39 0d 35 0c 12  dc 39 2c 37 2c 36 20 49  |N,59.5...9,7,6 I|
00007690  52 4f 4e 2c 35 37 0d 35  16 13 dc 31 37 2c 32 2c  |RON,57.5...17,2,|
000076a0  37 20 49 52 4f 4e 2c 35  35 0d 35 20 13 dc 31 37  |7 IRON,55.5 ..17|
000076b0  2c 33 2c 38 20 49 52 4f  4e 2c 35 33 0d 35 2a 13  |,3,8 IRON,53.5*.|
000076c0  dc 31 37 2c 34 2c 39 20  49 52 4f 4e 2c 34 38 0d  |.17,4,9 IRON,48.|
000076d0  35 34 12 dc 31 37 2c 36  2c 57 45 44 47 45 2c 34  |54..17,6,WEDGE,4|
000076e0  31 0d 35 3e 13 dc 31 37  2c 37 2c 50 55 54 54 45  |1.5>..17,7,PUTTE|
000076f0  52 2c 36 30 0d 35 48 18  dc 39 2c 31 30 2c 31 30  |R,60.5H..9,10,10|
00007700  2c 31 31 2c 31 31 2c 39  2c 39 2c 39 0d 35 52 2f  |,11,11,9,9,9.5R/|
00007710  dc 33 30 2c 34 30 2c 34  38 2c 35 35 2c 36 31 2c  |.30,40,48,55,61,|
00007720  36 36 2c 37 31 2c 37 36  2c 38 31 2c 38 35 2c 38  |66,71,76,81,85,8|
00007730  39 2c 39 33 2c 39 36 2c  31 30 30 0d 35 5c 27 dc  |9,93,96,100.5\'.|
00007740  31 2c 31 2c 31 2c 31 2c  31 2c 31 2c 31 35 2c 34  |1,1,1,1,1,1,15,4|
00007750  30 2c 35 35 2c 36 36 2c  37 36 2c 38 35 2c 39 33  |0,55,66,76,85,93|
00007760  2c 31 0d 35 66 07 f4 20  15 0d 35 70 11 dd f2 63  |,1.5f.. ..5p...c|
00007770  6f 6c 6f 75 72 73 28 4d  25 29 0d 35 7a 0c c8 96  |olours(M%).5z...|
00007780  3a eb 4d 25 3a 87 0d 35  84 0d f2 6d 61 69 6e 63  |:.M%:..5...mainc|
00007790  6f 6c 73 0d 35 8e 0f ef  32 33 2c 31 37 2c 34 2c  |ols.5...23,17,4,|
000077a0  31 7c 0d 35 98 29 ef 32  33 2c 32 2c 26 45 46 2c  |1|.5.).23,2,&EF,|
000077b0  26 46 45 2c 26 45 46 2c  26 46 45 2c 26 45 46 2c  |&FE,&EF,&FE,&EF,|
000077c0  26 46 45 2c 26 45 46 2c  26 46 45 0d 35 a2 29 ef  |&FE,&EF,&FE.5.).|
000077d0  32 33 2c 33 2c 26 31 32  2c 26 32 31 2c 26 31 32  |23,3,&12,&21,&12|
000077e0  2c 26 32 31 2c 26 31 32  2c 26 32 31 2c 26 31 32  |,&21,&12,&21,&12|
000077f0  2c 26 32 31 0d 35 ac 29  ef 32 33 2c 34 2c 26 43  |,&21.5.).23,4,&C|
00007800  30 2c 26 30 43 2c 26 43  30 2c 26 30 43 2c 26 43  |0,&0C,&C0,&0C,&C|
00007810  30 2c 26 30 43 2c 26 43  30 2c 26 30 43 0d 35 b6  |0,&0C,&C0,&0C.5.|
00007820  29 ef 32 33 2c 35 2c 26  44 34 2c 26 34 44 2c 26  |).23,5,&D4,&4D,&|
00007830  44 34 2c 26 34 44 2c 26  44 34 2c 26 34 44 2c 26  |D4,&4D,&D4,&4D,&|
00007840  44 34 2c 26 34 44 0d 35  c0 05 e1 0d 35 ca 0e dd  |D4,&4D.5....5...|
00007850  f2 6d 61 69 6e 63 6f 6c  73 0d 35 d4 07 f4 20 15  |.maincols.5... .|
00007860  0d 35 de 14 fb 30 2c 30  2c 30 2c 30 3a f4 20 42  |.5...0,0,0,0:. B|
00007870  4c 41 43 4b 0d 35 e8 1c  fb 31 2c 31 37 36 2c 31  |LACK.5...1,176,1|
00007880  32 38 2c 30 3a f4 20 44  41 52 4b 20 53 41 4e 44  |28,0:. DARK SAND|
00007890  0d 35 f2 1e fb 32 2c 31  37 36 2c 31 36 30 2c 34  |.5...2,176,160,4|
000078a0  38 3a f4 20 4c 49 47 48  54 20 53 41 4e 44 0d 35  |8:. LIGHT SAND.5|
000078b0  fc 1a fb 33 2c 32 30 38  2c 31 36 30 2c 31 34 34  |...3,208,160,144|
000078c0  3a f4 20 46 4c 45 53 48  0d 36 06 19 fb 34 2c 31  |:. FLESH.6...4,1|
000078d0  34 34 2c 31 34 34 2c 31  34 34 3a f4 20 50 41 54  |44,144,144:. PAT|
000078e0  48 0d 36 10 17 fb 35 2c  31 36 2c 32 30 38 2c 30  |H.6...5,16,208,0|
000078f0  3a f4 20 47 52 45 45 4e  0d 36 1a 19 fb 36 2c 33  |:. GREEN.6...6,3|
00007900  32 2c 31 34 34 2c 32 30  38 3a f4 20 57 41 54 45  |2,144,208:. WATE|
00007910  52 0d 36 24 18 fb 37 2c  30 2c 31 36 30 2c 30 3a  |R.6$..7,0,160,0:|
00007920  f4 20 46 41 49 52 57 41  59 0d 36 2e 14 fb 38 2c  |. FAIRWAY.6...8,|
00007930  32 30 38 2c 30 2c 30 3a  f4 20 52 45 44 0d 36 38  |208,0,0:. RED.68|
00007940  16 fb 39 2c 30 2c 31 31  32 2c 30 3a f4 20 52 4f  |..9,0,112,0:. RO|
00007950  55 47 48 0d 36 42 18 fb  31 30 2c 39 36 2c 31 39  |UGH.6B..10,96,19|
00007960  32 2c 32 32 34 3a f4 20  53 4b 59 0d 36 4c 1b fb  |2,224:. SKY.6L..|
00007970  31 31 2c 32 34 30 2c 32  34 30 2c 32 34 30 3a f4  |11,240,240,240:.|
00007980  20 57 48 49 54 45 0d 36  56 1d fb 31 32 2c 38 30  | WHITE.6V..12,80|
00007990  2c 34 38 2c 31 36 3a f4  20 44 41 52 4b 20 42 52  |,48,16:. DARK BR|
000079a0  4f 57 4e 0d 36 60 1e fb  31 33 2c 39 36 2c 36 34  |OWN.6`..13,96,64|
000079b0  2c 34 38 3a f4 20 4c 49  47 48 54 20 42 52 4f 57  |,48:. LIGHT BROW|
000079c0  4e 0d 36 6a 24 fb 31 34  2c 31 36 2c 36 34 2c 34  |N.6j$.14,16,64,4|
000079d0  38 3a f4 20 44 41 52 4b  20 47 52 45 45 4e 20 28  |8:. DARK GREEN (|
000079e0  54 52 45 45 29 0d 36 74  26 fb 31 35 2c 30 2c 39  |TREE).6t&.15,0,9|
000079f0  36 2c 36 34 3a f4 20 4c  49 47 48 54 45 52 20 47  |6,64:. LIGHTER G|
00007a00  52 45 45 4e 20 28 54 52  45 45 29 0d 36 7e 05 e1  |REEN (TREE).6~..|
00007a10  0d 36 88 07 f4 20 15 0d  36 92 0d dd f2 70 6f 69  |.6... ..6....poi|
00007a20  6e 74 65 72 0d 36 9c 15  de 70 61 72 20 32 30 2c  |nter.6...par 20,|
00007a30  62 6c 6f 63 6b 20 31 31  32 0d 36 a6 09 f7 8d 54  |block 112.6....T|
00007a40  54 77 0d 36 b0 1b e3 54  25 3d 30 b8 31 30 38 88  |Tw.6...T%=0.108.|
00007a50  34 3a f3 62 6c 6f 63 6b  21 54 25 3a ed 0d 36 ba  |4:.block!T%:..6.|
00007a60  0a 3f 70 61 72 3d 30 0d  36 c4 0b 70 61 72 3f 31  |.?par=0.6..par?1|
00007a70  3d 32 0d 36 ce 0b 70 61  72 3f 32 3d 38 0d 36 d8  |=2.6..par?2=8.6.|
00007a80  0c 70 61 72 3f 33 3d 31  34 0d 36 e2 0c 70 61 72  |.par?3=14.6..par|
00007a90  3f 34 3d 31 36 0d 36 ec  0b 70 61 72 3f 35 3d 37  |?4=16.6..par?5=7|
00007aa0  0d 36 f6 0f 70 61 72 21  36 3d 62 6c 6f 63 6b 0d  |.6..par!6=block.|
00007ab0  37 00 07 eb 31 32 0d 37  0a 2a 41 25 3d 32 31 3a  |7...12.7.*A%=21:|
00007ac0  42 25 3d 70 61 72 3a 43  25 3d 70 61 72 20 81 32  |B%=par:C%=par .2|
00007ad0  35 36 3a c8 99 20 37 2c  41 25 2c 42 25 2c 43 25  |56:.. 7,A%,B%,C%|
00007ae0  0d 37 14 b4 dc 26 41 41  41 41 2c 26 41 41 41 41  |.7...&AAAA,&AAAA|
00007af0  30 30 30 30 2c 26 39 35  35 36 2c 26 39 35 35 36  |0000,&9556,&9556|
00007b00  30 30 30 30 2c 26 41 41  39 36 2c 26 39 36 41 41  |0000,&AA96,&96AA|
00007b10  30 30 30 30 2c 26 41 36  2c 26 39 41 30 30 30 30  |0000,&A6,&9A0000|
00007b20  30 30 2c 26 32 41 2c 26  41 38 30 30 30 30 30 30  |00,&2A,&A8000000|
00007b30  2c 26 30 2c 26 30 2c 26  30 2c 26 30 2c 26 30 2c  |,&0,&0,&0,&0,&0,|
00007b40  26 30 2c 26 30 2c 26 30  2c 26 32 41 2c 26 41 38  |&0,&0,&0,&2A,&A8|
00007b50  30 30 30 30 30 30 2c 26  41 36 2c 26 39 41 30 30  |000000,&A6,&9A00|
00007b60  30 30 30 30 2c 26 41 41  39 36 2c 26 39 36 41 41  |0000,&AA96,&96AA|
00007b70  30 30 30 30 2c 26 39 35  35 36 2c 26 39 35 35 36  |0000,&9556,&9556|
00007b80  30 30 30 30 2c 26 41 41  41 41 2c 26 41 41 41 41  |0000,&AAAA,&AAAA|
00007b90  30 30 30 30 0d 37 1e 05  e1 0d 37 28 07 f4 20 15  |0000.7....7(.. .|
00007ba0  0d 37 32 0a dd f2 63 6f  64 65 0d 37 3c 2a ff 28  |.72...code.7<*.(|
00007bb0  22 4c 4f 41 44 20 3c 4f  62 65 79 24 44 69 72 3e  |"LOAD <Obey$Dir>|
00007bc0  2e 68 6f 6c 65 64 6f 75  74 34 20 22 2b c3 7e 63  |.holedout4 "+.~c|
00007bd0  6f 64 65 29 0d 37 46 16  70 6c 6f 74 62 61 6c 6c  |ode).7F.plotball|
00007be0  3d 63 6f 64 65 2b 26 31  38 38 0d 37 50 11 70 6c  |=code+&188.7P.pl|
00007bf0  6f 74 74 72 65 65 3d 63  6f 64 65 0d 37 5a 12 73  |ottree=code.7Z.s|
00007c00  6f 72 74 3d 63 6f 64 65  2b 26 37 45 30 0d 37 64  |ort=code+&7E0.7d|
00007c10  11 70 78 25 3d 63 6f 64  65 2b 26 31 35 38 0d 37  |.px%=code+&158.7|
00007c20  6e 11 74 72 25 3d 63 6f  64 65 2b 26 31 34 38 0d  |n.tr%=code+&148.|
00007c30  37 78 12 74 72 65 78 3d  63 6f 64 65 2b 26 34 42  |7x.trex=code+&4B|
00007c40  38 0d 37 82 12 74 72 65  79 3d 63 6f 64 65 2b 26  |8.7..trey=code+&|
00007c50  36 33 43 0d 37 8c 05 e1  0d 37 96 04 0d ff        |63C.7....7....|
00007c5e

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .