home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 102 / 102.d81 / golf (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  9KB  |  264 lines
  1. 1 rem save"golf v6.2",9
  2. 2 poke56,56:poke51,0:clr:dv=peek(186):ifdv<8thendv=8
  3. 3 poke53281,0:poke53280,0
  4. 5 print"[147][159]":print""
  5. 6 print"[158]         [201]t's tee time . . .
  6. 10 [137]500
  7. 19 [143] choice*
  8. 20 [141]62
  9. 21 [129]i[178]1[164]cc:[139]a$[178][202](ch$,i,1)[167][142]
  10. 22 [130]:[137]20
  11. 25 [143] charge*
  12. 26 a$[178]"251331421502421502"
  13. 27 t[178]87:[151]f[170]6,96:[151]f[170]24,15
  14. 28 [129]i[178]1[164]18[169]3
  15. 29 [151]f[170]1,[197]([202](a$,i,2)):[151]f[170]4,33
  16. 30 [129]j[178]1[164]t[172][197]([202](a$,i[170]2,1)):[130]
  17. 31 [151]f[170]4,0:[130]:[142]
  18. 57 [143] any key-get a$*
  19. 58 x[178]0:y[178]24:[141]66:[153]"/           please press a key close       ononon"
  20. 62 [161]a$:[139]a$[178]""[167]70:[142]
  21. 64 [143] print at*
  22. 66 [151]211,x:[151]214,y:[158]58732:[142]
  23. 69 [143] multitask *
  24. 70 [139]jj[178]nc[171]2[167]jj[178][171]1
  25. 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
  26. 72 [143] print blank
  27. 73 [158]mt[170]3,x,x[170]3,y,y[170]4,tc,t3:[142]
  28. 79 [143]customize
  29. 80 [141]400
  30. 81 [158]mt[170]3,3,38,24,24,160,hl
  31. 82 [158]mt[170]3,18,36,11,17,160,hl
  32. 84 x[178]19:y[178]12:[141]66:[151]646,hl:  [153]"1. border color"
  33. 85 y[178]y[170]1:[141]66:[153]"2. tile color"
  34. 86 y[178]y[170]1:[141]66:[153]"3. tile shape "
  35. 87 y[178]y[170]1:[141]66:[153]"4. title color"
  36. 88 y[178]y[170]1:[141]66:[153]"5. new round "
  37. 90 [161]a$:[139]a$[179]"1"[176]a$[177]"5"[167]90
  38. 92 [145][197](a$)[137]94,96,100,106, 109
  39. 94 bd[178]bd[170]1:[139]bd[178]16[167]bd[178]0:
  40. 95 [151]53280,bd:[137]90
  41. 96 t3[178]t3[170]1:[139]t3[178]16[167]t3[178]0
  42. 97 [137]80:[137]90
  43. 100 wt[178]wt[170]1:[139]wt[178]7[167]wt[178]1
  44. 102 tc[178]t5(wt):[137]80:[137]90
  45. 106 hl[178]hl[170]1:[139]hl[178]16[167]hl[178]0
  46. 107 [139]hl[178]1[167]hl[178]2
  47. 108 [137]80:[137]90
  48. 109 [142]
  49. 110 [143] start up
  50. 111 [134]va$(13),vb$(13):f[178]54272:[129]i[178]f[164]f[170]78:[151]i,0:[130]
  51. 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)"
  52. 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]""
  53. 114 co$(3)[178]"stop":s1$(0)[178]"get":s1$(1)[178]"(NULL)":s1$(2)[178]"(NULL)":s1$(3)[178]"or"
  54. 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]
  55. 116 bk$[178]"!##$cmdcmdcmdcmd#coscos#cmdcmdcmdcmd#coscos#cmdcmdcmdcmd#coscos#cmdcmdcmdcmd\++*cmdcmdcmdcmdonononon"
  56. 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
  57. 118 t5(6)[178]100
  58. 122 [150][165]s(x)[178][181](x[173]13):[150][165]v(x)[178]x[171]13[172][181](x[173]13)
  59. 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]
  60. 130 [143] shuffle
  61. 131 [139]jj[178]nc[171]2[167][142]
  62. 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
  63. 133 [139]jj[179][177]nc[171]2[167]131
  64. 135 [134]x(08),y(08),c(08),b(7,10),dk(52),ws(52),st$(3,12)
  65. 140 ch$[178]"1234567 cqhn":cc[178][195](ch$):dk[178]0:ws[178]08
  66. 144 x(0)[178]10:y(0)[178]18:x(08)[178]26:y(8)[178]18
  67. 146 [141]1200
  68. 148 [142]
  69. 149 [143] end game
  70. 150 x[178]6:y[178]12:[141]66:[153]"tantantantantantantantantan"
  71. 152 y[178]y[170]1:[141]66:[153]"  great  "
  72. 154 y[178]y[170]1:[141]66:[153]" round!! "
  73. 156 y[178]y[170]1:[141]66:[153]"tantantantantantantantantan"
  74. 158 [151]646,hl:[141]58:[137]170
  75. 160 [158]mt[170]3,10,27,12,14,160,hl
  76. 165 zx[178]0:[129]i[178]1[164]7:zx[178]zx[170]c(i):[130]
  77. 166 [158]mt[170]18,13,"":[153]"cmdcmdcmdcmdcmdcmdcmdcmd"zx"card";:[139]zx[179][177]1[167][153]"s";
  78. 168 [153]" left":[141]58:[137]172
  79. 170 [158]mt[170]3,2,38,24,24,160,hl
  80. 172 [151]53272,21:[158]mt[170]3,0,39,0,24,160,13:[158]mt[170]3,8,31,6,16,32,1
  81. 173 [141]1000
  82. 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
  83. 175 tr[178]68[170]zx:[137]177
  84. 176 tr[178]68[171]c(dk)
  85. 177 ia[178]ia[170]tr:ag[178][181](ia[173]hg[170].5):[139]tr[179]hi[167]179
  86. 178 hi[178]tr
  87. 179 [139]tr[177]lo[175]lo[177]0[167]181
  88. 180 lo[178]tr
  89. 181 [141]440
  90. 184 y[178]18:x[178]18:[141]66: [153]"ortantantantantantantantantantantantantantantantan^
  91. 186 y=y+1:gosub66:print"[221] 1. new round   [221]"
  92. 188 y=y+1:gosub66:  print"[221] 2. customize   [221]
  93. 190 y[178]y[170]1:[141]66:  [153]"(NULL) 3. to loadstar (NULL)
  94. 192 y=y+1   :gosub66: print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
  95. 194 [141]62:[139](a$)[179]"1"[176](a$)[177]"3"[167]194
  96. 195 [153]"load":[151]53272,31
  97. 196 [145][197](a$)[137]512,198,  6000
  98. 198 [141]80:[137]512
  99. 199 [143] print card or erase*
  100. 200 x[178]x(i):y[178]y(i):[141]66
  101. 202 ca[178]b(i,c(i))
  102. 203 su[178][165]s(ca):va[178][165]v(ca)
  103. 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
  104. 206 [151]f[170]24,0:[151]f[170]24,15:[151]f[170]4,129:[151]f[170]4,128
  105. 207 [139]d8[178]1[176]c(i)[179][177]0[167]220
  106. 208 [139]c(i)[179][177]0[167]220
  107. 214 [143] erase card*
  108. 216 [141]73:[142]
  109. 220 [153]co$(su);va$(va);"<<>cmdcmdcmdcmd";s$(su);"  ^cmdcmdcmdcmdtab(  ^cmdcmdcmdcmdtab(  ";s1$(su);
  110. 222 [153]"cmdcmdcmdcmdsgn==";vb$(va);"ononononcmdcmdcmd";st$(su,va);:[142]
  111. 299 [143] deal
  112. 300 [129]i[178]1[164]7:[139]c(dk)[178]0[167][142]
  113. 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
  114. 308 [130]
  115. 309 [142]
  116. 314 [141]66:[141]73:[142]
  117. 319 [143] play one to waste
  118. 320 [139]c(i)[179]2[167]336
  119. 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
  120. 328 [137]340
  121. 332 [142]
  122. 336 c(i)[178]c(i)[171]1:[141]200
  123. 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]
  124. 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
  125. 415 k[178]2: [129]i[178]1[164]7:y(i)[178]5:x(i)[178]k:k[178]k[170]5:[130]
  126. 419 [151]53280,bd:[151]53281,1:[153]"load"
  127. 420 [158]mt[170]3,0,39,0,24, tc,t3:[158]mt[170]3,0,39,0,2,160,hl
  128. 421 [151]646,hl:[158]mt[170]18,1,"golf at the tower"
  129. 422 x[178]0:y[178]24:[141]66
  130. 423 [153]"wait/";:x[178]1:[141]66:[151]646,hl
  131. 424 [153]"  space deals     h-help     q-quit   ";
  132. 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]
  133. 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
  134. 429 [151]646,hl: [153]"on";[202]([196](i),2,1):[130]
  135. 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]
  136. 432 [129]k[178]1[164]4:[141]300:[130]:[142]
  137. 439 [143] scoreboard
  138. 440 x7[178]7:[158]mt[170]18,x7,"wait the loadstar links":[158]mt[170]18,x7[170]1,"clrleader board"
  139. 441 [158]mt[170]18,x7[170]2,"this round -     ":[153]"cmdcmdcmdcmdcmd";tr:
  140. 442 [158]mt[170]18,x7[170]3,"stop======================"
  141. 444 r7[178]tr[171]72:[139]r7[177]0[167]450
  142. 446 [139]r7[178]0[167]452
  143. 448 y[178]11:x[178]13:[141]66:[153]"";[171]r7;"under par":[137]454
  144. 450 y[178]11:x[178]13:[141]66:[153]"";r7;"over par":[137]454
  145. 452 y[178]11:x[178]16:[141]66:[153]"even par"
  146. 454 [139]hg[178]1[167]480
  147. 458 x[178]12:y[178]12:[141]66:[153]"stophigh round -";hi
  148. 460 x[178]12:y[178]13:[141]66:[153] "low round  -";lo
  149. 462 x[178]12:y[178]14:[141]66:[153] "average    -";ag
  150. 464 x[178]12:y[178]15:[141]66:[153] "# rounds   -";hg
  151. 480 [142]
  152. 500 [141]111:[141]26
  153. 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
  154. 515 k[178]3: [129]i[178]1[164]7:y(i)[178]7:x(i)[178]k:k[178]k[170]5:[130]
  155. 517 [153][199](142):[151]53272,31:[151]198,0:mt[178]52480
  156. 519 [151]53280,bd:[151]53281,1:[153]"load"
  157. 520 [158]mt[170]3,0,39,0,24, tc,t3:[158]mt[170]3,0,39,0,2,160,hl
  158. 521 [151]646,hl:[158]mt[170]18,1,"golf at the tower"
  159. 522 x[178]0:y[178]24:[141]66
  160. 523 [153]"wait/";:x[178]1:[141]66:[151]646,hl
  161. 524 [153]"  space deals     h-help     q-quit   ";
  162. 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]
  163. 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
  164. 529 [151]646,hl: [153]"o