home *** CD-ROM | disk | FTP | other *** search
/ Profi Club / Profi_Club_5_1992_-_de.d64 / stradenk (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  7KB  |  260 lines
  1. 10 rem stradenk================c64
  2. 20 rem (p) commodore disc
  3. 30 rem ===========================
  4. 40 rem (c) by e.-w. wolters   v3.5
  5. 50 rem (v) a.m.               v2.0
  6. 60 rem
  7. 70 rem basic v2.0
  8. 80 rem c64 (sysmc erforderlich)
  9. 90 rem ===========================
  10. 91 sys57812"sysmc",8,0:poke780,0
  11. 92 poke781,254:poke782,191:sys65493
  12. 93 poke53280,13:poke53281,13:poke646,6
  13. 100 gosub 2380
  14. 110 a$="[194]"+z5$:aa$=a$
  15. 120 fori=1to9:aa$=aa$+"[194] ":next
  16. 130 aa$=aa$+a$+"[194]"
  17. 140 bb$="[194][195]"+za$+"[195]":a$=zi$+"[195][194]"
  18. 150 fori=1to8:bb$=bb$+ym$+"[195]":next:bb$=bb$+a$
  19. 160 printcl$;:printchr$(14)
  20. 180 form=0to39
  21. 190 poke1024+m,102:poke1984+m,102
  22. 200 fors=1to6:nexts
  23. 210 nextm
  24. 220 form=1to23
  25. 230 l=l+40
  26. 240 poke1024+l,102:poke1063+l,102
  27. 250 nextm
  28. 260 sysat,13,3:print"[211]"s2$"[212] [210] [193]"s2$"[196]"s2$"[197]"s2$"[206] [203]";
  29. 270 sysat,13,4:printz7$z7$z7$z7$z7$z7$z7$z7$z7$z7$z7$z7$z7$z7$z7$;
  30. 280 sysat,5,6:print"[211]trategiespiel fuer 2 [208]ersonen"
  31. 290 printleft$(qr$,11)c4$c4$bl$"copyr.by [197].[215].[215]olters"bk$
  32. 300 printc3$left$(qd$,6)"[199]espielt wird mit'[202]oy' u.'[195]ursortast.'
  33. 310 [153]c4$c4$c3$c3$"(NULL)ur (NULL)pielanleitung '(NULL)pace' druecken!"
  34. 330 [161]a$:[139]a$[179][177][199](32)[167]330
  35. 340 [153]cl$[200](qr$,6)"(NULL)"s2$"(NULL)"s2$"right$"s2$"val (NULL)"s2$;
  36. 350 [153]"atn"s2$"(NULL)"s2$"(NULL)"s2$"val"s2$"right$"s2$"(NULL)"s2$"(NULL)"s2$"(NULL)"s2$"chr$ "
  37. 360 [153]c4$c3$"(NULL)etzen (NULL)ie abwechselnd ein (NULL)eichen in
  38. 370 printc3$"das [211]pielfeld. [202]edes [218]eichen ergibt
  39. 380 [153]c3$"einen (NULL)(NULL)(NULL)(NULL)(NULL). versuchen (NULL)ie moeglichst
  40. 390 printc3$"3, 6, o.9 [218]eichen nebeneinander oder
  41. 400 [153]c3$"untereinander zu setzen und zu verhin-
  42. 410 printc3$"dern, dass [201]hrem [199]egner dieses gelingt
  43. 420 [153]c3$"(NULL)eichen setzen m.'asceuerkn.' bzw.'(NULL)pace'"
  44. 430 [153]c3$c4$"3  (NULL)eichen neben.- oder untereinander
  45. 440 printleft$(qr$,4)c4$"ergibt  1  [218]eichen zusaetzlich!
  46. 450 [153]c3$c4$c4$"6  (NULL)eichen neben.- oder untereinander
  47. 460 printleft$(qr$,4)c4$"ergibt  2  [218]eichen zusaetzlich!
  48. 470 [153]c3$c4$c4$"9  (NULL)eichen neben.- oder untereinander
  49. 480 printleft$(qr$,4)c4$"ergibt  3  [218]eichen zusaetzlich!
  50. 490 [158]at,9,24:[153]rn$[170]" * (NULL)eiter mit '(NULL)pace' * "[170]rf$;
  51. 510 [161]a$:[139]a$[179][177][199](32)[167]510
  52. 520 [141]2380:[153]cl$;
  53. 530 r1$[178][199](18)
  54. 540 sp[178]1163:ze[178]1533
  55. 550 s1[178]18:z1[178]12
  56. 560 [134] p1(60):[134] p2(60):[134] sn(11)
  57. 570 [151]53280,13:[151]53281,13
  58. 580 [153][199](142)
  59. 590 [153]c4$[200](qr$,5)"namen eingeben dann 'return'"
  60. 600 zm[178]10
  61. 610 [129] x[178]1 [164] 2:zm[178]zm[170]3
  62. 620 [161] a$:l[178][195](na$)
  63. 630 [139] a$[178][199](20)[175] l[177]0 [167] na$[178][200](na$,l[171]1):[137] 670
  64. 640 [139]a$[177]"@"[175]a$[179]"["[167]na$[178]na$[170]a$
  65. 650 [139] l[178]10 [167] a$[178][199](20):[137] 630
  66. 660 [158]at,2,zm[171]1:[153]"name spieler "x":"
  67. 670 [158]at,20,zm:[153]c2$na$rn$[199](95)rf$" "
  68. 680 [139] a$[179][177][199](13)[167] 620
  69. 690 na$(x)[178]na$:na$[178]""
  70. 700 [130] x
  71. 710 :
  72. 720 w[178]0:p1[178]0:p2[178]0:pa[178]pa[170]p1(y):pb[178]pb[170]p2(y)
  73. 730 [153]c2$cl$
  74. 740 [158]at,8,3:[153]bl$"(NULL)lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenright$"
  75. 750 [153][163]8)"peek";
  76. 760 [129]i[178]1[164]11:[153]z5$"peek";:[130]:[153]
  77. 770 [153][163]8)"peeklen(NULL)len";
  78. 780 [129]i[178]1[164]8:[153]zh$"len";:[130]:[153]"right$lenpeek"
  79. 790 [129]i[178]1[164]8:[153][163]8)aa$
  80. 800 [153][163]8)bb$:[130]
  81. 810 [153][163]8)aa$
  82. 820 [153][163]8)"peeklenmid$len";
  83. 830 [129]i[178]1[164]8:[153]zg$"len";:[130]:[153]"(NULL)lenpeek"
  84. 840 [153][163]8)"peek";
  85. 850 [129]i[178]1[164]11:[153]z5$"peek";:[130]:[153]
  86. 860 [153][163]8)"mid$lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen(NULL)"bk$
  87. 870 [143] --------------------------
  88. 880 [143]         titel
  89. 890 [143] --------------------------
  90. 900 [158]at,0,0:[153]re$rn$" "[200](na$(1)[170]"         ",9)" "rf$bk$
  91. 910 [158]at,13,0:[153]gr$"ewwv programm"bk$;
  92. 920 [158]at,27,0:[153]" "oe$rn$" "[200](na$(2)[170]"         ",9)" "rf$bk$
  93. 930 y[178]y[170]1:sn[178]sn[170]1:sn(y)[178]sn
  94. 940 [158]at,0,5:[153]"sp./pkt"
  95. 950 [158]at,32,5:[153]"sp./pkt"
  96. 960 :
  97. 970 zp[178]6
  98. 980 [139]sn[177]10[167] 2270
  99. 990 [129] p[178]1[164]10
  100. 1000 zp[178]zp[170]1
  101. 1010 [158]at,0,zp:[153]re$rn$[201]("   "[170][196](sn(p)),3)rf$;
  102. 1020 [153]" "re$rn$[201]("   "[170][196](p1(p)),3)rf$;
  103. 1030 [158]at,32,zp:[153]oe$rn$[201]("   "[170][196](sn(p)),3)rf$;
  104. 1040 [153]" "oe$rn$[201]("   "[170][196](p2(p)),3)rf$bk$
  105. 1050 [158]at,0,19:[153]"ges-pkt";:[158]at,32,19:[153]"ges-pkt";
  106. 1060 [158]at,0,21:[153]re$rn$[201]("      "[170][196](pa),6)b2$rf$
  107. 1070 [158]at,32,21:[153]oe$rn$[201]("      "[170][196](pb),6)b2$rf$
  108. 1080 [130] p
  109. 1090 z[178][181]([187](1)[172]2)[170]1
  110. 1100 [139]z[178]1[167] zs[178]83:[137]1160
  111. 1110 [139]z[178]2[167] zs[178]88:[137]1440
  112. 1120 [139]zs[178]83[167]1160
  113. 1121 [137]1440
  114. 1130 [143] -------------------------
  115. 1140 [143]    feld waehlen mit joy
  116. 1150 [143] -------------------------
  117. 1160 zs[178]83:[151]1147,zs:[151]55419,180:[151]1179,32
  118. 1170 [161]a$:jo[178][194](145)
  119. 1175 [139]jo[178]254[167]ze[178]ze[171]80:z1[178]z1[171]2
  120. 1180 [139]jo[178]253[167]ze[178]ze[170]80:z1[178]z1[170]2
  121. 1190 [139]jo[178]247[167]sp[178]sp[170]2:s1[178]s1[170]2
  122. 1200 [139]jo[178]251[167]sp[178]sp[171]2:s1[178]s1[171]2
  123. 1210 [139]jo[178]239[167] 1300
  124. 1220 [139]ze[179]1213[167]ze[178]1213:z1[178]4
  125. 1230 [139]ze[177]1853[167]ze[178]1853:z1[178]20
  126. 1240 [139]sp[179]1155[167]sp[178]1155:s1[178]10
  127. 1250 [139]sp[177]1171[167]sp[178]1171:s1[178]26
  128. 1260 [158]at,s1[171]2,z1:[153]bl$[170]"peek";:[158]at,s1,z1[171]2:[153]"peek"[170]c3$[170]"peek";
  129. 1270 [158]at,s1,z1:[153]bk$[170]"("[170]c3$[170]")";
  130. 1280 [158]at,s1[170]4,z1:[153]bl$[170]"peek";:[158]at,s1,z1[170]2:[153]"peek"[170]c3$[170]"peek"[170]bk$;
  131. 1290 [137]1170
  132. 1300 sz[178](ze[171]29)[170](sp[171]1144)
  133. 1310 [139][194](sz)[178]83[176][194](sz)[178]88[167]1260
  134. 1320 [151]sz,zs:p1[178]p1[170]1:p1(y)[178]p1
  135. 1330 zq[178]6
  136. 1340 [129] q[178]1[164]10
  137. 1350 zq[178]zq[170]1
  138. 1360 [158]at,0,zq:[153]re$rn$[201]("   "[170][196](sn(q)),3)rf$;
  139. 1370 [153]" "re$rn$[201]("   "[170][196](p1(q)),3)rf$
  140. 1380 [158]at,32,zq:[153]oe$rn$[201]("   "[170][196](sn(q)),3)rf$;
  141. 1390 [153]" "oe$rn$[201]("   "[170][196](p2(q)),3)rf$bk$
  142. 1400 [130] q:[137] 1700
  143. 1410 [143] -------------------------
  144. 1420 [143]  feld waehlen mit tasten
  145. 1430 [143] -------------------------
  146. 1440 zs[178]88:[151]1179,zs:[151]55451,180:[151]1147,32
  147. 1450 [161]a$:[139]a$[178][199](145)[167]ze[178]ze[171]80:z1[178]z1[171]2
  148. 1460 [139]a$[178][199](17)[167]ze[178]ze[170]80:z1[178]z1[170]2
  149. 1470 [139]a$[178][199](29)[167]sp[178]sp[170]2:s1[178]s1[170]2
  150. 1480 [139]a$[178][199](157)[167]sp[178]sp[171]2:s1[178]s1[171]2
  151. 1490 [139]a$[178][199](32)[167] 1580
  152. 1500 [139]ze[179]1213[167]ze[178]1213:z1[178]4
  153. 1510 [139]ze[177]1853[167]ze[178]1853:z1[178]20
  154. 1520 [139]sp[179]1155[167]sp[178]1155:s1[178]10
  155. 1530 [139]sp[177]1171[167]sp[178]1171:s1[178]26
  156. 1540 [158]at,s1[171]2,z1:[153]bl$[170]"peek";:[158]at,s1,z1[171]2:[153]"peek"[170]c3$[170]"peek";
  157. 1550 [158]at,s1,z1:[153]bk$[170]"("[170]c3$[170]")";
  158. 1560 [158]at,s1[170]4,z1:[153]bl$[170]"peek";:[158]at,s1,z1[170]2:[153]"peek"[170]c3$[170]"peek";
  159. 1570 [137]1450
  160. 1580 sz[178](ze[171]29)[170](sp[171]1144):
  161. 1590 [139][194](sz)[178]83[176][194](sz)[178]88[167]1540
  162. 1600 [151]sz,zs:p2[178]p2[170]1:p2(y)[178]p2
  163. 1610 zp[178]6
  164. 1620 [129] z[178]1[164]10
  165. 1630 zp[178]zp[170]1
  166. 1640 [158]at,0,zp:[153]re$rn$[201]("   "[170][196](sn(z)),3)rf$;
  167. 1650 [153]" "re$rn$[201]("   "[170][196](p1(z)),3)rf$
  168. 1660 [158]at,32,zp:[153]oe$rn$[201]("   "[170][196](sn(z)),3)rf$;
  169. 1670 [153]" "oe$rn$[201]("   "[170][196](p2(z)),3)rf$bk$
  170. 1680 [130] z
  171. 1690 [143] -------------------------
  172. 1700 [143]      pruef. senkr.
  173. 1710 [143] -------------------------
  174. 1720 a[178]0:b[178]0:h[178]0:w[178]0
  175. 1730 wx[178]wx[171]1:[139]wx[179]0[167]wx[178]0
  176. 1740 [129] x1[178]1[164]9
  177. 1750 a[178]a[170]1:b[178]b[170]1:[139][194](sp[170]h[170]40)[179][177]zs[167]a[178]0:b[178]b[171]1
  178. 1760 h[178]h[170]80
  179. 1770 [139]a[178]9[167]w[178]3
  180. 1780 [130]x1:wx[178]wx[170]w:w[178]0
  181. 1790 [139]b[179]3[167] 1970
  182. 1800 [139]b[179]6[167]1870
  183. 1810 a[178]0:h[178]0:[129] x2[178]1[164]13
  184. 1820 a[178]a[170]1:[139][194](sz[170]h[171]480)[179][177]zs[167]a[178]0
  185. 1830 h[178]h[170]80
  186. 1840 [139]a[178]6[167] w[178]2
  187. 1850 [139]a[177]6[167] w[178]0
  188. 1860 [130]x2:wx[178]wx[170]w:w[178]0
  189. 1870 a[178]0:h[178]0
  190. 1880 [129] x3[178]1[164]7
  191. 1890 a[178]a[170]1:[139][194](sz[170]h[171]240)[179][177]zs[167]a[178]0
  192. 1900 h[178]h[170]80
  193. 1910 [139]a[178]3[167]w[178]1
  194. 1920 [139]a[177]3[167] w[178]0
  195. 1930 [130]x3:wx[178]wx[170]w:w[178]0
  196. 1940 [143] -------------------------
  197. 1950 [143]      pruef. waager.
  198. 1960 [143] -------------------------
  199. 1970 h[178]0:a[178]0:b[178]0
  200. 1980 [129] x4[178]1[164]18
  201. 1990 a[178]a[170]1:b[178]b[170]1:[139][194](sz[170]h[171]18)[179][177]zs[167]a[178]0:b[178]b[171]1
  202. 2000 h[178]h[170]2
  203. 2010 [139]a[178]9[167]w[178]3
  204. 2020 [130]x4:wx[178]wx[170]w:w[178]0
  205. 2030 [139]b[179]3[167] 2180
  206. 2040 [139]b[179]6[167]2110
  207. 2050 a[178]0:h[178]0:[129] x5[178]1[164]13
  208. 2060 a[178]a[170]1:[139][194](sz[170]h[171]12)[179][177]zs[167]a[178]0
  209. 2070 h[178]h[170]2
  210. 2080 [139]a[178]6[167]w[178]2
  211. 2090 [139]a[177]6[167] w[178]0
  212. 2100 [130]x5:wx[178]wx[170]w:w[178]0
  213. 2110 a[178]0:h[178]0
  214. 2120 [129] x6[178]1[164]7
  215. 2130 a[178]a[170]1:[139][194](sz[170]h[171]6)[179][177]zs[167]a[178]0
  216. 2140 h[178]h[170]2
  217. 2150 [139]a[178]3[167]w[178]1
  218. 2160 [139]a[177]3[167] w[178]0
  219. 2170 [130]x6:wx[178]wx[170]w:w[178]0
  220. 2180 w[178]0:a[178]0:h[178]0
  221. 2190 [139]zs[178]83[167]za$[178][196](wx):[137]2200
  222. 2191 zb$[178][196](wx)
  223. 2200 [139]wx[178]0[167]za$[178]"":zb$[178]""
  224. 2210 [158]at,0,3:[153]b3$;:[158]at,32,3:[153]b2$;
  225. 2220 [158]at,0,3:[153]za$;:[158]at,31,3:[153]zb$
  226. 2230 [139]p1[170]p2[178]81[167] 2300
  227. 2240 [139]wx[177]0[167] 1120
  228. 2250 [139]zs[178]83[167]1440
  229. 2251 [137]1160
  230. 2270 [158]at,7,24:[153]"noch eine runde? "[170]fl$[170]rn$[170]"y"[170]rf$;
  231. 2280 [153]fo$[170]"es / "[170]fl$[170]rn$[170]"n"[170]rf$[170]fo$[170]"o":[137]2320
  232. 2300 [158]at,7,24:[153]"noch ein spiel? "[170]fl$[170]rn$[170]"j"[170]rf$;
  233. 2310 [153]fo$[170]"a / "[170]fl$[170]rn$[170]"n"[170]rf$[170]fo$[170]"ein"
  234. 2320 [161]a$:[139]a$[178]"j"[167]720
  235. 2330 [139]a$[178]"y"[167][138]520
  236. 2340 [139]a$[178]"n"[167]2360
  237. 2350 [137]2320
  238. 2360 [153]cl$[200](qd$,5)[200](qr$,9)"das spiel ist beendet!"
  239. 2370 [128]
  240. 2380 [143] nachspann ===============
  241. 2390 [143] * farbcodes/steuercodes *
  242. 2400 c4$[178][199](017):rn$[178][199](018)
  243. 2410 re$[178][199](028):c3$[178][199](029)
  244. 2420 gr$[178][199](030):bl$[178][199](031)
  245. 2430 oe$[178][199](129):fl$[178][199](130)
  246. 2440 fo$[178][199](132):bk$[178][199](144)
  247. 2450 c2$[178][199](145):rf$[178][199](146)
  248. 2460 cl$[178][199](147):at[178]49152
  249. 2470 [143] *** zeichensatz/graphik *
  250. 2480 s2$[178][199](160):z5$[178][199](166)
  251. 2490 z7$[178][199](168):za$[178][199](171)
  252. 2500 zg$[178][199](177):zh$[178][199](178)
  253. 2510 zi$[178][199](179):ym$[178][199](219)
  254. 2520 [143] ********* zeichenfolgen *
  255. 2530 [129] q[178]1 [164] 40
  256. 2540 qd$[178]qd$[170]c4$:qr$[178]qr$[170]c3$
  257. 2550 [130]q:b$[178][199](32)
  258. 2560 b2$[178]b$[170]b$:b3$[178]b2$[170]b$:[142]
  259. 2570 [143] =stradenk===========ende=
  260.