home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 54 / Commodore_Disc_54_19xx_-_de.d64 / pferderennen.64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  15KB  |  429 lines
  1. 10 rem pferderennen============64
  2. 20 rem (p) commodore disc      ==
  3. 30 rem ==========================
  4. 40 rem (c) by                  ==
  5. 50 rem     d. lindemann        ==
  6. 60 rem                         ==
  7. 70 rem version 2.0   40z./ascii==
  8. 80 rem  c-64  floppy/datasette ==
  9. 90 rem ==========================
  10. 95 gosub 60000
  11. 100 ifpeek(50307)<>120then120
  12. 110 poke50257,0
  13. 120 gosub 60000:printchr$(142);chr$(8)
  14. 130 poke53248+21,0
  15. 140 printcl$:poke53280,0:poke53281,0
  16. 150 forn=0to62:readq:poke832+n,q:nextn
  17. 160 forn=0to62:readq:poke832+63+n,q:nextn
  18. 170 poke788,52
  19. 180 goto500
  20. 190 rem 1987 written by detlef lindemann
  21. 200 rem
  22. 210 rem
  23. 220 rem
  24. 230 rem *** variablen hauptstart *******
  25. 240 x=rnd(-ti):v=53248:vb=v+16:pz=214:ps=211:a1=9:a2=130:ap=7:ge=20:mr=1
  26. 250 sb=2040:si=54272
  27. 260 b1=5:b2=8:pj=56322:pf=1
  28. 270 w(1)=0:w(2)=1:w(3)=0:w(4)=1:w(5)=0:w(6)=1:w(7)=0
  29. 280 gosub2430:rem pferde an den start
  30. 290 printhe$pu$;
  31. 300 fori=1toap:zi(i)=0:ru(pf)=0:nexti
  32. 310 fori=1to8:au(i)=1:nexti
  33. 320 pokevb,0:return
  34. 330 rem *** sprite aktivieren **********
  35. 340 pokev+21,0
  36. 350 pokevb,0:rem hoeheres bit
  37. 360 poke2041,13:poke2042,13:poke2043,13:poke2044,13:poke2045,13:poke2046,13
  38. 370 poke2047,13
  39. 380 pokev+23,0:pokev+29,0:rem expand
  40. 390 pokev+40,5:pokev+41,9:pokev+42,7:pokev+43,14:pokev+44,6:pokev+45,4
  41. 400 pokev+46,2
  42. 410 return
  43. 420 rem generator vorbereiten
  44. 430 pokesi+5,0*16+2
  45. 440 pokesi+6,0*16+0
  46. 450 pokesi+3,20:pokesi+2,14
  47. 460 pokesi+1,9:pokesi,0
  48. 470 pokesi+22,30:pokesi+21,7
  49. 480 pokesi+23,1:pokesi+24,16+15
  50. 490 return
  51. 500 rem *** hauptprogramm **************
  52. 510 gosub230:rem   variablen hauptstart
  53. 520 gosub420:rem   tongenerator vorber
  54. 530 gosub330:rem   sprites grundeinstell
  55. 540 gosub1150:rem  titelbild
  56. 550 gosub1590:rem  demo
  57. 560 gosub230:rem   variablen hauptstart
  58. 570 gosub330:rem   sprites grundeinstell
  59. 580 gosub2250:rem  namen,spielerzahl
  60. 590 gosub1730:rem  wettannahme
  61. 600 gosub2430:rem pferde a.d.start
  62. 610 gosub880:rem  spielfeld
  63. 620 gosub2540:rem zwischenstart
  64. 630 goto700:rem    bewegung berechnung
  65. 640 gosub820:rem   bewegung ausfuehrung
  66. 650 goto630
  67. 660 gosub2620:rem gewinnverteil/anzei
  68. 670 ifi$="[197]"then3070
  69. 680 goto590
  70. 690 rem *** bewegungen berechnen *******
  71. 700 forpf=1toap
  72. 710 ifzi(pf)<>0thenx(pf)=x(pf)+rnd(0)*ge*-(x(pf)<330):goto790
  73. 720 x(pf)=x(pf)+rnd(0)*ge:pokesb+pf,14+w(pf):w(pf)=(w(pf)=0)
  74. 730 ifx(pf)<300then790
  75. 740 ifru(pf)=mr-1then1350
  76. 750 ifx(pf)<340then790
  77. 760 pokev+21,peek(v+21)and(255-2^pf)
  78. 770 x(pf)=10:pokev+2*pf,0:pokevb,peek(vb)and(255-2^pf):ru(pf)=ru(pf)+1
  79. 780 pokev+21,peek(v+21)or2^pf
  80. 790 nextpf
  81. 800 goto640
  82. 810 rem *** sprite bewegung ************
  83. 820 forpf=1toap:pokesi+4,129
  84. 830 ifx(pf)>=255thenpokevb,peek(vb)or2^pf
  85. 840 pokev+2*pf,x(pf)+255*(x(pf)>=255)
  86. 850 pokesi+4,0
  87. 860 nextpf
  88. 870 return
  89. 880 rem ** spielfeld ******************
  90. 890 printcl$ye$"[213]"zv$zv$zv$zv$zv$zv$zv$zv$zv$zv$zv$zv$zv$zv$zv$zv$zv$zv$zv$;
  91. 895 printzv$"[201] "cy$"[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209]"oe$"[205] ";
  92. 900 printye$yo$wh$"pferd  "gr$"1"pu$;yo$oe$"2"pu$;yo$ye$"3"pu$;yo$wh$lb$"4"pu$;
  93. 903 printyo$wh$bl$"5"pu$;yo$wh$pu$"6"pu$;yo$wh$re$"7"pu$;
  94. 905 printye$yo$g2$" "zg$gr$"[209][209][209][209][209][209][209][209][209][209][209][209][209][209][209] ";
  95. 910 printye$yo$pu$"       "zv$ym$zv$ym$zv$ym$zv$ym$zv$ym$zv$ym$zv$ye$yo$;
  96. 915 printg2$" [205]"zg$zg$zg$zg$zg$zg$zg$zg$zg$zg$zg$zg$zg$zg$zg$" ";
  97. 920 printye$yo$wh$"platz  "pu$" "yo$" "yo$s2$yo$s2$yo$s2$yo$s2$yo$s2$ye$yo$;
  98. 925 printg2$" [205] lindesoftware  ";
  99. 930 printye$"[202]"zv$zh$zv$zv$zv$zv$zv$zv$zv$zv$zv$zv$zv$zv$zv$zv$zv$zv$zh$;
  100. 935 printzv$"[203] "g2$"[205]"ze$ze$ze$ze$ze$ze$ze$ze$ze$ze$ze$ze$ze$ze$ze$" ";
  101. 940 printye$"  "yo$"    coka cola   "yo$"       [207]"zm$zm$zm$zm$;
  102. 945 printzm$zm$zm$zm$zm$"[208]  ";
  103. 950 printye$"  "yo$"   c=commodore  "yo$"       "zk$" erdgas  "zl$;
  104. 960 printlb$"                                    ziel  ";
  105. 970 printz3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$;
  106. 975 printz3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$yo$z3$z3$;
  107. 980 print"                                     "yo$"  ";
  108. 990 printz3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$;
  109. 995 printz3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$yo$z3$z3$;
  110. 1000 print"                                     "yo$"  ";
  111. 1010 printz3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$;
  112. 1015 printz3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$yo$z3$z3$;
  113. 1020 print"                                     "yo$"  ";
  114. 1030 printz3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$;
  115. 1035 printz3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$yo$z3$z3$;
  116. 1040 print"                                     "yo$"  ";
  117. 1050 printz3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$;
  118. 1055 printz3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$yo$z3$z3$;
  119. 1060 print"                                     "yo$"  ";
  120. 1070 printz3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$;
  121. 1075 printz3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$yo$z3$z3$;
  122. 1080 print"                                     "yo$"  ";
  123. 1090 printz3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$;
  124. 1095 printz3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$z3$yo$z3$z3$;
  125. 1100 print"                                     "yo$"  ";
  126. 1110 printcy$"  [209][209][209][209][209] [209] [209][209][209] [209][209][209][209][209] [209][209][209][209] [209][209][209]  [209][209][209] [209][209]    ";
  127. 1120 printgr$"   "zg$zg$zg$zg$zg$zg$zg$zg$zg$zg$zg$zg$zg$zg$zg$zg$zg$zg$zg$zg$;
  128. 1125 printzg$zg$zg$zg$zg$zg$zg$zg$zg$zg$zg$zg$zg$s2$"   ";
  129. 1130 printoe$"  [209][209] [209][209][209][209][209][209][209][209] [209]"s2$"[209][209]"s2$"[209]"s2$"[209]"s2$"[209][209][209]"s2$"[209]"s2$"[209][209]"s2$;
  130. 1135 print"[209][209][209][209] ";
  131. 1140 return
  132. 1150 rem
  133. 1160 printcl$c4$c4$
  134. 1170 printlb$"       written by detlef lindemann"
  135. 1180 print""
  136. 1190 print" "pu$"    [213]"zv$zv$zv$"[201][213]"zv$zv$zv$"[201][213]"zv$zv$zv$"[201][213]"zv$zv$zv$"[201][213]"zv$;
  137. 1195 printzv$zv$"[201] [213]"zv$zv$zv$"[201]"
  138. 1200 print"     "yo$"[213]"zv$"[201]"yo$yo$" [213]"zv$"[203]"yo$" [213]"zv$"[203]"yo$"[213]"zv$"[201]"yo$;
  139. 1205 printyo$" [213][201]"yo$" "yo$" [213]"zv$"[203]"
  140. 1210 print"     "yo$"[202]"zv$"[203]"yo$yo$" [202][201] "yo$" [202][201] "yo$"[202]"zv$"[203]"yo$yo$" "yo$;
  141. 1215 printyo$yo$" "yo$" [202][201] "
  142. 1220 print"     "yo$" [213]"zv$"[203]"yo$" [213][203] "yo$" [213][203] "yo$"  "zv$"[203]"yo$" "yo$yo$;
  143. 1225 printyo$" "yo$" [213][203]"
  144. 1230 print"     "yo$" "yo$"  "yo$" "yo$"  "yo$" [202]"zv$"[201]"yo$yo$"[205][205] "yo$" [202][203]";
  145. 1235 printyo$" "yo$" [202]"zv$"[201]"
  146. 1240 print"     [202]"zv$"[203]  [202]"zv$"[203]  [202]"zv$zv$zv$"[203][202][203] [205][205][202]"zv$zv$zv$"[203] [202]"zv$zv$zv$"[203]"
  147. 1250 print"      [213]"zv$zv$zv$"[201] [213]"zv$zv$zv$zv$"[201] [213]"zv$"[201][213]"zv$"[201] [213]"zv$"[201]  [213]"zv$"[201]"
  148. 1260 print"      "yo$"[213][201] "yo$" "yo$"[213]"zv$zv$"[201]"yo$" "yo$" "yo$yo$" "yo$" ";
  149. 1265 printyo$" "yo$"[205] "yo$s2$yo$
  150. 1270 print"      "yo$"[202][203][213][203] "yo$"[202]"zv$zv$"[203]"yo$" "yo$" [202][203] "yo$" "yo$" ";
  151. 1275 printyo$" [205]"yo$s2$yo$
  152. 1280 print"      "yo$"[213][201][202][201] "yo$" [213][201] "yo$" "yo$" [213][201] "yo$" "yo$" "yo$"[205] "yo$" "yo$
  153. 1290 print"      "yo$"[202][203] "yo$" "yo$" "yo$yo$" "yo$" "yo$" "yo$yo$" ";
  154. 1295 printyo$" "yo$" "yo$" [205]"yo$s2$yo$
  155. 1300 print"      [202]"zv$zv$zv$"[203] [202]"zv$"[203][202]"zv$"[203] [202]"zv$"[203][202]"zv$"[203]"s2$"[202]";
  156. 1305 printzv$"[203]  [202]"zv$"[203]
  157. 1310 [153]c4$c4$c4$"           "rn$"a"rf$"nleitung    "rn$"s"rf$"tart"
  158. 1320 [142]
  159. 1330 [143] ** cursor positionieren *******
  160. 1340 [151]214,q1:[151]211,q2:[158]58640:[142]
  161. 1350 [143] ** platzeintrag vornehmen *****
  162. 1360 pl[178]pl[170]1:zi(pf)[178]pl
  163. 1370 [151]pz,3:[151]ps,5[170]pf[172]2:[158]58640:[153]pu$pl;
  164. 1380 [139]pl[179][177]ap[167]790
  165. 1390 [143] gong
  166. 1400 si[178]54272
  167. 1410 [151]si[170]1,32:[151]si,0:[151]si[170]5,10:[151]si[170]4,17
  168. 1420 [129]i[178]1[164]700:[130]:[151]si[170]4,0
  169. 1430 [151]si[170]1,25:[151]si,0:[151]si[170]4,17
  170. 1440 [129]i[178]1[164]1000:[130]
  171. 1450 [151]si[170]4,0:[141]420
  172. 1460 q1[178]24:q2[178]0:[141]3520:[153]"               "rn$"g"rf$"ewinnplan           ";
  173. 1470 [161]i$:[139]i$[179][177]"g"[167]1470
  174. 1480 [151]v[170]21,0:[137]660
  175. 1490 [143] ** sprite pferd 2 *************
  176. 1500 [131]0,0,16,0,0,56,0,0,60,0,0,126,0,0,126,0
  177. 1510 [131]0,255,0,3,255,63,255,247,127,255,227,127,255,224,127,255
  178. 1520 [131]224,127,255,240,127,255,248,251,159,124,247,15,158,239,7,199
  179. 1530 [131]108,1,227,108,0,115,102,0,54,99,0,54,49,128,0,255
  180. 1540 [143] ** sprite pferd 1 *************
  181. 1550 [131]0,0,16,0,0,56,0,0,60,0,0,126,0,0,126,0
  182. 1560 [131]0,255,0,3,255,63,255,247,127,255,227,127,255,224,127,255
  183. 1570 [131]224,127,255,224,127,255,176,251,31,112,246,15,120,220,7,56
  184. 1580 [131]152,7,28,152,3,12,140,1,140,134,1,152,194,1,128,255
  185. 1590 [143] ** demo ***********************
  186. 1600 [129]pf[178]1[164]7:y(pf)[178]150[171]pf[172]3:[151]v[170]1[170]2[172]pf,y(pf):[130]pf
  187. 1610 [151]v[170]21,128[170]126
  188. 1620 [129]pf[178]1[164]ap
  189. 1630 x(pf)[178]x(pf)[171]([181]([187](0)[172]ge))[172](x(pf)[179]340):[151]sb[170]pf,13[170][181]([187](0)[170].5)
  190. 1640 [139]x(pf)[179]330[167]1680
  191. 1650 [151]v[170]21,[194](v[170]21)[175](255[171]2[174]pf)
  192. 1660 x(pf)[178]10:[151]v[170]2[172]pf,10:[151]vb,[194](vb)[175](255[171]2[174]pf)
  193. 1670 [151]v[170]21,[194](v[170]21)[176]2[174]pf
  194. 1680 [130]pf
  195. 1690 [141]810:[161]i$
  196. 1700 [139]i$[178]"s"[167][151]v[170]21,0:[142]
  197. 1710 [139]i$[178]"a"[167][151]v[170]21,0:[141]2790:[142]
  198. 1720 [137]1590
  199. 1730 [143] *** wettannahme ***************
  200. 1740 ta[178]0:[141]1910:[141]2360
  201. 1750 [129]sp[178]1[164]as
  202. 1760 [139]gu(sp)[178]0[167]pn(sp)[178]1:ei(sp)[178]0:au(sp)[178]0:[137]1840
  203. 1770 q1[178]5[170]sp[172]2:q2[178]20:q3[178]1:q7[178]0:[141]3180:ps$(sp)[178]q4$
  204. 1780 [139]q4$[179][177]"p"[175]q4$[179][177]"s"[167]1770
  205. 1790 q2[178]26:q3[178]1:q7[178]1:[141]3180:pn(sp)[178][197](q4$)
  206. 1800 [139]pn(sp)[179]1[176]pn(sp)[177]7[167]1790
  207. 1810 q2[178]29:q3[178]6:q7[178]1:[141]3180:ei(sp)[178][197](q4$)
  208. 1820 [139]ei(sp)[179]0[176]ei(sp)[177]gu(sp)[176]ei(sp)[177]100000[167]1810
  209. 1830 gu(sp)[178]gu(sp)[171]ei(sp)
  210. 1840 [130]sp
  211. 1850 q1[178]24:q2[178]0:[141]3520
  212. 1855 [153]"  "rn$"l"rf$"oeschen   "rn$"r"rf$"unden aendern   "rn$"s"rf$"tart";
  213. 1860 [161]i$
  214. 1870 [139]i$[178]"l"[167][129]sp[178]1[164]as:gu(sp)[178]gu(sp)[170]ei(sp):[130]sp:[137]1730
  215. 1880 [139]i$[178]"r"[167][141]3090:[137]1850
  216. 1890 [139]i$[178]"s"[167][153]cl$;:[151]v[170]21,0:[142]
  217. 1900 [137]1860
  218. 1910 [143] ** wettformular ***************
  219. 1915 [153][199](147)
  220. 1920 [139]ta[178]0[167][153]cl$[170]he$[170]bl$[170]"wettannahme 1   2   3   4   5   6   7   ";
  221. 1925 [137]1940
  222. 1930 [153]cl$he$ye$"gewinnplan!"bl$"                             ";
  223. 1940 [153]z2$z2$z2$z2$z2$z2$z2$z2$z2$z2$z2$"                             ";
  224. 1950 [153]
  225. 1960 [153]
  226. 1970 [153]zf$zv$zv$zv$zv$zv$zv$zv$zv$zv$zh$zv$zv$zv$zv$zv$zv$zv$zv$zv$zv$zh$;
  227. 1975 [153]zv$zv$zv$zv$zv$zh$zv$zv$zv$zv$zv$zv$zv$zv$zv$zv$zd$" ";
  228. 1980 [139]ta[178]0[167] [141] 60010:[137] 1985
  229. 1982 [137] 1990
  230. 1985 [153]yo$[170]"spieler  "[170]yo$[170]"sieg/platz"[170]yo$[170]"pferd"[170]yo$[170]"einsatz dm"[170]yo$[170]" ";
  231. 1987 [137]2000
  232. 1990 [141]60000
  233. 1991 [153]yo$"spieler  "yo$"sieg/platz"yo$"pferd"yo$"gewinn! dm"yo$" ";
  234. 2000 [153]za$zv$zv$zv$zv$zv$zv$zv$zv$zv$ym$zv$zv$zv$zv$zv$zv$zv$zv$zv$zv$ym$;
  235. 2005 [153]zv$zv$zv$zv$zv$ym$zv$zv$zv$zv$zv$zv$zv$zv$zv$zv$zi$" ";
  236. 2010 [153]yo$"         "yo$"s/p       "yo$"nr.  "yo$"        dm"yo$" ";
  237. 2020 [153]za$zv$zv$zv$zv$zv$zv$zv$zv$zv$ym$zv$zv$zv$zv$zv$zv$zv$zv$zv$zv$ym$;
  238. 2025 [153]zv$zv$zv$zv$zv$ym$zv$zv$zv$zv$zv$zv$zv$zv$zv$zv$zi$" ";
  239. 2030 [153]yo$"         "yo$"s/p       "yo$"nr.  "yo$"        dm"yo$" ";
  240. 2040 [153]za$zv$zv$zv$zv$zv$zv$zv$zv$zv$ym$zv$zv$zv$zv$zv$zv$zv$zv$zv$zv$;
  241. 2045 [153]ym$zv$zv$zv$zv$zv$ym$zv$zv$zv$zv$zv$zv$zv$zv$zv$zv$zi$" ";
  242. 2050 [153]yo$"         "yo$"s/p       "yo$"nr.  "yo$"        dm"yo$" ";
  243. 2060 [153]za$zv$zv$zv$zv$zv$zv$zv$zv$zv$ym$zv$zv$zv$zv$zv$zv$zv$zv$zv$zv$ym$;
  244. 2065 [153]zv$zv$zv$zv$zv$ym$zv$zv$zv$zv$zv$zv$zv$zv$zv$zv$zi$" ";
  245. 2070 [153]yo$"         "yo$"s/p       "yo$"nr.  "yo$"        dm"yo$" ";
  246. 2080 [153]za$zv$zv$zv$zv$zv$zv$zv$zv$zv$ym$zv$zv$zv$zv$zv$zv$zv$zv$zv$zv$ym$;
  247. 2085 [153]zv$zv$zv$zv$zv$ym$zv$zv$zv$zv$zv$zv$zv$zv$zv$zv$zi$" ";
  248. 2090 [153]yo$"         "yo$"s/p       "yo$"nr.  "yo$"        dm"yo$" ";
  249. 2100 [153]za$zv$zv$zv$zv$zv$zv$zv$zv$zv$ym$zv$zv$zv$zv$zv$zv$zv$zv$zv$zv$ym$;
  250. 2105 [153]zv$zv$zv$zv$zv$ym$zv$zv$zv$zv$zv$zv$zv$zv$zv$zv$zi$" ";
  251. 2110 [153]yo$"         "yo$"s/p       "yo$"nr.  "yo$"        dm"yo$" ";
  252. 2120 [153]zc$zv$zv$zv$zv$zv$zv$zv$zv$zv$zg$zv$zv$zv$zv$zv$zv$zv$zv$zv$zv$zg$;
  253. 2125 [153]zv$zv$zv$zv$zv$zg$zv$zv$zv$zv$zv$zv$zv$zv$zv$zv$zs$" ";
  254. 2130 [153]"                                        ";
  255. 2140 [153]"                 dm                   dm";
  256. 2150 [153]"                 dm                   dm";
  257. 2160 [153]"                 dm                   dm";
  258. 2170 [153]"                                        ";
  259. 2180 [139]ta[178]0[167][141]2360
  260. 2190 [129]i[178]1[164]as:q1[178]5[170]2[172]i:q2[178]1:[141]3520:[153]ye$na$(i):[130]
  261. 2200 [151]v[170]16,2[174]7[170]2[174]6
  262. 2210 [129]i[178]1[164]7:[151]v[170]2[172]i,(80[170]32[172]i)[175]255:[151]v[170]1[170]2[172]i,55:[130]
  263. 2220 [151]v[170]21,128[170]126
  264. 2230 [129]j[178]1[164]10:[129]i[178]1[164]7:[151]sb[170]i,14[170]w(i):w(i)[178](w(i)[178]0):[130]i:[130]j
  265. 2240 [142]
  266. 2250 [143] ** namen eingeben *************
  267. 2260 [153]cl$bl$
  268. 2270 [153]c4$c4$c4$"   anzahl der spieler:":
  269. 2280 q1[178]4:q2[178]23:q3[178]1:q7[178]0:[153]ye$:[141]3180:as[178][197](q4$):[139]as[179][178]0[176]as[177]6[167]2280
  270. 2290 [153]
  271. 2300 [129]i[178]1[164]as
  272. 2310 [153]c4$bl$"      name"i;c1$". spieler:";
  273. 2320 q1[178]5[170]i[172]2:q2[178]23:q3[178]9:q7[178]0:[153]ye$;:[141]3180:na$(i)[178]q4$:[139]q4$[178]""[167]2320
  274. 2330 [130]i
  275. 2340 [129]i[178]1[164]as:gu(i)[178]500:[130]i
  276. 2350 [142]
  277. 2360 [143] ** guthaben anzeigen **********
  278. 2370 q1[178]19
  279. 2380 [129]i[178]1[164]as
  280. 2390 q1[178]q1[171]1[172]([181](i[173]2)[179][177]i[173]2):q2[178]0[171]21[172]([181](i[173]2)[178]i[173]2):[141]3520:[153]ye$;na$(i);
  281. 2400 za[178]gu(i):ql[178]6:[141]3570
  282. 2410 q2[178]9[171]21[172]([181](i[173]2)[178]i[173]2):[141]3520:[153]ye$;za$;
  283. 2420 [130]i:[142]
  284. 2430 [143] ** pferde an den start *******
  285. 2440 [141]330
  286. 2450 x(7)[178]20:::y(7)[178]a2[170]0[172]a1
  287. 2460 x(6)[178]x(7):y(6)[178]a2[170]1[172]a1
  288. 2470 x(5)[178]x(7):y(5)[178]a2[170]2[172]a1
  289. 2480 x(4)[178]x(7):y(4)[178]a2[170]3[172]a1
  290. 2490 x(3)[178]x(7):y(3)[178]a2[170]4[172]a1
  291. 2500 x(2)[178]x(7):y(2)[178]a2[170]5[172]a1
  292. 2510 x(1)[178]x(7):y(1)[178]a2[170]6[172]a1
  293. 2520 [129]i[178]1[164]7:[151]v[170]2[172]i,x(i):[151]v[170]1[170]2[172]i,y(i):[130]i
  294. 2530 [142]
  295. 2540 [143] *** zwischenstart ************
  296. 2550 [151]v[170]21,254
  297. 2560 [129]i[178]1[164]ap:ru(i)[178]0:zi(i)[178]0:[130]i
  298. 2570 pl[178]0
  299. 2580 q1[178]24:q2[178]16:[141]3520:[153]pu$" "rn$"s"rf$"tart ";
  300. 2590 [161]i$:[139]i$[179][177]"s"[167]2590
  301. 2600 q1[178]24:q2[178]0:[141]3520:[153]g2$"  (NULL)(NULL) (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL) (NULL)"s2$"(NULL)(NULL)"s2$"(NULL)"s2$"(NULL)";
  302. 2605 [153]s2$"(NULL)(NULL)(NULL)"s2$"(NULL)"s2$"(NULL)(NULL)"s2$"(NULL)(NULL)(NULL)(NULL)  ";
  303. 2610 [142]
  304. 2620 [143] *** gewinnverteilung/anzeige *
  305. 2630 ta[178]1:[141]1910
  306. 2640 [129]i[178]1[164]ap:q1[178]0:q2[178]7[170]4[172]i:[141]3520:[153]zi(i);:[130]
  307. 2650 [129]sp[178]1[164]as:gw(sp)[178]0
  308. 2660 [139]au(sp)[178]0[167]2750
  309. 2670 q1[178]5[170]sp[172]2:q2[178]20:[141]3520:[153]ps$(sp);
  310. 2680 q2[178]25:[141]3520:[153]pn(sp);
  311. 2690 [139]ps$(sp)[178]"s"[167]2710
  312. 2700 [139]zi(pn(sp))[179][178]3[167]gw(sp)[178]ei(sp)[172]2:[137]2720
  313. 2710 [139]zi(pn(sp))[178]1[167]gw(sp)[178]ei(sp)[172]6
  314. 2720 gu(sp)[178]gu(sp)[170]gw(sp)
  315. 2730 za[178]gw(sp):ql[178]6:[141]3570
  316. 2740 q1[178]5[170]sp[172]2:q2[178]28:[141]3520:[153]za$rf$;
  317. 2750 [130]sp:[141]2360
  318. 2760 q1[178]24:q2[178]0:[141]3520
  319. 2765 [153]"        "rn$"w"rf$"ettannahme  shift"rn$"e"rf$"nde ";
  320. 2770 [161]i$:[139]i$[179][177]"w"[175]i$[179][177]"val"[167]2770
  321. 2780 [142]
  322. 2790 [143] ** anleitung *****************
  323. 2800 [153]cl$pu$"jeder spieler erhaelt 500 dm - damit "
  324. 2810 [153]"geht's auf zur rennbahn!                ";
  325. 2820 [153]"                                        ";
  326. 2830 [153]"wettvorgang                             ";
  327. 2840 [153]z2$z2$z2$z2$z2$z2$z2$z2$z2$z2$z2$
  328. 2850 [153]"tragen sie in der spalte 'sieg/platz'   ";
  329. 2860 [153]"den buchstaben s oder p ein. in die     ";
  330. 2870 [153]"spalte 'pferd' schreiben sie die nummer ";
  331. 2880 [153]"des pferdes, auf das sie setzen und in  ";
  332. 2890 [153]"die spalte 'einsatz' den geldbetrag, den";
  333. 2900 [153]"sie riskieren wollen.                   ";
  334. 2910 [153]"                                        ";
  335. 2920 [153]"gewinnberechnung                        ";
  336. 2930 [153]z2$z2$z2$z2$z2$z2$z2$z2$z2$z2$z2$z2$z2$z2$z2$z2$
  337. 2940 [153]"wenn sie auf den sieg (s) eines best. "
  338. 2950 [153]"pferdes gesetzt haben,versechsfacht sich";
  339. 2960 [153]"ihr einsatz beim sieg dieses pferdes.   ";
  340. 2970 [153]"wetten sie auf platz (p), verdoppelt"
  341. 2980 [153]"sich ihr einsatz, falls sich das pferd"
  342. 2990 [153]"auf das sie gesetzt haben, unter den"
  343. 3000 [153]"ersten drei befindet. "
  344. 3010 [153]"                                        ";
  345. 3020 [153]"bei fehleingaben taste 'del' noch vor   ";
  346. 3030 [153]"'return' druecken!                      ";
  347. 3040 [153]"                               "rn$"b"rf$"eginn";
  348. 3050 [161]i$:[139]i$[179][177]"b"[167]3050
  349. 3060 [153]cl$;:[142]
  350. 3070 [143] ** ende, sprites loeschen ****
  351. 3080 [151]v[170]21,0:[151]788,49:[153]lb$cl$:[151]53280,14:[151]53281,6:[138]120
  352. 3090 [143] ** rundenanzahl bestim. ******
  353. 3100 [141]3150
  354. 3110 q1[178]23:q2[178]0:[141]3520
  355. 3115 [153]"     anzahl der runden"s2$"(1-3): "rn$" "rf$"      ";
  356. 3120 q1[178]23:q2[178]30:q3[178]1:q7[178]1:[141]3180:mr[178][197](q4$):[139]mr[179]1[176]mr[177]3[167]3120
  357. 3130 q1[178]23:q2[178]0:[141]3520:[153]"                                       ";
  358. 3140 [142]
  359. 3150 [143] ** zeile 24 loeschen *********
  360. 3160 q1[178]24:q2[178]0:[141]3520:[153]"                                      ";
  361. 3170 [142]
  362. 3180 [143] ** input at ******************
  363. 3190 q9[178]0:q8[178]1:[143] q8=1 (nur gerade z)
  364. 3200 [139]q1[177][171]1[167][141]3520:[137]3220
  365. 3210 q1[178][194](214):q2[178][194](211)[170]2
  366. 3220 [129]ii[178]1[164]q3:[153]rn$" ";:[130]
  367. 3230 [141]3520
  368. 3240 q5[178]0:q4$[178]"":[151]1024[170]40[172]q1[170]q2,191
  369. 3250 [129]ii[178]631[164]640:[151]ii,0:[130]
  370. 3260 q5[178]q5[170]1
  371. 3270 [161]q6$:[139]q6$[178]""[167]3270
  372. 3280 [139][198](q6$)[178]32[175]q5[179][178]1[167]3270
  373. 3290 [139][198](q6$)[178]13[167][153]:[137]3550
  374. 3300 [139][198](q6$)[178]20[176][198](q6$)[178]157[167]3400
  375. 3310 [139]q7[178]1[167]3340
  376. 3320 [139][198](q6$)[179]32[176][198](q6$)[177]90[167]3270
  377. 3330 [137]3450
  378. 3340 [139][198](q6$)[177][178]48[175][198](q6$)[179][178]57[167]3450
  379. 3350 [139]q8[178]1[167]3370
  380. 3360 [139][198](q6$)[178]46[176][198](q6$)[178]44[167]q8[178]1:q6$[178]".":[137]3450
  381. 3370 [139]q9[178]1[167]3390
  382. 3380 [139][198](q6$)[178]45[175]q5[178]1[167]q9[178]1:[137]3450
  383. 3390 [137]3270
  384. 3400 [139]q5[179][178]1[167]3270
  385. 3410 q2[178]q2[171]1:[141]3520:q8$[178][202](q4$,q5[171]1,1):[139]q8$[178]"."[167]q8[178]0
  386. 3420 [139]q8$[178]"-"[167]q9[178]0
  387. 3430 [153]rn$" ":[141]3520
  388. 3440 q4$[178][200](q4$,q5[171]2):q5[178]q5[171]1:[137]3270
  389. 3450 q4$[178]q4$[170]q6$
  390. 3460 [153]rn$;q6$;:q2[178]q2[170]1:[141]3520
  391. 3470 [139]q5[179]q3[167]3260
  392. 3480 q5[178]q3[170]1:[161]q6$:[139]q6$[178]""[167]3480
  393. 3490 [139][198](q6$)[178]20[176][198](q6$)[178]157[167]3400
  394. 3500 [139][198](q6$)[178]13[167][153]:[137]3550
  395. 3510 [137]3480
  396. 3520 [143] ** cursor positionieren ******
  397. 3530 [151]214,q1:[151]211,q2:[158]58640
  398. 3540 [142]
  399. 3550 [139]q4$[178]""[167]3180
  400. 3560 [142]
  401. 3570 [143] ** rechtsbund ****************
  402. 3580 za$[178][196]([181](za))
  403. 3590 ql[178]ql[170]1:[139]ql[177]14[167][153]cl$"laenge ql im up zu gross!!!":[128]
  404. 3600 [139][195](za$)[177]ql[167]za$[178]">1mio."
  405. 3610 za$[178][200]("                ",ql[171][195](za$))[170]za$
  406. 3620 [142]
  407. 60000 [143] nachspann ==============
  408. 60010 [143] * farbcodes/steuercodes
  409. 60020 wh$[178][199](005):c4$[178][199](017)
  410. 60030 rn$[178][199](018):he$[178][199](019)
  411. 60040 re$[178][199](028):gr$[178][199](030)
  412. 60050 bl$[178][199](031):oe$[178][199](129)
  413. 60060 rf$[178][199](146):cl$[178][199](147)
  414. 60070 g2$[178][199](152):lb$[178][199](154)
  415. 60080 pu$[178][199](156):c1$[178][199](157)
  416. 60090 ye$[178][199](158):cy$[178][199](159)
  417. 60100 [143] *** zeichensatz/graphik
  418. 60110 s2$[178][199](160):z2$[178][199](163)
  419. 60120 z3$[178][199](164):za$[178][199](171)
  420. 60130 zc$[178][199](173):zd$[178][199](174)
  421. 60140 ze$[178][199](175):zf$[178][199](176)
  422. 60150 zg$[178][199](177):zh$[178][199](178)
  423. 60160 zi$[178][199](179):zk$[178][199](181)
  424. 60170 zl$[178][199](182):zm$[178][199](183)
  425. 60180 zs$[178][199](189):zv$[178][199](192)
  426. 60190 ym$[178][199](219):yo$[178][199](221)
  427. 60200 [142]
  428. 60210 [143] ende
  429.