1 REM *********************************
2 REM *                               *
3 REM *       BEBBERLE-SOFTWARE       *
4 REM *                               *
5 REM *       7620 OBERWOLFACH        *
6 REM *                               *
7 REM *       TEL:07834/6389          *
8 REM *                               *
9 REM *********************************
10 V=53248:S=54272:DIML(34),MA$(18)
20 GOSUB1430:GOSUB2150:POKEV+37,10:POKEV+38,2:POKEV+39,9:POKEV+40,11:POKEV+16,0
30 POKE2041,11:POKEV+28,3:POKEV+2,166:POKEV+3,225:POKEV+21,2
40 GOSUB1830:FORT=1TO500:NEXT
50 POKE2040,BL+1:GOSUB2030
60 FORI=1TO60:POKEV+2,166+I:POKEV+3,211-I:NEXT:GOSUB2090
70 FORI=1TO121:POKEV+2,226-I:NEXT:GOSUB2090
80 FORI=1TO24:POKEV+2,105+I:POKEV+3,151-I:NEXT:GOSUB2090
90 FORI=1TO49:POKEV+2,129+I:POKEV+3,127+I:NEXT:GOSUB2090:GOSUB1970:POKEV+21,0
100 FORT=1TO150:NEXT
110 FORI=1TO18:READMA$(I):NEXT
120 POKE53280,0:POKE53281,0:PRINT"[147]":PRINTTAB(14)"[213][192][192][192][192][192][192][192][192][192][192][192][192][201]"
130 PRINTTAB(14)"[221]AUSWAHLMENUE[221]"
140 PRINTTAB(14)"[202][192][192][192][192][192][192][192][192][192][192][192][192][203]"
150 PRINTTAB(13)"[158]1[146] DATEI ANLEGEN"
160 PRINTTAB(13)"[158]2[146] TABELLENSTAND ANSEHEN"
170 PRINTTAB(13)"[158]3[146] WERTE SPEICHERN"
180 PRINTTAB(13)"[158]4[146] WERTE LADEN"
190 PRINTTAB(13)"[158]5[146] DRUCKEN"
200 PRINTTAB(13)"[158]6[146] DIRECTORY"
210 PRINTTAB(13)"[158]7[146] PROGRAMMENDE"
220 PRINT:PRINTTAB(13);:INPUTF$:IFF$<"1"ORF$>"7"THEN120
230 F=VAL(F$):ONFGOSUB1000,460,590,690,810,870,940
240 GOTO120
250 POKE53280,0:POKE53281,0:PRINT"[147]":GOSUB1200
260 FORC=1TO9:POKE211,0:POKE214,C:SYS58640:PRINTC;MA$(C):NEXT
270 FORC=10TO18:POKE211,20:POKE214,C-9:SYS58640:PRINTC;MA$(C):NEXT
280 PRINT:INPUT"[155]WELCHE MANNSCHAFT:[150]";MA
290 IFMA<1ORMA>18THEN250
300 PRINT:INPUT"[155]WELCHES SPIELJAHR (1988/89):";SJ$
310 PRINT""SPC(10)"[158]ALLES OK? (J/N)"
320 GETA$:IFA$<>"J"ANDA$<>"N"THEN310
330 IFA$="N"THEN250
340 PRINT"[147][159]"
350 INPUT"WIEVIELE SPIELTAGE:";T1
360 IFT1<1ORT1>34THEN340
370 FORI=1TOT1
380 PRINTI".SPIELTAG: ";:INPUTL(I)
390 IFL(I)>18THEN380
400 NEXT
410 GOSUB460:GOSUB1210:GOSUB1230
420 GOSUB1390
430 IFA$="N"THEN120
440 GOSUB590:RETURN
450 RETURN
460 PRINT"[147]"
470 FORI=1TO18:PRINT"[159]   [192][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219]":NEXT
480 PRINT"":FORI=1TO18:PRINT"[158]";I:NEXT
490 PRINTTAB(4)"0000000001[158]1111111112[158]2222222223[158]3333"
500 PRINTTAB(4)"1234567890[158]1234567890[158]1234567890[158]1234"
510 PRINT""TAB(5)""MA;MA$(MA);"[146]","";SJ$
520 FORA=1TO34
530 IFL(A)=1THENPOKE211,3+A:POKE214,2+L(A):SYS58640:PRINT"[209]"
540 IFL(A)>1THENFORD=2TOL(A):POKE211,3+A:POKE214,2+D:SYS58640:PRINT"[209]"
550 IFL(A)>1THENPOKE211,3+A:POKE214,2+D-1:SYS58640:PRINT"[159][219]":NEXT
560 NEXT
570 IFF=2THENGOSUB1210:GOSUB1230
580 RETURN
590 GOSUB1320
600 PRINT"[147][144]":POKE53280,0:POKE53281,15
610 POKE211,9:POKE214,7:SYS58640:PRINT"DATEN WERDEN GESPEICHERT!"
620 OPEN1,8,15,"S:"+MA$(MA):CLOSE1
630 OPEN2,8,2,MA$(MA)+",S,W"
640 PRINT#2,MA$(MA):PRINT#2,SJ$:PRINT#2,T1
650 FORA=1TO34:PRINT#2,L(A):NEXT:CLOSE2
660 PRINT"[147]"
670 POKE211,9:POKE214,12:SYS58640:PRINT"DATEN SIND GESPEICHERT!"
680 FORT=1TO1500:NEXT:RETURN
690 GOSUB1320:GOSUB1200
700 PRINT"[147][144]":POKE53280,0:POKE53281,15
710 FORC=1TO9:POKE211,0:POKE214,C:SYS58640:PRINTC;MA$(C):NEXT
720 FORC=10TO18:POKE211,20:POKE214,C-9:SYS58640:PRINTC;MA$(C):NEXT
730 PRINT:INPUT"WELCHE MANNSCHAFT:[151]";MA
740 IFMA<1ORMA>18THEN730
750 OPEN2,8,2,MA$(MA)+",S,R"
760 INPUT#2,MA$(MA):INPUT#2,SJ$:INPUT#2,T1
770 FORA=1TO34:INPUT#2,L(A):NEXT:CLOSE2
780 GOSUB1230:PRINT"[147]":POKE53280,0:POKE53281,0
790 POKE211,9:POKE214,12:SYS58640:PRINT"DATEN SIND GELADEN !"
800 FORT=1TO500:NEXT:GOSUB460:GOSUB1210:GOSUB1230:RETURN
810 GOSUB1250:GOSUB460
820 OPEN1,4:OPEN2,3:PRINT#1,CHR$(14):PRINT"";
830 FORI=1TO25:FORJ=1TO20:GET#2,T$:PRINTCHR$(20);:GET#2,L$
840 PRINTCHR$(157)CHR$(148)T$L$;:PRINT#1,T$L$;:NEXTJ:PRINT#1:NEXTI
850 CLOSE2:CLOSE1
860 RETURN
870 GOSUB900
880 GOSUB1210
890 GOTO120
900 PRINT"[147] 0 ";:OPEN1,8,0,"$":POKE781,1:SYS65478:GETA$,A$,A$,A$:X$=CHR$(0)
910 FORI=1TO7:GETA$,B$,C$,D$:PRINTA$B$C$D$;:NEXT:PRINT:GETA$,A$,A$,B$
920 IFSTTHENSYS65484:CLOSE1:RETURN
930 PRINTASC(A$+X$)+256*ASC(B$+X$);:GOTO910
940 PRINT"[147]":POKE53280,11:POKE53281,15:POKE646,6
950 POKE211,12:POKE214,10:SYS58640:PRINT"SICHER (J/N)
960 [141]1210
970 [139]A$[179][177]"J"[175]A$[179][177]"N"[167]940
980 [139]A$[178]"N"[167][137]120
990 [153]"LOAD":[151]53280,14:[151]53281,6:[151]646,14:[128]
1000 [153]"LOAD":[151]53280,0:[151]53281,11
1010 [153]""[163]10)"STOPNWAITSYSEUE DATEI ANLEGEN"
1020 [153]""[163]10)"STOPAWAITSYSLTE DATEI ERGAENZEN"
1030 [151]211,8:[151]214,10:[158]58640:[133]"IHRE WAHL:";W$
1040 [139]W$[179][177]"N"[175]W$[179][177]"A"[167]1000
1050 [139]W$[178]"N"[167][141]250:[137]120
1060 [141]690
1070 [153]"  ";MA$(MA);"WAIT","";SJ$
1080 [153]""[163]3)"SYSVON SPIELTAG   ";T1[170]1
1090 [153]""[163]3)"SYSBIS SPIELTAG :";:[133]T2
1100 [139]T2[177]34[167]1070
1110 [153]"":[129]I[178]T1[170]1[164]T2
1120 [153]I".SPIELTAG: ";:[133]L(I)
1130 [139]L(I)[177]18[167]1120
1140 [130]
1150 [136]T1[178]T2
1160 [141]460:[141]1210:[141]1230
1170 [141]1390
1180 [139]A$[178]"N"[167]120
1190 [141]590:[142]
1200 [129]A[178]1[164]34:L(A)[178]0:[130]:[142]
1210 [161]A$:[139]A$[178]""[167]1210
1220 [142]
1230 [129]I[178]0[164]12:[151]781,12[170]I:[158]59903:[151]781,12[171]I:[158]59903
1240 [129]T[178]1[164]30:[130]:[130]:[142]
1250 [159]1,4:[151]768,61
1260 [152]1:[160]1
1270 [151]768,139
1280 [139]ST[179][177][171]128[167][142]
1290 [153]"LOAD";
1300 [153]"DRUCKER NICHT EINGESCHALTET!"
1310 [141]1210:[137]120
1320 [151]768,61
1330 [159]1,8,15,"I":[160]1
1340 [151]768,139
1350 [139]ST[179][177][171]128[167][142]
1360 [153]"LOAD";
1370 [153]"FLOPPY NICHT EINGESCHALTET!"
1380 [141]1210:[137]120
1390 [153]"LOAD":[153]""[163]10)"SPEICHERN (J/N)";:[133]A$
1400 [139]A$[179][177]"J"[175]A$[179][177]"N"[167]1390
1410 [139]A$[178]"N"[167][142]
1420 [142]
1430 [151]53281,6:[151]53280,0:[151]53272,21:[153]"LOADSYS";
1440 [153]"            B E B B E R L E
1450 PRINT"                S O F T
1460 [153]"             PRAESENTIERT
1470 PRINT"           nmnmnmnmnmnmnmnmnmn[165]
1480 [153][166]10)"nmnmnmnmnmnmnmnmnmnmFN
1490 PRINTSPC(9)"[169]                  [146]m[165]
1500 [153][166]9)" WAITnmnmnmnmnmnmnmnmnm WAITmFN
1510 PRINTSPC(9)" [146]mnmnmnmnmnmnmnmnmn [146]m[165]
1520 [153][166]9)" WAITnmnmnmnmnmnmnmnmnm WAITmFN
1530 PRINTSPC(9)" [146]mnmnmnmnmnmnmnmnmn [146]m[165]
1540 [153]"  OPEN(C)     WAITnmnmnmnmnmnmnmnmnm WAITmFN  OPEN1988
1550 PRINTSPC(9)" [146]mnmnmnmnmnmnmnmnmn [146]m[165]
1560 [153][166]9)" WAITnmnmnmnmnmnmnmnmnm WAITmFN
1570 PRINTSPC(9)" [146]mnmnmnmnmnmnmnmnmn [146]m[165]
1580 [153]"   WAIT}  WAIT}                         WAIT}   WAIT}   ";
1590 [153]"   WAIT}  WAIT}                         WAIT}   WAIT}   ";
1600 [153]"   WAIT}  WAIT/`````````````````````````EXP   WAIT}   ";
1610 [153]"   WAIT}                                WAIT}   ";
1620 [153]"   WAIT}               WAITq                WAIT}   ";
1630 [153]"   WAIT}                                WAIT}   ";
1640 [153]"   WAIT/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP  ";
1650 [151]2023,160:[151]56295,5
1660 [129]T[178]1[164]1000:[130]
1670 [153]"DEF"
1680 [153]"  STEP   (null)WAIT STEP  (null)WAIT    (null)WAIT    (null)WAIT  WAIT     WAIT       (null)WAIT
1690 PRINT"     [146]    [146]   [146]  [146]   [146]  [146]     [146]     [146]     [146]
1700 [153]"     WAIT       WAIT     WAIT     WAIT  WAIT     WAIT       WAIT
1710 PRINT"     [146]    [146]   [146]  [146]   [146]  [146]     [146]     [146]     [146]
1720 [153]"     WAIT    WAIT   WAIT    WAITSTEP    WAITSTEP    WAITSTEP    WAITSTEP    WAITSTEP
1730 PRINT"  [158][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]
1740 [129]T[178]1[164]1000:[130]
1750 [129]I[178]1[164]5:[151]781,0[170]I:[158]59903:[130]
1760 [153]"    DIES IST EIN PROGRAMM FUER DIE"
1770 [153]"  VERWALTUNG DER TABELLENSTAENDE DER"
1780 [153]"    FUSSBALLBUNDESLIGAMANNSCHAFTEN."
1790 A$[178]"PRINTBEBBERLE-SOFTWARE"
1800 [129]I[178]1[164][195](A$):[151]211,11:[151]214,19:[158]58640:[153][202](A$,1,I)
1810 [129]T[178]1[164]25:[130]:[130]
1820 [142]
1830 BL[178]192
1840 [151]V[170]28,3:[151]V[170]23,1:[151]V[170]29,1:[151]V[170]27,0
1850 [151]2040,BL
1860 [151]V,0:[151]V[170]1,200
1870 [151] V[170]21,3
1880 [129]X[178]1[164]140[169]2
1890 [151] V,X:[129]T[178]1[164]30:[130]
1900 [141]1930
1910 [130] X
1920 [142]
1930 BL[178]BL[170]1
1940 [139]BL[177]199[167]BL[178]192
1950 [151]2040,BL
1960 [142]
1970 [129]X[178]140[164]255[169]2
1980 [151] V,X:[129]T[178]1[164]30:[130]
1990 [141]1930
2000 [130] X
2010 [151]V[170]16,1:[129]X[178]1[164]65[169]2:[151]V,X:[129]T[178]1[164]30:[130]:[141]1930:[130]
2020 [142]
2030 [151]S[170]5,16[172]0[170]10:[151]S[170]6,16[172]0[170]8:[151]S[170]2,2048[175]255:[151]S[170]3,2048[173]256
2040 HI[178][181](3000[173]256):LO[178]3000[171]256[172]HI
2050 [151]S,LO:[151]S[170]1,HI:[151]S[170]22,50:[151]S[170]23,0:[151]S[170]24,15
2060 [151]S[170]4,128[176]1
2070 [129]I[178]1[164]50:[130]
2080 [151]S[170]4,128[175]254:[142]
2090 [151]S[170]5,16[172]0[170]10:[151]S[170]6,16[172]0[170]8:[151]S[170]2,2048[175]255:[151]S[170]3,2048[173]256
2100 HI[178][181](2340[173]256):LO[178]2340[171]256[172]HI
2110 [151]S,LO:[151]S[170]1,HI:[151]S[170]22,50:[151]S[170]23,0:[151]S[170]24,15
2120 [151]S[170]4,16[176]1
2130 [129]I[178]1[164]100:[130]
2140 [151]S[170]4,16[175]254:[142]
2150 [129]N[178]12288[164]12350:[135]Q:[151]N,Q:[130]
2160 [129]N[178]12352[164]12414:[135]Q:[151]N,Q:[130]
2170 [129]N[178]12416[164]12478:[135]Q:[151]N,Q:[130]
2180 [129]N[178]12480[164]12542:[135]Q:[151]N,Q:[130]
2190 [129]N[178]12544[164]12606:[135]Q:[151]N,Q:[130]
2200 [129]N[178]12608[164]12670:[135]Q:[151]N,Q:[130]
2210 [129]N[178]12672[164]12734:[135]Q:[151]N,Q:[130]
2220 [129]N[178]12736[164]12798:[135]Q:[151]N,Q:[130]
2230 [129]N[178]704[164]766:[135]Q:[151]N,Q:[130]:[142]
2240 [143] ****************
2250 [131]0,160,0,2,168,0,2,145,64
2260 [131]10,85,64,10,85,0,40,84,0
2270 [131]0,208,0,0,240,0,1,124,0
2280 [131]5,255,0,23,255,0,23,255,64
2290 [131]5,255,80,1,252,80,0,168,0
2300 [131]0,170,0,2,250,128,10,194,128
2310 [131]91,2,128,92,6,128,21,69,84
2320 [143] ****************
2330 [131]0,160,0,2,168,0,2,145,64
2340 [131]10,85,64,10,85,0,40,84,0
2350 [131]0,208,0,0,240,0,3,124,0
2360 [131]1,127,0,1,255,0,5,255,0
2370 [131]1,255,64,1,125,64,0,105,0
2380 [131]0,170,0,0,250,0,2,186,0
2390 [131]10,202,0,27,40,0,21,85,64
2400 [143] *****************
2410 [131]0,160,0,2,168,0,2,145,64
2420 [131]10,85,64,10,85,0,8,84,0
2430 [131]32,208,0,0,240,0,3,124,0
2440 [131]3,127,0,13,127,0,13,127,0
2450 [131]15,95,0,3,92,0,2,148,0
2460 [131]0,171,0,0,235,0,2,168,0
2470 [131]1,232,0,1,160,0,1,85,64
2480 [143] *****************
2490 [131]0,160,0,2,168,0,2,145,64
2500 [131]10,85,64,10,85,0,40,84,0
2510 [131]0,208,0,0,240,0,3,124,0
2520 [131]3,95,0,15,95,0,15,95,0
2530 [131]15,215,0,3,213,0,2,169,0
2540 [131]0,171,0,0,171,128,2,174,128
2550 [131]10,186,0,10,21,0,5,85,64
2560 [143] ******************
2570 [131]0,160,0,2,168,0,2,145,64
2580 [131]10,85,64,42,85,0,8,84,0
2590 [131]0,208,0,0,240,0,3,124,0
2600 [131]3,95,0,15,95,0,15,215,0
2610 [131]31,213,0,23,245,64,2,169,64
2620 [131]2,168,0,2,186,0,10,142,128
2630 [131]106,14,128,104,14,128,85,5,84
2640 [143] ******************
2650 [131]0,160,0,2,168,0,2,145,64
2660 [131]10,85,64,42,85,0,8,84,0
2670 [131]0,208,0,0,240,0,3,124,0
2680 [131]3,95,0,15,95,0,15,95,0
2690 [131]15,95,0,7,215,0,6,149,0
2700 [131]2,168,0,2,171,0,2,186,0
2710 [131]2,186,0,10,232,0,5,85,80
2720 [143] ******************
2730 [131]0,160,0,2,168,0,2,145,64
2740 [131]10,85,64,10,85,0,40,84,0
2750 [131]0,208,0,0,240,0,3,124,0
2760 [131]3,127,0,13,127,0,13,127,0
2770 [131]15,95,0,3,95,0,2,148,0
2780 [131]2,168,0,2,168,0,2,168,0
2790 [131]11,40,0,31,40,0,21,85,0
2800 [143] *******************
2810 [131]0,160,0,2,168,0,2,145,64
2820 [131]10,85,64,10,85,0,8,84,0
2830 [131]32,208,0,0,240,0,3,124,0
2840 [131]1,127,0,13,127,0,5,255,0
2850 [131]5,255,0,1,127,0,1,93,0
2860 [131]2,168,0,2,168,0,10,234,0
2870 [131]27,10,0,20,10,0,5,69,80
2880 [143] ********************
2890 [131]0,0,0,0,0,0,0,20,0
2900 [131]0,85,0,1,85,64,5,85,80
2910 [131]21,89,84,21,106,84,85,170,85
2920 [131]85,170,85,85,169,85,85,101,85
2930 [131]85,85,85,21,85,84,21,85,84
2940 [131]5,85,80,1,85,64,0,85,0
2950 [131]0,20,0,0,0,0,0,0,0
2960 [143] *********************
2970 [131]"BOR.M'GLADBACH","BAYERN MUENCHEN","KARLSRUHER SC","VFB STUTTGART"
2980 [131]"VFL BOCHUM","WERDER BREMEN","1.FC NUERNBERG","WALDHOF MANNHEIM"
2990 [131]"BAYER LEVERKUSEN","1.FC KOELN","BAYER UERDINGEN","HANNOVER 96"
3000 [131]"BOR.DORTMUND","STUTTG.KICKERS","HAMBURGER SV","ST.PAULI HAMBURG"
3010 [131]"1.FC KAISERSL.","EINTR.FRANKFURT"