home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 9 / Commodore_Disc_09_19xx_-_de.d64 / bundesliga.64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  10KB  |  383 lines
  1. 10 rem ----------------------
  2. 20 rem -                    -
  3. 30 rem -     bundesliga     -
  4. 40 rem -                    -
  5. 50 rem - by  ralf trabhardt -
  6. 60 rem -                    -
  7. 70 rem ----------------------
  8. 80 rem - c64/128 +1541 +joy -
  9. 90 rem - (c) commodore welt -
  10. 100 rem ----------------------
  11. 110 ifa=0thena=1:load"titel",8,1
  12. 120 sys20480
  13. 130 dimna$(20),sp(20),gw(20),un(20),ve(20),t1(20),t2(20),di(20),p1(20),p2(20)
  14. 140 dimv(21)
  15. 150 rem
  16. 160 rem  steuer-/farbcodes
  17. 170 rem
  18. 180 c1$=chr$(147):c2$=chr$(19)
  19. 190 c3$=chr$(18):c4$=chr$(146)
  20. 200 c5$=chr$(157):c6$=chr$(145)
  21. 210 c7$=chr$(17):f1$=chr$(144)
  22. 220 f2$=chr$(30):f3$=chr$(5)
  23. 230 f4$=chr$(150):f5$=chr$(158)
  24. 240 f6$=chr$(31):f7$=chr$(28)
  25. 250 f8$=chr$(159):f9$=chr$(151)
  26. 260 rem
  27. 270 b1$="1.bundesliga":b2$="2.bundesliga"
  28. 280 fb=53280:fa=54272:pokefb,13:pokefb+1,13:m=49664
  29. 290 printc1$f1$:u=0
  30. 300 printc2$
  31. 310 ifu=1thenprinttab(254);b1$:goto330
  32. 320 printtab(254)c3$;b1$
  33. 330 printtab(218)"oder"
  34. 340 ifu=1thenprinttab(214)c3$;b2$:goto360
  35. 350 printtab(214)b2$
  36. 360 gosub3380
  37. 370 ifsc=2thenu=0
  38. 380 ifsc=3thenu=1
  39. 390 ifsc=1andu=0thenli=18:goto420
  40. 400 ifsc=1andu=1thenli=20:goto420
  41. 410 goto300
  42. 420 gosub740:printc1$f1$:u=0
  43. 430 printc2$
  44. 440 ifu=1thenprinttab(254)"alte saison":goto460
  45. 450 printtab(254)c3$"alte saison"c4$
  46. 460 printtab(217)"oder"
  47. 470 ifu=1thenprinttab(214)c3$"saisonstart"c4$:goto490
  48. 480 printtab(214)"saisonstart"
  49. 490 gosub3380
  50. 500 ifsc=2thenu=0
  51. 510 ifsc=3thenu=1
  52. 520 ifsc=1andu=0thengosub740:goto870
  53. 530 ifsc=1andu=1thengosub740:goto580
  54. 540 goto430
  55. 550 rem
  56. 560 rem   namen eingeben
  57. 570 rem
  58. 580 fori=1toli:na$(i)="":p1(i)=0:t1(i)=0:t2(i)=0:gw(i)=0:un(i)=0:ve(i)=0
  59. 590 sp(i)=0:nexti:q=1:poke198,0
  60. 600 pokefb,0:pokefb+1,0:printc1$f2$"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  61. 610 printtab(95);f3$;q;c5$".verein"
  62. 620 printtab(93);f4$"---------------"
  63. 630 printf2$"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  64. 640 printc6$c6$c6$c6$;tab(11);f5$;
  65. 650 inputa$:printc7$
  66. 660 iflen(a$)>15then610
  67. 670 na$(q)=a$:a$="":poke781,8:sys59903
  68. 680 ifq=lithen1000
  69. 690 q=q+1:goto610
  70. 700 rem
  71. 710 rem  feuertaste
  72. 720 rem
  73. 730 wait56320,16,16
  74. 740 sd=54273:pokesd+4,11:pokesd+14,5:pokesd+23,15
  75. 750 pokesd,20
  76. 760 pokesd+3,21
  77. 770 forgh=1to300:nextgh
  78. 780 pokesd+3,0
  79. 790 return
  80. 800 x1=x(1):x2=x(2)
  81. 810 wt=(x1-176)+((x2-176)*10)
  82. 820 pokepo+fa,13:pokepo+fa-1,13:return
  83. 830 wl=(x(2)-176)*100+(x(1)-176)*10+(x(0)-176)
  84. 840 pokepo+fa,13:pokepo+fa-1,13:pokepo+fa-2,13:return
  85. 850 rem
  86. 860 rem  werte einlesen
  87. 870 rem
  88. 880 printc1$;tab(164);f1$"- daten-diskette einlegen -"
  89. 890 gosub710
  90. 900 printc1$;tab(164)"daten werden eingelesen ..."
  91. 910 ifli=18thenopen1,8,2,"1.bundesliga,s,r"
  92. 920 ifli=20thenopen1,8,2,"2.bundesliga,s,r"
  93. 930 fori=1toli
  94. 940 input#1,na$(i),gw(i),un(i),ve(i),t1(i),t2(i)
  95. 950 nexti
  96. 960 close1:close15
  97. 970 rem
  98. 980 rem  ergebnisse eingeben
  99. 990 rem
  100. 1000 pokefb,5:pokefb+1,13
  101. 1010 printc1$;tab(240);tab(162);f1$"wieviele begegnungen eintragen ?"
  102. 1020 po=1460:i=176:pokefa+po,2:pokefa+po-1,2
  103. 1030 gosub3380
  104. 1040 ifsc=1thenbe=i-176:ifi=186thenbe=10
  105. 1050 ifsc=1thengosub740:goto1140
  106. 1060 ifsc=2theni=i+1
  107. 1070 ifsc=3theni=i-1:ifi<176theni=176
  108. 1080 ifli=18andi>185theni=185:goto1110
  109. 1090 ifi=>186theni=186:pokepo-1,177:pokepo,176:goto1120
  110. 1100 ifi=185thenpokepo-1,32
  111. 1110 pokepo,i
  112. 1120 forj=1to100:nextj
  113. 1130 goto1030
  114. 1140 ifbe=0then2400
  115. 1150 pokefb,11:pokefb+1,12:la=1616
  116. 1160 printc1$f1$"[195][195][195][195][195][195][195][195][195][195][195][179]"f3$"spielpaarungen"f1$"[171][195][195][195][195][195][195][195][195][195][195][195][195][195]";
  117. 1170 printf1$"           [173][195][195][195][195][195][195][195][178][195][195][195][195][195][195][189]"
  118. 1180 fori=1toli step2
  119. 1190 printtab(2);f9$;na$(i)
  120. 1200 printtab(19);c6$f1$"[194]  ";f9$;na$(i+1):nexti
  121. 1210 printf1$"[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][184][184][184][184][184]"
  122. 1220 ifli=18thenprint
  123. 1230 ad=1105:c1=0:c2=0:xz=0:poke646,0
  124. 1240 pokela,61:pokela+4,58:pokefa+la,0:pokefa+la+4,0
  125. 1250 gosub3380
  126. 1260 ifsc=1thengosub740:goto1350
  127. 1270 ifsc=4thenc2=0
  128. 1280 ifsc=2thenc1=c1-1:ifc1<0thenc1=0
  129. 1290 ifsc=5thenc2=1
  130. 1300 ifsc=3thenc1=c1+1:ifc1>li/2-1thenc1=li/2-1
  131. 1310 pokepo,32
  132. 1320 po=ad+(c1*40)+(c2*20)
  133. 1330 pokepo,62:pokefa+po,15
  134. 1340 goto1250
  135. 1350 pf=(po-(ad-20))/20
  136. 1360 ifxz=1thenxz=2:n2$=na$(pf):printn2$:goto1390
  137. 1370 ifxz=0thenxz=1:n1$=na$(pf):printn1$;f1$" - ";:fori=1to50:nexti
  138. 1380 goto1240
  139. 1390 lk=la:la=la+40
  140. 1400 x1=176:x2=x1
  141. 1410 pokelk+2,x2:pokelk+3,x1
  142. 1420 fori=1to100:nexti
  143. 1430 gosub3380
  144. 1440 ifsc=1andxz=3thenxz=0:gosub740:gosub810:e2=wt:goto1510
  145. 1450 ifsc=1andxz=2thenxz=3:gosub740:gosub810:e1=wt:lk=lk+3:goto1400
  146. 1460 ifsc=2thenx1=x1+1:ifx2=176andx1>185thenx1=176:x2=177
  147. 1470 ifsc=3thenx1=x1-1:ifx2=176andx1<176thenx1=176
  148. 1480 ifx2=177andx1<176thenx2=176:x1=185
  149. 1490 ifx2=177andx1>185thenx1=185
  150. 1500 goto1410
  151. 1510 q=0:d=0
  152. 1520 fori=1to18
  153. 1530 ifn1$=na$(i)thend=i
  154. 1540 ifn2$=na$(i)thenq=i
  155. 1550 nexti
  156. 1560 gosub3140
  157. 1570 be=be-1:ifbe=0then1600
  158. 1580 fori=1to50:nexti
  159. 1590 goto1240
  160. 1600 forle=2to12:poke781,le:sys59903:nextle
  161. 1610 gosub1670:fe=0:print" ja  "
  162. 1620 gosub3380:ifsc=2thengosub1670:print" ja  ":fe=0
  163. 1630 ifsc=3thengosub1670:print" nein":fe=1
  164. 1640 ifsc=1andfe=0then3040
  165. 1650 ifsc=1andfe=1then910
  166. 1660 goto1620
  167. 1670 printc2$;tab(126);f7$"alle eingaben korrekt ? ";:return
  168. 1680 rem
  169. 1690 rem  tabelle ergaenzen
  170. 1700 rem
  171. 1710 pokefb,6:pokefb+1,14:v$=f6$+"              "
  172. 1720 x1=176:x2=x1:po=1420:fori=1to80:nexti
  173. 1730 pokepo+fa,3:pokepo+fa-1,3
  174. 1740 printc1$;tab(240);tab(122);f5$"wieviele mannschaften aendern ?"
  175. 1750 pokepo,x1:pokepo-1,x2
  176. 1760 gosub3380
  177. 1770 ifsc=1thengosub740:gosub810:az=wt:goto1850
  178. 1780 ifx2=177andx1=184andli=18then1810
  179. 1790 ifx2=178andx1=176then1810
  180. 1800 ifsc=2thenx1=x1+1:ifx1>185thenx1=176:x2=x2+1
  181. 1810 ifsc=3andx2=176andx1>176thenx1=x1-1
  182. 1820 ifsc=3andx2>176thenx1=x1-1:ifx1<176thenx2=x2-1:x1=185
  183. 1830 fori=1to50:nexti
  184. 1840 goto1750
  185. 1850 ifaz=0then2400
  186. 1860 pokefb,6:pokefb+1,14
  187. 1870 printc1$;tab(13);f3$"[213][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  188. 1880 print"[195][195][195][195][195][195][195][195][195][195][195][195][195][179]"f1$" mannschaft "f3$"[171][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  189. 1890 printtab(13);c6$"[202][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  190. 1900 fori=1toli:printv$;:printna$(i):nexti
  191. 1910 po=1157
  192. 1920 pokepo,62:pokepo+fa,7
  193. 1930 gosub3380
  194. 1940 ifsc=1thenma$=na$((po-1117)/40):goto1980
  195. 1950 ifsc=3andpeek(po+41)<>32thenpokepo,32:po=po+40
  196. 1960 ifsc=2andpo>1157thenpokepo,32:po=po-40
  197. 1970 goto1920
  198. 1980 pokefb,6:pokefb+1,6
  199. 1990 printc1$f8$;c7$"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  200. 2000 printchr$(156);tab(14);ma$
  201. 2010 printc7$;f8$"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  202. 2020 po=1415:cw=0:q=0
  203. 2030 fori=1toli:ifna$(i)=ma$thenq=i
  204. 2040 nexti
  205. 2050 x(1)=176:x(2)=176:l=1:fori=1to50:nexti
  206. 2060 pokepo+fa,3:pokepo+fa-1,13
  207. 2070 ifcw=0thenprinttab(87);f5$"gewonnene spiele"
  208. 2080 ifcw=1thenprinttab(47);f5$"unentschiedene spiele"
  209. 2090 ifcw=2thenprinttab(47);f5$"verlorene spiele"
  210. 2100 pokepo,x(1):pokepo-1,x(2)
  211. 2110 gosub3380
  212. 2120 ifsc=1andcw=2thencw=3:gosub740:gosub800:ve(q)=wt:goto2230
  213. 2130 ifsc=1andcw=1thencw=2:gosub740:gosub800:un(q)=wt:po=po+80:goto2050
  214. 2140 ifsc=1andcw=0thencw=1:gosub740:gosub800:gw(q)=wt:po=po+80:goto2050
  215. 2150 ifsc=4thenpokepo+fa,13:pokepo+fa-1,3:l=2
  216. 2160 ifsc=5thenpokepo+fa,3:pokepo+fa-1,13:l=1
  217. 2170 ifx(2)=179andx(1)=180andli=18then2200
  218. 2180 ifx(2)=179andx(1)=184then2200
  219. 2190 ifsc=2thenx(l)=x(l)+1:ifx(l)>185thenx(l)=176
  220. 2200 ifsc=3thenx(l)=x(l)-1:ifx(l)<176thenx(l)=185
  221. 2210 fori=1to50:nexti
  222. 2220 goto2100
  223. 2230 x(0)=176:x(1)=176:x(2)=176:po=po+120
  224. 2240 pokepo,x(0):pokepo-1,x(1):pokepo-2,x(2):gosub840:pokepo+fa,3:l=0
  225. 2250 ifcw=3thenprinttab(87);f5$"geschossene tore"
  226. 2260 ifcw=4thenprinttab(87);f5$"gefangene tore"
  227. 2270 pokepo,x(0):pokepo-1,x(1):pokepo-2,x(2)
  228. 2280 gosub3380
  229. 2290 ifsc=1andcw=4thengosub740:gosub830:t2(q)=wl:goto2370
  230. 2300 ifsc=1andcw=3thengosub740:gosub830:t1(q)=wl:cw=4:goto2230
  231. 2310 ifsc=4andl<2thengosub840:l=l+1:pokepo+fa-l,3
  232. 2320 ifsc=5andl>0thengosub840:l=l-1:pokepo+fa-l,3
  233. 2330 ifsc=2thenx(l)=x(l)+1:ifx(l)>185thenx(l)=176
  234. 2340 ifsc=3thenx(l)=x(l)-1:ifx(l)<176thenx(l)=185
  235. 2350 fori=1to50:nexti
  236. 2360 goto2270
  237. 2370 az=az-1:ifaz=0then3040
  238. 2380 goto1860
  239. 2390 rem
  240. 2400 rem  tabelle ausgeben
  241. 2410 rem
  242. 2420 pokefb+1,13:pokefb,13
  243. 2430 fori=1toli
  244. 2440 p1(i)=gw(i)*2+un(i)
  245. 2450 sp(i)=gw(i)+un(i)+ve(i)
  246. 2460 p2(i)=ve(i)*2+un(i)
  247. 2470 di(i)=t1(i)-t2(i)
  248. 2480 nexti
  249. 2490 printc1$f1$;tab(126)"tabelle wird geordnet ..."
  250. 2500 gosub3230
  251. 2510 ifli=18thenprintc1$"************ t a b e l l e *************";
  252. 2520 print"[213][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][201]";
  253. 2530 print"[221]nr. [221] mannschaft     [221] diff.[221] punkte  [221]";
  254. 2540 print"[171][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][179]";
  255. 2550 fori=1toli:gosub2960
  256. 2560 nexti
  257. 2570 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
  258. 2580 gosub710
  259. 2590 goto3470
  260. 2600 rem
  261. 2610 rem  drucker
  262. 2620 rem
  263. 2630 fori=1to3:forj=1to21:d$(i)=d$(i)+chr$(peek(49262+j+(21*i))):nextj:nexti
  264. 2640 open3,4:ifli=20then2720
  265. 2650 print#3,chr$(8),d$(1);
  266. 2660 print#3,chr$(15)"   "c3$"                     "c4$"   "chr$(8),d$(1)
  267. 2670 print#3,chr$(16),d$(2);
  268. 2680 print#3,chr$(15)"   "c3$" b u n d e s l i g a "c4$"   "chr$(8),d$(2)
  269. 2690 print#3,chr$(16),d$(3);
  270. 2700 print#3,chr$(15)"   "c3$"                     "c4$"   "chr$(8),d$(3)
  271. 2710 print#3
  272. 2720 print#3,chr$(15)"[213][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178]";
  273. 2730 print#3,"[192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][201]"chr$(8)
  274. 2740 print#3,chr$(15)"[221] nr.[221]mannschaft     [221] sp.[221] g. [221] u. [221] v. [221]   tore    [221]";
  275. 2750 print#3,"diff.[221]  punkte  [221]"chr$(8)
  276. 2760 print#3,chr$(15)"[171][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219]";
  277. 2770 print#3,"[192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][179]"chr$(8):za=0
  278. 2780 za=za+1:y=v(za)
  279. 2790 print#3,chr$(15)"[221]";
  280. 2800 print#3,chr$(16)"01"za;
  281. 2810 print#3,chr$(16)"05[221]"na$(y);
  282. 2820 print#3,chr$(16)"21[221]"sp(y);
  283. 2830 print#3,chr$(16)"26[221]"gw(y);
  284. 2840 print#3,chr$(16)"31[221]"un(y);
  285. 2850 print#3,chr$(16)"36[221]"ve(y);
  286. 2860 print#3,chr$(16)"41[221] "t1(y);
  287. 2870 print#3,chr$(16)"46:"t2(y);
  288. 2880 print#3,chr$(16)"53[221] "di(y);
  289. 2890 print#3,chr$(16)"59[221] "p1(y);
  290. 2900 print#3,":"p2(y);
  291. 2910 print#3,chr$(16)"70[221]"chr$(8)
  292. 2920 ifza=lithen3200
  293. 2930 print#3,chr$(15)"[171][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219]";
  294. 2940 print#3,"[192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][179]"chr$(8)
  295. 2950 goto2780
  296. 2960 print"[221]"i
  297. 2970 printtab(7);c6$;na$(v(i))
  298. 2980 printtab(24);c6$;di(v(i))
  299. 2990 printtab(30);c6$;p1(v(i))
  300. 3000 printtab(34);c6$":"p2(v(i))
  301. 3010 printtab(39);c6$"[221]";
  302. 3020 return
  303. 3030 rem
  304. 3040 rem  abspeichern
  305. 3050 rem
  306. 3060 ifli=18thenopen1,8,2,"@:1.bundesliga,s,w"
  307. 3070 ifli=20thenopen1,8,2,"@:2.bundesliga,s,w"
  308. 3080 printc1$;tab(4)"liga-daten werden gesichert"
  309. 3090 fori=1toli
  310. 3100 print#1,na$(i)","gw(i)","un(i)","ve(i)","t1(i)","t2(i)
  311. 3110 nexti
  312. 3120 close1
  313. 3130 goto2420
  314. 3140 ife1>e2thengw(d)=gw(d)+1:ve(q)=ve(q)+1
  315. 3150 ife1=e2thenun(d)=un(d)+1:un(q)=un(q)+1
  316. 3160 ife2>e1thengw(q)=gw(q)+1:ve(d)=ve(d)+1
  317. 3170 t1(d)=t1(d)+e1:t2(d)=t2(d)+e2
  318. 3180 t1(q)=t1(q)+e2:t2(q)=t2(q)+e1
  319. 3190 return
  320. 3200 print#3,chr$(15)"[173][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177]";
  321. 3210 print#3,"[192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][189]"chr$(8)
  322. 3220 close3:goto3470
  323. 3230 pokem,0:pokem+1,li:pokem+4,li+1
  324. 3240 fori=1toli
  325. 3250 pokem+88+i,di(i)+100
  326. 3260 pokem+26+i,t1(i)
  327. 3270 pokem+5+i,p1(i)+1
  328. 3280 pokem+47+i,0
  329. 3290 nexti
  330. 3300 sys49152
  331. 3310 fori=1toli
  332. 3320 v(i)=peek(m+67+i)
  333. 3330 nexti
  334. 3340 return
  335. 3350 rem
  336. 3360 rem  joystick
  337. 3370 rem
  338. 3380 sc=0
  339. 3390 j=peek(56320)
  340. 3400 if(jand16)=0thensc=1
  341. 3410 if(jand1)=0thensc=2
  342. 3420 if(jand2)=0thensc=3
  343. 3430 if(jand4)=0thensc=4
  344. 3440 if(jand8)=0thensc=5
  345. 3450 return
  346. 3460 rem
  347. 3470 rem  auswahl-menue
  348. 3480 rem
  349. 3490 pokefb,11:pokefb+1,12
  350. 3500 printc1$f1$;tab(133)"[213][195][195][195][195][195][195][195][195][195][195][195][201]"
  351. 3510 printtab(13)"[194] "f3$"m e n u e"f1$" [194]"
  352. 3520 printtab(13)"[202][195][195][195][195][195][195][195][195][195][195][195][203]"
  353. 3530 f0$=chr$(155)+c3$+" "+c4$+" "+f9$
  354. 3540 printtab(208)f0$"tabelle auf drucker"
  355. 3550 printtab(48)f0$"statistik"
  356. 3560 printtab(48)f0$"tabelle ergaenzen"
  357. 3570 printtab(48)f0$"neuer spieltag"
  358. 3580 printtab(48)f0$"ende"
  359. 3590 po=1470:i=62:cu=1
  360. 3600 pokepo,i:pokefa+po,0
  361. 3610 gosub3380
  362. 3620 ifsc=1thengosub740:goto3660
  363. 3630 ifsc=2andcu>1thenpokepo,32:po=po-80:cu=cu-1
  364. 3640 ifsc=3andcu<5thenpokepo,32:po=po+80:cu=cu+1
  365. 3650 goto3600
  366. 3660 oncugoto2630,3680,1680,980,280
  367. 3670 rem
  368. 3680 rem  statistik
  369. 3690 rem
  370. 3700 pokefb,5:pokefb+1,7
  371. 3710 printc1$f1$;tab(134)"statistik"
  372. 3720 printtab(14)"---------":si=0:te=0
  373. 3730 fori=1toli:te=te+t1(i)
  374. 3740 si=si+sp(i):nexti
  375. 3750 te$=left$(str$(te/si),5)
  376. 3760 printtab(162)"es sind bisher"si"spiele ausgetragen"
  377. 3770 printtab(42)"worden."
  378. 3780 printtab(82)"dabei sind"te"tore gefallen."
  379. 3790 printtab(82)"das entspricht einem durchschnitt von"
  380. 3800 printtab(41)te$" toren pro spiel."
  381. 3810 gosub710
  382. 3820 goto3470
  383.