home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 6 / Commodore_Disc_06_19xx_-_de.d64 / roulette.64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  18KB  |  653 lines
  1. 9 goto110
  2. 10 poke1984,31
  3. 11 geta$:ifa$<>chr$(13)then11
  4. 12 fori=1to9:ve(i)=500:next:goto150
  5. 110 printchr$(147)chr$(142);chr$(8)
  6. 120 poke53280,12:poke53281,12:poke646,6
  7. 125 za=rnd(-ti)
  8. 127 as=9:au=1:he=1000:hg=9
  9. 128 fori=1to9:ve(i)=500:next
  10. 130 dimsp(as,hg),ze(as,hg),be(as,hg)
  11. 140 f1$=chr$(133):f2$=chr$(137)
  12. 141 f3$=chr$(134):f4$=chr$(138)
  13. 142 f5$=chr$(135):f6$=chr$(139)
  14. 143 f7$=chr$(136):f8$=chr$(140)
  15. 150 print"[147]";
  16. 160 print"  [176][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][174]";
  17. 170 print"  [221]        [221]           [221]           [221]p12[221]";
  18. 180 print"  [221]        [221]           [221]    rot    [171][192][192][192][179]";
  19. 190 print"  [221] manque [221]  impair   [221]    [160]      [221]m12[221]";
  20. 200 print"  [221]        [221]       [160]   [221]     [218]     [171][192][192][192][179]";
  21. 210 print"  [221]       [160][221]           [221]           [221]d12[221]";
  22. 220 print"[176][192][219][192][178][192][178][192][178][192][192][219][192][192][178][192][192][178][192][192][178][192][192][219][192][192][178][192][192][178][192][192][178][192][192][219][192][192][192][179]";
  23. 230 print"[221] [221]3[221][144]6[221]9[221]12[221][144]15[221]18[221]21[221][144]24[221]27[221]30[221][144]33[221]36[221]   [221]";
  24. 240 print"[221] [171][192][219][192][219][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][192][179]";
  25. 250 print"[221]0[221][144]2[221]5[221][144]8[221][144]11[221]14[221][144]17[221][144]20[221]23[221][144]26[221][144]29[221]32[221][144]35[221]   [221]";
  26. 260 print"[221] [171][192][219][192][219][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][192][179]";
  27. 270 print"[221] [221]1[221][144]4[221]7[221][144]10[221][144]13[221]16[221]19[221][144]22[221]25[221][144]28[221][144]31[221]34[221]   [221]";
  28. 280 print"[173][192][219][192][177][192][177][192][177][192][192][219][192][192][177][192][192][177][192][192][177][192][192][219][192][192][177][192][192][177][192][192][177][192][192][219][192][192][192][179]";
  29. 290 print"  [221]        [221]           [221]           [221]d12[221]";
  30. 300 print"  [221]        [221]           [221]     [144][218]     [171][192][192][192][179]";
  31. 310 print"  [221] passe  [221]   pair    [221]           [221]m12[221]";
  32. 320 print"  [221]        [221]           [221]  schwarz  [171][192][192][192][179]";
  33. 330 print"  [221]        [221][160]          [221]           [221]p12[221]";
  34. 340 print"  [173][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][189]";
  35. 341 ifp9=1then6010
  36. 342 ifer>0then1000
  37. 345 gosub30000:poke214,19:poke211,0:sys58640
  38. 350 print"               >roulette<"
  39. 360 print"[149]_  (return) ":poke1019,0:poke1018,0
  40. 390 getgt$:ifgt$<>chr$(13)then390
  41. 500 poke53270,200:gosub30000:poke214,19:poke211,0:sys58640
  42. 505 poke53270,200:poke19,1:input"[149]spielanleitung (j/n) ?  >";in$
  43. 510 ifin$="j"then50000
  44. 520 ifin$<>"n"then500
  45. 1000 rem *** hauptmenue ***
  46. 1005 gosub30000:poke214,19:poke211,0:sys58640
  47. 1015 poke214,19:poke211,0:sys58640
  48. 1020 print"[149]<f1> setzen     <f4> formular"
  49. 1030 print"<f3> korrektur   <a> anleitung"
  50. 1040 print"<f5> anzeige     <e> ende"
  51. 1060 print"<f7> fertig "
  52. 1070 poke1984,62
  53. 1080 getgt$:ifgt$=""then1080
  54. 1090 ifgt$=f1$then2000
  55. 1100 ifgt$=f3$then3000
  56. 1110 ifgt$=f5$then4000
  57. 1120 ifgt$=f7$then5000
  58. 1130 ifgt$=f2$then6000
  59. 1140 ifgt$=f4$then7000
  60. 1170 ifgt$="a"then50000
  61. 1180 ifgt$="e"then60000
  62. 1190 goto1080
  63. 2000 gosub30000:poke214,19:poke211,0:sys58640
  64. 2010 poke19,1:input"[149]spieler nr.";sn$:poke19,0:print
  65. 2020 sn=val(sn$):ifsn<1orsn>asthen1000
  66. 2025 print"ihr altes guthaben : dm";ve(sn)
  67. 2030 poke19,1:input"[149]betrag: dm ";be$:poke19,0:print:be=val(be$)
  68. 2040 ifbe<1orbe>ve(sn)then1000
  69. 2041 ifbe>hethenprint"einsatz hoechstens dm";he:h1=1
  70. 2042 ifh1=1thenpoke1984,31
  71. 2043 ifh1=1thengetgt$:ifgt$<>chr$(13)then2043
  72. 2044 ifh1=1thenh1=0:goto2000
  73. 2045 sn=int(sn):be=int(be):ifgb(sn)=hgthen1000
  74. 2046 poke214,20:poke211,0:sys58640
  75. 2047 print"[144]ihr neues guthaben : dm";ve(sn)-be;"[157]         "
  76. 2048 poke214,22:poke211,0:sys58640
  77. 2050 print"bitte setzen sie ihren betrag mit dem"
  78. 2060 print"joystick (nr.1)"
  79. 2065 gosub40000
  80. 2070 gb(sn)=gb(sn)+1:sp(sn,gb(sn))=sp:ze(sn,gb(sn))=ze:be(sn,gb(sn))=be
  81. 2075 ve(sn)=ve(sn)-be
  82. 2080 goto1000
  83. 3000 gosub30000:poke214,19:poke211,0:sys58640
  84. 3010 poke19,1:input"[149]spieler nr.";sn$:poke19,0:print
  85. 3020 sn=int(val(sn$)):ifsn<1orsn>asthen1000
  86. 3030 ifgb(sn)=0then1000
  87. 3032 print"ihr altes guthaben : dm";ve(sn)
  88. 3040 print"bitte holen sie sich ihr geld mit dem"
  89. 3050 print"joystick (nr.1)"
  90. 3055 pr=0:gosub40000
  91. 3057 ifp1=1thenp1=0:gosub40010
  92. 3060 forhv=1togb(sn)
  93. 3070 ifsp(sn,hv)=spandze(sn,hv)=zethenwb=hv:hv=gb(sn):pr=1
  94. 3080 nexthv
  95. 3090 ifpr=0thenp1=1:goto3057
  96. 3100 pr=0:ve(sn)=ve(sn)+be(sn,wb):pokenw,peek(nw)-128
  97. 3110 forhv=wb+1togb(sn)
  98. 3120 sp(sn,hv-1)=sp(sn,hv)
  99. 3130 ze(sn,hv-1)=ze(sn,hv)
  100. 3140 be(sn,hv-1)=be(sn,hv)
  101. 3150 nexthv
  102. 3160 gb(sn)=gb(sn)-1
  103. 3165 poke214,21:poke211,0:sys58640
  104. 3170 print"[144]ihr neues guthaben : dm";ve(sn)
  105. 3175 print"                                       "
  106. 3176 print"                      "
  107. 3180 poke1984,31
  108. 3190 getgt$:ifgt$<>chr$(13)then3190
  109. 3200 uc=0:pr=0:p1=0:nw=0:goto1000
  110. 4000 gosub30000:poke214,19:poke211,0:sys58640
  111. 4010 poke19,1:input"[149]spieler nr.";sn$:poke19,0:print
  112. 4020 sn=int(val(sn$)):ifsn<1orsn>asthen1000
  113. 4025 ifgb(sn)=0then1000
  114. 4030 forhv=1togb(sn)
  115. 4040 ifpeek(214)=24thengosub30000:poke214,19:poke211,0:sys58640
  116. 4050 printhv;" - dm";be(sn,hv):poke1984,31:ge=ge+be(sn,hv)
  117. 4055 nw=1024+sp(sn,hv)+40*ze(sn,hv)
  118. 4060 pokenw,peek(nw)-128
  119. 4070 fori=1to100:nexti
  120. 4080 pokenw,peek(nw)+128
  121. 4090 fori=1to100:nexti
  122. 4100 getgt$:ifgt$=chr$(13)then4120
  123. 4110 goto4060
  124. 4120 nexthv
  125. 4130 gosub30000:poke214,19:poke211,0:sys58640
  126. 4140 print"sie haben gesetzt : dm";ge:ge=0
  127. 4150 print"     ihr guthaben : dm";ve(sn)
  128. 4160 forhv=1togb(sn)
  129. 4170 nw=1024+sp(sn,hv)+40*ze(sn,hv):pokenw,peek(nw)-128
  130. 4180 nexthv
  131. 4190 fori=1to100:next
  132. 4200 forhv=1togb(sn)
  133. 4210 nw=1024+sp(sn,hv)+40*ze(sn,hv):pokenw,peek(nw)+128
  134. 4220 nexthv
  135. 4230 fori=1to100:next
  136. 4235 poke1984,31
  137. 4240 getgt$:ifgt$=chr$(13)then1000
  138. 4250 goto4160
  139. 5000 gosub30000:poke214,19:poke211,0:sys58640
  140. 5010 poke19,1:input"[149]fertig - sind sie sicher (j/n) ?  >";in$:poke19,0
  141. 5020 ifin$="n"then1000
  142. 5030 ifin$<>"j"then5000
  143. 5040 print:print"nichts geht mehr !":za=0
  144. 5050 fora=1to10:za=za+int(rnd(1)*37):next:za=int(za/10)
  145. 5060 ifza=1orza=3orza=5orza=7orza=9orza=12orza=14orza=16orza=18orza=19then5090
  146. 5070 ifza=21orza=23orza=25orza=27orza=30orza=32orza=34orza=36then5090
  147. 5075 ifza=0thenco=6:goto5100
  148. 5080 co=0:co$="scwarz":goto5100
  149. 5090 co=2:co$="rot"
  150. 5100 print"die zahl :";:poke646,co:printza;:ifza<>0thenprint"(";co$;")"
  151. 5102 poke1984,31
  152. 5104 getgt$:ifgt$<>chr$(13)then5104
  153. 5110 forsn=1toas
  154. 5120 ifgb(sn)=0then5240
  155. 5122 gosub30000:poke214,19:poke211,0:sys58640:print"[149]spieler nr.";sn:print
  156. 5124 poke1984,31
  157. 5126 getgt$:ifgt$<>chr$(13)then5126
  158. 5130 forhv=1togb(sn)
  159. 5140 sp=sp(sn,hv):ze=ze(sn,hv):be=be(sn,hv):ve=ve(sn)
  160. 5150 onzegoto10000,10500,11000,11500,12000,12500,13000,13500,14000,14500
  161. 5160 onze-10goto15000,12500,15500,16000,16500,17000,17500
  162. 5170 ifau=0then5189
  163. 5171 nw=1024+sp+40*ze
  164. 5172 gosub30000:poke214,19:poke211,0:sys58640
  165. 5173 print"gesetzt : dm";be:print"[144]zurueck : dm";ge:poke1984,31
  166. 5181 nw=1024+sp+40*ze
  167. 5182 pokenw,peek(nw)-128
  168. 5183 fori=1to100:next
  169. 5185 pokenw,peek(nw)+128
  170. 5186 fori=1to100:next
  171. 5187 getgt$:ifgt$<>chr$(13)then5182
  172. 5188 pokenw,peek(nw)-128
  173. 5189 gs=gs+be:zu=zu+ge:ve(sn)=ve(sn)+ge:vb=vb-ge+be:ge=0
  174. 5190 nexthv
  175. 5200 gosub30000:poke214,19:poke211,0:sys58640
  176. 5210 print"sie hatten gesetzt : dm";gs:print"sie bekommen       : dm";zu
  177. 5220 print"[144]ihr gewinn         : dm";zu-gs
  178. 5222 print"ihr altes guthaben : dm";ve(sn)+gs-zu
  179. 5224 print"[144]ihr neues guthaben : dm";ve(sn)
  180. 5225 ifve(sn)<=0thengosub30000:print"[145][145][145][145]spieler nr.";sn;" hat verloren !!"
  181. 5226 ifve(sn)<=0then10
  182. 5227 zu=0:gs=0
  183. 5230 gb(sn)=0
  184. 5232 poke1984,31
  185. 5234 getgt$:ifgt$<>chr$(13)then5234
  186. 5240 nextsn
  187. 5250 er=er+1:goto150
  188. 6000 p9=1:goto150
  189. 6010 p9=0
  190. 6020 forsn=1to9
  191. 6030 ifgb(sn)=0then6100
  192. 6040 forhv=1togb(sn)
  193. 6050 nw=1024+sp(sn,hv)+40*ze(sn,hv)
  194. 6060 pokenw,peek(nw)+128
  195. 6090 nexthv
  196. 6100 nextsn
  197. 6110 goto1000
  198. 7000 gosub30000:poke214,19:poke211,0:sys58640
  199. 7010 print"[149]hoechsteinsatz :";he
  200. 7020 poke214,19:poke211,17:sys58640:poke19,1:inputin$:poke19,0
  201. 7030 ifleft$(in$,1)="u"thenhe=1e32:goto7060
  202. 7040 in=int(val(in$)):ifin<1then7000
  203. 7050 he=in:poke214,19:poke211,16:sys58640:printhe;"[157]           "
  204. 7060 print:print"[149]ausfuehrliche auswertung bei fertig"
  205. 7070 poke214,21:poke211,0:sys58640:poke19,1:input"[149]j/n ?  >";in$:poke19,0
  206. 7075 ifin$<>"n"andin$<>"j"then7070
  207. 7080 ifin$="j"thenau=1
  208. 7090 ifin$="n"thenau=0
  209. 7095 poke214,22:poke211,0:sys58640
  210. 7999 goto1000
  211. 10000 onspgoto0,0,20000,20000,20000,20000,20000,20000,20000,20000,0,20100,20100
  212. 10010 onsp-13goto20100,20100,20100,20100,20100,20100,20100,20100,20100,0,20200
  213. 10020 onsp-24goto20200,20200,20200,20200,20200,20200,20200,20200,20200,20200,0
  214. 10030 onsp-35goto20300,20300,20300
  215. 10500 onspgoto0,0,20000,20000,20000,20000,20000,20000,20000,20000,0,20100,20100
  216. 10510 onsp-13goto20100,20100,20100,20100,20100,20100,20100,20100,20100,0,20200
  217. 10520 onsp-24goto20200,20200,20200,20200,20200,20200,20200,20200,20200,20200,0
  218. 10530 onsp-35goto20400,20400,20400
  219. 11000 onspgoto0,0,20000,20000,20000,20000,20000,20000,20000,20000,0,20100,20100
  220. 11010 onsp-13goto20100,20100,20100,20100,20100,20100,20100,20100,20100,0,20200
  221. 11020 onsp-24goto20200,20200,20200,20200,20200,20200,20200,20200,20200,20200,0
  222. 11030 onsp-35goto20500,20500,20500
  223. 11500 onspgoto0,0,20000,20000,20000,20000,20000,20000,20000,20000,0,20100,20100
  224. 11510 onsp-13goto20100,20100,20100,20100,20100,20100,20100,20100,20100,0,20200
  225. 11520 onsp-24goto20200,20200,20200,20200,20200,20200,20200,20200,20200,20200,0
  226. 11530 onsp-35goto20600,20600,20600
  227. 12000 onspgoto0,0,20000,20000,20000,20000,20000,20000,20000,20000,0,20100,20100
  228. 12010 onsp-13goto20100,20100,20100,20100,20100,20100,20100,20100,20100,0,20200
  229. 12020 onsp-24goto20200,20200,20200,20200,20200,20200,20200,20200,20200,20200,0
  230. 12030 onsp-35goto20700,20700,20700
  231. 12500 onspgoto0,20800,20900,21000,21100,21200,21300,21400,21500,21500,21600
  232. 12510 onsp-11goto21700,21700,21800,21900,21900,22000,22100,22100,22200,22300
  233. 12520 onsp-21goto22300,22400,22500,22500,22600,22700,22700,22800,22900,22900
  234. 12530 onsp-31goto23000,23100,23100
  235. 13000 onspgoto23200,23300,23400,23500,23600,23700,23800,23900,24000,24000
  236. 13010 onsp-10goto24100,24200,24200,24300,24400,24400,24500,24600,24600,24700
  237. 13020 onsp-20goto24800,24800,24900,25000,25000,25100,25200,25200,25300,25400
  238. 13030 onsp-30goto25400,25500,25550,25550,0,25600,25600,25600
  239. 13500 onspgoto23200,25650,25700,25750,25800,25850,25900,25950,26000,26000,26025
  240. 13510 onsp-11goto26050,26050,26075,26100,26100,26125,26150,26150,26175,26200
  241. 13520 onsp-21goto26200,26225,26250,26250,26275,26300,26300,26325,26350,26350
  242. 13530 onsp-31goto26375,26400,26400,0,26425,26425,26425
  243. 14000 onspgoto23200,26450,26475,26500,26525,26550,26575,26600,26625,26625
  244. 14010 onsp-10goto26650,26675,26675,26700,26725,26725,26750,26775,26775,26800
  245. 14020 onsp-20goto26825,26825,26850,26875,26875,26900,26925,26925,26950,26975
  246. 14030 onsp-30goto26975,27000,27025,27025,0,27050,27050,27050
  247. 14500 onspgoto23200,27075,27100,27125,27150,27175,27200,27225,27250,27250,27375
  248. 14510 onsp-11goto27300,27300,27325,27350,37350,27375,27400,27400,27425,27450
  249. 14520 onsp-21goto27450,27475,27500,27500,27525,27550,27550,27575,27600,27600
  250. 14530 onsp-31goto27625,27650,27650,0,27675,27675,27675
  251. 15000 onspgoto23200,27700,27725,27750,27800,27825,27850,27875,27900,27900
  252. 15010 onsp-10goto27925,27950,27950,27975,28000,28000,28025,28050,28050,28075
  253. 15020 onsp-20goto28100,28100,28125,28150,28150,28175,28200,28200,28225,28250
  254. 15030 onsp-30goto28250,28275,28300,0,28325,28325,28325
  255. 15500 onspgoto0,0,28400,28400,28400,28400,28400,28400,28400,28400,0,28500
  256. 15510 onsp-12goto28500,28500,28500,28500,28500,28500,28500,28500,28500,28500,0
  257. 15520 onsp-23goto28600,28600,28600,28600,28600,28600,28600,28600,28600,28600
  258. 15530 onsp-33goto28600,0,20700,20700,20700
  259. 16000 onspgoto0,0,28400,28400,28400,28400,28400,28400,28400,28400,0,28500
  260. 16010 onsp-12goto28500,28500,28500,28500,28500,28500,28500,28500,28500,28500,0
  261. 16020 onsp-23goto28600,28600,28600,28600,28600,28600,28600,28600,28600,28600
  262. 16030 onsp-33goto28600,0,20600,20600,20600
  263. 16500 onspgoto0,0,28400,28400,28400,28400,28400,28400,28400,28400,0,28500
  264. 16510 onsp-12goto28500,28500,28500,28500,28500,28500,28500,28500,28500,28500,0
  265. 16520 onsp-23goto28600,28600,28600,28600,28600,28600,28600,28600,28600,28600
  266. 16530 onsp-33goto28600,0,20500,20500,20500
  267. 17000 onspgoto0,0,28400,28400,28400,28400,28400,28400,28400,28400,0,28500
  268. 17010 onsp-12goto28500,28500,28500,28500,28500,28500,28500,28500,28500,28500,0
  269. 17020 onsp-23goto28600,28600,28600,28600,28600,28600,28600,28600,28600,28600
  270. 17030 onsp-33goto28600,0,20400,20400,20400
  271. 17500 onspgoto0,0,28400,28400,28400,28400,28400,28400,28400,28400,0,28500
  272. 17510 onsp-12goto28500,28500,28500,28500,28500,28500,28500,28500,28500,28500,0
  273. 17520 onsp-23goto28600,28600,28600,28600,28600,28600,28600,28600,28600,28600
  274. 17530 onsp-33goto28600,0,20300,20300,20300
  275. 20000 ifza<=18thenge=be*2
  276. 20010 goto5170
  277. 20100 ifza/2<>int(za/2)thenge=be*2
  278. 20110 goto5170
  279. 20200 ifco=2thenge=be*2
  280. 20210 goto5170
  281. 20300 ifza>=1andza<=12thenge=be*3
  282. 20310 goto5170
  283. 20400 ifza>=1andza<=24thenge=int(be*1.5)
  284. 20410 goto5170
  285. 20500 ifza>=13andza<=24thenge=be*3
  286. 20510 goto5170
  287. 20600 ifza>=13thenge=int(be*1.5)
  288. 20610 goto5170
  289. 20700 ifza>=25thenge=be*3
  290. 20710 goto5170
  291. 20800 ifza<=3thenge=be*9
  292. 20810 goto5170
  293. 20900 ifza>=1andza<=3thenge=be*12
  294. 20910 goto5170
  295. 21000 ifza>=1andza<=6thenge=be*6
  296. 21010 goto5170
  297. 21100 ifza>=4andza<=6thenge=be*12
  298. 21110 goto5170
  299. 21200 ifza>=4andza<=9thenge=be*6
  300. 21210 goto5170
  301. 21300 ifza>=7andza<=9thenge=be*12
  302. 21310 goto5170
  303. 21400 ifza>=7andza<=12thenge=be*6
  304. 21410 goto5170
  305. 21500 ifza>=10andza<=12thenge=be*12
  306. 21510 goto5170
  307. 21600 ifza>=10andza<=15thenge=be*6
  308. 21610 goto5170
  309. 21700 ifza>=10andza<=15thenge=be*12
  310. 21710 goto5170
  311. 21800 ifza>=13andza<=18thenge=be*6
  312. 21810 goto5170
  313. 21900 ifza>=16andza<=18thenge=be*12
  314. 21910 goto5170
  315. 22000 ifza>=16andza<=21thenge=be*6
  316. 22010 goto5170
  317. 22100 ifza>=19andza<=21thenge=be*12
  318. 22110 goto5170
  319. 22200 ifza>=19andza<=24thenge=be*6
  320. 22210 goto5170
  321. 22300 ifza>=22andza<=24thenge=be*12
  322. 22310 goto5170
  323. 22400 ifza>=22andza<=27thenge=be*6
  324. 22410 goto5170
  325. 22500 ifza>=25andza<=27thenge=be*12
  326. 22510 goto5170
  327. 22600 ifza>=25andza<=30thenge=be*6
  328. 22610 goto5170
  329. 22700 ifza>=28andza<=30thenge=be*12
  330. 22710 goto5170
  331. 22800 ifza>=28andza<=33thenge=be*6
  332. 22810 goto5170
  333. 22900 ifza>=31andza<=33thenge=be*12
  334. 22910 goto5170
  335. 23000 ifza>=31andza<=36thenge=be*6
  336. 23010 goto5170
  337. 23100 ifza>=34andza<=36thenge=be*12
  338. 23200 ifza=0thenge=be*36
  339. 23210 goto5170
  340. 23300 ifza=0orza=3thenge=be*18
  341. 23310 goto5170
  342. 23400 ifza=3thenge=be*36
  343. 23410 goto5170
  344. 23500 ifza=3orza=6thenge=be*18
  345. 23510 goto5170
  346. 23600 ifza=6thenge=be*36
  347. 23610 goto5170
  348. 23700 ifza=6orza=9thenge=be*18
  349. 23710 goto5170
  350. 23800 ifza=9thenge=be*36
  351. 23810 goto5170
  352. 23900 ifza=9orza=12thenge=be*18
  353. 23910 goto5170
  354. 24000 ifza=12thenge=be*36
  355. 24010 goto5170
  356. 24100 ifza=12orza=15thenge=be*18
  357. 24110 goto5170
  358. 24200 ifza=15thenge=be*36
  359. 24210 goto5170
  360. 24300 ifza=15orza=18thenge=be*18
  361. 24310 goto5170
  362. 24400 ifza=18thenge=be*36
  363. 24410 goto5170
  364. 24500 ifza=18orza=21thenge=be*18
  365. 24510 goto5170
  366. 24600 ifza=21thenge=be*36
  367. 24610 goto5170
  368. 24700 ifza=21orza=24thenge=be*18
  369. 24710 goto5170
  370. 24800 ifza=24thenge=be*36
  371. 24810 goto5170
  372. 24900 ifza=24orza=27thenge=be*18
  373. 24910 goto5170
  374. 25000 ifza=27thenge=be*36
  375. 25010 goto5170
  376. 25100 ifza=27orza=30thenge=be*18
  377. 25110 goto5170
  378. 25200 ifza=30thenge=be*36
  379. 25210 goto5170
  380. 25300 ifza=30orza=33thenge=be*18
  381. 25310 goto5170
  382. 25400 ifza=33thenge=be*36
  383. 25410 goto5170
  384. 25500 ifza=33orza=36thenge=be*18
  385. 25510 goto5170
  386. 25550 ifza=36thenge=be*36
  387. 25560 goto5170
  388. 25600 ifint(za/3)=za/3thenge=be*3
  389. 25610 goto5170
  390. 25650 ifza=0orza=2orza=3thenge=be*12
  391. 25660 goto5170
  392. 25700 ifza=2orza=3thenge=be*18
  393. 25710 goto5170
  394. 25750 ifza=2orza=3orza=5orza=6thenge=be*9
  395. 25760 goto5170
  396. 25800 ifza=5orza=6thenge=be*18
  397. 25810 goto5170
  398. 25850 ifza=5orza=6orza=8orza=9thenge=be*9
  399. 25860 goto5170
  400. 25900 ifza=8orza=9thenge=be*18
  401. 25910 goto5170
  402. 25950 ifza=8orza=9orza=11orza=12thenge=be*9
  403. 25960 goto5170
  404. 26000 ifza=11orza=12thenge=be*18
  405. 26010 goto5170
  406. 26025 ifza=11orza=12orza=14orza=15thenge=be*9
  407. 26030 goto5170
  408. 26050 ifza=14orza=15thenge=be*18
  409. 26055 goto5170
  410. 26075 ifza=14orza=15orza=17orza=18thenge=be*9
  411. 26080 goto5170
  412. 26100 ifza=17orza=18thenge=be*18
  413. 26105 goto5170
  414. 26125 ifza=17orza=18orza=20orza=21thenge=be*9
  415. 26130 goto5170
  416. 26150 ifza=20orza=21thenge=be*18
  417. 26155 goto5170
  418. 26175 ifza=20orza=21orza=23orza=24thenge=be*9
  419. 26180 goto5170
  420. 26200 ifza=23orza=24thenge=be*18
  421. 26205 goto5170
  422. 26225 ifza=23orza=24orza=26orza=27thenge=be*9
  423. 26230 goto5170
  424. 26250 ifza=26orza=27thenge=be*18
  425. 26255 goto5170
  426. 26275 ifza=26orza=27orza=29orza=30thenge=be*9
  427. 26280 goto5170
  428. 26300 ifza=29orza=30thenge=be*18
  429. 26305 goto5170
  430. 26325 ifza=29orza=30orza=32orza=33thenge=be*9
  431. 26330 goto5170
  432. 26350 ifza=32orza=33thenge=be*18
  433. 26355 goto5170
  434. 26375 ifza=32orza=33orza=35orza=36thenge=be*9
  435. 26380 goto5170
  436. 26400 ifza=35orza=36thenge=be*18
  437. 26405 goto5170
  438. 26425 ifint(za/3)=za/3orint((za+1)/3)=(za+1)/3thenge=int(be*1.5)
  439. 26430 goto5170
  440. 26450 ifza=0orza=2thenge=be*18
  441. 26455 goto5170
  442. 26475 ifza=2thenge=be*36
  443. 26480 goto5170
  444. 26500 ifza=2orza=5thenge=be*18
  445. 26505 goto5170
  446. 26525 ifza=5thenge=be*36
  447. 26530 goto5170
  448. 26550 ifza=5orza=8thenge=be*18
  449. 26555 goto5170
  450. 26575 ifza=8thenge=be*36
  451. 26580 goto5170
  452. 26600 ifza=8orza=11thenge=be*18
  453. 26605 goto5170
  454. 26625 ifza=11thenge=be*36
  455. 26630 goto5170
  456. 26650 ifza=11orza=14thenge=be*18
  457. 26655 goto5170
  458. 26675 ifza=14thenge=be*36
  459. 26680 goto5170
  460. 26700 ifza=14orza=17thenge=be*18
  461. 26705 goto5170
  462. 26725 ifza=17thenge=be*36
  463. 26730 goto5170
  464. 26750 ifza=17orza=20thenge=be*18
  465. 26755 goto5170
  466. 26775 ifza=20thenge=be*36
  467. 26780 goto5170
  468. 26800 ifza=20orza=23thenge=be*18
  469. 26805 goto5170
  470. 26825 ifza=23thenge=be*36
  471. 26830 goto5170
  472. 26850 ifza=23orza=26thenge=be*18
  473. 26855 goto5170
  474. 26875 ifza=26thenge=be*36
  475. 26880 goto5170
  476. 26900 ifza=26orza=29thenge=be*18
  477. 26905 goto5170
  478. 26925 ifza=29thenge=be*36
  479. 26930 goto5170
  480. 26950 ifza=29orza=32thenge=be*18
  481. 26955 goto5170
  482. 26975 ifza=32thenge=be*36
  483. 26980 goto5170
  484. 27000 ifza=32orza=35thenge=be*18
  485. 27005 goto5170
  486. 27025 ifza=35thenge=be*36
  487. 27030 goto5170
  488. 27050 ifint((za+1)/3)=(za+1)/3thenge=be*3
  489. 27055 goto5170
  490. 27075 ifza<=3thenge=be*12
  491. 27080 goto5170
  492. 27100 ifza=1orza=2thenge=be*18
  493. 27110 goto5170
  494. 27125 ifza=1orza=2orza=4orza=5thenge=be*9
  495. 27135 goto5170
  496. 27150 ifza=4orza=5thenge=be*18
  497. 27160 goto5170
  498. 27175 ifza=4orza=5orza=7orza=8thenge=be*9
  499. 27185 goto5170
  500. 27200 ifza=7orza=8thenge=be*18
  501. 27210 goto5170
  502. 27225 ifza=7orza=8orza=10orza=11thenge=be*9
  503. 27235 goto5170
  504. 27250 ifza=10orza=11thenge=be*18
  505. 27260 goto5170
  506. 27275 ifza=10orza=11orza=13orza=14thenge=be*9
  507. 27285 goto5170
  508. 27300 ifza=13orza=14thenge=be*18
  509. 27310 goto5170
  510. 27325 ifza=13orza=14orza=16orza=17thenge=be*9
  511. 27335 goto5170
  512. 27350 ifza=16orza=17thenge=be*18
  513. 27360 goto5170
  514. 27375 ifza=16orza=17orza=19orza=20thenge=be*9
  515. 27385 goto5170
  516. 27400 ifza=19orza=20thenge=be*18
  517. 27410 goto5170
  518. 27425 ifza=19orza=20orza=22orza=23thenge=be*9
  519. 27435 goto5170
  520. 27450 ifza=22orza=23thenge=be*18
  521. 27460 goto5170
  522. 27475 ifza=22orza=23orza=25orza=26thenge=be*9
  523. 27485 goto5170
  524. 27500 ifza=25orza=26thenge=be*18
  525. 27510 goto5170
  526. 27525 ifza=25orza=26orza=28orza=29thenge=be*9
  527. 27535 goto5170
  528. 27550 ifza=28orza=29thenge=be*18
  529. 27560 goto5170
  530. 27575 ifza=28orza=29orza=31orza=32thenge=be*9
  531. 27585 goto5170
  532. 27600 ifza=31orza=32thenge=be*18
  533. 27610 goto5170
  534. 27625 ifza=31orza=32orza=34orza=35thenge=be*9
  535. 27635 goto5170
  536. 27650 ifza=34orza=35thenge=be*18
  537. 27670 goto5170
  538. 27675 ifint((za+1)/3)=(za+1)/3orint((za+2)/3)=(za+2)/3thenge=be*1.5
  539. 27680 goto5170
  540. 27700 ifza=0orza=1thenge=be*18
  541. 27710 goto5170
  542. 27725 ifza=1thenge=be*36
  543. 27735 goto5170
  544. 27750 ifza=1orza=4thenge=be*18
  545. 27760 goto5170
  546. 27800 ifza=4thenge=be*36
  547. 27810 goto5170
  548. 27825 ifza=4orza=7thenge=be*18
  549. 27835 goto5170
  550. 27850 ifza=7thenge=be*36
  551. 27860 goto5170
  552. 27875 ifza=7orza=10thenge=be*18
  553. 27885 goto5170
  554. 27900 ifza=10thenge=be*36
  555. 27910 goto5170
  556. 27925 ifza=10orza=13thenge=be*18
  557. 27935 goto5170
  558. 27950 ifza=13thenge=be*36
  559. 27960 goto5170
  560. 27975 ifza=13orza=16thenge=be*18
  561. 27985 goto5170
  562. 28000 ifza=16thenge=be*36
  563. 28010 goto5170
  564. 28025 ifza=16orza=19thenge=be*18
  565. 28035 goto5170
  566. 28050 ifza=19thenge=be*36
  567. 28060 goto5170
  568. 28075 ifza=19orza=22thenge=be*18
  569. 28085 goto5170
  570. 28100 ifza=22thenge=be*36
  571. 28110 goto5170
  572. 28125 ifza=22orza=25thenge=be*18
  573. 28135 goto5170
  574. 28150 ifza=25thenge=be*36
  575. 28160 goto5170
  576. 28175 ifza=25orza=28thenge=be*18
  577. 28185 goto5170
  578. 28200 ifza=28thenge=be*36
  579. 28210 goto5170
  580. 28225 ifza=28orza=31thenge=be*18
  581. 28235 goto5170
  582. 28250 ifza=31thenge=be*36
  583. 28260 goto5170
  584. 28275 ifza=31orza=34thenge=be*18
  585. 28285 goto5170
  586. 28300 ifza=34thenge=be*36
  587. 28310 goto5170
  588. 28325 ifint((za+2)/3)=(za+2)/3thenge=be*3
  589. 28335 goto5170
  590. 28400 ifza>=19thenge=be*2
  591. 28410 goto5170
  592. 28500 ifint(za/2)=za/2thenge=be*2
  593. 28510 goto5170
  594. 28600 ifco=0thenge=be*2
  595. 28610 goto5170
  596. 30000 fori=19to23:poke214,i:poke211,0:sys58640
  597. 30010 print"                                       ":nexti:poke1984,32
  598. 30011 fora=1984to2023:pokea,32:next
  599. 30020 poke213,19:poke211,0:sys58640:return
  600. 40000 poke56320,127:sp=38:ze=9:aw=1422:ifpeek(aw)<128thenpokeaw,peek(aw)+128
  601. 40010 jo=peek(56321):ifjo=255then40010
  602. 40020 ifjo=239thenpr=0:goto40200
  603. 40030 ifjo=247thensp=sp+1:goto40063
  604. 40040 ifjo=251thensp=sp-1:goto40063
  605. 40050 ifjo=253thenze=ze+1:goto40063
  606. 40060 ifjo=254thenze=ze-1:goto40063
  607. 40061 goto40010
  608. 40063 ifsp>39thensp=0:ze=ze+1
  609. 40066 ifsp<0thensp=39:ze=ze-1
  610. 40070 ifze<1thenze=1
  611. 40080 ifze>17thenze=17
  612. 40090 nw=1024+sp+40*ze:ifpeek(nw)>=128then40110
  613. 40091 ifuc>=1then40120
  614. 40092 ifnw<>awthenpokenw,peek(nw)+128:pokeaw,peek(aw)-128:aw=nw
  615. 40100 goto40010
  616. 40110 ifuc<>1thenpokeaw,peek(aw)-128:uc=1:aw=nw:goto40010
  617. 40120 ifpeek(nw)<128thenpokenw,peek(nw)+128:uc=0:aw=nw
  618. 40130 goto40010
  619. 40200 ifpeek(nw)<128thenpokenw,peek(nw)+128
  620. 40210 ifsp=0orsp=35orsp=39then40010
  621. 40220 ifsp=1and(ze<7orze>11)then40010
  622. 40230 if(sp=2orsp=11orsp=23)and(ze<6orze>12)then40010
  623. 40235 if(ze=6orze=12)andsp>=36then40010
  624. 40240 return
  625. 50000 rem *** spielanleitung ***
  626. 50010 gosub30000:poke211,0:poke214,19:sys58640
  627. 50020 print"            < spielanleitung >[144]"
  628. 50030 print
  629. 50040 print"roulette ist ein gesellschaftsspiel,"
  630. 50050 print"an dem bis zu neun personen teilnehmen"
  631. 50060 print"_"
  632. 50061 geta$:ifa$<>chr$(13)then50061
  633. 50065 gosub30000:poke211,0:poke214,19:sys58640
  634. 50070 print"koennen. sie koennen nun mit dem"
  635. 50080 print"joystick (port 1) auf dem spielfeld"
  636. 50090 print"verschiedene geldbetraege setzen."
  637. 50100 print"gewonnen hat derjenige, der am meisten"
  638. 50110 print"_"
  639. 50120 geta$:ifa$<>chr$(13)then50120
  640. 50130 gosub30000:poke211,0:poke214,19:sys58640
  641. 50140 print"gewinn gemacht hat."
  642. 50150 print:print"viel glueck[144]"
  643. 50160 print"_"
  644. 50170 geta$:ifa$<>chr$(13)then50170
  645. 55000 goto 1000
  646. 60000 gosub30000:poke214,19:poke211,0:sys58640
  647. 60010 poke19,1:input"[149]ende - sicher? (j/n)  >";in$:poke19,0
  648. 60020 ifin$="n"then1000
  649. 60030 ifin$="j"then60050
  650. 60040 goto60000
  651. 60050 print:print"  roulette - [158](c) 1986 by [144]j.wellhausen"
  652. 60060 sys64738
  653.