home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_87-09_1987_Verlag_Heinz_Weise_de.d64 / farbbasar (.txt) next >
Commodore BASIC  |  2023-02-26  |  14KB  |  544 lines
  1. 10 rem"*******************************
  2. 20 [143]"      f a r b - b a s a r     *
  3. 30 rem"********* version 3.0 *********
  4. 40 [143]"   (c)1987 input64            *
  5. 50 rem"   (w)theodor  carstensen     *
  6. 55 [143]"      eppendorfer baum 24     *
  7. 60 rem"      d 2000   hamburg-20     *
  8. 70 [143]"*******************************
  9. 80 ifpeek(50307)=120thenpoke50257,0
  10. 90 :
  11. 100 rem"[141] variablenzuweisung 
  12. 110 [134] k(6,6)
  13. 120 [134] ch$(48)
  14. 130 [134] t1$(10,5)
  15. 140 [134] t2$(10,5)
  16. 150 [134] c$(4,12)
  17. 160 [134] c(4)
  18. 170 [134] fs(6)
  19. 180 [134] sp$(6)
  20. 190 [134] pu(6)
  21. 200 [134] tl$(10)
  22. 210 [134] tr$(10)
  23. 220 [134] a$(30)
  24. 230 [134] x$(7)
  25. 240 :
  26. 300 a$(0)[178]"                                        "
  27. 310 a$(1)[178]" wurfeln  "
  28. 320 a$(2)[178]" tauschen "
  29. 330 a$(3)[178]" nachster "
  30. 340 a$(4)[178]"  kaufen  "
  31. 350 a$(5)[178]"  farbe wacmdon,hlen  "
  32. 360 a$(6)[178]" chips "
  33. 370 a$(7)[178]"wer ist sieger ?"
  34. 380 a$(8)[178]"ortantantantantan^cmdcmdcmdcmdcmdcmdcmd/tantantantantanexp"
  35. 390 a$(9)[178]"(NULL)str$valusrvalstr$right$cmdcmdcmdcmdcmdcmdcmdmid$asc(NULL)and(NULL)asc(NULL)"
  36. 400 a$(10)[178]"  chip wacmdon,hlen  "
  37. 410 a$(11)[178]"    tauschen    "
  38. 420 a$(12)[178]"  kombination   "
  39. 430 a$(13)[178]"    wacmdon,hlen  "
  40. 440 a$(14)[178]"     joker      "
  41. 450 a$(15)[178]"                "
  42. 460 a$(16)[178]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd"
  43. 470 a$(17)[178]"zu wenig farben "
  44. 480 a$(18)[178]"da ist kein chip"
  45. 490 a$(19)[178]" noch ein spiel "
  46. 500 a$(20)[178]" spiel  beenden "
  47. 510 a$(21)[178]"  neue spieler  "
  48. 520 a$(22)[178]" alte besetzung "
  49. 530 a$(23)[178]"ende in 10 sekunden"
  50. 540 a$(24)[178]"................"
  51. 550 a$(25)[178]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd"
  52. 560 a$(26)[178]" weiter      "
  53. 570 a$(27)[178]" spielername ?  "
  54. 580 a$(28)[178]"tantantantantantantantantantantantantantantantantantantantantantantantantantan"
  55. 590 :
  56. 600 x$(0)[178]"pokewaitto"
  57. 610 x$(1)[178]"(NULL)"
  58. 620 x$(2)[178]"for(NULL)"
  59. 630 x$(3)[178]"(NULL)"
  60. 640 x$(4)[178]"(NULL)"
  61. 650 x$(5)[178]"sys(NULL)"
  62. 660 x$(6)[178]"pokecmdcmdcmdcmdcmdcmdwait-<"
  63. 670 x$(7)[178]"pokecmdcmdcmdcmdcmdcmdwait(NULL)(NULL)"
  64. 680 :
  65. 700 cu[178]58640
  66. 710 tn[178]54272
  67. 720 :
  68. 1000 [143]"gosub vorbereitung 
  69. 1010 poke 53280,0:poke 53281,0
  70. 1020 print"[147]"chr$(142)chr$(8)
  71. 1030 gosub 8600:tl=27:th=60:gosub 2500
  72. 1040 gosub 9000:th=50:gosub 2500
  73. 1050 gosub 9200:th=40:gosub 2500
  74. 1060 th=30
  75. 1070 for i=1 to 700:next i:gosub 2500
  76. 1080 print"[151] [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][129]"
  77. 1090 for i=1 to 16:print:next i
  78. 1100 print"           ein  computerspiel"
  79. 1110 print"                   von"
  80. 1120 print"           theodor carstensen"
  81. 1130 for i=1 to 2400:next i:th=20: gosub 2500
  82. 1140 for i=1 to 35:print:next i
  83. 1150 gosub 1400:sz=1:goto 7500
  84. 1160 :
  85. 1300 rem"[141] punkte auf null 
  86. 1310 [129] i[178]1 [164] 6:pu(i)[178]0
  87. 1320 [129] ii[178]1 [164] 6:k(i,ii)[178]0
  88. 1330 [130] ii,i
  89. 1340 [142]
  90. 1350 :
  91. 1400 [143]"gosub spieler auf null 
  92. 1410 for i=1 to 6:pu=pu(i):gosub 1500
  93. 1420 sp$(i)=left$(a$(24),10)+pu$
  94. 1430 next i
  95. 1440 return
  96. 1450 :
  97. 1500 rem"[141] punkt-umwandlung 
  98. 1510 pu$[178][201]([196](pu),[195]([196](pu))[171]1)
  99. 1520 pu$[178][201](("..."[170]pu$),4)[170]"."
  100. 1530 [142]
  101. 1540 :
  102. 1600 [143]"gosub modusfeld 
  103. 1610 m=m+1:if m>2 then m=1
  104. 1620 if m=1 then r1$="":r2$="[146]"
  105. 1630 if m=2 then r1$="[146]":r2$=""
  106. 1640 gosub 2000:if m1$=a$(1) or m1$=a$(3) then print"[145]  ,[157][157][157]";
  107. 1650 print r1$ m1$ "[146]" left$(a$(25),len(m1$));
  108. 1660 print r2$ m2$"[146]";
  109. 1670 gosub 2300:if x$=chr$(13) or x$="" or x$="[145]" then 1690
  110. 1680 goto 1670
  111. 1690 if x$<>chr$(13) then 1610
  112. 1700 gosub 2000:if m1$=a$(1) or m1$=a$(3) then print"[145]   [157][157][157]";
  113. 1710 gosub 2000:print left$(a$(0),len(m1$)) "[146]" left$(a$(25),len(m1$));
  114. 1720 print left$(a$(0),len(m1$));
  115. 1730 return
  116. 1740 :
  117. 1800 rem"[141] chips zeigen 
  118. 1810 z[178]14:p[178]20
  119. 1820 [129] y[178]1 [164] 4:[141] 2000
  120. 1830 [139] c(y)[179]1  [167] [153]"pokecmd(NULL)spc(spc(spc(spc(spc(poke(NULL)";:b[178]1:[137] 1890
  121. 1840 [129] x[178]1 [164] 6
  122. 1850 [139] x[178]1 [175] y[178]cx [167] [153]"pokecmd(NULL)";:[141] 1910
  123. 1860 x$[178][202](c$(y,c(y)),x,1):x$[178]x$([197](x$))
  124. 1870 [129] i[178]1 [164] 4:[130] i:[153] x$;
  125. 1880 [130] x
  126. 1890 z[178]z[170]3:[130] y:th[178]60:[129] i[178]1 [164] 100:[130] i:[141] 2500:[142]
  127. 1900 :
  128. 1910 [129] ii[178]1 [164] 5:[153]" wait";
  129. 1920 [129] i[178]1 [164] 15:[130] i
  130. 1930 [130] ii
  131. 1940 [153]"poke(NULL)cmdcmdcmdcmdcmdcmd";:[142]
  132. 1950 :
  133. 2000 [143] "gosub cursor positionieren 
  134. 2010 poke 214,z:poke 211,p:poke783,0:sys cu
  135. 2020 return
  136. 2030 :
  137. 2100 rem"[141] eingabe 
  138. 2110 y$[178]""
  139. 2120 [151] 204,0:[151]198,0
  140. 2130 [161] x$:[139] x$[178]"" [167] 2130
  141. 2140 [139] [194](207) [167] 2140
  142. 2150 [151] 204,1
  143. 2160 [139] x$[178]"cmd" [176] x$[178][199](20) [167] 2240
  144. 2170 [139] x$[178][199](13) [167] 2220
  145. 2180 [139] (x$[177]"," [175] x$[179]":") [176] (x$[177]"@" [175] x$[179]"[") [167] 2200
  146. 2190 [137] 2120
  147. 2200 [139] [195](y$)[178][195](w$) [167] 2120
  148. 2210 y$[178]y$[170]x$:[153] x$;:[137] 2120
  149. 2220 [139] [195](y$)[179][195](w$) [167] y$[178]y$[170][200](a$(24),[195](w$)[171][195](y$))
  150. 2230 w$[178]y$:[141] 2500:[142]
  151. 2240 [139] y$[178]""[167] 2110
  152. 2250 [153]" cmd"[200](a$(25),[195](y$))w$[200](a$(25),[195](w$));
  153. 2260 [137] 2110
  154. 2270 :
  155. 2300 [143]"gosub joystick-abfrage 
  156. 2310 poke198,0
  157. 2312 poke 56320,127:i=peek(56320)
  158. 2322 get x$
  159. 2330 if (i and 1)=0 then x$="[145]"
  160. 2340 if (i and 2)=0 then x$=""
  161. 2350 if (i and 4)=0 then x$="[157]"
  162. 2360 if (i and 8)=0 then x$=""
  163. 2370 if (i and16)=0 then x$=chr$(13)
  164. 2380 if x$="e" then m=10:goto 4000
  165. 2390 if x$=chr$(13) then th=60:gosub 2500
  166. 2400 if x$="[145]" or x$="" or x$="[157]" or x$="" or x$=chr$(13) then return
  167. 2410 goto 2312
  168. 2420 :
  169. 2500 rem"[141] ton 
  170. 2510 [129] ii[178]0 [164] 23:[151] tn[170]ii,0:[130]ii
  171. 2520 [151] tn[170]24,6
  172. 2530 [151] tn[170]5,tl
  173. 2540 [151] tn[170]6,3
  174. 2550 [151] tn[170]0,30
  175. 2560 [151] tn[170]1,th
  176. 2570 [151] tn[170]4,17
  177. 2580 [142]
  178. 2590 :
  179. 2600 [143]"gosub spielfeldaufbau 
  180. 2610 gosub 9400
  181. 2620 poke53265,peek(53265) and 239:gosub 8200
  182. 2630 poke 53265,peek(53265) or 16
  183. 2640 gosub 9500:gosub 1800:sp=0
  184. 2650 :
  185. 2700 rem"[141] start 
  186. 2710 tl[178]20:th[178]40:[141] 2500
  187. 2720 [139] sp[179][178]0 [167] 2760
  188. 2730 z[178]1:p[178](sp[171]1)[172]6[170]2:pu[178]pu(sp):[141] 1500:[141] 2000
  189. 2740 [153]"print#"[200](sp$(sp),5);
  190. 2750 z[178]2:[141] 2000:[153] pu$"wait";
  191. 2760 sp[178]sp[170]1:[139] sp[177]sz [167] sp[178]1
  192. 2770 z[178]1:p[178](sp[171]1)[172]6[170]2:pu[178]pu(sp):[141] 1500:[141] 2000
  193. 2780 [153]""[200](sp$(sp),5);
  194. 2790 z[178]2:[141] 2000:[153] pu$"wait";
  195. 2800 m[178]2:z[178]14:p[178]2:m1$[178]a$(1):m2$[178]a$(2):[141] 1600
  196. 2810 [139] m[178]2 [167] 3200
  197. 2820 :
  198. 2900 [143]"gosub wuerfeln 
  199. 2910 z=14:p=15:gosub 2000:r=6
  200. 2920 for x=1 to 23
  201. 2930 gosub 5000:x$=x$(w)
  202. 2940 if x$="6" then x$="[144]"
  203. 2950 print left$(x$,1);"  [157][157]  [145][157][157][146]";
  204. 2960 next x
  205. 2970 if w=6 then tl=27:gosub 3030
  206. 2980 k(sp,w)=k(sp,w)+1
  207. 2990 z=k(sp,w)+2:p=1+((sp-1)*6)+w:gosub  2000
  208. 3000 if z<11 then print x$;"[157][146]";
  209. 3010 th=40:gosub 2500:print"";:goto 3500
  210. 3020 :
  211. 3030 print"[156]";:i=14:gosub 7900
  212. 3040 z=19:gosub 2000
  213. 3050 print "[151]"a$(5) a$(16);
  214. 3060 print"   [209][129][209][209][209][158][209][146]    ";
  215. 3070 print a$(16)"[151]^[157]";:x=1
  216. 3080 gosub 2300
  217. 3090 if x$="" and x<5 then print" ^[157]";:x=x+1
  218. 3100 if x$="[157]" and x>1 then print" [157][157][157]^[157]";:x=x-1
  219. 3110 if x$=chr$(13) then gosub 2000:gosub 7940:w=x:goto 3130
  220. 3120 goto 3080
  221. 3130 x$=x$(x):return
  222. 3140 :
  223. 3200 rem"[141] tauschen 
  224. 3210 z[178]13:p[178]27:[141] 2000:[153]""a$(2)"pokewait";:z[178]19:p[178]2:[141] 2000
  225. 3220 [153] a$(12);:z[178]21:[141] 2000:[153] a$(13)"stop";:z[178]14:p[178]27
  226. 3230 [141] 2000
  227. 3240 [139] p[178]27 [167] [153]">cmd";
  228. 3250 [139] p[178]36 [167] [153]"<cmd";
  229. 3260 [141] 2300
  230. 3270 [139] x$[178]"" [167] [153]" cmd";:[137] 3310
  231. 3280 [139] x$[178]"on" [167] [153]" cmd";:[137] 3340
  232. 3290 [139] x$[178][199](13) [167] [153]" cmd";:y[178]p[171]26:x[178]z[171]13:[137] 3370
  233. 3300 [137] 3260
  234. 3310 z[178]z[170]1:[139] z[177]23 [175] p[178]27 [167] p[178]36:z[178]14:[137] 3230
  235. 3320 [139] z[177]23 [167] p[178]27:z[178]14
  236. 3330 [137] 3230
  237. 3340 z[178]z[171]1:[139] z[179]14 [175] p[178]27 [167] p[178]36:z[178]23:[137] 3230
  238. 3350 [139] z[179]14 [167] p[178]27:z[178]23
  239. 3360 [137] 3230
  240. 3370 [139] y[177]1 [167] y[178]2
  241. 3380 z[178]13:p[178]27:[141] 2000:[153]"poke"a$(2);:[141] 7940
  242. 3390 [139] y[178]1 [167] x$[178]tl$(x):y$[178]tr$(x)
  243. 3400 [139] y[178]2 [167] x$[178]tr$(x):y$[178]tl$(x)
  244. 3410 x[178]4:[141] 7400
  245. 3420 [139] x[178]0 [167] [153]"";:[137] 2800
  246. 3430 [129] i[178]1 [164] 5:k(sp,i)[178]k(sp,i)[171]fs(i):[130] i
  247. 3440 [129] i[178]1 [164] 4:x[178][197]([202](y$,i,1))
  248. 3450 [139] x[177]0 [167] k(sp,x)[178]k(sp,x)[170]1
  249. 3460 [130] i
  250. 3470 [141] 7300
  251. 3480 [153]"";:th[178]40:[141] 2500
  252. 3490 :
  253. 3500 [143]"gosub chip kaufen 
  254. 3510 m=2:z=14:p=2:m1$=a$(3):m2$=a$(4):gosub 1600
  255. 3520 if m=1 then 2700
  256. 3530 z=20:p=2:gosub 2000:print"[151]"a$(10);
  257. 3540 z=12:p=19:gosub 2000:print""a$(6)"[151][146]";:z=13
  258. 3550 gosub 2000:print a$(9);:gosub 2000
  259. 3560 gosub 2300
  260. 3570 if x$="" then 3610
  261. 3580 if x$="[145]" then 3630
  262. 3590 if x$=chr$(13) then 3650
  263. 3600 goto 3560
  264. 3610 z=z+3:if z>22 then z=13
  265. 3620 print a$(8);:goto 3550
  266. 3630 z=z-3:if z<13 then z=22
  267. 3640 goto 3620
  268. 3650 print a$(8);:y=(z-10)/3:z=12:gosub  2000:print a$(6);:gosub 7940
  269. 3660 if c(y)<1 then th=20:i=18:gosub 7900:print"";:goto 3510
  270. 3670 x$=left$(c$(y,c(y)),5):x=5:gosub 7400
  271. 3680 if x=0 then print"";:goto 3510
  272. 3690 x=0:for i=1 to 5:k(sp,i)=k(sp,i)-fs(i)
  273. 3700 x=x+k(sp,i):next i:x$=right$(c$(y,c(y)),1)
  274. 3710 c(y)=c(y)-1:k(sp,6)=k(sp,6)+1
  275. 3720 y=0:if x$="6" then y=1
  276. 3730 i=1:if b=0 or y=0 then 3750
  277. 3740 i=i+1:if x<3 then i=i+1:if x<2 then i=i+1:if x<1 then i=i+1
  278. 3750 if b=0 and y=0 then 3770
  279. 3760 i=i+1:if x<2 then i=i+1:if x<1 then i=i+1
  280. 3770 if x<3 then i=i+1:if x<2 then i=i+1:if x<1 then i=i+2
  281. 3780 pu(sp)=pu(sp)+i:gosub 7300:pu=pu(sp):gosub 1500:z=2:p=(sp-1)*6+2
  282. 3790 gosub 2000:print""pu$"[146]";:gosub 1800
  283. 3800 ii=0:for i=1 to 4:if c(i)=0 then ii=ii+1
  284. 3810 next i:if ii=4 then 4000
  285. 3820 goto 2700
  286. 3830 :
  287. 3840 :
  288. 4000 rem"[141] platzierung 
  289. 4010 [139]sp[178]0[167]4050
  290. 4012 z[178]1:p[178](sp[171]1)[172]6[170]2:[141] 2000:[153]"print#"[200](sp$(sp),5);
  291. 4020 z[178]2:[141] 2000:[153] pu$"wait";
  292. 4030 [129] i[178]1 [164] sz:b[178]0:[129] ii[178]1 [164] 5:b[178]b[170]k(i,ii):[130] ii
  293. 4040 fs(i)[178]k(i,6)[171]b:[130] i
  294. 4050 z[178]20:p[178]2:[141] 2000:tl[178]5:[139] sz[179]2 [167] 4160
  295. 4060 [129] x[178]1 [164] sz[171]1
  296. 4070 [129] y[178]x[170]1 [164] sz:[151] 646,y[170]2
  297. 4080 [153] a$(7)a$(16);:th[178]y[172]20:[141] 2500
  298. 4090 [139] pu(x)[178]pu(y) [167] [139] fs(x)[178][177]fs(y) [167] 4140
  299. 4100 [139] pu(x)[178][177]pu(y) [167] 4140
  300. 4110 sp$(0)[178]sp$(x):pu(0)[178]pu(x):fs(0)[178]fs(x)
  301. 4120 sp$(x)[178]sp$(y):pu(x)[178]pu(y):fs(x)[178]fs(y)
  302. 4130 sp$(y)[178]sp$(0):pu(y)[178]pu(0):fs(y)[178]fs(0)
  303. 4140 [130] y
  304. 4150 [130] x
  305. 4160 [129] i[178]1 [164] sz:pu[178]pu(i):[141] 1500
  306. 4170 sp$(i)[178][200](sp$(i),10)[170]pu$
  307. 4180 [130] i
  308. 4190 b[178]0:[129] i[178]1 [164] 700:[130] i
  309. 4200 [137] 7500
  310. 4210 :
  311. 5000 [143]"gosub wuerfel 
  312. 5010 w=int(rnd(1)*r)+1
  313. 5020 return
  314. 5030 :
  315. 7300 rem"[141] farben schreiben 
  316. 7310 [129] x[178]1 [164] 5:x$[178]x$(x)
  317. 7320 [129] i[178]1 [164] 8
  318. 7330 z[178]i[170]2:p[178]1[170]((sp[171]1)[172]6)[170]x:[141] 2000
  319. 7340 [153]" cmd";
  320. 7350 [139] i[179][178]k(sp,x) [167] [153] x$"cmd";
  321. 7360 [130] i,x
  322. 7370 [142]
  323. 7380 :
  324. 7400 [143]"gosub kapital pruefen 
  325. 7410 for i=0 to 5:fs(i)=0:next i
  326. 7420 for i=1 to x:ii=val(mid$(x$,i,1))
  327. 7430 fs(ii)=fs(ii)+1:next i
  328. 7440 for i=1 to 5
  329. 7450 if k(sp,i)<fs(i) then x=0
  330. 7460 next i
  331. 7470 if x=0 then th=20:i=17:print"[149]";:gosub 7900:print"[151]";
  332. 7480 return
  333. 7490 :
  334. 7500 rem"[141] noch einmal 
  335. 7510 [153]"load":th[178]60:tl[178]20:[141] 2500:[141] 8000:[139] m[178]10 [167] 7800
  336. 7520 [139] m[178]0 [167] m[178]2:z[178]20:[137] 7590
  337. 7530 m[178]2:z[178]20:p[178]12:m1$[178]a$(19):m2$[178]a$(20):[128]: [141] 1600
  338. 7540 [139] m[178]2 [167] 7800
  339. 7550 m[178]2
  340. 7560 z[178]20:p[178]11:m1$[178]a$(26)[170]" ja  "
  341. 7570 m2$[178]a$(26)[170]"nein ":[141] 1600
  342. 7580 [139] m[178]2 [167] [141] 8000:[151]198,2:[161] x$:[137] 7560
  343. 7590 m[178]2:p[178]12:m1$[178]a$(21):m2$[178]a$(22):[141] 1600
  344. 7600 [141] 1300:[139] m[178]2 [167] 7730
  345. 7610 [141] 1400:[141] 8000
  346. 7620 z[178]20:p[178]10:[141] 2000
  347. 7630 [153]"pokewieviele spieler ? sys";
  348. 7640 w$[178]" ":[141] 2100:[139] w$[178]"." [167] 7640
  349. 7650 sz[178][197](w$):[139] sz[177]0 [175] sz[179]7 [167] [141] 8000:[137] 7670
  350. 7660 [153]"cmd cmd";:[137]7640
  351. 7670 [129] x[178]1 [164] sz:z[178]20:p[178]5:[141] 2000
  352. 7680 [153] [200](a$(0),30);:[141] 2000
  353. 7690 [153] "poke"x"cmd."a$(27)"sys"[200](a$(24),10)[200](a$(25),10);
  354. 7700 w$[178][200](sp$(x),10):[141] 2100:pu[178]pu(x):[141] 1500:sp$(x)[178]w$[170]pu$
  355. 7710 [141] 8000:[130] x:z[178]20:p[178]5:[141] 2000:[153] [200](a$(0),30);
  356. 7720 [151] 53280,15:[151] 53281,15:tl[178]27:th[178]20:[141] 2500:[129] i[178]1 [164] 700:[130] i
  357. 7730 [137] 2600
  358. 7740 :
  359. 7800 [143]"gosub ende 
  360. 7810 z=18:p=11:gosub 2000:print a$(23);
  361. 7820 poke 788,49:ti$="000000"
  362. 7830 if ti$<"000010" then 7830
  363. 7835 ifpeek(50307)=120thensys50307
  364. 7840 sys 65126:end
  365. 7850 :
  366. 7900 rem "[141] fehlermeldung 
  367. 7910 tl[178]27:[141] 2500:z[178]20:p[178]2:[141] 2000
  368. 7920 [141] 2000:[153] a$(i);
  369. 7930 [129] i[178]1 [164] 700:[130] i
  370. 7940 z[178]18:p[178]2:[129] i[178]1 [164] 6:[141] 2000
  371. 7950 [153] a$(15);:z[178]z[170]1:[130] i
  372. 7960 th[178]60:tl[178]20
  373. 7970 [142]
  374. 7980 :
  375. 8000 [143]"gosub sieger-liste 
  376. 8010 print"[151]";:poke 53280,0:poke 53281,5
  377. 8020 z=4:p=6:gosub 2000
  378. 8030 print"[176]"a$(28)"[174]";:z=z+1:gosub 2000
  379. 8040 print"[221]       sieger-liste       [221]";:z=z+1:gosub 2000
  380. 8050 print"[221]"a$(28)"[221]";:z=z+1:gosub 2000
  381. 8060 for i=1 to sz
  382. 8070 print"[221]";i;"[157]. ";sp$(i);"punkte ";"[221]";:z=z+1: gosub 2000
  383. 8080 next i
  384. 8090 print"[173]"a$(28)"[189][146]";
  385. 8100 for i=1 to 4:print a$(0);:next i
  386. 8110 print a$(25);
  387. 8120 return
  388. 8130 :
  389. 8200 rem"[141] spielfeld 
  390. 8210 [153]"loadpoke";:[151] 53280,15:[151] 53281,15
  391. 8220 [153]" ortantantantantan=tantantantantan=tantantantantan=tantantantantan=tantantantantan=tantantantantan^  ";
  392. 8230 [129] x[178]1 [164] 10
  393. 8240 [153]" (NULL)     (NULL)     (NULL)     (NULL)     (NULL)     (NULL)     (NULL)  ";
  394. 8250 [130] x
  395. 8260 [153]" /tantantantantan>tantantantantan>tantantantantan>tantantantantan>tantantantantan>tantantantantanexp  ";
  396. 8270 [153]" ortantantantantantantantantantantan=tantantantan^ chips ortantantantantantantantantantan^  ";
  397. 8280 [129] x[178]1 [164] 4
  398. 8290 [153]" (NULL)           (NULL)    (NULL)       (NULL)          (NULL)  ";
  399. 8300 [130] x
  400. 8310 [153]" -tantantantantantantantantantantan>tantantantan<       (NULL)          (NULL)  ";
  401. 8320 [129] x[178]1 [164] 6
  402. 8330 [153]" (NULL)                (NULL)       (NULL)          (NULL)  ";
  403. 8340 [130] x
  404. 8350 [153]" /tantantantantantantantantantantantantantantantanexp       /tantantantantantantantantantanexp";
  405. 8360 z[178]13:p[178]19:[141] 2000
  406. 8370 [129] x[178]1 [164] 4
  407. 8380 [153]"ortantantantantan^";:z[178]z[170]1:[141] 2000
  408. 8390 [153]"(NULL)spc(spc(spc(spc(spc(poke(NULL)";:z[178]z[170]1:[141] 2000
  409. 8400 [153]"/tantantantantanexp";:z[178]z[170]1:[139] x[179]4 [167] [141] 2000
  410. 8410 [130] x
  411. 8420 z[178]13:p[178]14:[141] 2000
  412. 8430 [153]"stop(NULL)tantanright$";:z[178]z[170]1:[141] 2000
  413. 8440 [153]"(NULL)  (NULL)";:z[178]z[170]1:[141] 2000
  414. 8450 [153]"(NULL)  (NULL)";:z[178]z[170]1:[141] 2000
  415. 8460 [153]"mid$tantan(NULL)pokewait";
  416. 8470 z[178]1:p[178]2:[141] 2000
  417. 8480 z[178]13:p[178]27:[141] 2000:[153] a$(2);
  418. 8490 [142]
  419. 8500 :
  420. 8600 [143]"gosub titelbid 
  421. 8610 poke53265,peek(53265) and 239
  422. 8620 print"[147]";
  423. 8630 :
  424. 8640 print"[151][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]";
  425. 8650 print"[151][166][166][166][156][151][166][166][166][166][166][166][166][166][166][166][166]";
  426. 8660 print"[151][166][166][166]         [188]    [188][151][166][166][166][166][166][166][166][166][166][166][166]";
  427. 8670 print"[151][166][166][166][154] [181] [182]    [151][166][166][166][166][166][166][166][166][166][166][166]";
  428. 8680 print"[151]   [159]    [190][182] [190][182][151]           ";
  429. 8690 print"[151]   [158]   [181][182][181][182]        [151]           ";
  430. 8700 print"[151]   [153]       [187][188] [187][188][151]           ";
  431. 8710 print"[151][166][166][166] [181][182][181][182]    [151][166][166][166][166][166][166][166][166][166][166][166]";
  432. 8720 print"[151][166][166][166][149]         [172][151][166][166][166][166][166][166][166][166][166][166][166]";
  433. 8730 print"[151][166][166][166][156][151][166][166][166][166][166][166][166][166][166][166][166]";
  434. 8740 print"[151][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168]";
  435. 8750 print"[151] [146][223]        [187]  [182][181]  [172][187]  [182][181]  [187][188][151]     ";
  436. 8760 print"[151] [146][205][156][223]        [182][161]    [181][188]     [182][161] [188][151]    ";
  437. 8770 print"[151] [149][199][146][205][150][223]      [187] [182][161][182][161] [188][187]  [182][161][182][161] [187]  [188][151]   ";
  438. 8780 print"[151] [149][199][146] [205][158][223]      [188]     [188][187]     [188]   [188][151]  ";
  439. 8790 print"[151] [149][199][146] /[205][153][223]     [172][182][181][187][170][182][181]      [188][151] ";
  440. 8800 print"[151] [149][199][146][154]/[151]  [205][223]   [190][190]  [188][188][190][190]  [188]       [188]";
  441. 8810 print"[151] [146][214][214][214][214][214][214][154][165][163][163][163][163][163][163][163][163][163][163][163]version[163]3[163][163][163][163][163][163][163][163][163][163][163][163]";
  442. 8820 print"[151] [149][199][146]     [151][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223]";
  443. 8830 print"[151] [149][199][146]          [199][146][154]   [206],  [149][199][146][154]       [149][199][146][154]      [149][199][151]    ";
  444. 8840 print"[151] [149][199][175][175][175][175][175][175][175][175][175][175][163]       [163]       [163]      [199][151]    ";
  445. 8850 print"[151] [149][199][165]         [165][146][154]    [206]                 [149][199][151]    ";
  446. 8860 print"[151] [149][199][165][146][154]   [206]    [149] [165][146][154]    [206],      .   [206]     [149][199][151]    ";
  447. 8870 print"[151] [149][199][165][146][154]  [206][206]    [149] [165][146][154]   [206][206]   .  .  ,[206]      [149][199][151]   [146][169]";
  448. 8880 print"[151] [149][199][165][146][154]  [206]     [149] [165][146][154]   [206]         [206] [206].     [149][199][151]  [146][169]";
  449. 8890 poke 53265,peek(53265) or 16
  450. 8900 return
  451. 8910 :
  452. 9000 rem"[141] tabelle einlesen 
  453. 9010 [140]
  454. 9020 [129] i[178]1 [164] 10
  455. 9030 [129] ii[178]1 [164] 5
  456. 9040 [135] t1$(i,ii),t2$(i,ii)
  457. 9050 [130] ii
  458. 9060 [130] i
  459. 9070 [142]
  460. 9080 :
  461. 9200 [143]"gosub chips einlesen 
  462. 9210 restore
  463. 9220 for i=1 to 100:read x$:next i
  464. 9230 for i=1 to 48:read ch$(i):next i
  465. 9240 return
  466. 9250 :
  467. 9400 rem"[141] chips verteilen 
  468. 9410 r[178]48:[141] 5000
  469. 9420 [129] i[178]1 [164] 12
  470. 9430 [129] ii[178]1 [164] 4
  471. 9440 w[178]w[170]1:[139] w[177]48 [167] w[178]1
  472. 9450 c$(ii,i)[178]ch$(w)
  473. 9460 [130] ii:[130] i
  474. 9470 [129] i[178]1 [164] 4:c(i)[178]12:[130] i:b[178]0
  475. 9480 [142]
  476. 9490 :
  477. 9500 [143]"gosub tabelle erzeugen 
  478. 9530 r=10:gosub 5000:x=w
  479. 9540 gosub 5000:if w=x then 9530
  480. 9550 y=w:if x=0 or y=0 then 9530
  481. 9560 for i=1 to 5
  482. 9570 tl$(i)=t1$(x,i):tr$(i)=t2$(x,i)
  483. 9580 next i
  484. 9590 for i=1 to 5:ii=i+5
  485. 9600 tl$(ii)=t1$(y,i):tr$(ii)=t2$(y,i)
  486. 9610 next i
  487. 9620 if tl$(i)<"0000" then 9530
  488. 9630 z=14:p=28:gosub 2000
  489. 9640 for x=1 to 10
  490. 9650 for y=1 to 4
  491. 9660 x$=mid$(tl$(x),y,1):x$=x$(val(x$))
  492. 9670 print x$;:next y
  493. 9680 for y=1 to 4
  494. 9690 x$=mid$(tr$(x),y,1):x$=x$(val(x$))
  495. 9700 print x$;:next y
  496. 9710 z=z+1:gosub 2000
  497. 9720 next x:print"[146][151]";
  498. 9730 return
  499. 9790 :
  500. 10000 rem"[141] daten 
  501. 10030 [131] "2000","0055","1400","0023"
  502. 10040 [131] "4000","0135","2000","1345"
  503. 10050 [131] "3500","1124","3000","0024"
  504. 10060 [131] "1500","0023","1000","0245"
  505. 10070 [131] "2300","0145","1250","0334"
  506. 10080 [131] "3000","0015","3000","0224"
  507. 10090 [131] "5000","0124","3400","0125"
  508. 10100 [131] "5500","1334","4000","0033"
  509. 10110 [131] "5000","0123","2000","0145"
  510. 10120 [131] "2300","0144","3550","0124"
  511. 10130 [131] "5000","0022","3300","0055"
  512. 10140 [131] "4000","0113","2000","1144"
  513. 10150 [131] "4400","2235","2000","0034"
  514. 10160 [131] "4000","0123","1000","0255"
  515. 10170 [131] "3000","1245","2500","1134"
  516. 10180 [131] "1000","0024","1500","0034"
  517. 10190 [131] "4000","0355","1100","0234"
  518. 10200 [131] "2250","0134","1000","0035"
  519. 10210 [131] "2200","0014","1300","0024"
  520. 10220 [131] "4000","1355","3300","1245"
  521. 10230 [131] "5000","0012","4400","0035"
  522. 10240 [131] "2000","0345","1000","2335"
  523. 10250 [131] "5400","1122","4000","0015"
  524. 10260 [131] "5500","0023","1200","0044"
  525. 10270 [131] "3500","0224","1140","0335"
  526. 10280 :
  527. 10300 [131] "124557","122557","234557"
  528. 10310 [131] "133556","233457","155557"
  529. 10320 [131] "122357","222226","555556"
  530. 10330 [131] "225556","224457","223346"
  531. 10340 [131] "244446","123457","334457"
  532. 10350 [131] "111557","444457","334447"
  533. 10360 [131] "112346","111127","111146"
  534. 10370 [131] "133336","114446","333347"
  535. 10380 [131] "111116","222237","333556"
  536. 10390 [131] "355556","223337","112227"
  537. 10400 [131] "444446","222256","112457"
  538. 10410 [131] "445557","123457","344557"
  539. 10420 [131] "112446","222446","333336"
  540. 10430 [131] "123347","112237","123457"
  541. 10440 [131] "113347","112557","123457"
  542. 10450 [131] "111337","123456","133456"
  543. 10460 :
  544.