home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 37 / 64er_Magazin_Sonderheft_37_19xx_Markt__Technik_de_Disk_2_of_2_Side_B.d64 / hp.roulette (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  20KB  |  572 lines
  1. 1 poke45,peek(174):poke46,peek(175):clr
  2. 12 poke781,23:sys59903:poke781,24:sys59903
  3. 14 poke211,2:poke214,23:sys58640:print"[144]bitte warten sie noch 15 sekunden!"
  4. 20 z=20:s=29:dimc(z,s),n$(z,s),f%(z,s),f1%(36),m$(5,10)
  5. 22 p=3:a=20:dimz%(p,a),s%(p,a),b(p,a),v(p),p$(p),a%(p)
  6. 25 fori=0top:v(i)=1000:nexti:f2%(0)=1:f2%(1)=7:f2%(2)=2:f2%(3)=6
  7. 30 forz=0to20:fors=0to29:readh$
  8. 31 ifh$="*"thenreadh,h$:fori=stos+h:n$(z,i)=h$:next:s=s+h:goto33
  9. 32 n$(z,s)=h$
  10. 33 next:next
  11. 34 forz=0to20:fors=0to29:readh
  12. 35 ifh<0thenreadh1:fori=stos-h:c(z,i)=h1:next:s=s-h:goto37
  13. 36 c(z,s)=h
  14. 37 next:next
  15. 38 forz=8to12step2:fors=3to25step2:readf%(z,s):next:next
  16. 39 fori=1to36:readf1%(i):next:fori=0to5:forj=0to10:readm$(i,j):next:next
  17. 40 poke781,23:sys59903:poke781,24:sys59903
  18. 42 poke211,31:poke214,20:sys58640:print"      ":gosub60000
  19. 50 poke211,0:poke214,23:sys58640:print"[144]wieviele spieler spielen mit (1-4) ?"
  20. 52 z=23:s=37:m=1:l=1:i$="":gosub60200
  21. 54 ap=val(i$)-1:ifap<0orap>3goto52
  22. 56 fori=0toap:poke211,0:poke214,24:sys58640:print"[144]name von spieler"i+1"?";
  23. 57 z=24:s=21:m=0:l=8:i$="":gosub60200
  24. 58 iflen(i$)<8thenforj=len(i$)to7:i$=i$+" ":nextj
  25. 59 p$(i)=i$:nexti
  26. 60 gosub60100:gosub60400
  27. 69 forp=0toap:gosub41000:next
  28. 70 an=rnd(-ti):an=int(rnd(1)*37):rn=1:gosub60800
  29. 72 gosub60900
  30. 80 poke53242,27:poke53289,6:poke53264,0:poke53252,30:poke53253,30:poke53269,4
  31. 81 poke53243,27:poke53244,27:poke53245,27:poke53246,27:poke53247,27
  32. 100 gosub60000
  33. 101 poke214,20:poke211,31:sys58640:print"men[186]    "
  34. 105 z=7:s=6:m=0:gosub42000
  35. 150 z=8:s=11:l=9:m=1:gosub60500
  36. 160 onmgoto1000,2000,3000,4000,5000,6000,8000,9000,10000
  37. 1000 poke214,20:poke211,31:sys58640:print"setzen"
  38. 1010 gosub40000
  39. 1030 m=1:s=19:z=13:l=ap+2:gosub60500
  40. 1040 ifm-2=apgoto101
  41. 1045 p=m-1:ifa%(p)=20goto101
  42. 1050 poke211,18:poke214,15+p:sys58640:print"[178][184][184][184][184][184][184][184][179]"
  43. 1052 poke211,18:poke214,16+p:sys58640:print"[182]betrag?[183]"
  44. 1054 poke211,18:poke214,17+p:sys58640:print"[182][192][192][192][192][192][192][192][183]"
  45. 1056 poke211,18:poke214,18+p:sys58640:print"[144][182]0000000[144][183]"
  46. 1058 poke211,18:poke214,19+p:sys58640:print"[180][185][185][185][185][185][185][185][181]"
  47. 1060 fori=0to6:b%(i)=0:next:m=0:l=6:s=25:z=18+p:poke646,1:gosub60600
  48. 1070 b=0:fori=0to6:b=b+b%(i)*10^i:next:b=int(b+.1)
  49. 1080 ifb=0goto101
  50. 1085 ifb>v(p)+.5goto1056
  51. 1100 gosub60100:poke214,20:poke211,31:sys58640:print"setzen"
  52. 1105 poke211,31:poke214,17:sys58640:printright$(str$(b),int(log(b)/log(10)+1))
  53. 1106 poke53255,240:poke53290,6:h=60+72*p:ifh>255thenh=h-255:poke53264,8
  54. 1107 poke53254,h:poke53269,12
  55. 1109 s=27:z=10
  56. 1110 m=0:gosub50000
  57. 1120 ifn$(z,s)="exit"thengosub60100:poke53269,4:poke53264,0:goto101
  58. 1125 ifn$(z,s)="---"goto1110
  59. 1130 v(p)=int(v(p)-b+.5):b(p,a%(p))=b:z%(p,a%(p))=z:s%(p,a%(p))=s:a%(p)=a%(p)+1
  60. 1140 fori=11to20step3:poke214,i:poke211,31:sys58640:print"        ":next
  61. 1150 gosub41000
  62. 1160 poke53269,4:poke53264,0:goto100
  63. 2000 poke214,20:poke211,31:sys58640:print"korrekt."
  64. 2010 gosub40000
  65. 2030 m=1:s=19:z=13:l=ap+2:gosub60500
  66. 2040 ifm-2=apgoto101
  67. 2045 p=m-1
  68. 2050 ifa%(p)=0goto101
  69. 2052 gosub60100
  70. 2055 s=27:z=10
  71. 2060 fori=0toa%(p)-1:poke211,s%(p,i):poke214,z%(p,i)+2:sys58640:print"[208][146]":next
  72. 2070 poke53255,240:poke53290,6:h=60+72*p:ifh>255thenh=h-255:poke53264,8
  73. 2072 poke53254,h:poke53269,12
  74. 2075 gosub50000
  75. 2077 ifn$(z,s)="exit"thengosub60100:poke53269,4:poke53264,0:goto101
  76. 2080 ifpeek(52304+40*z+s)<>208goto2075
  77. 2090 fori=0toa%(p)-1:ifz%(p,i)=zands%(p,i)=sthenh2=i:i=a%(p)-1
  78. 2095 nexti
  79. 2097 b=b(p,h2):poke646,1
  80. 2100 poke211,31:poke214,17:sys58640:printright$(str$(b),int(log(b)/log(10)+1))
  81. 2110 poke214,22:poke211,0:sys58640:print"[144]nehmen? ja  nein     "
  82. 2120 h1=0:poke53252,140:poke53253,230
  83. 2125 h=peek(56321):ifh=255goto2125
  84. 2130 ifh=247thenpoke53252,140:h1=0:goto2125
  85. 2135 ifh=251thenpoke53252,95:h1=1:goto2125
  86. 2140 ifh<>239goto2125
  87. 2145 poke214,17:poke211,31:sys58640:print"        "
  88. 2150 ifh1=0thenpoke781,22:sys59903:goto2070
  89. 2160 v(p)=v(p)+b:a%(p)=a%(p)-1
  90. 2170 fori=h2toa%(p):b(p,i)=b(p,i+1):s%(p,i)=s%(p,i+1):z%(p,i)=z%(p,i+1):next
  91. 2200 gosub60100
  92. 2205 gosub41000
  93. 2220 poke53269,4:poke53264,0:goto100
  94. 3000 gosub60100:poke211,31:poke214,20:sys58640:print"anzeigen"
  95. 3005 s=27:z=10
  96. 3010 forp=0toap:ifa%(p)=0goto3029
  97. 3020 fori=0toa%(p)-1:poke211,s%(p,i):poke214,z%(p,i)+2:sys58640:poke646,f2%(p)
  98. 3022 ifpeek(52304+z%(p,i)*40+s%(p,i))=208thenpoke646,0
  99. 3024 print"[208][146]":next
  100. 3029 poke53290+p,f2%(p)
  101. 3030 poke53255+p*2,240:h=60+72*p:ifh>255thenh=h-255:poke53264,64
  102. 3032 poke53254+p*2,h:poke53269,peek(53269)+2^(3+p)
  103. 3040 nextp
  104. 3050 gosub50000
  105. 3060 ifn$(z,s)="exit"thenpoke53269,4:poke53264,0:gosub60100:goto101
  106. 3065 ifpeek(52304+z*40+s)<>208goto3050
  107. 3075 p=0
  108. 3080 forj=ptoap:fori=0toa%(j)-1:ifz%(j,i)=zands%(j,i)=sthenh2=i:i=25:p=j:j=5
  109. 3090 next:next
  110. 3097 b=b(p,h2):poke646,1
  111. 3100 poke211,31:poke214,17:sys58640:printright$(str$(b),int(log(b)/log(10)+1))
  112. 3105 poke55974,f2%(p):poke52902,208
  113. 3107 h3=peek(53269):poke53269,4+2^(p+3)
  114. 3110 poke214,22:poke211,0:sys58640:gosub43500
  115. 3125 poke781,22:sys59903:poke52902,32:poke53269,h3
  116. 3127 poke214,17:poke211,31:sys58640:print"        "
  117. 3130 if((peek(55376+z*40+s)and15)=0)andp<apthenp=p+1:goto3080
  118. 3140 goto3050
  119. 4000 gosub60100:poke214,20:poke211,31:sys58640:print"r.n.v.p."
  120. 4010 z=5:s=5:m=1:gosub42000
  121. 4100 n=int(rnd(1)*37)
  122. 4190 h1=0:h=20-38-n
  123. 4200 fori=0to36:h=h+1:poke211,24:poke214,10:sys58640:printi;
  124. 4205 forj=1tosgn(h)*h^2:next
  125. 4210 h1=h1+1:ifh1=38+ntheni=36:h1=38
  126. 4220 next:ifh1<38thenprint"[157][157][157]  ":goto4200
  127. 4222 an=n
  128. 4225 gosub60900
  129. 4240 poke211,6:poke214,11:sys58640:print"[144]die zahl:";
  130. 4242 iff1%(n)=1thenprintn;"[144](schw.)"
  131. 4244 iff1%(n)=2thenprintn;"(rot)"
  132. 4246 iff1%(n)=0thenprint" 0 (null)"
  133. 4248 poke214,14:poke211,6:sys58640:print"weiter":m=14:gosub43000
  134. 4250 poke214,14:poke211,6:sys58640:print"[144]einen moment bitte..."
  135. 4260 ifn=0goto4510
  136. 4270 forp=0toap:h=0:g=0:fori=0toa%(p)-1
  137. 4280 s=s%(p,i):z=z%(p,i):b=b(p,i)
  138. 4300 h2=((s-2)/2)*3:h3=((s-3)/2)*3:h4=((s-4)/2)*3
  139. 4305 h5=(14-z)/2:h6=(13-z)/2:h7=(15-z)/2
  140. 4310 ifz<2orz>6goto4320
  141. 4312 ifs>2ands<10andn<19goto4500
  142. 4314 ifs>10ands<18andn/2<>int(n/2)goto4500
  143. 4316 ifs>18ands<26andf1%(n)=2goto4500
  144. 4320 ifz<14orz>18goto4330
  145. 4322 ifs>2ands<10andn>18goto4500
  146. 4324 ifs>10ands<18andn/2=int(n/2)goto4500
  147. 4326 ifs>18ands<26andf1%(n)=1goto4500
  148. 4330 if(z=8orz=10orz=12)ands=27and((z-8)/2+n)/3=int(((z-8)/2+n)/3)goto4500
  149. 4335 ifnot((z=9orz=11)ands=27)goto4340
  150. 4337 if((z-9)/2+n)/3=int(((z-9)/2+n)/3)goto4500
  151. 4338 if((z-7)/2+n)/3=int(((z-7)/2+n)/3)goto4500
  152. 4340 if(z=2orz=18)ands=26andn<13goto4500
  153. 4342 if(z=4orz=16)and(s=26ors=27)andn>12andn<25goto4500
  154. 4344 if(z=6orz=14)ands=27andn>24goto4500
  155. 4346 if(z=3orz=17)and(s=26ors=27)andn<25goto4500
  156. 4348 if(z=5orz=15)and(s=26ors=27)andn>12goto4500
  157. 4350 ifs=2and(z=7orz=13)and(n=1orn=2orn=3)goto4500
  158. 4352 ifs=2and(z=8orz=10orz=12)andn=h5goto4500
  159. 4354 ifs=2and(z=9orz=11)and(n=h6orn=h7)goto4500
  160. 4360 ifnot((z=7orz=13)ands>3ands<25ands/2=int(s/2))goto4370
  161. 4365 ifh2+1=norh2+2=norh2+3=norh4+1=norh4+2=norh3+4=ngoto4500
  162. 4370 ifnot((z=7orz=13)ands>2ands<26ands/2<>int(s/2))goto4380
  163. 4375 ifh3+1=norh3+2=norh3+3=ngoto4500
  164. 4380 ifnot((z=9orz=11)ands>3ands<25ands/2=int(s/2))goto4390
  165. 4385 ifh6+h4=norh6+h2=norh7+h4=norh7+h2=ngoto4500
  166. 4390 if(z=9orz=11)ands>2ands<26ands/2<>int(s/2)and(h6+h3=norh7+s3=n)goto4500
  167. 4400 ifnot((z=8orz=10orz=12)ands>3ands<25ands/2=int(s/2))goto4410
  168. 4405 ifh5+h4=norh5+h2=ngoto4500
  169. 4410 if(z=8orz=10orz=12)ands>2ands<26ands/2<>int(s/2)andh5+h3=ngoto4500
  170. 4450 h=h+b:nexti:goto4600
  171. 4500 g=g+b*c(z,s):goto4450
  172. 4510 forp=0toap:h=0:g=0:fori=0toa%(p)-1
  173. 4515 s=s%(p,i):z=z%(p,i):b=b(p,i)
  174. 4520 ifs=1goto4590
  175. 4525 ifs=2and(z=7orz=13)goto4590
  176. 4527 ifs=2and(z=8orz=10orz=12)goto4590
  177. 4530 ifs=2and(z=9orz=11)goto4590
  178. 4540 if(z<7orz>13)ands<26theng=g+b*.5
  179. 4550 h=h+b:nexti:goto4600
  180. 4590 g=g+b*c(z,s):goto4550
  181. 4600 poke214,6:poke211,6:sys58640:print"[144]auswertung f[186]r       "
  182. 4605 poke214,7:poke211,6:sys58640:print"spieler "p$(p)"     "
  183. 4610 poke214,9:poke211,6:sys58640:print"[144]sie setzten $        [157][157][157][157][157][157][157][157]";
  184. 4612 g=int(g+.5):h=int(h+.1):v(p)=v(p)+g:ifv(p)>9999999goto4990
  185. 4615 l=len(str$(h)):printspc(9-l)right$(str$(h),l-1)
  186. 4620 poke214,10:poke211,6:sys58640:print"[144]zur[186]ck      $        [157][157][157][157][157][157][157][157]";
  187. 4625 l=len(str$(g)):printspc(9-l)right$(str$(g),l-1)
  188. 4630 poke214,11:poke211,6:sys58640
  189. 4632 ifg-h<0thenprint"[144]ihr verlust $        [157][157][157][157][157][157][157][157]";
  190. 4634 ifg-h<0thenl=len(str$(h-g)):printspc(9-l)right$(str$(h-g),l-1):goto4640
  191. 4636 print"[144]ihr gewinn  $        [157][157][157][157][157][157][157][157]";
  192. 4638 l=len(str$(g-h)):printspc(9-l)right$(str$(g-h),l-1)
  193. 4640 poke214,12:poke211,6:sys58640:print"[144]ihr kapital $        [157][157][157][157][157][157][157][157]";
  194. 4642 gosub44500
  195. 4645 poke214,13:poke211,6:sys58640:print"[144][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  196. 4650 poke214,14:poke211,6:sys58640:print"weiter               ":m=14
  197. 4660 gosub43000
  198. 4700 ifk(p)=0goto4800
  199. 4710 poke214,6:poke211,6:sys58640:print"[144]zinsforderung an"
  200. 4712 poke214,9:poke211,6:sys58640:print"das bankhaus gier ag "
  201. 4714 poke214,10:poke211,6:sys58640:print"fordert f[186]r ihre     "
  202. 4716 poke214,11:poke211,6:sys58640:print"schulden ($          [157][157][157][157][157][157][157][157][157][157]"k(p);
  203. 4718 print"[144][157])"
  204. 4720 poke214,12:poke211,6:sys58640:print"                     [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  205. 4722 print"[157][157][157][157][157]$"int(k(p)*5/100+.5)"[144]zinsen"
  206. 4730 gosub43000
  207. 4740 v(p)=v(p)-int(k(p)*5/100+.5):ifv(p)<0thenk(p)=int(k(p)-v(p)+.1):v(p)=0
  208. 4750 poke214,6:poke211,6:sys58640:print"[144]tilgungsm[glichkeit"
  209. 4752 poke214,9:poke211,6:sys58640:print"ihr kapital $        [157][157][157][157][157][157][157][157]";
  210. 4753 gosub44500
  211. 4754 poke214,10:poke211,6:sys58640:print"[144]schulden    $        [157][157][157][157][157][157][157][157]";
  212. 4755 gosub44000
  213. 4756 poke214,11:poke211,6:sys58640:print"[144]wieviel m[chten sie  "
  214. 4758 poke214,12:poke211,6:sys58640:print"[144]tilgen ?    $00000000"
  215. 4759 poke53269,0:poke214,14:poke211,6:sys58640:print"00000000 f[186]r nichts"
  216. 4760 forj=0to7:b%(j)=0:next:l=7:z=12:s=26:m=0:gosub60600
  217. 4770 b=0:forj=oto7:b=b+b%(j)*10^j:next
  218. 4775 ifint(b+.1)>int(k(p)+.1)orint(b+.1)>int(v(p)+.1)goto4758
  219. 4780 v(p)=int(v(p)-b+.1):k(p)=int(k(p)-b+.1)
  220. 4800 poke214,6:poke211,6:sys58640:print"[144]kreditangebot an   "
  221. 4802 poke214,9:poke211,6:sys58640:print"ihr kapital $        [157][157][157][157][157][157][157][157]";
  222. 4803 gosub44500
  223. 4804 poke214,10:poke211,6:sys58640:print"[144]schulden    $        [157][157][157][157][157][157][157][157]";
  224. 4805 gosub44000
  225. 4806 poke214,11:poke211,6:sys58640:print"[144]wieviel m[chten sie  "
  226. 4808 poke214,12:poke211,6:sys58640:print"aufnehmen (5%)? $0000"
  227. 4809 poke214,14:poke211,6:sys58640:print"0000 f[186]r nichts      "
  228. 4810 forj=0to3:b%(j)=0:next:l=3:z=12:s=26:m=0:gosub60600
  229. 4820 b=0:forj=oto3:b=b+b%(j)*10^j:next
  230. 4830 v(p)=int(v(p)+b+.1):k(p)=int(k(p)+b+.1)
  231. 4850 poke214,6:poke211,6:sys58640:print"[144]bilanz f[186]r         "
  232. 4852 poke214,9:poke211,6:sys58640:print"ihr kapital $        [157][157][157][157][157][157][157][157]";
  233. 4853 gosub44500
  234. 4854 poke214,10:poke211,6:sys58640:print"[144]-schulden   $        [157][157][157][157][157][157][157][157]";
  235. 4855 gosub44000
  236. 4860 poke214,11:poke211,6:sys58640:print"[144]=ihr spielstand      "
  237. 4865 poke214,12:poke211,6:sys58640:print"                     [157][157][157][157][157][157][157][157][157][157][157][157][157][157]$";
  238. 4867 printint(v(p)-k(p))
  239. 4870 poke214,14:poke211,6:sys58640:print"weiter               ":m=14
  240. 4880 gosub43000
  241. 4890 a%(p)=0:b(p,0)=0:nextp
  242. 4900 ifap=0goto4950
  243. 4902 poke214,6:poke211,6:sys58640:print"[144]spielstand           "
  244. 4905 poke214,7:poke211,6:sys58640:print"(kapital - schulden) "
  245. 4908 forh=9to12:poke214,h:poke211,6:sys58640:print"                     ":next
  246. 4910 forp=0toap:poke214,9+p:poke211,6:sys58640:print"[144]"p$(p)"   $";
  247. 4915 l=len(str$(v(p)-k(p))):printspc(9-l)str$(v(p)-k(p))
  248. 4920 nextp
  249. 4925 ifh8=1thenh8=0:goto10100
  250. 4930 gosub43000
  251. 4950 gosub60100:rn=rn+1:an=n
  252. 4960 gosub60800
  253. 4962 gosub60900
  254. 4980 forp=0toap:gosub41000:next
  255. 4985 goto100
  256. 4990 fori=2to24:poke781,i:sys59903:next:poke214,4:poke211,0:sys58640
  257. 4992 print"gratuliere, spieler "p$(p):print"sie haben die bank geknackt!"
  258. 4994 print"mit einem verm[gen von $"v(p):print"sind sie der roulette-k[nig."
  259. 4996 gosub43500:p=ap:h8=1:goto4920
  260. 5000 poke214,20:poke211,31:sys58640:print"laden"
  261. 5005 fori=22to24:poke781,i:sys59903:next
  262. 5010 poke214,22:poke211,0:sys58640:print"[144]filename ?"
  263. 5015 m=0:l=10:z=22:s=11:i$="":gosub60200
  264. 5022 ifi$=""thengosub60100:goto101
  265. 5025 poke211,0:poke214,23:sys58640:print"[144]bitte legen sie die diskette ein!"
  266. 5030 h1=0:gosub60700:ifh1=1thengosub60100:goto101
  267. 5035 poke781,23:sys59903
  268. 5036 poke781,24:sys59903
  269. 5037 poke144,0:open2,8,2:close2:ifst<>0thenpoke211,0:poke214,23:sys58640
  270. 5038 ifst<>0thenprint"[144]bitte schalten sie das laufwerk ein!":goto5030
  271. 5040 open15,8,15:open2,8,2,"sp."+i$+",s,r"
  272. 5050 input#15,e,e$:poke211,0:poke214,23:sys58640:print"[144]"e;e$
  273. 5055 ife<>0thenclose2:close15:goto5030
  274. 5060 input#2,ap,an,rn
  275. 5070 fori=0toap:input#2,p$(i),v(i),k(i)
  276. 5075 input#2,a%(i)
  277. 5080 ifa%(i)>0thenforj=0toa%(i):input#2,b(i,j),s%(i,j),z%(i,j):next
  278. 5090 next:close2:close15
  279. 5095 ifap<3thenfori=ap+1to3:p$(i)="":next
  280. 5100 gosub60100:fori=22to24:poke781,i:sys59903:next
  281. 5102 gosub60400
  282. 5110 forp=0toap:gosub41000:next:gosub60800
  283. 5120 goto72
  284. 6000 poke214,20:poke211,31:sys58640:print"speich."
  285. 6005 fori=22to24:poke781,i:sys59903:next
  286. 6010 poke214,22:poke211,0:sys58640:print"[144]filename ?"
  287. 6015 m=0:l=10:z=22:s=11:i$="":gosub60200
  288. 6022 ifi$=""thengosub60100:goto101
  289. 6025 poke211,0:poke214,23:sys58640:print"[144]bitte legen sie eine diskette ein!"
  290. 6030 h1=0:gosub60700:ifh1=1thengosub60100:goto101
  291. 6035 poke781,23:sys59903
  292. 6036 poke781,24:sys59903
  293. 6037 poke144,0:open2,8,2:close2:ifst<>0thenpoke211,0:poke214,23:sys58640
  294. 6038 ifst<>0thenprint"[144]bitte schalten sie das laufwerk ein!":goto6030
  295. 6040 open15,8,15:open2,8,2,"sp."+i$+",s,w"
  296. 6050 input#15,e,e$:poke211,0:poke214,23:sys58640:print"[144]"e;e$
  297. 6055 ife<>0thenclose2:close15:goto6030
  298. 6060 print#2,ap;chr$(13);an;chr$(13);rn;chr$(13);
  299. 6070 fori=0toap:print#2,p$(i);chr$(13);v(i);chr$(13);k(i);chr$(13);
  300. 6075 print#2,a%(i);chr$(13);:ifa%(i)=0goto6090
  301. 6080 forj=0toa%(i):print#2,b(i,j);chr$(13);s%(i,j);chr$(13);z%(i,j);chr$(13);
  302. 6085 next
  303. 6090 next:close2:close15:gosub60100:goto101
  304. 8000 poke214,20:poke211,31:sys58640:print"diskette"
  305. 8010 z=10:s=15:m=2:gosub42000
  306. 8030 m=1:s=19:z=13:l=3:gosub60500
  307. 8040 onmgoto101,8100,8200
  308. 8100 print"[147][144]":open15,8,15,"i"
  309. 8105 input#15,e,e$:printe,e$:print
  310. 8110 ife<>0then8175
  311. 8115 open2,8,2,"#":h1=18:h2=1:h3=0
  312. 8120 print#15,"u1:";2;0;h1;h2:get#2,h1$,h2$:h1=asc(h1$+chr$(0))
  313. 8125 h2=asc(h2$+chr$(0))
  314. 8130 fori=0to7:print#15,"b-p:";2;2+32*i:get#2,h$:ifh$=""thenh$=chr$(0)
  315. 8135 h=asc(h$)and15:ifh=0orh>4then8165
  316. 8145 get#2,h$,h$
  317. 8150 forj=0to15:get#2,h$:ifh$=chr$(160)thenj=15:goto8160
  318. 8155 printh$;
  319. 8160 nextj:print
  320. 8165 h3=h3+1:nexti
  321. 8170 ifh1<>0then8120
  322. 8175 close2:close15:print"":gosub43500:gosub60100:goto101
  323. 8200 z=15:s=11:m=3:gosub42000
  324. 8240 i$="":l=10:z=18:s=12:m=0:gosub60200
  325. 8245 ifi$=""thengoto101
  326. 8250 open15,8,15,"s:sp."+i$:close15
  327. 8500 goto101
  328. 9000 poke214,20:poke211,31:sys58640:print"anleit. "
  329. 9010 gosub60100:poke781,23:sys59903:poke781,24:sys59903
  330. 9015 poke211,0:poke214,24:sys58640:print"bitte dr[186]cken sie den feuerknopf";
  331. 9020 z=8:s=9:h$="es gewinnt die zahl 12.":gosub9100
  332. 9021 z=9:s=9:h$="es gewinnen die zahlen 11-12.":gosub9100
  333. 9022 z=7:s=9:h$="es gewinnen die zahlen 10,11,12.":gosub9100
  334. 9023 z=9:s=10:h$="es gewinnen die zahlen 11,12,14,15.":gosub9100
  335. 9024 z=7:s=2:h$="es gewinnen die zahlen 0,1,2,3":gosub9100
  336. 9025 z=7:s=4:h$="es gewinnen die zahlen 1,2,3,4,5,6":gosub9100
  337. 9026 z=8:s=27:h$="es gewinnen die zahlen der 3.reihe":gosub9100
  338. 9027 z=10:s=27:h$="es gewinnen die zahlen der 2.reihe":gosub9100
  339. 9028 z=12:s=27:h$="es gewinnen die zahlen der 1.reihe":gosub9100
  340. 9029 z=11:s=27:h$="es gewinnen die zahlen der 1.u.2.reihe":gosub9100
  341. 9030 z=2:s=26:h$="es gewinnen die zahlen 1-12":gosub9100
  342. 9031 z=4:s=27:h$="es gewinnen die zahlen 13-24":gosub9100
  343. 9032 z=6:s=27:h$="es gewinnen die zahlen 25-36":gosub9100
  344. 9033 z=5:s=27:h$="es gewinnen die zahlen 13-36":gosub9100
  345. 9034 z=5:s=16:h$="es gewinnen alle ungeraden zahlen":gosub9100
  346. 9035 z=18:s=16:h$="es gewinnen alle geraden zahlen":gosub9100
  347. 9036 z=5:s=22:h$="es gewinnen alle roten zahlen":gosub9100
  348. 9037 z=18:s=22:h$="es gewinnen alle schwarzen zahlen":gosub9100
  349. 9038 z=5:s=8:h$="es gewinnen alle zahlen 1-18":gosub9100
  350. 9039 z=18:s=8:h$="es gewinnen alle zahlen 19-36":gosub9100
  351. 9050 gosub60100:goto101
  352. 9100 poke53252,s*8+28:poke53253,z*8+70
  353. 9110 poke214,11:poke211,31:sys58640:print"        [157][157][157][157][157][157][157][157]"n$(z,s);
  354. 9120 iff%(z,s)=1thenprint" [144]schw."
  355. 9130 iff%(z,s)=2thenprint"   rot"
  356. 9140 poke214,14:poke211,31:sys58640:print"*"c(z,s)"[157]  "
  357. 9150 poke781,23:sys59903
  358. 9160 poke211,0:poke214,23:sys58640:print"[144]"h$
  359. 9200 ifpeek(56321)<>239goto9200
  360. 9210 return
  361. 10000 poke214,20:poke211,31:sys58640:print"ende  "
  362. 10010 z=10:s=15:m=4:gosub42000
  363. 10030 m=1:s=19:z=13:l=3:gosub60500
  364. 10040 onmgoto101,10100,10200
  365. 10100 fori=0to3:p$(i)="":a%(i)=0:v(i)=1000:k(i)=0:next:gosub60100:goto40
  366. 10200 gosub60100:z=6:s=5:m=5:gosub42000
  367. 10225 h=0:poke198,0:fori=1to150:ifpeek(198)<>0thenh=1:i=150
  368. 10226 nexti
  369. 10228 ifh=1goto101
  370. 10230 sys64738
  371. 40000 poke214,10:poke211,15:sys58640:print"[144][178][184][184][184][184][184][184][184][184][179]"
  372. 40005 poke214,11:poke211,15:sys58640:print"[182]spieler?[183]"
  373. 40010 poke214,12:poke211,15:sys58640:print"[182][192][192][192][192][192][192][192][192][183]"
  374. 40015 fori=0toap:poke214,13+i:poke211,15:sys58640:print"[182]"p$(i)"[144][183]":next
  375. 40020 poke214,14+ap:poke211,15:sys58640:print"[182]keiner  [144][183]"
  376. 40030 poke214,15+ap:poke211,15:sys58640:print"[180][185][185][185][185][185][185][185][185][181]":return
  377. 41000 poke214,24:poke211,3+p*9:sys58640:print"        ";:poke214,24
  378. 41010 poke211,(p+1)*9-int(abs(log(v(p)+.5)/log(10))):sys58640:printv(p);:return
  379. 42000 fori=0to10:ifm$(m,i)=""theni=11:goto42020
  380. 42010 poke214,z+i:poke211,s:sys58640:printm$(m,i)
  381. 42020 next:return
  382. 43000 poke53252,90:poke53253,53+m*8:poke53269,4
  383. 43010 ifpeek(56321)<>239goto43010
  384. 43020 poke53269,0:return
  385. 43500 print"bitte dr[186]cken sie den feuerknopf!"
  386. 43510 ifpeek(56321)<>239goto43510
  387. 43520 return
  388. 44000 l=len(str$(k(p))):printspc(9-l)right$(str$(k(p)),l-1):return
  389. 44500 l=len(str$(v(p))):printspc(9-l)right$(str$(v(p)),l-1):return
  390. 50000 ifs<0thens=28
  391. 50005 ifs>28thens=0
  392. 50010 ifz<0thenz=20
  393. 50015 ifz>20thenz=0
  394. 50020 poke53252,s*8+28:poke53253,z*8+70
  395. 50030 poke214,11:poke211,31:sys58640:print"        [157][157][157][157][157][157][157][157]"n$(z,s);
  396. 50031 iff%(z,s)=1thenprint" [144]schw.":goto50035
  397. 50032 iff%(z,s)=2thenprint"   rot"
  398. 50035 poke214,14:poke211,31:sys58640:print"*"c(z,s)"[157]  "
  399. 50050 h=peek(56321):ifh=255goto50050
  400. 50060 ifh=254thenz=z-1:goto50010
  401. 50065 ifh=253thenz=z+1:goto50010
  402. 50070 ifh=251thens=s-1:goto50000
  403. 50075 ifh=247thens=s+1:goto50000
  404. 50080 ifh=239thenreturn
  405. 50090 goto50050
  406. 60000 poke781,204:poke780,0:poke91,207:poke90,232:poke89,7:poke88,232:sys50856
  407. 60005 poke781,216:poke780,0:poke91,219:poke90,232:poke89,203:poke88,232:sys50856
  408. 60010 return
  409. 60100 poke781,4:poke780,0:poke91,7:poke90,232:poke89,207:poke88,232:sys50856
  410. 60105 poke781,200:poke780,0:poke91,203:poke90,232:poke89,219:poke88,232:sys50856
  411. 60110 return
  412. 60200 poke198,0:sp=len(i$):poke211,s:poke214,z:sys58640
  413. 60202 forj=0tol:print" ";:nextj:poke214,z:poke211,s:sys58640
  414. 60204 printi$" [146]";
  415. 60220 getg$:ifg$=""then60220
  416. 60230 a=asc(g$):ifm=0and((a>31anda<94)ora=160ora=186)goto60300
  417. 60235 ifm=1and(a>47anda<58)goto60300
  418. 60240 ifa=13thenprint"[157] ";:return
  419. 60245 ifa=20thensp=0:i$="":goto60200
  420. 60250 goto60220
  421. 60300 sp=sp+1:ifsp>lthensp=l:goto60220
  422. 60305 i$=i$+g$:print"[157]"g$" [146]";:goto60220
  423. 60400 poke211,0:poke214,23:sys58640
  424. 60405 fori=0to3:print"[144]"tab(i*9+2)"[167]"p$(i);:next:printtab(38)"[167]"
  425. 60410 fori=0to4:printtab(i*9+2)"[167]";:next:return
  426. 60500 poke53269,4
  427. 60501 ifm<1thenm=1
  428. 60502 ifm>lthenm=l
  429. 60510 poke53252,s*8+28:poke53253,(z+m)*8+46
  430. 60520 h=peek(56321):ifh=255goto60520
  431. 60522 ifh=254thenm=m-1:goto60501
  432. 60524 ifh=253thenm=m+1:goto60501
  433. 60528 ifh=239thenreturn
  434. 60530 goto60520
  435. 60600 ifb%(m)<0thenb%(m)=9
  436. 60602 ifb%(m)>9thenb%(m)=0
  437. 60605 ifm>lthenm=l
  438. 60607 ifm<0thenm=0
  439. 60610 poke214,z:poke211,s-m:sys58640:print""right$(str$(b%(m)),1)"[146]"
  440. 60620 h=peek(56321):ifh=255goto60620
  441. 60630 ifh=254thenb%(m)=b%(m)+1:goto60600
  442. 60632 ifh=253thenb%(m)=b%(m)-1:goto60600
  443. 60634 ifh=251thenpoke52224+z*40+s-m,peek(52224+z*40+s-m)-128:m=m+1:goto60605
  444. 60636 ifh=247thenpoke52224+z*40+s-m,peek(52224+z*40+s-m)-128:m=m-1:goto60605
  445. 60638 ifh=239thenpoke52224+z*40+s-m,peek(52224+z*40+s-m)-128:return
  446. 60640 goto60620
  447. 60700 poke211,0:poke214,24:sys58640:print"weiter  men[186]";
  448. 60705 poke53252,45:poke53253,242
  449. 60710 h=peek(56321):ifh=255goto60710
  450. 60715 ifh=251thenpoke53252,45:h1=0:goto60710
  451. 60720 ifh=247thenpoke53252,100:h1=1:goto60710
  452. 60725 ifh=239thenreturn
  453. 60730 goto60710
  454. 60800 poke211,34:poke214,5:sys58640:print"     [157][157][157][157][157]"rn:return
  455. 60900 poke214,8:poke211,37:sys58640:print"  [157][157][157][157][157][157][157][157]"right$(str$(an),1-(an>9));
  456. 60910 iff1%(an)=2thenprint"   rot"
  457. 60920 iff1%(an)=1thenprint" [144]schw."
  458. 60930 iff1%(an)=0thenprint"       "
  459. 60940 return
  460. 61000 data *,29,exit,*,2,exit,*,24,---,*,1,exit
  461. 61001 data *,2,exit,---,*,5,manque,---,*,6,impair,---,*,5,rot
  462. 61002 data ---,p12,---,*,1,exit,*,2,exit,*,6,manque,---,*,6,impair
  463. 61003 data ---,*,6,rot,*,1,m12/p12,*,1,exit,*,2,exit,*,6,manque
  464. 61004 data ---,*,6,impair,---,*,6,rot,*,1,m12,*,1,exit
  465. 61005 data *,2,exit,*,6,manque,---,*,6,impair,---,*,6,rot
  466. 61006 data *,1,d12/m12,*,1,exit,*,1,exit,---,*,6,manque,---
  467. 61007 data *,6,impair,---,*,6,rot,---,d12,---,exit
  468. 61008 data *,1,---,4er,3er,6er,3er,6er,3er,6er
  469. 61009 data 3er,6er,3er,6er,3er,6er,3er,6er,3er,6er
  470. 61010 data 3er,6er,3er,6er,3er,6er,3er,*,2,---,exit
  471. 61011 data ---,null,2er,3,2er,6,2er,9,2er,12,2er,15
  472. 61012 data 2er,18,2er,21,2er,24,2er,27,2er,30,2er
  473. 61013 data 33,2er,36,---,3.kol.,---,exit
  474. 61014 data ---,null,3er,2er,4er,2er,4er,2er,4er,2er
  475. 61015 data 4er,2er,4er,2er,4er,2er,4er,2er,4er,2er
  476. 61016 data 4er,2er,4er,2er,4er,2er,---,2./3.kol,---,exit
  477. 61017 data ---,null,2er,2,2er,5,2er,8,2er,11,2er,14,2er
  478. 61018 data 17,2er,20,2er,23,2er,26,2er,29,2er,32,2er,35
  479. 61019 data ---,2.kol.,---,exit
  480. 61020 data ---,null,3er,2er,4er,2er,4er,2er,4er,2er,4er
  481. 61021 data 2er,4er,2er,4er,2er,4er,2er,4er,2er,4er
  482. 61022 data 2er,4er,2er,4er,2er,---,1./2.kol,---,exit
  483. 61023 data ---,null,2er,1,2er,4,2er,7,2er,10,2er,13
  484. 61024 data 2er,16,2er,19,2er,22,2er,25,2er,28,2er
  485. 61025 data 31,2er,34,---,1.kol.,---,exit
  486. 61026 data *,1,---,4er,3er,6er,3er,6er,3er,6er,3er
  487. 61027 data 6er,3er,6er,3er,6er,3er,6er,3er,6er,3er
  488. 61028 data 6er,3er,6er,3er,6er,3er,*,2,---,exit
  489. 61029 data *,1,exit,---,*,6,passe,---,*,6,pair,---
  490. 61030 data *,6,schwarz,---,d12,---,exit
  491. 61031 data *,2,exit,*,6,passe,---,*,6,pair,---,*,6,schwarz
  492. 61032 data *,1,d12/m12,*,1,exit,*,2,exit,*,6,passe,---,*,6,pair
  493. 61033 data ---,*,6,schwarz,*,1,m12,*,1,exit
  494. 61034 data *,2,exit,*,6,passe,---,*,6,pair,---,*,6,schwarz
  495. 61035 data *,1,m12/p12,*,1,exit,*,2,exit,---,*,5,passe
  496. 61036 data ---,*,6,pair,---,*,5,schwarz,---,p12,---,*,1,exit
  497. 61037 data *,2,exit,*,24,---,*,1,exit,*,29,exit
  498. 61050 data -29,0,-29,0,-3,0,-5,2,0,-6,2,0,-5,2,0,3,-2,0
  499. 61051 data -2,0,-6,2,0,-6,2,0,-6,2,-1,1.5,-1,0
  500. 61052 data -2,0,-6,2,0,-6,2,0,-6,2,-1,3,-1,0
  501. 61053 data -2,0,-6,2,0,-6,2,0,-6,2,-1,1.5,-1,0
  502. 61054 data -2,0,-6,2,0,-6,2,0,-6,2,0,3,-1,0
  503. 61055 data -1,0,9,12,6,12,6,12,6,12,6,12,6,12,6,12,6,12,6,12,6,12,6,12,6,12,-3,0
  504. 61056 data 0,36,18,36,18,36,18,36,18,36,18,36,18,36,18,36,18,36,18,36,18,36,18
  505. 61057 data 36,18,36,0,3,-1,0
  506. 61058 data 0,36,12,18,9,18,9,18,9,18,9,18,9,18,9,18,9,18,9,18,9,18,9,18,9
  507. 61059 data 18,0,1.5,-1,0
  508. 61060 data 0,36,18,36,18,36,18,36,18,36,18,36,18,36,18,36,18,36,18,36,18
  509. 61061 data 36,18,36,18,36,0,3,-1,0
  510. 61062 data 0,36,12,18,9,18,9,18,9,18,9,18,9,18,9,18,9,18,9,18,9
  511. 61063 data 18,9,18,9,18,0,1.5,-1,0
  512. 61064 data 0,36,18,36,18,36,18,36,18,36,18,36,18,36,18,36,18,36,18,36,18
  513. 61065 data 36,18,36,18,36,0,3,-1,0
  514. 61066 data -1,0,9,12,6,12,6,12,6,12,6,12,6,12,6,12,6,12,6,12,6,12,6,12,6,12,-3,0
  515. 61067 data -2,0,-6,2,0,-6,2,0,-6,2,0,3,-1,0
  516. 61068 data -2,0,-6,2,0,-6,2,0,-6,2,-1,1.5,-1,0
  517. 61069 data -2,0,-6,2,0,-6,2,0,-6,2,-1,3,-1,0
  518. 61070 data -2,0,-6,2,0,-6,2,0,-6,2,-1,1.5,-1,0
  519. 61071 data -3,0,-5,2,0,-6,2,0,-5,2,0,3,-2,0,-29,0,-29,0
  520. 61080 data 2,1,2,2,1,2,2,1,2,2,1,2
  521. 61081 data 1,2,1,1,2,1,1,2,1,1,2,1
  522. 61082 data 2,1,2,1,1,2,2,1,2,1,1,2
  523. 61090 data 2,1,2,1,2,1,2,1,2,1,1,2,1,2,1,2,1,2,2,1,2,1,2,1,2,1,2,1,1,2,1,2,1
  524. 61091 data 2,1,2
  525. 61100 data"[144][178][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][179]"
  526. 61101 data"[182]setzen         [144][183]"
  527. 61102 data"[182]korrektur      [144][183]"
  528. 61103 data"[182]anzeigen       [144][183]"
  529. 61104 data"[182]rien ne va plus[144][183]"
  530. 61105 data"[182]spiel laden    [144][183]"
  531. 61106 data"[182]spiel speichern[144][183]"
  532. 61108 data"[182]diskette       [144][183]"
  533. 61109 data"[182]anleitung      [144][183]"
  534. 61110 data"[182]ende           [144][183]"
  535. 61111 data"[180][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][181]"
  536. 61113 data"[144][178][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][179]"
  537. 61114 data"[182]  nichts geht mehr   [183]"
  538. 61115 data"[182]  -rien ne va plus   [183]"
  539. 61116 data"[182][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][183]"
  540. 61117 data"[182]                     [183]"
  541. 61118 data"[182]die kugel rollt...   [183]"
  542. 61119 data"[182]                     [183]"
  543. 61120 data"[182]                     [183]"
  544. 61121 data"[182][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][183]"
  545. 61122 data"[182]                     [183]"
  546. 61123 data"[180][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][181]"
  547. 61140 data"[144][178][184][184][184][184][184][184][184][184][184][184][179]"
  548. 61141 data"[182]diskette  [183]"
  549. 61142 data"[182][192][192][192][192][192][192][192][192][192][192][183]"
  550. 61143 data"[182]men[186]      [144][183]"
  551. 61144 data"[182]directory [144][183]"
  552. 61145 data"[182]spielstand[144][183]"
  553. 61146 data"[182]   l[schen[144][183]"
  554. 61147 data"[180][185][185][185][185][185][185][185][185][185][185][181]","","",""
  555. 61150 data"[144][178][184][184][184][184][184][184][184][184][184][184][184][179]"
  556. 61151 data"[182]name       [183]"
  557. 61152 data"[182][192][192][192][192][192][192][192][192][192][192][192][183]"
  558. 61153 data"[182]           [183]"
  559. 61154 data"[180][185][185][185][185][185][185][185][185][185][185][185][181]","","","","","",""
  560. 61160 data"[144][178][184][184][184][184][184][184][184][184][184][179]"
  561. 61161 data"[182]ende     [183]"
  562. 61162 data"[182][192][192][192][192][192][192][192][192][192][183]"
  563. 61163 data"[182]men[186]     [144][183]"
  564. 61164 data"[182]neustart [144][183]"
  565. 61165 data"[182]reset    [144][183]"
  566. 61166 data"[180][185][185][185][185][185][185][185][185][185][181]","","","",""
  567. 61170 data"[144][178][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][179]"
  568. 61171 data"[182]      roulette[144]         [183]"
  569. 61172 data"[182]written by j.wellhausen[144][183]"
  570. 61173 data"[182]    and m.radetzki     [144][183]"
  571. 61174 data"[180][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][181]","","","","","",""
  572.