' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` Lt LX 2H1HLCDSRpEK*Ck̵-NoILp * .L wLmghPQ ䷩ P8^Q_PQLpF PgmiQhmjhgh67@A67hBhCLԥ@A67Ll zLmL>` 4 1L .<=><` wLfՠ * . i! wj" i!Lp!i L ䷐Lpgh8gPhQQPLp zLs |Lv :> ] 4 1` ䷰LpPQ #L  ( PQL ䷰LpQPQPL . Ȍ,8n-LE . ,n-)*+LHL zLm>>L]g P8gPhQ i Lڹ  \ $LWԽȽͺ > L > L(F F`L .]89L(st 9 KL &`$8n & .F,>8`ɠ#ȱ>>: >8`>q>ȱ>i>i >FЧЖ`ԠР6V`V6`,Z6`bpܷbHH,-/,, 0 1 9hh`(,")* * 4)*+L9, L 9LyL9`UR { lݠUȱV ɠLU驠 ,` g R8`>?8> >? `L|,,,,,,,$L ڠȹ Zȹ \(0Lv  LmFILE NOT FOUNDOS SYNTAX ERRODUPLICATE ENTRDISK FULOUT OF DATI/O ERROFILE TYPE ERROWRITE PROTECT ERROҩ ``miȐLv`  \d \۩L$ L L- LO)`CHBHLIHL / X𹝸JJJJ 8HH`񺽎Hh݌m򺪽񺽉 jf5(jfI( $I0 L>?$I0 e. Lk$8`,@,L.. Lp-0$I L jL`>J>J>VU)?`80|'x&HhHh 󻩪 󻩭 󻘠VYp'&Ypxꪽp' 󻩪 󻽎`Hh` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`V0^*^*>`J-.>?JJJ&'J&&f>ȥ&)>ȥ')̾>JJJ >`*'8*1 N \') 񺨹 \ \) 񺨹`(L  !"#$%&'()*+,-./0123456789:;<=>?>ȥ')̾>JJJ >`*'8*1 N \') 񺨹 \ \) 񺨹`(L (08@HPX`hpx>ȥ')̾>JJJ >`*'8*1 N \') 񺨹 \ \) 񺨹`(L (08@HPX`hpxӠ٠ڠ>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ穭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?Lb \ Wȱ> \ W۠>)  \ \>ȱ> $$$>ȱ> \ >i >FТБL `ΠžȠˍԠΠž`٠0Ϡ@JĮĮĮĮĮĮĮĮĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i ŷ̭İà°¹àŰàĠàĠƠĠàŠĠĠòàñà°¹àà³àƠàƠĴΠԺź̺ңΣŲ΢ύԠ.WEDGE%DCT$(8):I18:CT$(I):NR$(4):R$(0)"EXCELLENT":R$(1)"GOOD":R$(2)"AVERAGE":R$(3)"BELOW AVERAGE":R$(4)"POOR"XPUTT DISTANCE RANGES2b " 0 TO 2 FEET"," 3 TO 5 FEET"," 6 TO 10 FEET","11 TO 16 FEET","17 TO 24 FEET","25 TO 35 FEET"CF(4,3):I04:J03:CF(I,J)::; CLUB NAME DATA DRIVER,2-WOOD,3-WOOD,4-WOOD,1-IRON,2-IRON,3-IRON,4-IRON,5-IRON,6-IRON,7-IRON,8-IRON,9-IRON,P.WED,CHIP,***,S.WED CL$(17):I117:CL$(I): VTAB DATA 4,5,6,7,9,10,11,13,14,15,17,18.24,.26,.29,.34( ".30,.32,.35,.38= ,.35,.37,.38,.41R 6.38,.40,.42,.45z @AC(4,3):I04:J03:AC(I,J):: JSPIN DATA T23,22,22,21,24,23,23,22,24,23,23,22,24,23,23,22,25,24,24,23,25,24,24,23,15,15,15,15,24,23,22,21 ^SP(7,3):I07 ARRAY.CREATEZ4000b_::1::40)"GOLF PLAYER ARRAY INITIALIZATION PROGRAM"40):d9:14)"INSERT YOUR"::" ";::"PROFESSIONAL TOUR GOLF PLAYER DISK":::10)"AND PRESS ";::" ":n16368,0:16384,0 x(16384)14"FORMAT SSI PLAYER DISK"& :1:1C OP1į"ARRAY.CREATE":_ OP2į"STAT.REVIEW":v OP3į"FORMAT":S ON THAT DISK":"PRESS RETURN TO ERASE IT OR ENTER NEW FILE NAME..." b":";B$:(B$)įA$:1055 lA$B$:1055QAE  BOOTId(103)(104)2563072Ĺ103,0:104,12:3072,0:"BOOT"W ==>MENU::1::" PROFESSIONAL TOUR GOLF UTILITY DISK "::12" 1 - COMPOSE A PLAYER ARRAY"" 2 - REVIEW GOLF STATISTICS" " 3 - FORMAT SSI PLAY,"36 TO 50 FEET","51 TO 75 FEET"," OVER 75 FEET"OlPD$(8):I08:PD$(I):fv>HANDICAP RANGES<H$(4):H$(0)"0-3":H$(1)"4-8":H$(2)"9-13":H$(3)"14-18":H$(4)"OVER 18""ARRAY.STATUS"I180:N%(I):>PUTTING DATA<1,1,19,21,22,23,23. VT(17):I117:VT(I):= HTAB DATAX 1,8,13,18,23,28,33,38s HT(8):I18:HT(I): &C%(18,4),PU(2,8,2),AC%(8),PN$(80),R%(4,8),N%(80) 0CLUB TYPE DATA:DRIVER,WOODS,LONG IRONS,MEDIUM IRONS,SHORT IRONS,P.WEDGE,CHIP,S:J03:SP(I,J)::+ hDIST. VAR. DATA@ r.23,.25,.27,.29U |.26,.28,.31,.36j .32,.36,.40,.44 .40,.45,.50,.55 .50,.56,.63,.70 DV(4,3):I04:J03:DV(I,J):: CONSISTENCY DATA 9,8,7,6,8,7,6,5,7,6,5,4,6,5,4,3,5,4,3,2' 1120 "PL.STATS" ; ==>CREATE PLAYER ARRAY} :::40);"GOLF PLAYER ARRAY INITIALIZATION PROGRAM";40): 12:11::"INITIALIZING ARRAYS"::11:"... PLEASE WAIT ..."::14:"(10 SECONDS)" ACCURACY DATA .18,.20,.24,.30 L@B źŠ >PRESS`KEY`TO`EXIT< Ġ ӠӮ Π Ӻ LER DISK"g 8:15:"ENTER OPTION";:14:I1500::868:I125:(16384)177(16384)179Ă:170 OP(16384)176:16368,0:16384,0 OP1Ģ12:10::"COMPOSE A PLAYER ARRAY" OP2Ģ13:10::"REVIEW GOLF STATISTICS" OP3Ģ14:10::.1,1,1.1,.99,1.1,.97,1.1,.96,1.1,.9,1.1,.85,1.1,.8,1.1,.7,1.1,.5,1,.6,1.05,.55,1.05,.5,1.05,.4,1,.254,1,.29,.98,.25,.98,.2,.96,.15,.96,.08,.9,.18,.95,.15,.95,.1,.95,.06,.9,.03,.8\.1,.85,.06,.85,.03,.83,.01,.78,.005,.7,.04,.78,.03,.72,.01,.67,.005,.58,I810:C%(I,3)C%(I,1)AC(H,AC%(4)):UI1113:C%(I,3)C%(I,1)AC(H,AC%(5)):C%(14,3)C%(14,1)AC(H,AC%(6)):C%(0,3)C%(14,3)C%(15,3)C%(15,1)AC(H,AC%(7)):C%(16,3)C%(15,3)C%(17,3)C%(17,1)AC(H,AC%(8)):C%(18,3)C%(17,3)b:"USING VER EIGHTEEN"3:31:A$:(A$)48(A$)521050F$H(A$).:"USING THE FOLLOWING TABLE, RATE YOUR DIRECTIONAL ACCURACY FOR EACH SUBSET OF CLUBS IN YOUR BAG:"8:12:"0 -> EXCELLENT":12:"1 -> GOOD":12:"2 -> AVERAGE":12:"3 -> 2270,2450,2930,2810,9402>TERMINATE PROGRAM<<22:T>CREATE CLUB ARRAY::1::10);"CREATE A BAG OF CLUBS";9):34,1:::"ENTER YOUR AVERAGE DISTANCE FOR:":"DRIVER :";C%(1,1):"WEDGE :";C%(14,1)A(C%(1,1)C%(14,1))13>>>>>>>>EDIT AND JMP FLAGS'42510<>"PLAYER.NAMES"RHI180:PN$(I):YRh\>OPTIONS<sf216,0p::10:16:"OPTIONS:"::8:"1 - CREATE A CLUB ARRAY":8:"2 - VIEW A CLUB ARRAY"Iz8:"3 - CREATE A PUTTING ARRAY":8:"4 - VIEW A P8,1.1,.83,1.1,.75,1.1,.55,1,.7,.95,.6,.95,.55,.95,.45,.92,.3,.92,.4,.88,.35,.85,.28,.8,.22,.79,.18,.75,.25,.78,.2,.78,.15,.78,.11,.7,.08,.68*.15,.65,.1,.65,.06,.62,.03,.6,.01,.6,.06,.58,.05,.55,.03,.55,.01,.52,.01,.4,.03,.53,.02,.5,.02,.5,.01,.5,.01,..001,.45,.01,.73,.01,.7,.01,.65,.005,.55,.001,.4,.005,.7,.005,.7,.005,.65,.005,.55,.001,.4 1,1.1,1,1.1,.99,1.1,.97,1.1,.96,1.1,.88,1.1,.85,1.1,.8,1.1,.7,1.1,.5,1.1,.33,1.1,.33,1.1,.33,1.1,.25,1.05,.2,1.05,.12,1.05,.12,1.05,.12,1.03,.1,1.03,.08,1,.06,1THE FOLLOWING TABLE, RATE YOUR BACKSPIN CAPABILITIES FOR EACH SUBSET OF CLUBS IN YOUR BAG:":12:"0 -> EXCELLENT":12:"1 -> GOOD":12:"2 -> AVERAGE":12:"3 -> BELOW AVERAGE":I18:CT$(I);:13:"---->";A$:(A$)48(A$)511100BELOW AVERAGE"4B:I18:CT$(I);:13:"---->";TLA$:(A$)48(A$)511100pVR$((A$)):AC%(I)(A$)`R%(0,I)AC%(I)jtC%(1,3)C%(1,1)AC(H,AC%(1))~I24:C%(I,3)C%(I,1)AC(H,AC%(2)):I57:C%(I,3)C%(I,1)AC(H,AC%(3)):)I213$C%(I,1)C%(1,1)(I1)Ak:C%(0,1)C%(14,1):C%(15,1)50:C%(16,1)50:C%(17,1)50:C%(18,1)50::"WHAT IS YOUR HANDICAP BRACKET "::"0 -> ZERO TO THREE":"1 -> FOUR TO EIGHT":"2 -> NINE TO THIRTEEN":"3 -> FOURTEEN TO EIGHTEEN":"4 -> OUTTING ARRAY":8:"5 - LOAD A PLAYER FILE":8:"6 - SAVE A PLAYER FILE"8:"7 - REVIEW CHARACTERISTICS":8:"8 - VIEW PLAYER NAMES":8:"9 - TERMINATE PROGRAM"10:24A$:(A$)49(A$)57920OP%(A$)A$:(A$)960,1640,1830,1950,4,.015,.5,.01,.5,.01,.48,.01,.48,.01,.38jP(2,8,4,2):I02:J08:K04:L12:P(I,J,K,L)::::>PUTT DISTANCE DATA< 2,5,10,16,24,35,50,75,999PD(8):I08:PD(I): PF$"X":PF0:>>>>>>>>LOAD/SAVE FLAGS*CE0:PE0:CJ0:PJ0:.01,.06,1,.05,1,.05,.98,.01,.9.01,1,.01,.95,.01,.9,.01,.85,.005,.75,.005,.9,.005,.9,.005,.75,.001,.65,.001,.52,.001,.85,.001,.8,.001,.69,.001,.6,.001,.48,.0005,.8,.0005,.8,.0005,.69,.0005,.6,.0005,.481,1.1,1,1.1,.99,1.1,.97,1.1,.96,1,.95,1.1,.8R$((A$)):AC%(I)(A$)0R%(1,I)AC%(I)6OC%(1,4)SP(0,AC%(1))q I24:C%(I,4)SP(1,AC%(2)):I57:C%(I,4)SP(2,AC%(3)):I810:C%(I,4)SP(3,AC%(4)):(I1113:C%(I,4)SP(4,AC%(5)):2C%(14,4)SP(5,AC%(6)):C%(0,4)C%(14(NI08:PD$(I);" -> ";?(XA$:(A$)48(A$)521880R(bA(A$):R$(A)`(lR%(4,I)A(vJ02:K02:PU(J,I,K)P(J,I,A,K)::((I08:PU(0,I,0)PD(I):(PE1:DS0:DL1DL2(PE1980,1980(::117):"NO PUTTING FILE EXIS.4.6(I14))C%(I,2).5);1&HT(5):C%(I,3);Y&HT(6):((C%(I,4)25)C%(I,1).5);&HT(7):(C%(I,1)((C%(I,4)25)C%(I,1)).5);&&:24:"PRESS TO RETURN TO MENU ";A$:860&&>CREATE PUTTING ARRAY<%'0::1::" CREATE PU|"NO CLUB FILE EXISTS."::"PRESS TO RETURN TO MENU ";A$:860$::1:" AVG MAX MAX DIR AVG AVG CLUB DST SHORT LONG VAR CARRY ROLL"$:" DRIVER AND WOODS "%8:" LONG IRONS :"3 -> BELOW AVERAGE"<":I18:CT$(I);:13:"---->";\"A$:(A$)48(A$)511100x"R$((A$)):AC%(I)(A$)"R%(3,I)AC%(I)""C%(1,0)CF(H,AC%(1))""I24:C%(I,0)CF(H,AC%(2)):",I57:C%(I,0)CF(H,AC%(3)):#6I810:C%(I,0)DV(H,AC%(2)):: I57:C%(I,2)C%(I,1)DV(H,AC%(3)):e I810:C%(I,2)C%(I,1)DV(H,AC%(4)): I1113:C%(I,2)C%(I,1)DV(H,AC%(5)): C%(14,2)C%(14,1)DV(H,AC%(6)):C%(0,2)C%(14,2) C%(15,2)C%(15,1)DV(H,AC%(7)):C%(16,2)C%(15,2)/!C%(,4)1<C%(15,4)SP(6,AC%(7)):C%(16,4)C%(15,4)]AC%(17,4)SP(7,AC%(8)):C%(18,4)C%(17,4)F:"USING THE FOLLOWING TABLE, RATE YOUR ABILITY TO HIT SHOTS ABOUT THE SAME DISTANCE EACH TIME FOR EACH SUBSET OF CLUBS IN YOUR BAG:"LP:12:"0 ->TS."::"PRESS TO RETURN TO MENU ";A$:860)::" PUTTING CHARACTERISTIC REVIEW:"::"DISTANCE RANGE 1-PUTT 2-PUTT 3-PUTT ";:)I08:PD$(I);)18:A0:J02:AAPU(J,I,1)::A100(A3.00005):A$(A):A1A$" 0"A$:2020*TTING CHARACTERISTICS ":34,1:':"USING THE FOLLOWING TABLE, ENTER YOUR PUTTING CAPABILITIES FOR EACH OF THESE PUTTING DISTANCE RANGES:":(D12:"0 -> EXCELLENT":12:"1 -> GOOD":12:"2 -> AVERAGE":12:"3 -> BELOW AVERAGE":12:"4 -> POOR": "4%12:" MEDIUM IRONS "d%16:" SHORT IRONS "%20:" SPECIAL CLUBS "%%I117:VT(I):1:I161820%CL$(I);%HT(2):C%(I,1);%HT(3):C%(I,2);&HT(4):((CF(H,AC%(4)):5#@I1113:C%(I,0)CF(H,AC%(5)):`#JC%(14,0)CF(H,AC%(6)):C%(0,0)C%(14,0)#TC%(15,0)CF(H,AC%(7)):C%(16,0)C%(15,0)#YC%(17,0)CF(H,AC%(8))691:C%(18,0)CF(H,AC%(8))591#^CE1:DS0:DL1DL2#hCE1670,1670#r::12L$17,2)C%(17,1)DV(H,AC%(8)):C%(18,2)C%(17,2)!:"USING THE FOLLOWING TABLE, RATE YOUR OVERALL CONSISTENCY (COMBINED DISTANCE AND ACCURACY) FOR EACH SUBSET OF CLUBS IN YOUR BAG:"":12:"0 -> EXCELLENT":12:"1 -> GOOD":12:"2 -> AVERAGE":12 EXCELLENT":12:"1 -> GOOD":12:"2 -> AVERAGE":12:"3 -> BELOW AVERAGE"pZ:I18:CT$(I);:13:"---->";dA$:(A$)48(A$)511100nR$((A$)):AC%(I)(A$)xR%(2,I)AC%(I)C%(1,2)C%(1,1)DV(H,AC%(1)) I24:C%(I,2)C%(I,1)A10A$" "A$.*A(A).01A$A$".0"M*(10(A(A))1)A$A$"0"e*(A$)5A$(A$,5)x*A$;:24:"%";* A100Ė26::"SMALL";::C0:2150*26:B0:J02:BB(PU(J,I,2)PU(J,I,1))::B100(B3.00005)* AB100B100A+*B$(B5d A$:A(A$):A2670,2540-5n >SAVE FILE?5x N%(PF)2750Y5 >FILE ALREADY EXISTS5 "PLAYER FILE NUMBER ";PF;" ALREADY EXISTS."5 :"PRESS TO OVERWRITE THE FILE WITH NEW DATA, OR PRESS TO ASSIGN A NEW FILE NUMBER";6 A$:RY.":2550\3 PF(A$):PF41PF80ĺ"VALID FILE NUMBERS ARE 41-80.":I12000::2550p3 PF$"PD."(PF)3 N%(PF)26903( 267032 >A FILE WAS READ FROM DISK3< "FILE NUMBER ";PF;" WAS READ FROM DISK."4? CE1ĺ:"A NEW CLUB FIPLAYER FILE "::34,171 CE0PE02535[1 CE0ĺ"NO CLUB FILE EXISTS."1 PE0ĺ"NO PUTTING FILE EXISTS."1 :"PRESS TO RETURN TO MENU ";A$:860)2 :216,0:"YOU DO NOT HAVE THE GOLF DISK IN DRIVE NUMBER 1."::"PREė:2290[/ :PF(A$):PF41PF80ĺ"VALID FILE NUMBERS ARE 41-80.":I12000::2290f/ 2360w/ PF$"PD."A$/$ PF$/. 2380/8 216,0:::"PLAYER FILE NUMBER ";PF;" DOES NOT EXIST."/B :"PRESS TO RETURN TO MENU ";A$:8600L COMPUTED BASED ON AN AVERAGE GREEN (DIF-FICULTY = 1)."B-PE1-:"THE WORD ";::"SMALL";::" INSTEAD OF A PERCENTAGE":"MEANS THAT THERE IS A MINUTE, BUT REAL CHANCE OF 2- OR 3-PUTTING (USUALLY ON A MORE DIFFICULT GREEN.)".24:"PRESS ((B(B)).1)B$B$".0"l+H(10(B(B)))1B$B$"0"+R(B$)5B$(B$,5)+\B$;:32:"%";+fAB100Ė34::"SMALL";::" ";:2220+pD100AB.005:D$(D):D1D$" 0"D$:2180 ,zD10D$(A$)13ĺA$:2750/6 (A$)27ĺ(13):254096 2720C6 PF$c6 I018:J04:C%(I,J)::6 I02:J08:K02:PU(I,J,K):::6 I04:J08:R%(I,J)::6 H6 6 ::I4160:I40:1:I;:4:PN$(I);:21:I20;" ";PN$(I20)7 LE WAS CREATED."G4B PE1ĺ:"A NEW PUTTING FILE WAS CREATED.":2630s4D :"NO CHANGES WERE MADE TO FILE "PF"."4F :"YOU MAY EITHER:":8:"1 - SAVE AS FILE ";PF:8:"2 - ENTER A NEW FILE NUMBER"4P :"YOUR CHOICE ";5Z A$:(A$)49(A$)502650SS TO RETURN TO MENU ";A$:86092 DL02610e2 >NO FILE WAS READ FROM DISK2 "ENTER FILE NUMBER TO SAVE ";A$:(A$)2A$(A$,2)2 A$""ĺ"SAVE ABORTED...":2500 3 I1(A$):((A$,I,1))48((A$,I,1))57ĺ:"ILLEGAL ENTI018:J04:C%(I,J)::F0V I02:J08:K02:PU(I,J,K):::e0` I04:J08:R%(I,J)::l0j Hs0t 0~ CE1:PE10 :"PLAYER FILE NUMBER ";PF;" LOADED.":CE2:PE2:DL1:DS0:23700 >SAVE A PLAYER FILE<!1 ::1::" SAVE A > TO RETURN TO MENU ";A$:8609.>LOAD A PLAYER FILE<t.::1::" LOAD A PLAYER FILE ":.34,1:"PLAYER FILE NUMBER : ";A$:(A$)2A$(A$,2).A$""ĺ"LOAD ABORTED...":2500 /I1(A$):((A$,I,1))48((A$,I,1))57" "D$-,(D(D)).01999999D$D$".0"M,(10(C(C)))1D$D$"0"e,(D$)5D$(D$,5)|,34:D$;:40:"%";,9-:"THE ABOVE PROBABILITIES ARE AN AVERAGE OF THE THREE TYPES OF PUTTING STROKES (NORMAL, LAG, AND CHARGE). THEY WERE :34,21:OP%82500q7 :"WHAT NAME IS PLAYER FILE NUMBER ";PF:"TO BE SAVED UNDER ";A$:(A$)15A$(A$,15)7 PN$(PF)A$7" "PLAYER.NAMES"7, I180:PN$(I):76 7@ N%(PF)17J "ARRAY.STATUS"7T I180:N%(I):7^ S8h :"PLAYER FI(  VE THE WRONG DISK!";:I12000:I::"INSERT PROPER DISK AND PRESS ";:A$::5000<'::EN(222):EL(218)(219)256:"PROGRAM ERROR NUMBER ";EN:"IN LINE NUMBER ";EL:"PROGRAM ABORTED.....":1= N16303,0:16299,0:I518:J40((I1)8)12 FT":" 6-10 FT":"11-16 FT":"17-24 FT":"25-35 FT":"36-50 FT":"51-75 FT":"76+ FT";:15:19: :I1521:I:19:22);:: I04:16I:21:I;" = ";R$(I);:: :I18:I5:14:R%(0,I);:19:R%(1,I);:25:R%(2,I);:35:R%(3,I);:; I08:LE NUMBER ";PF;" SAVED.":DS1:DL0::"PRESS TO RETURN TO MENU ";A$:860p8r >REVIEW CHARACTERISTICS8| ::CE0PE024808 1::"NAME: NONE ARRAY NUMBER: ? HANDICAP RANGE: ";:DL1DS029659 1:6:8(8((I1)8((I1)8)))2048:KI4:K14K0=4NCL$" "(C%(PL%1,K,1)):CL$(CL$,3):K02:J16K,((CL$,K1,1))128:::16368,0=HN(16384)12820040=\N16304,0:16300,0:16368,0:I16:14:R%(4,I);:Z; 22:20:"PRESS TO":23:20:" RETURN TO MENU";A$:860;216,0:::"YOU MUST HAVE AN SSI-INITIALIZED PLAYER DISK IN DRIVE #1. ":I13000:::90>ERROR HANDLING\<$'(222)1Ģ24:1:"YOU HAPN$(PF);:36:PF;&9 2:16:H$(H)9 3:1:17);"CLUBS";18);" CLUB DIR DST CONSISTENCY SET VAR SPIN VAR FACTOR ":9 6:I18:CT$(I):9 :40);"PUTT DIST RATING RATING KEY ";:c: " 0- 2 FT":" 3- 5 STAT.REVIEW?Z:::1:11)"STATISTICS REVIEW"12):sdCN$(20),CS(20),CR(20),CR%(20),RH$(20),ST(80,5)n9:14)"INSERT YOUR"::" ";::"PROFESSIONAL TOUR GOLF PLAYER DISK":::10)"AND PRESS ";::" ":x16368,0:16384,0 (20),CS(20),CR(20),CR%(20),RH$(20),ST(80,5) x(103)256(104)24576ĉ::12:"THE STATISTICAL UPDATE PROGRAM CAN ONLY BE RUN AT THE COMPLETION OF A ROUND.": UPDATE STATS FROM THE ROUND JUST COMPLETED P1%(4096):CN%(4097):CB%(40.001,.45,.01,.73,.01,.7,.01,.65,.005,.55,.001,.4,.005,.7,.005,.7,.005,.65,.005,.55,.001,.4 1,1.1,1,1.1,.99,1.1,.97,1.1,.96,1.1,.88,1.1,.85,1.1,.8,1.1,.7,1.1,.5,1.1,.33,1.1,.33,1.1,.33,1.1,.25,1.05,.2,1.05,.12,1.05,.12,1.05,.12,1.03,.1,1.03,.08,1,.06,1:ZZ%Ģ11:15:"NO COURSES":12:"HAVE BEEN PLAYED"O16368,0:16384,024:5:"PRESS TO EXIT PROGRAM";:I1750::1:868:I140:(16384)141Ă:3730I40::16368,0:16384,0::216,0:"*":h216,0:::"YOU MUST H) (16384)155I120" 24:1:" PRESS FOR COURSE STATISTICS";:I1750::1:868:I140:(16384)141Ă:3570 I40::::16368,0:16384,0: $ COURSE STATISTICS).1::" NUM. AVG COURSE RECORDCOURS4,0::24:8:"PRESS TO END LISTING";:3:1:F%1 > RP%ST(I,0):TSST(I,1):TPST(I,2):GPST(I,3):HR%ST(I,4):LR%ST(I,5) z P$" "(I):1:(P$,2); P$" "(RP%):5:(P$,3); 10:PGPRP%.005:P$(P):P(P)P$P$".0" P1P$"0"Ȃ(16384)141130/ 16368,0:16384,0: 4000K N "PL.STATS"n X I180:J05:ST(I,J):::~ "C.STATS" I120:CN$(I):CS(I):CR(I):CR%(I):RH$(I):: :::1:" NUM. GREENS AVG -SCORE SUMMARY- PL# RNDS IN REG PUTT98):NC%(4099)4  I14:PL$(I)"":I4C$(I)"":   I1P1%:I141155(I1):IG%(I)(I1):J13:PL$(I)PL$(I)((I1J)):: & I1P1%:S%(I)(4099I):G%(I)(4104I):P%(I)(4109I): 0 I1NC%:I1413530(I1):L(I1):J1L:C$(I)C$(I) STAT.UPDATE2::9:14)"INSERT YOUR"::" ";::"PROFESSIONAL TOUR GOLF PLAYER DISK":::10)"AND PRESS ";::" ":<16368,0:16384,0F(16384)14170P16368,0:16384,0- dS%(4),G%(4),P%(4),PL$(4),C$(3),IG%(4),CN$AVE AN SSI-INITIALIZED PLAYER DISK IN DRIVE #1. ":I13000::2:1:958::110,.98,.25,.98,.2,.96,.15,.96,.08,.9,.18,.95,.15,.95,.1,.95,.06,.9,.03,.8\.1,.85,.06,.85,.03,.83,.01,.78,.005,.7,.04,.78,.03,.72,.01,.67,.005,.58,E NAME RNDS SCORE RECORD HOLDER";:Z8ZZ%0:I120:ZZ%ZZ%(CR(I)0):CR(I)3710jB1:CN$(I);L16:P$" "(CR(I)):(P$,4);V22:PCS(I)CR(I):P$(P):P(P)P$P$".00"`P$P$"0000":(P$,5);j30:CR%(I);t36:RH$(I)7~P$ P10P$" "P$0 P$P$"0":(P$,5);a 18:PTPRP%.005:P$(P):P(P)P$P$".0"y P$P$"0":(P$,5); 26:PTSRP%.005:P$(P):P(P)P$P$".0" P$P$"0":(P$,5); 33:P$" "(HR%):(P$,3); 37:P$" "(LR%):(P$,3S AVERAGE HI LO ";::34,2O  24:8:"PRESS TO END LISTING";:3:1p  F%0:I180:ST(I,0)03555 F%F%1:F%213390 * 24:8:"PRESS TO CONTINUE";:7:J1750::868:J140:(16384)141Ă:33708 4 J40::16368,0:1638((I1J))::( : UPDATE PLAYER FILES3 D 4000D N "PL.STATS"g X I180:J05:ST(I,J):::t b I1P1% d ST(IG%(I),0)ST(IG%(I),0)1 f ST(IG%(I),1)ST(IG%(I),1)S%(I) h ST(IG%(I),2)ST(IG%(I),2)P%(I) j ST(IG%(I),3)ST(IG%(I),3)G%(I)+F1%3803,38055F%1RH$(CN%)(RH$(CN%),3)"*"w16368,0:16384,0:24:5:"PRESS TO EXIT PROGRAM";I1500::11:12:"COURSE RECORD "CR%(CN%);:I140:(16384)141Ă:11:868:38103750_216,0:"YOU MUST HAVE AN SSI-IN:I1750::1:868:I140:(16384)141Ă:3730dI40::16368,0:16384,0:F1%3800,3760t"C.STATS"I120:CN$(I):CS(I):CR(I):CR%(I):RH$(I)::::216,0:"*":I::9:18(CN$(CN%))2:"THE "CN$(CN%)::12:"COURSE RECO4)141Ă:35706 I40::::16368,0:16384,0:N$ COURSE STATISTICS.1::" NUM. AVG COURSE RECORDCOURSE NAME RNDS SCORE RECORD HOLDER";:8ZZ%0:I120:ZZ%ZZ%(CR(I)0):CR(I)3710B1:CN$(I);L16:P$" "I,5)$z P$" "(I):1:(P$,2);E P$" "(RP%):5:(P$,3);v 10:PGPRP%.005:P$(P):P(P)P$P$".0" P1P$"0"P$ P10P$" "P$ P$P$"0":(P$,5); 18:PTPRP%.005:P$(P):P(P)P$P$".0" P$P$"0":(P$,5);/S CN$(CN%)""3340: I1NC%:CN$(CB%I)C$(I): :::1:" NUM. GREENS AVG -SCORE SUMMARY- PL# RNDS IN REG PUTTS AVERAGE HI LO ";::34,2 24:8:"PRESS TO END LISTING";:3:1 F%0:I180:ST(I,0)03555  F%F%1: l S%(I)ST(IG%(I),4)ST(IG%(I),4)S%(I)V n S%(I)ST(IG%(I),5)ST(IG%(I),5)S%(I)\ p m v "PL.STATS" I180:J05:ST(I,J)::: UPDATE COURSE STAT FILE "C.STATS" I120:CN$(I):CS(I):CR(I):CR%(I):RH$(I)::- CR(CN%)CITIALIZED PLAYER DISK IN DRIVE #1. INSERT THE PLAYER DISKAND PRESS TO CONTINUE..."w16368,0:16384,0(16384)141402016368,0:16384,0:3140 FOR:":"DRIVER :";C%(1,1):"WEDGE :";C%(14,1)A(C%(1,1)C%(14,1))13 RD "CR%(CN%)::14:"WAS TIED BY:":(RH$(CN%))3RH$(CN%)RH$(CN%)"*"S3801::9:17(CN$(CN%))2:"A NEW "CN$(CN%)::12:"COURSE RECORD "CR%(CN%)::8:"HAS BEEN ESTABLISHED BY:":F%0:I1P1%:S%(I)CR%(CN%)Ė18:PL$(I):F%F%1:(CR(I)):(P$,4);FV22:PCS(I)CR(I):P$(P):P(P)P$P$".00"a`P$P$"0000":(P$,5);rj30:CR%(I);t36:RH$(I)~:ZZ%Ģ11:15:"NO COURSES":12:"HAVE BEEN PLAYED"16368,0:16384,0624:5:"PRESS TO EXIT PROGRAM"; 26:PTSRP%.005:P$(P):P(P)P$P$".0"G P$P$"0":(P$,5);h 33:P$" "(HR%):(P$,3); 37:P$" "(LR%):(P$,3) (16384)155I120  24:1:" PRESS FOR COURSE STATISTICS";:I1750::1:868:I140:(1638F%213390k* 24:8:"PRESS TO CONTINUE";:7:J1750::868:J140:(16384)141Ă:33704 J40::16368,0:16384,0::24:8:"PRESS TO END LISTING";:3:1:F%1> RP%ST(I,0):TSST(I,1):TPST(I,2):GPST(I,3):HR%ST(I,4):LR%ST(R(CN%)P1%:I1P1%:CS(CN%)CS(CN%)S%(I):u F1%0:I1P1%:S%(I)CR%(CN%)CR%(CN%)S%(I):RH$(CN%)PL$(I):F1%1 :F1%3290 F1%0:I1P1%:S%(I)CR%(CN%)F1%2  SEE IF COURSES FROM THE DISK BEING PLAYED ARE INCLUDED IN STATI213&C%(I,1)C%(1,1)(I1)Am:C%(0,1)C%(14,1):C%(15,1)50:C%(16,1)50:C%(17,1)50:C%(18,1)50::"WHAT IS YOUR HANDICAP BRACKET "::"0 -> ZERO TO THREE":"1 -> FOUR TO EIGHT":"2 -> NINE TO THIRTEEN":"3 -> FOURTEEN TO EIGHTEEN":"4 ->ND PRESS THE ";::" "::16384,0:16368,0V (16384)1603010a 1100r "GAME.CAT"{ GC$  ::14)"DELETE GAME"15): I110:"GAME # "I;:12:(GC$,I,1)"0"ĺ"FREE";:3035 "IN USE";+ 21:"GAME # "I:(GC$,I10,1)"0"ĺ"FREE":20451 "IN USE"7 h :"ENTER NUMBER OF GAME TO SAVE (1-20) ";A$ I(A$):I1I20Ģ12:1:958:2050 (GC$,I,1)"1"ĺ:"GAME # "I" IS ALREADY IN USE!":I11000::A$"0":2051 6000 Q$"GAME."(I):(GC$,I,1)"0"ĺ"FREE";:10350 "IN USE";m 21:"GAME # "I10;:32:(GC$,I10,1)"0"ĺ"FREE":1045{ "IN USE" :500 L:"ERROR! YOU MUST HAVE AN SSI SAVE GAME DISK IN DRIVE #1.":216,0:5007 :"INSERT YOUR SAVE GAME DISK AND PREI>NITIALIZE AN SSI SAVE GAME DISK":" XIT PROGRAM"::"ENTER OPTION -->";:16368,0o A$:A$"C"1000 A$"S"2000 A$"D"3000 A$"I"4000 A$"E"150 :"PRESS TO CONTINUE";:16368,0:16384,0 (1638I810:C%(I,3)C%(I,1)AC(H,AC%(4)):WI1113:C%(I,3)C%(I,1)AC(H,AC%(5)):C%(14,3)C%(14,1)AC(H,AC%(6)):C%(0,3)C%(14,3)C%(15,3)C%(15,1)AC(H,AC%(7)):C%(16,3)C%(15,3)C%(17,3)C%(17,1)AC(H,AC%(8)):C%(18,3)C%(17,3)d:"USIN OVER EIGHTEEN"3:31<A$:(A$)48(A$)521050H$H(A$).:"USING THE FOLLOWING TABLE, RATE YOUR DIRECTIONAL ACCURACY FOR EACH SUBSET OF CLUBS IN YOUR BAG:"8:12:"0 -> EXCELLENT":12:"1 -> GOOD":12:"2 -> AVERAGE":12:"3 -10;:32:(GC$,I10,1)"0"ĺ"FREE":30459 "IN USE"? r :"ENTER NUMBER OF GAME TO DELETE (1-20) ";A$ I(A$):I1I20Ģ12:1:958:3050 (GC$,I,1)"0"ĺ:"GAME # "I" IS NOT IN USE!":I11000::A$"0":3051 5000  A$"REG.":A$"REG."(I)%*Q$,38600,671244A$,106,8U6I1GC$"1"(GC$,19):2106w8I20GC$(GC$,19)"1":21069GC$(GC$,I1)"1"(GC$,20I):"GAME.CAT";GC$<>"GAME NUMBER "I" SAVED":500= :"INSERT YOUR SAVE GAME DISK ASS THE ";::" "::16384,0:16368,0P (16384)1602010[ 1100l "GAME.CAT"u GC$|  ::15)"SAVE GAME"16): I110:"GAME # "I;:12:(GC$,I,1)"0"ĺ"FREE";:2035 "IN USE";# 21:"GAME # "I10;:324)160510 100v :"INSERT YOUR SAVE GAME DISK AND PRESS THE ";::" "::16384,0:16368,0 (16384)1601010 1100 "GAME.CAT" GC$  ::9)"SAVE GAME DISK CATALOG"9):! I110:"GAME # "I;:12Z"SSI.INIT"d:::49)"PROFESSIONAL TOUR GOLF"49);::11)"SAVE GAME ROUTINES"::8)"GAMES MUST BE SAVED ON AN"15)"SSI INITIALIZED DISK....."7):Z :" ATALOG AN SSI SAVE GAME DISK":" AVE GAME":" ELETE A SAVED GAME":" <> BELOW AVERAGE"6B:I18:CT$(I);:13:"---->";VLA$:(A$)48(A$)511100rVR$((A$)):AC%(I)(A$)`R%(0,I)AC%(I)jtC%(1,3)C%(1,1)AC(H,AC%(1))~I24:C%(I,3)C%(I,1)AC(H,AC%(2)):I57:C%(I,3)C%(I,1)AC(H,AC%(3)):+(I):A$% A$"GAME."(I):A$F I1GC$"0"(GC$,19):3106h I20GC$(GC$,19)"0":3106! GC$(GC$,I1)"0"(GC$,20I)" "GAME.CAT"# GC$$ 0 "GAME NUMBER "I" DELETED...":500{::15)"INITIALIZE"15)::"INSERT BLANKm򺪽񺽉  @ lv   l `f` ע`ɠŠŠ˭A J(GK݌$HhHhꝍ݌KGHhHhꝍ݌ > BELOW AVERAGE"6B:I18:CT$(I);:13:"---->";VLA$:(A$)48(A$)511100rVR$((A$)):AC%(I)(A$)`R%(0,I)AC%(I)jtC%(1,3)C%(1,1)AC(H,AC%(1))~I24:C%(I,3)C%(I,1)AC(H,AC%(2)):I57:C%(I,3)C%(I,1)AC(H,AC%(3)):+I213&C%(I,1)C%(1,1)(I1)Am:C%(0,1)C%(14,1):C%(15,1)50:C%(16,1)50:C%(17,1)50:C%(18,1)50::"WHAT IS YOUR HANDICAP BRACKET "::"0 -> ZERO TO THREE":"1 -> FOUR TO EIGHT":"2 -> NINE TO THIRTEEN":"3 -> FOURTEEN TO EIGHTEEN":"4 ->F1%3803,38055F%1RH$(CN%)(RH$(CN%),3)"*"w16368,0:16384,0:24:5:"PRESS TO EXIT PROGRAM";I1500::11:12:"COURSE RECORD "CR%(CN%);:I140:(16384)141Ă:11:868:38103750_216,0:"YOU MUST HAVE AN SSI-IN:6100*z(222)4ĺ"DISK FULL!":6100_(222)8ĺ"REMOVE THE WRITE-PROTECT TAB!":6100"YOU MUST HAVE AN SSI INITIALIZED DISK IN DRIVE #1 TO SAVE A GAME."216,0:500X"ERROR! UNABLE TO INITIALIZE.":216,0:500dd:12:"COURSE RECO DISK IN DRIVE #1 AND PRESS TO INITIALIZE OR TOABORT.":" -->";::" ";::16368,0:16384,0(16384)141ĺ"INIT ABORTED...":500(16384)160407070002048"GAME.CAT",1"GAME.CAT""000 / A K /EAEKHJJ݌h F HhHh݌FG$KiK ,KLHhG02HhHhHh e- GLAA# GGL8$`HJJ݌h Hhꝍ݌`I810:C%(I,3)C%(I,1)AC(H,AC%(4)):WI1113:C%(I,3)C%(I,1)AC(H,AC%(5)):C%(14,3)C%(14,1)AC(H,AC%(6)):C%(0,3)C%(14,3)C%(15,3)C%(15,1)AC(H,AC%(7)):C%(16,3)C%(15,3)C%(17,3)C%(17,1)AC(H,AC%(8)):C%(18,3)C%(17,3)d:"USIN OVER EIGHTEEN"3:31<A$:(A$)48(A$)521050H$H(A$).:"USING THE FOLLOWING TABLE, RATE YOUR DIRECTIONAL ACCURACY FOR EACH SUBSET OF CLUBS IN YOUR BAG:"8:12:"0 -> EXCELLENT":12:"1 -> GOOD":12:"2 -> AVERAGE":12:"3 -ITIALIZED PLAYER DISK IN DRIVE #1. INSERT THE PLAYER DISKAND PRESS TO CONTINUE..."w16368,0:16384,0(16384)141402016368,0:16384,0:3140 FOR:":"DRIVER :";C%(1,1):"WEDGE :";C%(14,1)A(C%(1,1)C%(14,1))13 RD "CR%(CN%)::14:"WAS TIED BY:":(RH$(CN%))3RH$(CN%)RH$(CN%)"*"S3801::9:17(CN$(CN%))2:"A NEW "CN$(CN%)::12:"COURSE RECORD "CR%(CN%)::8:"HAS BEEN ESTABLISHED BY:":F%0:I1P1%:S%(I)CR%(CN%)Ė18:PL$(I):F%F%1:00000000000000000"#:T(0)0ĺ"SUCCESSFUL INITIALIZATION...":500x""INITIALIZATION ERROR!":500"ERROR! GAME NUMBER "I" IS NOT ON THIS DISK.":216,0:500p"ERROR!":(222)3ĺ"GAME NUMBER "I" IS ALREADY SAVED." \( & .F>b \ Wȱ> \ W۠>)  \ \>ȱ> $$$>ȱ> \ >i >FТБL `ΠžȠˍԠΠž`L `L "PL.STATS",20 "PL.STATS"? I180:J05:ST(I,J)::F X "C.STATS",2h "C.STATS" I120:CN$(I):CS(I):CR(I):CR%(I):RH$(I): & 11:958::40)"YOUR PROFESSIONAL TOUR GOLF PLAYER DISK HAS BEEN FORMATTED AND IS READY"PL120:A$"PD."(PL):A$EI018:J04:C%(PL,I,J)::rI02:J08:K02:PU(PL,I,J,K)::: I04:J08:R%(PL,I,J)::H%(PL) *PL4"PLAYER.NAMES",6>"PLAYER.NAMES"HI180:PN$(I):R\"A PLu11:958:"INSERT A BLANK DISK IN DRIVE #1 AND PRESS THE KEY TO INITIALIZE ";::" ":16368,0:16384,0(16384)141102011:958::54)"INITIALIZING"54):16368,0:16384,0:2048e(0)0ĺ::  FORMATL (103)256(104)3072Ĺ103,0:104,12:3072,0:"FORMAT" C%(20,18,4),PU(20,2,8,2),R%(20,4,8),PN$(80),N%(80),H%(20) d:::11)"FORMAT PLAYER DISK"11): i11::43)"LOADING PROFESSIONAL PLAYER FILES"44): n"SSI.INIT" FOR USE."40):::ÀRRAY.STATUS",2$f"ARRAY.STATUS"9pI180:N%(I):@z}T 11:958::44)"CREATING PLAYER STATISTICS FILE"45): :ST(80,5),CN$(20),CS(20),CR(20),CR%(20),RH$(20) I180:ST(I,5)999: I120:CN$(I)"":RH$(I)"":CR%(I)999: "UNABLE TO INITIALIZE. PLEASE REBOOT THE PROFESSIONAL TOUR GOLF UTILITY SIDE AND TRY AGAIN."30)::11:958::49)"CREATING PLAYER FILES"50):I180:A$"PD."(I)A$,311:958::44)"SAVING PROFESSIONAL PLAYER FILES"44): x"PLAYER.NAMES"- I180:PN$(I)::B "ARRAY.STATUS"Z I180:N%(I)::v PL120:A$"PD."(PL) A$ I018:J04:C%(PL,I,J):: I02:J08:K02:PU(PL,I,J,K)::: I04:J08:R%(PL,I,J):: H%(PL)ԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľ \( & .F>b \ Wȱ> \ W۠>)  \ \>ȱ> $$$>ȱ> \ >i >FТБL `ΠžȠˍԠΠž`L `L m򺪽񺽉  @ lv   l `f` ע`>-P.T.G. PLAYER DISK-<A J(GK݌$HhHhꝍ݌KGHhHhꝍ݌ ԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľԠľĠҍˠӍ٠ҍŠύ͠΍͠ō٠čǠҍ͠č٠ōΠ׍Š΍Ԡ΍٠Ӎ٠ԍ٠ҍ٠΍̠΍٠ҍŠҍԠ / A K /EAEKHJJ݌h F HhHh݌FG$KiK ,KLHhG02HhHhHh e- GLAA# GGL8$`HJJ݌h Hhꝍ݌`ŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭ 񺽉  e꽎I`A=>??l>2JJJKRAKOWICZ<= *2* *<************************ P:" KRAKOWICZ RWTS CONVERTER PROGRAM ":" (ASSUMES FOREIGN R