home *** CD-ROM | disk | FTP | other *** search
/ Highscore 1 / Highscore_1_19xx_-.d64 / rus.roulette (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  17KB  |  801 lines
  1. 10 rem russisch roulette =======64
  2. 20 rem (p) commodore welt team   =
  3. 30 rem ===========================
  4. 40 rem (c) by guenter kramer     =
  5. 50 rem        emsdetten          =
  6. 60 rem                           =
  7. 70 rem version 2,0  40z/ascii    =
  8. 80 rem c64 + floppy/datasette    =
  9. 90 rem ===========================
  10. 100 ifa=1then130
  11. 110 a=1
  12. 120 load"rand und sprites",8,1
  13. 130 gosub3870
  14. 140 gosub4390
  15. 150 gosub5440
  16. 160 gosub5650
  17. 170 gosub7010
  18. 180 gosub2700
  19. 190 poke198,0
  20. 200 geta$:ifa$=""then200
  21. 210 _end:end
  22. 220 rem **************************
  23. 230 rem ********** setzen punkte *
  24. 240 rem **************************
  25. 250 a$=str$(ms(s,36))
  26. 260 a$=right$(a$,len(a$)-1)
  27. 270 a$=right$("....."+a$,6)
  28. 280 a1=7:ifms(s,36)<0thena1=10
  29. 290 ifs=0then350
  30. 300 ifs>4thena2=4:a=s-4:gosub390
  31. 310 ifs<5thena2=1:a=s:gosub410
  32. 320 a=(a-1)*6+1:a3=0
  33. 330 a1=14:gosub5160
  34. 340 goto380
  35. 350 pokeze,17:pokesp,17:syscu
  36. 360 a0=150:ifa1=7thena0=144
  37. 370 printchr$(144)chr$(a0)a$
  38. 380 return
  39. 390 _suc,a1,a*2:_suc,a1,a*2-1
  40. 400 return
  41. 410 _soc,a1,a*2:_soc,a1,a*2-1
  42. 420 return
  43. 430 rem **************************
  44. 440 rem ************** einsaetze *
  45. 450 rem **************************
  46. 460 _sma:_smf,0:_smx,1:_smy,1
  47. 470 f1=1:a5=s+s:ifs>4thena5=a5-8
  48. 480 ff=0:kf=0:kb=0
  49. 490 goto1090
  50. 500 poke198,0
  51. 510 gete$:_sme,f1:ife$<>""then610
  52. 520 fori=1to150:next
  53. 530 gete$:ife$<>""then610
  54. 540 _sma,f1
  55. 550 ifs<5then:_soa,a5:_soa,a5-1
  56. 560 ifs>4then:_sua,a5:_sua,a5-1
  57. 570 fori=1to50:next:_sme,f1
  58. 580 ifs<5then:_soe,a5:_soe,a5-1
  59. 590 ifs>4then:_sue,a5:_sue,a5-1
  60. 600 goto510
  61. 610 e=asc(e$)
  62. 620 ifz$="1"then750
  63. 630 ife<>29then660
  64. 640 ff=ff+1:ifff>35thenff=0
  65. 650 goto960
  66. 660 ife<>17then710
  67. 670 ifff>23then690
  68. 680 ff=24+int(ff/4):goto960
  69. 690 ifff<30thenff=30:goto960
  70. 700 ff=0:goto960
  71. 710 ife=133then1450
  72. 720 ife=140then1450
  73. 730 ife$<"0"ore$>"9"then750
  74. 740 a0=val(e$):goto1320
  75. 750 ife$<>"r"then770
  76. 760 kf=4:e$=chr$(017):goto1030
  77. 770 ife$<>"s"then790
  78. 780 kf=5:e$=chr$(017):goto1030
  79. 790 ife=211thenkf=0:goto840
  80. 800 ife=193thenkf=1:goto840
  81. 810 ife=218thenkf=2:goto840
  82. 820 ife=216thenkf=3:goto840
  83. 830 goto850
  84. 840 kb=6:z$="1":goto510
  85. 850 ife$="b"thenkb=0:goto920
  86. 860 ife$="d"thenkb=1:goto920
  87. 870 ife$="k"thenkb=2:goto920
  88. 880 ife$="a"thenkb=3:goto920
  89. 890 ife$="n"thenkb=4:goto920
  90. 900 ife$="z"thenkb=5:goto920
  91. 910 goto940
  92. 920 ifz$<>"1"thenkf=6
  93. 930 z$="":goto1030
  94. 940 ifz$="1"thenife=13then930
  95. 950 goto510
  96. 960 kb=int(ff/4)
  97. 970 kf=ff-4*kb
  98. 980 ifff<24then1090
  99. 990 kb=ff-24:kf=6
  100. 1000 ifff<30then1090
  101. 1010 kb=6:kf=ff-30
  102. 1020 goto1090
  103. 1030 ifkb+kf=12then610
  104. 1040 ff=kf+4*kb:ifkb<6andkf<4then1090
  105. 1050 ifkf=4thenff=34:goto1090
  106. 1060 ifkf=5thenff=35:goto1090
  107. 1070 ifkf=6thenff=kb+24:goto1090
  108. 1080 ifkb=6thenff=kf+30
  109. 1090 ifms(s,ff)=0then1150
  110. 1100 ifms(0,s)>35then1120
  111. 1110 e$=chr$(029):goto610
  112. 1120 e$=chr$(133)
  113. 1130 ifms(0,0)=anthene$=chr$(140)
  114. 1140 goto610
  115. 1150 ms(0,s)=ms(0,s)+1
  116. 1160 ifms(0,s)=36thenms(0,0)=ms(0,0)+1
  117. 1170 _sma,f1:_smx,1,f1:_smf,0,f1
  118. 1180 _smb,86,11,f1*3-2:_smc,15,f1
  119. 1190 _smk,po(ff,0),po(ff,1),f1
  120. 1200 sz=0:_sme,f1
  121. 1210 a0=28:if(kfand1)=1thena0=144
  122. 1220 a$=chr$(kf(kf))+chr$(kb(kb))
  123. 1230 ifkb=5thena$=a$+"0"
  124. 1240 ifkb<>5thena$=a$+chr$(032)
  125. 1250 ifff<24then1290
  126. 1260 ifff<30thena$=chr$(032)+right$(a$,len(a$)-1):goto1290
  127. 1270 ifff<34thena$=left$(a$,1)+chr$(032)+chr$(032):goto1290
  128. 1280 a$=chr$(018)+chr$(032)+chr$(032)+chr$(032)
  129. 1290 pokeze,7:pokesp,18:syscu
  130. 1300 printchr$(a0)a$chr$(032)
  131. 1310 goto510
  132. 1320 _smb,a0+48,11,f1*3-2
  133. 1330 ifa0>0then1380
  134. 1340 a0=10
  135. 1350 _smb,49,11,f1*3-2
  136. 1360 _smb,48,11,f1*3-1
  137. 1370 _smx,0,f1
  138. 1380 ms(s,ff)=a0:ms(s,36)=ms(s,36)-a0
  139. 1390 ms(0,36)=ms(0,36)+a0
  140. 1400 f1=f1+1:iff1>8thenf1=1
  141. 1410 s$="1"
  142. 1420 gosub250
  143. 1430 ab=s:s=0:gosub250
  144. 1440 s=ab:e$=chr$(029):goto1090
  145. 1450 pokeze,7:pokesp,18:syscu
  146. 1460 a$=chr$(032)+chr$(032)
  147. 1470 printa$a$
  148. 1480 return
  149. 1490 rem *************************
  150. 1500 rem ******** pruefen gewinn *
  151. 1510 rem *************************
  152. 1520 fors=1toan
  153. 1530 ifms(s,ff)>0thengosub1580
  154. 1540 next:return
  155. 1550 rem *************************
  156. 1560 rem ****** auszahlen gewinn *
  157. 1570 rem *************************
  158. 1580 fori=2to6:_smx,0,i:_smy,0,i
  159. 1590 _smf,0,i:_smc,6,i:next
  160. 1600 _smy,1,6
  161. 1610 _smk,po(ff,0),po(ff,1),6
  162. 1620 z=ms(s,ff):a$=str$(z)
  163. 1630 a3=0:a1=11:a=15:gosub5300
  164. 1640 a$="x"+right$(a$,2)
  165. 1650 a$=right$(str$(au),2)+a$
  166. 1660 a=4:a1=13:gosub5300
  167. 1670 a$=str$(z*au)
  168. 1680 a1=2:a=11:gosub5300
  169. 1690 poke198,0
  170. 1700 a5=s+s:ifs>4thena5=a5-8
  171. 1710 fori=2to6:_sme,i:next
  172. 1720 gete$
  173. 1730 ifs<5then:_soa,a5:_soa,a5-1
  174. 1740 ifs>4then:_sua,a5:_sua,a5-1
  175. 1750 fori=1to150:next
  176. 1760 ifs<5then:_soe,a5:_soe,a5-1
  177. 1770 ifs>4then:_sue,a5:_sue,a5-1
  178. 1780 fori=1to50:next
  179. 1790 ife$=""then1720
  180. 1800 fori0=1toau
  181. 1810 ms(s,36)=ms(s,36)+z:gosub250
  182. 1820 next:a5=s:s=0
  183. 1830 ms(s,36)=ms(s,36)-z*au:gosub250
  184. 1840 s=a5
  185. 1850 fori=2to6:_sma,i:next
  186. 1860 return
  187. 1870 rem *************************
  188. 1880 rem ********* pistolenrunde *
  189. 1890 rem *************************
  190. 1900 _sma:_sme,1:_smc,1,1
  191. 1910 _sma,7:_sma,8
  192. 1920 sys51200:_rc,0,255
  193. 1930 fori=2to4
  194. 1940 _smf,0,i:_smf,255,i+3
  195. 1950 _smx,1,i:_smx,1,i+3
  196. 1960 _smy,0,i:_smy,0,i+3
  197. 1970 _smk,i*48+16,140,i
  198. 1980 _smk,i*48+16,140,i+3
  199. 1990 _smc,2,i+3:_smc,10,i:next
  200. 2000 a$="drehe die"
  201. 2010 a=4:a1=3:a3=0:gosub5300
  202. 2020 a$="trommel"
  203. 2030 a=5:a1=12:gosub5300
  204. 2040 _smf,0,8:_smc,7,8
  205. 2050 _smb,87,11,22
  206. 2060 _smk,po(fp+24,0),po(fp+24,1),8
  207. 2070 a5=p+p:ifp>4thena5=a5-8
  208. 2080 poke198,0:_smy,1,8
  209. 2090 _soa:ifan>4then:_sua
  210. 2100 ifp>4then:_sue,a5:_sue,a5-1
  211. 2110 ifp<5then:_soe,a5:_soe,a5-1
  212. 2120 gete$
  213. 2130 fori=2to8:_sme,i:next
  214. 2140 fori=1to150:next
  215. 2150 fori=2to8:_sma,i:next
  216. 2160 fori=1to50:next
  217. 2170 ife$=""then2120
  218. 2180 a1=int(rnd(1)*6)+50:a=fp
  219. 2190 a(0)=0:a(1)=1:a(2)=5
  220. 2200 a(3)=3:a(4)=2:a(5)=4:_sme,8
  221. 2210 fori=1toa1
  222. 2220 a=a+1:ifa=6thena=0
  223. 2230 a0=a(a)
  224. 2240 _smk,po(a0+24,0),po(a0+24,1),8
  225. 2250 ifi<(a1-15)then2270
  226. 2260 forj=1to(i-a1+15)^2:next
  227. 2270 next
  228. 2280 ifa0<>fpthen2550
  229. 2290 gosub7620
  230. 2300 fori=2to4:_smf,0,i:_smf,255,i+3
  231. 2310 next
  232. 2320 a5=int(abs(ms(p,36))/2)
  233. 2330 ifa5<10thena5=10
  234. 2340 ms(p,36)=ms(p,36)-a5
  235. 2350 ms(0,36)=ms(0,36)+a5
  236. 2360 a$="verlust ="
  237. 2370 a3=0:a1=3:a=4:gosub5300
  238. 2380 a$=str$(a5)
  239. 2390 a1=12:a=7+len(a$)/2:gosub5300
  240. 2400 fori=2to4:_smc,2,i:_smc,10,i+3
  241. 2410 _sme,i:_sme,i+3:next
  242. 2420 poke198,0
  243. 2430 t1=0:gosub7530
  244. 2440 forj=1to3
  245. 2450 gete$
  246. 2460 fori=1to50:_rc,i,7
  247. 2470 poket+1,150+i:next
  248. 2480 fori=1to150:_rc,i,19
  249. 2490 poket+1,256-i:next
  250. 2500 ife$<>""thenj=6
  251. 2510 next:gosub7480
  252. 2520 _rc,0,255:s=p:gosub250
  253. 2530 s=0:gosub250
  254. 2540 fori=f+697toi+5:pokei,15:next
  255. 2550 fori=1toan:a=i+i
  256. 2560 ifi>4then2590
  257. 2570 _soe,a:_soe,a-1
  258. 2580 goto2610
  259. 2590 a=a-8
  260. 2600 _sue,a:_sue,a-1
  261. 2610 forj=0to35
  262. 2620 ms(i,j)=0:nextj,i
  263. 2630 _sma:_rc,0,15:_rc,7,32
  264. 2640 _rc,9,24:gosub7690
  265. 2650 sys51200
  266. 2660 return
  267. 2670 rem *************************
  268. 2680 rem ********** spiel laeuft *
  269. 2690 rem *************************
  270. 2700 s=0:s$="0"
  271. 2710 s=s+1:ifs>anthens=1
  272. 2720 gosub460
  273. 2730 ife$<>chr$(140)then2710
  274. 2740 fori=0toan:ms(0,i)=0:next
  275. 2750 _sma:_smc,0:_smx,1:_smy,0
  276. 2760 _smf,0:_smk,100,96,1
  277. 2770 ifs$="0"then3720
  278. 2780 fori=0to47
  279. 2790 pokepi+9+i,pi(i)
  280. 2800 next
  281. 2810 _sme,1:p=int(rnd(1)*an)+1
  282. 2820 fp=0:ap=p+p:ifp>4thenap=ap-8
  283. 2830 poke198,0:a=0
  284. 2840 gete$
  285. 2850 fori=1to150:next:_sma,1
  286. 2860 ifp<5then:_soa,ap:_soa,ap-1
  287. 2870 ifp>4then:_sua,ap:_sua,ap-1
  288. 2880 fori=1to50:next:_sme,1
  289. 2890 ifp<5then:_soe,ap:_soe,ap-1
  290. 2900 ifp>4then:_sue,ap:_sue,ap-1
  291. 2910 ife$=""then2840
  292. 2920 ife$="b"thenfp=0:a=100:a0=96
  293. 2930 ife$="d"thenfp=1:a=220:a0=96
  294. 2940 ife$="k"thenfp=2:a=100:a0=172
  295. 2950 ife$="a"thenfp=3:a=220:a0=172
  296. 2960 ife$="n"thenfp=4:a=60:a0=140
  297. 2970 ife$="z"thenfp=5:a=260:a0=140
  298. 2980 ifa=0then2840
  299. 2990 _smk,a,a0,1:a$="nichts"
  300. 3000 fori=2to7:_smf,255,i:next
  301. 3010 a3=128:a1=3:a=4:gosub5300
  302. 3020 a$="geht mehr"
  303. 3030 a1=12:gosub5300
  304. 3040 fori=2to4:_smk,i*48+16,140,i
  305. 3050 _smk,i*48+16,140,i+3
  306. 3060 _smc,2,i+3:_smc,10,i:next
  307. 3070 forj=2to7:_sme,j:next
  308. 3080 gosub7690
  309. 3090 fori=1to23
  310. 3100 a=int(rnd(1)*i)
  311. 3110 a0=ka(i):ka(i)=ka(a):ka(a)=a0
  312. 3120 next
  313. 3130 forj=2to7:_sma,j:next
  314. 3140 a$="bitte"
  315. 3150 fori=2to4:_smf,0,i:_smf,255,i+3
  316. 3160 _smc,6,i:_smc,14,i+3:next
  317. 3170 a1=3:a=6:a3=0:gosub5300
  318. 3180 a$="abheben"
  319. 3190 a1=12:a=5:gosub5300
  320. 3200 poke198,0:gk=0
  321. 3210 gete$
  322. 3220 fori=1to25:next
  323. 3230 forj=2to7:_sme,j:next
  324. 3240 fori=1to250:next
  325. 3250 forj=2to7:_sma,j:next
  326. 3260 ife$=""then3210
  327. 3270 ife$<"0"ore$>"9"then3210
  328. 3280 e=val(e$)
  329. 3290 ifgk=0then3310
  330. 3300 gk=gk+e:goto3350
  331. 3310 ife=2thengk=20:goto3350
  332. 3320 ife>3thengk=e:goto3350
  333. 3330 ife=1thengk=10
  334. 3340 goto3210
  335. 3350 gk=ka(gk)
  336. 3360 a0=int(gk/4):a=gk-4*a0
  337. 3370 _smf,0,7:_smc,0,7
  338. 3380 if(aand1)=0then:_smc,2,7
  339. 3390 _smx,1,7:_smy,1,7
  340. 3400 _smk,160,100,8:_smf,255,8
  341. 3410 _smx,1,8:_smc,10,8
  342. 3420 _smk,160,104,7
  343. 3430 a$=chr$(83):ifa=1thena$=chr$(065)
  344. 3440 ifa=2thena$=chr$(090)
  345. 3450 ifa=3thena$=chr$(088)
  346. 3460 ifa0=0thena$=a$+chr$(002)
  347. 3470 ifa0=1thena$=a$+chr$(004)
  348. 3480 ifa0=2thena$=a$+chr$(011)
  349. 3490 ifa0=3thena$=a$+chr$(001)
  350. 3500 ifa0=4thena$=a$+chr$(057)
  351. 3510 ifa0=5thena$=a$+chr$(049)+chr$(048)
  352. 3520 a$=chr$(kf(a)-32)+chr$(kb(a0)and63)
  353. 3530 ifa0=5thena$=a$+"0"
  354. 3540 ifa0<>5thena$=a$+chr$(032)
  355. 3550 fori=1tolen(a$)
  356. 3560 a3=asc(mid$(a$,i,1))
  357. 3570 _smb,a3,1,18+i:next
  358. 3580 _sme,7:_sme,8
  359. 3590 _smx,0,2:_smy,0,2:_smf,0,2
  360. 3600 _smc,6,2:_smk,24,59,2
  361. 3610 _smx,0,3:_smy,0,3:_smf,0,3
  362. 3620 _smc,6,3:_smk,48,59,3
  363. 3630 _smx,0,4:_smy,0,4:_smf,0,4
  364. 3640 _smc,6,4:_smk,24,80,4
  365. 3650 _smx,0,5:_smy,0,5:_smf,0,5
  366. 3660 _smc,6,5:_smk,48,80,5
  367. 3670 ff=gk:au=24:gosub1520
  368. 3680 ff=int(gk/4)+24:au=6:gosub1520
  369. 3690 ff=gk-4*int(gk/4)+30:au=4:gosub1520
  370. 3700 ff=34+(gkand1):au=2:gosub1520
  371. 3710 gosub1900:goto2700
  372. 3720 fori=2to4:_smf,255,i+3
  373. 3730 _smk,i*48+16,140,i
  374. 3740 _smk,i*48+16,140,i+3
  375. 3750 _smc,2,i+3:_smc,10,i:next
  376. 3760 a$="ende?"
  377. 3770 a=6:a1=3:a3=0:gosub5300
  378. 3780 a$="(j/n)"
  379. 3790 a=6:a1=12:gosub5300
  380. 3800 fori=2to7:_sme,i:next
  381. 3810 gete$:ife$="n"then2700
  382. 3820 ife$<>"j"then3810
  383. 3830 return
  384. 3840 rem *************************
  385. 3850 rem ********** anfangswerte *
  386. 3860 rem *************************
  387. 3870 sys12*4096:a=int(rnd(-ti))
  388. 3880 _rf,0:_rc,4,255
  389. 3890 _rc,3,31:_re:_saa:_saf,0
  390. 3900 printchr$(150)chr$(147)
  391. 3910 printchr$(158)
  392. 3920 b=52224:rem ** bildspeicher *
  393. 3930 f=55296:rem ** farbspeicher *
  394. 3940 cu=58640:rem crsr-steuerung *
  395. 3950 ze=214:rem ***** crsr-zeile *
  396. 3960 sp=211:rem **** crsr-spalte *
  397. 3970 t=54272:rem *********** sid *
  398. 3980 pi=64000:rem sprite pistole *
  399. 3990 dimms(8,36):rem spielerwert *
  400. 4000 dimpi(47):rem  sprite-datas *
  401. 4010 dimpo(35,1):rem  sprite-pos *
  402. 4020 dimkf(6),kb(6):rem k-bilder *
  403. 4030 dimka(23):rem  kartenstapel *
  404. 4040 kf(0)=115:kf(1)=97:kf(2)=122
  405. 4050 kf(3)=120:kf(4)=160
  406. 4060 kf(5)=160:kf(6)=32
  407. 4070 kb(0)=66:kb(1)=68:kb(2)=75
  408. 4080 kb(3)=65:kb(4)=57
  409. 4090 kb(5)=49:kb(6)=32
  410. 4100 fori=0to7:a=72+i*24
  411. 4110 ifi>3thena=a+32
  412. 4120 po(i,0)=a:po(i,1)=56
  413. 4130 po(i+8,0)=a:po(i+8,1)=196
  414. 4140 ifi>3then4180
  415. 4150 a=84+i*24
  416. 4160 po(i+16,0)=36:po(i+16,1)=a
  417. 4170 po(i+20,0)=316:po(i+20,1)=a
  418. 4180 next
  419. 4190 po(24,0)=120:po(24,1)=80
  420. 4200 po(25,0)=224:po(25,1)=80
  421. 4210 po(26,0)=120:po(26,1)=160
  422. 4220 po(27,0)=224:po(27,1)=160
  423. 4230 po(28,0)=72:po(28,1)=120
  424. 4240 po(29,0)=280:po(29,1)=120
  425. 4250 po(30,0)=128:po(30,1)=112
  426. 4260 po(31,0)=224:po(31,1)=112
  427. 4270 po(32,0)=128:po(32,1)=131
  428. 4280 po(33,0)=224:po(33,1)=131
  429. 4290 po(34,0)=160:po(34,1)=120
  430. 4300 po(35,0)=192:po(35,1)=120
  431. 4310 fori=0to47:readpi(i):next
  432. 4320 fori=0to23:ka(i)=i:next
  433. 4330 fori=51200toi+41
  434. 4340 reada:pokei,a:next
  435. 4350 return
  436. 4360 rem *************************
  437. 4370 rem ************* titelbild *
  438. 4380 rem *************************
  439. 4390 a$="russisch roulette"
  440. 4400 gosub7280
  441. 4410 a1=1:a2=7:a3=128
  442. 4420 gosub4720
  443. 4430 a=2:a1=8:a2=7
  444. 4440 gosub5160
  445. 4450 a=int(len(a$)/2):a1=176-8*a
  446. 4460 _src,3:_smc,3:_srx,1:_sry,1
  447. 4470 _srk,168-8*len(a$)
  448. 4480 _smk,a1,67:_soe:_sme
  449. 4490 pokeze,3:pokesp,20-a:syscu
  450. 4500 printa$
  451. 4510 fori=1to200:next
  452. 4520 pokeze,7:pokesp,12:syscu
  453. 4530 print"ein programm von"
  454. 4540 fori=1to200:next
  455. 4550 fori=67to200
  456. 4560 _smk,a1,i
  457. 4570 next
  458. 4580 _sma:_sue
  459. 4590 _smf,0:a$="guenter kramer"
  460. 4600 a1=1:a2=2:a3=0:_sme
  461. 4610 _smx,1:_smy,1
  462. 4620 _smk,56,92
  463. 4630 gosub4720
  464. 4640 a=2:a2=2:a1=14
  465. 4650 gosub5160
  466. 4660 _rc,2,56
  467. 4670 _rc,14,31
  468. 4680 return
  469. 4690 rem *************************
  470. 4700 rem ********* rahmen setzen *
  471. 4710 rem *************************
  472. 4720 a=len(a$)
  473. 4730 if(a2and1)=1thengosub4800
  474. 4740 if(a2and2)=2thengosub4920
  475. 4750 if(a2and4)=4thengosub5040
  476. 4760 return
  477. 4770 rem *************************
  478. 4780 rem *********** oberer rand *
  479. 4790 rem *************************
  480. 4800 fori=1+a1toa+a1
  481. 4810 _sob,64+a3,1,i:next
  482. 4820 _sob,73+a3,1,i:_sob,66+a3,9,i
  483. 4830 _sob,75+a3,14,i
  484. 4840 fori=a+a1to1+a1step-1
  485. 4850 _sob,64+a3,14,i:next
  486. 4860 _sob,74+a3,14,i
  487. 4870 _sob,66+a3,9,i:_sob,85+a3,1,i
  488. 4880 return
  489. 4890 rem *************************
  490. 4900 rem ********* mittelsprites *
  491. 4910 rem *************************
  492. 4920 fori=1+a1toa+a1
  493. 4930 _smb,64+a3,1,i:next
  494. 4940 _smb,73+a3,1,i:_smb,66+a3,9,i
  495. 4950 _smb,75+a3,14,i
  496. 4960 fori=a+a1to1+a1step-1
  497. 4970 _smb,64+a3,14,i:next
  498. 4980 _smb,74+a3,14,i
  499. 4990 _smb,66+a3,9,i:_smb,85+a3,1,i
  500. 5000 return
  501. 5010 rem *************************
  502. 5020 rem ********** unterer rand *
  503. 5030 rem *************************
  504. 5040 fori=1+a1toa+a1
  505. 5050 _sub,64+a3,1,i:next
  506. 5060 _sub,73+a3,1,i:_sub,66+a3,9,i
  507. 5070 _sub,75+a3,14,i
  508. 5080 fori=a+a1to1+a1step-1
  509. 5090 _sub,64+a3,14,i:next
  510. 5100 _sub,74+a3,14,i
  511. 5110 _sub,66+a3,9,i:_sub,85+a3,1,i
  512. 5120 return
  513. 5130 rem *************************
  514. 5140 rem *********** text setzen *
  515. 5150 rem *************************
  516. 5160 if(a2and1)=1thengosub5230
  517. 5170 if(a2and2)=2thengosub5300
  518. 5180 if(a2and4)=4thengosub5370
  519. 5190 return
  520. 5200 rem *************************
  521. 5210 rem ************* text oben *
  522. 5220 rem *************************
  523. 5230 fori=0tolen(a$)-1
  524. 5240 a4=asc(mid$(a$,i+1,1))and63
  525. 5250 _sob,a4+a3,a1,a+i:next
  526. 5260 return
  527. 5270 rem *************************
  528. 5280 rem ************ text mitte *
  529. 5290 rem *************************
  530. 5300 fori=0tolen(a$)-1
  531. 5310 a4=asc(mid$(a$,i+1,1))and63
  532. 5320 _smb,a4+a3,a1,a+i:next
  533. 5330 return
  534. 5340 rem *************************
  535. 5350 rem ************ text unten *
  536. 5360 rem *************************
  537. 5370 fori=0tolen(a$)-1
  538. 5380 a4=asc(mid$(a$,i+1,1))and63
  539. 5390 _sub,a4+a3,a1,a+i:next
  540. 5400 return
  541. 5410 rem *************************
  542. 5420 rem **************** anfang *
  543. 5430 rem *************************
  544. 5440 printchr$(150)
  545. 5450 pokeze,12:pokesp,10:syscu
  546. 5460 print"wieviele mitspieler?"
  547. 5470 printtab(12)"ohne bankhalter"
  548. 5480 print
  549. 5490 poke198,0
  550. 5500 geta$
  551. 5510 ifa$<"1"ora$>"8"then5500
  552. 5520 an=val(a$)
  553. 5530 printtab(11)an"spieler - ok?"
  554. 5540 poke198,0
  555. 5550 geta$
  556. 5560 ifa$="j"then5610
  557. 5570 ifa$<>"n"then5550
  558. 5580 fori=12to24
  559. 5590 poke781,i:sys59903
  560. 5600 next:goto5440
  561. 5610 return
  562. 5620 rem *************************
  563. 5630 rem **** spielfeld aufbauen *
  564. 5640 rem *************************
  565. 5650 _ra:poke53265,11
  566. 5660 _sma:_rc,0,15:_rc,7,32
  567. 5670 _rc,9,24:gosub7690
  568. 5680 a$=chr$(117)+chr$(099)+chr$(099)
  569. 5690 a0$=chr$(098)+chr$(032)+chr$(032)
  570. 5700 a1$=chr$(106)+chr$(099)+chr$(099)
  571. 5710 a$=chr$(028)+a$+chr$(144)+a$
  572. 5720 a0$=chr$(028)+a0$+chr$(144)+a0$
  573. 5730 a1$=chr$(028)+a1$+chr$(144)+a1$
  574. 5740 a$=a$+a$+chr$(099)+chr$(105)
  575. 5750 a0$=a0$+a0$+chr$(032)+chr$(098)
  576. 5760 a1$=a1$+a1$+chr$(099)+chr$(107)
  577. 5770 a$=a$+chr$(167)+chr$(032)+a$
  578. 5780 a0$=a0$+chr$(167)+chr$(032)+a0$
  579. 5790 a1$=a1$+chr$(167)+chr$(032)+a1$
  580. 5800 a3$=right$(a$,5)
  581. 5810 a4$=right$(a0$,5)
  582. 5820 a5$=right$(a1$,5)
  583. 5830 printchr$(147);
  584. 5840 fori=1to2
  585. 5850 printtab(5)a$
  586. 5860 printtab(5)a0$
  587. 5870 printtab(5)a0$
  588. 5880 printtab(5)a0$
  589. 5890 printtab(5)a0$
  590. 5900 printtab(5)a1$;
  591. 5910 pokeze,19:pokesp,0:syscu
  592. 5920 next
  593. 5930 pokeze,5:pokesp,0:syscu
  594. 5940 fori=1to2
  595. 5950 printchr$(028)a3$tab(35)a3$;
  596. 5960 printa4$tab(75)a4$;
  597. 5970 printa4$tab(35)a4$;
  598. 5980 printchr$(144)a3$tab(75)a3$;
  599. 5990 printa4$tab(35)a4$;
  600. 6000 printa4$tab(75)a4$;
  601. 6010 next
  602. 6020 printa4$tab(35)a4$;
  603. 6030 printa4$tab(75)a4$;
  604. 6040 printa5$tab(35)a5$;
  605. 6050 pokeze,6:pokesp,0:syscu
  606. 6060 printtab(46)chr$(109)tab(59);
  607. 6070 printchr$(167)tab(73)chr$(110)
  608. 6080 printtab(7)chr$(109)tab(19);
  609. 6090 printchr$(167)tab(32)chr$(110);
  610. 6100 printtab(48)chr$(109)tab(59);
  611. 6110 printchr$(167)tab(71)chr$(110)
  612. 6120 printtab(9)chr$(109)tab(19);
  613. 6130 printchr$(167)tab(30)chr$(110);
  614. 6140 a$=chr$(183)+chr$(183)
  615. 6150 a$=chr$(183)+a$+a$
  616. 6160 a0$=chr$(032)+chr$(032)
  617. 6170 a0$=a0$+a0$
  618. 6180 a1$=chr$(175)+chr$(175)
  619. 6190 a1$=chr$(175)+a1$+a1$
  620. 6200 a2$=chr$(096)+chr$(096)
  621. 6210 a2$=chr$(096)+a2$+a2$
  622. 6220 a3$=chr$(018)+a0$+chr$(144)
  623. 6230 a3$=a3$+a0$+chr$(146)
  624. 6240 a4$=chr$(028)+chr$(165)
  625. 6250 a4$=a4$+a0$+chr$(032)
  626. 6260 printtab(50)chr$(028)chr$(111)a$;
  627. 6270 printa3$a$chr$(112)
  628. 6280 printtab(10)a4$a3$;
  629. 6290 printa0$chr$(032)chr$(167);
  630. 6300 printtab(50)chr$(028)chr$(165)a2$;
  631. 6310 printa3$a2$chr$(167)
  632. 6320 printtab(10)a4$a3$;
  633. 6330 printchr$(032)a0$chr$(167);
  634. 6340 printtab(50)chr$(028)chr$(108)a1$;
  635. 6350 printa3$a1$chr$(186)
  636. 6360 printtab(9)chr$(110)tab(19);
  637. 6370 printchr$(167)tab(30)chr$(109);
  638. 6380 printtab(48)chr$(110)tab(59);
  639. 6390 printchr$(167)tab(71)chr$(109)
  640. 6400 printtab(7)chr$(110)tab(19);
  641. 6410 printchr$(167)tab(32)chr$(109);
  642. 6420 printtab(46)chr$(110)tab(59);
  643. 6430 printchr$(167)tab(73)chr$(109)
  644. 6440 gosub7620
  645. 6450 a1=2:a=46:a0=3:gosub6770
  646. 6460 a1=4:a=62:gosub6770
  647. 6470 a1=11:a=806:gosub6770
  648. 6480 a1=1:a=822:gosub6770
  649. 6490 a1=57:a=241:a0=120:gosub6770
  650. 6500 a1=49:a=276:gosub6770
  651. 6510 gosub7620
  652. 6520 pokef+452,2:pokeb+452,83
  653. 6530 pokef+532,2:pokeb+532,90
  654. 6540 pokef+467,0:pokeb+467,65
  655. 6550 pokef+547,0:pokeb+547,88
  656. 6560 a$=chr$(117)+chr$(096)+chr$(096)
  657. 6570 a$=a$+right$(a$,2)+chr$(105)
  658. 6580 a0$=chr$(098)+chr$(032)+chr$(032)
  659. 6590 a0$=a0$+right$(a0$,2)+chr$(098)
  660. 6600 a1$=chr$(106)+mid$(a$,2,4)
  661. 6610 a1$=a1$+chr$(107)
  662. 6620 pokeze,6:pokesp,0:syscu
  663. 6630 printspc(17)a$
  664. 6640 printspc(17)a0$;
  665. 6650 printspc(34)a1$
  666. 6660 a$=left$(a$,4)+right$(a$,4)
  667. 6670 a0$=left$(a0$,4)+right$(a0$,4)
  668. 6680 a1$=left$(a1$,4)+right$(a1$,4)
  669. 6690 pokeze,16:pokesp,0:syscu
  670. 6700 printspc(16)a$
  671. 6710 printspc(16)a0$;
  672. 6720 printspc(32)a1$
  673. 6730 gosub7620:return
  674. 6740 rem *************************
  675. 6750 rem ********** kartenbilder *
  676. 6760 rem *************************
  677. 6770 a4=0:a2=2:a3=83:gosub6960
  678. 6780 a3=a1:gosub6960
  679. 6790 ifa3=49thena3=48:gosub6960
  680. 6800 a=a+a0
  681. 6810 a4=0:a2=0:a3=65:gosub6960
  682. 6820 a3=a1:gosub6960
  683. 6830 ifa3=49thena3=48:gosub6960
  684. 6840 a=a+a0
  685. 6850 a4=0:a2=2:a3=90:gosub6960
  686. 6860 a3=a1:gosub6960
  687. 6870 ifa3=49thena3=48:gosub6960
  688. 6880 a=a+a0
  689. 6890 a4=0:a2=0:a3=88:gosub6960
  690. 6900 a3=a1:gosub6960
  691. 6910 ifa3=49thena3=48:gosub6960
  692. 6920 return
  693. 6930 rem *************************
  694. 6940 rem ************** ausgeben *
  695. 6950 rem *************************
  696. 6960 pokef+a+a4,a2:pokeb+a+a4,a3
  697. 6970 a4=a4+1:return
  698. 6980 rem *************************
  699. 6990 rem ****** nullwerte setzen *
  700. 7000 rem *************************
  701. 7010 _soa:_sof,0:_soc,3
  702. 7020 a=130-30*((an-1)and3)
  703. 7030 ifan>4thena=40
  704. 7040 gosub7150
  705. 7050 ifan<5then7090
  706. 7060 _sua:_suf,0:_suc,14
  707. 7070 a=130-30*((an-5)and3)
  708. 7080 gosub7200
  709. 7090 fors=0toan:gosub250
  710. 7100 a$=right$(str$(s),1)
  711. 7110 a$=" - "+a$+" -"
  712. 7120 a1=3:gosub5160:next
  713. 7130 _sre:poke53265,27:_re
  714. 7140 gosub7690:return
  715. 7150 _soy,1:_sox,0
  716. 7160 fori=1to7step2
  717. 7170 _sok,a+i*30,0,i
  718. 7180 _sok,a+24+i*30,0,i+1
  719. 7190 next:return
  720. 7200 _suy,1:_sux,0
  721. 7210 fori=1to7step2
  722. 7220 _suk,a+i*30,0,i
  723. 7230 _suk,a+24+i*30,0,i+1
  724. 7240 next:return
  725. 7250 rem *************************
  726. 7260 rem ********** titel rollen *
  727. 7270 rem *************************
  728. 7280 _sma:_smc,7:_smf,0
  729. 7290 a0$=a$:a$=left$(a0$,8)
  730. 7300 a3=0:a1=1:a=1:gosub5300
  731. 7310 t1=0:gosub7530:_smk,0,82:_sme
  732. 7320 fori=0to120step8
  733. 7330 _smk,i,82:poket+1,i
  734. 7340 fork=1to8:_smr,1,k:nextk,i
  735. 7350 pokeze,3:pokesp,12:syscu
  736. 7360 _sma:printa$:gosub7620
  737. 7370 a$=right$(a0$,8):gosub5300
  738. 7380 t1=0:gosub7530:_smk,360,82:_sme
  739. 7390 fori=360to192step-8
  740. 7400 _smk,i,82:poket+1,i-110
  741. 7410 fork=1to8:_sml,1,k:nextk,i
  742. 7420 pokeze,3:pokesp,21:syscu
  743. 7430 _sma:printa$:gosub7620
  744. 7440 a$=a0$:return
  745. 7450 rem *************************
  746. 7460 rem ********** loeschen sid *
  747. 7470 rem *************************
  748. 7480 fort0=0to24:poket+t0,0:next
  749. 7490 return
  750. 7500 rem *************************
  751. 7510 rem **************** heulen *
  752. 7520 rem *************************
  753. 7530 gosub7480
  754. 7540 poket,t1-256*int(t1/256)
  755. 7550 poket+1,int(t1/256)
  756. 7560 poket+6,255:poket+5,15
  757. 7570 poket+24,15:poket+4,33
  758. 7580 return
  759. 7590 rem *************************
  760. 7600 rem **************** schuss *
  761. 7610 rem *************************
  762. 7620 gosub7480
  763. 7630 poket+5,9:poket+1,21
  764. 7640 poket+24,15:poket+4,129
  765. 7650 return
  766. 7660 rem *************************
  767. 7670 rem ****************** gong *
  768. 7680 rem *************************
  769. 7690 gosub7480
  770. 7700 poket+1,8:poket,180
  771. 7710 poket+5,12:poket+8,15
  772. 7720 poket+7,247
  773. 7730 poket+15,13:poket+14,10
  774. 7740 poket+12,12:poket+19,12
  775. 7750 poket+24,15:poket+4,23
  776. 7760 poket+11,23:poket+18,23
  777. 7770 return
  778. 7780 data 048,001,144,048,127,200
  779. 7790 data 255,129,232,255,191,240
  780. 7800 data 000,129,248,000,127,248
  781. 7810 data 000,017,248,000,017,252
  782. 7820 data 000,009,252,000,007,252
  783. 7830 data 000,003,252,000,001,252
  784. 7840 data 000,001,252,000,001,252
  785. 7850 data 000,000,252,000,000,120
  786. 7860 data 169,216,133,252,160,000
  787. 7870 data 132,251,177,251,041,015
  788. 7880 data 201,000,208,006,169,255
  789. 7890 data 145,251,208,008,201,015
  790. 7900 data 208,004,169,240,145,251
  791. 7910 data 200,208,231,230,252,165
  792. 7920 data 252,201,220,208,223,096
  793. 7930 rem russisches roulette ===64
  794. 7940 rem 038911 bytes memory     =
  795. 7950 rem 017371 bytes program    =
  796. 7960 rem 000000 bytes variables  =
  797. 7970 rem 000000 bytes arrays     =
  798. 7980 rem 000000 bytes strings    =
  799. 7990 rem 000000 bytes free (0)   =
  800. 8000 rem =========================
  801.