home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 49 / Commodore_Disc_49_19xx_-_de.d64 / tabelle.64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  11KB  |  440 lines
  1. 10 rem ========================64
  2. 20 rem (p) commodore disc      ==
  3. 30 rem ==========================
  4. 40 rem (c) by                  ==
  5. 50 rem     holger traczinski   ==
  6. 60 rem                         ==
  7. 70 rem version 2.0   40z./ascii==
  8. 80 rem  c-64  floppy           ==
  9. 90 rem ==========================
  10. 95 gosub 60000
  11. 100 poke646,0:poke53280,13:poke53281,13
  12. 110 rem *** datas ***
  13. 120 rem 1.liga mannschaften
  14. 130 data werder bremen
  15. 140 data bayern muenchen
  16. 150 data 1.fc koeln
  17. 160 data vfb stuttgart
  18. 170 data 1.fc nuernberg
  19. 180 data hamburger sv
  20. 190 data bor. m'gladbach
  21. 200 data bayer leverkusen
  22. 210 data eintr. frankfurt
  23. 220 data hannover 96
  24. 230 data bayer uerdingen
  25. 240 data vfl bochum
  26. 250 data bor. dortmund
  27. 260 data 1.fc k'lautern
  28. 270 data karlsruher sc
  29. 280 data waldhof mannheim
  30. 290 data s'garter kickers
  31. 300 data fc st. pauli
  32. 310 rem 2.liga mannschaften
  33. 320 data fc homburg/saar
  34. 330 data fc schalke 04
  35. 340 data darmstadt 98
  36. 350 data wattenscheid 09
  37. 360 data for. duesseldorf
  38. 370 data alemannia aachen
  39. 380 data bw 90 berlin
  40. 390 data kickers off'bach
  41. 400 data vfl osnabrueck
  42. 410 data sc freiburg
  43. 420 data rot-weiss essen
  44. 430 data fortuna koeln
  45. 440 data 1.fc s'bruecken
  46. 450 data sv meppen
  47. 460 data union solingen
  48. 470 data rw oberhausen
  49. 480 data viktoria a'burg
  50. 490 data fsv mainz 05
  51. 500 data eintr. b'schweig
  52. 510 data hertha bsc b'lin
  53. 520 rem *** variable + sprung zum hauptmenu ***
  54. 530 dimm$(20,2):rem m$=mannschaften
  55. 540 dimppkt(20,2):rem ppkt=pluspunkte
  56. 550 dimmpkt(20,2):rem mpkt=minuspunkte
  57. 560 dimpt(20,2):rem pt=plustore
  58. 570 dimmt(20,2):remmt=minustore
  59. 580 dimdf(20,2):rem tordifferenz
  60. 590 dimhm$(19),am$(19),ht(19),at(19):rem heim-,auswaertsmanschaft,-tore
  61. 600 dims(20,2):dimg(20,2):dimu(20,2):dimv(20,2):remspiel,gewonn.,unent.,verlo.
  62. 610 printcl$
  63. 620 sch=18:lg=1:fori=1to18:readm$(i,1):nexti:fori=1to20:readm$(i,2):nexti
  64. 630 goto4040
  65. 640 rem *** ergebniseingabe ***
  66. 650 printcl$:w=0
  67. 660 ifsch=18thent=1
  68. 670 ifsch=20thent=10
  69. 680 print" w-andere mannschaften ; e-ende"
  70. 690 ifsch=18thenforz=1to9
  71. 700 ifsch=20thenforz=10to19
  72. 710 hm$(z)="":am$(z)="":ht(z)=0:at(z)=0
  73. 720 nextz
  74. 730 ifsch=18thenfori=1+wto9+w:goto760
  75. 740 ifsch=20thenfori=1+wto10+w
  76. 750 ifi=10ori=20thenprint" 0 - "m$(i,lg)"      ":goto770
  77. 760 printi-w"- "m$(i,lg)"      "
  78. 770 nexti
  79. 780 geta$:ifa$=""then780
  80. 790 ifa$="w"then820
  81. 800 ifa$="e"then1200
  82. 810 goto870
  83. 820 ifsch=18andw=0thenw=9:goto860
  84. 830 ifsch=18andw=9thenw=0
  85. 840 ifsch=20andw=0thenw=10:goto860
  86. 850 ifsch=20andw=10thenw=0
  87. 860 printhe$c4$:goto730
  88. 870 ifa$<>"1"anda$<>"2"anda$<>"3"anda$<>"4"anda$<>"5"anda$<>"6"thenq=1
  89. 880 ifq=1anda$<>"7"anda$<>"8"anda$<>"9"anda$<>"0"thenq=0:goto780
  90. 890 q=0
  91. 900 ifsch=18anda$="0"then780
  92. 910 ifsch=18thens1=9
  93. 920 ifsch=20thensp2=10
  94. 930 ifa$="0"thena=10
  95. 940 ifa$="1"thena=1
  96. 950 ifa$="2"thena=2
  97. 960 ifa$="3"thena=3
  98. 970 ifa$="4"thena=4
  99. 980 ifa$="5"thena=5
  100. 990 ifa$="6"thena=6
  101. 1000 ifa$="7"thena=7
  102. 1010 ifa$="8"thena=8
  103. 1020 ifa$="9"thena=9
  104. 1030 ift=1andm=0ort=10andm=0thenprint:goto1120
  105. 1040 ift=1andhm$(t)<>m$(a+w,lg)ort=10andhm$(t)<>m$(a+w,lg)thenprint:goto1120
  106. 1050 ift=1ort=10then780
  107. 1060 ifsch=18thenfori=1tot:ifhm$(i)=m$(a+w,lg)oram$(i)=m$(a+w,lg)then780
  108. 1070 ifsch=18thennexti
  109. 1080 ifsch=20thenfori=10tot:ifhm$(i)=m$(a+w,lg)oram$(i)=m$(a+w,lg)then780
  110. 1090 ifsch=20thennexti
  111. 1100 ifsch=18andt>1thenfork=1tot:print:nextk
  112. 1110 ifsch=20andt>10thenfork=1tot-9:print:nextk
  113. 1120 ifm=0thenhm$(t)=m$(a+w,lg):printhm$(t)"-":m=1:printhe$c4$:goto730
  114. 1130 ifm=1thenam$(t)=m$(a+w,lg):printtab(17)am$(t)
  115. 1140 printc2$tab(33):inputht(t)
  116. 1150 printc2$tab(33);ht(t)c1$":";:inputat(t)
  117. 1160 printc2$tab(33);ht(t)c1$":";at(t)c1$" ":m=0:t=t+1
  118. 1170 ifsch=18andt=10thengoto1250
  119. 1180 ifsch=20andt=20thengoto1250
  120. 1190 printhe$c4$:goto730
  121. 1200 ifm=1thenhm$(t)=""
  122. 1210 ifsch=18thens1=t-1
  123. 1220 ifsch=20thensp2=t-10
  124. 1230 ifsch=18andt>1thenfork=1tot:print:nextk
  125. 1240 ifsch=20andt>10thenfork=1tot-9:print:nextk
  126. 1250 print"umwandeln ?"
  127. 1260 geta$:ifa$=""then1260
  128. 1270 ifa$="n"thenreturn
  129. 1280 ifa$="j"thengoto1300
  130. 1290 goto1260
  131. 1300 rem *** ergebnisse umwandeln ***
  132. 1310 print"ich wandle um"
  133. 1320 ifsch=18thenforz=1tos1
  134. 1330 ifsch=20thenforz=10tosp2+9
  135. 1340 fori=1tosch
  136. 1350 ifm$(i,lg)=hm$(z)thenpt(i,lg)=pt(i,lg)+ht(z):mt(i,lg)=mt(i,lg)+at(z)
  137. 1360 ifm$(i,lg)=hm$(z)thendf(i,lg)=df(i,lg)+ht(z)-at(z):s(i,lg)=s(i,lg)+1:goto1380
  138. 1370 nexti:goto1420
  139. 1380 ifht(z)>at(z)thenppkt(i,lg)=ppkt(i,lg)+2:g(i,lg)=g(i,lg)+1
  140. 1390 ifht(z)=at(z)thenppkt(i,lg)=ppkt(i,lg)+1:mpkt(i,lg)=mpkt(i,lg)+1
  141. 1400 ifht(z)=at(z)thenu(i,lg)=u(i,lg)+1
  142. 1410 ifht(z)<at(z)thenmpkt(i,lg)=mpkt(i,lg)+2:v(i,lg)=v(i,lg)+1
  143. 1420 nextz
  144. 1430 ifsch=18thenforz=1tos1
  145. 1440 ifsch=20thenforz=10tosp2+9
  146. 1450 fori=1tosch
  147. 1460 ifm$(i,lg)=am$(z)thenpt(i,lg)=pt(i,lg)+at(z):mt(i,lg)=mt(i,lg)+ht(z)
  148. 1470 ifm$(i,lg)=am$(z)thendf(i,lg)=df(i,lg)+at(z)-ht(z):s(i,lg)=s(i,lg)+1:goto1490
  149. 1480 nexti:goto1530
  150. 1490 ifat(z)>ht(z)thenppkt(i,lg)=ppkt(i,lg)+2:g(i,lg)=g(i,lg)+1
  151. 1500 ifht(z)=at(z)thenppkt(i,lg)=ppkt(i,lg)+1:mpkt(i,lg)=mpkt(i,lg)+1
  152. 1510 ifht(z)=at(z)thenu(i,lg)=u(i,lg)+1
  153. 1520 ifat(z)<ht(z)thenmpkt(i,lg)=mpkt(i,lg)+2:v(i,lg)=v(i,lg)+1
  154. 1530 nextz
  155. 1540 rem *** tabelle sortieren ***
  156. 1550 print"ich sortiere..."
  157. 1560 vert=0
  158. 1570 fori=1tosch-1
  159. 1580 ifppkt(i,lg)>ppkt(i+1,lg)then1770
  160. 1590 ifppkt(i,lg)=ppkt(i+1,lg)andmpkt(i,lg)<mpkt(i+1,lg)then1770
  161. 1600 ifppkt(i,lg)=ppkt(i+1,lg)andmpkt(i,lg)=mpkt(i+1,lg)thenq=1
  162. 1610 ifq=1anddf(i,lg)>df(i+1,lg)thenq=0:goto1770
  163. 1620 q=0
  164. 1630 ifppkt(i,lg)=ppkt(i+1,lg)andmpkt(i,lg)=mpkt(i+1,lg)anddf(i,lg)=df(i+1,lg)thenq=1
  165. 1640 ifq=1anddf(i,lg)=df(i+1,lg)andpt(i,lg)>=pt(i+1,lg)thenq=0:goto1770
  166. 1650 q=0
  167. 1660 z$=m$(i,lg):z1=ppkt(i,lg):z2=mpkt(i,lg):z3=pt(i,lg)
  168. 1670 z4=mt(i,lg):z5=df(i,lg)
  169. 1680 z6=s(i,lg):z7=g(i,lg):z8=u(i,lg):z9=v(i,lg)
  170. 1690 m$(i,lg)=m$(i+1,lg):ppkt(i,lg)=ppkt(i+1,lg)
  171. 1700 mpkt(i,lg)=mpkt(i+1,lg)
  172. 1710 pt(i,lg)=pt(i+1,lg):mt(i,lg)=mt(i+1,lg):df(i,lg)=df(i+1,lg)
  173. 1720 s(i,lg)=s(i+1,lg):g(i,lg)=g(i+1,lg):u(i,lg)=u(i+1,lg):v(i,lg)=v(i+1,lg)
  174. 1730 m$(i+1,lg)=z$:ppkt(i+1,lg)=z1:mpkt(i+1,lg)=z2:pt(i+1,lg)=z3
  175. 1740 mt(i+1,lg)=z4
  176. 1750 df(i+1,lg)=z5:s(i+1,lg)=z6:g(i+1,lg)=z7:u(i+1,lg)=z8:v(i+1,lg)=z9
  177. 1760 vert=1
  178. 1770 nexti
  179. 1780 ifvert=1then1560
  180. 1790 return
  181. 1800 rem *** tabelle zeigen ***
  182. 1810 printcl$:poke53265,11
  183. 1820 ifsch=18thenprint"           1.liga:"
  184. 1830 ifsch=20thenprint"           2.liga:"
  185. 1840 print" tabelle:            sp dif  tore  pkt  "
  186. 1850 fori=1tosch
  187. 1860 ifi<10thenprint" "i;c1$"."m$(i,lg):goto1880
  188. 1870 printi;c1$"."m$(i,lg)
  189. 1880 x=s(i,lg):gosub2070
  190. 1890 printc2$tab(22-se);s(i,lg)
  191. 1900 x=df(i,lg):gosub2070
  192. 1910 ifx>0thenprintc2$tab(26-se);df(i,lg):printc2$tab(26-se)"+":goto1930
  193. 1920 printc2$tab(26-se);df(i,lg)
  194. 1930 x=pt(i,lg):gosub2070
  195. 1940 printc2$tab(29-se);pt(i,lg)
  196. 1950 x=mt(i,lg):gosub2070
  197. 1960 printc2$tab(32-se);mt(i,lg)
  198. 1970 x=ppkt(i,lg):gosub2070
  199. 1980 printc2$tab(35-se);ppkt(i,lg)
  200. 1990 x=mpkt(i,lg):gosub2070
  201. 2000 printc2$tab(38-se);mpkt(i,lg)
  202. 2010 printc2$c2$tab(30);":"
  203. 2020 printc2$tab(36);":"
  204. 2030 nexti
  205. 2040 poke53265,27
  206. 2050 geta$:ifa$=""then2050
  207. 2060 return
  208. 2070 rem *** stellenzahl ***
  209. 2080 se=0
  210. 2090 v=1:v1=-1
  211. 2100 ifx=0thense=1:return
  212. 2110 ifx>0andx<vthen2160
  213. 2120 ifx<0andx>v1then2160
  214. 2130 se=se+1
  215. 2140 v=v*10:v1=v1*10
  216. 2150 goto2110
  217. 2160 return
  218. 2170 rem *** tabelle abspeichern ***
  219. 2180 print"tabelle abspeichern"
  220. 2190 print"wirklich ?"
  221. 2200 geta$:ifa$=""then2200
  222. 2210 ifa$<>"j"thengoto4040
  223. 2220 nam$="tab"
  224. 2230 open15,8,15,"s:tab"
  225. 2240 close15
  226. 2250 open1,8,1,nam$
  227. 2260 fori=1to18
  228. 2270 print#1,m$(i,1):print#1,ppkt(i,1):print#1,mpkt(i,1)
  229. 2280 print#1,pt(i,1)
  230. 2290 print#1,mt(i,1):print#1,df(i,1):print#1,s(i,1):print#1,g(i,1)
  231. 2300 print#1,u(i,1):print#1,v(i,1)
  232. 2310 nexti
  233. 2320 fori=1to20
  234. 2330 print#1,m$(i,2):print#1,ppkt(i,2):print#1,mpkt(i,2)
  235. 2340 print#1,pt(i,2):print#1,mt(i,2):print#1,df(i,2):print#1,df(i,2)
  236. 2350 print#1,s(i,2):print#1,g(i,2):print#1,u(i,2):print#1,v(i,2):nexti
  237. 2360 close1
  238. 2370 return
  239. 2380 rem *** tabelle einlesen ***
  240. 2390 print"tabelle einlesen"
  241. 2400 nam$="tab"
  242. 2410 open1,8,0,nam$
  243. 2420 fori=1to18
  244. 2430 input#1,m$(i,1):input#1,ppkt(i,1):input#1,mpkt(i,1)
  245. 2440 input#1,pt(i,1)
  246. 2450 input#1,mt(i,1):input#1,df(i,1):input#1,s(i,1):input#1,g(i,1)
  247. 2460 input#1,u(i,1):input#1,v(i,1)
  248. 2470 nexti
  249. 2480 fori=1to20
  250. 2490 input#1,m$(i,2):input#1,ppkt(i,2):input#1,mpkt(i,2)
  251. 2500 input#1,pt(i,2):input#1,mt(i,2):input#1,df(i,2):input#1,df(i,2)
  252. 2510 input#1,s(i,2):input#1,g(i,2):input#1,u(i,2):input#1,v(i,2):nexti
  253. 2520 close1
  254. 2530 iflg=1thensch=18:return
  255. 2540 sch=20:return
  256. 2550 rem *** tabelle drucken ***
  257. 2560 print"schoenschrift?"
  258. 2570 geta$:ifa$=""then2570
  259. 2580 ifa$="j"thenss=31
  260. 2590 ifa$<>"j"thenss=159
  261. 2600 fori=1tosch
  262. 2610 print"ich drucke"
  263. 2620 open1,4
  264. 2630 ifsch=18thenk$=" (1.liga)"
  265. 2640 ifsch=20thenk$=" (2.liga)"
  266. 2650 print#1,chr$(ss)" tabelle";k$;"            sp   ge   un   ve     tore  ";
  267. 2660 print#1,chr$(ss)"  dif     punkte"
  268. 2670 fori=1tosch
  269. 2680 ifi<10thenprint#1," "i;". ";m$(i,lg);:goto2700
  270. 2690 print#1,i;". ";m$(i,lg);
  271. 2700 x=s(i,lg):gosub2070
  272. 2710 print#1,tab(24-len(m$(i,lg))-se);s(i,lg);
  273. 2720 x=g(i,lg):gosub2070
  274. 2730 print#1,tab(3-se);g(i,lg);
  275. 2740 x=u(i,lg):gosub2070
  276. 2750 print#1,tab(3-se);u(i,lg);
  277. 2760 x=v(i,lg):gosub2070
  278. 2770 print#1,tab(3-se);v(i,lg);
  279. 2780 x=pt(i,lg):gosub2070
  280. 2790 print#1,tab(3-se);pt(i,lg);":";
  281. 2800 x=mt(i,lg):gosub2070
  282. 2810 print#1,tab(2-se);mt(i,lg);
  283. 2820 x=df(i,lg):gosub2070
  284. 2830 print#1,tab(4-se);df(i,lg);
  285. 2840 x=ppkt(i,lg):gosub2070
  286. 2850 print#1,tab(4-se);ppkt(i,lg);":";
  287. 2860 x=mpkt(i,lg):gosub2070
  288. 2870 print#1,tab(2-se);mpkt(i,lg)
  289. 2880 nexti
  290. 2890 close1
  291. 2900 return
  292. 2910 rem *** ligen wechseln ***
  293. 2920 print"ich wechsel.";
  294. 2930 ifsch=18thenlg=2:sch=20:return
  295. 2940 sch=18:lg=1:return
  296. 2950 rem *** ende ***
  297. 2960 print"wirklich ?"
  298. 2970 geta$:ifa$=""then2970
  299. 2980 ifa$<>"j"thenreturn
  300. 2990 end
  301. 3000 rem *** ergebnisse zeigen ***
  302. 3010 printcl$:poke53265,11
  303. 3020 ifsch=18ands1<1thenreturn
  304. 3030 ifsch=20andsp2<1thenreturn
  305. 3040 ifsch=18thenforz=1tos1
  306. 3050 ifsch=20thenforz=10tosp2+9
  307. 3060 fori=1tosch
  308. 3070 ifhm$(z)=m$(i,lg)then3090
  309. 3080 nexti
  310. 3090 printm$(i,lg)"-";
  311. 3100 fori=1tosch
  312. 3110 ifam$(z)=m$(i,lg)then3130
  313. 3120 nexti
  314. 3130 printm$(i,lg)
  315. 3140 x=ht(z):gosub2070
  316. 3150 printc2$tab(34-se);ht(z)
  317. 3160 printc2$tab(35);at(z)
  318. 3170 printc2$tab(35)":"
  319. 3180 print:nextz:poke53265,27
  320. 3190 geta$:ifa$=""then3190
  321. 3200 return
  322. 3210 rem *** ergebnisse drucken ***
  323. 3220 ifsch=18ands1<1thenreturn
  324. 3230 ifsch=20andsp2<1thenreturn
  325. 3240 open1,4
  326. 3250 print"schoenschrift?"
  327. 3260 geta$:ifa$=""then3260
  328. 3270 ifa$="j"thenss=31
  329. 3280 ifa$<>"j"thenss=159
  330. 3290 ifsch=18thenforz=1tos1
  331. 3300 ifsch=20thenforz=10tosp2+9
  332. 3310 fori=1tosch
  333. 3320 ifhm$(z)=m$(i,lg)thenl=len(m$(i,lg)):goto3340
  334. 3330 nexti
  335. 3340 print#1,chr$(ss)"  ";m$(i,lg);"-";
  336. 3350 fori=1tosch
  337. 3360 ifam$(z)=m$(i,lg)then3380
  338. 3370 nexti
  339. 3380 print#1,m$(i,lg);tab(42-l-len(m$(i,lg)));ht(z);":";at(z)
  340. 3390 nextz
  341. 3400 close1
  342. 3410 return
  343. 3420 rem *** ergebnisse aendern ***
  344. 3430 ifsch=18ands1<1thenreturn
  345. 3440 ifsch=20andsp2<1thenreturn
  346. 3450 printcl$
  347. 3460 print"a-endern oder e-nde"
  348. 3470 geta$:ifa$=""then3470
  349. 3480 ifa$="e"thengosub1540:return
  350. 3490 ifa$<>"a"then3470
  351. 3500 printcl$
  352. 3510 ifsch=18thenforz=1tos1
  353. 3520 ifsch=20thenforz=10tosp2+9
  354. 3530 printz;hm$(z)"-";am$(z)
  355. 3540 printc2$tab(33);ht(z)
  356. 3550 printc2$tab(35);at(z)
  357. 3560 printc2$tab(35)":"
  358. 3570 nextz
  359. 3580 print"welches spiel soll geaendert werden,"
  360. 3590 print"nummer ";:inputz
  361. 3600 ifsch=18andz>9orsch=18andz<1then3590
  362. 3610 ifsch=20andz<10orsch=20andz>19then3590
  363. 3620 ifsch=18andz>s1then3590
  364. 3630 ifsch=20andz>sp2then3590
  365. 3640 fori=1tosch
  366. 3650 ifm$(i,lg)=hm$(z)then3670
  367. 3660 nexti
  368. 3670 ifht(z)>at(z)thenppkt(i,lg)=ppkt(i,lg)-2:g(i,lg)=g(i,lg)-1
  369. 3680 ifht(z)=at(z)thenppkt(i,lg)=ppkt(i,lg)-1:mpkt(i,lg)=mpkt(i,lg)-1
  370. 3690 ifht(z)=at(z)thenu(i,lg)=u(i,lg)-1
  371. 3700 ifht(z)<at(z)thenmpkt(i,lg)=mpkt(i,lg)-2:v(i,lg)=v(i,lg)-1
  372. 3710 pt(i,lg)=pt(i,lg)-ht(z)
  373. 3720 mt(i,lg)=mt(i,lg)-at(z):df(i,lg)=df(i,lg)+at(z)-ht(z)
  374. 3730 fori=1tosch
  375. 3740 ifm$(i,lg)=am$(z)then3760
  376. 3750 nexti
  377. 3760 ifat(z)>ht(z)thenppkt(i,lg)=ppkt(i,lg)-2:g(i,lg)=g(i,lg)-1
  378. 3770 ifht(z)=at(z)thenppkt(i,lg)=ppkt(i,lg)-1:mpkt(i,lg)=mpkt(i,lg)-1
  379. 3780 ifht(z)=at(z)thenu(i,lg)=u(i,lg)-1
  380. 3790 ifat(z)<ht(z)thenmpkt(i,lg)=mpkt(i,lg)-2:v(i,lg)=v(i,lg)-1
  381. 3800 pt(i,lg)=pt(i,lg)-at(z)
  382. 3810 mt(i,lg)=mt(i,lg)-ht(z):df(i,lg)=df(i,lg)+ht(z)-at(z)
  383. 3820 printhm$(z)"-"am$(z)
  384. 3830 printc2$tab(33);:inputht(z)
  385. 3840 printc2$tab(33);ht(z)c1$":";:inputat(z)
  386. 3850 fori=1tosch
  387. 3860 ifm$(i,lg)=hm$(z)then3880
  388. 3870 nexti
  389. 3880 ifht(z)>at(z)thenppkt(i,lg)=ppkt(i,lg)+2:g(i,lg)=g(i,lg)+1
  390. 3890 ifht(z)=at(z)thenppkt(i,lg)=ppkt(i,lg)+1:mpkt(i,lg)=mpkt(i,lg)+1
  391. 3900 ifht(z)=at(z)thenu(i,lg)=u(i,lg)+1
  392. 3910 ifht(z)<at(z)thenmpkt(i,lg)=mpkt(i,lg)+2:v(i,lg)=v(i,lg)+1
  393. 3920 pt(i,lg)=pt(i,lg)+ht(z):mt(i,lg)=mt(i,lg)+at(z)
  394. 3930 df(i,lg)=df(i,lg)+ht(z)-at(z)
  395. 3940 fori=1tosch
  396. 3950 ifm$(i,lg)=am$(z)then3970
  397. 3960 nexti
  398. 3970 ifht(z)<at(z)thenppkt(i,lg)=ppkt(i,lg)+2:g(i,lg)=g(i,lg)+1
  399. 3980 ifht(z)=at(z)thenppkt(i,lg)=ppkt(i,lg)+1:mpkt(i,lg)=mpkt(i,lg)+1
  400. 3990 ifht(z)=at(z)thenu(i,lg)=u(i,lg)+1
  401. 4000 ifht(z)>at(z)thenmpkt(i,lg)=mpkt(i,lg)+2:v(i,lg)=v(i,lg)+1
  402. 4010 pt(i,lg)=pt(i,lg)+at(z):mt(i,lg)=mt(i,lg)+ht(z)
  403. 4020 df(i,lg)=df(i,lg)+at(z)-ht(z)
  404. 4030 goto3450
  405. 4040 rem *** menu ***
  406. 4050 printcl$
  407. 4060 poke53265,11
  408. 4070 iflg=1thenprint"                 1.liga":goto4090
  409. 4080 print"                 2.liga"
  410. 4090 print:print:print
  411. 4100 print"     ergebnisse eingeben....1"
  412. 4110 print"     ergebnisse zeigen......2"
  413. 4120 print"     ergebnisse aendern.....3"
  414. 4130 print"     ergebnisse drucken.....4"
  415. 4140 print"     tabelle zeigen.........5"
  416. 4150 print"     tabelle drucken........6"
  417. 4160 print"     tabelle abspeichern....7"
  418. 4170 print"     tabelle einlesen.......8"
  419. 4180 print"     liga wechseln..........9"
  420. 4190 print"     ende...................0"
  421. 4200 print:print:print:poke53265,27
  422. 4210 geta$:ifa$=""then4210
  423. 4220 ifa$="1"thengosub640
  424. 4230 ifa$="2"thengosub3000
  425. 4240 ifa$="3"thengosub3420
  426. 4250 ifa$="4"thengosub3210
  427. 4260 ifa$="5"thengosub1800
  428. 4270 ifa$="6"thengosub2550
  429. 4280 ifa$="7"thengosub2170
  430. 4290 ifa$="8"thengosub2380
  431. 4300 ifa$="9"thengosub2910
  432. 4310 ifa$="0"thengosub2950
  433. 4320 goto4040
  434. 60000 rem nachspann ===============
  435. 60010 rem * farbcodes/steuercodes *
  436. 60020 c4$=chr$(017):he$=chr$(019)
  437. 60030 c2$=chr$(145):cl$=chr$(147)
  438. 60040 c1$=chr$(157)
  439. 60050 return
  440.