home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 42 / Commodore_Disc_42_19xx_-_de.d64 / mau-mau (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  10KB  |  385 lines
  1. 100 rem
  2. 110 rem mau mau
  3. 120 rem
  4. 130 rem by  s e e n - s o f t
  5. 140 rem
  6. 150 rem von daniel ostrowski
  7. 160 rem     jens   gudat
  8. 170 rem     karsten ahrens
  9. 180 rem
  10. 190 poke53281,1:poke53280,0:poke646,0
  11. 200 printchr$(147);:gosub3920
  12. 210 goto 3760
  13. 220 printchr$(147);:printspc(15)"[213][195][195][195][195][195][195][195][195][195][195][201]":printspc(15)"[221]"d$"[221]"
  14. 230 printspc(15)"[221] mau"d2$"mau [221]":printspc(15)"[221]"d$"[221]":printspc(15)"[221]"d$"[221]"
  15. 240 printspc(15)"[221]"d$"[221]":printspc(15)"[221]"d4$"by"d4$"[221]":printspc(15)"[221]"d$"[221]"
  16. 250 printspc(15)"[221]"d$"[221]":printspc(15)"[221]"d$"[221]":printspc(15)"[221]"d$"[221]"
  17. 260 printspc(15)"[221]seen"d2$"soft[221]":printspc(15)"[221]"d$"[221]":printspc(15)"[202][195][195][195][195][195][195][195][195][195][195][203]
  18. 270 [153]:[153]:[153]:[133]"wie ist dein name ";nam$
  19. 280 [139][195](nam$)[177]15[167]220
  20. 290 [134]a$(33):[134]b$(33):[134]c(33):[134]s(33):[134]k(33)
  21. 300 [134]art$(33):[134]wert$(33):[134]com(33):[134]farb$(33):[134]auge$(33)
  22. 310 sieb[178]0:hab[178]0:gut[178]0:mau[178]0:karo[178]0:herz[178]0:pik[178]0:kreuz[178]0
  23. 320 [143] ---zuweisung---
  24. 330 [129]i[178]1[164]8:a$(i)[178]"(NULL)":a$(i[170]8)[178]"(NULL)":a$(i[170]16)[178]"stopatn":a$(i[170]24)[178]"stop(NULL)":[130]
  25. 340 [129]o[178]0[164]3
  26. 350 b$(o[172]8[170]1)[178]"7":b$(o[172]8[170]2)[178]"8"
  27. 360 b$(o[172]8[170]3)[178]"9":b$(o[172]8[170]4)[178]"10"
  28. 370 b$(o[172]8[170]5)[178]"b":b$(o[172]8[170]6)[178]"d"
  29. 380 b$(o[172]8[170]7)[178]"k":b$(o[172]8[170]8)[178]"as"
  30. 390 [130]o
  31. 400 [129]o[178]1[164]8:c(o)[178]o:c(o[170]8)[178]o:c(o[170]16)[178]o:c(o[170]24)[178]o:[130]
  32. 410 wahl$[178]"+"
  33. 420 [143] ---mischen---
  34. 430 [153][199](147):[129]i[178]1[164]5:[153][199](17):[130]
  35. 440 [153][163]8)"ich mische die karten"
  36. 450 [129]i[178]1[164]32:s(i)[178]0:[130]:e[178]1
  37. 460 [139]e[178]33[167]520
  38. 470 r[178][181]([187](1)[172]32)[170]1
  39. 480 [139]s(r)[178]1[167]470
  40. 490 s(r)[178]1:k(e)[178]r
  41. 500 e[178]e[170]1:[137]460
  42. 510 [143] ---austeilen---
  43. 520 [153][199](147)
  44. 530 [129]r[178]1[164]5:[141]1430:[130]
  45. 540 [141]2210
  46. 550 [129]i[178]1[164]5
  47. 560 farb$(i)[178]a$(k(i[170]5))
  48. 570 auge$(i)[178]b$(k(i[170]5)):[130]:gut[178]5
  49. 580 [141]2390
  50. 590 hauf$[178]a$(k(11)):oben$[178]b$(k(11)):mau[178]11
  51. 600 [139] oben$[178]"7"[167]sieb[178]2
  52. 610 [141]2740:[137]2910
  53. 620 [143] --------------
  54. 630 [143]    computer
  55. 640 [143] --------------
  56. 650 [139]oben$[178]"b"[175]wahl$[178]"+"[167][141]1250
  57. 660 [139]oben$[178]"b"[167]hauf$[178]wahl$
  58. 670 [143] ---liegt-7-oben ?--------
  59. 680 merk[178]0
  60. 690 [139]sieb[178]0[167]770
  61. 700 [129]i[178]1[164]hab
  62. 710 [139]wert$(i)[178]"7"[167]merk[178]i
  63. 720 [130]
  64. 730 [139]merk[177]0[167]1610
  65. 740 [129]o[178]1[164]sieb:[141]1430:merk[178]0:[130]
  66. 750 [141]2210:sieb[178]0
  67. 760 [143] ---8-und-andere----
  68. 770 [129]i[178]1[164]hab
  69. 780 [139]wert$(i)[179][177]"8"[167]840
  70. 790 [139]hauf$[179][177]art$(i)[175]oben$[179][177]"8"[167]840
  71. 800 [139]art$(i)[178]"(NULL)"[175]karo[177]1[167]merk[178]i
  72. 810 [139]art$(i)[178]"(NULL)"[175]herz[177]1[167]merk[178]i
  73. 820 [139]art$(i)[178]"stopatn"[175]pik[177]1[167]merk[178]i
  74. 830 [139]art$(i)[178]"stop(NULL)"[175]kreuz[177]1[167]merk[178]i
  75. 840 [130]
  76. 850 [139]merk[177]0[167]1610
  77. 860 [143] ---gut-<-3---
  78. 870 [139]gut[177]2[167]950
  79. 880 [139]hab[179]3[167]950
  80. 890 [129]i[178]1[164]hab
  81. 900 [139]wert$(i)[178]"7"[175]art$(i)[178]hauf$[167]merk[178]i
  82. 910 [130]:[139]merk[177]0[167]1610
  83. 920 [129]i[178]1[164]hab:[139]wert$(i)[178]"b"[167]merk[178]i
  84. 930 [130]
  85. 940 [139]merk[177]0[167][141]1250:[137]1610
  86. 950 [139]oben$[179][177]"b"[167]1010
  87. 960 [129]i[178]1[164] hab:[139]art$(i)[178]wahl$[175]wert$(i)[179][177]"b"[167]merk[178]i
  88. 970 [130]
  89. 980 [139]merk[177]0[167]1610
  90. 990 [137]1120
  91. 1000 [143] ---welche karte---
  92. 1010 [129]i[178]1[164]hab
  93. 1020 [139]art$(i)[178]hauf$[175]wert$(i)[179][177]"b"[167]merk[178]i
  94. 1030 [130]
  95. 1040 [139]merk[178]0[167]1090
  96. 1050 zahl[178][197](oben$)[171]6
  97. 1060 [139]zahl[178]0[167]zahl[178]6
  98. 1070 [139]oben$[178]"as"[167]zahl[178]8
  99. 1080 [139]com(merk)[177][178]zahl[167]1610
  100. 1090 [129]i[178]1[164]hab:[139]oben$[178]wert$(i)[167]merk[178]i
  101. 1100 [130]
  102. 1110 [139]merk[177]0[167]1610
  103. 1120 [129]i[178]1[164]hab
  104. 1130 [139]wert$(i)[178]"b"[167]merk[178]i
  105. 1140 [130]
  106. 1150 [139]merk[177]0[167][141]1250:[137]1610
  107. 1160 [141]1430:[141]2210
  108. 1170 [139]wert$(merk)[178]"b"[167][141]1250:[137]1610
  109. 1180 [139]art$(merk)[178]hauf$[176]wert$(merk)[178]oben$[167]1610
  110. 1190 [143] ----kann--nicht----
  111. 1200 [153][199](19)[199](31)"ich kann nicht (taste x !) "d$
  112. 1210 [151]198,0:[146]198,1
  113. 1220 [153][199](19)d$d$d4$d3$
  114. 1230 [153][199](19):[153][163]37)" ":[137]2910
  115. 1240 [143] ---farbe waehlen---
  116. 1250 [139]karo[179]herz[167]1290
  117. 1260 [139]karo[179]pik[167]1290
  118. 1270 [139]karo[179]kreuz[167]1290
  119. 1280 wahl$[178]"(NULL)":[137]1410
  120. 1290 [139]herz[179]karo[167]1330
  121. 1300 [139]herz[179]pik[167]1330
  122. 1310 [139]herz[179]kreuz[167]1330
  123. 1320 wahl$[178]"(NULL)":[137]1410
  124. 1330 [139]pik[179]karo[167]1370
  125. 1340 [139]pik[179]herz[167]1370
  126. 1350 [139]pik[179]kreuz[167]1370
  127. 1360 wahl$[178]"stopatn":[137]1410
  128. 1370 [139]kreuz[179]pik[167]1410
  129. 1380 [139]kreuz[179]herz[167]1410
  130. 1390 [139]kreuz[179]karo[167]1410
  131. 1400 wahl$[178]"stop(NULL)"
  132. 1410 [142]
  133. 1420 [143] ---karte nehmen---
  134. 1430 mau[178]mau[170]1:merk[178]0
  135. 1440 [129]i[178]1[164]hab
  136. 1450 [139]merk[177]0[167]1470
  137. 1460 [139]c(k(mau))[179]com(i)[167]merk[178]i
  138. 1470 [130]
  139. 1480 [139]merk[178]0[167]merk[178]hab[170]1:[137]1510
  140. 1490 [129]i[178]hab[164]merk[169][171]1
  141. 1500 art$(i[170]1)[178]art$(i):wert$(i[170]1)[178]wert$(i):com(i[170]1)[178]com(i):[130]
  142. 1510 art$(merk)[178]a$(k(mau)):wert$(merk)[178]b$(k(mau)):com(merk)[178]c(k(mau))
  143. 1520 hab[178]hab[170]1
  144. 1530 [139]mau[178]32[167]1880
  145. 1540 [139]b$(k(mau))[178]"b"[167]1590
  146. 1550 [139]a$(k(mau))[178]"(NULL)"[167]karo[178]karo[170]1
  147. 1560 [139]a$(k(mau))[178]"(NULL)"[167]herz[178]herz[170]1
  148. 1570 [139]a$(k(mau))[178]"stopatn"[167]pik[178]pik[170]1
  149. 1580 [139]a$(k(mau))[178]"stop(NULL)"[167]kreuz[178]kreuz[170]1
  150. 1590 [142]
  151. 1600 [143] ---------legen----------
  152. 1610 [153][199](19)[199](31)"computer"d2$"(taste x !) "d$d5$
  153. 1620 hauf$[178]art$(merk):oben$[178]wert$(merk)
  154. 1630 [139]oben$[178]"7"[167]sieb[178]sieb[170]2
  155. 1640 [139]hauf$[178]"(NULL)"[175]oben$[179][177]"b"[167]karo[178]karo[171]1
  156. 1650 [139]hauf$[178]"(NULL)"[175]oben$[179][177]"b"[167]herz[178]herz[171]1
  157. 1660 [139]hauf$[178]"stopatn"[175]oben$[179][177]"b"[167]pik[178]pik[171]1
  158. 1670 [139]hauf$[178]"stop(NULL)"[175]oben$[179][177]"b"[167]kreuz[178]kreuz[171]1
  159. 1680 [139]merk[178]hab[167]1710
  160. 1690 [129]i[178]merk[170]1[164]hab:art$(i[171]1)[178]art$(i)
  161. 1700 wert$(i[171]1)[178]wert$(i):com(i[171]1)[178]com(i):[130]
  162. 1710 hab[178]hab[171]1
  163. 1720 [151]198,0:[146]198,1
  164. 1730 [141]2210:[141]2740
  165. 1740 [139]hab[178]0[167]1790
  166. 1750 [153][199](19):[153][163]37)" "
  167. 1760 [139]oben$[178]"8"[167]650
  168. 1770 [139]oben$[178]"b"[167][153][199](19):[153][163]37)wahl$
  169. 1780 [137]2910
  170. 1790 [143] ---augen--insgesamt----
  171. 1800 [139]sieb[178]0[167]1930
  172. 1810 [139]gut[178]0[167]1850
  173. 1820 [129]i[178]1[164]sieb:[139]mau[178]33[167]1840
  174. 1830 [141]3600
  175. 1840 [130]:[141]2390:[137]1930
  176. 1850 [129]t[178]1[164]sieb:[139]mau[178]33[167]1870
  177. 1860 [141]1430
  178. 1870 [130]:[141]2210:[137]1930
  179. 1880 [153][199](147):[129]i[178]1[164]5:[153][199](17):[130]
  180. 1890 [153][163]8)"keine karten mehr da"
  181. 1900 [153][166]11)"druecke +"
  182. 1910 [161] a$:[139]a$[178]"+"[167]1790
  183. 1920 [137]1910
  184. 1930 [139]gut[178]0[167]2010
  185. 1940 [129]i[178]1[164]gut:ni[178][197](auge$(i))
  186. 1950 [139]auge$(i)[178]"d"[176]auge$(i)[178]"k"[167]ni[178]10
  187. 1960 [139]auge$(i)[178]"as"[167]ni[178]11
  188. 1970 [139]auge$(i)[178]"b"[167]ni[178]20
  189. 1980 [139]oben$[178]"b"[167]ni[178]2[172]ni
  190. 1990 mi[178]mi[170]ni:[130]
  191. 2000 [139]hab[178]0[167]2070
  192. 2010 [129]i[178]1[164]hab:nc[178][197](wert$(i))
  193. 2020 [139]wert$(i)[178]"d"[176]wert$(i)[178]"k"[167]nc[178]10
  194. 2030 [139]wert$(i)[178]"as"[167]nc[178]11
  195. 2040 [139]wert$(i)[178]"b"[167]nc[178]20
  196. 2050 [139]oben$[178]"b"[167]nc[178]2[172]nc
  197. 2060 mc[178]mc[170]nc:[130]
  198. 2070 [153][199](147):[153]nam$;:[153][163]15)"(NULL)";:[153]"computer"
  199. 2080 [153]"lenlenlenlenlenlenlenlenlenlenlenlenlenlenlen(NULL)lenlenlenlenlenlenlenlenlenlenlenlenlenlenlen"
  200. 2090 [153]mi;:[153][163]15)"(NULL)"mc
  201. 2100 [129]i[178]1[164]5:[153][199](17):[130]:[153]"druecke space"
  202. 2110 [161]a$:[139]a$[178]" "[167][138]
  203. 2120 [137]2110
  204. 2130 [153][199](147)
  205. 2140 [137]310
  206. 2150 [129]i[178]1[164]3:[153][199](17):[130]
  207. 2160 [153]"noch ein spiel ?(j/n)"
  208. 2170 [161]x$:[139]x$[178]"j"[167][156]:[138]
  209. 2180 [139]x$[178]"n"[167][153][199](147):[128]
  210. 2190 [137]1350
  211. 2200 [143]---karten--zeichnen--(comp.)---
  212. 2210 z[178]hab:[139]z[177]5[167]x[178]z[171]5:z[178]5
  213. 2220 [139]z[178]0[167]2270
  214. 2230 [153][199](19);:[153][199](144)
  215. 2240 [129]r[178]1[164]z:[153]"(NULL)lenlenlenlenright$";:[130]:[153]
  216. 2250 [129]r[178]1[164]5:[129]k[178]1[164]z:[153]"(NULL)sinsinsinsinstop(NULL)";:[130]k:[153]:[130]r
  217. 2260 [129]r[178]1[164]z:[153]"mid$lenlenlenlen(NULL)";:[130]:[153]
  218. 2270 [139]z[179]5[167]:[153][199](19):[129]i[178]1[164]7:[153][163]z[172]6)d6$:[130]:[137]2370
  219. 2280 [139]x[178]0[167][153][199](19):[129]r[178]1[164]7:[153][199](17);:[130]:[153]d6$
  220. 2290 [139]x[178]0[167][153]d6$:[137]2370
  221. 2300 [139]x[179]5[167]2340
  222. 2310 [129]r[178]1[164][181](x[173]5):[129]o[178]1[164]5:[153]"(NULL)sinsinsinsinstop(NULL)";:[130]:[153]
  223. 2320 [129]o[178]1[164]5:[153]"mid$lenlenlenlen(NULL)";:[130]:[153]:[130]r
  224. 2330 [139]x[173]5[178][181](x[173]5)[167][153]d6$:[153]d6$:[142]
  225. 2340 x[178]x[171]5[172][181](x[173]5)
  226. 2350 [129]r[178]1[164]x:[153]"(NULL)sinsinsinsinstop(NULL)";:[130]:[153]d6$
  227. 2360 [129]r[178]1[164]x:[153]"mid$lenlenlenlen(NULL)";:[130]:[153]d6$
  228. 2370 x[178]0:[142]
  229. 2380 [143]---meine--karten--zeichnen----
  230. 2390 [153][199](19):[129]r[178]1[164]17:[153][199](17);:[130]
  231. 2400 w[178]gut:q[178]0:[139]w[177]5[167]q[178]w[171]5:w[178]5
  232. 2410 [139]w[178]0[167]2550
  233. 2420 [129]i[178]1[164]w:[153]"stop(NULL)lenlenlenlenright$";:[130]:[153]
  234. 2430 o[178]1:[129]r[178]4[164](w[172]6[171]2)[169]6
  235. 2440 [153]"(NULL)"[163]r)farb$(o)"cmdcmdcmdcmd"auge$(o)" ";
  236. 2450 [153][163]r[170]1)"stop(NULL)";:o[178]o[170]1:[130]:[153]
  237. 2460 [129]r[178]1[164]3:[129]k[178]1[164]w:[153]"(NULL)"d4$"(NULL)";:[130]k:[153]:[130]
  238. 2470 o[178]1:[129]r[178]4[164](w[172]6[171]2)[169]6
  239. 2480 [153]"(NULL)";:[153]farb$(o);
  240. 2490 [139]auge$(o)[178]"10"[176]auge$(o)[178]"as"[167][153][163]r[171]1)auge$(o);:[137]2510
  241. 2500 [153][163]r[171]1)" "auge$(o);
  242. 2510 [153]"stop(NULL)";
  243. 2520 o[178]o[170]1:[130]:[153]
  244. 2530 [129]i[178]1[164]w:[153]"mid$lenlenlenlen(NULL)";:[130]
  245. 2540 [139]w[178]5[167]2580
  246. 2550 [153][199](19):[129]r[178]1[164]17:[153][199](17);:[130]
  247. 2560 [129]i[178]1[164]6:[153][163]w[172]6)d6$:[130]
  248. 2570 [153][163]w[172]6)d6$[199](19):[142]
  249. 2580 [139]q[177]0[167]2610
  250. 2590 [153][199](19):[129]r[178]1[164]15:[153][199](17);:[130]:[153]d6$
  251. 2600 [153]d6$:[142]
  252. 2610 o[178]6:[153][199](19):[129]r[178]1[164]15:[153][199](17);:[130]
  253. 2620 [139]q[179]5[167]2680
  254. 2630 [129]i[178]1[164][181](q[173]5):[129]r[178]1[164]5:[153]"stop(NULL)lenlenlenlenright$";:[130]r:[153]
  255. 2640 [129]r[178]4[164]28[169]6:[153]"(NULL)";:[153][163]r)farb$(o);
  256. 2650 [153]"cmdcmdcmdcmd"auge$(o)" ";:[153][163]r[170]1)"stop(NULL)";
  257. 2660 o[178]o[170]1:[130]r:[153]"onononon":[130]i
  258. 2670 [139]q[173]5[178][181](q[173]5)[167][153]d6$:[153]d6$:[142]
  259. 2680 q[178]q[171]5[172][181](q[173]5)
  260. 2690 [129]r[178]1[164]q:[153]"stop(NULL)lenlenlenlenright$";:[130]:[153]d6$
  261. 2700 [129]r[178]4[164](q[172]6)[171]2[169]6:[153]"(NULL)";:[153][163]r)farb$(o);
  262. 2710 [153]"cmdcmdcmdcmd"auge$(o)" "[163]r[170]1)"stop(NULL)";:o[178]o[170]1:[130]r:[153]d6$
  263. 2720 [142]
  264. 2730 [143] ---stapel---zeichen-----
  265. 2740 [153][199](19):[129]r[178]1[164]4:[153][199](17);:[130]
  266. 2750 [153][199](144):[153][163]33)"(NULL)lenlenlenlenright$"
  267. 2760 [153][163]33)"(NULL)"[163]37)hauf$;
  268. 2770 [153]"cmdcmdcmdcmd"oben$" "[163]38)"stop(NULL)"
  269. 2780 [129]r[178]1[164]3:[153][163]33)"(NULL)"d4$"(NULL)":[130]
  270. 2790 [153][163]33)"(NULL)";:[153]hauf$;
  271. 2800 [139]oben$[178]"10"[176]oben$[178]"as"[167][153][163]36)oben$;:[137]2820
  272. 2810 [153][163]36)" "oben$;
  273. 2820 [153]"stop(NULL)"
  274. 2830 [153][163]33)"mid$lenlenlenlen(NULL)"
  275. 2840 [153]:[153][163]33)"(NULL)lenlenlenlenright$"
  276. 2850 [129]r[178]1[164]5:[153][163]33)"(NULL)sinsinsinsinstop(NULL)":[130]
  277. 2860 [153][163]33)"mid$lenlenlenlen(NULL)"
  278. 2870 [142]
  279. 2880 [143]--------------------------
  280. 2890 [143]    ich  bin  dran
  281. 2900 [143]--------------------------
  282. 2910 nod[178]0:qs[178]0
  283. 2920 [139]oben$[178]"b"[175]wahl$[178]"+"[167]3100
  284. 2930 [139]oben$[178]"b"[167]hauf$[178]wahl$
  285. 2940 [139]sieb[178]0[167]3010
  286. 2950 [143] ---hab--ich--7---
  287. 2960 [129]i[178]1[164]gut:[139]auge$(i)[178]"7"[167]nod[178]1
  288. 2970 [130]
  289. 2980 [139]nod[178]1[167]3100
  290. 2990 [129]r[178]1[164]sieb:[141]3600:[130]:sieb[178]0:[141]2390
  291. 3000 [143] ---kann--ich--legen---
  292. 3010 [129]i[178]1[164]gut:[139]farb$(i)[178]hauf$[167]nod[178]i
  293. 3020 [139]auge$(i)[178]oben$[167]nod[178]i
  294. 3030 [139]auge$(i)[178]"b"[167]nod[178]i
  295. 3040 [130]
  296. 3050 [139]nod[177]0[167]nod[178]0:[137]3100
  297. 3060 [141]3600:[141]2390
  298. 3070 [139]farb$(gut)[178]hauf$[176]auge$(gut)[178]oben$[176]auge$(gut)[178]"b"[167]3100
  299. 3080 [137]650
  300. 3090 [143]----karte--eingeben-----
  301. 3100 [139]qs[178]1[167][153]"(weg=0;(NULL)=1;(NULL)=2;stopatn=3;stop(NULL)=4)"d5$d4$:[137]3120
  302. 3110 [153]"((NULL)=1;(NULL)=2;stopatn=3;stop(NULL)=4;nimm=5)"d$d5$
  303. 3120 a$[178]"":[161]a$:[139]a$[178]""[167]3120
  304. 3130 [139]a$[178]"1"[167]ok$[178]"(NULL)":[137]3200
  305. 3140 [139]a$[178]"2"[167]ok$[178]"(NULL)":[137]3200
  306. 3150 [139]a$[178]"3"[167]ok$[178]"stopatn":[137]3200
  307. 3160 [139]a$[178]"4"[167]ok$[178]"stop(NULL)":[137]3200
  308. 3170 [139]qs[178]0[175]a$[178]"5"[167]3520
  309. 3180 [139]qs[178]1[175]a$[178]"0"[167]3570
  310. 3190 [137]3120
  311. 3200 [153]"(7=7;8=8;9=9;10=0;b=b;d=d;k=k;as=a)"
  312. 3210 [161]b$:[139]b$[178]""[167]3210
  313. 3220 ko$[178]""
  314. 3230 [139]b$[178]"7"[167]ko$[178]"7"
  315. 3240 [139]b$[178]"8"[167]ko$[178]"8"
  316. 3250 [139]b$[178]"9"[167]ko$[178]"9"
  317. 3260 [139]b$[178]"0"[167]ko$[178]"10"
  318. 3270 [139]b$[178]"b"[167]ko$[178]"b"
  319. 3280 [139]b$[178]"d"[167]ko$[178]"d"
  320. 3290 [139]b$[178]"k"[167]ko$[178]"k"
  321. 3300 [139]b$[178]"a"[167]ko$[178]"as"
  322. 3310 [139] ko$[178]"" [167] 3210
  323. 3320 nod[178]0
  324. 3330 [129]i[178]1[164]gut:[139]auge$(i)[178]ko$[175]farb$(i)[178]ok$[167]nod[178]i
  325. 3340 [130]
  326. 3350 [139]nod[178]0[167]3100
  327. 3360 [139]oben$[178]"b"[175]wahl$[178]"+"[167]3390
  328. 3370 [139]auge$(nod)[179][177]oben$[175]auge$(nod)[179][177]"b"[175]farb$(nod)[179][177]hauf$[167]3100
  329. 3380 [139]sieb[177]0[175]auge$(nod)[179][177]"7"[167][129]i[178]1[164]sieb:[141]3600:[130]:sieb[178]0
  330. 3390 [141]3730
  331. 3400 hauf$[178]farb$(nod):oben$[178]auge$(nod)
  332. 3410 [129]i[178]nod[170]1[164]gut
  333. 3420 farb$(i[171]1)[178]farb$(i):auge$(i[171]1)[178]auge$(i)
  334. 3430 [130]:gut[178]gut[171]1
  335. 3440 [153][199](19)d$d$d$d4$d3$
  336. 3450 [141]2390:[141]2740
  337. 3460 [139]gut[178]0[167]1790
  338. 3470 [153][199](19):[153][163]37)" "
  339. 3480 [139]oben$[178]"8"[167]2910
  340. 3490 [139]oben$[178]"b"[167][153][199](19):[153][163]37)wahl$
  341. 3500 [137]650
  342. 3510 [143] ---nimm--gedrueckt----
  343. 3520 [139]qs[178]1[167]3100
  344. 3530 [139]sieb[178]0[167]3560
  345. 3540 [129]i[178]1[164]sieb:[141]3600:[130]:[141]2390
  346. 3550 qs[178]1:sieb[178]0:[137]3100
  347. 3560 [141]3600:[141]2390:qs[178]1:[137]3100
  348. 3570 [139]sieb[178]0[167]650
  349. 3580 [129]i[178]1[164]sieb:[141]3600:[130]:[141]2390:sieb[178]0:[137]650
  350. 3590 [143] ---neue karte---
  351. 3600 mau[178]mau[170]1:gut[178]gut[170]1
  352. 3610 farb$(gut)[178]a$(k(mau)):auge$(gut)[178]b$(k(mau))
  353. 3620 [139]mau[178]32[167]1880
  354. 3630 [142]
  355. 3640 [143] ---bauer---
  356. 3650 [153]"welche farbe?((NULL)=1;(NULL)=2;stopatn=3;stop(NULL)=4)"d4$d4$
  357. 3660 [161]c$:[139]c$[178]""[167]3660
  358. 3670 [139][197](c$)[179]1[176][197](c$)[177]4[167]3660
  359. 3680 [139]c$[178]"1"[167]wahl$[178]"(NULL)"
  360. 3690 [139]c$[178]"2"[167]wahl$[178]"(NULL)"
  361. 3700 [139]c$[178]"3"[167]wahl$[178]"stopatn"
  362. 3710 [139]c$[178]"4"[167]wahl$[178]"stop(NULL)"
  363. 3720 [142]
  364. 3730 [139]auge$(nod)[178]"7"[167]sieb[178]sieb[170]2:[142]
  365. 3740 [139]auge$(nod)[178]"b"[175]gut[179][177]1[167][141]3650
  366. 3750 [142]
  367. 3760 [153]d4$"(NULL)lenlenlenlenlen(NULL)lenlenlenlenlen(NULL)lenlenlenlenlen(NULL)lenlenlenlenlen(NULL)lenlenlenlenlenright$"
  368. 3770 [153]d4$"peek7"d2$"(NULL) peek7"d2$"(NULL) peek7"d2$"atn peek7"d2$"(NULL) peekb (NULL)"d2$"peek"
  369. 3780 [153]d4$"peek(NULL) (NULL) (NULL)peek(NULL) (NULL) (NULL)peekatn atn atnpeek(NULL) (NULL) (NULL)peek(NULL) (NULL) (NULL)peek"
  370. 3790 [153]d4$"peek (NULL) (NULL) peek (NULL) (NULL) peek atn atn peek (NULL) (NULL) peek (NULL) (NULL) peek"
  371. 3800 [153]d4$"peek(NULL) (NULL) (NULL)peek(NULL) (NULL) (NULL)peekatn atn atnpeek(NULL) (NULL) (NULL)peek(NULL) (NULL) (NULL)peek"
  372. 3810 [153]d4$"peek (NULL) (NULL) peek (NULL) (NULL) peek atn atn peek (NULL) (NULL) peek (NULL) (NULL) peek"
  373. 3820 [153]d4$"peek(NULL) (NULL) (NULL)peek(NULL) (NULL) (NULL)peekatn atn atnpeek(NULL) (NULL) (NULL)peek(NULL) (NULL) (NULL)peek"
  374. 3830 [153]d4$"peek (NULL)"d2$"7peek (NULL)"d2$"7peek atn"d2$"7peek (NULL)"d2$"7peek (NULL)"d2$"bpeek"
  375. 3840 [153]d4$"mid$lenlenlenlenlenmid$lenlenlenlenlenmid$lenlenlenlenlenmid$lenlenlenlenlenmid$lenlenlenlenlen(NULL)"
  376. 3850 [153]:[153]
  377. 3860 [153]d4$""d4$""d2$"m a u"d5$"lenlen"d5$"m a u"d2$
  378. 3870 [153]:[153]"stop"d4$d3$"b y"d3$"s e e n"d2$"lenlen"d2$"s o f t"d4$d4$
  379. 3880 [153]:[153]:[153][166]9)"druecke nextspacewaitinput#stop to start"
  380. 3890 [161]a$:[139]a$[178]" "[167]220
  381. 3900 [137]3890
  382. 3910 [128]
  383. 3920 d$[178][199](32):d2$[178]d$[170]d$:d3$[178]d2$[170]d$
  384. 3930 d4$[178]d3$[170]d$:d5$[178]d4$[170]d$:d6$[178]d5$[170]d$:d$[178]d5$[170]d5$:[142]
  385.