home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 66 / 64er_Magazin_Sonderheft_66_19xx_Markt__Technik_de_Side_B.d64 / fbm.exe (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  28KB  |  763 lines
  1. 99 print"[147]";:poke53272,peek(53272)and240or2
  2. 100 ify=0anda=0thena=rnd(-ti):a=18:gosub10032:gosub16000
  3. 101 y=1
  4. 102 gosub5000:x=fre(0):goto520
  5. 250 gh(h)=0:fori=1to20:gh(h)=gh(h)+ma(h,i,0)*12:next:return
  6. 520 forh=1tosp:ify=1then522
  7. 521 gosub1000
  8. 522 poke53265,11:print"[147]"mid$(x$(sp(h)),3)"[146] "y"[157]. [211]pieltag"
  9. 523 ify=34thenprint"[204]etzter [194]undesligaspieltag"
  10. 525 print"<1>  [205]annschaftsaufstellung ............";
  11. 526 print"<2>  [212]ransfermarkt .....................";
  12. 527 print"<3>  [194]undesligatabelle .................";
  13. 528 print"<4>  [211]pielerreport .....................";
  14. 529 print"<5>  [193]llgemeines .......................";
  15. 530 print"<6>  [214]ereins]bersicht ..................";
  16. 531 print"<7>  [211]pielpaarungen ....................";
  17. 532 print"<8>  [215]eiter ............................"chr$(13);
  18. 533 print"<0>  [211]pielabbruch mit [193]brechnung ......."chr$(13);
  19. 534 print:print"[194]itte w[hlen [211]ie: ";
  20. 535 poke198,0:poke53265,27:poke19,64:inputa$:poke19,0:print
  21. 536 ifa$="0"thenes=0:goto7000
  22. 537 ifa$<"1"ora$>"8"thenprint"[145][145]";:goto534
  23. 538 es=val(a$):onesgoto2000,2700,3580,4000,8000,6000,3000,645
  24. 645 qq=0:tr=0:f=0:c=0:fori=1to5:t5(i)=0:nexti
  25. 646 nexth:gosub3000:y=y+1:ify=<34then102
  26. 647 y=34:goto7000
  27. 748 rem ende
  28. 750 print"[147]";:poke53265,11:ify<4then753
  29. 751 forh=1tosp:print""mid$(x$(sp(h)),3)"[146]   [211]pieler"h:gosub9500:print:next
  30. 752 poke53265,27:poke198,0:wait198,1:poke53265,11
  31. 753 poke198,0:print"[147]";"[196]as war eine [194]egegnung mit dem harten   ";
  32. 754 print"[199]esch[ft um [199]eld und [211]port.            "chr$(13);
  33. 755 print"[215]agen [211]ie eine zweite [211]aison";:poke198,0:poke53265,27:inputa$
  34. 756 a$=chr$(asc(a$)):ifa$="j"ora$="[202]" thenrun
  35. 757 print"[147][211]o long, [200]ooligan...":clr:end
  36. 998 rem gelbe karten,form
  37. 1000 print"[147]";
  38. 1040 fori=1to20:ifma(h,i,1)=0then1075
  39. 1041 ma(h,i,1)=ma(h,i,1)+rnd(.)-rnd(.):ifma(h,i,1)<0 thenma(h,i,1)=ma(h,i,1)+1:goto1075
  40. 1042 ifma(h,i,1)<1thenma(h,i,1)=1
  41. 1043 ifma(h,i,1)>=6thenma(h,i,1)=5.999
  42. 1044 ifrnd(.)>.98thenma(h,i,2)=ma(h,i,2)-(rnd(.)*rnd(.)*10):goto1070
  43. 1045 ma(h,i,2)=ma(h,i,2)-rnd(.)+rnd(.)
  44. 1070 ifma(h,i,2)>5thenma(h,i,2)=5
  45. 1071 ifma(h,i,3)>99thenma(h,i,3)=ma(h,i,3)-100
  46. 1075 next:fori=1to11:x=0:ifrnd(.)>.8 thenx=ma(h,el(i,h),3):x=x+1:ma(h,el(i,h),3)=x
  47. 1076 ifx=4orx=7orx=10orx=12thenma(h,el(i,h),3)=ma(h,el(i,h),3)+100
  48. 1077 next
  49. 1078 x=0:fori=12to20:ifma(h,ba(i,h),2)<0 thenma(h,ba(i,h),2)=ma(h,ba(i,h),2)+rnd(.)
  50. 1079 next
  51. 1080 ef(h)=0:fori=1to11:ifma(h,el(i,h),2)<0orma(h,el(i,h),3)>99then1082
  52. 1081 ef(h)=ef(h)+int(ma(h,el(i,h),1))
  53. 1082 next
  54. 1090 a=1:ifef(h)>=18thena=2:ifef(h)>=27thena=3:ifef(h)>=36thena=4:ifef(h)>=45thena=5
  55. 1091 x$(sp(h))=str$(a)+mid$(x$(sp(h)),3):return
  56. 1998 rem aufstellung
  57. 2000 print"[147]";:poke53265,11
  58. 2001 print""mid$(x$(sp(h)),3)"[146]  [211]pielerform"
  59. 2002 printspc(71)"[206]r. [211]piel";
  60. 2003 fori=1to20:printright$(str$(i),2)chr$(32);:gosub8500:printg$;int(ma(h,i,1)*100)/100;
  61. 2004 print:print"[145]";
  62. 2110 ifma(h,i,2)<0thenprintspc(22)"[214]";:goto2113
  63. 2111 ifma(h,i,3)>99thenprintspc(22)"[199]";:goto2113
  64. 2112 printspc(22)" ";
  65. 2113 print:next:print""spc(40);
  66. 2114 i=0:forj=1to11:i=i+1
  67. 2115 ifi<el(j,h)theni=i+1:printspc(40);:goto2115
  68. 2116 printspc(24)">";:i=el(j,h):printint(ma(h,el(j,h),1))spc(5)right$(str$(j),2);:gosub8530
  69. 2117 printg$:nextj:poke211,0:poke214,24:sys58640:print"[211]pielst[rke:"ef(h);
  70. 2118 poke53265,27:poke198,0:wait198,1:poke198,0
  71. 2119 print"[147]";:poke53265,11
  72. 2120 print""mid$(x$(sp(h)),3)"[146]   [193]ufgebot":print
  73. 2121 print"[205]annschaft"tab(19)"[194]ank":print
  74. 2122 forj=1to11:printright$(str$(j),2)"  "int(ma(h,el(j,h),1)*100)/100:print"[145]"spc(9);
  75. 2123 i=el(j,h):gosub8530:printg$;:ifma(h,el(j,h),2)<0thenprint" [214]";
  76. 2124 gosub2223:print:nextj:print"";:forj=12to20:printspc(19)right$(str$(j),2)"  ";
  77. 2125 printint(ma(h,ba(j,h),1)*100)/100:print"[145]"spc(28);:i=ba(j,h):gosub8530:gosub2220
  78. 2126 print:nextj:poke211,0:poke214,20:sys58640:print"[211]pielst[rke:"ef(h);
  79. 2127 poke211,0:poke214,20:sys58640:print"[211]oll die [193]ufstellung ge[ndert werden";
  80. 2128 poke53265,27:poke198,0:inputa$:a$=chr$(asc(a$)):ifa$="n"ora$="[206]" then522
  81. 2129 poke211,0:poke214,20:sys58640:print"[215]elcher [211]pieler soll aus der [205]annschaft ";
  82. 2130 print"genommen werden";:inputa$:x=val(a$):ifx<1orx>11 then2129
  83. 2131 ifma(h,el(x,h),2)<0orma(h,el(x,h),3)>99 thenv(el(x,h),h)=0:goto2133
  84. 2132 ef(h)=ef(h)-int(ma(h,el(x,h),1)):v(el(x,h),h)=0
  85. 2133 poke211,0:poke214,22:sys58640:print"[196]urch wen soll er ersetzt werden";
  86. 2134 inputa$:ifval(a$)<12orval(a$)>20 then2119
  87. 2135 r=val(a$):onxgoto2172,2174,2174,2174,2176,2176,2176,2176,2178,2178,2178
  88. 2172 ifma(h,ba(r,h),4)=1then2180
  89. 2173 goto2179
  90. 2174 ifma(h,ba(r,h),4)=2then2180
  91. 2175 goto2179
  92. 2176 ifma(h,ba(r,h),4)=3then2180
  93. 2177 goto2179
  94. 2178 ifma(h,ba(r,h),4)=4then2180
  95. 2179 poke211,0:poke214,24:sys58640:print"[198]alsche [208]osition";:goto2200
  96. 2180 ifv(ba(r,h),h) thenpoke211,0:poke214,24:sys58640:print"[194]ereits eingesetzt";:goto2200
  97. 2181 fori=0to4:x(i)=ma(h,el(x,h),i):ma(h,el(x,h),i)=ma(h,ba(r,h),i)
  98. 2182 ma(h,ba(r,h),i)=x(i):next:ef(h)=ef(h)+int(ma(h,el(x,h),1)):gosub1090:goto2119
  99. 2200 fori=1to2400:next:poke211,0:poke214,24:sys58640:print"                  ";:goto2133
  100. 2220 printg$;:ifma(h,ba(j,h),2)<0thenprint" [214]";
  101. 2221 ifma(h,ba(j,h),3)>99thenprint" [199]";
  102. 2222 return
  103. 2223 ifma(h,el(j,h),3)>99thenprint" [199]";
  104. 2224 return
  105. 2398 rem autom.aufstellung
  106. 2400 el(1,h)=1:v(1,h)=1:forj=3to5:el(j-1,h)=j:v(j,h)=1:next
  107. 2401 forj=7to10:el(j-2,h)=j:v(j,h)=1:next
  108. 2402 forj=12to14:el(j-3,h)=j:v(j,h)=1:next:gosub1080
  109. 2403 fori=1tosp:ba(12,i)=2:ba(13,i)=6:ba(14,i)=11:forj=15to20:ba(j,i)=j:nextj,i
  110. 2404 return
  111. 2608 rem verkaufspr]fung
  112. 2610 i=1:jj=0
  113. 2611 ift5(i)<>0then2613
  114. 2612 t5(i)=x:return
  115. 2613 i=i+1:ifi=<5then2611
  116. 2614 ifa$="k"ora$="[203]"thenreturn
  117. 2615 jj=-1:return
  118. 2698 rem transfermarkt
  119. 2700 print"[147]";:poke53265,11:print"[197]igene [205]annschaft:":print:tr=tr+1
  120. 2701 print"[206]r. [208]osition      [198]orm  [199]ehalt":print
  121. 2702 fori=1to20:printright$(str$(i),2)"  ";:gosub8500:printg$"  "int(ma(h,i,1)*100)/100;
  122. 2703 printtab(24)ma(h,i,0);:ifma(h,i,2)<0thenprint"[214] ";
  123. 2704 ifi<>2andi<>6andi<>11andi<15thenprint">";
  124. 2705 print:nexti:ifaathenreturn
  125. 2706 iftr>3thengosub2805:poke198,0:poke53265,27:wait198,1:poke198,0:goto522
  126. 2707 poke198,0:poke53265,27:wait198,1:poke198,0
  127. 2708 printchr$(147);:poke53265,11
  128. 2709 print"[197]inkaufsm\glichkeiten:":print
  129. 2710 print"[206]r. [208]osition      [198]orm  [203]osten":print
  130. 2711 fori=1to5:ifc=1thengosub8501:tk$="     "+str$(tk(i)):goto2715
  131. 2712 ts(i)=int(rnd(.)*4)+2
  132. 2713 tk(i)=int(pr(ts(i))+(rnd(.)*ts(i)*20000)-(rnd(.)*ts(i)*20000))
  133. 2714 ta(i)=int(rnd(.)*4)+1:gosub8501:tk$="     "+str$(tk(i))
  134. 2715 printright$(str$(i),2)"  "g$"  "ts(i)tab(24)right$(tk$,6)
  135. 2716 nexti:c=1:poke214,15:poke211,0:sys58640:print"[203]apital:";:ifdm(h)<0 thenprintchr$(32);
  136. 2717 printdm(h):print:print"<[203]>  [211]pielerkauf .......................";
  137. 2718 print"<[214]>  [211]pielerverkauf ....................";
  138. 2719 print"<[205]>  [210]]ckkehr ins [200]auptmen]  ..........";""
  139. 2720 print"[194]itte w[hlen: ";
  140. 2721 poke53265,27:poke198,0:poke19,64:inputa$:poke19,0:a$=chr$(asc(a$))
  141. 2722 ifa$="v"ora$="[214]"then2739
  142. 2723 ifa$="k"ora$="[203]"then2770
  143. 2724 goto522
  144. 2739 aa=-1:print"[147]";:poke53265,11:gosub2702:aa=0:poke214,22:poke211,0:sys58640
  145. 2740 poke53265,27
  146. 2741 print"[215]elchen [211]pieler";:inputa$:x=val(a$):gosub2820:ifjjthen2830
  147. 2742 ifma(h,x,1)=0 thenpoke214,22:poke211,0:sys58640:print"[211]pieler existiert nicht":goto2800
  148. 2743 ifma(h,x,2)<0 thenpoke214,22:poke211,0:sys58640:print"[211]pieler verletzt         ":goto2800
  149. 2744 j=1
  150. 2745 ift5(j)<>xthen2747
  151. 2746 goto2777
  152. 2747 j=j+1:ifj=<5then2745
  153. 2748 gosub2610:ifjjthenjj=0:goto2777
  154. 2749 r=int(ma(h,x,1))
  155. 2750 vv=int(pr(r)+(rnd(.)*ma(h,x,1)*20000)-(rnd(.)*ma(h,x,1)*20000))
  156. 2751 poke214,22:poke211,0:sys58640:print"[193]ngebot:"vv"[157] [196][205], verkaufen [211]ie";
  157. 2752 inputa$:a$=chr$(asc(a$)):ifa$<>"j"anda$<>"[202]"then2708
  158. 2753 fori=0to4:ma(h,x,i)=0:nexti:ba(x,h)=0:dm(h)=dm(h)+vv:goto2700
  159. 2770 poke214,22:poke211,0:sys58640:ifdm(h)<-999999 thenprint"[206]icht finanzierbar";:goto2800
  160. 2771 print"[215]elchen [211]pieler";"     [157][157][157][157][157]";:inputa$:x=val(a$):ifx<0orx>5then2770
  161. 2772 j=1:iftk(x)=0 thenpoke214,22:poke211,0:sys58640:print"[211]pieler schon verkauft":goto2800
  162. 2773 ifma(h,j,1)<>0thenj=j+1:ifj<=20 goto2773
  163. 2774 ifj>20 thenpoke214,22:poke211,0:sys58640:print"[205]annschaft ist besetzt":goto2800
  164. 2775 ma(h,j,1)=ts(x)+rnd(.):ma(h,j,4)=ta(x):ma(h,j,2)=5:dm(h)=dm(h)-tk(x)
  165. 2776 tk(x)=0:ma(h,j,0)=int(ma(h,j,1)*6000):q=j:gosub2610:goto2778
  166. 2777 poke214,22:poke211,0:sys58640:print"[215]eitere [214]erhandlungen n[chste [215]oche.":goto2800
  167. 2778 ifj>14thenba(j,h)=j
  168. 2779 ifj=2thenba(j,h)=12
  169. 2780 ifj=6thenba(j,h)=13
  170. 2781 ifj=11thenba(j,h)=14
  171. 2782 ma(h,j,3)=0:goto2700
  172. 2800 forii=1to2500:nextii:poke214,22:poke211,0:sys58640
  173. 2801 print"                                                               ";:goto2708
  174. 2805 print"";"[212]ransfermarkt geschlossen               ";:return
  175. 2820 ifx>20thenjj=-1:return
  176. 2821 forii=1to11:ifx=el(ii,h)thenjj=-1
  177. 2822 nextii:return
  178. 2830 jj=0:poke214,22:poke211,0:sys58640:print"";:goto2741
  179. 2998 rem n[chste runde
  180. 3000 printchr$(147);:poke53265,11:ifes=7 thenprint"[206][chster [194]undesligaspieltag:":print
  181. 3001 ifes<>7thenprintright$(str$(y),len(str$(y))-1)". [194]undesligaspieltag":print
  182. 3002 forj=1to9:ify>17thenz=y-17:goto3004
  183. 3003 z(1)=val(mid$(m$(y),(j-1)*4+1,2)):z(2)=val(mid$(m$(y),(j-1)*4+3,2)):goto3012
  184. 3004 z(2)=val(mid$(m$(z),(j-1)*4+1,2)):z(1)=val(mid$(m$(z),(j-1)*4+3,2))
  185. 3012 fork=1tosp:ifz(1)=sp(k)thentb(k)=val(left$(x$(z(2)),2))
  186. 3013 ifz(2)=sp(k)thentb(k)=-1
  187. 3014 next
  188. 3015 printxx$(z(1))"-"xx$(z(2));:ifes=7 thenprint:goto3300
  189. 3200 wa=int(rnd(.)*6)+1:wb=int(rnd(.)*6)+1:wc=wa+wb
  190. 3201 s1(1)=val(left$(x$(z(1)),2))
  191. 3202 s1(2)=val(left$(x$(z(2)),2))
  192. 3240 s=int(rnd(.)*5):n=int(rnd(.)*4):ifs=<n then3240
  193. 3241 wf=val(mid$(h$(s1(1),s1(2)),wc,1))
  194. 3242 printtab(34);:onwf+1goto3270,3280,3290
  195. 3270 n(z(1))=n(z(1))+1:np(z(1))=np(z(1))+2
  196. 3271 s(z(2))=s(z(2))+1:pp(z(2))=pp(z(2))+2
  197. 3272 pt(z(1))=pt(z(1))+n
  198. 3273 nt(z(1))=nt(z(1))+s
  199. 3274 pt(z(2))=pt(z(2))+s
  200. 3275 nt(z(2))=nt(z(2))+n:printstr$(n)":"right$(str$(s),1):goto3300
  201. 3280 u=int(rnd(.)*3):fork=1to2:u(z(k))=u(z(k))+1:pp(z(k))=pp(z(k))+1
  202. 3281 np(z(k))=np(z(k))+1:pt(z(k))=pt(z(k))+u:nt(z(k))=nt(z(k))+u:nextk
  203. 3282 printstr$(u)":"right$(str$(u),1):goto3300
  204. 3290 s(z(1))=s(z(1))+1:pp(z(1))=pp(z(1))+2
  205. 3291 n(z(2))=n(z(2))+1:np(z(2))=np(z(2))+2:x=.4:ifs<4 then3293
  206. 3292 x=x-.08:ifrnd(.)<xthens=s+1:goto3292
  207. 3293 pt(z(1))=pt(z(1))+s
  208. 3294 nt(z(1))=nt(z(1))+n
  209. 3295 pt(z(2))=pt(z(2))+n
  210. 3296 nt(z(2))=nt(z(2))+s:printstr$(s)":"right$(str$(n),1)
  211. 3300 next:ifes=7thenpoke53265,27:poke198,0:wait198,1:poke198,0:goto522
  212. 3301 fori=1tosp:print:print""mid$(x$(sp(i)),3)"[146]":iftb(i)<0then3327
  213. 3302 ify=1thenpl(i)=10
  214. 3303 zu=int(((22-pl(i))*600*tb(i))+(rnd(.)*2000*tb(i))-(rnd(.)*2000*tb(i)))
  215. 3304 ne=int(zu*9+(rnd(.)*5000*tb(i))-(rnd(.)*5000*tb(i))):az(h)=az(h)+1
  216. 3305 print"[218]uschauer .........."zu:print"[206]ettoeinnahme ......"ne:az(i)=az(i)+1
  217. 3306 zu(i)=zu(i)+zu:dm(i)=dm(i)+ne:goto3328
  218. 3327 print"[210]eiseunkosten ......";:q=ef(i)*605:printq:dm(i)=dm(i)-q
  219. 3328 nexti:poke53265,27:poke198,0:gosub3400
  220. 3329 geta$:ifa$="" then3329
  221. 3330 poke198,0:ify<>34 thengosub3580
  222. 3331 return
  223. 3398 rem sortieren
  224. 3400 fori=1to18:pa(i)=pp(i):va(i)=i:nexti
  225. 3401 m=18
  226. 3402 m=int(m/2):ifm=0 thenreturn
  227. 3403 j=1:k=18-m:i=j:l=i+m
  228. 3404 ifpa(i)>pa(l) then3540
  229. 3405 ifpa(i)=pa(l) then3700
  230. 3406 t1=pa(i):pa(i)=pa(l):pa(l)=t1:x1=va(i):va(i)=va(l):va(l)=x1
  231. 3407 i=i-m:ifi<1 then3540
  232. 3408 l=i+m:goto3404
  233. 3540 j=j+1:ifj>k then3402
  234. 3541 i=j:goto3408
  235. 3578 tabelle
  236. 3580 printchr$(147);:poke53265,11
  237. 3581 print"[212]abelle der [198]u^ballbundesliga:       "
  238. 3590 x=y:ifes=3ores=0 thenx=y-1
  239. 3591 print"[211]tand des"x"[157]. [211]pieltags":print
  240. 3592 printtab(19)"[211]  [213]  [206]   [208]kt.  [212]ore":print
  241. 3593 fori=1to18:printright$(str$(i),2)chr$(32)xx$(va(i));:ifes=3 then3610
  242. 3594 fork=1tosp:ifva(i)=sp(k) thenpl(k)=i
  243. 3595 next
  244. 3610 printtab(18)right$(str$(s(va(i))),2);
  245. 3611 printtab(21)right$(str$(u(va(i))),2);
  246. 3612 printtab(24)right$(str$(n(va(i))),2);
  247. 3613 printtab(28)right$(str$(pp(va(i))),2)":";:a$=str$(np(va(i))):a$=mid$(a$,2):printa$;
  248. 3614 printtab(34)right$(str$(pt(va(i))),2)":";:a$=str$(nt(va(i))):a$=mid$(a$,2):printa$
  249. 3615 next:poke53265,27:poke198,0:wait198,1:poke198,0:ifes=3anden=0 then522
  250. 3616 return
  251. 3698 tordifferenzen
  252. 3700 a=0:ifpt(va(i))-nt(va(i))>pt(va(l))-nt(va(l)) then3540
  253. 3701 ifpt(va(i))-nt(va(i))<pt(va(l))-nt(va(l)) thena=-1
  254. 3702 ifaor((pt(va(i))-nt(va(i))=pt(va(l))-nt(va(l))andpt(va(i))<pt(va(l)))) thena=-2
  255. 3703 ifa=-2 thena=0:goto3406
  256. 3704 a=0:goto3540
  257. 3998 gehalt, verletzung, gelbsucht
  258. 4000 printchr$(147);:poke53265,11
  259. 4001 printchr$(18)mid$(x$(sp(h)),3)chr$(146)"   [221]bersicht":print
  260. 4002 print"[199]ehalt [205]on./[202]ahr"tab(20)"[198]orm"tab(25)"[199]elbe [203]arte":j=0:print
  261. 4003 fori=1to20:printright$(str$(i),2)chr$(32)ma(h,i,0);:j=ma(h,i,0)*12:printj;
  262. 4004 ifma(h,i,0)=0 thenprint"[157][157][157][157]     0":next:goto4006
  263. 4005 printtab(20)int(ma(h,i,2)*100)/100;tab(28)ma(h,i,3):next
  264. 4006 poke53265,27:poke198,0:wait198,1:poke198,0:goto522
  265. 4998 uefa-cup und dfb-pokal
  266. 5000 eu=0:fu=0:l=0:ee=0:q=0
  267. 5001 ify=4ory=6ory=10ory=12ory=17ory=19ory=22ory=24ory=26ory=28ory=31ory=33 thenq=1
  268. 5002 ifq then5040
  269. 5003 ify=3ory=9ory=15ory=21ory=25ory=32 then5200
  270. 5004 return
  271. 5040 printchr$(147):poke53265,11:print"[213][197][198][193] [195]up [211]piele:":print
  272. 5041 x=0:fori=1tosp:printmid$(x$(sp(i)),3):printup$(i)
  273. 5042 ifleft$(up$(i),3)<>"aus" thenx=x+1:gosub5100
  274. 5043 print:nexti:poke198,0:poke53265,27:wait198,1:ifx=0 thenreturn
  275. 5044 fori=1tosp:au(i)=0:l=0:ifup$(i)="ausgeschieden" thenau(i)=-1:goto5153
  276. 5045 x=int(rnd(.)*46)+1:ifx<19oryy$(x)="" then5045
  277. 5046 forii=1tosp:ifa1$(ii)=yy$(x) then5045
  278. 5047 nextii:ifa1$(i)="" thena1$(i)=yy$(x):ww(i)=x
  279. 5048 x=-1:gosub5500:ifgu(i)=1 thenju(i,1)=eu:ju(i,2)=fu
  280. 5049 ifgu(i)=2 thenju(i,3)=eu:ju(i,4)=fu
  281. 5050 ju(i,0)=ju(i,0)+1:ifju(i,0)<2 then5150
  282. 5051 ifju(i,1)+ju(i,3)>ju(i,2)+ju(i,4) then5060
  283. 5052 ifju(i,1)+ju(i,3)=ju(i,2)+ju(i,4)andju(i,3)>ju(i,2) then5060
  284. 5053 ifju(i,1)+ju(i,3)=ju(i,2)+ju(i,4)andju(i,3)=ju(i,2) then5055
  285. 5054 up$(i)="ausgeschieden":goto5097
  286. 5055 ifl=0thenj=91:ii=120:au=5:poke214,21:poke211,1:sys58640:print"[214]erl[ngerung[144]",
  287. 5056 ifl=0 thenl=1:gosub5509:goto5049
  288. 5057 gosub5300:ifeu>fu thenl=0:goto5060
  289. 5058 iffu>eu thenl=0:goto5054
  290. 5059 gosub5350:goto5057
  291. 5060 a$=up$(i):gosub5418:up$(i)=a$:up(i)=a
  292. 5097 pokevic+21,0:printchr$(147)chr$(14):nexti:gosub5400
  293. 5098 geta$:ifa$="" then5098
  294. 5099 return
  295. 5100 ifgu(i)<>1 then5103
  296. 5101 gu(i)=2:print"[193]usw[rtsspiel":print"[197]rgebnis des [200]inspiels:"str$(ju(i,1))":";
  297. 5102 printright$(str$(ju(i,2)),1):goto5109
  298. 5103 ifgu(i)=0 then5106
  299. 5104 print"[200]eimspiel":print"[197]rgebnis des [200]inspiels:"str$(ju(i,3))":"right$(str$(ju(i,4)),1)
  300. 5105 gu(i)=1:goto5109
  301. 5106 ifrnd(.)>.499 thengu(i)=1:print"[200]eimspiel":goto5109
  302. 5107 gu(i)=2:print"[193]usw[rtsspiel"
  303. 5109 gu=gu(i):bu=6+rnd(.)+up(i)/16:cu=4-rnd(.)*2+up(i)/30:ifgu=2 then5117
  304. 5110 zu=(12000*cu+rnd(.)*2000*cu-rnd(.)*2000*cu+5000):bu=bu+((33-ef(i))/11)
  305. 5111 ifup$(i)="im [200]albfinale" thenzu=zu*1.65
  306. 5112 ifup$(i)="im [198]inale" thenzu=zu*2.15
  307. 5113 k=val(mid$(up$(i),8)):ifk>0 thenzu=zu/3*k
  308. 5114 zu=int(zu):ne=int(zu*9+rnd(.)*5000*cu-rnd(.)*5000*cu):dm(i)=dm(i)+ne
  309. 5115 print"[218]uschauer:"zu:print"[206]ettoeinnahme:"ne:return
  310. 5117 q=ef(i)*904:dm(i)=dm(i)-q:print"[210]eisekosten:"q:return
  311. 5150 pokevic+21,0:printchr$(147)chr$(14):nexti:gosub5404:goto5098
  312. 5153 ju(i,0)=ju(i,0)+1:nexti
  313. 5154 ifju(1,0)>1 thenpokevic+21,0:printchr$(147)chr$(14):gosub5400:goto5098
  314. 5155 pokevic+21,0:print"[147]":gosub5404:goto5098
  315. 5200 print"[147]":poke53265,11:print"[196][198][194]-[208]okalspiele:":print
  316. 5201 x=0:fori=1tosp:printmid$(x$(sp(i)),3):printdp$(i)
  317. 5202 ifleft$(dp$(i),3)<>"aus" thenx=x+1:gosub5270
  318. 5203 print:nexti:poke198,0:poke53265,27:wait198,1:ifx=0 thenreturn
  319. 5204 fori=1tosp:au(i)=0:l=0:ifdp$(i)="ausgeschieden" thenau(i)=-1:nexti:goto5279
  320. 5205 x=int(rnd(.)*18)+1:ifx=sp(i) thengosub5603:ww(i)=0:goto5208
  321. 5206 forii=1tosp:ifsp(ii)=xoryy$(x)=a2$(ii) then5205
  322. 5207 nextii:ifa2$(i)="" thena2$(i)=yy$(x):ww(i)=x
  323. 5208 x=-2:l=0
  324. 5209 gosub5500
  325. 5210 ifeu>futhen5260
  326. 5211 ifeu<futhenl=0:dp$(i)="ausgeschieden":goto5297
  327. 5212 ifl=0thenj=91:ii=120:au=5:poke214,21:poke211,1:sys58640:printchr$(18)"[214]erl[ngerung[144]";
  328. 5213 ifl=0thenl=1:gosub5509:ifeu=futhengosub5300
  329. 5214 ifeu=futhengosub5350:goto5210
  330. 5215 goto5210
  331. 5260 a$=dp$(i):gosub5418:dp$(i)=a$:dp(i)=a:ifa=25 thendp$(i)="[196][198][194] [208]okal [211]ieger"
  332. 5261 goto5297
  333. 5270 ifrnd(.)>.499 thengu=1:print"[200]eimspiel":goto5272
  334. 5271 gu=2:print"[193]usw[rtsspiel"
  335. 5272 bu=5.8+rnd(.)+dp(i)/12:cu=3.8-rnd(.)*2.2+dp(i)/20
  336. 5273 zu=(10000*cu+rnd(.)*2000*cu-rnd(.)*2000*cu+5000):bu=bu+((33-ef(i))/11)
  337. 5274 ifdp$(i)="im [200]albfinale"thenzu=zu*1.65
  338. 5275 ifdp$(i)="im [198]inale"thenzu=zu*2.15
  339. 5276 k=val(mid$(dp$(i),8)):ifk>0thenzu=zu/3*k
  340. 5277 zu=int(zu):ne=int((zu*9+rnd(.)*5000*cu-rnd(.)*5000*cu)/2):dm(i)=dm(i)+ne
  341. 5278 print"[218]uschauer:"zu:print"[200][lfte der [197]innahmen:"ne:return
  342. 5279 pokevic+21,0:print"[147]":gosub5600:return
  343. 5280 :
  344. 5297 pokevic+21,0:print"[147]":nexti:gosub5600:return
  345. 5300 ifl=2thenreturn
  346. 5301 poke214,21:poke211,1:sys58640:printchr$(18)"[197]lfmeterschie^en: 0[144]";
  347. 5302 l=2:fu=0:eu=0:pokevic+21,2:forj=1to5:forii=1to2
  348. 5303 ifii=1 thenpoke214,21:poke211,19:sys58640:printj;:ifrnd(.)<1-ma(i,1,1)/20 thenfu=fu+1
  349. 5304 ifii=1thengosub5700:goto5306
  350. 5305 ifrnd(.)<.85 theneu=eu+1:gosub5700:fork=1to2000:nextk
  351. 5306 nextii,j:return
  352. 5307 :
  353. 5350 j=j-1:forii=1to2:ifii=1thenj=j+1:poke214,21:poke211,19:sys58640:printj;
  354. 5351 ifii=1andrnd(.)<1-ma(i,1,1)/25thenfu=fu+1
  355. 5352 ifii=1thengosub5700:goto5354
  356. 5353 ifrnd(.)<.85theneu=eu+1:gosub5700:fork=1to2500:nextk
  357. 5354 nextii:return
  358. 5400 fori=1tosp:ifup$(i)<>"ausgeschieden" thenyy$(ww(i))=""
  359. 5401 gu(i)=0:a1$(i)="":ww(i)=0:au(i)=0:ju(i,0)=0:nexti
  360. 5404 poke53265,11
  361. 5405 fori=1tosp:printchr$(18)mid$(x$(sp(i)),3)chr$(146):print:ifau(i) then5411
  362. 5406 ifup$(i)="ausgeschieden"andju(i,1)=0andju(i,2)=0andju(i,3)=0andju(i,4)=0 then5411
  363. 5407 print"[197]rgebnis";:ifww(i) thengosub5424:printstr$(a)":"right$(str$(x),1)
  364. 5408 ifww(i) thenprint"[211]ie spielen ";:goto5411
  365. 5409 print"se:":printright$(str$(ju(i,1)),1)":"right$(str$(ju(i,2)),1)" und"str$(ju(i,3))":";
  366. 5410 printright$(str$(ju(i,4)),1):print"[196]amit sind [211]ie ";
  367. 5411 printup$(i):print
  368. 5412 ifup$(i)="ausgeschieden" thenforii=1to4:ju(i,ii)=0:nextii
  369. 5413 nexti:poke53265,27:return
  370. 5418 ifa$="in der 1. [210]unde"thena$="in der 2. [210]unde":a=5:return
  371. 5419 ifa$="in der 2. [210]unde"thena$="in der 3. [210]unde":a=8:return
  372. 5420 ifa$="in der 3. [210]unde"thena$="in der 4. [210]unde":a=12:return
  373. 5421 ifa$="in der 4. [210]unde"thena$="im [200]albfinale":a=16:return
  374. 5422 ifa$="im [200]albfinale"thena$="im [198]inale":a=20:return
  375. 5423 ifa$="im [198]inale"thena$="[213][197][198][193] [195]up [211]ieger":a=25:return
  376. 5424 ifgu(i)=2thena=ju(i,3):x=ju(i,4)
  377. 5425 ifgu(i)=1thena=ju(i,1):x=ju(i,2)
  378. 5426 return
  379. 5498 pokalergebnisse
  380. 5500 gosub15000:poke214,21:poke211,0:sys58640
  381. 5501 printchr$(18);:forii=1to159:printchr$(32);:nextii
  382. 5502 poke2023,160:poke56295,0
  383. 5503 au=5:fu=0:eu=0:gc=30/(bu-cu):oc=au
  384. 5504 ifx=-1 thenx=gu(i):a$=a1$(i):goto5506
  385. 5505 x=gu:a$=a2$(i)
  386. 5506 ifx=2 thenpoke214,22:poke211,1:sys58640:printchr$(18)a$"  "yy$(sp(i))
  387. 5507 ifx=1 thenpoke214,22:poke211,1:sys58640:printchr$(18)yy$(sp(i))"  "a$
  388. 5508 j=1:ii=90:pokevic+21,3:printchr$(18)"  0"spc(15)"  0";:poke53265,27
  389. 5509 poke214,22:poke211,36:sys58640:au=au+rnd(.)-rnd(.):nc=(au-cu)*gc+5:ifnc<0 thennc=0
  390. 5510 printchr$(18)j;:ifnc>39thennc=39
  391. 5511 ifnc*8>255thenpokevic+16,1:pokevic,nc*8-255:goto5513
  392. 5512 pokevic+16,0:pokevic,nc*8
  393. 5513 oc=nc:ifau>bu+.8theneu=eu+1:n=n+1:pokevic,73:gosub5700:oc=nc:goto5580
  394. 5514 ifau<cu-.3thenfu=fu+1:n=n+1:pokevic,17:gosub5700:oc=nc
  395. 5580 ifj=45thengosub5700
  396. 5581 ifj=105thengosub5700
  397. 5582 j=j+1:ifj=<ii then5509
  398. 5583 gosub5700:ifl=1andgu(i)=1thenju(i,1)=eu:ju(i,2)=fu
  399. 5584 return
  400. 5600 fori=1tosp:ifdp$(i)<>"ausgeschieden" thenyy$(ww(i))=""
  401. 5601 a2$(i)="":ww(i)=0:au(i)=0:nexti
  402. 5603 q9=q9+1:onq9 goto5605,5606,5607,5608,5609,5610,5611,5612,5613,5614,5615,5616
  403. 5604 a2$(i)="waldhof mannh.  ":return
  404. 5605 a2$(i)="fsv mainz 05    ":return
  405. 5606 a2$(i)="sv meppen       ":return
  406. 5607 a2$(i)="preuss. muenster":return
  407. 5608 a2$(i)="vfb oldenburg   ":return
  408. 5609 a2$(i)="vfl osnabrueck  ":return
  409. 5610 a2$(i)="1.fc saarbrueck.":return
  410. 5611 a2$(i)="fc schalke 04   ":return
  411. 5612 a2$(i)="fc schweinfurt  ":return
  412. 5613 a2$(i)="stgt. kickers   ":return
  413. 5614 a2$(i)="hannover 96     ":return
  414. 5615 a2$(i)="msv duisburg    ":return
  415. 5616 a2$(i)="rot-weiss essen ":return
  416. 5700 fork=1to500:nextk:poke214,23:poke211,1:sys58640
  417. 5701 ifx=1thenprintchr$(18)eu;spc(15)fu;
  418. 5702 ifx=2thenprintchr$(18)fu;spc(15)eu;
  419. 5703 au=5+rnd(.)-rnd(.):poke198,0:fork=1to2000:nextk:return
  420. 5998 uebersicht
  421. 6000 iff=2then6030
  422. 6001 ify=1thenvv(h)=sk(h):goto6030
  423. 6002 vv(h)=0:fori=1to20:r=int(ma(h,i,1))
  424. 6003 vv=int(pr(r)+(rnd(.)*ma(h,i,1)*20000)-(rnd(.)*ma(h,i,1)*20000)):vv(h)=vv(h)+vv
  425. 6004 next:vv(h)=vv(h)+dm(h):f=2
  426. 6030 print"[147]";:poke53265,11
  427. 6031 a$="[214]ereins]bersicht":gosub6100
  428. 6032 print"[211]tartverm\gen ....."sk(h)
  429. 6033 print"[214]ereinsverm\gen ..."vv(h):print:x=y:ifes=3 thenx=y-1
  430. 6034 print"[211]pieltag ..........."x
  431. 6035 print"[203]apital ............"dm(h)
  432. 6036 print"[212]abellenplatz ......"pl(h)
  433. 6037 print"[196][198][194] [214]ereinspokal ... "dp$(h)
  434. 6038 print"[213][197][198][193] [195]up ........... "up$(h):print
  435. 6039 print"[199]esamtzuschauer ...."zu(h)
  436. 6040 print"[200]eimspiele ........."az(h)
  437. 6041 print"[218]uschauerschnitt ...";
  438. 6042 x=0:ifaz(h)>0thenx=int(zu(h)/az(h)+.5)
  439. 6043 gosub250:printx:print"[199]eh[lter lfd.[211]aison."gh(h)
  440. 6044 poke198,0:poke53265,27:wait198,1:poke198,0:goto522
  441. 6100 printchr$(18)mid$(x$(sp(h)),3)chr$(146)chr$(32)a$:print"";:return
  442. 6998 abschlussuebersicht
  443. 7000 poke53265,11:ify=1andes=0thenes=3:en=-1
  444. 7001 printchr$(147)"[193]bschlu^tabelle der [198]ussballbundesliga: ";:gosub3590
  445. 7002 forh=1tosp:print"[147]";:poke53265,11:a$="[211]chlu^]bersicht":gosub6100
  446. 7003 vv(h)=0:print"[145]";:fori=1to20:r=int(ma(h,i,1))
  447. 7004 vv=int(pr(r)+(rnd(.)*ma(h,i,1)*20000)-(rnd(.)*ma(h,i,1)*20000)):vv(h)=vv(h)+vv
  448. 7005 a$=str$(vv):a$="      "+right$(a$,len(a$)-1):print:printright$(str$(i),2)chr$(32)right$(a$,7);:next
  449. 7006 print:print"   [192][192][192][192][192][192][192]";:a$=str$(vv(h)):a$="      "+right$(a$,len(a$)-1)
  450. 7007 printspc(33)right$(a$,7);"";
  451. 7008 print"";spc(15)"[205]annschaftswert:":printspc(14)vv(h):print
  452. 7009 printspc(15)"[212]abellenplatz:":printspc(14)pl(h)"mit"str$(pp(sp(h)))":";
  453. 7010 a$=str$(np(sp(h))):a$=right$(a$,len(a$)-1):printa$" [208]unkten und":printspc(14);
  454. 7011 printstr$(pt(sp(h)))":";:a$=str$(nt(sp(h))):a$=right$(a$,len(a$)-1):printa$" [212]oren"
  455. 7012 poke53265,27:poke198,0:wait198,1:poke198,0:next:printchr$(147);
  456. 7013 forh=1tosp:poke53265,11
  457. 7014 print"[147]";"[211]pieler"str$(h)":":print"[212]rainer von "xx$(sp(h)):print
  458. 7015 print"[208]unkte f]r [194]undesligaergebnis ...";:ifpl(h)<4theng1=60+(4-pl(h))*5:goto7017
  459. 7016 g1=(19-pl(h))*4:ifpl(h)=0 theng1=0
  460. 7017 printg1:print"[208]unkte f]r [214]erm\gen .............";:g2=int((vv(h)-sk(h))/150000+.5)
  461. 7018 ifg2<0 theng2=0
  462. 7019 printg2:print"[208]unkte f]r [213][197][198][193] [195]up [212]eilnahme ..."up(h)
  463. 7020 print"[208]unkte f]r [196][198][194] [208]okal [211]piele ....."dp(h)
  464. 7021 print"[208]unkte f]r erzielte [212]ore ........";
  465. 7022 g3=int(pt(sp(h))/10+.5)
  466. 7023 ifpt(sp(h))>nt(sp(h))theng3=g3+int((pt(sp(h))-nt(sp(h)))/10+.5)
  467. 7024 printg3:print"";"[199]esamtpunktzahl";:g5=g1+g2+g3+dp(h)+up(h):printg5:g5(h)=g5
  468. 7025 poke53265,27:poke198,0:wait198,1:poke198,0:next:ifo<>1 then750
  469. 7026 return
  470. 7998 staerke der mannschaften
  471. 8000 print"[147]";:poke53265,11:fori=5to1step-1
  472. 8001 forj=1to18:ifval(left$(x$(j),2))=i thenprintmid$(x$(j),2,1)"  "mid$(x$(j),3)
  473. 8002 nextj,i:print
  474. 8003 print"1  [193]bstiegskandidaten:      11-17 [208]unkte";
  475. 8004 print"2  [213]nteres [205]ittelfeld:      18-26 [208]unkte";
  476. 8005 print"3  [196]urchschnittsvereine:    27-35 [208]unkte";
  477. 8006 print"4  [213][197][198][193] [195]up [193]nw[rter:       36-44 [208]unkte";
  478. 8007 print"5  [211]pitzenmannschaften:     45-55 [208]unkte";
  479. 8008 poke53265,27:poke198,0:wait198,1:poke198,0:goto522
  480. 8498 art der mannschaft
  481. 8500 onma(h,i,4)+1goto8519,8520,8521,8522,8523
  482. 8501 onta(i)goto8520,8521,8522,8523
  483. 8519 g$="           ":return
  484. 8520 g$="[212]orh]ter   ":return
  485. 8521 g$="[214]erteidiger":return
  486. 8522 g$="[205]ittelfeld ":return
  487. 8523 g$="[211]t]rmer    ":return
  488. 8530 onma(h,i,4)+1goto8539,8540,8541,8542,8543
  489. 8531 onta(i)goto8540,8541,8542,8543
  490. 8539 g$="    ":return
  491. 8540 g$="  [212]w":return
  492. 8541 g$="  [214]t":return
  493. 8542 g$="  [205]f":return
  494. 8543 g$="  [211]t":return
  495. 9500 print:ify=34thenprint"[201]hr [199]esamtergebnis ";
  496. 9501 ify<30 thenprint"[211]ie haben zwar nicht sehr lange durch-  gehalten, ihr [197]rgebnis ";
  497. 9502 ify>29andy<34thenprint"[201]hr [197]rgebnis ";
  498. 9503 ify<30andg5(h)<85+y/2thenprint"ist auch         dementsprechend.":goto9510
  499. 9504 ify<30thenprint"ist daf]r aber  nicht einmal schlecht.":goto9510
  500. 9505 x=1:ifg5(h)>50 thenx=2:ifg5(h)>60 thenx=3:ifg5(h)>80 thenx=4:ifg5(h)>100 thenx=5
  501. 9506 onxgoto9512,9515,9518,9521,9524
  502. 9510 x=int((g5(h)-84)/y):ifx>5 thenx=5
  503. 9511 ifx>0 thenonx goto9513,9516,9519,9522,9525
  504. 9512 ifx>0thenprint"ist katastrophal."
  505. 9513 print"[211]ie k\nnen in einer [211]aison jeden gut"
  506. 9514 print"situierten [195]lub in die [208]leite schicken.":return
  507. 9515 print"ist nicht"chr$(13)"]berw[ltigend."
  508. 9516 print"[196]er [198][195][160][194]ayern braucht [211]ie, einmal in der";
  509. 9517 print"[215]oche zum [210]asenm[hen nat]rlich.":return
  510. 9518 print"ist wohl kaum"chr$(13)"bundesligareif."
  511. 9519 print"[211]ie sollten zun[chst einmal zum [221]ben"
  512. 9520 print"mit einer [202]ugendmannschaft in der [203]reis-klasse trainieren.":return
  513. 9521 print"ist beinahe"chr$(13)"bundesligatauglich."
  514. 9522 print"[205]it ein bi^chen [199]l]ck sind [211]ie beim"
  515. 9523 print"n[chsten [205]al ganz oben.":return
  516. 9524 print"ist beachtlich."
  517. 9525 print"[211]ind [211]ie schon bei einem [214]erein der"
  518. 9526 print"[194]undesliga unter [214]ertrag?":return
  519. 10030 start
  520. 10032 dimx$(a),h$(5,5),u(a),s(a),n(a),pp(a),np(a),pt(a),nt(a),pa(a),va(a),m$(a)
  521. 10033 fori=1to5:readpr(i):next
  522. 10034 fori=1to18:readx$(i):va(i)=i
  523. 10035 d%=rnd(.)*5+1:d=d%:w(d)=w(d)+1:ifw(d)>4or(d=5andw(5)>2) then10035
  524. 10036 x$(i)=str$(d)+x$(i):next
  525. 10037 poke53280,13:poke53281,13
  526. 10038 poke53265,11:poke646,0
  527. 10039 print"  [198][213][211][211][194][193][204][204]-[205][193][206][193][199][197][210]  ":print
  528. 10040 print"by [202]\rg [194]\tel"
  529. 10042 print"[194]ei diesem [211]piel k\nnen bis zu drei    "
  530. 10043 print"[211]pieler ihre [198][higkeiten als [198]u^ball-"
  531. 10044 print"trainer unter [194]eweis stellen.[144]"chr$(13)
  532. 10045 print"[194]itte [193]nzahl der [211]pieler eingeben: ";
  533. 10046 poke198,0:poke53265,27:poke19,64:inputa$:poke19,0:print
  534. 10047 sp=val(a$):print"":ifsp>3thensp=3
  535. 10048 print"[151][211]ind die [211]pielregeln bekannt[144]";:inputa$:a$=chr$(asc(a$))
  536. 10049 ifa$="n"ora$="[206]"thengosub20002
  537. 10050 print"[147]";
  538. 10051 poke53265,11
  539. 10052 print"[211]ie k\nnen eine der folgenden [205]ann-     schaften trainieren:":print
  540. 10053 fori=1to18:printright$(str$(i),2)chr$(32)mid$(x$(i),3):next
  541. 10054 poke53265,27:ifsp=0 thensp=1
  542. 10055 fori=1tosp
  543. 10056 poke198,0:poke214,23:poke211,0:sys58640:print"[146]";"[211]pieler"i"[157], bitte w[hlen [211]ie!"
  544. 10057 poke19,64:inputa$:poke19,0:a=val(a$):ifa<1ora>18ora=sp(1)ora=sp(2) then10056
  545. 10058 sp(i)=a:print"[146]";:forj=1toa:print"";:next:printchr$(18)right$(str$(a),2);:next
  546. 10059 fori=1to17:readm$(i):next:fori=1to5:forj=1to5:readh$(i,j):nextj,i
  547. 10060 rem paarungen,ergebnisse
  548. 10061 fori=1to3000:next:poke53265,11:printchr$(147);
  549. 10062 print"[146]";"[218]u [194]eginn der [211]aison verf]gen [211]ie ]ber"
  550. 10063 print"zwei [212]orh]ter, vier [214]erteidiger, f]nf"
  551. 10064 print"[205]ittelfeldspieler, vier [211]t]rmer und"
  552. 10065 print"zwei [205]illionen [196]-[205]ark [211]tartkapital."
  553. 10066 poke53265,27:fori=1to3000:next
  554. 10067 dimxx$(18),ma(sp,20,4),el(11,sp),v(20,sp),ju(sp,4),ba(20,sp),yy$(46)
  555. 10068 dima1$(46),a2$(19):fori=1to18:readxx$(i):next
  556. 10069 forh=1tosp:forj=1to2:ma(h,j,1)=2.2+rnd(.):ma(h,j,4)=1
  557. 10070 ma(h,j,0)=int(ma(h,j,1)*6000):next
  558. 10071 forj=3to6:ma(h,j,1)=2.2+rnd(.):ma(h,j,4)=2:ma(h,j,0)=int(ma(h,j,1)*6000):next
  559. 10072 forj=7to11:ma(h,j,1)=2.2+rnd(.):ma(h,j,4)=3:ma(h,j,0)=int(ma(h,j,1)*6000):next
  560. 10073 forj=12to15:ma(h,j,1)=2.2+rnd(.):ma(h,j,4)=4:ma(h,j,0)=int(ma(h,j,1)*6000):next
  561. 10074 dm(h)=2000000:up$(h)="in der 1. [210]unde":dp$(h)="in der 1. [210]unde"
  562. 10075 forj=1to15:r=int(ma(h,j,1)):vv=int(pr(r)+(rnd(.)*ma(h,j,1)*20000))
  563. 10076 vv=vv-(rnd(.)*ma(h,j,1)*20000):sk(h)=sk(h)+vv:ma(h,j,2)=5:next
  564. 10077 sk(h)=sk(h)+2000000:gosub2400:next:return
  565. 14998 rem spielfeld
  566. 15000 poke53265,11:print"[147]";
  567. 15001 print" [176]";:forii=1to36:print"[192]";:nextii:print"[174]  _";
  568. 15002 forii=1to3:printspc(36)"_  _";:nextii
  569. 15003 printspc(36)"_  [171][192][192][192][174]"spc(28)"[176][192][192][192][179]"
  570. 15004 forii=1to2:print" _"spc(3)"_"spc(28)"_"spc(3)"_":next
  571. 15005 print" [171][192][174]-_"spc(28)"_+[176][192][179] ";
  572. 15006 print"[176][179] _ _"spc(28)"_ _ [171][174]";
  573. 15008 print"[173][179] _ _"spc(28)"_ _ [171][189]";
  574. 15009 print" [171][192][189] _"spc(28)"_ [173][192][179] ";
  575. 15010 forii=1to2:print" _"spc(3)"_"spc(28)"_"spc(3)"_":next
  576. 15011 print" [171][192][192][192][189]"spc(28)"[173][192][192][192][179]":print" _";
  577. 15012 forii=1to3:printspc(36)"_  _";:nextii:printspc(36)"_  [173]";
  578. 15013 forii=1to36:print"[192]";:nextii:print"[189]";
  579. 15014 print""spc(19)"[178]";:forii=1to18:printspc(39)"_";:nextii:printspc(39)"[177]"
  580. 15015 pokevic+21,1:poke646,0:return
  581. 15998 spritegenerieren
  582. 16000 fori=704to766:reada:pokei,a:nexti:poke2041,11
  583. 16001 vic=53248:pokevic+21,0:pokevic+40,1:pokevic+23,2:pokevic+29,2
  584. 16002 pokevic+2,159:pokevic+3,116
  585. 16003 fori=1to46:readyy$(i):next
  586. 16004 fori=832to894:reada:pokei,a:nexti:poke2040,13
  587. 16005 pokevic+39,0:pokevic,172:pokevic+1,124
  588. 16006 return
  589. 20000 spielregeln
  590. 20002 print"[147]";:poke53265,11
  591. 20003 print"[144][194]ei diesem [211]piel f]r maximal drei [205]it-"
  592. 20004 print"spieler simuliert der [195]omputer eine"
  593. 20005 print"[211]aison der [198]u^ballbundesliga. [211]ie sind"
  594. 20006 print"als [212]rainer auf der [194]ank [201]hres [214]ereins"
  595. 20007 print"f]r [205]annschaftsaufstellung, [212]ransfers"
  596. 20008 print"und [197]rgebnisse verantwortlich. [215]ichtig-"
  597. 20009 print"ste [193]ufgabe ist es, zun[chst eine"
  598. 20010 print"m\glichst schlagkr[ftige [212]ruppe aufzu-"
  599. 20011 print"bauen, ohne sich dadurch finanziell zu"
  600. 20012 print"ruinieren. [202]e nach [198]orm [201]hrer und der"
  601. 20013 print"[205]annschaft des [199]egners werden [211]ie in den";
  602. 20014 print"einzelnen [194]egegnungen abschneiden."
  603. 20015 print"[193]llerdings spielt auch der [218]ufall eine"
  604. 20016 print"nicht unwesentliche [210]olle!"
  605. 20017 print"[144][201]n den einzelnen [213]nterprogrammen k\nnen"
  606. 20018 print"[211]pieler aus- und eingewechselt, bzw."
  607. 20019 print"ver- und gekauft werden. [205]an kann sich"
  608. 20020 print"die aktuelle [212]abelle der [194]undesliga,"
  609. 20021 print"[199]eh[lter und [199]esundheitszust[nde der"
  610. 20022 print"einzelnen [211]pieler, sowie die [204]iste ihrer";
  611. 20023 print"gelben [203]arten ansehen. [205]an kann sich"
  612. 20024 print"ferner eine [221]bersicht zum aktuellen"
  613. 20025 print"[211]tand des [214]ereins und die [211]pielpaarungen";
  614. 20026 print"des n[chsten [211]pieltags ausgeben lassen."
  615. 20028 poke53265,27:poke198,0:wait198,1:printchr$(147);:poke53265,11
  616. 20029 print"[218]wischen den einzelnen [194]undesligaspiel- ";
  617. 20030 print"tagen werden [213][197][198][193] [195]up [211]piele und die    ";
  618. 20031 print"[194]egegnungen des [196][198][194] [214]ereinspokals ausge-";
  619. 20032 print"tragen.":print
  620. 20033 print"[198]]r die [211]piele der [194]undesliga und die"
  621. 20034 print"um die [208]okale gelten die [211]pielregeln des";
  622. 20035 print"[196][198][194]. [211]o sind zum [194]eispiel [211]pieler mit"
  623. 20036 print"vier gelben [203]arten gesperrt. [213]nent-"
  624. 20037 print"schiedene [208]okalbegegnungen werden nach  ";
  625. 20038 print"neunzig [205]inuten [211]pielzeit verl[ngert.":print
  626. 20039 print"[144][206]un viel [199]l]ck beim [203]ampf im gro^en          [199]esch[ft der [194]undesliga.";
  627. 20041 poke53265,27:poke198,0:wait198,1:printchr$(147);
  628. 20042 return
  629. 32000 remdatas
  630. 32002 rem pr(i), 1 bis 5
  631. 32003 data 100000,200000,350000,550000,800000
  632. 32005 rem x$(i), 1 bis 18
  633. 32006 data "[198][195] [194]ayern [205]]nchen    "
  634. 32007 data "[211][214] [215]erder [194]remen     "
  635. 32008 data "1. [198][195] [203]\ln           "
  636. 32009 data "[194]orussia [205]'gladbach  "
  637. 32010 data "[194]ayer 05 [213]erdingen   "
  638. 32011 data "[200]amburger [211][214]         "
  639. 32012 data "[211][199] [215]attenscheid 09   "
  640. 32013 data "[203]arlsruher [211][195]        "
  641. 32014 data "[214]f[204] [194]ochum           "
  642. 32015 data "[214]f[194] [211]tuttgart        "
  643. 32016 data "1. [198][195] [203]aiserslautern "
  644. 32017 data "[194]ayer 04 [204]everkusen  "
  645. 32018 data "[197]intracht [198]rankfurt  "
  646. 32019 data "[194]orussia [196]ortmund    "
  647. 32020 data "[198]ortuna [196]]sseldorf   "
  648. 32021 data "[198][195] [211]t. [208]auli         "
  649. 32022 data "[200]ertha [194][211][195] [194]erlin    "
  650. 32023 data "1. [198][195] [206]]rnberg       "
  651. 32025 rem m$(i), 1 bis 17
  652. 32026 data 011115180616031312100217050408070914
  653. 32027 data 140804021712100313061615180111090705
  654. 32028 data 011615130610031712040207051411180908
  655. 32029 data 140204031706101513011611180908050712
  656. 32030 data 151706040307121402081816111309050110
  657. 32031 data 140304151701101113181609050208120706
  658. 32032 data 010415070614030812051613181011170902
  659. 32033 data 141504111718101602120503080607011309
  660. 32034 data 011415080605030213101617180411070912
  661. 32035 data 141104161713100912030206051508010718
  662. 32036 data 010515020612101713041607181411080903
  663. 32037 data 141604101709030612150201051108180713
  664. 32038 data 011215031704100713141608180511020906
  665. 32039 data 141004090615030112110218051608130717
  666. 32040 data 010615091714100813051602181211030704
  667. 32041 data 140415010611031812160213051008170907
  668. 32042 data 010904081705100213121603180611150714
  669. 32044 rem h$(i,j), jeweils 1 bis 5
  670. 32045 data 00011222222
  671. 32046 data 00001122222
  672. 32047 data 00000112222
  673. 32048 data 00000111222
  674. 32049 data 00000011222
  675. 32050 data 00112222222
  676. 32051 data 00011222222
  677. 32052 data 00001122222
  678. 32053 data 00000112222
  679. 32054 data 00000111222
  680. 32055 data 00122222222
  681. 32056 data 00112222222
  682. 32057 data 00011222222
  683. 32058 data 00001122222
  684. 32059 data 00000112222
  685. 32060 data 01122222222
  686. 32061 data 00112222222
  687. 32062 data 00111222222
  688. 32063 data 00011122222
  689. 32064 data 00001122222
  690. 32065 data 01222222222
  691. 32066 data 01122222222
  692. 32067 data 00112222222
  693. 32068 data 00011222222
  694. 32069 data 00011122222
  695. 32071 rem xx$(i), 1 bis 18
  696. 32072 data "[205]]nchen"
  697. 32073 data "[215]erder [194]remen"
  698. 32074 data "1. [198][195] [203]\ln"
  699. 32075 data "[194]or [205]'gladbach"
  700. 32076 data "[213]erdingen 05"
  701. 32077 data "[200]amburger [211][214]"
  702. 32078 data "[211][199] [215]attensch"
  703. 32079 data "[203]arlsruher [211][195]"
  704. 32080 data "[214]f[204] [194]ochum"
  705. 32081 data "[214]f[194] [211]tuttgart"
  706. 32082 data "[203]aiserslautern"
  707. 32083 data "[204]everkusen"
  708. 32084 data "[198]rankfurt"
  709. 32085 data "[194]or [196]ortmund"
  710. 32086 data "[196]]sseldorf"
  711. 32087 data "[198][195] [211]t. [208]auli"
  712. 32088 data "[200]ertha [194][211][195] "
  713. 32089 data "[206]]rnberg"
  714. 32091 rem a, 0 bis 62 (sprite data)
  715. 32092 data 0,248,0,7,7,0,8,0,128
  716. 32095 data 16,0,64,32,0,32,32,0,32
  717. 32098 data 32,0,32,32,0,32,32,0,32
  718. 32101 data 16,0,64,8,0,128,7,7,0
  719. 32104 data 0,248,0,0,0,0,0,0,0
  720. 32107 data 0,0,0,0,0,0,0,0,0
  721. 32110 data 0,0,0,0,0,0,0,0,0
  722. 32114 rem yy$(i), 1 bis 46
  723. 32115 data "[194]ayern [205]]nchen  "
  724. 32116 data "[215]erder [194]remen   "
  725. 32117 data "1. [198][195] [203]\ln      "
  726. 32118 data "[194]or. [205]'[199]ladbach "
  727. 32119 data "[213]erdingen 05    "
  728. 32120 data "[200]amburger [211][214]    "
  729. 32121 data "[211][199] [215]attenscheid "
  730. 32122 data "[203]arlsruher [211][195]   "
  731. 32123 data "[214]f[204] [194]ochum      "
  732. 32124 data "[214]f[194] [211]tuttgart   "
  733. 32125 data "[203]aiserslautern  "
  734. 32126 data "[204]everkusen      "
  735. 32127 data "[198]rankfurt       "
  736. 32128 data "[194]or. [196]ortmund   "
  737. 32129 data "[196]]sseldorf      "
  738. 32130 data "[198][195] [211]t. [208]auli    "
  739. 32131 data "[200]ertha [194][211][195]      "
  740. 32132 data "1. [198][195] [206]]rnberg  "
  741. 32133 data "[201]nter [205]ailand   ","[202]uventus [212]urin  "
  742. 32134 data "[193][211] [210]om          ","[215]est [200]am [213]nited "
  743. 32135 data "[198][195] [204]iverpool    ","[198][195] [197]verton      "
  744. 32136 data "[193]rsenal [204]ondon  ","[198][195] [193]berdeen     "
  745. 32137 data "[210]eal [205]adrid     ","[198][195] [194]arcelona    "
  746. 32138 data "[208][211][214] [197]indhoven   ","[199]lasgow [210]angers "
  747. 32139 data "[193]jax [193]msterdam  ","[198][195] [194]r]gge       "
  748. 32140 data "[210][211][195] [193]nderlecht  ","[198][195] [208]orto        "
  749. 32141 data "[196]ukla [208]rag      ","[204]egia [215]arschau  "
  750. 32142 data "[198][195] [194]arcelona    ","[211]ervette [199]enf   "
  751. 32143 data "[193]ustria [215]ien    ","[193][211] [211]t. [197]tienne  "
  752. 32144 data "[196]ynamo [194]ukarest ","[211]partak [205]oskau  "
  753. 32145 data "[207]lymip.[205]arseille","[193][201][203] [211]tockholm   "
  754. 32146 data "[211]partak [205]oskau  ","[210]oter [211]t.[194]elgrad"
  755. 32148 rem a, 0 bis 62 (sprite data)
  756. 32149 data 0,0,0,0,56,0,0,254,0
  757. 32152 data 0,254,0,1,255,0,1,255,0
  758. 32155 data 1,255,0,0,254,0,0,254,0
  759. 32158 data 0,56,0,0,0,0,0,0,0
  760. 32161 data 0,0,0,0,0,0,0,0,0
  761. 32164 data 0,0,0,0,0,0,0,0,0
  762. 32167 data 0,0,0,0,0,0,0,0,0
  763.