home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 3 / 64er_Magazin_Sonderheft_03_86-03_1986_Markt__Technik_de_Side_B.d64 / yaatzee (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  8KB  |  253 lines
  1. 10 dima(15),c(15),v(38),w(38) :gosub10000
  2. 20 forx=1to15:a(x)=0:c(x)=0:next
  3. 90 (NULL)
  4. 91 s=0:(NULL)3
  5. 92 (NULL)0,8,7:(NULL)4,7,3
  6. 100 (NULL)1,1:a(7)=a(1)+a(2)+a(3)+a(4)+a(5)+a(6):ifa(7)>62thena(7)=a(7)+35
  7. 101 gosub9450:r=0:k=0:s=s+1:ifs>13then9500
  8. 102 (NULL):aa=0:ab=0:ac=0:ad=0:ae=0
  9. 103 ba=0:bb=0:bc=0:bd=0:be=0:bf=0
  10. 106 print"     1[146]      [159]2[146]      [156]3[146]      4[146]      5"
  11. 107 print"   [213][195][195][195][201] [160][213][195][195][195][201] [160][213][195][195][195][201] [160][213][195][195][195][201] [160][213][195][195][195][201]"
  12. 110 print"   [194]   [194]  [194]   [194] [160][194]   [194] [160][194]   [194]  [194]   [194]"
  13. 120 print"   [194]   [194] [160][194]   [194] [160][194]   [194] [160][194]   [194] [160][194]   [194]"
  14. 130 print"   [194]   [194] [160][194]   [194] [160][194]   [194] [160][194]   [194] [160][194]   [194]"
  15. 140 print"   [202][195][195][195][203] [160][202][195][195][195][203] [160][202][195][195][195][203]  [202][195][195][195][203] [160][202][195][195][195][203]"
  16. 150 print:
  17. 160 print"   1) 1er         ="a(1)
  18. 170 print"   2) 2er         ="a(2)
  19. 180 print"   3) 3er         ="a(3)
  20. 190 print"   4) 4er         ="a(4)
  21. 200 print"   5) 5er         ="a(5)
  22. 210 print"   6) 6er         ="a(6)
  23. 220 print"    [156]zw-summe      =     "a(7)"[146][144]
  24. 230 [153]"   8)drilling     =":[139]c(7)[178]1[167]231:[213]232
  25. 231 [153]"on"a(8)"waitstop":[137]240
  26. 232 [153]"on"a(8)
  27. 240 [153]"   9)vierling     =":[139]c(8)[178]1[167]241:[213]242
  28. 241 [153]"on"a(9)"waitstop":[137]250
  29. 242 [153]"on"a(9)
  30. 250 [153]"   10)fullhouse   =":[139]c(9)[178]1[167]251:[213]252
  31. 251 [153]"on"a(10)"waitstop":[137]260
  32. 252 [153]"on"a(10)
  33. 260 [153]"   11)kl.strasse  =":[139]c(10)[178]1[167]261:[213]262
  34. 261 [153]"on"a(11)"waitstop":[137]270
  35. 262 [153]"on"a(11)
  36. 270 [153]"   12)gr.strasse  =":[139]c(11)[178]1[167]271:[213]272
  37. 271 [153]"on"a(12)"waitstop":[137]280
  38. 272 [153]"on"a(12)
  39. 280 [153]"   13)yaatzee     =":[139]c(12)[178]1[167]281:[213]282
  40. 281 [153]"on"a(13)"waitstop":[137]290
  41. 282 [153]"on"a(13)
  42. 290 [153]"   14)chance      =":[139]c(13)[178]1[167]291:[213]292
  43. 291 [153]"on"a(14)"waitstop":[137]300
  44. 292 [153]"on"a(14)
  45. 300 [153]"     gesamt       =     "a(15)"waitstop"
  46. 301 [139]k[178]100[167]9600
  47. 400 aa[178][181]([187](1)[172]6)[170]1
  48. 401 [153]""a$(aa)
  49. 500 ab[178][181]([187](1)[172]6)[170]1
  50. 501 [153]""a$(ab)
  51. 600 ac[178][181]([187](1)[172]6)[170]1
  52. 601 [153]""a$(ac)
  53. 700 ad[178][181]([187](1)[172]6)[170]1
  54. 701 [153]""a$(ad)
  55. 800 ae[178][181]([187](1)[172]6)[170]1
  56. 801 [153]""a$(ae)
  57. 900 r[178]r[170]1:[139]r[179]3[167]990 :[213]6500
  58. 990 [153]"                              "
  59. 1000 [153]"wieviele willst du tauschen?"
  60. 1010 [161][249]ag:[139]ag[178]0[167]6500
  61. 1015 [139]ag[178]7[167]7600
  62. 1020 [153]"       "
  63. 1100 [153]"welche"
  64. 1200 [129]af[178]1[164]ag
  65. 1300 [161][249]u(af):u[178]af:[218]1, 99,6 :[130]
  66. 1301 [139]u    [177]0[175]u    [179]6[167]1399:[213]1302
  67. 1302 [153]"      "
  68. 1303 [153]"welche":[137]1200
  69. 1399 [129]b[178]1[164]500:[130]
  70. 1400 [145]u(1)[141]6000,6100,6200,6300,6400
  71. 1409 [129]b[178]1[164]500:[130]
  72. 1410 [145]u(2)[141]6000,6100,6200,6300,6400
  73. 1419 [129]b[178]1[164]500:[130]
  74. 1420 [145]u(3)[141]6000,6100,6200,6300,6400
  75. 1429 [129]b[178]1[164]500:[130]
  76. 1430 [145]u(4)[141]6000,6100,6200,6300,6400
  77. 1439 [129]b[178]1[164]500:[130]
  78. 1440 [145]u(5)[141]6000,6100,6200,6300,6400
  79. 1450 [129]af[178]1[164]5:u(af)[178]0:[130]
  80. 1500 [137]900
  81. 6000 [153]"   cmdcmdcmd   cmdcmdcmd   "
  82. 6001 aa[178][181]([187](1)[172]6)[170]1
  83. 6002 [153]""a$(aa):[141]11000:[142]
  84. 6100 [153]"   cmdcmdcmd   cmdcmdcmd   "
  85. 6101 ab[178][181]([187](1)[172]6)[170]1
  86. 6102 [153]""a$(ab):[141]11000:[142]
  87. 6200 [153]"   cmdcmdcmd   cmdcmdcmd   "
  88. 6201 ac[178][181]([187](1)[172]6)[170]1
  89. 6202 [153]""a$(ac):[141]11000:[142]
  90. 6300 [153]"   cmdcmdcmd   cmdcmdcmd   "
  91. 6301 ad[178][181]([187](1)[172]6)[170]1
  92. 6302 [153]""a$(ad):[141]11000:[142]
  93. 6400 [153]"   cmdcmdcmd   cmdcmdcmd   "
  94. 6401 ae[178][181]([187](1)[172]6)[170]1
  95. 6402 [153]""a$(ae):[141]11000:[142]
  96. 6500 [153]"                               "
  97. 6501 [153]"wohin  "
  98. 6510 [133]o:[137]6520
  99. 6511 [153]"                               "
  100. 6512 [153]"wohin "
  101. 6513 [133]o
  102. 6520 [139]o[178]1[167]7000:[213]6530
  103. 6530 [139]o[178]2[167]7100:[213]6540
  104. 6540 [139]o[178]3[167]7200:[213]6550
  105. 6550 [139]o[178]4[167]7300:[213]6560
  106. 6560 [139]o[178]5[167]7400:[213]6570
  107. 6570 [139]o[178]6[167]7500:[213]6580
  108. 6580 [139]o[178]8[167]7700:[213]6590
  109. 6590 [139]o[178]9[167]7700:[213]6600
  110. 6600 [139]o[178]10[167]7700:[213]6610
  111. 6610 [139]o[178]11[167]9060:[213]6620
  112. 6620 [139]o[178]12[167]9095:[213]6630
  113. 6630 [139]o[178]13[167]9300:[213]6640
  114. 6640 [139]o[178]14[167]9400:[213]6650
  115. 6650 [137]100
  116. 7000 [139]c(1)[178]1[167]6511:a(1)[178]0:[213][139]aa[178]1[167]a(1)[178]a(1)[170]1:[213]aa[178]0
  117. 7001 [139]ab[178]1[167]a(1)[178]a(1)[170]1:[213]ab[178]0
  118. 7002 [139]ac[178]1[167]a(1)[178]a(1)[170]1:[213]ac[178]0
  119. 7003 [139]ad[178]1[167]a(1)[178]a(1)[170]1:[213]ad[178]0
  120. 7004 [139]ae[178]1[167]a(1)[178]a(1)[170]1:[213]ae[178]0:c(1)[178]1
  121. 7005 [137]100
  122. 7100 [139]c(2)[178]1[167]6511:a(2)[178]0:[213][139]aa[178]2[167]a(2)[178]a(2)[170]2:[213]aa[178]0
  123. 7101 [139]ab[178]2[167]a(2)[178]a(2)[170]2:[213]ab[178]0
  124. 7102 [139]ac[178]2[167]a(2)[178]a(2)[170]2:[213]ac[178]0
  125. 7103 [139]ad[178]2[167]a(2)[178]a(2)[170]2:[213]ad[178]0
  126. 7104 [139]ae[178]2[167]a(2)[178]a(2)[170]2:[213]ae[178]0:c(2)[178]1
  127. 7105 [137]100
  128. 7200 [139]c(3)[178]1[167]6511:a(3)[178]0:[213][139]aa[178]3[167]a(3)[178]a(3)[170]3:[213]aa[178]0
  129. 7201 [139]ab[178]3[167]a(3)[178]a(3)[170]3:[213]ab[178]0
  130. 7202 [139]ac[178]3[167]a(3)[178]a(3)[170]3:[213]ac[178]0
  131. 7203 [139]ad[178]3[167]a(3)[178]a(3)[170]3:[213]ad[178]0
  132. 7204 [139]ae[178]3[167]a(3)[178]a(3)[170]3:[213]ae[178]0:c(3)[178]1
  133. 7205 [137]100
  134. 7300 [139]c(4)[178]1[167]6511:a(4)[178]0:[213][139]aa[178]4[167]a(4)[178]a(4)[170]4:[213]aa[178]0
  135. 7301 [139]ab[178]4[167]a(4)[178]a(4)[170]4:[213]ab[178]0
  136. 7302 [139]ac[178]4[167]a(4)[178]a(4)[170]4:[213]ac[178]0
  137. 7303 [139]ad[178]4[167]a(4)[178]a(4)[170]4:[213]ad[178]0
  138. 7304 [139]ae[178]4[167]a(4)[178]a(4)[170]4:[213]ae[178]0:c(4)[178]1
  139. 7305 [137]100
  140. 7400 [139]c(5)[178]1[167]6511:a(5)[178]0:[213][139]aa[178]5[167]a(5)[178]a(5)[170]5:[213]aa[178]0
  141. 7401 [139]ab[178]5[167]a(5)[178]a(5)[170]5:[213]ab[178]0
  142. 7402 [139]ac[178]5[167]a(5)[178]a(5)[170]5:[213]ac[178]0
  143. 7403 [139]ad[178]5[167]a(5)[178]a(5)[170]5:[213]ad[178]0
  144. 7404 [139]ae[178]5[167]a(5)[178]a(5)[170]5:[213]ae[178]0:c(5)[178]1
  145. 7405 [137]100
  146. 7500 [139]c(6)[178]1[167]6511:a(6)[178]0:[213][139]aa[178]6[167]a(6)[178]a(6)[170]6:[213]aa[178]0
  147. 7501 [139]ab[178]6[167]a(6)[178]a(6)[170]6:[213]ab[178]0
  148. 7502 [139]ac[178]6[167]a(6)[178]a(6)[170]6:[213]ac[178]0
  149. 7503 [139]ad[178]6[167]a(6)[178]a(6)[170]6:[213]ad[178]0
  150. 7504 [139]ae[178]6[167]a(6)[178]a(6)[170]6:[213]ae[178]0:c(6)[178]1
  151. 7505 [137]100
  152. 7600 a(7)[178]a(1)[170]a(2)[170]a(3)[170]a(4)[170]a(5)[170]a(6)
  153. 7601 [139]a(7)[177]62[167]a(7)[178]a(7)[170]35:[137]100
  154. 7700 [139]aa[178]1[167]ba[178]ba[170]1
  155. 7701 [139]ab[178]1[167]ba[178]ba[170]1
  156. 7702 [139]ac[178]1[167]ba[178]ba[170]1
  157. 7703 [139]ad[178]1[167]ba[178]ba[170]1
  158. 7704 [139]ae[178]1[167]ba[178]ba[170]1
  159. 7800 [139]aa[178]2[167]bb[178]bb[170]1
  160. 7801 [139]ab[178]2[167]bb[178]bb[170]1
  161. 7802 [139]ac[178]2[167]bb[178]bb[170]1
  162. 7803 [139]ad[178]2[167]bb[178]bb[170]1
  163. 7804 [139]ae[178]2[167]bb[178]bb[170]1
  164. 7900 [139]aa[178]3[167]bc[178]bc[170]1
  165. 7901 [139]ab[178]3[167]bc[178]bc[170]1
  166. 7902 [139]ac[178]3[167]bc[178]bc[170]1
  167. 7903 [139]ad[178]3[167]bc[178]bc[170]1
  168. 7904 [139]ae[178]3[167]bc[178]bc[170]1
  169. 8000 [139]aa[178]4[167]bd[178]bd[170]1
  170. 8001 [139]ab[178]4[167]bd[178]bd[170]1
  171. 8002 [139]ac[178]4[167]bd[178]bd[170]1
  172. 8003 [139]ad[178]4[167]bd[178]bd[170]1
  173. 8004 [139]ae[178]4[167]bd[178]bd[170]1
  174. 8100 [139]aa[178]5[167]be[178]be[170]1
  175. 8101 [139]ab[178]5[167]be[178]be[170]1
  176. 8102 [139]ac[178]5[167]be[178]be[170]1
  177. 8103 [139]ad[178]5[167]be[178]be[170]1
  178. 8104 [139]ae[178]5[167]be[178]be[170]1
  179. 8200 [139]aa[178]6[167]bf[178]bf[170]1
  180. 8201 [139]ab[178]6[167]bf[178]bf[170]1
  181. 8202 [139]ac[178]6[167]bf[178]bf[170]1
  182. 8203 [139]ad[178]6[167]bf[178]bf[170]1
  183. 8204 [139]ae[178]6[167]bf[178]bf[170]1
  184. 8205 [139]o[178]10[167]8500:[213]8206
  185. 8206 [139]o[178]9[167]8400:[213]8207
  186. 8207 [139]o[178]8[167]8300
  187. 8300 [139]c(7)[178]1[167]6511:[213]8301
  188. 8301 [139]ba[177]2[176]bb[177]2[176]bc[177]2[176]bd[177]2[176]be[177]2[176]bf[177]2[167]8302:[213]c(7)[178]1:a(8)[178]0:[137]100
  189. 8302 a(8)[178]aa[170]ab[170]ac[170]ad[170]ae:c(7)[178]1:[137]100
  190. 8400 [139]c(8)[178]1[167]6511:[213][139]ba[177]3[176]bb[177]3[176]bc[177]3[176]bd[177]3[176]be[177]3[176]bf[177]3[167]8402
  191. 8401 c(8)[178]1:a(9)[178]0:[137]100
  192. 8402 a(9)[178]aa[170]ab[170]ac[170]ad[170]ae:c(8)[178]1:[137]100
  193. 8500 [139]c(9)[178]1[167]6511:[213][139]ba[178]3[167]8501:[213]8600
  194. 8501 [139]bb[178]2[176]bc[178]2[176]bd[178]2[176]be[178]2[176]bf[178]2[167]9050:[213]8600
  195. 8600 [139]bb[178]3[167]8601:[213]8700
  196. 8601 [139]ba[178]2[176]bc[178]2[176]bd[178]2[176]be[178]2[176]bf[178]2[167]9050:[213]8700
  197. 8700 [139]bc[178]3[167]8701:[213]8800
  198. 8701 [139]ba[178]2[176]bb[178]2[176]bd[178]2[176]be[178]2[176]bf[178]2[167]9050:[213]8800
  199. 8800 [139]bd[178]3[167]8801:[213]8900
  200. 8801 [139]ba[178]2[176]bb[178]2[176]bc[178]2[176]be[178]2[176]bf[178]2[167]9050:[213]8900
  201. 8900 [139]be[178]3[167]8901:[213]9000
  202. 8901 [139]ba[178]2[176]bb[178]2[176]bc[178]2[176]bd[178]2[176]bf[178]2[167]9050:[213]9000
  203. 9000 [139]bf[178]3[167]9001:[213]9020
  204. 9001 [139]ba[178]2[176]bb[178]2[176]bc[178]2[176]bd[178]2[176]be[178]2[167]9050:[213]9020
  205. 9020 a(10)[178]0:c(9)[178]1:[137]100
  206. 9050 a(10)[178]25:c(9)[178]1:[137]100
  207. 9060 [139]c(10)[178]1[167]6511:[213]a(11)[178]30:c(10)[178]1:[137]100
  208. 9095 [139]c(11)[178]1[167]6511:[213]9098
  209. 9098 [139]aa[179][177]ab[175]aa[179][177]ac[175]aa[179][177]ad[175]aa[179][177]ae[167]9102:[213]9108
  210. 9102 [139]ab[179][177]ac[175]ab[179][177]ad[175]ab[179][177]ae[175]ab[179][177]aa[167]9103:[213]9108
  211. 9103 [139]ac[179][177]aa[175]ac[179][177]ab[175]ac[179][177]ad[175]ac[179][177]ae[167]9104:[213]9108
  212. 9104 [139]ad[179][177]aa[175]ad[179][177]ab[175]ad[179][177]ac[175]ad[179][177]ae[167]9105:[213]9108
  213. 9105 [139]ae[179][177]aa[175]ae[179][177]ab[175]ae[179][177]ac[175]ae[179][177]ad[167]9106:[213]9108
  214. 9106 [139]aa[177]1[175]ab[177]1[175]ac[177]1[175]ad[177]1[175]ae[177]1[167]9110:[213]9107
  215. 9107 [139]aa[179]6[175]ab[179]6[175]ac[179]6[175]ad[179]6[175]ae[179]6[167]9110:[213]9108
  216. 9108 a(12)[178]0:c(11)[178]1:[137]100
  217. 9110 a(12)[178]40:c(11)[178]1:[137]100
  218. 9300 [139]c(12)[178]1[167]6511:[213]9302
  219. 9302 [139]aa[178]ab[175]aa[178]ac[175]aa[178]ad[175]aa[178]ae[167]9306:[213]9305
  220. 9305 a(13)[178]0:c(12)[178]1:[137]100
  221. 9306 a(13)[178]50:c(12)[178]1:[137]100
  222. 9400 [139]c(13)[178]1[167]6511:[213]a(14)[178]aa[170]ab[170]ac[170]ad[170]ae:c(13)[178]1:[137]100
  223. 9450 a(15)[178]a(7)[170]a(8)[170]a(9)[170]a(10)[170]a(11)[170]a(12)[170]a(13)[170]a(14):[142]
  224. 9500 a(15)[178]a(7)[170]a(8)[170]a(9)[170]a(10)[170]a(11)[170]a(12)[170]a(13)[170]a(14):k[178]100:[137]103
  225. 9600 [129]tt[178]1[164]3000:[130]
  226. 9610 [139]a(15)[177]290[167]9620:[213]9700
  227. 9620 [232]:[129]p[178]1[164]38
  228. 9630 [135]v(p),w(p)
  229. 9640 [218]1,v(p),w(p)
  230. 9650 [153]"wait(NULL)"a(15)"waitcmd(NULL)(NULL)";"(NULL)"a(15)"waitcmd(NULL)(NULL)";"(NULL)"a(15)"waitcmd(NULL)(NULL)";"(NULL)clr"a(15)"waitcmd(NULL)(NULL)";
  231. 9660 [130]p
  232. 9670 [131] 643,20,739,20,739,10,770,10,798,20,739,20,834,40
  233. 9680 [131] 798,30,798,10,810,20,834,10,810,10,798,10,810,10
  234. 9690 [131] 834,20,770,10,739,10,770,10,798,10,770,20
  235. 9691 [131]1021,2 ,643,20,739,20,739,10,770,10,798,20,739,20,834,40,798,30
  236. 9692 [131]798,10,810,10,834,10,798,10,810,10,770,30,739,10,1021,2,739,30
  237. 9693 [140]
  238. 9695 [129]tt[178]1[164]3000:[130]
  239. 9700 [139]a(15)[177]t[167]t[178]a(15):[137]9710:[213]9900
  240. 9710 [231]1,2:[231]0,1:[231]4,1
  241. 9720 [153]"loadhighscore:"t"wait"
  242. 9900 [129]tt[178]1[164]3000:[130]
  243. 9901 [153]"nochmal (j/n)?"
  244. 9910 [161][249]a$:[139]a$[178]"j"[167]20:[213][128]
  245. 10000 a$(1)[178]"(NULL)"
  246. 10010 a$(2)[178]"(NULL)(NULL)stop"
  247. 10020 a$(3)[178]"open(NULL)(NULL)(NULL)stop"
  248. 10030 a$(4)[178]"clr(NULL)(NULL)cmdcmdcmd(NULL)(NULL)stop"
  249. 10040 a$(5)[178]"(NULL)(NULL)cmdcmd(NULL)cmdcmd(NULL)(NULL)stop"
  250. 10050 a$(6)[178]"(NULL)(NULL)cmdcmdcmd(NULL)(NULL)cmdcmdcmd(NULL)(NULL)stop"
  251. 10060 [142]
  252. 11000 [218]1,1000,6:[142]
  253.