home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_86-04_1986_Verlag_Heinz_Weise_de.d64 / pferderennbahn (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  12KB  |  353 lines
  1. 1 ifpeek(50307)<>120then10
  2. 2 poke50257,0
  3. 10 printchr$(142);chr$(8)
  4. 30 poke53248+21,0
  5. 40 clr:print"[147]":poke53280,0:poke53281,0
  6. 50 forn=0to62:readq:poke832+n,q:nextn
  7. 60 forn=0to62:readq:poke832+63+n,q:nextn
  8. 70 poke788,52
  9. 100 goto250
  10. 120 rem    p 1986 hans friebe muenchen
  11. 122 rem
  12. 125 rem
  13. 126 rem
  14. 130 rem *** variablen hauptstart *******
  15. 135 x=rnd(-ti):v=53248:vb=v+16:pz=214:ps=211:a1=9:a2=130:ap=7:ge=20:mr=1
  16. 136 sb=2040:si=54272
  17. 140 b1=5:b2=8:pj=56322:pf=1
  18. 145 w(1)=0:w(2)=1:w(3)=0:w(4)=1:w(5)=0:w(6)=1:w(7)=0
  19. 150 gosub10000:rem pferde an den start
  20. 160 print"[156]";
  21. 170 fori=1toap:zi(i)=0:ru(pf)=0:nexti
  22. 180 fori=1to8:au(i)=1:nexti
  23. 194 pokevb,0:return
  24. 195 rem *** sprite aktivieren **********
  25. 200 pokev+21,0
  26. 205 pokevb,0:rem hoeheres bit
  27. 210 poke2041,13:poke2042,13:poke2043,13:poke2044,13:poke2045,13:poke2046,13
  28. 215 poke2047,13
  29. 220 pokev+23,0:pokev+29,0:rem expand
  30. 230 pokev+40,5:pokev+41,9:pokev+42,7:pokev+43,14:pokev+44,6:pokev+45,4
  31. 235 pokev+46,2
  32. 240 return
  33. 241 rem generator vorbereiten
  34. 243 pokesi+5,0*16+2
  35. 244 pokesi+6,0*16+0
  36. 245 pokesi+3,20:pokesi+2,14
  37. 246 pokesi+1,9:pokesi,0
  38. 247 pokesi+22,30:pokesi+21,7
  39. 248 pokesi+23,1:pokesi+24,16+15
  40. 249 return
  41. 250 rem *** hauptprogramm **************
  42. 251 gosub130:rem   variablen hauptstart
  43. 252 gosub241:rem   tongenerator vorber
  44. 253 gosub195:rem   sprites grundeinstell
  45. 254 gosub1500:rem  titelbild
  46. 255 gosub5000:rem  demo
  47. 256 gosub130:rem   variablen hauptstart
  48. 257 gosub195:rem   sprites grundeinstell
  49. 258 gosub8000:rem  namen,spielerzahl
  50. 259 gosub6000:rem  wettannahme
  51. 260 gosub10000:rem pferde a.d.start
  52. 261 gosub1000:rem  spielfeld
  53. 262 gosub11000:rem zwischenstart
  54. 270 goto310:rem    bewegung berechnung
  55. 280 gosub470:rem   bewegung ausfuehrung
  56. 285 goto270
  57. 290 gosub12000:rem gewinnverteil/anzei
  58. 295 ifi$="[197]"then21000
  59. 296 goto259
  60. 300 rem *** bewegungen berechnen *******
  61. 310 forpf=1toap
  62. 313 ifzi(pf)<>0thenx(pf)=x(pf)+rnd(0)*ge*-(x(pf)<330):goto335
  63. 320 x(pf)=x(pf)+rnd(0)*ge:pokesb+pf,14+w(pf):w(pf)=(w(pf)=0)
  64. 325 ifx(pf)<300then335
  65. 327 ifru(pf)=mr-1then3000
  66. 328 ifx(pf)<340then335
  67. 329 pokev+21,peek(v+21)and(255-2^pf)
  68. 330 x(pf)=10:pokev+2*pf,0:pokevb,peek(vb)and(255-2^pf):ru(pf)=ru(pf)+1
  69. 331 pokev+21,peek(v+21)or2^pf
  70. 335 nextpf
  71. 340 goto280
  72. 460 rem *** sprite bewegung ************
  73. 470 forpf=1toap:pokesi+4,129
  74. 471 ifx(pf)>=255thenpokevb,peek(vb)or2^pf
  75. 476 pokev+2*pf,x(pf)+255*(x(pf)>=255)
  76. 495 pokesi+4,0
  77. 500 nextpf
  78. 520 return
  79. 1000 rem ** spielfeld ******************
  80. 1005 print"[147][158][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201] [159][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209][129][205] ";
  81. 1010 print"[158][221]pferd  1[156][221][129]2[156][221][158]3[156][221][154]4[156][221]5[156][221][156]6[156][221]7[156][158][221][152] [177][209][209][209][209][209][209][209][209][209][209][209][209][209][209][209] ";
  82. 1020 print"[158][221][156]       [192][219][192][219][192][219][192][219][192][219][192][219][192][158][221][152] [205][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177] ";
  83. 1030 print"[158][221]platz  [156] [221] [221][160][221][160][221][160][221][160][221][160][158][221][152] [205] rennbahn riem  ";
  84. 1040 print"[158][202][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][203] [152][205][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175] ";
  85. 1050 print"[158]  [221]                [221]                    ";
  86. 1060 print"[158]  [221]                [221]               ziel ";
  87. 1070 print"                                        ";
  88. 1080 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][221][164][164]";
  89. 1090 print"                                     [221]  ";
  90. 1100 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][221][164][164]";
  91. 1110 print"                                     [221]  ";
  92. 1120 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][221][164][164]";
  93. 1130 print"                                     [221]  ";
  94. 1140 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][221][164][164]";
  95. 1150 print"                                     [221]  ";
  96. 1160 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][221][164][164]";
  97. 1170 print"                                     [221]  ";
  98. 1180 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][221][164][164]";
  99. 1190 print"                                     [221]  ";
  100. 1200 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][221][164][164]";
  101. 1210 print"                                     [221]  ";
  102. 1220 print"[159]  [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]    ";
  103. 1230 print"   [177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][160]   ";
  104. 1240 print"[129]  [209][209] [209][209][209][209][209][209][209][209] [209][160][209][209][160][209][160][209][160][209][209][209][160][209][160][209][209][160][209][209][209][209] ";
  105. 1250 return
  106. 1500 rem
  107. 1505 print"[147]"
  108. 1506 print"       p 1986 hans friebe muenchen"
  109. 1510 print" [156]    [213][192][192][192][201][213][192][192][192][201][213][192][192][192][201][213][192][192][192][201][213][192][192][192][201] [213][192][192][192][201]"
  110. 1520 print"     [221][213][192][201][221][221] [213][192][203][221] [213][192][203][221][213][192][201][221][221] [213][201][221] [221] [213][192][203]"
  111. 1530 print"     [221][202][192][203][221][221] [202][201] [221] [202][201] [221][202][192][203][221][221] [221][221][221] [221] [202][201] "
  112. 1540 print"     [221] [213][192][203][221] [213][203] [221] [213][203] [221]  [192][203][221] [221][221][221] [221] [213][203]"
  113. 1550 print"     [221] [221]  [221] [221]  [221] [202][192][201][221][221][205][205] [221] [202][203][221] [221] [202][192][201]"
  114. 1560 print"     [202][192][203]  [202][192][203]  [202][192][192][192][203][202][203] [205][205][202][192][192][192][203] [202][192][192][192][203]"
  115. 1570 print"      [213][192][192][192][201] [213][192][192][192][192][201] [213][192][201][213][192][201] [213][192][201]  [213][192][201]"
  116. 1580 print"      [221][213][201] [221] [221][213][192][192][201][221] [221] [221][221] [221] [221] [221][205] [221][160][221]"
  117. 1590 print"      [221][202][203][213][203] [221][202][192][192][203][221] [221] [202][203] [221] [221] [221] [205][221][160][221]"
  118. 1600 print"      [221][213][201][202][201] [221] [213][201] [221] [221] [213][201] [221] [221] [221][205] [221] [221]"
  119. 1610 print"      [221][202][203] [221] [221] [221][221] [221] [221] [221][221] [221] [221] [221] [205][221][160][221]"
  120. 1620 print"      [202][192][192][192][203] [202][192][203][202][192][203] [202][192][203][202][192][203][160][202][192][203]  [202][192][203]
  121. 1630 [153]"           awaitnleitung    swaittart"
  122. 1640 [142]
  123. 2000 [143] ** cursor positionieren *******
  124. 2010 [151]214,q1:[151]211,q2:[158]58640:[142]
  125. 3000 [143] ** platzeintrag vornehmen *****
  126. 3010 pl[178]pl[170]1:zi(pf)[178]pl
  127. 3020 [151]pz,3:[151]ps,5[170]pf[172]2:[158]58640:[153]"clr"pl;
  128. 3030 [139]pl[179][177]ap[167]335
  129. 3034 [143] gong
  130. 3035 si[178]54272
  131. 3040 [151]si[170]1,32:[151]si,0:[151]si[170]5,10:[151]si[170]4,17
  132. 3042 [129]i[178]1[164]700:[130]:[151]si[170]4,0
  133. 3043 [151]si[170]1,25:[151]si,0:[151]si[170]4,17
  134. 3044 [129]i[178]1[164]1000:[130]
  135. 3045 [151]si[170]4,0:[141]241
  136. 3046 q1[178]24:q2[178]0:[141]30340:[153]"               gwaitewinnplan           ";
  137. 3050 [161]i$:[139]i$[179][177]"g"[167]3050
  138. 3060 [151]v[170]21,0:[137]290
  139. 4001 [143] ** sprite pferd 2 *************
  140. 4002 [131]0,0,16,0,0,56,0,0,60,0,0,126,0,0,126,0
  141. 4003 [131]0,255,0,3,255,63,255,247,127,255,227,127,255,224,127,255
  142. 4004 [131]224,127,255,240,127,255,248,251,159,124,247,15,158,239,7,199
  143. 4005 [131]108,1,227,108,0,115,102,0,54,99,0,54,49,128,0,255
  144. 4006 [143] ** sprite pferd 1 *************
  145. 4007 [131]0,0,16,0,0,56,0,0,60,0,0,126,0,0,126,0
  146. 4008 [131]0,255,0,3,255,63,255,247,127,255,227,127,255,224,127,255
  147. 4009 [131]224,127,255,224,127,255,176,251,31,112,246,15,120,220,7,56
  148. 4010 [131]152,7,28,152,3,12,140,1,140,134,1,152,194,1,128,255
  149. 5000 [143] ** demo ***********************
  150. 5005 [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
  151. 5006 [151]v[170]21,128[170]126
  152. 5010 [129]pf[178]1[164]ap
  153. 5020 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)
  154. 5030 [139]x(pf)[179]330[167]5040
  155. 5031 [151]v[170]21,[194](v[170]21)[175](255[171]2[174]pf)
  156. 5035 x(pf)[178]10:[151]v[170]2[172]pf,10:[151]vb,[194](vb)[175](255[171]2[174]pf)
  157. 5036 [151]v[170]21,[194](v[170]21)[176]2[174]pf
  158. 5040 [130]pf
  159. 5200 [141]460:[161]i$
  160. 5210 [139]i$[178]"s"[167][151]v[170]21,0:[142]
  161. 5220 [139]i$[178]"a"[167][151]v[170]21,0:[141]20000:[142]
  162. 5230 [137]5000
  163. 6000 [143] *** wettannahme ***************
  164. 6005 ta[178]0:[141]7000:[141]9000
  165. 6010 [129]sp[178]1[164]as
  166. 6015 [139]gu(sp)[178]0[167]pn(sp)[178]1:ei(sp)[178]0:au(sp)[178]0:[137]6030
  167. 6020 q1[178]5[170]sp[172]2:q2[178]20:q3[178]1:q7[178]0:[141]30000:ps$(sp)[178]q4$
  168. 6021 [139]q4$[179][177]"p"[175]q4$[179][177]"s"[167]6020
  169. 6022 q2[178]26:q3[178]1:q7[178]1:[141]30000:pn(sp)[178][197](q4$)
  170. 6023 [139]pn(sp)[179]1[176]pn(sp)[177]7[167]6022
  171. 6024 q2[178]29:q3[178]6:q7[178]1:[141]30000:ei(sp)[178][197](q4$)
  172. 6025 [139]ei(sp)[179]0[176]ei(sp)[177]gu(sp)[176]ei(sp)[177]100000[167]6024
  173. 6027 gu(sp)[178]gu(sp)[171]ei(sp)
  174. 6030 [130]sp
  175. 6070 q1[178]24:q2[178]0:[141]30340:[153]"  lwaitoeschen   rwaitunden aendern   swaittart";
  176. 6080 [161]i$
  177. 6090 [139]i$[178]"l"[167][129]sp[178]1[164]as:gu(sp)[178]gu(sp)[170]ei(sp):[130]sp:[137]6000
  178. 6100 [139]i$[178]"r"[167][141]22000:[137]6070
  179. 6110 [139]i$[178]"s"[167][153]"load";:[151]v[170]21,0:[142]
  180. 6120 [137]6080
  181. 7000 [143] ** wettformular ***************
  182. 7010 [139]ta[178]0[167][153]"loadwettannahme 1   2   3   4   5   6   7   ";:[137]7020
  183. 7015 [153]"loadsysgewinnplan!                             ";
  184. 7020 [153]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(                             ";
  185. 7030 [153]
  186. 7035 [153]
  187. 7040 [153]"ortantantantantantantantantan=tantantantantantantantantantan=tantantantantan=tantantantantantantantantantan^ ";
  188. 7050 [139]ta[178]0[167][153]"(NULL)spieler  (NULL)sieg/platz(NULL)pferd(NULL)einsatz dm(NULL) ";:[137]7060
  189. 7055 [153]"(NULL)spieler  (NULL)sieg/platz(NULL)pferd(NULL)gewinn! dm(NULL) ";:[137]7060
  190. 7060 [153]"-tantantantantantantantantan(NULL)tantantantantantantantantantan(NULL)tantantantantan(NULL)tantantantantantantantantantan< ";
  191. 7070 [153]"(NULL)         (NULL)s/p       (NULL)nr.  (NULL)        dm(NULL) ";
  192. 7080 [153]"-tantantantantantantantantan(NULL)tantantantantantantantantantan(NULL)tantantantantan(NULL)tantantantantantantantantantan< ";
  193. 7090 [153]"(NULL)         (NULL)s/p       (NULL)nr.  (NULL)        dm(NULL) ";
  194. 7100 [153]"-tantantantantantantantantan(NULL)tantantantantantantantantantan(NULL)tantantantantan(NULL)tantantantantantantantantantan< ";
  195. 7110 [153]"(NULL)         (NULL)s/p       (NULL)nr.  (NULL)        dm(NULL) ";
  196. 7120 [153]"-tantantantantantantantantan(NULL)tantantantantantantantantantan(NULL)tantantantantan(NULL)tantantantantantantantantantan< ";
  197. 7130 [153]"(NULL)         (NULL)s/p       (NULL)nr.  (NULL)        dm(NULL) ";
  198. 7140 [153]"-tantantantantantantantantan(NULL)tantantantantantantantantantan(NULL)tantantantantan(NULL)tantantantantantantantantantan< ";
  199. 7150 [153]"(NULL)         (NULL)s/p       (NULL)nr.  (NULL)        dm(NULL) ";
  200. 7160 [153]"-tantantantantantantantantan(NULL)tantantantantantantantantantan(NULL)tantantantantan(NULL)tantantantantantantantantantan< ";
  201. 7170 [153]"(NULL)         (NULL)s/p       (NULL)nr.  (NULL)        dm(NULL) ";
  202. 7180 [153]"/tantantantantantantantantan>tantantantantantantantantantan>tantantantantan>tantantantantantantantantantanexp ";
  203. 7190 [153]"                                        ";
  204. 7200 [153]"                 dm                   dm";
  205. 7210 [153]"                 dm                   dm";
  206. 7220 [153]"                 dm                   dm";
  207. 7230 [153]"                                        ";
  208. 7240 [139]ta[178]0[167][141]9000
  209. 7257 [129]i[178]1[164]as:q1[178]5[170]2[172]i:q2[178]1:[141]30340:[153]"sys"na$(i):[130]
  210. 7260 [151]v[170]16,2[174]7[170]2[174]6
  211. 7280 [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]
  212. 7290 [151]v[170]21,128[170]126
  213. 7295 [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
  214. 7999 [142]
  215. 8000 [143] ** namen eingeben *************
  216. 8010 [153]"load"
  217. 8020 [153]"   anzahl der spieler:":
  218. 8025 q1[178]4:q2[178]23:q3[178]1:q7[178]0:[153]"sys":[141]30000:as[178][197](q4$):[139]as[179][178]0[176]as[177]6[167]8025
  219. 8026 [153]
  220. 8030 [129]i[178]1[164]as
  221. 8040 [153]"      name"i"cmd. spieler:";
  222. 8055 q1[178]5[170]i[172]2:q2[178]23:q3[178]9:q7[178]0:[153]"sys";:[141]30000:na$(i)[178]q4$:[139]q4$[178]""[167]8055
  223. 8060 [130]i
  224. 8070 [129]i[178]1[164]as:gu(i)[178]500:[130]i
  225. 8200 [142]
  226. 9000 [143] ** guthaben anzeigen **********
  227. 9005 q1[178]19
  228. 9010 [129]i[178]1[164]as
  229. 9015 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]30340:[153]"sys";na$(i);
  230. 9020 za[178]gu(i):ql[178]6:[141]31000
  231. 9025 q2[178]9[171]21[172]([181](i[173]2)[178]i[173]2):[141]30340:[153]"sys";za$;
  232. 9030 [130]i:[142]
  233. 10000 [143] ** pferde an den start *******
  234. 10010 [141]195
  235. 10150 x(7)[178]20:::y(7)[178]a2[170]0[172]a1
  236. 10154 x(6)[178]x(7):y(6)[178]a2[170]1[172]a1
  237. 10155 x(5)[178]x(7):y(5)[178]a2[170]2[172]a1
  238. 10156 x(4)[178]x(7):y(4)[178]a2[170]3[172]a1
  239. 10157 x(3)[178]x(7):y(3)[178]a2[170]4[172]a1
  240. 10158 x(2)[178]x(7):y(2)[178]a2[170]5[172]a1
  241. 10159 x(1)[178]x(7):y(1)[178]a2[170]6[172]a1
  242. 10160 [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
  243. 10170 [142]
  244. 11000 [143] *** zwischenstart ************
  245. 11010 [151]v[170]21,254
  246. 11015 [129]i[178]1[164]ap:ru(i)[178]0:zi(i)[178]0:[130]i
  247. 11017 pl[178]0
  248. 11020 q1[178]24:q2[178]16:[141]30340:[153]"clr swaittart ";
  249. 11130 [161]i$:[139]i$[179][177]"s"[167]11130
  250. 11140 q1[178]24:q2[178]0:[141]30340:[153]"print#  (NULL)(NULL) (NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL) (NULL)close(NULL)(NULL)close(NULL)close(NULL)close(NULL)(NULL)(NULL)close(NULL)close(NULL)(NULL)close(NULL)(NULL)(NULL)(NULL)  ";
  251. 11150 [142]
  252. 12000 [143] *** gewinnverteilung/anzeige *
  253. 12005 ta[178]1:[141]7000
  254. 12006 [129]i[178]1[164]ap:q1[178]0:q2[178]7[170]4[172]i:[141]30340:[153]zi(i);:[130]
  255. 12010 [129]sp[178]1[164]as:gw(sp)[178]0
  256. 12012 [139]au(sp)[178]0[167]12055
  257. 12015 q1[178]5[170]sp[172]2:q2[178]20:[141]30340:[153]ps$(sp);
  258. 12017 q2[178]25:[141]30340:[153]pn(sp);
  259. 12020 [139]ps$(sp)[178]"s"[167]12040
  260. 12030 [139]zi(pn(sp))[179][178]3[167]gw(sp)[178]ei(sp)[172]2:[137]12050
  261. 12040 [139]zi(pn(sp))[178]1[167]gw(sp)[178]ei(sp)[172]6
  262. 12050 gu(sp)[178]gu(sp)[170]gw(sp)
  263. 12051 za[178]gw(sp):ql[178]6:[141]31000
  264. 12052 q1[178]5[170]sp[172]2:q2[178]28:[141]30340:[153]za$"wait";
  265. 12055 [130]sp:[141]9000
  266. 12070 q1[178]24:q2[178]0:[141]30340:[153]"        wwaitettannahme  shiftewaitnde ";
  267. 12080 [161]i$:[139]i$[179][177]"w"[175]i$[179][177]"val"[167]12080
  268. 12090 [142]
  269. 20000 [143] ** anleitung *****************
  270. 20020 [153]"loadclrjeder spieler erhaelt 500 dm - damit "
  271. 20030 [153]"geht's auf zur rennbahn!                ";
  272. 20050 [153]"                                        ";
  273. 20060 [153]"wettvorgang                             ";
  274. 20065 [153]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  275. 20070 [153]"tragen sie in der spalte 'sieg/platz'   ";
  276. 20080 [153]"den buchstaben s oder p ein. in die     ";
  277. 20090 [153]"spalte 'pferd' schreiben sie die nummer ";
  278. 20100 [153]"des pferdes, auf das sie setzen und in  ";
  279. 20110 [153]"die spalte 'einsatz' den geldbetrag, den";
  280. 20120 [153]"sie riskieren wollen.                   ";
  281. 20130 [153]"                                        ";
  282. 20140 [153]"gewinnberechnung                        ";
  283. 20145 [153]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  284. 20150 [153]"wenn sie auf den sieg (s) eines best. "
  285. 20160 [153]"pferdes gesetzt haben,versechsfacht sich";
  286. 20170 [153]"ihr einsatz beim sieg dieses pferdes.   ";
  287. 20180 [153]"wetten sie auf platz (p), verdoppelt"
  288. 20190 [153]"sich ihr einsatz, falls sich das pferd"
  289. 20200 [153]"auf das sie gesetzt haben, unter den"
  290. 20210 [153]"ersten drei befindet. "
  291. 20220 [153]"                                        ";
  292. 20230 [153]"bei fehleingaben taste 'del' noch vor   ";
  293. 20235 [153]"'return' druecken!                      ";
  294. 20240 [153]"                               bwaiteginn";
  295. 20250 [161]i$:[139]i$[179][177]"b"[167]20250
  296. 20260 [153]"load";:[142]
  297. 21000 [143] ** ende, sprites loeschen ****
  298. 21010 [151]v[170]21,0:[151]788,49:[153]"contload":[151]53280,14:[151]53281,6:[138]10
  299. 22000 [143] ** rundenanzahl bestim. ******
  300. 22005 [141]23000
  301. 22010 q1[178]23:q2[178]0:[141]30340:[153]"     anzahl der rundenclose(1-3):  wait      ";
  302. 22020 q1[178]23:q2[178]30:q3[178]1:q7[178]1:[141]30000:mr[178][197](q4$):[139]mr[179]1[176]mr[177]3[167]22020
  303. 22030 q1[178]23:q2[178]0:[141]30340:[153]"                                       ";
  304. 22040 [142]
  305. 23000 [143] ** zeile 24 loeschen *********
  306. 23010 q1[178]24:q2[178]0:[141]30340:[153]"                                      ";
  307. 23020 [142]
  308. 30000 [143] ** input at ******************
  309. 30010 q9[178]0:q8[178]1:[143] q8=1 (nur gerade z)
  310. 30020 [139]q1[177][171]1[167][141]30340:[137]30040
  311. 30030 q1[178][194](214):q2[178][194](211)[170]2
  312. 30040 [129]ii[178]1[164]q3:[153]" ";:[130]
  313. 30050 [141]30340
  314. 30060 q5[178]0:q4$[178]"":[151]1024[170]40[172]q1[170]q2,191
  315. 30070 [129]ii[178]631[164]640:[151]ii,0:[130]
  316. 30080 q5[178]q5[170]1
  317. 30090 [161]q6$:[139]q6$[178]""[167]30090
  318. 30100 [139][198](q6$)[178]32[175]q5[179][178]1[167]30090
  319. 30110 [139][198](q6$)[178]13[167][153]:[137]30370
  320. 30120 [139][198](q6$)[178]20[176][198](q6$)[178]157[167]30220
  321. 30130 [139]q7[178]1[167]30160
  322. 30140 [139][198](q6$)[179]32[176][198](q6$)[177]90[167]30090
  323. 30150 [137]30270
  324. 30160 [139][198](q6$)[177][178]48[175][198](q6$)[179][178]57[167]30270
  325. 30170 [139]q8[178]1[167]30190
  326. 30180 [139][198](q6$)[178]46[176][198](q6$)[178]44[167]q8[178]1:q6$[178]".":[137]30270
  327. 30190 [139]q9[178]1[167]30210
  328. 30200 [139][198](q6$)[178]45[175]q5[178]1[167]q9[178]1:[137]30270
  329. 30210 [137]30090
  330. 30220 [139]q5[179][178]1[167]30090
  331. 30230 q2[178]q2[171]1:[141]30340:q8$[178][202](q4$,q5[171]1,1):[139]q8$[178]"."[167]q8[178]0
  332. 30240 [139]q8$[178]"-"[167]q9[178]0
  333. 30250 [153]" ":[141]30340
  334. 30260 q4$[178][200](q4$,q5[171]2):q5[178]q5[171]1:[137]30090
  335. 30270 q4$[178]q4$[170]q6$
  336. 30280 [153]"";q6$;:q2[178]q2[170]1:[141]30340
  337. 30290 [139]q5[179]q3[167]30080
  338. 30300 q5[178]q3[170]1:[161]q6$:[139]q6$[178]""[167]30300
  339. 30310 [139][198](q6$)[178]20[176][198](q6$)[178]157[167]30220
  340. 30320 [139][198](q6$)[178]13[167][153]:[137]30370
  341. 30330 [137]30300
  342. 30340 [143] ** cursor positionieren ******
  343. 30350 [151]214,q1:[151]211,q2:[158]58640
  344. 30360 [142]
  345. 30370 [139]q4$[178]""[167]30000
  346. 30380 [142]
  347. 31000 [143] ** rechtsbund ****************
  348. 31005 za$[178][196]([181](za))
  349. 31010 ql[178]ql[170]1:[139]ql[177]14[167][153]"loadlaenge ql im up zu gross!!!":[128]
  350. 31020 [139][195](za$)[177]ql[167]za$[178]">1mio."
  351. 31040 za$[178][200]("                ",ql[171][195](za$))[170]za$
  352. 31050 [142]
  353.