home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 54 / 64er_Magazin_Sonderheft_54_19xx_Markt__Technik_de_Side_A.d64 / wm (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  27KB  |  454 lines
  1. 5 poke198,0:clr:poke53280,0:poke53281,0:printchr$(8)chr$(14)"[147][154]":pa=52224:ik=52256:dimsp(72),li$(52),tt$(72),ve$(24),sg(24),gs(24),us(24),vs(24):dimgt(24),gg(24),pp(24),mp(24),vr$(24),gt$(72),mn$(14):bs=53265
  2. 25 dimts$(163),vt(163),ta(163),at(9),ta$(16):dt$="abcdefghijklmnopqrstuvwxyz":dt$=dt$+"[193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217][218].-' ":dimaf$(16),vf$(8),hf$(4):forx=1to72:tt$(x)="--":nextx:forx=1to16:ta$(x)="--":nextx:forx=1to8:tv$(x)="--":next
  3. 45 forx=1to4:th$(x)="--":nextx:forx=1to2:td$(x)="--":tf$(x)="--":next:de$="0123456789 ":df$=de$+dt$+"+():;/=":forx=1to24:readve$(x):vr$(x)=ve$(x):nextx:lv=0:fort=3to24step4:lv=lv+1:xy$(lv)=ve$(t):next:fort=1to72:readsp(t):nextt:forx=1to52:readli$(x):next
  4. 65 forx=1to9:readme$(x):next:forx=1to5:readmn$(x):next
  5. 70 print"[147][154]":pokebs,11:syspa,2,16,"[176][192][192][192][192][192][192][174]":syspa,3,16,"[221][215][205] '90[221]":syspa,4,16,"[173][192][192][192][192][192][192][189]":deffna(x)=(40-len(me$(x)))/2:ya=4:forx=1to9:ya=ya+2:syspa,ya,fna(x),me$(x)
  6. 110 nextx:syspa,24,0,"[159][160][160][160][160][160][160][160]([195])[160]1990[160]by[160][211]tresing-[211]oft[160][160][160][160][160][160][160][146]";:pokebs,27:ya=6:xa=1:syspa,ya,fna(xa),"[153]"me$(xa)"[146]"
  7. 130 geta$:ifa$=""then130
  8. 135 ifa$=""then155
  9. 140 ifa$="[145]"then185
  10. 145 ifa$=chr$(13)then215
  11. 150 goto130
  12. 155 syspa,ya,fna(xa),me$(xa):xa=xa+1:ya=ya+2:ifxa=10thenxa=1:ya=6
  13. 175 syspa,ya,fna(xa),"[153]"me$(xa)"[146]":goto130
  14. 185 syspa,ya,fna(xa),me$(xa):xa=xa-1:ya=ya-2:ifxa=0thenxa=9:ya=22
  15. 205 syspa,ya,fna(xa),"[153]"me$(xa)"[146]":goto130
  16. 215 onxagoto230,1040,1515,1830,2030,2230,2390,2655,3490
  17. 230 print"[147]":syspa,3,1,"[215]elche [199]ruppe ([193]-[198]) ?"
  18. 240 sysik,3,23,1,"abcdef",gr$:ifgr$=""then240
  19. 245 gr=asc(gr$)-64:ifgr=1thenp2=0:goto260
  20. 255 p2=6
  21. 260 pokebs,11:syspa,1,12,"[153][211]piele [199]ruppe ";chr$(gr+96):syspa,2,12,"[155]---------------":zz=0:aa=(12*gr)-11:ee=12*gr:lv=(aa-1)/2:forx=aatoeestep2:lv=lv+1:zz=zz+3:syspa,zz,1,li$(lv):syspa,zz+1,1,""ve$(sp(x))
  22. 295 syspa,zz+1,14,"-":syspa,zz+1,16,""ve$(sp(x+1)):syspa,zz+1,29,tt$(x):syspa,zz+1,31,":":syspa,zz+1,33,""tt$(x+1):nextx
  23. 325 syspa,22,0,"[154] [197][154]rgebniseingabe    [196][154]rucken     [212][154]abelle [146]";:syspa,23,0,"[154]                 [205][154]enue                  [146]";:pokebs,27
  24. 335 geta$:ifa$=""then335
  25. 340 ifa$="e"thenprint"":goto365
  26. 345 ifa$="t"then705
  27. 350 ifa$="m"then70
  28. 355 ifa$="d"thengosub3625:goto325
  29. 360 goto335
  30. 365 gosub4287:lv=0:zz=1:forx=aatoeestep2:zz=zz+3:lv=lv+1:ifx<=4then450
  31. 445 goto455
  32. 450 vr$(sp(x))=ve$(sp(x)):vr$(sp(x+1))=ve$(sp(x+1))
  33. 455 iftt$(x)="--"thensyspa,zz,29,"  ":syspa,zz,33,"  "
  34. 460 sysik,zz,29,2,de$,o1$:ifo1$=""thentt$(x)="--":tt$(x+1)="--"
  35. 470 ifo1$=""thensyspa,zz,29,tt$(x):syspa,zz,33,tt$(x+1)
  36. 475 ifo1$=""anda1<6thengoto540
  37. 480 ifo1$=""anda1=6then335
  38. 485 tt$(x)=o1$:sysik,zz,33,2,de$,o2$:ifo2$=""thentt$(x)="--":tt$(x+1)="--"
  39. 500 ifo2$=""thensyspa,zz,29,tt$(x):syspa,zz,33,tt$(x+1)
  40. 505 ifo2$=""anda1<6thengoto540
  41. 510 ifo2$=""anda1=6then335
  42. 515 tt$(x+1)=o2$:ifval(tt$(x))>val(tt$(x+1))thengosub550:goto540
  43. 530 ifval(tt$(x))=val(tt$(x+1))thengosub600:goto540
  44. 535 ifval(tt$(x))<val(tt$(x+1))thengosub655:goto540
  45. 540 nextx:goto335
  46. 550 gt(sp(x))=gt(sp(x))+val(tt$(x)):gg(sp(x))=gg(sp(x))+val(tt$(x+1)):sg(sp(x))=sg(sp(x))+1:gs(sp(x))=gs(sp(x))+1:pp(sp(x))=pp(sp(x))+2:gt(sp(x+1))=gt(sp(x+1))+val(tt$(x+1))
  47. 575 gg(sp(x+1))=gg(sp(x+1))+val(tt$(x)):sg(sp(x+1))=sg(sp(x+1))+1:vs(sp(x+1))=vs(sp(x+1))+1:mp(sp(x+1))=mp(sp(x+1))+2:return
  48. 600 gt(sp(x))=gt(sp(x))+val(tt$(x)):gg(sp(x))=gg(sp(x))+val(tt$(x+1))
  49. 610 sg(sp(x))=sg(sp(x))+1:us(sp(x))=us(sp(x))+1:pp(sp(x))=pp(sp(x))+1:mp(sp(x))=mp(sp(x))+1:gt(sp(x+1))=gt(sp(x+1))+val(tt$(x+1)):gg(sp(x+1))=gg(sp(x+1))+val(tt$(x)):sg(sp(x+1))=sg(sp(x+1))+1
  50. 640 us(sp(x+1))=us(sp(x+1))+1:mp(sp(x+1))=mp(sp(x+1))+1:pp(sp(x+1))=pp(sp(x+1))+1:return
  51. 655 gt(sp(x))=gt(sp(x))+val(tt$(x)):gg(sp(x))=gg(sp(x))+val(tt$(x+1)):sg(sp(x))=sg(sp(x))+1:vs(sp(x))=vs(sp(x))+1:mp(sp(x))=mp(sp(x))+2
  52. 675 gt(sp(x+1))=gt(sp(x+1))+val(tt$(x+1)):gg(sp(x+1))=gg(sp(x+1))+val(tt$(x)):sg(sp(x+1))=sg(sp(x+1))+1:gs(sp(x+1))=gs(sp(x+1))+1:pp(sp(x+1))=pp(sp(x+1))+2:return
  53. 705 print"[147]":syspa,1,10,"[153][212]abelle der [199]ruppe ";chr$(gr+96)
  54. 710 syspa,2,10,"[155]--------------------":print"[205]annschaft     [211]  [199] [213] [214]  [212]ore   [196]   [208]kt.";:print"[155]----------------------------------------";:ifsv(gr)=1then915
  55. 730 sv(gr)=1:sv(7)=0:forx=1to72:gt$(x)=tt$(x):nextx:fort=sp(aa)tosp(aa+2):foru=ttosp(aa+3):qt=gt(t)-gg(t):qu=gt(u)-gg(u):ifpp(u)<pp(t)then910
  56. 765 ifpp(u)=pp(t)andmp(u)>mp(t)then910
  57. 770 ifpp(u)=pp(t)andmp(u)=mp(t)andqt>quthen910
  58. 775 ifpp(u)=pp(t)andmp(u)=mp(t)andqt=quandgt(u)<gt(t)then910
  59. 780 ifpp(u)=pp(t)andmp(u)=mp(t)andqt=quandgt(u)=gt(t)then790
  60. 785 goto860
  61. 790 fork=aatoeestep2:ifgt$(k)="--"orgt$(k+1)="--"thennextk
  62. 795 ifk=ee+1then910
  63. 800 ifsp(k)=uandsp(k+1)=tthen804
  64. 802 if(sp(k)=t)and(sp(k+1)=u)then804
  65. 803 nextk
  66. 804 ifval(gt$(u))<val(gt$(t))then910
  67. 805 ifval(gt$(u))=val(gt$(t))and(sg(u)=3andsg(t)=3)then815
  68. 810 goto860
  69. 815 ifu=tthen860
  70. 820 syspa,10,1,"[204]osentscheid !":syspa,12,1,"1 - ";vr$(u):syspa,14,1,"2 - ";vr$(t)
  71. 830 geta$:ifa$=""then830
  72. 835 ifa$<"1"ora$>"2"then830
  73. 840 ifa$="1"thensyspa,10,1,"                  ":syspa,12,1,"                 "
  74. 845 ifa$="1"thensyspa,14,1,"                ":goto860
  75. 850 ifa$="2"thensyspa,10,1,"                  ":syspa,12,1,"                 "
  76. 855 ifa$="2"thensyspa,14,1,"                ":goto910
  77. 860 zw$=vr$(t):vr$(t)=vr$(u):vr$(u)=zw$:zw=sg(t):sg(t)=sg(u):sg(u)=zw:zw=gs(t):gs(t)=gs(u):gs(u)=zw:zw=us(t):us(t)=us(u):us(u)=zw:zw=vs(t):vs(t)=vs(u):vs(u)=zw:zw=gt(t):gt(t)=gt(u):gt(u)=zw
  78. 890 zw=gg(t):gg(t)=gg(u):gg(u)=zw:zw=pp(t):pp(t)=pp(u):pp(u)=zw:zw=mp(t):mp(t)=mp(u):mp(u)=zw
  79. 910 nextu,t
  80. 915 kp=0:zz=6:forx=sp(aa)tosp(aa+3):kp=kp+1:kp$=right$(str$(kp),1)+".":sg$=right$(str$(sg(x)),2):gs$=right$(str$(gs(x)),2)
  81. 935 us$=right$(str$(us(x)),2):vs$=right$(str$(vs(x)),2):gt$=right$(str$(gt(x)),2):gg$=right$(str$(gg(x)),2):dy=gt(x)-gg(x):dy$=str$(dy):iflen(dy$)=3andsgn(dy)=-1thendy$=dy$
  82. 950 iflen(dy$)=3andsgn(dy)=1thendy$="+"+right$(dy$,2)
  83. 955 iflen(dy$)=2andsgn(dy)=-1thendy$="- "+right$(dy$,1)
  84. 960 iflen(dy$)=2andsgn(dy)=1thendy$="+ "+right$(dy$,1)
  85. 965 ifsgn(dy)=0thendy$=" "+dy$
  86. 970 pp$=right$(str$(pp(x)),1):mp$=right$(str$(mp(x)),1):zz=zz+1:syspa,zz,0,"[158]"kp$;vr$(x);tab(14);sg$;" ";gs$;us$;vs$;" ";gt$;":";:printgg$;"  ";dy$;"  ";pp$;"-";mp$:nextx:forn=aatoaa+3:ifsg(sp(n))<3thentb(ee/12)=0:goto1005
  87. 1000 ifsg(sp(n))=3thennextn:tb(ee/12)=1
  88. 1005 syspa,22,0,"[154] [205][154]enue          [211][154]piele          [196][154]rucken [146]";
  89. 1010 geta$:ifa$=""then1010
  90. 1015 ifa$="m"then70
  91. 1020 ifa$="d"thengosub3625:goto1005
  92. 1025 ifa$="s"thenprint"[147]":goto260
  93. 1030 goto1010
  94. 1040 print"[147]":pokebs,11:syspa,1,fna(xa),"[153]"me$(xa):syspa,2,fna(xa)+1,"[155]-------------------":syspa,5,0,"[205]annschaft     [211]   [212]ore   [196]   [208]unkte":syspa,6,0,"[155]------------------------------------"
  95. 1062 forn=1to6:iftb(n)=0thentb=0:goto1065
  96. 1063 iftb(n)=1thennextn:tb=1
  97. 1065 ifsv(7)=1then1400
  98. 1070 sv(7)=1:l=0:fort=3to24step4:l=l+1:xy$(l)=vr$(t):pl(l)=pp(t):mi(l)=mp(t):ge(l)=gt(t):gn(l)=gg(t):gr(l)=t:sl(l)=sg(t):next:forx=1to5:fory=xto6:dx=ge(x)-gn(x):dy=ge(y)-gn(y):ifpl(y)<pl(x)then1195
  99. 1085 ifpl(y)=pl(x)andmi(y)>mi(x)then1195
  100. 1090 ifpl(y)=pl(x)andmi(y)=mi(x)anddx>dythen1195
  101. 1095 ifpl(y)=pl(x)andmi(y)=mi(x)anddx=dyandge(y)<ge(x)then1195
  102. 1100 ifpl(y)=pl(x)andmi(y)=mi(x)anddx=dyandge(y)=ge(x)then1111
  103. 1105 goto1175
  104. 1111 iftb=0then1175
  105. 1115 fort=1to6:ifsl(t)=3thennextt
  106. 1120 ift<=6andsl(t)<3then1175
  107. 1125 ifx=ythen1175
  108. 1130 pokebs,27:syspa,10,1,"[204]osentscheid !":syspa,12,1,"1 - ";xy$(y):syspa,14,1,"2 - ";xy$(x)
  109. 1140 geta$:ifa$=""then1140
  110. 1145 ifa$<"1"ora$>"2"then1140
  111. 1150 syspa,10,1,"                ":syspa,12,1,"                ":syspa,14,1,"                ":pokebs,11:ifa$="1"then1175
  112. 1165 ifa$="2"then1195
  113. 1175 zw$=xy$(x):xy$(x)=xy$(y):xy$(y)=zw$:zw=ge(x):ge(x)=ge(y):ge(y)=zw:zw=gn(x):gn(x)=gn(y):gn(y)=zw:zw=pl(x):pl(x)=pl(y):pl(y)=zw:zw=mi(x):mi(x)=mi(y):mi(y)=zw:zw=sl(x):sl(x)=sl(y):sl(y)=zw
  114. 1190 zw=gr(x):gr(x)=gr(y):gr(y)=zw
  115. 1195 nexty,x:forx=1to6:ifsl(x)<3thenac=0:ah=0:goto1400
  116. 1205 ifsl(x)=3thennextx:fort=1to4:af(t)=int((gr(t)/4)+.75):nextt:ac=1:goto1400
  117. 1215 forx=1to3:fory=xto4:ifaf(y)<af(x)thenb=af(x):af(x)=af(y):af(y)=b
  118. 1225 nexty,x:forx=1to4step2:af$=af$+right$(str$(af(x)),1)+right$(str$(af(x+1)),1):nextx:ifaf$="1234"thengosub1330:gosub1335:gosub1350:gosub1365:goto1380
  119. 1245 ifaf$="1235"thengosub1320:gosub1340:gosub1355:gosub1365:goto1380
  120. 1250 ifaf$="1236"thengosub1320:gosub1340:gosub1360:gosub1365:goto1380
  121. 1255 ifaf$="1245"thengosub1320:gosub1340:gosub1355:gosub1370:goto1380
  122. 1260 ifaf$="1246"thengosub1320:gosub1340:gosub1360:gosub1370:goto1380
  123. 1265 ifaf$="1256"thengosub1320:gosub1340:gosub1360:gosub1375:goto1380
  124. 1270 ifaf$="1345"thengosub1330:gosub1335:gosub1355:gosub1365:goto1380
  125. 1275 ifaf$="1346"thengosub1330:gosub1335:gosub1360:gosub1365:goto1380
  126. 1280 ifaf$="1356"thengosub1320:gosub1345:gosub1355:gosub1365:goto1380
  127. 1285 ifaf$="1456"thengosub1320:gosub1345:gosub1355:gosub1370:goto1380
  128. 1290 ifaf$="2345"thengosub1330:gosub1340:gosub1355:gosub1365:goto1380
  129. 1295 ifaf$="2346"thengosub1330:gosub1340:gosub1360:gosub1365:goto1380
  130. 1300 ifaf$="2356"thengosub1325:gosub1340:gosub1360:gosub1375:goto1380
  131. 1305 ifaf$="2456"thengosub1330:gosub1340:gosub1360:gosub1375:goto1380
  132. 1310 ifaf$="3456"thengosub1330:gosub1345:gosub1355:gosub1365:goto1380
  133. 1320 af$(2)=vr$(3):return
  134. 1325 af$(2)=vr$(11):return
  135. 1330 af$(2)=vr$(15):return
  136. 1335 af$(6)=vr$(3):return
  137. 1340 af$(6)=vr$(7):return
  138. 1345 af$(6)=vr$(23):return
  139. 1350 af$(8)=vr$(7):return
  140. 1355 af$(8)=vr$(19):return
  141. 1360 af$(8)=vr$(23):return
  142. 1365 af$(12)=vr$(11):return
  143. 1370 af$(12)=vr$(15):return
  144. 1375 af$(12)=vr$(19):return
  145. 1380 af$(1)=vr$(5):af$(3)=vr$(2):af$(4)=vr$(10):af$(5)=vr$(9):af$(7)=vr$(13):af$(9)=vr$(22):af$(10)=vr$(6):af$(11)=vr$(1):af$(13)=vr$(17):af$(14)=vr$(14):af$(15)=vr$(21):af$(16)=vr$(18)
  146. 1391 ah=1:return
  147. 1400 zz=6:forx=1to6:kp$=right$(str$(x),1)+".":sg$=right$(str$(sl(x)),2):gt$=right$(str$(ge(x)),2):gg$=right$(str$(gn(x)),2):dy=ge(x)-gn(x):dy$=str$(dy):iflen(dy$)=3andsgn(dy)=-1then1450
  148. 1430 iflen(dy$)=3andsgn(dy)=1thendy$="+"+right$(dy$,2):goto1450
  149. 1435 iflen(dy$)=2andsgn(dy)=-1thendy$="- "+right$(dy$,1):goto1450
  150. 1440 iflen(dy$)=2andsgn(dy)=1thendy$="+ "+right$(dy$,1):goto1450
  151. 1445 ifsgn(dy)=0thendy$=" "+dy$
  152. 1450 pp$=right$(str$(pl(x)),1):mp$=right$(str$(mi(x)),1):zz=zz+1:syspa,zz,0,"[158]"kp$;xy$(x);tab(14);sg$;"  ";gt$;":";gg$;"  ";dy$;"    ";pp$;:print"-";mp$:nextx:pokebs,27:iftb=0then1485
  153. 1471 ifah=1then1485
  154. 1475 ifac=1thensyspa,15,0,"[193]chtelfinalpaarungen werden berechnet !"
  155. 1480 ifac=1thengosub1215:forx=0to39:syspa,15,x," ":nextx
  156. 1485 syspa,22,0,"[154] [205][154]enue                          [196][154]rucken [146]";
  157. 1490 geta$:ifa$=""then1490
  158. 1495 ifa$="m"then70
  159. 1500 ifa$="d"thengosub3625:goto1485
  160. 1505 goto1490
  161. 1515 pt=1
  162. 1520 pokebs,11:print"[147]":ifpt=1thensyspa,1,7,"[153][193]chtelfinale [211]piele 1 - 4"
  163. 1530 ifpt=2thensyspa,1,7,"[153][193]chtelfinale [211]piele 5 - 8"
  164. 1535 syspa,2,7,"[155]-------------------------":ifac=0orah=0thensyspa,4,1,"[214]orrunde nicht abgeschlossen !!!"
  165. 1545 ifpt=1thenax=36:zz=3
  166. 1550 ifpt=2thenax=40:zz=3
  167. 1555 ifpt=1thenforx=1to8step2
  168. 1560 ifpt=2thenforx=9to16step2
  169. 1565 zz=zz+3:ax=ax+1:syspa,zz,1,li$(ax):syspa,zz+1,1,""af$(x):syspa,zz+1,14,"-":syspa,zz+1,16,""af$(x+1):syspa,zz+1,29,""ta$(x):syspa,zz+1,31,":":syspa,zz+1,33,""ta$(x+1):nextx
  170. 1600 gosub4286:ifpt=1thensyspa,23,0,"[154]       [193][154]chtelfinale [211]piele 5 - 8        [146]";
  171. 1610 ifpt=2thensyspa,23,0,"[154]       [193][154]chtelfinale [211]piele 1 - 4        [146]";
  172. 1615 geta$:ifa$=""then1615
  173. 1620 ifa$="a"andpt=1thenpt=2:goto1520
  174. 1625 ifa$="a"andpt=2thenpt=1:goto1520
  175. 1630 ifa$="e"andsv(7)=1andac=1andah=1thenprint"":goto1650
  176. 1635 ifa$="m"then70
  177. 1640 ifa$="d"thengosub3625:goto1600
  178. 1645 goto1615
  179. 1650 gosub4291:zz=4:ifpt=1thenforx=1to8step2
  180. 1675 ifpt=2thenforx=9to16step2
  181. 1680 zz=zz+3:ifta$(x)="--"thensyspa,zz,29,"  ":syspa,zz,33,"  "
  182. 1690 sysik,zz,29,2,de$,o3$:ifo3$=""thenta$(x)="--":ta$(x+1)="--":syspa,zz,29,ta$(x)
  183. 1700 ifo3$=""thensyspa,zz,33,ta$(x+1):goto1735
  184. 1705 ta$(x)=o3$:sysik,zz,33,2,de$,o4$:ifo4$=""thenta$(x+1)="--":ta$(x)="--":syspa,zz,29,ta$(x)
  185. 1720 ifo4$=""thensyspa,zz,33,ta$(x+1):goto1735
  186. 1725 ta$(x+1)=o4$:ifta$(x+1)=ta$(x)then1690
  187. 1735 nextx:ifval(ta$(1))>val(ta$(2))thenvf$(7)=af$(1)
  188. 1745 ifval(ta$(1))<val(ta$(2))thenvf$(7)=af$(2)
  189. 1750 ifval(ta$(3))>val(ta$(4))thenvf$(5)=af$(3)
  190. 1755 ifval(ta$(3))<val(ta$(4))thenvf$(5)=af$(4)
  191. 1760 ifval(ta$(5))>val(ta$(6))thenvf$(1)=af$(5)
  192. 1765 ifval(ta$(5))<val(ta$(6))thenvf$(1)=af$(6)
  193. 1770 ifval(ta$(7))>val(ta$(8))thenvf$(6)=af$(7)
  194. 1775 ifval(ta$(7))<val(ta$(8))thenvf$(6)=af$(8)
  195. 1780 ifval(ta$(9))>val(ta$(10))thenvf$(3)=af$(9)
  196. 1785 ifval(ta$(9))<val(ta$(10))thenvf$(3)=af$(10)
  197. 1790 ifval(ta$(11))>val(ta$(12))thenvf$(4)=af$(11)
  198. 1795 ifval(ta$(11))<val(ta$(12))thenvf$(4)=af$(12)
  199. 1800 ifval(ta$(13))>val(ta$(14))thenvf$(2)=af$(13)
  200. 1805 ifval(ta$(13))<val(ta$(14))thenvf$(2)=af$(14)
  201. 1810 ifval(ta$(15))>val(ta$(16))thenvf$(8)=af$(15)
  202. 1815 ifval(ta$(15))<val(ta$(16))thenvf$(8)=af$(16)
  203. 1816 forx=1to16:ifta$(x)<>"--"thennextx:an=1:goto1820
  204. 1817 ifta$(x)="--"thenan=0
  205. 1820 goto1615
  206. 1830 pokebs,11:print"[147]":syspa,1,fna(xa),"[153]"me$(xa):syspa,2,fna(xa)+1,"[155]-------------":ifan=0thensyspa,4,1,"[193]chtelfinale nicht abgeschlossen !!!"
  207. 1850 ax=44:zz=3:forx=1to8step2:zz=zz+3:ax=ax+1:syspa,zz,1,li$(ax):syspa,zz+1,1,""vf$(x):syspa,zz+1,14,"-":syspa,zz+1,16,""vf$(x+1):syspa,zz+1,29,""tv$(x):syspa,zz+1,31,":":syspa,zz+1,33,""tv$(x+1)
  208. 1890 nextx
  209. 1895 gosub4286
  210. 1900 geta$:ifa$=""then1900
  211. 1905 ifa$="e"andan=1thenprint"":goto1930
  212. 1910 ifa$="d"thengosub3625:goto1895
  213. 1915 ifa$="m"then70
  214. 1920 goto1900
  215. 1930 zz=4:a1=0:gosub4292:forx=1to8step2:zz=zz+3:a1=a1+1:iftv$(x)="--"thensyspa,zz,29,"  ":syspa,zz,33,"  "
  216. 1955 sysik,zz,29,2,de$,o3$:ifo3$=""thentv$(x)="--":tv$(x+1)="--":syspa,zz,29,tv$(x)
  217. 1965 ifo3$=""thensyspa,zz,33,tv$(x+1):goto2015
  218. 1970 tv$(x)=o3$:sysik,zz,33,2,de$,o4$:ifo4$=""thenth$(x+1)="--":th$(x)="--":syspa,zz,29,th$(x)
  219. 1985 ifo4$=""thensyspa,zz,33,th$(x+1):goto2015
  220. 1990 tv$(x+1)=o4$:iftv$(x+1)=tv$(x)then1955
  221. 2000 ifval(tv$(x))=val(tv$(x+1))then2015
  222. 2005 ifval(tv$(x))>val(tv$(x+1))thenhf$(a1)=vf$(x):goto2015
  223. 2010 hf$(a1)=vf$(x+1)
  224. 2015 nextx:forx=1to8:iftv$(x)<>"--"thennextx:vf=1:goto2020
  225. 2017 iftv$(x)="--"thenvf=0
  226. 2020 goto1900
  227. 2030 print"[147][154]":pokebs,11:syspa,1,fna(xa),"[153]"me$(xa):syspa,2,fna(xa)+1,"[155]----------":ifvf=0thenwm$="":wm=0:syspa,4,1,"[214]iertelfinale nicht abgeschlossen!"
  228. 2050 ax=48:zz=3:forx=1to4step2:zz=zz+3:ax=ax+1:syspa,zz,1,li$(ax):syspa,zz+1,1,""hf$(x):syspa,zz+1,14,"-":syspa,zz+1,16,""hf$(x+1):syspa,zz+1,29,""th$(x):syspa,zz+1,31,":":syspa,zz+1,33,""th$(x+1)
  229. 2100 nextx
  230. 2105 gosub4286
  231. 2110 geta$:ifa$=""then2110
  232. 2115 ifa$="e"andvf=1thenprint"":goto2140
  233. 2120 ifa$="d"thengosub3625:goto2105
  234. 2125 ifa$="m"then70
  235. 2130 goto2110
  236. 2140 zz=4:a1=0:gosub4293:forx=1to4step2:zz=zz+3:a1=a1+1:ifth$(x)="--"thensyspa,zz,29,"  ":syspa,zz,33,"  "
  237. 2165 sysik,zz,29,2,de$,o3$:ifo3$=""thenth$(x)="--":th$(x+1)="--":syspa,zz,29,th$(x)
  238. 2175 ifo3$=""thensyspa,zz,33,th$(x+1):goto2220
  239. 2180 th$(x)=o3$:sysik,zz,33,2,de$,o4$:ifo4$=""thenth$(x+1)="--":th$(x)="--":syspa,zz,29,th$(x)
  240. 2195 ifo4$=""thensyspa,zz,33,th$(x+1):goto2220
  241. 2200 th$(x+1)=o4$:ifth$(x+1)=th$(x)then2165
  242. 2210 if(val(th$(x)))>(val(th$(x+1)))thenfi$(a1)=hf$(x):pd$(a1)=hf$(x+1)
  243. 2215 if(val(th$(x)))<(val(th$(x+1)))thenfi$(a1)=hf$(x+1):pd$(a1)=hf$(x)
  244. 2220 nextx:forx=1to4:ifth$(x)<>"--"thennextx:hf=1:goto2223
  245. 2222 ifth$(x)="--"thenhf=0
  246. 2223 goto2110
  247. 2230 print"[147][154]":pokebs,11:syspa,1,fna(xa),"[153]"me$(xa):syspa,2,fna(xa)+1,"[155]----------------":ifhf=0thensyspa,4,1,"[200]albfinale nicht abgeschlossen !!!"
  248. 2250 syspa,6,1,li$(51):syspa,8,1,""pd$(1):syspa,8,14,"-":syspa,8,16,""pd$(2):syspa,8,29,td$(1):syspa,8,31,":":syspa,8,33,""td$(2)
  249. 2285 gosub4286
  250. 2290 geta$:ifa$=""then2290
  251. 2295 ifa$="e"andhf=1thenprint"":goto2315
  252. 2300 ifa$="d"thengosub3625:goto2285
  253. 2305 ifa$="m"then70
  254. 2310 goto2290
  255. 2315 iftd$(1)="--"thensyspa,8,29,"  ":syspa,8,33,"  "
  256. 2320 sysik,8,29,2,de$,o5$:ifo5$=""thentd$(1)="--":td$(2)="--":syspa,8,29,td$(1)
  257. 2330 ifo5$=""thensyspa,8,33,td$(2):goto2290
  258. 2335 td$(1)=o5$:sysik,8,33,2,de$,o6$:ifo6$=""thentd$(1)="--":td$(2)="--":syspa,8,29,td$(1)
  259. 2350 ifo6$=""thensyspa,8,33,td$(2):goto2290
  260. 2355 td$(2)=o6$:iftd$(1)=td$(2)then2320
  261. 2365 ifval(td$(1))>val(td$(2))thenp1$=pd$(1):p2$=pd$(2):goto2290
  262. 2370 ifval(td$(1))<val(td$(2))thenp1$=pd$(2):p2$=pd$(1):goto2290
  263. 2390 print"[147][154]":pokebs,11:syspa,1,fna(xa),"[153]"me$(xa):syspa,2,fna(xa)+1,"[155]------":ifhf=0thensyspa,4,1,"[200]albfinale nicht abgeschlossen !":wm=0:wm$=""
  264. 2410 syspa,6,1,li$(52):syspa,8,1,""fi$(1):syspa,8,14,"-":syspa,8,16,""fi$(2):syspa,8,29,""tf$(1):syspa,8,31,":":syspa,8,33,""tf$(2):ifwm=1thensyspa,12,11,"[215]eltmeister   1990"
  265. 2450 ifwm=1thensyspa,13,11,"[155]------------------"
  266. 2455 ifwm=1thensyspa,15,((40-len(wm$))/2),""wm$
  267. 2460 gosub4286
  268. 2465 geta$:ifa$=""then2465
  269. 2470 ifa$="e"andhf=1thenprint"":goto2495
  270. 2475 ifa$="d"thengosub3625:goto2460
  271. 2480 ifa$="m"then70
  272. 2485 goto2465
  273. 2495 iftf$(1)="--"thensyspa,8,29,"  ":syspa,8,33,"  "
  274. 2500 sysik,8,29,2,de$,o5$:ifo5$=""thentf$(1)="--":tf$(2)="--":wm$="":wm=0:goto2465
  275. 2510 tf$(1)=o5$:sysik,8,33,2,de$,o6$:ifo6$=""thentf$(1)="--":tf$(2)="--":wm$="":wm=0:goto2465
  276. 2525 tf$(2)=o6$:iftf$(2)=tf$(1)then2500
  277. 2535 if(val(tf$(1))>val(tf$(2)))thenwm$=fi$(1):wm=1:goto2550
  278. 2540 wm$=fi$(2):wm=1
  279. 2550 print"[147]":fork=1to50:syspa,8,10," [215]eltmeister   1990 [146]":forx=1to200step(k/5):nextx:syspa,8,10," [215]eltmeister   1990 ":forx=1to200step(k/5):nextx:nextk:syspa,8,10," [215]eltmeister   1990 ":syspa,10,((40-len(wm$))/2)-1,"[176]"
  280. 2580 syspa,11,((40-len(wm$))/2)-1,"[221]":syspa,12,((40-len(wm$))/2)-1,"[173]":syspa,10,((40-len(wm$))/2)+len(wm$),"[174]":syspa,11,((40-len(wm$))/2)+len(wm$),"[221]":syspa,12,((40-len(wm$))/2)+len(wm$),"[189]":forx=1tolen(wm$):syspa,10,((40-len(wm$))/2)-1+x,"[192]"
  281. 2605 syspa,12,((40-len(wm$))/2)-1+x,"[192]":nextx:fork=1to50:syspa,11,((40-len(wm$))/2),""wm$:forx=1to200step(k/5):nextx:syspa,11,((40-len(wm$))/2),""wm$"[146]":forx=1to200step(k/5):nextx:nextk:syspa,11,((40-len(wm$))/2),wm$:syspa,22,0,"[154]                 [205][154]enue                  [146]";
  282. 2635 geta$:ifa$=""then2635
  283. 2640 ifa$<>"m"then2635
  284. 2645 goto70
  285. 2655 print"[147]":syspa,1,1,"[153][212]orschuetzen":syspa,2,1,"[155]------------":syspa,6,1,"[158]1 - [206]eue [212]orschuetzen":syspa,8,1,"2 - [212]orschuetzenliste":syspa,22,0,"[154]                 [205][154]enue                 [146]";
  286. 2680 geta$:ifa$=""then2680
  287. 2685 ifa$<"1"ora$>"2"anda$<"m"ora$>"m"then2680
  288. 2690 ifa$="1"then2715
  289. 2695 ifa$="2"andat(1)=0then2680
  290. 2700 ifa$="2"then2865
  291. 2705 ifa$="m"then70
  292. 2715 pokebs,11:print"[147]":syspa,1,1,"[153][206]eue [212]orschuetzen":syspa,2,1,"[155]-----------------":ifat+1>162thensyspa,5,1,"[203]ein weiterer [197]intrag moeglich !!!":pokebs,27
  293. 2722 ifat+1>162thenpoke198,0:wait198,1:goto2655
  294. 2725 z1=4:forx=1to12:z1=z1+1:syspa,z1,1,"[158]"right$(str$(x),2);" - ";ve$(x):syspa,z1,20,"[158]"right$(str$(x+12),2);" - ";ve$(x+12):nextx:pokebs,27
  295. 2750 ifas=0thenas=1:at(as)=at(as)+1:goto2765
  296. 2755 ifat(as)=18thenas=as+1:at(as)=at(as)+1:goto2765
  297. 2760 at(as)=at(as)+1
  298. 2765 at=at+1:syspa,18,1,"[158][211]pielername:":syspa,19,14,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][158]":syspa,18,14,"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]":syspa,20,7,"[160][160]"
  299. 2775 sysik,18,14,17,dt$,ts$:ifts$=""then2775
  300. 2780 syspa,20,1,"[158][204]and:":syspa,21,7,"[163][163]"
  301. 2785 sysik,20,7,2,"1234567890",vt$:ifvt$=""then2785
  302. 2790 ifval(vt$)>24then2785
  303. 2795 ifas=1thents$(at(as))=ts$:vt(at(as))=val(vt$)
  304. 2810 ifas>1thents$(at(as)+(as-1)*18)=ts$
  305. 2815 ifas>1thenvt(at(as)+(as-1)*18)=val(vt$)
  306. 2825 vt$="":ts$="":syspa,22,0,"[154] [212][154]orschuetzenliste    [205][154]enue     [197][154]ingabe [146]";
  307. 2835 geta$:ifa$=""then2835
  308. 2840 ifa$="t"then2865
  309. 2845 ifa$="m"then70
  310. 2850 ifa$="e"then2750
  311. 2855 goto2835
  312. 2865 ns=1:nt=1:zz=2:as=int(as)
  313. 2870 pokebs,11:print"[147]":syspa,1,5,"[212]orschuetze:":syspa,1,23,"[204]and:":syspa,1,35,"[212]ore:":syspa,2,2,"[155]--------------------------------------":forx=((ns*18)-17)to((ns-1)*18+at(ns))
  314. 2890 zz=zz+1:syspa,zz,1,"[158]"right$(str$(x),3)".":syspa,zz,5,"[153]"ts$(x):syspa,zz,23,""ve$(vt(x)):syspa,zz,36,""right$(str$(ta(x)),2):nextx:syspa,21,0,"[154] [198]1/[198]3[154] = [194]laettern    [205][154]enue   [211][154]ortieren [146]":syspa,22,0," [193][154]endern   [196][154]rucken   [197][154]ingabe   [204][154]oeschen [146]"
  315. 2930 syspa,23,0," [195][210][211][210] up/down[154] = [210]auf/[210]unter  +/-[154] = [212]ore [146]";
  316. 2935 ze=3:sp=0
  317. 2940 syspa,ze,sp,">[154]":pokebs,27
  318. 2945 geta$:ifa$=""then2945
  319. 2950 ifa$=""then3430
  320. 2955 ifa$="[145]"then3445
  321. 2960 ifa$="e"then2655
  322. 2965 ifa$="m"then70
  323. 2970 ifa$="[133]"andas>1then3020
  324. 2975 ifa$="[134]"andas>1then3040
  325. 2980 ifa$="+"thenfl=0:goto3055
  326. 2985 ifa$="-"thenfl=0:goto3075
  327. 2990 ifa$="a"then3095
  328. 2995 ifa$="l"then3295
  329. 3000 ifa$="s"andfl=0then3365
  330. 3005 ifa$="d"then3700
  331. 3010 goto2945
  332. 3020 ifns+1>9thenns=1:zz=2:nt=(ns-1)*18+1:goto2870
  333. 3025 ifat(ns+1)>0thenns=ns+1:nt=(ns-1)*18+1:zz=2:goto2870
  334. 3030 if(ns=1andat(ns+1)=0)or(ns+1>as)thenns=1:nt=(ns-1)*18+1:zz=2:goto2870
  335. 3040 ifns-1>0thenns=ns-1:nt=(ns-1)*18+1:zz=2:goto2870
  336. 3045 ifns-1=0thenns=as:nt=(ns-1)*18+1:zz=2:goto2870
  337. 3055 ifta(nt)<99thenta(nt)=ta(nt)+1:goto3065
  338. 3060 ifta(nt)=99thenta(nt)=0:goto3065
  339. 3065 syspa,ze,36,"   ":syspa,ze,36,""right$(str$(ta(nt)),2):goto2945
  340. 3075 ifta(nt)=0thenta(nt)=99:goto3085
  341. 3080 ifta(nt)>0thenta(nt)=ta(nt)-1:goto3085
  342. 3085 syspa,ze,36,"   ":syspa,ze,36,""right$(str$(ta(nt)),2):goto2945
  343. 3095 print"[147]":syspa,1,1,"[153][203]orrektur":syspa,2,1,"[155]---------":syspa,5,1,"[158][215]as soll korrigiert werden ?":syspa,7,1,"1 - [206]ame":syspa,9,1,"2 - [204]and"
  344. 3115 geta$:ifa$=""then3115
  345. 3120 ifa$<"1"ora$>"2"then3115
  346. 3125 ifa$="1"then3140
  347. 3130 ifa$="2"then3200
  348. 3140 print"[147]":syspa,1,1,"[153][203]orrektur des [206]amens":syspa,2,1,"[155]--------------------":syspa,4,1,"[158][193]lter [206]ame:":syspa,4,13,ts$(nt):syspa,6,13,"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]":syspa,6,1,"[206]euer [206]ame:":syspa,7,13,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  349. 3160 sysik,6,13,17,dt$,ts$:ifts$=""then3160
  350. 3165 ts$(nt)=ts$:ts$="":syspa,22,0,"[154] [212][154]orschuetzenliste                [205][154]enue [146]";
  351. 3175 geta$:ifa$=""then3175
  352. 3180 ifa$="t"then2865
  353. 3185 ifa$="m"then70
  354. 3190 goto3175
  355. 3200 pokebs,11:print"[147]":syspa,1,1,"[153][203]orrektur des [204]andes":syspa,2,1,"[155]--------------------":z1=3:forx=1to12:z1=z1+1:syspa,z1,1,"[158]"right$(str$(x),2);" - ";ve$(x):syspa,z1,20,"[158]"right$(str$(x+12),2);" - ";ve$(x+12)
  356. 3225 nextx:syspa,18,1,"[158][193]ltes [204]and:":syspa,18,13,ve$(vt(nt)):pokebs,27:syspa,20,1,"[158][206]eues [204]and:":syspa,21,13,"[163][163]":syspa,20,13,"[160][160]"
  357. 3245 sysik,20,13,2,"1234567890",vt$:ifvt$=""orval(vt$)>24then3245
  358. 3250 vt(nt)=val(vt$):vt$="":syspa,22,0,"[154] [212][154]orschuetzenliste                [205][154]enue [146]";
  359. 3270 geta$:ifa$=""then3270
  360. 3275 ifa$="t"then2865
  361. 3280 ifa$="m"then70
  362. 3285 goto3270
  363. 3295 print"[147][215]irklich ([202]/[206]) ?"
  364. 3300 geta$:ifa$=""then3300
  365. 3305 ifa$="j"then3320
  366. 3310 ifa$="n"then2865
  367. 3315 goto3300
  368. 3320 print"[147]":at=0:forx=1to9:at=at+at(x):next:forx=nttoat:ts$(x)=ts$(x+1):vt(x)=vt(x+1):ta(x)=ta(x+1):next:ts$(at)="":vt(at)=0:ta(at)=0:at=at-1:ifat(as)>1thenat(as)=at(as)-1:goto2865
  369. 3350 ifat(as)=1thenas=as-1:at(as+1)=0:ifas>=1then2865
  370. 3355 goto2655
  371. 3365 at=0:print"[147][158][210]eihenfolge wird berechnet !":forx=1to9:at=at+at(x):next:fort=1toat-1:foru=ttoat:ifta(u)<=ta(t)then3410
  372. 3390 zw$=ts$(t):ts$(t)=ts$(u):ts$(u)=zw$:zw=vt(t):vt(t)=vt(u):vt(u)=zw:zw=ta(t):ta(t)=ta(u):ta(u)=zw
  373. 3410 nextu,t:fl=1:iftf=1thentf=0:goto3700
  374. 3420 goto2865
  375. 3430 ifze<at(ns)+2thensyspa,ze,0," ":ze=ze+1:nt=nt+1:goto2940
  376. 3435 ifze=at(ns)+2thensyspa,ze,0," ":nt=(ns-1)*18+1:goto2935
  377. 3445 ifze>3thensyspa,ze,0," ":ze=ze-1:nt=nt-1:goto2940
  378. 3450 ifze=3thensyspa,ze,0," ":ze=at(ns)+2:nt=at(ns)+((ns-1)*18):goto2940
  379. 3490 pokebs,11:print"[147]":syspa,0,14,"[176][192][192][192][192][192][192][192][192][192][174]":syspa,1,14,"[221][196]iskmenue[221]":syspa,2,14,"[173][192][192][192][192][192][192][192][192][192][189]":deffnb(x)=(40-len(mn$(x)))/2:ya=4:forx=1to5:ya=ya+3:syspa,ya,fnb(x),mn$(x):nextx:syspa,24,0,"[159][160][160][160][160][160][160][160]([195])[160]1990[160]by[160][211]tresing-[211]oft[160][160][160][160][160][160][160][146]";:pokebs,27
  380. 3525 ya=7:xa=1:syspa,ya,fnb(xa),"[153]"mn$(xa)"[146]"
  381. 3535 geta$:ifa$=""then3535
  382. 3540 ifa$=""then3565
  383. 3545 ifa$="[145]"then3590
  384. 3550 ifa$=chr$(13)then3615
  385. 3555 goto3535
  386. 3565 syspa,ya,fnb(xa),mn$(xa):xa=xa+1:ya=ya+3:ifxa=6thenxa=1:ya=7
  387. 3580 syspa,ya,fnb(xa),"[153]"mn$(xa)"[146]":goto3535
  388. 3590 syspa,ya,fnb(xa),mn$(xa):xa=xa-1:ya=ya-3:ifxa=0thenxa=5:ya=19
  389. 3605 syspa,ya,fnb(xa),"[153]"mn$(xa)"[146]":goto3535
  390. 3615 onxagoto3790,3985,4120,4145,70
  391. 3625 syspa,22,0,"                                        ";:syspa,23,0,"                                        ";
  392. 3635 syspa,22,1,"[158][199]eraete-[193]dresse (4,5)    ":sysik,22,23,1,"45",ga$:ga=val(ga$)
  393. 3640 ifga$=""then3635
  394. 3645 openga,ga:poke768,61:print#ga:closega:poke768,139:ifst<>0thensyspa,22,1,"[196]rucker nicht betriebsbereit !!!":poke198,0:wait198,1
  395. 3655 ifst<>0thensyspa,22,1,"                                ":goto70
  396. 3665 b=1024:openga,ga,7:print#ga,chr$(27);"@":forz=0to21:fors=0to39:m=b+z*40+s:x=peek(m):ifx>=32andx<=63then3690
  397. 3680 ifx>=64andx<=95thenx=x+32:goto3690
  398. 3685 x=x+64
  399. 3690 print#ga,chr$(x);:nexts:print#ga,chr$(13);:nextz:closega:syspa,22,1,"                                        ";:return
  400. 3700 print"[147]":syspa,1,6,"[153][212]orschuetzenliste ausdrucken":syspa,2,6,"[155]----------------------------":at=0
  401. 3710 forx=1to9:at=at+at(x):next:ifat=0thensyspa,9,1,"[203]ein [212]orschuetze eingetragen !":goto4195
  402. 3720 gosub4225:ue$=chr$(27)+"-"+chr$(1):ua$=chr$(27)+"-"+chr$(0):openga,ga,7:print#ga:print#ga,ue$;" [212]orschuetzenliste";ua$:print#ga,ue$;" [212]orschuetze:          [204]and:       [212]ore:";ua$:forx=1toat:x$=right$(str$(x),3)+".":print#ga,x$;ts$(x);
  403. 3750 print#ga,chr$(16)"23";ve$(vt(x));:print#ga,chr$(16)"36";right$(str$(ta(x)),2):nextx:closega:goto2865
  404. 3790 print"[147]":syspa,1,14,"[153][196]aten laden":syspa,2,14,"[155]-----------":gosub4255:gosub4287:open2,ga,2,"wm-datei'90,s,r":open15,ga,15:input#15,a,b$,c,d:close15:close2
  405. 3810 ifa<>0thensyspa,9,1,"[158]"b$:goto4195
  406. 3815 open2,ga,2,"wm-datei'90,s,r":forx=1to72:input#2,tt$(x):next:forx=1to24:input#2,vr$(x):input#2,sg(x):input#2,gs(x):input#2,us(x):input#2,vs(x):input#2,gt(x):input#2,gg(x):input#2,pp(x):input#2,mp(x):next:forx=1to16:input#2,af$(x):input#2,ta$(x):next:forx=1to8:input#2,vf$(x):input#2,tv$(x):next
  407. 3895 forx=1to4:input#2,hf$(x):input#2,th$(x):nextx:forx=1to2:input#2,pd$(x):input#2,td$(x):input#2,fi$(x):input#2,tf$(x):next:input#2,wm$:input#2,wm:forx=1to7:input#2,sv(x):next:at=0:forx=1to9:input#2,at(x):next:input#2,at:as=at/18:ifas-int(as)>0thenas=as+1
  408. 3945 ifat=0then3975
  409. 3950 forx=1toat:input#2,ts$(x):input#2,vt(x):input#2,ta(x):nextx:input#2,ac:input#2,ah:input#2,an:input#2,vf:input#2,hf:input#2,tb:forx=1to6:input#2,tb(x):next:forx=1to6:input#2,xy$(x):input#2,pl(x):input#2,mi(x):input#2,ge(x):input#2,gn(x):input#2,gr(x):input#2,sl(x):nextx
  410. 3975 close2:goto4195
  411. 3985 print"[147]":syspa,1,12,"[153][196]aten speichern"
  412. 3990 syspa,2,12,"[155]---------------":cr$=chr$(13):gosub4255:open1,ga,0,"$":open15,ga,15:input#15,a,b$,c,d:close1:close15:ifa<>0thensyspa,9,1,"[158]"b$:goto4195
  413. 4005 open2,ga,2,"wm-datei2,s,w":forx=1to72:print#2,tt$(x);cr$,:next:forx=1to24:print#2,vr$(x);cr$,sg(x);cr$,gs(x);cr$,us(x);cr$,vs(x);cr$,:print#2,gt(x);cr$,gg(x);cr$,pp(x);cr$,mp(x);cr$,:next:forx=1to16:print#2,af$(x);cr$,ta$(x);cr$,:next
  414. 4045 forx=1to8:print#2,vf$(x);cr$,tv$(x);cr$,:next:forx=1to4:print#2,hf$(x);cr$,th$(x);cr$,:nextx:forx=1to2:print#2,pd$(x);cr$,td$(x);cr$,fi$(x);cr$,tf$(x);cr$,:next:print#2,wm$;cr$,wm;cr$,:forx=1to7:print#2,sv(x);cr$,:next:at=0
  415. 4075 forx=1to9:at=at+at(x):print#2,at(x);cr$,:next:print#2,at;cr$,:ifat=0then4105
  416. 4090 forx=1toat:print#2,ts$(x);cr$,vt(x);cr$,ta(x);cr$,:next:print#2,ac;cr$,:print#2,ah;cr$,an;cr$,vf;cr$,hf;cr$,tb;cr$,:forx=1to6:print#2,tb(x);cr$,:next:forx=1to6:print#2,xy$(x);cr$,pl(x);cr$,mi(x);cr$,ge(x);cr$,gn(x);cr$,
  417. 4099 print#2,gr(x);cr$,sl(x);cr$,:nextx:close2
  418. 4105 open15,ga,15,"s:wm-datei'90":close15:open15,ga,15,"r:wm-datei'90=wm-datei2":close15:goto4195
  419. 4120 print"[147]":syspa,1,15,"[153][196]irectory":syspa,2,15,"[155]---------":gosub4255:print"[147]":poke49924,ga:sys49921:print:print:goto4195
  420. 4145 print"[147]":syspa,1,15,"[153][196]iskbefehl":syspa,2,15,"[155]----------":gosub4255:syspa,6,1,"[158][194]efehl:":syspa,8,1,">[158][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]<[158]":syspa,9,2,"[158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  421. 4175 sysik,8,2,37,df$,be$:open15,ga,15:print#15,be$:close15:open15,ga,15:input#15,a,b$,c,d:close15:syspa,10,1,b$:goto4195
  422. 4195 syspa,22,0,"[154] [196][154]iskmenue                        [205][154]enue [146]";:poke198,0
  423. 4200 getc$:ifc$=""then4200
  424. 4205 ifc$="d"then3490
  425. 4210 ifc$="m"then70
  426. 4215 goto4200
  427. 4225 syspa,4,1,"[158][199]eraete-[193]dresse (4,5) 4":sysik,4,23,1,"45",ga$:ga=val(ga$):ifga$=""then4225
  428. 4235 openga,ga:poke768,61:print#ga:closega:poke768,139:ifst<>0thensyspa,7,1,"[196]rucker nicht betriebsbereit !":goto4195
  429. 4245 return
  430. 4255 syspa,4,1,"[158][199]eraete-[193]dresse (8,9) 8":sysik,4,23,1,"89",ga$:ga=val(ga$):ifga$=""then4255
  431. 4265 poke768,61:poke144,0:open1,ga,1:close1:poke768,139:ifst<>0thensyspa,7,1,"[198]loppy nicht betriebsbereit !":goto4195
  432. 4275 open1,ga,0,"$":open15,ga,15:input#15,a,b$,c,d:close1:close15:ifa<>0thensyspa,9,1,b$:goto4195
  433. 4285 return
  434. 4286 syspa,22,0,"[154] [197][154]rgebniseingabe     [196][154]rucken      [205][154]enue [146]";:pokebs,27:return
  435. 4287 sv(gr)=0:sv(7)=0:forx=sp(aa)tosp(aa+3):vr$(x)=ve$(x):gt(x)=0:gg(x)=0:sg(x)=0:gs(x)=0:us(x)=0:vs(x)=0:pp(x)=0:mp(x)=0:nextx:forx=1to16:af$(x)=""
  436. 4289 ta$(x)="--":next:af$="":forx=1to6:xy$(x)="":pl(x)=0:mi(x)=0:ge(x)=0:gn(x)=0:sl(x)=0:gr(x)=0:next:ac=0:ah=0:an=0:tb=0
  437. 4291 forx=1to8:vf$(x)="":tv$(x)="--":next:vf=0
  438. 4292 forx=1to4:hf$(x)="":th$(x)="--":next:hf=0
  439. 4293 forx=1to2:pd$(x)="":td$(x)="--":fi$(x)="":tf$(x)="--":next:wm$="":return:data "[201]talien"       ,"[207]esterreich","[213][211][193]"         ,"[195][211][211][210]":data "[193]rgentinien"   ,"[203]amerun"    ,"[213]d[211][211][210]"       ,"[210]umaenien":data "[194]rasilien"     ,"[211]chweden"   ,"[195]osta [210]ica"  ,"[211]chottland"
  440. 4310 data "[193]rab.[197]mirate"  ,"[203]olumbien"  ,"[196]eutschland" ,"[202]ugoslawien":data "[194]elgien"       ,"[211]uedkorea"  ,"[213]ruguay"     ,"[211]panien":data "[197]ngland"       ,"[201]rland"     ,"[200]olland"     ,"[193]egypten":data 1,2,3,4,1,3,2,4,1,4,2,3:data 5,6,7,8,5,7,6,8,5,8,6,7
  441. 4335 data 9,10,11,12,9,11,10,12,9,12,10,11:data 13,14,15,16,16,14,15,13,15,14,16,13:data 17,18,19,20,17,19,18,20,17,20,18,19:data 21,22,23,24,21,23,22,24,21,24,22,23:data "[211]amstag,     [158]9.6.'90, 21.00,  [210]om"
  442. 4365 data "[211]onntag,    [158]10.6.'90, 17.00,  [198]lorenz":data "[196]onnerstag, [158]14.6.'90, 21.00,  [210]om":data "[198]reitag,    [158]15.6.'90, 17.00,  [198]lorenz":data "[196]ienstag,   [158]19.6.'90, 21.00,  [210]om":data "[196]ienstag,   [158]19.6.'90, 21.00,  [198]lorenz"
  443. 4395 data "[198]reitag,     [158]8.6.'90, 18.00,  [205]ailand":data "[211]amstag,     [158]9.6.'90, 17.00,  [194]ari":data "[205]ittwoch,   [158]13.6.'90, 21.00,  [206]eapel":data "[196]onnerstag, [158]14.6.'90, 21.00,  [194]ari":data "[205]ontag,     [158]18.6.'90, 21.00,  [206]eapel"
  444. 4420 data "[205]ontag,     [158]18.6.'90, 21.00,  [194]ari":data "[211]onntag,    [158]10.6.'90, 21.00,  [212]urin":data "[205]ontag,     [158]11.6.'90, 17.00,  [199]enua":data "[211]amstag,    [158]16.6.'90, 17.00,  [212]urin":data "[211]amstag,    [158]16.6.'90, 21.00,  [199]enua"
  445. 4450 data "[205]ittwoch,   [158]20.6.'90, 21.00,  [212]urin":data "[205]ittwoch,   [158]20.6.'90, 21.00,  [199]enua":data "[211]amstag,     [158]9.6.'90, 21.00,  [194]ologna":data "[211]onntag,    [158]10.6.'90, 21.00,  [205]ailand":data "[196]onnerstag, [158]14.6.'90, 17.00,  [194]ologna"
  446. 4480 data "[198]reitag,    [158]15.6.'90, 21.00,  [205]ailand":data "[196]ienstag,   [158]19.6.'90, 17.00,  [205]ailand":data "[196]ienstag,   [158]19.6.'90, 17.00,  [194]ologna":data "[196]ienstag,   [158]12.6.'90, 17.00,  [214]erona"
  447. 4505 data "[205]ittwoch,   [158]13.6.'90, 17.00,  [213]dine":data "[211]onntag,    [158]17.6.'90, 21.00,  [214]erona":data "[211]onntag,    [158]17.6.'90, 21.00,  [213]dine":data "[196]onnerstag, [158]21.6.'90, 17.00,  [214]erona":data "[196]onnerstag, [158]21.6.'90, 17.00,  [213]dine"
  448. 4535 data "[205]ontag,     [158]11.6.'90, 21.00,  [195]agliari":data "[196]ienstag,   [158]12.6.'90, 21.00,  [208]alermo":data "[211]amstag,    [158]16.6.'90, 21.00,  [195]agliari":data "[211]onntag,    [158]17.6.'90, 17.00,  [208]alermo"
  449. 4555 data "[196]onnerstag, [158]21.6.'90, 21.00,  [195]agliari":data "[196]onnerstag, [158]21.6.'90, 21.00,  [208]alermo":data "[211]amstag,    [158]23.6.'90, 17.00,  [206]eapel":data "[211]amstag,    [158]23.6.'90, 21.00,  [194]ari":data "[211]onntag,    [158]24.6.'90, 17.00,  [212]urin"
  450. 4585 data "[211]onntag,    [158]24.6.'90, 21.00,  [205]ailand":data "[205]ontag,     [158]25.6.'90, 17.00,  [199]enua":data "[205]ontag,     [158]25.6.'90, 21.00,  [210]om":data "[196]ienstag,   [158]26.6.'90, 17.00,  [214]erona":data "[196]ienstag,   [158]26.6.'90, 21.00,  [194]ologna"
  451. 4615 data "[211]amstag,    [158]30.6.'90, 17.00,  [198]lorenz":data "[211]amstag,    [158]30.6.'90, 21.00,  [210]om":data "[211]onntag,     [158]1.7.'90, 17.00,  [205]ailand":data "[211]onntag,     [158]1.7.'90, 21.00,  [206]eapel":data "[196]ienstag,    [158]3.7.'90, 20.00,  [206]eapel"
  452. 4645 data "[205]ittwoch,    [158]4.7.'90, 20.00,  [212]urin":data "[211]amstag,     [158]7.7.'90, 20.00,  [194]ari":data "[211]onntag,     [158]8.7.'90, 20.00,  [210]om":data "[160][199]ruppen [193]-[198][160]","[160][212]abelle der [196]ritten[160]","[160][193]chtelfinale[160]"
  453. 4680 data " [214]iertelfinale[160]","[160][200]albfinale[160]","[160][211]piel um [208]latz 3 "," [198]inale[160]":data " [212]orschuetzen[160]","[160][196]iskmenue[160]":data "[160][196]aten laden[160]","[160][196]aten speichern[160]"," [196]irectory[160]":data " [196]iskbefehl ","[160][200]auptmenue[160]"
  454.