ZXTape! 0Created with Ramsoft MakeTZXyBUNDESLIGA6`8 4000 qB(18,15):U(18):R(34"):N=18:W(N+1):G(N):H(N+1):Q(N):P(18) GD(N+N-2,568):c$(N,3):B$(N,12 ):A(N,15) (x=1n:W(X)=X:G(X)=X:H(X)=X:X (^T(10 ,3):ST=0:Z1=0:ZAE=1:E(75K):F$(75K,15) -MABS=0:AKS=1:V(3):J(18):GUV=0:TAB=3 2"TR=535:ZR=100000CP b2000:4000 fm:8;"ERGEBNISSE EINTRAGEN":A=118:B=115:B(A,B)=A(A,B):=" "4000 g7B:A:F$(75K,15):E(75K):ZAE=1 niX=1:S=AKS:10 ;S;" SPIELTAG ";D(S,37%):3,0;" 0 ENDE":V=19 x(V*2)+3,2-V;V;" ";C$(D(S,V));" : ";C$(D(S,V+9 )):D(S,V+47/)>0(V*2)+3,15;D(S,V+18);" : ";D(S,V+27):D(S,V+37%)=1(V*2)+3,21;"*" yv }3X1=X:(X*2)+3,2-X;1;X I="."X=X+1:.008zn,X:(X1*2)+3,2-X1;X1 I="0"X=X-1:.008zn,X:(X1*2)+3,2-X1;X1 8=13 ZIP=0:.01z# =,0:140 X>9 X=0 X1=X:X<0X=9 ="A"1200 125} V=X1::x=01100L ,3;b$(D(S,V));":";B$(D(S,V+9 )) P'5;"ZUSCHAUER :":D(S,V+47/)=0"ZUSCHAUER ";D(S,V+47/) #2,19;D(S,V+47/) J4,8;D(S,V+18);15;":";22;D(S,V+27) 'A=031:6,A;"-":A (A=031:20,A;"-":A D600X:21,3;"Z MENUE -- EINTRAG H-G " !="Z"ZIP=0::110n ="Z"ZIP=1:: ="H"200 ="G"300, /="T"630v:7:0:140 /D(S,V+37%)=10::110n 175 L"NAME DES HEIMTORSCHUETZEN ";F$(ZAE):F$(ZAE,1)=" "140 DLZ,0;F$(ZAE):E(ZAE)=D(S,V):ZAE=ZAE+1:LZ=LZ+1 EF$(ZAE-1,12)="E "E(ZAE-1)=D(S,V+9 ) )D(S,V+18)=D(S,V+18)+1 140 1L"NAME DES AUSWAERTSTORSCHUETZEN ";F$(ZAE):F$(ZAE,1)=" "140 6MRZ,17;F$(ZAE):E(ZAE)=D(S,V+9 ):ZAE=ZAE+1:RZ=RZ+1 7=F$(ZAE-1,12)="E "E(ZAE-1)=D(S,V) ;)D(S,V+27)=D(S,V+27)+1 @ 140 _ :'10 ;" NACHHOLSPIELE " c"AUSGABE AUF DRUCKER?" d*DRU=0:0:="J"DRU=1 g,S=1(AKS-1):V=19 h$D(S,V+37%)=0370r mV:S:4000 r%:C$(D(S,V));":";C$(D(S,V+9 )) s(DRUC$(D(S,V));":";C$(D(S,V+9 )) w4"IST DIESES SPIEL AUSGETRAGEN WORDEN (J/N) ";Z$ {Z$=""365m |Z$(1)="J"395 Z$(1)="N"365m  375w !*"M";1;"DATA F$ "+SF$()  *"M";1;"DATA E "+SE() RX=1:V(1)=E(75K):ZIP=1:X1=V:ZAE=E(75K):140 jD(S,V+37%)=1:X2=D(S,V+18):Y2=D(S,V+27):X3=D(S,V):Y3=D(S,V+9 ):700 @ZIP=0:ABS=1:TEA=1:2500 :ABS=0  500 ]"M";1;"DATA F$ "+S:*"M";1;"DATA F$ "+SF$():*"M";1;"DATA F$ "+SF$() lE(75K)=ZAE:"M";1;"DATA E "+S:*"M";1;"DATA E "+SE():*"M";1;"DATA E "+SE() ["m";1;"BUNDESLIGA":*"M";1;"BUNDESLIGA"4000:*"M";1;"BUNDESLIGA" *"M";1;"Tor list"  4;"M";1;"NHS" A=E(75K)ZAE #4;F$(A):#4;E(A)  A:4 ZV(3)=ZAE:V(2)=7000X:"M";1;"AKS (V)":*"M";1;"AKS (V)"V()  W ]'RZ=8:LZ=8:A=1ZAE b/E(A)=D(S,V)LZ,0;F$(A):LZ=LZ+1 g8E(A)=D(S,V+9 )RZ,17;F$(A):RZ=RZ+1 lA: v:"MOMENT ICH ERRECHNE DIE TABELLE BEIM DERZEITIGEN SPIELSTAND":A=118:B=115:A(A,B)=B(A,B):B:A: A=19 :D(S,A+37%)=0D(S,A+47/)>0X2=D(S,A+18):Y2=D(S,A+27):X3=D(S,A):Y3=D(S,A+9 ):700 A:972   a(x3,4)=a(x3,4)+x2  a(x3,5)=a(x3,5)+y2 "a(x3,14)=a(x3,14)+x2 "a(x3,15)=a(x3,15)+y2  a(y3,9 )=a(y3,9 )+y2 "a(y3,10 )=a(y3,10 )+x2 "a(y3,14)=a(y3,14)+y2  "a(y3,15)=a(y3,15)+x2  x2y2870f 4%a(x3,1)=a(x3,1)+1 >'a(x3,11 )=a(x3,11 )+1 H%a(y3,8)=a(y3,8)+1 R'a(y3,13 )=a(y3,13 )+1 \ 970 fx2-10 )+(-(a)):1085= ;a$=" "+(" "a<10 )+a <GUV=1" "; =GUV=0" "+a$+" "; A1(" "pp<10 )+pp+":"+(" "np<10 )+np B M:"TABELLE WIRD ERRECHNET" Q=A=118:B=115:A(A,B)=B(A,B):B:A VA=19 :D(S,A+47/)>0D(S,A+37%)=0D(S,A+37%)=1:X2=D(S,A+18):Y2=D(S,A+27):X3=D(S,A):Y3=D(S,A+9 ):700 WGA:ABS=1:AKS=AKS+1:TEA=1:972:ABS=0: kjE(75K)=ZAE:*"M";1;"DATA F$ "+(AKS-1)F$():*"M";1;"DATA E "+(AKS-1)E() nV(3):V(1)=AKS oV(2)=5000 pV(3)=ZAE t*"M";1;"AKS (V)"V() ~&ZIP=1:8910":ZIP=0 *"M";1;"Tor list" #: V=1ZAE "10 ,8;1;F$(V) #13 ,9 ;"AENDERN (J/N)" ="N"V:110n ="J"1250  1220 421,0;"BITTE RICHTIGEN NAMEN EINGEBEN" F$(V) "10 ,8;1;F$(V) 621,0;"DANKE " 0:#:110n  -C$(4)="MGL":B$(4)="M'gladbach" 1C$(16)="NUR":B$(16)="FC Nuernberg" -C$(9 )="BOC":b$(9 )="VFL Bochum" /C$(17)="BWB":b$(17)="B.W.BERLIN" ,C$(2)="BRE":b$(2)="W. Bremen" ,C$(7)="UER":b$(7)="Uerdingen" 1C$(14)="DOR":b$(14)="Bor.Dortmund" 0C$(15)="DUS":b$(15)="Duesseldorf" .C$(12 )="FRA":b$(12 )="Frankfurt" -C$(8)="S04":b$(8)="Schalke 04" /C$(1)="BAY":b$(1)="Bay Muenchen" /C$(5)="HSV":b$(5)="Hamburger SV" -C$(3)="KOL":b$(3)="1.FC Koeln" /C$(6)="MAN":b$(6)="SVW Mannheim" /C$(13 )="LEV":b$(13 )="Leverkusen" /C$(18)="HOM":b$(18)="FC HOMBURG" .C$(10 )="STU":b$(10 )="Stuttgart" .C$(11 )="KAI":b$(11 )="K'lautern" 8"M";1;"tordata 4":*"m";1;"tordata 4"C$()  4#10 :"AUSGABE AUF DRUCKER ?" 5*DRU=0:0:="J"DRU=1 9:A=1AKS-1 >ZR(A)>03-A;A;". SPIELT. ";1;7;1;" ";B$(R(A));" " ?_DRUR(A)>03-A;A;". SPIELT. ";1;7;1;" ";B$(R(A));" " C*A=210:23692\,0 HA:0:4000 Cb=tab:TEA=1A=118:U(A)=G(A):A:TEA=0 =A=13:TAB=A:tab=1h(n+1)=0 #tab=2w(n+1)=0 'ABS1=1TAB=3:A=3: i=5*tab-5 p=2n t=p 6000p +pp1=2*a(y,i+1)+a(y,i+2) -pp2=2*a(y1,i+1)+a(y1,i+2) 42580 +(420pp1>pp2)+(620lpp1np1)+(590Nnp1>np2) 2#tv1=a(y,i+4)-a(y,i+5) <%tv2=a(y1,i+4)-a(y1,i+5) F42640P +(360htv1>tv2)+(5600tv2>tv1) P83200 +(-200a(y,i+4)>a(y1,i+4)) Z tab>13045 l9=h(t) h(t)=h(t-1) h(t-1)=l9 3140D tab>23070 l9=w(t) w(t)=w(t-1) w(t-1)=l9 3150N l9=g(t) g(t)=g(t-1) g(t-1)=l9 N t=t-1 Xt>12545 p:a:tab=b: Z1=1 990 \"VON WELCHEM SPIELTAG MOECHTEST DU DIE TABELLE ? ";C:C<1C>AKS-13325 35:*1;"TAB "+C:0:4000 "23658j\,8:zip=0 7:7:0: 10 ;"HAUPTMENUE" '" 1 NEUE TABELLE" '" 2 NACHHOLSPIELE" '" 3 VER. TABELLEN" '" 4 ERGEBNISSE EINTRAGEN" '" 5 UEBERSICHT SPIELTAG" '" 6 GESAMTE TORZAHLEN" '" 7 GESAMTE ZUSCHAUERZAHLEN" '" 8 ERGEBNISSE IM EINZELNEN" '" 9 SOFORT TABELLE" '" 0 ANDERE MENUES" ="1"8000@ ="2"350^ ="3"8200 ="4"100d ="5"4500 ="6"4200h ="7"4300 ="8"5000 E="9"XXX=0:GUV=0:TAB=3:990:4000 ="0"4061  4050 :13 ;"MENUE 2" '" 1 TORSCHUETZENLISTE" '" 2 TABELLE AN SPIELTAG ?" '" 3 TOTO TIP" '" 4 ALLE TABELLENFUEHRER" '" 5 ABSPEICHERN" ''" 0 HAUPTMENUE" 9="1"ZIP=1:8900":*"M";1;"Tor list" ="2"3300 ="3"7900 ="4"21004  ="5"ZIP=0:8900" ="0"4000  4110 mY:G2=0:G3=1000:G1=0:G=0:GT=0:GSS=0:GS=0 r3V=118:5;"TORE TORE TORE" sGT=GT+A(V,14) u(A(V,14)>GG=A(V,14):G1=V v*A(V,14)0GS>0''"IN DER LAUFENDEN SAISON WURDEN BIS ZUM HEUTIGEN ";AKS-1;".SPIELTAG","IN DEN ";GS;" SPIELEN BIS JETZT ",GT;" TORE ERZIEHLT.",'"DAS SIND IM DURSCHNITT ";(GT/GS);" TORE","PRO SPIEL ." G>0G1>0'"DIE MEISTEN TORE ERZIEHLTE DIE MANNSCHAFT VON ";1;1;1;1;7;(B$(G1));0;0;7;0;0,''"SIE FUEHRT IM MOMENT MIT ";G,"TOREN " G2>0'"DIE WENIGSTEN TORE ERZIEHLTE DIEMANNSCHAFT VON ";1;1;1;1;7;(B$(G2));0;0;7;0;0,''"SIE HABEN IM MOMENT NUR ";G3;" TOR";:G31"E" 8DRU=0:5555:="C":DRU=1:0 .01z# =,10 : "S=1AKS-1:G=0 =V=19 :G=G+(D(S,V+18)+D(S,V+27)):V A"SPIELTAG";11 -S;S;" INSGESAMT";24-G;G;" TORE" FDRU"SPIELTAG";11 -S;S;" INSGESAMT";24-G;G;" TORE" >23692\,0:S:1,0:0:4000 "10 :"AUSGABE AUF DRUCKER?" -DRU=0:5555:="J"DRU=1 :S=120 *٥*6;7;"ZUSCHAUERZAHLEN":S wX2=0:X1=0:J(18):K(18)::S=1AKS-1:D(S,47/)=0:V=480568 QX1=X1+D(S,V):D(S,47/)=D(S,47/)+D(S,V):D(S,V)>0X2=X2+1 vJ(D(S,V-47/))=J(D(S,V-47/))+D(S,V):D(S,V-10 )=1K(D(S,V-47/))=K(D(S,V-47/))+1 jV:2-S;S;" SPIELTAG ";20-D(S,47/);D(S,47/);" ZUSCHAUER":23692\,0 lDRU2-S;S;" SPIELTAG ";20-D(S,47/);D(S,47/);" ZUSCHAUER":23692\,0 S:'"GESAMT ";20-X1;X1;" ZUSCHAUER":'"SCHNITT P.S.";20-(X1/X2);(X1/X2);" ZUSCHAUER":'"PRO SPIELTAG";20-(X1/(AKS-1));(X1/(AKS-1));" ZUSCHAUER":1,0 DRU'"GESAMT ";20-X1;X1;" ZUSCHAUER"::"SCHNITT P.S.";20-(X1/X2);(X1/X2);" ZUSCHAUER"::"PRO SPIELTAG";20-(X1/(AKS-1));(X1/(AKS-1));" ZUSCHAUER" :0::V=118:S=G(V):V,0;C$(S); :12 -J(S);J(S);" / ";17-K(S);K(S);" = "; EDRUC$(S);12 -J(S);J(S);" / ";17-K(S);K(S);" = "; )A=0:J(S)>0A=(J(S)/K(S)) 27-A;A;" P.S."  DRU27-A;A;" P.S."  KV:A=0:B=1000000t$:S=1AKS-1:V=480568 <AD(S,V)D(S,V-10 )=1B=D(S,V):G3=D(S,V-47/):G4=D(S,V-38&) ^V:S:#0;0,0;" BITTE EINE TASTE DRUECKEN ":1,0:0 !cG1>0:"DAS SPIEL MIT DEN MEISTEN ZUSCHAUERN ";C$(G1);":";C$(G2);" ";30-A;A "fDRUG1>0"DAS SPIEL MIT DEN MEISTEN ZUSCHAUERN ";C$(G1);":";C$(G2);" ";30-A;A &eG3>0''''"DAS SPIEL MIT DEN WENIGSTEN ZUSCHAUERN ";C$(G3);":";C$(G4);" ";30-B;B 'hDRUG3>0:"DAS SPIEL MIT DEN WENIGSTEN ZUSCHAUERN ";C$(G3);":";C$(G4);" ";30-B;B +(1,0:0::4000 :A=0:B=0 K"UEBERSICHT VON WELCHEM SPIELTAG ";S:S<1S>AKS-14510 10 ;S;" SPIELTAG" V=19 V+2,0;C$(D(S,V));" : ";C$(D(S,V+9 ));:D(S,V+37%)=115-D(S,V+18);D(S,V+18);":";18-D(S,V+27);D(S,V+27);30-D(S,V+47/);D(S,V+47/) %A=A+D(S,V+18)+D(S,V+27) B=B+D(S,V+47/):V (V=031:12 ,V;"-":V )'" TOTAL ";16;A;30-B;B (V=031:15,V;"-":V  A>TRTR=A  B>ZRZR=B S'"DER TOREREKORD LIEGT BEI ";TR,"TOREN.DER ZUSCHAUERREKORD BEI ",ZR;" ZUSCHAUERN" I#0;1,0;"M=MENUE- G=G.UEBERSICHT- C=COPY" (V=031:20,V;"-":V ="M"4000  ="C" ="G"4600  4575 !*"M";1;"DATA F$ "+SF$()  *"M";1;"DATA E "+SE() :"AUSGABE AUF DRUCKER?" *DRU=0:0:="J"DRU=1 CV=19 ::2;B$(D(S,V));" : ";B$(D(S,V+9 )) 3DRU2;B$(D(S,V));" : ";B$(D(S,V+9 )) ='7;D(S,V+18);" : ";D(S,V+27) BDRU'7;D(S,V+18);" : ";D(S,V+27)  -'4;"ZUSCHAUER : ";D(S,V+47/)  2DRU'4;"ZUSCHAUER : ";D(S,V+47/) 7A=031:6,A;"-";19,A;"-":A "DRUA=031:"-";:A sRZ=8:LZ=8:A=1E(75K):E(A)=D(S,V)RZ,0;F$(A):RZ=RZ+1:DRU0;F$(A)  NE(A)=D(S,V+9 )LZ,16;F$(A):LZ=LZ+1:DRU16;F$(A) $%A:DRUA=031:"-";:A %@.5,0:21,3;"W = WEITER --- E = ENDE " *="E"4000 /<="W"V:0:DRU"--------------------------------" 4 4650* > 4000  :13 ;"MENUE 3" "'" 1 AUFLISTUNG ALLER SPIELTAGE" #'" 2 AUFLISTUNG EINES SPIELTAGES" #'" 3 ERGEBNISSE EINZELNER SPIELE" #'" 4 AUFLISTUNG ALLER ERGEBNISSE" &'" 5 SPIELTAGE EINTRAGEN (N.START)" ''" 0 HAUPTMENUE" ="1"5100 ="2"5150 ="3"5200P ="4"5300 ="5"5051 ="0"4000  5040 H"BITTE RUN EINGEBEN UND MIT GOTO 5060 STARTEN":333M:: ^s=117:10 ;s;" Spieltag":"DATUM ";D(S,37%):13 ;D(S,37%) Nv=118:v+3,2-v;v;" ";C$(v):v:V=19 D(v);" Spiel Heimm. ";d(s,v):V+3,15;C$(D(S,V));" : "; 8(v);" Spiel AUSW. ";d(s,v+9 ):C$(D(S,V+9 )) A"EINGABE RICHTIG (J/N) ";Z$:Z$""Z$(1)="N"5070 (V:111o::S:S=1834" T"DATUM ";D(S,37%):10 ;S ;" SPIELTAG ";D(S,37%):V=19 FD(S,V)=D(S-17,V+9 ):D(S,V+9 )=D(S-17,V):V:S 7"SPIELTAGE EINGETRAGEN ":1,0:5000 I:S=134":10 ;S;" SPIELTAG":'13 ;D(S,37%) 0:V=19 :'B$(D(S,V));" : ";B$(D(S,V+9 )):V:7:.5,1:0:.01z# =,0:=" "5000 ="C":5111 :S:5000 G"WELCHER SPIELTAG SOLL ES SEIN ?";S:S<1S>34"5150 #5:10 ;S;" SPIELTAG":'13 ;D(S,37%) (V=19 :'B$(D(S,V));":";B$(D(S,V+9 ));:D(S,V+37%)=1" ";D(S,V+18);":";D(S,V+27):5162* ) *3V:.5,1:0:="C":5162* +.01z# =,0:5000 U=:V=118:V+2,2-V;V;" ";C$(V):V Z7"HEIMMANNSCHAFT ";A:A<1A>185210Z _3,12 ;C$(A);":"; d@"AUSWAERTSMANNSCHAFT ";B:B<1B>18B=A5205U iC$(B) nXV=118:V+2,0;" ":V:0,5;"ICH SUCHE :" sS=134":V=19 :D(S,V)=AD(S,V+9 )=B10 ,0;S;" SPIELTAG AM ";D(S,37%):5245} x#V:S:1,0:5000 }_D(S,V+37%)=115,0;"ERGEBNISS ";D(S,V+18);" : ";D(S,V+27) /1,0:0:="C":5250  5000 D:S=1AKS:10 ;S;" SPIELTAG":'13 ;D(S,37%) V=19 :V+V+2,0;B$(D(S,V));":";B$(D(S,V+9 ));" ":D(S,V+37%)=1V+V+2,27;D(S,V+18);" : ";D(S,V+27) 2V:1,0:0::=" "5000 S:5000 ptab>16050 Y=H(T):y1=h(t-1)  tab>26080 y=w(t):y1=w(t-1)  y=g(t):y1=g(t-1)  ]':T(10 ,1)=AKS7900 b6S=AKS:T(10 ,1)=S:10 ;"TOTO - TIP" l'10 ;S;" SPIELTAG" v :V=19 :T10=0:T11=0:T12=0 *B$(D(S,V));" : ";B$(D(S,V+9 ));" "; T1=D(S,V):T2=D(S,V+9 ) MT10=(A(T1,1)*2):T11=A(T1,2):T12=(A(T1,3)*2) n1;T10;" ";T11;" ";T12;:T3=G(T1):T3=T3+(T10+T11)-T12:"=";T3;:T10=0:T11=0:T12=0 QT10=A(T2,6)*3:T11=A(T2,7)*2:T12=A(T2,8)*3 H15;T10;" ";T11;" ";T12;:T4=G(T2):T4=T4+(T10+T11)-T12:"=";T4; AKS<67100 2O=(AKS-5)(AKS-1):X=19 BD(O,X+9 )=T1D(O,X+18)D(O,X+27)T3=T3+2 :D(O,X)=T1D(O,X+18)=D(O,X+27)T3=T3+1 BD(O,X+9 )=T1D(X,V+18)=D(X,V+27)T3=T3+2 BD(O,X+9 )=T2D(O,X+18)D(O,X+27)T4=T4+2 :D(O,X)=T2D(O,X+18)=D(O,X+27)T4=T4+1 BD(O,X+9 )=T2D(O,X+18)=D(O,X+27)T4=T4+2 X:O: T3>T4T(V,1)=1 T3(T4-10 )T(V,1)1T(V,1)=0 <T3<(T4+2)T(V,1)1T(V,1)=2 30;T(V,1)  V:0:7900 %":S=AKS:12 ;S;" SPIELTAG" *8V=19 :'B$(D(S,V));":";B$(D(S,V+9 )); 4]"DEIN TIP BITTE 0-1-2 ";T(V,2):T(V,2)<0T(V,2)>272204 >;" ";T(V,2):V 0:7900 +:9 ;"TOTO TIP":'26;"C/S/E" ,S=(T(10 ,1)):V=19 G'B$(D(S,V));":";B$(D(S,V+9 ));"=";T(V,1);"/";T(V,2); 1D(S,V+37%)=17355:7340  !V:0:="C":7350  7900 7D(S,V+18)>D(S,V+27)T(V,3)=1 7D(S,V+18)=D(S,V+27)T(V,3)=0 7D(S,V+18)yt@]apU     i\DPFcxiS6     8 = lkT'*X`m>     E\N'hBapWLOhBUa   BGC208PPF N.   QpBĀ\E6Yp4!.      Q[XY:e>6hB     XQ*R[DH. N.Ȗ:6     333[=0u N: N@X0uPF0    1XHq ILhPF@PF)     : 2xi@@\D0uPFa    zIp_6 2' N N:   ] [p}(#'lkPFp~    q]3.dUU]06 N}    0G"XX.0u|@PFa2    hGTp}@2ȯ6PF`mU     C =    ((    `(     `zH    (=p   `=p   G     0      Q     HQ   333         fff   8fff    pfff    A    P     zH;BAYBREKOLMGLHSVMANUERS04BOCSTUKAIFRALEVDORDUSNURBWBHOM Bay MuenchenW. Bremen 1.FC Koeln M'gladbach Hamburger SVSVW MannheimUerdingen Schalke 04 VFL Bochum Stuttgart K'lautern Frankfurt Leverkusen Bor.DortmundDuesseldorf FC NuernbergB.W.BERLIN FC HOMBURG K                         !   0     *  # Z111  K                      !  + '  gs rjKECKSTEIN KOHR KOHR WALTER SEBERT WALTER FREILER EICHENAUER WALTER FUNKEL W SCHREIER E WITECZEK FUNKEL W FLICK THON VOELLER BURGSMUELLER VOELLER SCHAAF THOMAS KUTZOP KRUEMPELMANN BAKALORZ HOCHSTAETTER HOCHSTAETTER LEHNHOFF VON HEESEN JUSUFI DINAUER KALTZ zK   A-27](:&^R}RsXi7[cx @p À]