64er_1984-04.pdf

100 PÜKE53281,0-POKE53280,0:PRINT ,\T»fflfl^ D M M - P R 0 G R fl M M "
118 PRINT"SKWW COPVRIGHTS BV
120 PRINT"»WWW VOLKER RIT2HRUPT
136 PR I NT" tt*X*n 1983" = NR IT283,63: GETX* : fl=27: B= 17
148 PR I NT "[172" •' P0KE53281.. 6 •* POKE53280.. 6 : G0SUB856 : INPUT " ZEIT (FORMAT •' HHMMSS) ";
150 BRTATSG 78 HEIDELBERG,TSV SCHOENRU,VFB GRGGENRU
160 DRTRLRG OBERE MURG,LSG SfiRRBR.SULZERCHTRL
, 176 BRTRTSG flKUS WEINHEIM, STV SINGEN, TV LAHR.. TV GENGENBRCH, TV RflDOLPHZELL
I 180 Hfl TR , TG OETIGHEIM, USC FREIBURG, TV ZUNSWEIER
190 DATRUSC HEIDELBERG,LRV RRLA LUDWIGSHRFEN
280 DRTRTV LAHR,TSG AKUS WEINHEIM,TV EPPELHEIM,TSV MANNHEIM,SV WALDKIRCH
210 DATA , TG OETIGHEIM, , USC FREIBURG, TS OTTERSDORF
220 DRTRLG COOP KURPFALZ
230 DIMR*,R(R),B$, C(R, B,3), E$ = "8 " •' NEXT :
250 PR INT "TM?® WELCHE GRUPPE ?
260 G* ="BUNDESLIGR MAENNER
278 PRINT".'?! 1
" *IflM?]" : F-$="3!Mä"
!,G$:SLIGfi MRENNER
310 PRINT"*] 3 "Gf-
328 G$ «AUSSTIEG"
560 550 I D=VAL(n$):IFD=0THEN450
570 IFE(X,D)=1THEN870
FK0= 1 THENK8=0 GOTO950
588 E O30RVAL < M ) >HTHENPRI NT " TS5" ' G0T0548
618 PRINT : FORI = 1 TOS • PRINT "ERGEBNIS NR. : 636 620 RI FOR =C I ( = X, 1T02 D, I) : FOR,T= I +1T03 I FC (X, p, j > f: < y,, d, " I i • > THEN648
INPUTCCX - D . I'> • NEXT
: C =C (X, D, •! > : 648 NEXTJ.I
f: < X • D • T ':• =R I
T 1
950
"60 PRINTC=E* GOSUB830-'FORI=FTOG-1 • :E$(J)=RI$
FORJ=I + lTOG ^ IFE$< JX=E*THEN720
728 NEXTJ.I:PRINT"«l ,,C*C*C*C* ,,ÄkflUSGEFUEHRTE DISZIPLINEN •'"
I ?3ö V=0:FORI=1TOB-*FORJ=FTOG-- IFEOJ, I H>8THENV1=V1 + 1
740 NEXTJ:IFV1=G1 THENPRINTRIGHT$(B*, LEN(B$ >-4 >,:V=V+1
750 V1=0=NEXTI
, 760 PRINT"i;f^"C$ : FORI=FTOG : PRINTE* < I > : NEXT : PRINT "Iii"
' 770 IFV=1THENARINT"ÄBTRND NACH DER ERSTEN DISZIPLIN":GOTO808
780 IFV=0THENPRINT"WNOCH KEINE DISZIPLIN KOMPLETT j" :GOTO80O
, 790 PR INT "«STAND NRCH i,V" DISZIPLINEN! W"
' 800 PRINT";TTASTE DRUECKEN!"-PRINT"