Home » Personal collection » Acorn tapes » Commercial_Releases » boxed_tape03a_acorn_holed_out_electron.wav » HOLEDOUT2
HOLEDOUT2
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Acorn tapes » Commercial_Releases » boxed_tape03a_acorn_holed_out_electron.wav |
| Filename: | HOLEDOUT2 |
| Read OK: | ✔ |
| File size: | 14AB bytes |
| Load address: | 0E00 |
| Exec address: | 0BBC |
Duplicates
There are 2 duplicate copies of this file in the archive:
- AEW website » 4thdimension » 4thdimension_5_25_discs_Holed-Out-Main_HD-HOLE.dsd » LOADIT2
- AEW website » 4thdimension » 4thdimension_tapes_Holed-Out-Main_HoledOut_E.uef » HOLEDOUT2
- Personal collection » Acorn tapes » Commercial_Releases » boxed_tape03a_acorn_holed_out_electron.wav » HOLEDOUT2
File contents
1REM HOLED OUT
2REM PROGRAMMED BY GORDON J KEY
3REM (C)1989 THE FOURTH DIMENSION
4REMOTHERWISE OTHERWISEOTHERWISEOTHERWISEOTHERWISE
30000*FX200,3
30020MODE1:VDU23;8202;0;0;0;0;19,2,2;0;19,3,6;0;
30030PROCin(0,STRING$(16," "),8,0,0,0)
30040*L.SCREEN
30050ENVELOPE1,3,0,0,0,0,0,0,16,-16,0,-24,126,0:ENVELOPE2,1,0,0,0,0,0,0,126,-8,-8,-8,126,0:ENVELOPE3,1,0,0,0,0,0,0,126,-8,-8,-8,126,0:ENVELOPE4,1,0,0,0,0,0,0,4,-1,-1,-1,126,0:IFRND(-TIME)
30060!&85=&76B553:!&88=RND:?&8C=14:?&8D=16:?&8E=8:PROCcode
30070ONERROR PROCin(0,"PROGRAMMED BY GORDON J KEY 1989",2,0,1,0):VDU7:Q=INKEY(200)
30080CLEAR:RESTORE:*FX200,2
30090DIMN$(3):FORT%=0TO3:READN$(T%):NEXT:N%=0
30100DATAJOHN,GEORGE,PAUL,RINGO
30110R$=CHR$17+CHR$1:G$=CHR$17+CHR$0
30120PROCin(0,R$+"M"+G$+"ATCH OR "+R$+"S"+G$+"TROKE PLAY ?",2,0,0,8)
30130REPEATA%=GETAND223:VDU7:UNTILA%=77ORA%=83:?&95=-(A%=77)
30140IFA%=83PROCin(0,"HOW MANY PLAYERS ? {1 to 4}",2,0,0,0):REPEAT:Q=GETOR16:VDU7:UNTILQ>48ANDQ<53:Q=Q-48:ELSE:Q=2
30150?&81=Q-1:P%=&BE0
30160FORT%=1TOQ:IFQ<>1READB$:ELSEB$=""
30170A$="ENTER THE"+B$+" PLAYERS NAME":PROCin(0,A$,4,0,0,0)
30180a$=FNinput:B$="IS "+a$+R$+" L"+G$+"EFT OR "+R$+"R"+G$+"IGHT HANDED ?":A$=a$+STRING$(6-LENa$," "):$P%=A$:PROCin(0,B$,2,0,0,8):REPEATA%=GETAND223:VDU7:UNTILA%=76ORA%=82
30190A%=-(A%=76):P%?6=A%:A$="WHAT IS "+a$+"'S SKILL LEVEL ?":PROCin(0,A$,8,0,0,0)
30200FORI%=1TO4
30210PRINT'" "R$;I%;G$"......";:PROCskil(I%):NEXT
30220REPEAT:A%=GETOR16:VDU7:UNTILA%>48ANDA%<53:P%?7=A%-49
30230P%=P%+8:NEXT
30240PROCin(0,"IS YOUR TV/MONITOR "+R$+"M"+G$+"ONO OR "+R$+"C"+G$+"OLOUR ?",2,0,0,8)
30250REPEATA%=GETAND223:VDU7:UNTILA%=67ORA%=77:?&80=1-(A%=77)*2
30260PROCin(0,"ARE THE FOLLOWING OPTIONS OK ?"+R$+" Y/N",6+Q,0,0,2)
30270PRINT:P%=&BE0:COLOUR0:PROCskil(12+?&95):PRINT"|- ";:PROCskil(Q+7)
30280FORT%=0TOQ-1:A%=0:REPEATB%=A%?P%:A%=A%+1:IFB%<>32VDUB%:ELSEVDU17,0,46
30290UNTILB%=32ORA%=6:REPEATVDU46:UNTILPOS=9::PROCskil((P%?7)+1)
30300REPEAT:VDU46:UNTILPOS=23:IF(P%?6)=0PRINT"R/HAND"ELSEPRINT"L/HAND"
30310P%=P%+8:NEXT:PRINT"USING A ";:PROCskil(?&80+4):PRINT" TV/MONITOR"
30320REPEAT:Q=GETAND223:UNTILQ=89ORQ=78:IFQ=78THEN30080
30340MODE1:VDU23;8202;0;0;0;0;:VDU19,2,2;0;:VDU19,3,6;0;
30350DATA" FIRST"," SECOND"," THIRD"," FOURTH"
30360PROCin(5,"PLEASE WAIT LOADING",8,1,1,0)
30370VDU26,5:PROCch1:VDU28,0,31,31,4
30380GCOL0,1:FORT=0TO1:O=T*4:MOVE1023+O,O:DRAW1023+O,765-O:DRAW1279-O,765-O:DRAW1279-O,O:DRAW1023+O,O:NEXT
30390A%=&2B63F:Y%=721:FORT%=0TO17:IF(A%AND2^T%)MOVE1031,Y%:DRAW1268,Y%
30400Y%=Y%-40:NEXT:O%=118:X%=1023:o=66
30410GCOL0,3:FORT%=1TO4:X%=X%+O%:MOVEX%,36:DRAWX%,32:MOVEX%,8:DRAWX%,12:O%=O%-o:o=o*.22:NEXT:VDU5
30420?&77=0:A%=31:CALLQ%:a$=CHR$0:b$=CHR$1:GCOL0,129:GCOL0,2:VDU24,1027;721;1279;765;5:CLG:MOVE1039,757:FORT%=128TO135:VDUT%:NEXT:GCOL3,131:VDU24,1031;725;1271;761;5:CLG:PROCchars:?&36D=3
30430PROCp(a$+CHR$4+"HOLE")
30440PROCp(a$+CHR$5+"PAR"):PROCp(a$+CHR$6+"LENGTH"):PROCp(a$+CHR$15+"RANGE"):PROCp(a$+CHR$18+"CLUB POWERMETER"):?&36D=2:PROCp(CHR$8+CHR$19+"O;")
30450COLOUR131:COLOUR1:VDU28,3,24,21,19:D%=0:Q%=1:!&96=10128:CALLR%
30460DEFPROCskil(A%)
30470ONA%GOTO30480,30490,30500,30510,30520,30530,30530,30540,30550,30560,30570,30580,30590
30480PRINT"BEGINNER";:ENDPROC
30490PRINT"ENTHUSIAST";:ENDPROC
30500PRINT"AMATEUR";:ENDPROC
30510PRINT"PROFESSIONAL";:ENDPROC
30520PRINT"COLOUR";:ENDPROC
30530PRINT"MONO";:ENDPROC
30540PRINT"ONE PLAYER":ENDPROC
30550PRINT"TWO PLAYERS":ENDPROC
30560PRINT"THREE PLAYERS":ENDPROC
30570PRINT"FOUR PLAYERS":ENDPROC
30580PRINT"STROKE PLAY";:ENDPROC
30590PRINT"MATCH PLAY ";:ENDPROC
30600DEFPROCin(E%,A$,H%,T%,c%,o%)
30610LOCALC%,A%,a%:A%=LENA$-o%:C%=(640-(A%)*16-8)-T%*256:a%=A%MOD2
30620H%=H%DIV2:COLOUR128:VDU26,28,0,31,39,19,12
30630FORT%=0TO8STEP4
30640VDU24,C%+T%-4+a%*16;184+T%-H%*32+E%*32;C%-T%+A%*32+16+a%*16;230-T%+H%*32+E%*32;
30650GCOL0,129+T%DIV4:CLG:NEXT:COLOUR131:COLOURc%
30660C%=(C%+16)DIV32:C%=C%+a%
30670VDU28,C%,25+H%-E%,C%+A%-1,26-H%-E%:CLS:PRINTA$;
30680ENDPROC
30690DEFFNinput:COLOUR1:A%=6-(Q<>1)*3:A$="":PRINTTAB(A%,2)"* *":PRINTTAB(A%+2,2);:REPEAT:A%=GET:IFA%=13THENUNTIL1:GOTO30730
30700IFA%=127ANDLENA$>0A$=LEFT$(A$,LENA$-1):VDU127
30710A%=A%AND223:IFA%>64ANDA%<91ANDLENA$<6 VDUA%:A$=A$+CHR$A%
30720VDU7:UNTIL0
30730IFA$=""A$=N$(N%):N%=N%+1:B$="I'LL CALL YOU "+A$+" FOR THIS GAME":PROCin(0,B$,2,0,0,0):VDU7:A%=INKEY(300)
30740=A$
30750DEFPROCp(A$):LOCALT%
30760FORT%=1TOLENA$:A%=ASC(MID$(A$,T%,1)):CALLQ%:NEXT
30770ENDPROC
30780DEFPROCcode
30790*L.FFEE 900
30800Q%=&900:FORT%=0TO2STEP2:P%=&B00:[OPTT%
30810.R%:LDA#0:LDX#&1F:.mp2l:STA&380,X:DEX:BPLmp2l
30820LDX#&6F:.mp3l:STA0,X:DEX:BPLmp3l
30830LDX#15:.mp1l:LDA&80,X:STA&60,X:DEX:BPLmp1l
30840LDX#dri MOD256:LDY#dri DIV256:JMP&FFF7
30850.dri
30860EQUS"RUN DRIVER2":EQUB13
30870]:NEXT
30880ENDPROC
30890DEFPROCch1
30900VDU23,128,204,205,205,253,253,205,205,204
30910VDU23,129,243,251,155,155,155,155,251,243
30920VDU23,130,7,7,6,7,7,6,247,247
30930VDU23,131,239,239,12,140,140,12,239,239
30940VDU23,132,131,199,198,198,198,198,199,131
30950VDU23,133,204,236,108,108,108,108,239,199
30960VDU23,134,223,223,198,198,198,198,198,134
30970VDU23,135,128,128,0,0,0,0,0,0
30980ENDPROC
30990DEFPROCchars
31000VDU23,128,112,136,136,248,136,136,136,0
31010VDU23,129,240,136,136,240,136,136,240,0
31020VDU23,130,112,136,128,128,128,136,112,0
31030VDU23,131,224,144,136,136,136,144,224,0
31040VDU23,132,248,128,128,240,128,128,248,0
31050VDU23,133,248,128,128,240,128,128,128,0
31060VDU23,134,120,128,128,152,136,136,120,0
31070VDU23,135,136,136,136,248,136,136,136,0
31080VDU23,136,112,32,32,32,32,32,112,0
31090VDU23,137,120,16,16,16,16,144,96,0
31100VDU23,138,136,144,160,192,160,144,136,0
31110VDU23,139,128,128,128,128,128,128,248,0
31120VDU23,140,136,216,168,168,136,136,136,0
31130VDU23,141,136,136,200,168,152,136,136,0
31140VDU23,142,112,136,136,136,136,136,112,0
31150VDU23,143,240,136,136,240,128,128,128,0
31160VDU23,144,112,136,136,136,168,144,104,0
31170VDU23,145,240,136,136,240,160,144,136,0
31180VDU23,146,120,128,128,112,8,8,240,0
31190VDU23,147,248,32,32,32,32,32,32,0
31200VDU23,148,136,136,136,136,136,136,112,0
31210VDU23,149,136,136,136,136,136,80,32,0
31220VDU23,150,136,136,136,168,168,168,80,0
31230VDU23,151,136,136,80,32,80,136,136,0
31240VDU23,152,136,136,136,80,32,32,32,0
31250VDU23,153,248,8,16,32,64,128,248,0
31260VDU23,154,32,96,32,32,32,32,112,0
31270VDU23,155,112,136,8,16,32,64,248,0
31280VDU23,156,248,16,32,16,8,136,112,0
31290VDU23,157,16,48,80,144,248,16,16,0
31300VDU23,158,248,128,240,8,8,136,112,0
31310ENDPROC
31320
� HOLED OUT
� PROGRAMMED BY GORDON J KEY
"� (C)1989 THE FOURTH DIMENSION
�
u0 *FX200,3
uD*�1:�23;8202;0;0;0;0;19,2,2;0;19,3,6;0;
uN�in(0,�16," "),8,0,0,0)
uX
*L.SCREEN
ub��1,3,0,0,0,0,0,0,16,-16,0,-24,126,0:�2,1,0,0,0,0,0,0,126,-8,-8,-8,126,0:�3,1,0,0,0,0,0,0,126,-8,-8,-8,126,0:�4,1,0,0,0,0,0,0,4,-1,-1,-1,126,0:�(-�)
ul4!&85=&76B553:!&88=�:?&8C=14:?&8D=16:?&8E=8:�code
uvC� �in(0,"PROGRAMMED BY GORDON J KEY 1989",2,0,1,0):�7:Q=�(200)
u��:�:*FX200,2
u�!�N$(3):�T%=0�3:�N$(T%):�:N%=0
u��JOHN,GEORGE,PAUL,RINGO
u�R$=�17+�1:G$=�17+�0
u�@�in(0,R$+"M"+G$+"ATCH OR "+R$+"S"+G$+"TROKE PLAY ?",2,0,0,8)
u�+�A%=��223:�7:�A%=77�A%=83:?&95=-(A%=77)
u�Z�A%=83�in(0,"HOW MANY PLAYERS ? {1 to 4}",2,0,0,0):�:Q=��16:�7:�Q>48�Q<53:Q=Q-48:�:Q=2
u�?&81=Q-1:P%=&BE0
u��T%=1�Q:�Q<>1�B$:�B$=""
u�7A$="ENTER THE"+B$+" PLAYERS NAME":�in(0,A$,4,0,0,0)
u�a$=�input:B$="IS "+a$+R$+" L"+G$+"EFT OR "+R$+"R"+G$+"IGHT HANDED ?":A$=a$+�6-�a$," "):$P%=A$:�in(0,B$,2,0,0,8):�A%=��223:�7:�A%=76�A%=82
u�MA%=-(A%=76):P%?6=A%:A$="WHAT IS "+a$+"'S SKILL LEVEL ?":�in(0,A$,8,0,0,0)
u� �I%=1�4
v'�'" "R$;I%;G$"......";:�skil(I%):�
v (�:A%=��16:�7:�A%>48�A%<53:P%?7=A%-49
v
P%=P%+8:�
v P�in(0,"IS YOUR TV/MONITOR "+R$+"M"+G$+"ONO OR "+R$+"C"+G$+"OLOUR ?",2,0,0,8)
v*.�A%=��223:�7:�A%=67�A%=77:?&80=1-(A%=77)*2
v4?�in(0,"ARE THE FOLLOWING OPTIONS OK ?"+R$+" Y/N",6+Q,0,0,2)
v>2�:P%=&BE0:�0:�skil(12+?&95):�"|- ";:�skil(Q+7)
vH9�T%=0�Q-1:A%=0:�B%=A%?P%:A%=A%+1:�B%<>32�B%:��17,0,46
vR*�B%=32�A%=6:��46:��=9::�skil((P%?7)+1)
v\,�:�46:��=23:�(P%?6)=0�"R/HAND"��"L/HAND"
vf7P%=P%+8:�:�"USING A ";:�skil(?&80+4):�" TV/MONITOR"
vp#�:Q=��223:�Q=89�Q=78:�Q=78��p@u
v�.�1:�23;8202;0;0;0;0;:�19,2,2;0;:�19,3,6;0;
v�*�" FIRST"," SECOND"," THIRD"," FOURTH"
v�(�in(5,"PLEASE WAIT LOADING",8,1,1,0)
v� �26,5:�ch1:�28,0,31,31,4
v�Q�0,1:�T=0�1:O=T*4:�1023+O,O:�1023+O,765-O:�1279-O,765-O:�1279-O,O:�1023+O,O:�
v�9A%=&2B63F:Y%=721:�T%=0�17:�(A%�2^T%)�1031,Y%:�1268,Y%
v�"Y%=Y%-40:�:O%=118:X%=1023:o=66
v�I�0,3:�T%=1�4:X%=X%+O%:�X%,36:�X%,32:�X%,8:�X%,12:O%=O%-o:o=o*.22:�:�5
vԒ?&77=0:A%=31:�Q%:a$=�0:b$=�1:�0,129:�0,2:�24,1027;721;1279;765;5:�:�1039,757:�T%=128�135:�T%:�:�3,131:�24,1031;725;1271;761;5:�:�chars:?&36D=3
v��p(a$+�4+"HOLE")
v�n�p(a$+�5+"PAR"):�p(a$+�6+"LENGTH"):�p(a$+�15+"RANGE"):�p(a$+�18+"CLUB POWERMETER"):?&36D=2:�p(�8+�19+"O;")
v�3�131:�1:�28,3,24,21,19:D%=0:Q%=1:!&96=10128:�R%
v���skil(A%)
wH�A%�PPw,�PZw,�Pdw,�Pnw,�Pxw,�@Bw,�@Bw,�@Lw,�@Vw,�@`w,�@jw,�@tw,�@~w
w�"BEGINNER";:�
w�"ENTHUSIAST";:�
w$�"AMATEUR";:�
w.�"PROFESSIONAL";:�
w8�"COLOUR";:�
wB�"MONO";:�
wL�"ONE PLAYER":�
wV�"TWO PLAYERS":�
w`�"THREE PLAYERS":�
wj�"FOUR PLAYERS":�
wt�"STROKE PLAY";:�
w~�"MATCH PLAY ";:�
w���in(E%,A$,H%,T%,c%,o%)
w�9�C%,A%,a%:A%=�A$-o%:C%=(640-(A%)*16-8)-T%*256:a%=A%�2
w�%H%=H%�2:�128:�26,28,0,31,39,19,12
w�
�T%=0�8�4
w�Q�24,C%+T%-4+a%*16;184+T%-H%*32+E%*32;C%-T%+A%*32+16+a%*16;230-T%+H%*32+E%*32;
w� �0,129+T%�4:�:�:�131:�c%
w�C%=(C%+16)�32:C%=C%+a%
w�+�28,C%,25+H%-E%,C%+A%-1,26-H%-E%:�:�A$;
w��
w�Xݤinput:�1:A%=6-(Q<>1)*3:A$="":�A%,2)"* *":�A%+2,2);:�:A%=�:�A%=13��1:�PJx
w�#�A%=127��A$>0A$=�A$,�A$-1):�127
w�.A%=A%�223:�A%>64�A%<91��A$<6 �A%:A$=A$+�A%
x �7:�0
x
b�A$=""A$=N$(N%):N%=N%+1:B$="I'LL CALL YOU "+A$+" FOR THIS GAME":�in(0,B$,2,0,0,0):�7:A%=�(300)
x=A$
x ��p(A$):�T%
x(#�T%=1��A$:A%=�(�A$,T%,1)):�Q%:�
x2�
x<
��code
xF*L.FFEE 900
xP$Q%=&900:�T%=0�2�2:P%=&B00:[OPTT%
xZ1.R%:LDA#0:LDX#&1F:.mp2l:STA&380,X:DEX:BPLmp2l
xd$LDX#&6F:.mp3l:STA0,X:DEX:BPLmp3l
xn.LDX#15:.mp1l:LDA&80,X:STA&60,X:DEX:BPLmp1l
xx&LDX#dri �256:LDY#dri �256:JMP&FFF7
x�.dri
x� EQUS"RUN DRIVER2":EQUB13
x�]:�
x��
x� ��ch1
x�+�23,128,204,205,205,253,253,205,205,204
x�+�23,129,243,251,155,155,155,155,251,243
x� �23,130,7,7,6,7,7,6,247,247
x�)�23,131,239,239,12,140,140,12,239,239
x�+�23,132,131,199,198,198,198,198,199,131
x�+�23,133,204,236,108,108,108,108,239,199
x�+�23,134,223,223,198,198,198,198,198,134
x� �23,135,128,128,0,0,0,0,0,0
y�
y ��chars
y)�23,128,112,136,136,248,136,136,136,0
y")�23,129,240,136,136,240,136,136,240,0
y,)�23,130,112,136,128,128,128,136,112,0
y6)�23,131,224,144,136,136,136,144,224,0
y@)�23,132,248,128,128,240,128,128,248,0
yJ)�23,133,248,128,128,240,128,128,128,0
yT)�23,134,120,128,128,152,136,136,120,0
y^)�23,135,136,136,136,248,136,136,136,0
yh$�23,136,112,32,32,32,32,32,112,0
yr$�23,137,120,16,16,16,16,144,96,0
y|)�23,138,136,144,160,192,160,144,136,0
y�)�23,139,128,128,128,128,128,128,248,0
y�)�23,140,136,216,168,168,136,136,136,0
y�)�23,141,136,136,200,168,152,136,136,0
y�)�23,142,112,136,136,136,136,136,112,0
y�)�23,143,240,136,136,240,128,128,128,0
y�)�23,144,112,136,136,136,168,144,104,0
y�)�23,145,240,136,136,240,160,144,136,0
y�%�23,146,120,128,128,112,8,8,240,0
y�#�23,147,248,32,32,32,32,32,32,0
y�)�23,148,136,136,136,136,136,136,112,0
y�'�23,149,136,136,136,136,136,80,32,0
y�(�23,150,136,136,136,168,168,168,80,0
y�&�23,151,136,136,80,32,80,136,136,0
z%�23,152,136,136,136,80,32,32,32,0
z$�23,153,248,8,16,32,64,128,248,0
z #�23,154,32,96,32,32,32,32,112,0
z&$�23,155,112,136,8,16,32,64,248,0
z0$�23,156,248,16,32,16,8,136,112,0
z:$�23,157,16,48,80,144,248,16,16,0
zD%�23,158,248,128,240,8,8,136,112,0
zN�
zX
� 00000000 0d 00 01 0f f4 20 48 4f 4c 45 44 20 4f 55 54 0d |..... HOLED OUT.|
00000010 00 02 20 f4 20 50 52 4f 47 52 41 4d 4d 45 44 20 |.. . PROGRAMMED |
00000020 42 59 20 47 4f 52 44 4f 4e 20 4a 20 4b 45 59 0d |BY GORDON J KEY.|
00000030 00 03 22 f4 20 28 43 29 31 39 38 39 20 54 48 45 |..". (C)1989 THE|
00000040 20 46 4f 55 52 54 48 20 44 49 4d 45 4e 53 49 4f | FOURTH DIMENSIO|
00000050 4e 0d 00 04 0d f4 7f 20 7f 7f 7f 7f 20 15 0d 75 |N...... .... ..u|
00000060 30 0c 2a 46 58 32 30 30 2c 33 0d 75 44 2a eb 31 |0.*FX200,3.uD*.1|
00000070 3a ef 32 33 3b 38 32 30 32 3b 30 3b 30 3b 30 3b |:.23;8202;0;0;0;|
00000080 30 3b 31 39 2c 32 2c 32 3b 30 3b 31 39 2c 33 2c |0;19,2,2;0;19,3,|
00000090 36 3b 30 3b 0d 75 4e 1b f2 69 6e 28 30 2c c4 31 |6;0;.uN..in(0,.1|
000000a0 36 2c 22 20 22 29 2c 38 2c 30 2c 30 2c 30 29 0d |6," "),8,0,0,0).|
000000b0 75 58 0d 2a 4c 2e 53 43 52 45 45 4e 0d 75 62 98 |uX.*L.SCREEN.ub.|
000000c0 e2 31 2c 33 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 |.1,3,0,0,0,0,0,0|
000000d0 2c 31 36 2c 2d 31 36 2c 30 2c 2d 32 34 2c 31 32 |,16,-16,0,-24,12|
000000e0 36 2c 30 3a e2 32 2c 31 2c 30 2c 30 2c 30 2c 30 |6,0:.2,1,0,0,0,0|
000000f0 2c 30 2c 30 2c 31 32 36 2c 2d 38 2c 2d 38 2c 2d |,0,0,126,-8,-8,-|
00000100 38 2c 31 32 36 2c 30 3a e2 33 2c 31 2c 30 2c 30 |8,126,0:.3,1,0,0|
00000110 2c 30 2c 30 2c 30 2c 30 2c 31 32 36 2c 2d 38 2c |,0,0,0,0,126,-8,|
00000120 2d 38 2c 2d 38 2c 31 32 36 2c 30 3a e2 34 2c 31 |-8,-8,126,0:.4,1|
00000130 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 34 2c 2d |,0,0,0,0,0,0,4,-|
00000140 31 2c 2d 31 2c 2d 31 2c 31 32 36 2c 30 3a e7 b3 |1,-1,-1,126,0:..|
00000150 28 2d 91 29 0d 75 6c 34 21 26 38 35 3d 26 37 36 |(-.).ul4!&85=&76|
00000160 42 35 35 33 3a 21 26 38 38 3d b3 3a 3f 26 38 43 |B553:!&88=.:?&8C|
00000170 3d 31 34 3a 3f 26 38 44 3d 31 36 3a 3f 26 38 45 |=14:?&8D=16:?&8E|
00000180 3d 38 3a f2 63 6f 64 65 0d 75 76 43 ee 85 20 f2 |=8:.code.uvC.. .|
00000190 69 6e 28 30 2c 22 50 52 4f 47 52 41 4d 4d 45 44 |in(0,"PROGRAMMED|
000001a0 20 42 59 20 47 4f 52 44 4f 4e 20 4a 20 4b 45 59 | BY GORDON J KEY|
000001b0 20 31 39 38 39 22 2c 32 2c 30 2c 31 2c 30 29 3a | 1989",2,0,1,0):|
000001c0 ef 37 3a 51 3d a6 28 32 30 30 29 0d 75 80 10 d8 |.7:Q=.(200).u...|
000001d0 3a f7 3a 2a 46 58 32 30 30 2c 32 0d 75 8a 21 de |:.:*FX200,2.u.!.|
000001e0 4e 24 28 33 29 3a e3 54 25 3d 30 b8 33 3a f3 4e |N$(3):.T%=0.3:.N|
000001f0 24 28 54 25 29 3a ed 3a 4e 25 3d 30 0d 75 94 1b |$(T%):.:N%=0.u..|
00000200 dc 4a 4f 48 4e 2c 47 45 4f 52 47 45 2c 50 41 55 |.JOHN,GEORGE,PAU|
00000210 4c 2c 52 49 4e 47 4f 0d 75 9e 17 52 24 3d bd 31 |L,RINGO.u..R$=.1|
00000220 37 2b bd 31 3a 47 24 3d bd 31 37 2b bd 30 0d 75 |7+.1:G$=.17+.0.u|
00000230 a8 40 f2 69 6e 28 30 2c 52 24 2b 22 4d 22 2b 47 |.@.in(0,R$+"M"+G|
00000240 24 2b 22 41 54 43 48 20 4f 52 20 22 2b 52 24 2b |$+"ATCH OR "+R$+|
00000250 22 53 22 2b 47 24 2b 22 54 52 4f 4b 45 20 50 4c |"S"+G$+"TROKE PL|
00000260 41 59 20 3f 22 2c 32 2c 30 2c 30 2c 38 29 0d 75 |AY ?",2,0,0,8).u|
00000270 b2 2b f5 41 25 3d a5 80 32 32 33 3a ef 37 3a fd |.+.A%=..223:.7:.|
00000280 41 25 3d 37 37 84 41 25 3d 38 33 3a 3f 26 39 35 |A%=77.A%=83:?&95|
00000290 3d 2d 28 41 25 3d 37 37 29 0d 75 bc 5a e7 41 25 |=-(A%=77).u.Z.A%|
000002a0 3d 38 33 f2 69 6e 28 30 2c 22 48 4f 57 20 4d 41 |=83.in(0,"HOW MA|
000002b0 4e 59 20 50 4c 41 59 45 52 53 20 3f 20 7b 31 20 |NY PLAYERS ? {1 |
000002c0 74 6f 20 34 7d 22 2c 32 2c 30 2c 30 2c 30 29 3a |to 4}",2,0,0,0):|
000002d0 f5 3a 51 3d a5 84 31 36 3a ef 37 3a fd 51 3e 34 |.:Q=..16:.7:.Q>4|
000002e0 38 80 51 3c 35 33 3a 51 3d 51 2d 34 38 3a 8b 3a |8.Q<53:Q=Q-48:.:|
000002f0 51 3d 32 0d 75 c6 14 3f 26 38 31 3d 51 2d 31 3a |Q=2.u..?&81=Q-1:|
00000300 50 25 3d 26 42 45 30 0d 75 d0 1b e3 54 25 3d 31 |P%=&BE0.u...T%=1|
00000310 b8 51 3a e7 51 3c 3e 31 f3 42 24 3a 8b 42 24 3d |.Q:.Q<>1.B$:.B$=|
00000320 22 22 0d 75 da 37 41 24 3d 22 45 4e 54 45 52 20 |"".u.7A$="ENTER |
00000330 54 48 45 22 2b 42 24 2b 22 20 50 4c 41 59 45 52 |THE"+B$+" PLAYER|
00000340 53 20 4e 41 4d 45 22 3a f2 69 6e 28 30 2c 41 24 |S NAME":.in(0,A$|
00000350 2c 34 2c 30 2c 30 2c 30 29 0d 75 e4 8d 61 24 3d |,4,0,0,0).u..a$=|
00000360 a4 69 6e 70 75 74 3a 42 24 3d 22 49 53 20 22 2b |.input:B$="IS "+|
00000370 61 24 2b 52 24 2b 22 20 4c 22 2b 47 24 2b 22 45 |a$+R$+" L"+G$+"E|
00000380 46 54 20 4f 52 20 22 2b 52 24 2b 22 52 22 2b 47 |FT OR "+R$+"R"+G|
00000390 24 2b 22 49 47 48 54 20 48 41 4e 44 45 44 20 3f |$+"IGHT HANDED ?|
000003a0 22 3a 41 24 3d 61 24 2b c4 36 2d a9 61 24 2c 22 |":A$=a$+.6-.a$,"|
000003b0 20 22 29 3a 24 50 25 3d 41 24 3a f2 69 6e 28 30 | "):$P%=A$:.in(0|
000003c0 2c 42 24 2c 32 2c 30 2c 30 2c 38 29 3a f5 41 25 |,B$,2,0,0,8):.A%|
000003d0 3d a5 80 32 32 33 3a ef 37 3a fd 41 25 3d 37 36 |=..223:.7:.A%=76|
000003e0 84 41 25 3d 38 32 0d 75 ee 4d 41 25 3d 2d 28 41 |.A%=82.u.MA%=-(A|
000003f0 25 3d 37 36 29 3a 50 25 3f 36 3d 41 25 3a 41 24 |%=76):P%?6=A%:A$|
00000400 3d 22 57 48 41 54 20 49 53 20 22 2b 61 24 2b 22 |="WHAT IS "+a$+"|
00000410 27 53 20 53 4b 49 4c 4c 20 4c 45 56 45 4c 20 3f |'S SKILL LEVEL ?|
00000420 22 3a f2 69 6e 28 30 2c 41 24 2c 38 2c 30 2c 30 |":.in(0,A$,8,0,0|
00000430 2c 30 29 0d 75 f8 0b e3 49 25 3d 31 b8 34 0d 76 |,0).u...I%=1.4.v|
00000440 02 27 f1 27 22 20 20 22 52 24 3b 49 25 3b 47 24 |.'.'" "R$;I%;G$|
00000450 22 2e 2e 2e 2e 2e 2e 22 3b 3a f2 73 6b 69 6c 28 |"......";:.skil(|
00000460 49 25 29 3a ed 0d 76 0c 28 f5 3a 41 25 3d a5 84 |I%):..v.(.:A%=..|
00000470 31 36 3a ef 37 3a fd 41 25 3e 34 38 80 41 25 3c |16:.7:.A%>48.A%<|
00000480 35 33 3a 50 25 3f 37 3d 41 25 2d 34 39 0d 76 16 |53:P%?7=A%-49.v.|
00000490 0d 50 25 3d 50 25 2b 38 3a ed 0d 76 20 50 f2 69 |.P%=P%+8:..v P.i|
000004a0 6e 28 30 2c 22 49 53 20 59 4f 55 52 20 54 56 2f |n(0,"IS YOUR TV/|
000004b0 4d 4f 4e 49 54 4f 52 20 22 2b 52 24 2b 22 4d 22 |MONITOR "+R$+"M"|
000004c0 2b 47 24 2b 22 4f 4e 4f 20 4f 52 20 22 2b 52 24 |+G$+"ONO OR "+R$|
000004d0 2b 22 43 22 2b 47 24 2b 22 4f 4c 4f 55 52 20 3f |+"C"+G$+"OLOUR ?|
000004e0 22 2c 32 2c 30 2c 30 2c 38 29 0d 76 2a 2e f5 41 |",2,0,0,8).v*..A|
000004f0 25 3d a5 80 32 32 33 3a ef 37 3a fd 41 25 3d 36 |%=..223:.7:.A%=6|
00000500 37 84 41 25 3d 37 37 3a 3f 26 38 30 3d 31 2d 28 |7.A%=77:?&80=1-(|
00000510 41 25 3d 37 37 29 2a 32 0d 76 34 3f f2 69 6e 28 |A%=77)*2.v4?.in(|
00000520 30 2c 22 41 52 45 20 54 48 45 20 46 4f 4c 4c 4f |0,"ARE THE FOLLO|
00000530 57 49 4e 47 20 4f 50 54 49 4f 4e 53 20 4f 4b 20 |WING OPTIONS OK |
00000540 3f 22 2b 52 24 2b 22 20 59 2f 4e 22 2c 36 2b 51 |?"+R$+" Y/N",6+Q|
00000550 2c 30 2c 30 2c 32 29 0d 76 3e 32 f1 3a 50 25 3d |,0,0,2).v>2.:P%=|
00000560 26 42 45 30 3a fb 30 3a f2 73 6b 69 6c 28 31 32 |&BE0:.0:.skil(12|
00000570 2b 3f 26 39 35 29 3a f1 22 7c 2d 20 22 3b 3a f2 |+?&95):."|- ";:.|
00000580 73 6b 69 6c 28 51 2b 37 29 0d 76 48 39 e3 54 25 |skil(Q+7).vH9.T%|
00000590 3d 30 b8 51 2d 31 3a 41 25 3d 30 3a f5 42 25 3d |=0.Q-1:A%=0:.B%=|
000005a0 41 25 3f 50 25 3a 41 25 3d 41 25 2b 31 3a e7 42 |A%?P%:A%=A%+1:.B|
000005b0 25 3c 3e 33 32 ef 42 25 3a 8b ef 31 37 2c 30 2c |%<>32.B%:..17,0,|
000005c0 34 36 0d 76 52 2a fd 42 25 3d 33 32 84 41 25 3d |46.vR*.B%=32.A%=|
000005d0 36 3a f5 ef 34 36 3a fd b1 3d 39 3a 3a f2 73 6b |6:..46:..=9::.sk|
000005e0 69 6c 28 28 50 25 3f 37 29 2b 31 29 0d 76 5c 2c |il((P%?7)+1).v\,|
000005f0 f5 3a ef 34 36 3a fd b1 3d 32 33 3a e7 28 50 25 |.:.46:..=23:.(P%|
00000600 3f 36 29 3d 30 f1 22 52 2f 48 41 4e 44 22 8b f1 |?6)=0."R/HAND"..|
00000610 22 4c 2f 48 41 4e 44 22 0d 76 66 37 50 25 3d 50 |"L/HAND".vf7P%=P|
00000620 25 2b 38 3a ed 3a f1 22 55 53 49 4e 47 20 41 20 |%+8:.:."USING A |
00000630 22 3b 3a f2 73 6b 69 6c 28 3f 26 38 30 2b 34 29 |";:.skil(?&80+4)|
00000640 3a f1 22 20 54 56 2f 4d 4f 4e 49 54 4f 52 22 0d |:." TV/MONITOR".|
00000650 76 70 23 f5 3a 51 3d a5 80 32 32 33 3a fd 51 3d |vp#.:Q=..223:.Q=|
00000660 38 39 84 51 3d 37 38 3a e7 51 3d 37 38 8c 8d 70 |89.Q=78:.Q=78..p|
00000670 40 75 0d 76 84 2e eb 31 3a ef 32 33 3b 38 32 30 |@u.v...1:.23;820|
00000680 32 3b 30 3b 30 3b 30 3b 30 3b 3a ef 31 39 2c 32 |2;0;0;0;0;:.19,2|
00000690 2c 32 3b 30 3b 3a ef 31 39 2c 33 2c 36 3b 30 3b |,2;0;:.19,3,6;0;|
000006a0 0d 76 8e 2a dc 22 20 46 49 52 53 54 22 2c 22 20 |.v.*." FIRST"," |
000006b0 53 45 43 4f 4e 44 22 2c 22 20 54 48 49 52 44 22 |SECOND"," THIRD"|
000006c0 2c 22 20 46 4f 55 52 54 48 22 0d 76 98 28 f2 69 |," FOURTH".v.(.i|
000006d0 6e 28 35 2c 22 50 4c 45 41 53 45 20 57 41 49 54 |n(5,"PLEASE WAIT|
000006e0 20 4c 4f 41 44 49 4e 47 22 2c 38 2c 31 2c 31 2c | LOADING",8,1,1,|
000006f0 30 29 0d 76 a2 1c ef 32 36 2c 35 3a f2 63 68 31 |0).v...26,5:.ch1|
00000700 3a ef 32 38 2c 30 2c 33 31 2c 33 31 2c 34 0d 76 |:.28,0,31,31,4.v|
00000710 ac 51 e6 30 2c 31 3a e3 54 3d 30 b8 31 3a 4f 3d |.Q.0,1:.T=0.1:O=|
00000720 54 2a 34 3a ec 31 30 32 33 2b 4f 2c 4f 3a df 31 |T*4:.1023+O,O:.1|
00000730 30 32 33 2b 4f 2c 37 36 35 2d 4f 3a df 31 32 37 |023+O,765-O:.127|
00000740 39 2d 4f 2c 37 36 35 2d 4f 3a df 31 32 37 39 2d |9-O,765-O:.1279-|
00000750 4f 2c 4f 3a df 31 30 32 33 2b 4f 2c 4f 3a ed 0d |O,O:.1023+O,O:..|
00000760 76 b6 39 41 25 3d 26 32 42 36 33 46 3a 59 25 3d |v.9A%=&2B63F:Y%=|
00000770 37 32 31 3a e3 54 25 3d 30 b8 31 37 3a e7 28 41 |721:.T%=0.17:.(A|
00000780 25 80 32 5e 54 25 29 ec 31 30 33 31 2c 59 25 3a |%.2^T%).1031,Y%:|
00000790 df 31 32 36 38 2c 59 25 0d 76 c0 22 59 25 3d 59 |.1268,Y%.v."Y%=Y|
000007a0 25 2d 34 30 3a ed 3a 4f 25 3d 31 31 38 3a 58 25 |%-40:.:O%=118:X%|
000007b0 3d 31 30 32 33 3a 6f 3d 36 36 0d 76 ca 49 e6 30 |=1023:o=66.v.I.0|
000007c0 2c 33 3a e3 54 25 3d 31 b8 34 3a 58 25 3d 58 25 |,3:.T%=1.4:X%=X%|
000007d0 2b 4f 25 3a ec 58 25 2c 33 36 3a df 58 25 2c 33 |+O%:.X%,36:.X%,3|
000007e0 32 3a ec 58 25 2c 38 3a df 58 25 2c 31 32 3a 4f |2:.X%,8:.X%,12:O|
000007f0 25 3d 4f 25 2d 6f 3a 6f 3d 6f 2a 2e 32 32 3a ed |%=O%-o:o=o*.22:.|
00000800 3a ef 35 0d 76 d4 92 3f 26 37 37 3d 30 3a 41 25 |:.5.v..?&77=0:A%|
00000810 3d 33 31 3a d6 51 25 3a 61 24 3d bd 30 3a 62 24 |=31:.Q%:a$=.0:b$|
00000820 3d bd 31 3a e6 30 2c 31 32 39 3a e6 30 2c 32 3a |=.1:.0,129:.0,2:|
00000830 ef 32 34 2c 31 30 32 37 3b 37 32 31 3b 31 32 37 |.24,1027;721;127|
00000840 39 3b 37 36 35 3b 35 3a da 3a ec 31 30 33 39 2c |9;765;5:.:.1039,|
00000850 37 35 37 3a e3 54 25 3d 31 32 38 b8 31 33 35 3a |757:.T%=128.135:|
00000860 ef 54 25 3a ed 3a e6 33 2c 31 33 31 3a ef 32 34 |.T%:.:.3,131:.24|
00000870 2c 31 30 33 31 3b 37 32 35 3b 31 32 37 31 3b 37 |,1031;725;1271;7|
00000880 36 31 3b 35 3a da 3a f2 63 68 61 72 73 3a 3f 26 |61;5:.:.chars:?&|
00000890 33 36 44 3d 33 0d 76 de 14 f2 70 28 61 24 2b bd |36D=3.v...p(a$+.|
000008a0 34 2b 22 48 4f 4c 45 22 29 0d 76 e8 6e f2 70 28 |4+"HOLE").v.n.p(|
000008b0 61 24 2b bd 35 2b 22 50 41 52 22 29 3a f2 70 28 |a$+.5+"PAR"):.p(|
000008c0 61 24 2b bd 36 2b 22 4c 45 4e 47 54 48 22 29 3a |a$+.6+"LENGTH"):|
000008d0 f2 70 28 61 24 2b bd 31 35 2b 22 52 41 4e 47 45 |.p(a$+.15+"RANGE|
000008e0 22 29 3a f2 70 28 61 24 2b bd 31 38 2b 22 43 4c |"):.p(a$+.18+"CL|
000008f0 55 42 20 50 4f 57 45 52 4d 45 54 45 52 22 29 3a |UB POWERMETER"):|
00000900 3f 26 33 36 44 3d 32 3a f2 70 28 bd 38 2b bd 31 |?&36D=2:.p(.8+.1|
00000910 39 2b 22 4f 3b 22 29 0d 76 f2 33 fb 31 33 31 3a |9+"O;").v.3.131:|
00000920 fb 31 3a ef 32 38 2c 33 2c 32 34 2c 32 31 2c 31 |.1:.28,3,24,21,1|
00000930 39 3a 44 25 3d 30 3a 51 25 3d 31 3a 21 26 39 36 |9:D%=0:Q%=1:!&96|
00000940 3d 31 30 31 32 38 3a d6 52 25 0d 76 fc 0e dd f2 |=10128:.R%.v....|
00000950 73 6b 69 6c 28 41 25 29 0d 77 06 48 ee 41 25 e5 |skil(A%).w.H.A%.|
00000960 8d 50 50 77 2c 8d 50 5a 77 2c 8d 50 64 77 2c 8d |.PPw,.PZw,.Pdw,.|
00000970 50 6e 77 2c 8d 50 78 77 2c 8d 40 42 77 2c 8d 40 |Pnw,.Pxw,.@Bw,.@|
00000980 42 77 2c 8d 40 4c 77 2c 8d 40 56 77 2c 8d 40 60 |Bw,.@Lw,.@Vw,.@`|
00000990 77 2c 8d 40 6a 77 2c 8d 40 74 77 2c 8d 40 7e 77 |w,.@jw,.@tw,.@~w|
000009a0 0d 77 10 12 f1 22 42 45 47 49 4e 4e 45 52 22 3b |.w..."BEGINNER";|
000009b0 3a e1 0d 77 1a 14 f1 22 45 4e 54 48 55 53 49 41 |:..w..."ENTHUSIA|
000009c0 53 54 22 3b 3a e1 0d 77 24 11 f1 22 41 4d 41 54 |ST";:..w$.."AMAT|
000009d0 45 55 52 22 3b 3a e1 0d 77 2e 16 f1 22 50 52 4f |EUR";:..w..."PRO|
000009e0 46 45 53 53 49 4f 4e 41 4c 22 3b 3a e1 0d 77 38 |FESSIONAL";:..w8|
000009f0 10 f1 22 43 4f 4c 4f 55 52 22 3b 3a e1 0d 77 42 |.."COLOUR";:..wB|
00000a00 0e f1 22 4d 4f 4e 4f 22 3b 3a e1 0d 77 4c 13 f1 |.."MONO";:..wL..|
00000a10 22 4f 4e 45 20 50 4c 41 59 45 52 22 3a e1 0d 77 |"ONE PLAYER":..w|
00000a20 56 14 f1 22 54 57 4f 20 50 4c 41 59 45 52 53 22 |V.."TWO PLAYERS"|
00000a30 3a e1 0d 77 60 16 f1 22 54 48 52 45 45 20 50 4c |:..w`.."THREE PL|
00000a40 41 59 45 52 53 22 3a e1 0d 77 6a 15 f1 22 46 4f |AYERS":..wj.."FO|
00000a50 55 52 20 50 4c 41 59 45 52 53 22 3a e1 0d 77 74 |UR PLAYERS":..wt|
00000a60 15 f1 22 53 54 52 4f 4b 45 20 50 4c 41 59 22 3b |.."STROKE PLAY";|
00000a70 3a e1 0d 77 7e 15 f1 22 4d 41 54 43 48 20 50 4c |:..w~.."MATCH PL|
00000a80 41 59 20 22 3b 3a e1 0d 77 88 1b dd f2 69 6e 28 |AY ";:..w....in(|
00000a90 45 25 2c 41 24 2c 48 25 2c 54 25 2c 63 25 2c 6f |E%,A$,H%,T%,c%,o|
00000aa0 25 29 0d 77 92 39 ea 43 25 2c 41 25 2c 61 25 3a |%).w.9.C%,A%,a%:|
00000ab0 41 25 3d a9 41 24 2d 6f 25 3a 43 25 3d 28 36 34 |A%=.A$-o%:C%=(64|
00000ac0 30 2d 28 41 25 29 2a 31 36 2d 38 29 2d 54 25 2a |0-(A%)*16-8)-T%*|
00000ad0 32 35 36 3a 61 25 3d 41 25 83 32 0d 77 9c 25 48 |256:a%=A%.2.w.%H|
00000ae0 25 3d 48 25 81 32 3a fb 31 32 38 3a ef 32 36 2c |%=H%.2:.128:.26,|
00000af0 32 38 2c 30 2c 33 31 2c 33 39 2c 31 39 2c 31 32 |28,0,31,39,19,12|
00000b00 0d 77 a6 0d e3 54 25 3d 30 b8 38 88 34 0d 77 b0 |.w...T%=0.8.4.w.|
00000b10 51 ef 32 34 2c 43 25 2b 54 25 2d 34 2b 61 25 2a |Q.24,C%+T%-4+a%*|
00000b20 31 36 3b 31 38 34 2b 54 25 2d 48 25 2a 33 32 2b |16;184+T%-H%*32+|
00000b30 45 25 2a 33 32 3b 43 25 2d 54 25 2b 41 25 2a 33 |E%*32;C%-T%+A%*3|
00000b40 32 2b 31 36 2b 61 25 2a 31 36 3b 32 33 30 2d 54 |2+16+a%*16;230-T|
00000b50 25 2b 48 25 2a 33 32 2b 45 25 2a 33 32 3b 0d 77 |%+H%*32+E%*32;.w|
00000b60 ba 1c e6 30 2c 31 32 39 2b 54 25 81 34 3a da 3a |...0,129+T%.4:.:|
00000b70 ed 3a fb 31 33 31 3a fb 63 25 0d 77 c4 1a 43 25 |.:.131:.c%.w..C%|
00000b80 3d 28 43 25 2b 31 36 29 81 33 32 3a 43 25 3d 43 |=(C%+16).32:C%=C|
00000b90 25 2b 61 25 0d 77 ce 2b ef 32 38 2c 43 25 2c 32 |%+a%.w.+.28,C%,2|
00000ba0 35 2b 48 25 2d 45 25 2c 43 25 2b 41 25 2d 31 2c |5+H%-E%,C%+A%-1,|
00000bb0 32 36 2d 48 25 2d 45 25 3a db 3a f1 41 24 3b 0d |26-H%-E%:.:.A$;.|
00000bc0 77 d8 05 e1 0d 77 e2 58 dd a4 69 6e 70 75 74 3a |w....w.X..input:|
00000bd0 fb 31 3a 41 25 3d 36 2d 28 51 3c 3e 31 29 2a 33 |.1:A%=6-(Q<>1)*3|
00000be0 3a 41 24 3d 22 22 3a f1 8a 41 25 2c 32 29 22 2a |:A$="":..A%,2)"*|
00000bf0 20 20 20 20 20 20 20 20 2a 22 3a f1 8a 41 25 2b | *":..A%+|
00000c00 32 2c 32 29 3b 3a f5 3a 41 25 3d a5 3a e7 41 25 |2,2);:.:A%=.:.A%|
00000c10 3d 31 33 8c fd 31 3a e5 8d 50 4a 78 0d 77 ec 23 |=13..1:..PJx.w.#|
00000c20 e7 41 25 3d 31 32 37 80 a9 41 24 3e 30 41 24 3d |.A%=127..A$>0A$=|
00000c30 c0 41 24 2c a9 41 24 2d 31 29 3a ef 31 32 37 0d |.A$,.A$-1):.127.|
00000c40 77 f6 2e 41 25 3d 41 25 80 32 32 33 3a e7 41 25 |w..A%=A%.223:.A%|
00000c50 3e 36 34 80 41 25 3c 39 31 80 a9 41 24 3c 36 20 |>64.A%<91..A$<6 |
00000c60 ef 41 25 3a 41 24 3d 41 24 2b bd 41 25 0d 78 00 |.A%:A$=A$+.A%.x.|
00000c70 09 ef 37 3a fd 30 0d 78 0a 62 e7 41 24 3d 22 22 |..7:.0.x.b.A$=""|
00000c80 41 24 3d 4e 24 28 4e 25 29 3a 4e 25 3d 4e 25 2b |A$=N$(N%):N%=N%+|
00000c90 31 3a 42 24 3d 22 49 27 4c 4c 20 43 41 4c 4c 20 |1:B$="I'LL CALL |
00000ca0 59 4f 55 20 22 2b 41 24 2b 22 20 46 4f 52 20 54 |YOU "+A$+" FOR T|
00000cb0 48 49 53 20 47 41 4d 45 22 3a f2 69 6e 28 30 2c |HIS GAME":.in(0,|
00000cc0 42 24 2c 32 2c 30 2c 30 2c 30 29 3a ef 37 3a 41 |B$,2,0,0,0):.7:A|
00000cd0 25 3d a6 28 33 30 30 29 0d 78 14 07 3d 41 24 0d |%=.(300).x..=A$.|
00000ce0 78 1e 0f dd f2 70 28 41 24 29 3a ea 54 25 0d 78 |x....p(A$):.T%.x|
00000cf0 28 23 e3 54 25 3d 31 b8 a9 41 24 3a 41 25 3d 97 |(#.T%=1..A$:A%=.|
00000d00 28 c1 41 24 2c 54 25 2c 31 29 29 3a d6 51 25 3a |(.A$,T%,1)):.Q%:|
00000d10 ed 0d 78 32 05 e1 0d 78 3c 0a dd f2 63 6f 64 65 |..x2...x<...code|
00000d20 0d 78 46 0f 2a 4c 2e 46 46 45 45 20 39 30 30 0d |.xF.*L.FFEE 900.|
00000d30 78 50 24 51 25 3d 26 39 30 30 3a e3 54 25 3d 30 |xP$Q%=&900:.T%=0|
00000d40 b8 32 88 32 3a 50 25 3d 26 42 30 30 3a 5b 4f 50 |.2.2:P%=&B00:[OP|
00000d50 54 54 25 0d 78 5a 31 2e 52 25 3a 4c 44 41 23 30 |TT%.xZ1.R%:LDA#0|
00000d60 3a 4c 44 58 23 26 31 46 3a 2e 6d 70 32 6c 3a 53 |:LDX#&1F:.mp2l:S|
00000d70 54 41 26 33 38 30 2c 58 3a 44 45 58 3a 42 50 4c |TA&380,X:DEX:BPL|
00000d80 6d 70 32 6c 0d 78 64 24 4c 44 58 23 26 36 46 3a |mp2l.xd$LDX#&6F:|
00000d90 2e 6d 70 33 6c 3a 53 54 41 30 2c 58 3a 44 45 58 |.mp3l:STA0,X:DEX|
00000da0 3a 42 50 4c 6d 70 33 6c 0d 78 6e 2e 4c 44 58 23 |:BPLmp3l.xn.LDX#|
00000db0 31 35 3a 2e 6d 70 31 6c 3a 4c 44 41 26 38 30 2c |15:.mp1l:LDA&80,|
00000dc0 58 3a 53 54 41 26 36 30 2c 58 3a 44 45 58 3a 42 |X:STA&60,X:DEX:B|
00000dd0 50 4c 6d 70 31 6c 0d 78 78 26 4c 44 58 23 64 72 |PLmp1l.xx&LDX#dr|
00000de0 69 20 83 32 35 36 3a 4c 44 59 23 64 72 69 20 81 |i .256:LDY#dri .|
00000df0 32 35 36 3a 4a 4d 50 26 46 46 46 37 0d 78 82 08 |256:JMP&FFF7.x..|
00000e00 2e 64 72 69 0d 78 8c 1c 45 51 55 53 22 52 55 4e |.dri.x..EQUS"RUN|
00000e10 20 44 52 49 56 45 52 32 22 3a 45 51 55 42 31 33 | DRIVER2":EQUB13|
00000e20 0d 78 96 07 5d 3a ed 0d 78 a0 05 e1 0d 78 aa 09 |.x..]:..x....x..|
00000e30 dd f2 63 68 31 0d 78 b4 2b ef 32 33 2c 31 32 38 |..ch1.x.+.23,128|
00000e40 2c 32 30 34 2c 32 30 35 2c 32 30 35 2c 32 35 33 |,204,205,205,253|
00000e50 2c 32 35 33 2c 32 30 35 2c 32 30 35 2c 32 30 34 |,253,205,205,204|
00000e60 0d 78 be 2b ef 32 33 2c 31 32 39 2c 32 34 33 2c |.x.+.23,129,243,|
00000e70 32 35 31 2c 31 35 35 2c 31 35 35 2c 31 35 35 2c |251,155,155,155,|
00000e80 31 35 35 2c 32 35 31 2c 32 34 33 0d 78 c8 1f ef |155,251,243.x...|
00000e90 32 33 2c 31 33 30 2c 37 2c 37 2c 36 2c 37 2c 37 |23,130,7,7,6,7,7|
00000ea0 2c 36 2c 32 34 37 2c 32 34 37 0d 78 d2 29 ef 32 |,6,247,247.x.).2|
00000eb0 33 2c 31 33 31 2c 32 33 39 2c 32 33 39 2c 31 32 |3,131,239,239,12|
00000ec0 2c 31 34 30 2c 31 34 30 2c 31 32 2c 32 33 39 2c |,140,140,12,239,|
00000ed0 32 33 39 0d 78 dc 2b ef 32 33 2c 31 33 32 2c 31 |239.x.+.23,132,1|
00000ee0 33 31 2c 31 39 39 2c 31 39 38 2c 31 39 38 2c 31 |31,199,198,198,1|
00000ef0 39 38 2c 31 39 38 2c 31 39 39 2c 31 33 31 0d 78 |98,198,199,131.x|
00000f00 e6 2b ef 32 33 2c 31 33 33 2c 32 30 34 2c 32 33 |.+.23,133,204,23|
00000f10 36 2c 31 30 38 2c 31 30 38 2c 31 30 38 2c 31 30 |6,108,108,108,10|
00000f20 38 2c 32 33 39 2c 31 39 39 0d 78 f0 2b ef 32 33 |8,239,199.x.+.23|
00000f30 2c 31 33 34 2c 32 32 33 2c 32 32 33 2c 31 39 38 |,134,223,223,198|
00000f40 2c 31 39 38 2c 31 39 38 2c 31 39 38 2c 31 39 38 |,198,198,198,198|
00000f50 2c 31 33 34 0d 78 fa 1f ef 32 33 2c 31 33 35 2c |,134.x...23,135,|
00000f60 31 32 38 2c 31 32 38 2c 30 2c 30 2c 30 2c 30 2c |128,128,0,0,0,0,|
00000f70 30 2c 30 0d 79 04 05 e1 0d 79 0e 0b dd f2 63 68 |0,0.y....y....ch|
00000f80 61 72 73 0d 79 18 29 ef 32 33 2c 31 32 38 2c 31 |ars.y.).23,128,1|
00000f90 31 32 2c 31 33 36 2c 31 33 36 2c 32 34 38 2c 31 |12,136,136,248,1|
00000fa0 33 36 2c 31 33 36 2c 31 33 36 2c 30 0d 79 22 29 |36,136,136,0.y")|
00000fb0 ef 32 33 2c 31 32 39 2c 32 34 30 2c 31 33 36 2c |.23,129,240,136,|
00000fc0 31 33 36 2c 32 34 30 2c 31 33 36 2c 31 33 36 2c |136,240,136,136,|
00000fd0 32 34 30 2c 30 0d 79 2c 29 ef 32 33 2c 31 33 30 |240,0.y,).23,130|
00000fe0 2c 31 31 32 2c 31 33 36 2c 31 32 38 2c 31 32 38 |,112,136,128,128|
00000ff0 2c 31 32 38 2c 31 33 36 2c 31 31 32 2c 30 0d 79 |,128,136,112,0.y|
00001000 36 29 ef 32 33 2c 31 33 31 2c 32 32 34 2c 31 34 |6).23,131,224,14|
00001010 34 2c 31 33 36 2c 31 33 36 2c 31 33 36 2c 31 34 |4,136,136,136,14|
00001020 34 2c 32 32 34 2c 30 0d 79 40 29 ef 32 33 2c 31 |4,224,0.y@).23,1|
00001030 33 32 2c 32 34 38 2c 31 32 38 2c 31 32 38 2c 32 |32,248,128,128,2|
00001040 34 30 2c 31 32 38 2c 31 32 38 2c 32 34 38 2c 30 |40,128,128,248,0|
00001050 0d 79 4a 29 ef 32 33 2c 31 33 33 2c 32 34 38 2c |.yJ).23,133,248,|
00001060 31 32 38 2c 31 32 38 2c 32 34 30 2c 31 32 38 2c |128,128,240,128,|
00001070 31 32 38 2c 31 32 38 2c 30 0d 79 54 29 ef 32 33 |128,128,0.yT).23|
00001080 2c 31 33 34 2c 31 32 30 2c 31 32 38 2c 31 32 38 |,134,120,128,128|
00001090 2c 31 35 32 2c 31 33 36 2c 31 33 36 2c 31 32 30 |,152,136,136,120|
000010a0 2c 30 0d 79 5e 29 ef 32 33 2c 31 33 35 2c 31 33 |,0.y^).23,135,13|
000010b0 36 2c 31 33 36 2c 31 33 36 2c 32 34 38 2c 31 33 |6,136,136,248,13|
000010c0 36 2c 31 33 36 2c 31 33 36 2c 30 0d 79 68 24 ef |6,136,136,0.yh$.|
000010d0 32 33 2c 31 33 36 2c 31 31 32 2c 33 32 2c 33 32 |23,136,112,32,32|
000010e0 2c 33 32 2c 33 32 2c 33 32 2c 31 31 32 2c 30 0d |,32,32,32,112,0.|
000010f0 79 72 24 ef 32 33 2c 31 33 37 2c 31 32 30 2c 31 |yr$.23,137,120,1|
00001100 36 2c 31 36 2c 31 36 2c 31 36 2c 31 34 34 2c 39 |6,16,16,16,144,9|
00001110 36 2c 30 0d 79 7c 29 ef 32 33 2c 31 33 38 2c 31 |6,0.y|).23,138,1|
00001120 33 36 2c 31 34 34 2c 31 36 30 2c 31 39 32 2c 31 |36,144,160,192,1|
00001130 36 30 2c 31 34 34 2c 31 33 36 2c 30 0d 79 86 29 |60,144,136,0.y.)|
00001140 ef 32 33 2c 31 33 39 2c 31 32 38 2c 31 32 38 2c |.23,139,128,128,|
00001150 31 32 38 2c 31 32 38 2c 31 32 38 2c 31 32 38 2c |128,128,128,128,|
00001160 32 34 38 2c 30 0d 79 90 29 ef 32 33 2c 31 34 30 |248,0.y.).23,140|
00001170 2c 31 33 36 2c 32 31 36 2c 31 36 38 2c 31 36 38 |,136,216,168,168|
00001180 2c 31 33 36 2c 31 33 36 2c 31 33 36 2c 30 0d 79 |,136,136,136,0.y|
00001190 9a 29 ef 32 33 2c 31 34 31 2c 31 33 36 2c 31 33 |.).23,141,136,13|
000011a0 36 2c 32 30 30 2c 31 36 38 2c 31 35 32 2c 31 33 |6,200,168,152,13|
000011b0 36 2c 31 33 36 2c 30 0d 79 a4 29 ef 32 33 2c 31 |6,136,0.y.).23,1|
000011c0 34 32 2c 31 31 32 2c 31 33 36 2c 31 33 36 2c 31 |42,112,136,136,1|
000011d0 33 36 2c 31 33 36 2c 31 33 36 2c 31 31 32 2c 30 |36,136,136,112,0|
000011e0 0d 79 ae 29 ef 32 33 2c 31 34 33 2c 32 34 30 2c |.y.).23,143,240,|
000011f0 31 33 36 2c 31 33 36 2c 32 34 30 2c 31 32 38 2c |136,136,240,128,|
00001200 31 32 38 2c 31 32 38 2c 30 0d 79 b8 29 ef 32 33 |128,128,0.y.).23|
00001210 2c 31 34 34 2c 31 31 32 2c 31 33 36 2c 31 33 36 |,144,112,136,136|
00001220 2c 31 33 36 2c 31 36 38 2c 31 34 34 2c 31 30 34 |,136,168,144,104|
00001230 2c 30 0d 79 c2 29 ef 32 33 2c 31 34 35 2c 32 34 |,0.y.).23,145,24|
00001240 30 2c 31 33 36 2c 31 33 36 2c 32 34 30 2c 31 36 |0,136,136,240,16|
00001250 30 2c 31 34 34 2c 31 33 36 2c 30 0d 79 cc 25 ef |0,144,136,0.y.%.|
00001260 32 33 2c 31 34 36 2c 31 32 30 2c 31 32 38 2c 31 |23,146,120,128,1|
00001270 32 38 2c 31 31 32 2c 38 2c 38 2c 32 34 30 2c 30 |28,112,8,8,240,0|
00001280 0d 79 d6 23 ef 32 33 2c 31 34 37 2c 32 34 38 2c |.y.#.23,147,248,|
00001290 33 32 2c 33 32 2c 33 32 2c 33 32 2c 33 32 2c 33 |32,32,32,32,32,3|
000012a0 32 2c 30 0d 79 e0 29 ef 32 33 2c 31 34 38 2c 31 |2,0.y.).23,148,1|
000012b0 33 36 2c 31 33 36 2c 31 33 36 2c 31 33 36 2c 31 |36,136,136,136,1|
000012c0 33 36 2c 31 33 36 2c 31 31 32 2c 30 0d 79 ea 27 |36,136,112,0.y.'|
000012d0 ef 32 33 2c 31 34 39 2c 31 33 36 2c 31 33 36 2c |.23,149,136,136,|
000012e0 31 33 36 2c 31 33 36 2c 31 33 36 2c 38 30 2c 33 |136,136,136,80,3|
000012f0 32 2c 30 0d 79 f4 28 ef 32 33 2c 31 35 30 2c 31 |2,0.y.(.23,150,1|
00001300 33 36 2c 31 33 36 2c 31 33 36 2c 31 36 38 2c 31 |36,136,136,168,1|
00001310 36 38 2c 31 36 38 2c 38 30 2c 30 0d 79 fe 26 ef |68,168,80,0.y.&.|
00001320 32 33 2c 31 35 31 2c 31 33 36 2c 31 33 36 2c 38 |23,151,136,136,8|
00001330 30 2c 33 32 2c 38 30 2c 31 33 36 2c 31 33 36 2c |0,32,80,136,136,|
00001340 30 0d 7a 08 25 ef 32 33 2c 31 35 32 2c 31 33 36 |0.z.%.23,152,136|
00001350 2c 31 33 36 2c 31 33 36 2c 38 30 2c 33 32 2c 33 |,136,136,80,32,3|
00001360 32 2c 33 32 2c 30 0d 7a 12 24 ef 32 33 2c 31 35 |2,32,0.z.$.23,15|
00001370 33 2c 32 34 38 2c 38 2c 31 36 2c 33 32 2c 36 34 |3,248,8,16,32,64|
00001380 2c 31 32 38 2c 32 34 38 2c 30 0d 7a 1c 23 ef 32 |,128,248,0.z.#.2|
00001390 33 2c 31 35 34 2c 33 32 2c 39 36 2c 33 32 2c 33 |3,154,32,96,32,3|
000013a0 32 2c 33 32 2c 33 32 2c 31 31 32 2c 30 0d 7a 26 |2,32,32,112,0.z&|
000013b0 24 ef 32 33 2c 31 35 35 2c 31 31 32 2c 31 33 36 |$.23,155,112,136|
000013c0 2c 38 2c 31 36 2c 33 32 2c 36 34 2c 32 34 38 2c |,8,16,32,64,248,|
000013d0 30 0d 7a 30 24 ef 32 33 2c 31 35 36 2c 32 34 38 |0.z0$.23,156,248|
000013e0 2c 31 36 2c 33 32 2c 31 36 2c 38 2c 31 33 36 2c |,16,32,16,8,136,|
000013f0 31 31 32 2c 30 0d 7a 3a 24 ef 32 33 2c 31 35 37 |112,0.z:$.23,157|
00001400 2c 31 36 2c 34 38 2c 38 30 2c 31 34 34 2c 32 34 |,16,48,80,144,24|
00001410 38 2c 31 36 2c 31 36 2c 30 0d 7a 44 25 ef 32 33 |8,16,16,0.zD%.23|
00001420 2c 31 35 38 2c 32 34 38 2c 31 32 38 2c 32 34 30 |,158,248,128,240|
00001430 2c 38 2c 38 2c 31 33 36 2c 31 31 32 2c 30 0d 7a |,8,8,136,112,0.z|
00001440 4e 05 e1 0d 7a 58 07 20 20 06 0d ff 00 00 00 00 |N...zX. .......|
00001450 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
*
000014a0 00 00 00 00 00 00 00 00 00 00 00 |...........|
000014ab 
HOLEDOUT2.m0
HOLEDOUT2.m1
HOLEDOUT2.m2
HOLEDOUT2.m4
HOLEDOUT2.m5
.