1 REM SAVE"GOLF V6.2",9
2 POKE56,56:POKE51,0:CLR:DV=PEEK(186):IFDV<8THENDV=8
3 POKE53281,0:POKE53280,0
5 PRINT"[147][159]":PRINT""
6 PRINT"[158]         [201]T'S TEE TIME . . .
10 [137]500
19 [143] CHOICE*
20 [141]62
21 [129]I[178]1[164]CC:[139]A$[178][202](CH$,I,1)[167][142]
22 [130]:[137]20
25 [143] CHARGE*
26 A$[178]"251331421502421502"
27 T[178]87:[151]F[170]6,96:[151]F[170]24,15
28 [129]I[178]1[164]18[169]3
29 [151]F[170]1,[197]([202](A$,I,2)):[151]F[170]4,33
30 [129]J[178]1[164]T[172][197]([202](A$,I[170]2,1)):[130]
31 [151]F[170]4,0:[130]:[142]
57 [143] ANY KEY-GET A$*
58 X[178]0:Y[178]24:[141]66:[153]"/           PLEASE PRESS A KEY CLOSE       ONONON"
62 [161]A$:[139]A$[178]""[167]70:[142]
64 [143] PRINT AT*
66 [151]211,X:[151]214,Y:[158]58732:[142]
69 [143] MULTITASK *
70 [139]JJ[178]NC[171]2[167]JJ[178][171]1
71 JJ[178]JJ[170]1:J%[178]JJ[170][181]([187](0)[172](NC[171]JJ)):TEMP[178]S(JJ):S(JJ)[178]S(J%):S(J%)[178]TEMP:[137]62
72 [143] PRINT BLANK
73 [158]MT[170]3,X,X[170]3,Y,Y[170]4,TC,T3:[142]
79 [143]CUSTOMIZE
80 [141]400
81 [158]MT[170]3,3,38,24,24,160,HL
82 [158]MT[170]3,18,36,11,17,160,HL
84 X[178]19:Y[178]12:[141]66:[151]646,HL:  [153]"1. BORDER COLOR"
85 Y[178]Y[170]1:[141]66:[153]"2. TILE COLOR"
86 Y[178]Y[170]1:[141]66:[153]"3. TILE SHAPE "
87 Y[178]Y[170]1:[141]66:[153]"4. TITLE COLOR"
88 Y[178]Y[170]1:[141]66:[153]"5. NEW ROUND "
90 [161]A$:[139]A$[179]"1"[176]A$[177]"5"[167]90
92 [145][197](A$)[137]94,96,100,106, 109
94 BD[178]BD[170]1:[139]BD[178]16[167]BD[178]0:
95 [151]53280,BD:[137]90
96 T3[178]T3[170]1:[139]T3[178]16[167]T3[178]0
97 [137]80:[137]90
100 WT[178]WT[170]1:[139]WT[178]7[167]WT[178]1
102 TC[178]T5(WT):[137]80:[137]90
106 HL[178]HL[170]1:[139]HL[178]16[167]HL[178]0
107 [139]HL[178]1[167]HL[178]2
108 [137]80:[137]90
109 [142]
110 [143] START UP
111 [134]VA$(13),VB$(13):F[178]54272:[129]I[178]F[164]F[170]78:[151]I,0:[130]
112 CR$[178]"(null)(null)MID$RIGHT$LEFT$CHR$ASCVALSTR$&LENPEEK(null)":CS$[178]"(null)(null)(null)(null)(null)(null)(null)(null)(null)'(null)(null)(null)"
113 S$(0)[178]"NEW":S$(1)[178]"/":S$(2)[178]"TAN":S$(3)[178]"ATN":CO$(0)[178]"STOP":CO$(1)[178]"":CO$(2)[178]""
114 CO$(3)[178]"STOP":S1$(0)[178]"GET":S1$(1)[178]"(null)":S1$(2)[178]"(null)":S1$(3)[178]"OR"
115 [129]I[178]0[164]12:VA$(I)[178][202](CR$,I[170]1,1):VB$(I)[178][202](CS$,I[170]1,1):[130]
116 BK$[178]"!##$CMDCMDCMDCMD#COSCOS#CMDCMDCMDCMD#COSCOS#CMDCMDCMDCMD#COSCOS#CMDCMDCMDCMD\++*CMDCMDCMDCMDONONONON"
117 BD[178]08:TC[178]127:T3[178]12:HL[178]6:WT[178]1:T5(1)[178]127:T5(2)[178]0:T5(3)[178]037:T5(4)[178]125:T5(5)[178]124
118 T5(6)[178]100
122 [150][165]S(X)[178][181](X[173]13):[150][165]V(X)[178]X[171]13[172][181](X[173]13)
126 NC[178]52:NS[178]13:  JJ[178][171]1:[134]S(NC):[129]I[178]0[164]NC[171]1:S(I)[178]I:[130]
130 [143] SHUFFLE
131 [139]JJ[178]NC[171]2[167][142]
132 JJ[178]JJ[170]1:J%[178]JJ[170][181]([187](0)[172](NC[171]JJ)):TEMP[178]S(JJ):S(JJ)[178]S(J%):S(J%)[178]TEMP
133 [139]JJ[179][177]NC[171]2[167]131
135 [134]X(08),Y(08),C(08),B(7,10),DK(52),WS(52),ST$(3,12)
140 CH$[178]"1234567 CQHN":CC[178][195](CH$):DK[178]0:WS[178]08
144 X(0)[178]10:Y(0)[178]18:X(08)[178]26:Y(8)[178]18
146 [141]1200
148 [142]
149 [143] END GAME
150 X[178]6:Y[178]12:[141]66:[153]"TANTANTANTANTANTANTANTANTAN"
152 Y[178]Y[170]1:[141]66:[153]"  GREAT  "
154 Y[178]Y[170]1:[141]66:[153]" ROUND!! "
156 Y[178]Y[170]1:[141]66:[153]"TANTANTANTANTANTANTANTANTAN"
158 [151]646,HL:[141]58:[137]170
160 [158]MT[170]3,10,27,12,14,160,HL
165 ZX[178]0:[129]I[178]1[164]7:ZX[178]ZX[170]C(I):[130]
166 [158]MT[170]18,13,"":[153]"CMDCMDCMDCMDCMDCMDCMDCMD"ZX"CARD";:[139]ZX[179][177]1[167][153]"S";
168 [153]" LEFT":[141]58:[137]172
170 [158]MT[170]3,2,38,24,24,160,HL
172 [151]53272,21:[158]MT[170]3,0,39,0,24,160,13:[158]MT[170]3,8,31,6,16,32,1
173 [141]1000
174 HG[178]HG[170]1: ZX[178]0:[129]I[178]1[164]7:ZX[178]ZX[170]C(I):[130]:[139]ZX[178]0[167]176
175 TR[178]68[170]ZX:[137]177
176 TR[178]68[171]C(DK)
177 IA[178]IA[170]TR:AG[178][181](IA[173]HG[170].5):[139]TR[179]HI[167]179
178 HI[178]TR
179 [139]TR[177]LO[175]LO[177]0[167]181
180 LO[178]TR
181 [141]440
184 Y[178]18:X[178]18:[141]66: [153]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
186 Y=Y+1:GOSUB66:PRINT"[221] 1. NEW ROUND   [221]"
188 Y=Y+1:GOSUB66:  PRINT"[221] 2. CUSTOMIZE   [221]
190 Y[178]Y[170]1:[141]66:  [153]"(null) 3. TO LOADSTAR (null)
192 Y=Y+1   :GOSUB66: PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
194 [141]62:[139](A$)[179]"1"[176](A$)[177]"3"[167]194
195 [153]"LOAD":[151]53272,31
196 [145][197](A$)[137]512,198,  6000
198 [141]80:[137]512
199 [143] PRINT CARD OR ERASE*
200 X[178]X(I):Y[178]Y(I):[141]66
202 CA[178]B(I,C(I))
203 SU[178][165]S(CA):VA[178][165]V(CA)
204 [151]F[170]24,6:[151]F[170]5,128:[151]F[170]4,129:[129]T[178]1[164]20:[130]:[151]F[170]4,128:[151]F[170]5,0
206 [151]F[170]24,0:[151]F[170]24,15:[151]F[170]4,129:[151]F[170]4,128
207 [139]D8[178]1[176]C(I)[179][177]0[167]220
208 [139]C(I)[179][177]0[167]220
214 [143] ERASE CARD*
216 [141]73:[142]
220 [153]CO$(SU);VA$(VA);"<<>CMDCMDCMDCMD";S$(SU);"  ^CMDCMDCMDCMDTAB(  ^CMDCMDCMDCMDTAB(  ";S1$(SU);
222 [153]"CMDCMDCMDCMDSGN==";VB$(VA);"ONONONONCMDCMDCMD";ST$(SU,VA);:[142]
299 [143] DEAL
300 [129]I[178]1[164]7:[139]C(DK)[178]0[167][142]
304 C(I)[178]C(I)[170]1:B(I,C(I))[178]DK(C(DK)):C(DK)[178]C(DK)[171]1:Y(I)[178]Y(I)[170]1:[141]200
308 [130]
309 [142]
314 [141]66:[141]73:[142]
319 [143] PLAY ONE TO WASTE
320 [139]C(I)[179]2[167]336
324 X[178]X(I):Y[178]Y(I):[141]66:[141]73 :Y(I)[178]Y(I)[171]1:C(I)[178]C(I)[171]1:[141]200
328 [137]340
332 [142]
336 C(I)[178]C(I)[171]1:[141]200
340 X[178]X(WS):Y[178]Y(WS):[141]66:CA[178]WS(C(WS)):D8[178]1:[141]203:D8[178]0:[142]
400 [129]I[178]1[164]52:DK(I)[178]S(I[171]1):[130]:C(DK)[178]52:[129]I[178]1[164] 7:C(I)[178]0:[130]:C(WS)[178]0
415 K[178]2: [129]I[178]1[164]7:Y(I)[178]5:X(I)[178]K:K[178]K[170]5:[130]
419 [151]53280,BD:[151]53281,1:[153]"LOAD"
420 [158]MT[170]3,0,39,0,24, TC,T3:[158]MT[170]3,0,39,0,2,160,HL
421 [151]646,HL:[158]MT[170]18,1,"GOLF AT THE TOWER"
422 X[178]0:Y[178]24:[141]66
423 [153]"WAIT/";:X[178]1:[141]66:[151]646,HL
424 [153]"  SPACE DEALS     H-HELP     Q-QUIT   ";
425 [129]I[178]1[164]7:[158]MT[170]3,X(I),X(I)[170]3,Y(I)[171]1,Y(I)[171]1,160,HL:[130]
427 [153]"WAIT";:X[178]X(DK):Y[178]Y(DK):[141]66:[153]BK$:[129]I[178]1[164]7:X[178]X(I):Y[178]Y(I):[141]66
429 [151]646,HL: [153]"ON";[202]([196](I),2,1):[130]
430 [129]I[178]1[164]7:C(I)[178]C(I)[170]1:B(I,C(I))[178]DK(C(DK)):C(DK)[178]C(DK)[171]1:[141]200:[130]:[142]
432 [129]K[178]1[164]4:[141]300:[130]:[142]
439 [143] SCOREBOARD
440 X7[178]7:[158]MT[170]18,X7,"WAIT THE LOADSTAR LINKS":[158]MT[170]18,X7[170]1,"CLRLEADER BOARD"
441 [158]MT[170]18,X7[170]2,"THIS ROUND -     ":[153]"CMDCMDCMDCMDCMD";TR:
442 [158]MT[170]18,X7[170]3,"STOP======================"
444 R7[178]TR[171]72:[139]R7[177]0[167]450
446 [139]R7[178]0[167]452
448 Y[178]11:X[178]13:[141]66:[153]"";[171]R7;"UNDER PAR":[137]454
450 Y[178]11:X[178]13:[141]66:[153]"";R7;"OVER PAR":[137]454
452 Y[178]11:X[178]16:[141]66:[153]"EVEN PAR"
454 [139]HG[178]1[167]480
458 X[178]12:Y[178]12:[141]66:[153]"STOPHIGH ROUND -";HI
460 X[178]12:Y[178]13:[141]66:[153] "LOW ROUND  -";LO
462 X[178]12:Y[178]14:[141]66:[153] "AVERAGE    -";AG
464 X[178]12:Y[178]15:[141]66:[153] "# ROUNDS   -";HG
480 [142]
500 [141]111:[141]26
512 [129]I[178]1[164]52:DK(I)[178]S(I[171]1):[130]:C(DK)[178]52:[129]I[178]1[164] 7:C(I)[178]0:[130]:C(WS)[178]0:TR[178]0
515 K[178]3: [129]I[178]1[164]7:Y(I)[178]7:X(I)[178]K:K[178]K[170]5:[130]
517 [153][199](142):[151]53272,31:[151]198,0:MT[178]52480
519 [151]53280,BD:[151]53281,1:[153]"LOAD"
520 [158]MT[170]3,0,39,0,24, TC,T3:[158]MT[170]3,0,39,0,2,160,HL
521 [151]646,HL:[158]MT[170]18,1,"GOLF AT THE TOWER"
522 X[178]0:Y[178]24:[141]66
523 [153]"WAIT/";:X[178]1:[141]66:[151]646,HL
524 [153]"  SPACE DEALS     H-HELP     Q-QUIT   ";
525 [129]I[178]1[164]7:[158]MT[170]3,X(I),X(I)[170]3,Y(I)[171]1,Y(I)[171]1,160,HL:[130]
527 [153]"WAIT";:X[178]X(DK):Y[178]Y(DK):[141]66:[153]BK$:[129]I[178]1[164]7:X[178]X(I):Y[178]Y(I):[141]66
529 [151]646,HL: [153]"ON";[202]([196](I),2,1):[130]
530 [129]I[178]1[164]7:C(I)[178]C(I)[170]1:B(I,C(I))[178]DK(C(DK)):C(DK)[178]C(DK)[171]1:[141]200:[130]
532 [129]K[178]1[164]4:[141]300:[130]
534 [158]MT[170]3,17,22,19,21,160,HL:[151]646,HL:X[178]18:Y[178]20:[141]66:[153]"FROM"
536 [141]20
537 [151]646,HL:X[178]18:Y[178]20:[141]66:[153]"    "
538 [139]I[179]8[167] 550
542 [145]I[171]7[137]546,600,160,900,800
546 [139]C(DK)[178]0[167] [141]790:[137]534
547 C(WS)[178]C(WS)[170]1:WS(C(WS))[178]DK(C(DK)):C(DK)[178]C(DK)[171]1
548 [139]C(DK)[178]0[167]590:
549 X[178]X(WS):Y[178]Y(WS):[141]66:CA[178]WS(C(WS)):[141]203:[137]534
550 [139]C(I)[178]0[176][165]V(WS(C(WS)))[178]12[176]C(WS)[178]0[167][141]790:[137]534
551 [139](WS(C(WS)))[178]12[167][141]790:[137]534
554 T2[178][165]V(WS(C(WS))):FC[178][165]V(B(I,C(I))):[139]T2[178]12[167]534
558 [139]T2[171]FC[178]1[176]T2[171]FC[178][171]1[167] 566
562 [141]790:[137]534
566 C(WS)[178]C(WS)[170]1:WS(C(WS))[178]B(I,C(I))
580 [141]320:[129]K[178]1[164]7
582 [139]C(K)[177]0[167]534
583 [130]
584 [137]150
590 X[178]X(DK):Y[178]Y(DK):[141]66:[141] 73:[137]549
600 [141]80:[137]512
646 X[178]12:Y[178]15:[141]66:[153]"NO. GAMES -";HG
789 [143] BAD CHOICE NOISE
790 [151]F[170]24,15:[151]F[170]8,4:[151]F[170]12,63:[151]F[170]13,17:[151]F[170]11,33
792 [129]T[178]1[164]100:[130]:[151]F[170]11,32:[142]
799 [143] CARD COUNT
800 [151]646,HL:[158]MT[170]6,208:X[178]18:Y[178]20:[141]66:[153]" "[202]([196](C(DK)),2,2)" "
810 [141]58:[158]MT[170]9,208:[137]534
899 [143] HELP
900 [151]53272,21:[151]53280,1:[158]MT[170]6,208:[153]"LOAD          GOLF AT THE TOWER"
902 [153]"  THE OBJECT IS TO CLEAR THE TABLEAU BY"
904 [153]"BUILDING THE CARDS ON THE WASTE PILE."
906 [153]"ONLY THE TOP CARD OF EACH PILE IS AVAIL-"
908 [153]"ONABLE FOR PLAY, AND THE WASTE PILE MAY"
910 [153]"BE BUILT UP OR DOWN WITHOUT REGARD TO"
912 [153]"SUIT. THE DIRECTION (UP OR DOWN) MAY BE"
914 [153]"CHANGED AT ANY TIME.  A KING STOPS THE"
916 [153]"SEQUENCE.  NOTHING CAN BE PLAYED ONCLOSEIT"
918 [153]"AND ONLY A TWO CAN BE PLAYED ON AN ACE."
920 [153]:[153]"  FOUR CARDS LEFT IN THE TABLEAU IS PAR"
922 [153]"AND EACH CARD OVER OR UNDER FOUR IS "
924 [153]"ONE STROKE.  UNTURNED CARDS IN THE DECK"
926 [153]"ARE ALSO ONE STROKE EACH BELOW PAR."
928 [153]
930 [153]"   N   NUMBER OF CARDS IN DECK"
940 [153]"   H   THIS SCREEN
942 PRINT"   Q   END AND SCORE THE ROUND
944 [153]"   C   CUSTOMIZE - END WITHOUT SCORING
946 PRINT" SPACE TURN A CARD"
950 PRINT"[144]        PRESS A KEY TO CONTINUE        [145][145][145]"
952 POKE198,0
954 GETA$:IFA$=""THEN954
999 POKE53280,BD:SYSMT+9,208:POKE53272,31:GOTO534
1000 POKE214,5:PRINT:PRINTTAB(8)"[144][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
1010 FORI=0TO8:PRINTTAB(8)"[180]"TAB(31)"[170]":NEXT
1020 PRINTTAB(8)"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
1030 RETURN
1200 ST$(0,1)="[215][216][157][157][217][218][146]":ST$(0,0)="[211][212][146]":ST$(3,0)="[179][180][146]"
1204 ST$(0,9)="[193][194][157][157][195][196][157][157][197][198][157][157][199][200][157][157][201][202][146]":ST$(3,2)="[183][184][157][157][179][180][157][157][185][186][146]"
1208 ST$(0,8)="[193][194][157][157][203][204][157][157][205][206][157][157][207][208][157][157][201][202][146]":ST$(0,3)="[193][194][157][157][201][202][146]"
1212 ST$(3,8)="[161][162][157][157][171][172][157][157][173][174][157][157][175][176][157][157][169][170][146]":ST$(0,7)="[193][194][157][157][211][212][157][157][209][210][157][157][213][214][157][157][201][202][146]"
1216 ST$(3,9)="[161][162][157][157][163][164][157][157][165][166][157][157][167][168][157][157][169][170][146]":ST$(3,7)="[161][162][157][157][179][180][157][157][177][178][157][157][181][182][157][157][169][170][146]"
1220 ST$(3,1)="[183][184][157][157][185][186][146]":ST$(0,2)="[215][216][157][157][211][212][157][157][217][218][146]"
1224 ST$(0,6)="[193][194][157][157][211][212][157][157][209][210][157][157][201][202][146]":ST$(3,6)="[161][162][157][157][179][180][157][157][177][178][157][157][169][170][146]"
1228 ST$(3,3)="[161][162][157][157][169][170][146]":ST$(0,5)="[193][194][157][157][209][210][157][157][201][202][146]"
1232 ST$(3,5)="[161][162][157][157][177][178][157][157][169][170][146]":ST$(0,4)="[193][194][157][157][211][212][157][157][201][202][146]"
1236 ST$(3,4)="[161][162][157][157][179][180][157][157][169][170][146]":
1240 ST$(2,9)="AB[157][157]CD[157][157]EF[157][157]GH[157][157]IJ":ST$(2,8)="AB[157][157]KL[157][157]MN[157][157]OP[157][157]IJ"
1244 ST$(2,7)="AB[157][157]ST[157][157]QR[157][157]UV[157][157]IJ":ST$(2,6)="AB[157][157]ST[157][157]QR[157][157]IJ"
1248 ST$(2,5)="AB[157][157]QR[157][157]IJ":ST$(2,4)="AB[157][157]ST[157][157]IJ":ST$(2,3)="AB[157][157]IJ"
1252 ST$(2,2)="WX[157][157]ST[157][157]YZ":ST$(2,1)="WX[157][157]YZ":ST$(2,0)="ST"
1256 FORI=2TO3:FORJ=10TO12:ST$(I,J)="01[157][157]23[157][157]45[157][157]67[157][157]89":NEXT:NEXT
1260 ST$(1,9)="[219][220][157][157][187][188][157][157][223][191][157][157][189][190][157][157][221][255][146]"
1264 ST$(1,8)="[219][220][157][157]#$[157][157]%&[157][157]*+[157][157][221][255][146]"
1268 ST$(1,6)="[219][220][157][157]\^[157][157]<>[157][157][221][255][146]"
1272 ST$(1,5)="[219][220][157][157]<>[157][157][221][255][146]"
1276 ST$(1,4)="[219][220][157][157]\^[157][157][221][255][146]"
1280 ST$(1,7)="[219][220][157][157]\^[157][157]<>[157][157]_=[157][157][221][255][146]"
1284 ST$(1,1)="[166][167][157][157][168][169]":ST$(1,2)="[166][167][157][157]\^[146][157][157][146][168][169]"
1288 ST$(1,0)="\^[146]":ST$(1,3)="[219][220][157][157][221][255][146]"
1292 FORI=0TO3:ST$(I,11)="()[157][157]>?[157][157]45[157][157]<=[157][157]:;":NEXT
1296 ST$(0,10)="()[157][157]^_[157][157]45[157][157][][157][157]:;"
1300 ST$(1,10)="()[157][157]^_[157][157]45[157][157][][157][157]:;"
1302 ST$(1,12)="01[157][157]23[157][157]45[157][157]67[157][157]89"
1304 ST$(0,12)="()[157][157]^_[157][157]45[157][157][][157][157]:;"
1308 ST$(2,12)="()[157][157]^_[157][157]45[157][157][][157][157]:;"
1312 ST$(3,12)="()[157][157]^_[157][157]45[157][157][][157][157]:;"
1316 RETURN
5999 REM RECONNECT*
6000 PRINT"[147]":POKE53281,0:POKE53272,21:POKEV+21,0
6010 GOTO40000
10000 OPEN15,8,15,"S0:GOLF":CLOSE15:SAVE"GOLF":END
40000 A$="HELLO CONNECT":FORI=8TO9:CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40030
40010 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40030
40020 NEXT:PRINT"[147]":POKE2048,0:POKE44,8:POKE53272,23:POKE186,DV:END
40030 POKE53281,0:PRINT"[147][144]LOAD"CHR$(34)A$CHR$(34)","I
40040 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END