home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 26 / Commodore_Disc_26_19xx_-_de.d64 / bundesligat. (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  9KB  |  311 lines
  1. 1 rem *********************************
  2. 2 rem *                               *
  3. 3 rem *       bebberle-software       *
  4. 4 rem *                               *
  5. 5 rem *       7620 oberwolfach        *
  6. 6 rem *                               *
  7. 7 rem *       tel:07834/6389          *
  8. 8 rem *                               *
  9. 9 rem *********************************
  10. 10 v=53248:s=54272:diml(34),ma$(18)
  11. 20 gosub1430:gosub2150:pokev+37,10:pokev+38,2:pokev+39,9:pokev+40,11:pokev+16,0
  12. 30 poke2041,11:pokev+28,3:pokev+2,166:pokev+3,225:pokev+21,2
  13. 40 gosub1830:fort=1to500:next
  14. 50 poke2040,bl+1:gosub2030
  15. 60 fori=1to60:pokev+2,166+i:pokev+3,211-i:next:gosub2090
  16. 70 fori=1to121:pokev+2,226-i:next:gosub2090
  17. 80 fori=1to24:pokev+2,105+i:pokev+3,151-i:next:gosub2090
  18. 90 fori=1to49:pokev+2,129+i:pokev+3,127+i:next:gosub2090:gosub1970:pokev+21,0
  19. 100 fort=1to150:next
  20. 110 fori=1to18:readma$(i):next
  21. 120 poke53280,0:poke53281,0:print"[147]":printtab(14)"[213][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  22. 130 printtab(14)"[221]auswahlmenue[221]"
  23. 140 printtab(14)"[202][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  24. 150 printtab(13)"[158]1[146] datei anlegen"
  25. 160 printtab(13)"[158]2[146] tabellenstand ansehen"
  26. 170 printtab(13)"[158]3[146] werte speichern"
  27. 180 printtab(13)"[158]4[146] werte laden"
  28. 190 printtab(13)"[158]5[146] drucken"
  29. 200 printtab(13)"[158]6[146] directory"
  30. 210 printtab(13)"[158]7[146] programmende"
  31. 220 print:printtab(13);:inputf$:iff$<"1"orf$>"7"then120
  32. 230 f=val(f$):onfgosub1000,460,590,690,810,870,940
  33. 240 goto120
  34. 250 poke53280,0:poke53281,0:print"[147]":gosub1200
  35. 260 forc=1to9:poke211,0:poke214,c:sys58640:printc;ma$(c):next
  36. 270 forc=10to18:poke211,20:poke214,c-9:sys58640:printc;ma$(c):next
  37. 280 print:input"[155]welche mannschaft:[150]";ma
  38. 290 ifma<1orma>18then250
  39. 300 print:input"[155]welches spieljahr (1988/89):";sj$
  40. 310 print""spc(10)"[158]alles ok? (j/n)"
  41. 320 geta$:ifa$<>"j"anda$<>"n"then310
  42. 330 ifa$="n"then250
  43. 340 print"[147][159]"
  44. 350 input"wieviele spieltage:";t1
  45. 360 ift1<1ort1>34then340
  46. 370 fori=1tot1
  47. 380 printi".spieltag: ";:inputl(i)
  48. 390 ifl(i)>18then380
  49. 400 next
  50. 410 gosub460:gosub1210:gosub1230
  51. 420 gosub1390
  52. 430 ifa$="n"then120
  53. 440 gosub590:return
  54. 450 return
  55. 460 print"[147]"
  56. 470 fori=1to18:print"[159]   [192][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219]":next
  57. 480 print"":fori=1to18:print"[158]";i:next
  58. 490 printtab(4)"0000000001[158]1111111112[158]2222222223[158]3333"
  59. 500 printtab(4)"1234567890[158]1234567890[158]1234567890[158]1234"
  60. 510 print""tab(5)""ma;ma$(ma);"[146]","";sj$
  61. 520 fora=1to34
  62. 530 ifl(a)=1thenpoke211,3+a:poke214,2+l(a):sys58640:print"[209]"
  63. 540 ifl(a)>1thenford=2tol(a):poke211,3+a:poke214,2+d:sys58640:print"[209]"
  64. 550 ifl(a)>1thenpoke211,3+a:poke214,2+d-1:sys58640:print"[159][219]":next
  65. 560 next
  66. 570 iff=2thengosub1210:gosub1230
  67. 580 return
  68. 590 gosub1320
  69. 600 print"[147][144]":poke53280,0:poke53281,15
  70. 610 poke211,9:poke214,7:sys58640:print"daten werden gespeichert!"
  71. 620 open1,8,15,"s:"+ma$(ma):close1
  72. 630 open2,8,2,ma$(ma)+",s,w"
  73. 640 print#2,ma$(ma):print#2,sj$:print#2,t1
  74. 650 fora=1to34:print#2,l(a):next:close2
  75. 660 print"[147]"
  76. 670 poke211,9:poke214,12:sys58640:print"daten sind gespeichert!"
  77. 680 fort=1to1500:next:return
  78. 690 gosub1320:gosub1200
  79. 700 print"[147][144]":poke53280,0:poke53281,15
  80. 710 forc=1to9:poke211,0:poke214,c:sys58640:printc;ma$(c):next
  81. 720 forc=10to18:poke211,20:poke214,c-9:sys58640:printc;ma$(c):next
  82. 730 print:input"welche mannschaft:[151]";ma
  83. 740 ifma<1orma>18then730
  84. 750 open2,8,2,ma$(ma)+",s,r"
  85. 760 input#2,ma$(ma):input#2,sj$:input#2,t1
  86. 770 fora=1to34:input#2,l(a):next:close2
  87. 780 gosub1230:print"[147]":poke53280,0:poke53281,0
  88. 790 poke211,9:poke214,12:sys58640:print"daten sind geladen !"
  89. 800 fort=1to500:next:gosub460:gosub1210:gosub1230:return
  90. 810 gosub1250:gosub460
  91. 820 open1,4:open2,3:print#1,chr$(14):print"";
  92. 830 fori=1to25:forj=1to20:get#2,t$:printchr$(20);:get#2,l$
  93. 840 printchr$(157)chr$(148)t$l$;:print#1,t$l$;:nextj:print#1:nexti
  94. 850 close2:close1
  95. 860 return
  96. 870 gosub900
  97. 880 gosub1210
  98. 890 goto120
  99. 900 print"[147] 0 ";:open1,8,0,"$":poke781,1:sys65478:geta$,a$,a$,a$:x$=chr$(0)
  100. 910 fori=1to7:geta$,b$,c$,d$:printa$b$c$d$;:next:print:geta$,a$,a$,b$
  101. 920 ifstthensys65484:close1:return
  102. 930 printasc(a$+x$)+256*asc(b$+x$);:goto910
  103. 940 print"[147]":poke53280,11:poke53281,15:poke646,6
  104. 950 poke211,12:poke214,10:sys58640:print"sicher (j/n)
  105. 960 [141]1210
  106. 970 [139]a$[179][177]"j"[175]a$[179][177]"n"[167]940
  107. 980 [139]a$[178]"n"[167][137]120
  108. 990 [153]"load":[151]53280,14:[151]53281,6:[151]646,14:[128]
  109. 1000 [153]"load":[151]53280,0:[151]53281,11
  110. 1010 [153]""[163]10)"stopnwaitsyseue datei anlegen"
  111. 1020 [153]""[163]10)"stopawaitsyslte datei ergaenzen"
  112. 1030 [151]211,8:[151]214,10:[158]58640:[133]"ihre wahl:";w$
  113. 1040 [139]w$[179][177]"n"[175]w$[179][177]"a"[167]1000
  114. 1050 [139]w$[178]"n"[167][141]250:[137]120
  115. 1060 [141]690
  116. 1070 [153]"  ";ma$(ma);"wait","";sj$
  117. 1080 [153]""[163]3)"sysvon spieltag   ";t1[170]1
  118. 1090 [153]""[163]3)"sysbis spieltag :";:[133]t2
  119. 1100 [139]t2[177]34[167]1070
  120. 1110 [153]"":[129]i[178]t1[170]1[164]t2
  121. 1120 [153]i".spieltag: ";:[133]l(i)
  122. 1130 [139]l(i)[177]18[167]1120
  123. 1140 [130]
  124. 1150 [136]t1[178]t2
  125. 1160 [141]460:[141]1210:[141]1230
  126. 1170 [141]1390
  127. 1180 [139]a$[178]"n"[167]120
  128. 1190 [141]590:[142]
  129. 1200 [129]a[178]1[164]34:l(a)[178]0:[130]:[142]
  130. 1210 [161]a$:[139]a$[178]""[167]1210
  131. 1220 [142]
  132. 1230 [129]i[178]0[164]12:[151]781,12[170]i:[158]59903:[151]781,12[171]i:[158]59903
  133. 1240 [129]t[178]1[164]30:[130]:[130]:[142]
  134. 1250 [159]1,4:[151]768,61
  135. 1260 [152]1:[160]1
  136. 1270 [151]768,139
  137. 1280 [139]st[179][177][171]128[167][142]
  138. 1290 [153]"load";
  139. 1300 [153]"drucker nicht eingeschaltet!"
  140. 1310 [141]1210:[137]120
  141. 1320 [151]768,61
  142. 1330 [159]1,8,15,"i":[160]1
  143. 1340 [151]768,139
  144. 1350 [139]st[179][177][171]128[167][142]
  145. 1360 [153]"load";
  146. 1370 [153]"floppy nicht eingeschaltet!"
  147. 1380 [141]1210:[137]120
  148. 1390 [153]"load":[153]""[163]10)"speichern (j/n)";:[133]a$
  149. 1400 [139]a$[179][177]"j"[175]a$[179][177]"n"[167]1390
  150. 1410 [139]a$[178]"n"[167][142]
  151. 1420 [142]
  152. 1430 [151]53281,6:[151]53280,0:[151]53272,21:[153]"loadsys";
  153. 1440 [153]"            b e b b e r l e
  154. 1450 print"                s o f t
  155. 1460 [153]"             praesentiert
  156. 1470 print"           NMNMNMNMNMNMNMNMNMN[165]
  157. 1480 [153][166]10)"NMNMNMNMNMNMNMNMNMNMfn
  158. 1490 printspc(9)"[169]                  {$7f}[146]M[165]
  159. 1500 [153][166]9)" waitNMNMNMNMNMNMNMNMNM waitMfn
  160. 1510 printspc(9)" [146]MNMNMNMNMNMNMNMNMN [146]M[165]
  161. 1520 [153][166]9)" waitNMNMNMNMNMNMNMNMNM waitMfn
  162. 1530 printspc(9)" [146]MNMNMNMNMNMNMNMNMN [146]M[165]
  163. 1540 [153]"  open(c)     waitNMNMNMNMNMNMNMNMNM waitMfn  open1988
  164. 1550 printspc(9)" [146]MNMNMNMNMNMNMNMNMN [146]M[165]
  165. 1560 [153][166]9)" waitNMNMNMNMNMNMNMNMNM waitMfn
  166. 1570 printspc(9)" [146]MNMNMNMNMNMNMNMNMN [146]M[165]
  167. 1580 [153]"   wait{$7d}  wait{$7d}                         wait{$7d}   wait{$7d}   ";
  168. 1590 [153]"   wait{$7d}  wait{$7d}                         wait{$7d}   wait{$7d}   ";
  169. 1600 [153]"   wait{$7d}  wait/{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}exp   wait{$7d}   ";
  170. 1610 [153]"   wait{$7d}                                wait{$7d}   ";
  171. 1620 [153]"   wait{$7d}               waitQ                wait{$7d}   ";
  172. 1630 [153]"   wait{$7d}                                wait{$7d}   ";
  173. 1640 [153]"   wait/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp  ";
  174. 1650 [151]2023,160:[151]56295,5
  175. 1660 [129]t[178]1[164]1000:[130]
  176. 1670 [153]"def"
  177. 1680 [153]"  step   (NULL)wait step  (NULL)wait    (NULL)wait    (NULL)wait  wait     wait       (NULL)wait
  178. 1690 print"     [146]    [146]   [146]  [146]   [146]  [146]     [146]     [146]     [146]
  179. 1700 [153]"     wait       wait     wait     wait  wait     wait       wait
  180. 1710 print"     [146]    [146]   [146]  [146]   [146]  [146]     [146]     [146]     [146]
  181. 1720 [153]"     wait    wait   wait    waitstep    waitstep    waitstep    waitstep    waitstep
  182. 1730 print"  [158][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
  183. 1740 [129]t[178]1[164]1000:[130]
  184. 1750 [129]i[178]1[164]5:[151]781,0[170]i:[158]59903:[130]
  185. 1760 [153]"    dies ist ein programm fuer die"
  186. 1770 [153]"  verwaltung der tabellenstaende der"
  187. 1780 [153]"    fussballbundesligamannschaften."
  188. 1790 a$[178]"printbebberle-software"
  189. 1800 [129]i[178]1[164][195](a$):[151]211,11:[151]214,19:[158]58640:[153][202](a$,1,i)
  190. 1810 [129]t[178]1[164]25:[130]:[130]
  191. 1820 [142]
  192. 1830 bl[178]192
  193. 1840 [151]v[170]28,3:[151]v[170]23,1:[151]v[170]29,1:[151]v[170]27,0
  194. 1850 [151]2040,bl
  195. 1860 [151]v,0:[151]v[170]1,200
  196. 1870 [151] v[170]21,3
  197. 1880 [129]x[178]1[164]140[169]2
  198. 1890 [151] v,x:[129]t[178]1[164]30:[130]
  199. 1900 [141]1930
  200. 1910 [130] x
  201. 1920 [142]
  202. 1930 bl[178]bl[170]1
  203. 1940 [139]bl[177]199[167]bl[178]192
  204. 1950 [151]2040,bl
  205. 1960 [142]
  206. 1970 [129]x[178]140[164]255[169]2
  207. 1980 [151] v,x:[129]t[178]1[164]30:[130]
  208. 1990 [141]1930
  209. 2000 [130] x
  210. 2010 [151]v[170]16,1:[129]x[178]1[164]65[169]2:[151]v,x:[129]t[178]1[164]30:[130]:[141]1930:[130]
  211. 2020 [142]
  212. 2030 [151]s[170]5,16[172]0[170]10:[151]s[170]6,16[172]0[170]8:[151]s[170]2,2048[175]255:[151]s[170]3,2048[173]256
  213. 2040 hi[178][181](3000[173]256):lo[178]3000[171]256[172]hi
  214. 2050 [151]s,lo:[151]s[170]1,hi:[151]s[170]22,50:[151]s[170]23,0:[151]s[170]24,15
  215. 2060 [151]s[170]4,128[176]1
  216. 2070 [129]i[178]1[164]50:[130]
  217. 2080 [151]s[170]4,128[175]254:[142]
  218. 2090 [151]s[170]5,16[172]0[170]10:[151]s[170]6,16[172]0[170]8:[151]s[170]2,2048[175]255:[151]s[170]3,2048[173]256
  219. 2100 hi[178][181](2340[173]256):lo[178]2340[171]256[172]hi
  220. 2110 [151]s,lo:[151]s[170]1,hi:[151]s[170]22,50:[151]s[170]23,0:[151]s[170]24,15
  221. 2120 [151]s[170]4,16[176]1
  222. 2130 [129]i[178]1[164]100:[130]
  223. 2140 [151]s[170]4,16[175]254:[142]
  224. 2150 [129]n[178]12288[164]12350:[135]q:[151]n,q:[130]
  225. 2160 [129]n[178]12352[164]12414:[135]q:[151]n,q:[130]
  226. 2170 [129]n[178]12416[164]12478:[135]q:[151]n,q:[130]
  227. 2180 [129]n[178]12480[164]12542:[135]q:[151]n,q:[130]
  228. 2190 [129]n[178]12544[164]12606:[135]q:[151]n,q:[130]
  229. 2200 [129]n[178]12608[164]12670:[135]q:[151]n,q:[130]
  230. 2210 [129]n[178]12672[164]12734:[135]q:[151]n,q:[130]
  231. 2220 [129]n[178]12736[164]12798:[135]q:[151]n,q:[130]
  232. 2230 [129]n[178]704[164]766:[135]q:[151]n,q:[130]:[142]
  233. 2240 [143] ****************
  234. 2250 [131]0,160,0,2,168,0,2,145,64
  235. 2260 [131]10,85,64,10,85,0,40,84,0
  236. 2270 [131]0,208,0,0,240,0,1,124,0
  237. 2280 [131]5,255,0,23,255,0,23,255,64
  238. 2290 [131]5,255,80,1,252,80,0,168,0
  239. 2300 [131]0,170,0,2,250,128,10,194,128
  240. 2310 [131]91,2,128,92,6,128,21,69,84
  241. 2320 [143] ****************
  242. 2330 [131]0,160,0,2,168,0,2,145,64
  243. 2340 [131]10,85,64,10,85,0,40,84,0
  244. 2350 [131]0,208,0,0,240,0,3,124,0
  245. 2360 [131]1,127,0,1,255,0,5,255,0
  246. 2370 [131]1,255,64,1,125,64,0,105,0
  247. 2380 [131]0,170,0,0,250,0,2,186,0
  248. 2390 [131]10,202,0,27,40,0,21,85,64
  249. 2400 [143] *****************
  250. 2410 [131]0,160,0,2,168,0,2,145,64
  251. 2420 [131]10,85,64,10,85,0,8,84,0
  252. 2430 [131]32,208,0,0,240,0,3,124,0
  253. 2440 [131]3,127,0,13,127,0,13,127,0
  254. 2450 [131]15,95,0,3,92,0,2,148,0
  255. 2460 [131]0,171,0,0,235,0,2,168,0
  256. 2470 [131]1,232,0,1,160,0,1,85,64
  257. 2480 [143] *****************
  258. 2490 [131]0,160,0,2,168,0,2,145,64
  259. 2500 [131]10,85,64,10,85,0,40,84,0
  260. 2510 [131]0,208,0,0,240,0,3,124,0
  261. 2520 [131]3,95,0,15,95,0,15,95,0
  262. 2530 [131]15,215,0,3,213,0,2,169,0
  263. 2540 [131]0,171,0,0,171,128,2,174,128
  264. 2550 [131]10,186,0,10,21,0,5,85,64
  265. 2560 [143] ******************
  266. 2570 [131]0,160,0,2,168,0,2,145,64
  267. 2580 [131]10,85,64,42,85,0,8,84,0
  268. 2590 [131]0,208,0,0,240,0,3,124,0
  269. 2600 [131]3,95,0,15,95,0,15,215,0
  270. 2610 [131]31,213,0,23,245,64,2,169,64
  271. 2620 [131]2,168,0,2,186,0,10,142,128
  272. 2630 [131]106,14,128,104,14,128,85,5,84
  273. 2640 [143] ******************
  274. 2650 [131]0,160,0,2,168,0,2,145,64
  275. 2660 [131]10,85,64,42,85,0,8,84,0
  276. 2670 [131]0,208,0,0,240,0,3,124,0
  277. 2680 [131]3,95,0,15,95,0,15,95,0
  278. 2690 [131]15,95,0,7,215,0,6,149,0
  279. 2700 [131]2,168,0,2,171,0,2,186,0
  280. 2710 [131]2,186,0,10,232,0,5,85,80
  281. 2720 [143] ******************
  282. 2730 [131]0,160,0,2,168,0,2,145,64
  283. 2740 [131]10,85,64,10,85,0,40,84,0
  284. 2750 [131]0,208,0,0,240,0,3,124,0
  285. 2760 [131]3,127,0,13,127,0,13,127,0
  286. 2770 [131]15,95,0,3,95,0,2,148,0
  287. 2780 [131]2,168,0,2,168,0,2,168,0
  288. 2790 [131]11,40,0,31,40,0,21,85,0
  289. 2800 [143] *******************
  290. 2810 [131]0,160,0,2,168,0,2,145,64
  291. 2820 [131]10,85,64,10,85,0,8,84,0
  292. 2830 [131]32,208,0,0,240,0,3,124,0
  293. 2840 [131]1,127,0,13,127,0,5,255,0
  294. 2850 [131]5,255,0,1,127,0,1,93,0
  295. 2860 [131]2,168,0,2,168,0,10,234,0
  296. 2870 [131]27,10,0,20,10,0,5,69,80
  297. 2880 [143] ********************
  298. 2890 [131]0,0,0,0,0,0,0,20,0
  299. 2900 [131]0,85,0,1,85,64,5,85,80
  300. 2910 [131]21,89,84,21,106,84,85,170,85
  301. 2920 [131]85,170,85,85,169,85,85,101,85
  302. 2930 [131]85,85,85,21,85,84,21,85,84
  303. 2940 [131]5,85,80,1,85,64,0,85,0
  304. 2950 [131]0,20,0,0,0,0,0,0,0
  305. 2960 [143] *********************
  306. 2970 [131]"bor.m'gladbach","bayern muenchen","karlsruher sc","vfb stuttgart"
  307. 2980 [131]"vfl bochum","werder bremen","1.fc nuernberg","waldhof mannheim"
  308. 2990 [131]"bayer leverkusen","1.fc koeln","bayer uerdingen","hannover 96"
  309. 3000 [131]"bor.dortmund","stuttg.kickers","hamburger sv","st.pauli hamburg"
  310. 3010 [131]"1.fc kaisersl.","eintr.frankfurt"
  311.