5 POKE788,52
10 POKE53280,0:POKE53281,0:PRINT"":OPEN15,8,15:PRINT#15,"I0":GOSUB10000
20 PU=2:FP=1:DK=0:L1=40:L2=30:L3=15:T=0
30 BZ$(1)="SATZNUMMER..:":BZ$(2)="NAME/VORNAME:":BZ$(3)="STRASSE.....:"
40 BZ$(4)="PLZ/ORT.....:":BZ$(5)="RUFNUMMER...:":BZ$(6)="CODIERUNG...:"
50 BL$="............[157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
100 DIM A$(501),A(501)
190 GOTO11000
200 PRINT"[164][157]";
205 GETT$:IFT$=""THEN205
210 TT=ASC(T$):IFTT=20ANDTT$=""THENT$="":GOTO205
215 IFTT>13ANDTT<20ORTT>20ANDTT<32ORTT>96THENT$="":GOTO205
220 IFTT=95ORTT=13THENPRINTCHR$(32):RETURN
225 IFTT=34THENT$="'"
230 IFTT<>20THENPRINTT$;:TT$=TT$+T$:GOTO240
235 IFTT=20THENPRINTT$;:TT$=LEFT$(TT$,LEN(TT$)-1)
240 IFLEN(TT$)<LLTHEN200
245 PRINTCHR$(32):RETURN
1000 X$="":X=0:PRINT"[147] 1-[146] DISKETTE ANLEGEN";SPC(61);"2-[146] DATEI ANLEGEN";SPC(64);
1010 PRINT"3-[146] MENUE"
1020 GETX$:X=VAL(X$):IFX<1ORX>3THEN1020
1030 IFX=1THEN1100
1040 IFX=2THEN1300
1050 IFX=3THENRETURN
1060 GOTO1020
1100 PRINT"[147]DISKETTE ANLEGEN:":INPUT"DISKETTE EINGELEGT  N[157][157][157]";X$
1110 IFX$<>"J"THEN1100
1120 INPUT"DISKETTENNAME";D$:IFD$=""THENPRINT"[145][145][145]":GOTO1120
1130 INPUT"DISKETTENNUMMER";DN$:DN=VAL(DN$):IFDN<1ORD>9THENPRINT"[145][145][145]":GOTO1130
1140 INPUT"ANGABEN RICHTIG  N[157][157][157]";X$:IFX$<>"J"THENPRINT"[145][145][145][145][145][145][145]":GOTO1120
1150 PRINT#15,"N0:"+D$+","+DN$
1160 GOTO1000
1300 PRINT"[147]DATEI ANLEGEN:":INPUT"DISKETTE FUER SEQ. DATEI EINGELEGT  N[157][157][157]";X$
1310 IFX$<>"J"THEN1300
1320 PRINT"":FORX=1TO6:PRINTBZ$(X):NEXT
1330 FORX=7TO10
1340 PRINTBL$;:INPUTBZ$(X)
1350 IFLEN(BZ$(X))>12THENPRINT"[145][145]":FORY=1TOLEN(BZ$(X)):PRINT" ";:NEXT:
1360 IFLEN(BZ$(X))>12THENPRINT"[145]":BZ$(X)="":GOTO1340
1370 IFLEFT$(BZ$(X),1)="."THENPRINT"[145][145]":GOTO1340
1380 BZ$(X)=BZ$(X)+":":PRINT"[145]";BZ$(X):NEXT
1390 PRINT"[147]";:FORX=1TO10:PRINTBZ$(X):NEXT:INPUT"ANGABEN KORREKT  J[157][157][157]";X$:IFX$="J"THEN1500
1400 INPUT"WELCHE BEZEICHNUNG 7-10";X$:X=VAL(X$)
1410 IFX<7ORX>10THENPRINT"[145][145][145]":GOTO1400
1420 PRINTBZ$(X)
1430 PRINTBL$;:INPUTBZ$(X)
1440 IFLEN(BZ$(X))>12THENPRINT"[145][145]":FORY=1TOLEN(BZ$(X)):PRINT" ";:NEXT:
1450 IFLEN(BZ$(X))>12THENPRINT"[145]":BZ$(X)="":GOTO1430
1460 IFLEFT$(BZ$(X),1)="."THENPRINT"[145][145]":GOTO1430
1470 BZ$(X)=BZ$(X)+":":PRINT"[145]";BZ$(X):GOTO1390
1500 PRINT"[147]GEBEN SIE NUN DEN DATEINAMEN EIN:":D$=""
1510 INPUT"DATEINAMEN:";D$:DD$="@:"+D$+"S,W":PRINT#15,"I0":OPEN3,8,3,DD$:GOSUB10000
1520 FORX=1TO500
1540 A$(X)="^":A(X)=X:NEXTX:T=0:PRINT#3,T
1550 FORX=7TO10:PRINT#3,CHR$(34);BZ$(X):NEXT
1560 FORX=1TO500:PRINT#3,A$(X):PRINT#3,A(X):PRINT"";X:NEXT
1570 GOSUB10000:CLOSE3:RETURN
2000 PRINT"[147]DATEI EINLESEN:[146]";SPC(65);"_[146] =MENUE";SPC(72)
2010 INPUT"DISKETTE MIT INDEXDATEI EINGELEGT  N[157][157][157]";X$:PRINT""
2020 IFX$="_"THENRETURN
2030 IFX$<>"J"THEN2000
2040 INPUT"DATEINAME";D$:DD$=D$+"S,R":OPEN3,8,3,DD$:GOSUB10000:INPUT#3,T
2045 IFY=62THENCLOSE3:PRINT"[145][145][145][145][145]":GOTO2040
2050 FORX=7TO10:INPUT#3,BZ$(X):NEXT:PRINT"";T;"":FORX=1TO10:PRINTBZ$(X):NEXT
2055 PRINT"DATEI ";D$;"[146] WIRD EINGELESEN.[145][145][145]"
2060 FORX=1TO500:INPUT#3,A$(X):INPUT#3,A(X):NEXT
2070 GOSUB10000:CLOSE3:RETURN
3000 PRINT"[147]INDEXDATEI SPEICHERN:[146]";SPC(59);"_[146] =MENUE/END"
3010 INPUT"INDEXDISKETTE EINGELEGT  N[157][157][157]";X$:IFX$="_"THENRETURN
3020 IFX$<>"J"THEN3000
3030 INPUT"DATEINAMEN:";D$:INPUT"DATEINAMEN KORREKT  J[157][157][157]";X$
3040 IFX$="N"THENPRINT"[145][145][145][145][145]":GOTO3030
3050 DD$=D$+"S,W":OPEN3,8,3,DD$:GOSUB10000:IFY<>0THENGOTO3100
3060 PRINT#3,T:FORX=7TO10:PRINT#3,CHR$(34);BZ$(X):NEXT
3070 FORX=1TO500:PRINT#3,CHR$(34);A$(X):PRINT#3,A(X):NEXT:CLOSE3:GOSUB10000:RETURN
3100 CLOSE3:INPUT"DATEI UEBERSCHREIBEN  J[157][157][157]";X$
3110 IFX$="N"THEN3000
3120 DD$="@:"+D$+"S,W":OPEN3,8,3,DD$:GOTO3060
4000 PRINT"[147]DATEN EINGEBEN:[146]";SPC(65);"_[146] = MENUE"
4010 INPUT"DATENDISKETTE EINGELEGT  N[157][157][157]";X$:IFX$="_"THENRETURN
4015 IFX$<>"J"THEN4000
4020 IFA$(1)=""THENRETURN
4030 FORX=1TO500:IFA$(X)="^"THEN4100
4035 NEXT
4040 PRINT"KEIN DATENSATZ MEHR FREI":FORX=1TO1000:NEXT:RETURN
4100 PRINT"[147][213][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][201]";
4101 PRINT "[221]        10        20        30        [194]";
4102 PRINT"[202][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][203]"
4105 R=A(X):PRINT"";BZ$(1);R;"[146]"
4110 PRINTBZ$(2),L1:LL=L1:GOSUB200:AD$(1)=TT$:TT$=""
4115 IFAD$(1)=""THENAD$(1)="---"
4120 PRINT"[145][145]":PRINTBZ$(3);L2:LL=L2:GOSUB200:AD$(2)=TT$:TT$=""
4125 IFAD$(2)=""THENAD$(2)="---"
4130 PRINT"[145][145]":PRINTBZ$(4),L2:LL=L2:GOSUB200:AD$(3)=TT$:TT$=""
4135 IFAD$(3)=""THENAD$(3)="---"
4140 PRINT"[145][145]":PRINTBZ$(5),L3:LL=L3:GOSUB200:AD$(4)=TT$:TT$=""
4145 IFAD$(4)=""THENAD$(4)="---"
4150 PRINT"[145][145]":PRINTBZ$(6),L3:LL=L3:GOSUB200:AD$(5)=TT$:TT$=""
4155 IFAD$(5)=""THENAD$(5)="---"
4160 PRINT"[145][145]":PRINTBZ$(7),L2:LL=L2:GOSUB200:AD$(6)=TT$:TT$=""
4165 IFAD$(6)=""THENAD$(6)="---"
4170 PRINT"[145][145]":PRINTBZ$(8),L2:LL=L2:GOSUB200:AD$(7)=TT$:TT$=""
4175 IFAD$(7)=""THENAD$(7)="---"
4180 PRINT"[145][145]":PRINTBZ$(9),L2:LL=L2:GOSUB200:AD$(8)=TT$:TT$=""
4185 IFAD$(8)=""THENAD$(8)="---"
4190 PRINT"[145][145]":PRINTBZ$(10),L2:LL=L2:GOSUB200:AD$(9)=TT$:TT$=""
4195 IFAD$(9)=""THENAD$(9)="---"
4200 INPUT"EINGABE KORREKT  J[157][157][157]";X$:IFX$="J"THEN4210
4205 IFX$="N"THENGOSUB10700:Q=1:GOSUB5200
4210 T=T+1:A$(X)=AD$(1):OPEN2,8,2,"#":GOSUB10200:CLOSE2
4220 INPUT"NEUE EINGABE (J/N)[146]  J[157][157][157]";X$:IFX$="N"THENRETURN
4230 IFX$="J"THEN4035
4240 PRINT"[145]";:GOTO4220
5000 INPUT"[147]DATENDISKETTE EINGELEGT (_[146] = MENUE)  N[157][157][157]";X$:IFX$="_"THENRETURN
5005 IFX$<>"J"THEN5000
5010 PRINT"WELCHER SATZ SOLL GESUCHT WERDEN?       _[146]=MENUE":Z=0
5015 INPUT"";S$:IFS$="_"THEN RETURN
5020 FORY=1TOT:IFLEFT$(A$(Y),LEN(S$))=S$THENZ=Y:GOTO5100
5030 NEXTY:PRINT"DATENSATZ NICHT MEHR IM SPEICHER":FORX=1TO1000:NEXT:GOTO5000
5100 R=A(Y):OPEN2,8,2,"#":GOSUB10100:GOSUB10700
5120 PRINT"A[146]ENDERN      L[146]OESCHEN      _[146]NEUER SATZ         W[146]EITERSUCHEN"
5130 GETX$:IFX$=""THEN5130
5140 IFX$="A"THENGOSUB5200:CLOSE2:GOTO5100
5150 IFX$="L"THEN5300
5160 IFX$="_"THENCLOSE2:GOTO5000
5170 IFX$="W"THENCLOSE2:Y=Z:GOTO5030
5180 GOTO5130
5200 PRINT"WELCHES FELD SOLL GEAENDERT WERDEN?"
5205 INPUTZ$:A=VAL(Z$):IFA<1ORA>9THENPRINT"[145][145]":GOTO5210
5210 LL=30:IFA=1THENLL=L1
5215 IFA=4ORA=5THENLL=15
5220 PRINTAD$(A);"":GOSUB200:AD$(A)=TT$:TT$="":IFAD$(A)=""THENAD$(A)="---"
5230 INPUT"WEITERE AENDERUNGEN  N[157][157][157]";Z$
5233 IFZ$="N"ANDQ=1THENRETURN
5235 IFZ$="N"THENGOSUB10200:RETURN
5240 IFZ$="J"THENGOSUB10700:GOTO5200
5300 CLOSE2:FORGY=1TO9:AD$(GY)="@@@@@@":NEXT:OPEN2,8,2,"#":GOSUB10200:CLOSE2
5310 IFZ=TTHENA$(T)="^":T=T-1:GOTO5010
5320 FORX=ZTOT-1:A(X)=A(X+1):A$(X)=A$(X+1):NEXT:A$(T)="^":A(T)=T:T=T-1
5330 GOTO5010
6000 INPUT"[147]DATENDISKETTE EINGELEGT  N[157][157][157]";X$:IFX$="_"THENRETURN
6003 IFX$<>"J"THEN6000
6005 PRINT"[147]DATENAUSGABEN:[146]";SPC(67);"1-[146] UEBERSICHT INDEXDATEI";SPC(56);
6010 PRINT"2-[146] DATEN BEARBEITEN";SPC(61);"3-[146] GESAMTAUSDRUCK";SPC(63);
6020 PRINT"4-[146] GESAMTAUSDRUCK NACH SUCHBEGR.";SPC(48);"5-[146] ADRESSAUFKLEBER";
6030 PRINTSPC(62);"6-[146] ADRESSAUFKL. NACH SUCHBEGR.";SPC(50);
6035 PRINT"7-[146] AUSDRUCK NACH PLZ";SPC(60);"8-[146] MENUE";SPC(121);"WAEHLE 1-8[146]"
6040 GETX$:X=VAL(X$):IFX<1ORX>8THEN6040
6050 IFX=8THENRETURN
6060 ONXGOTO6100,6200,6300,6400,6500,6600,6700
6100 PRINT"[147]UEBERSICHT:[146]"
6110 FORX=1TOT:PRINTA(X);" ";TAB(7);A$(X)
6120 IFX/15=INT(X/15)THENINPUT"'RETURN'[146]";X$:PRINT"[147]UEBERSICHT:[146]"
6130 NEXT:INPUT"'RETURN'[146]";X$:GOTO6005
6140 NEXT:GOTO6005
6200 Z=1:R=A(Z):OPEN2,8,2,"#"
6210 GOSUB10100:GOSUB10700
6220 PRINT"A[146]ENDERN    D[146]RUCKEN   +[146]VOR-  -[146]ZURUECK-   ";
6223 PRINT">[146] 10 VOR-  <[146] 10 ZURUECKBL.  _[146] ENDE[145][145]"
6225 GETX$:IFX$=""THEN6225
6230 IFX$="A"THENGOSUB5200:GOTO6210
6240 IFX$="D"THENGOSUB10500:GOTO6210
6245 IFX$="+"THENZ=Z+1:IFZ>TTHENZ=T
6250 IFX$="+"THENR=A(Z):GOTO6210
6255 IFX$="-"THENZ=Z-1:IFZ<1THENZ=1
6260 IFX$="-"THENR=A(Z):GOTO6210
6265 IFX$=">"THENZ=Z+10:IFZ>TTHENZ=T
6270 IFX$=">"THENR=A(Z):GOTO6210
6275 IFX$="<"THENZ=Z-10:IFZ<1THENZ=1
6280 IFX$="<"THENR=A(Z):GOTO6210
6285 IFX$="_"THENCLOSE2:GOTO6005
6290 GOTO6225
6300 PRINT"[147]GESAMTAUSDRUCK ALLER DATEN:":OPEN2,8,2,"#":FORX=1TOT:PRINT"";X:R=A(X)
6310 GOSUB10100:GOSUB10500:IFX/6=INT(X/6)THENOPEN1,4,1:PRINT#1,CHR$(12):CLOSE1
6320 IFX/30=INT(X/30)THENINPUT"'RETURN'[146]";X$
6330 NEXT:CLOSE2:GOTO6005
6400 PRINT"[147]GESAMTAUSDRUCK NACH CODE:":INPUT"GEBEN SIE CODE EIN";CD$:GOSUB10700
6405 INPUT"SUCHFELD";YY:IFYY<1ORYY>9THENPRINT"[145][145][145]":GOTO6405
6410 IFCD$=""THEN6400
6420 PRINT"[147]":XX=0:OPEN2,8,2,"#":FORX=1TOT:PRINT"";X:R=A(X):GOSUB10100
6430 FORZ=1TOLEN(AD$(YY))-LEN(CD$)+1
6440 IFMID$(AD$(YY),Z,LEN(CD$))=CD$THENGOSUB10700:GOSUB10500:XX=XX+1
6450 NEXTZ:IFXX/6=INT(XX/6)ANDXX>0THENOPEN7,4,1:PRINT#7,CHR$(12)
6460 NEXTX:CLOSE2:GOTO6005
6500 PRINT"[147]GESAMTAUSDRUCK ALLER ADRESSEN:":OPEN2,8,2,"#":FORX=1TOT
6510 PRINT"";X:R=A(X):GOSUB10100:GOSUB10600:NEXT:CLOSE2:GOTO6005
6600 PRINT"[147]GESAMTAUSDRUCK NACH CODE:":INPUT"GEBEN SIE CODE EIN";CD$:GOSUB10700
6605 INPUT"SUCHFELD";YY:IFYY<1ORYY>9THENPRINT"[145][145][145]":GOTO6605
6610 IFCD$=""THEN6600
6620 PRINT"[147]":OPEN2,8,2,"#":FORX=1TOT:PRINT"";X:R=A(X):GOSUB10100
6630 FORZ=1TOLEN(AD$(YY))-LEN(CD$)+1
6640 IFMID$(AD$(YY),Z,LEN(CD$))=CD$THENGOSUB10700:GOSUB10600
6650 NEXTZ:NEXTX:CLOSE2:GOTO6005
6700 PRINT"[147]AUSGABE EINES POSTLEITZAHLENBEREICHES:"
6710 PRINT"GEBEN SIE A[146] FUER ADRESSAUFKLEBER ODER   G[146] FUER GESAMTAUSDRUCK EIN."
6715 GETST$:IFST$="A"ORST$="G"THEN6725
6720 GOTO6715
6725 INPUT"KLEINERE PLZ:";PK$:PK=VAL(PK$):IFPK<10000ORPK>99999THENPRINT"[145]";:GOTO6725
6727 PRINT""
6730 INPUT"GROESSERE PLZ:";PG$:PG=VAL(PG$):IFPK<10000ORPK>99999THENPRINT"[145]";:GOTO6730
6735 FORX=1TOT:R=A(X):OPEN2,8,2,"#":GOSUB10100:CLOSE2
6740 IFVAL(LEFT$(AD$(3),5))>=PKANDVAL(LEFT$(AD$(3),5))<=PGTHEN6750
6745 NEXTX:RETURN
6750 IFST$="A"THENGOSUB10600:GOTO6745
6755 IFST$="G"THENGOSUB10500:GOTO6745
7000 PRINT"[147] 1-[146] INDEXDATEI ANLEGEN":PRINT" 2-[146] INDEXDATEI SORTIEREN"
7010 PRINT" 3-[146] MENUE"
7020 GETX$:X=VAL(X$):IFX<1ORX>3THEN7020
7030 IFX=1THEN7100
7040 IFX=2THENPRINT" 2.[146]":GOTO7300
7050 IFX=3THENRETURN
7060 GOTO7020
7100 INPUT"[147]DATENDISKETTE EINGELEGT  N[157][157][157]";X$:IFX$<>"J"THEN7100
7110 IFX$="_"THENRETURN
7120 PRINT"":FORX=2TO10:PRINTX-1;"";BZ$(X):NEXT
7130 PRINT"   NACH WELCHEM FELD SOLL INDEXDATEI       ANGELEGT WERDEN?"
7140 GETX$:X=VAL(X$):IFX<1ORX>9THEN7140
7150 PRINTX:OPEN2,8,2,"#":FORZ=1TOT:R=A(Z):GOSUB10100:A$(Z)=AD$(X):NEXT
7160 CLOSE2:RETURN
7300 M=T
7305 M=INT(M/2)
7310 IFM=0THEN7370
7315 J=1:K=T-M
7320 I=J
7325 L=I+M
7330 IFA$(I)<A$(L)THEN7355
7335 GOSUB7500
7340 I=I-M
7345 IFI<1THEN7355
7350 GOTO7325
7355 J=J+1
7360 IFJ>KTHEN7305
7365 GOTO7320
7370 I=0:J=0:K=0:L=0:M=0:RETURN
7500 A$(0)=A$(I):A(0)=A(I):A$(I)=A$(L):A(I)=A(L):A$(L)=A$(0):A(L)=A(0):RETURN
8000 PRINT"[147]BACKUP:[146] ":PRINT"1-[146] DISKETTE/KASSETTE":PRINT"2-[146] KASSETTE/DISKETTE"
8010 PRINT"3-[146] MENUE"
8020 GETX$:X=VAL(X$):IFX<1ORX>3THEN8020
8030 IFX=3THENRETURN
8040 ONXGOTO8100,8200
8050 GOTO8020
8100 INPUT"[147]DATENDISKETTE EINGELEGT  N[157][157][157]";X$:IFX$<>"J"THEN8100
8105 INPUT"KASSETTE EINGELEGT  N[157][157][157]";X$:IFX$="N"THENPRINT"[145][145][145]":GOTO8105
8110 INPUT"KASSETTENDATEINAME:";KN$:OPEN1,1,1,KN$:OPEN2,8,2,"#"
8120 FORX=1TOT:R=A(X):GOSUB10100:PRINT#1,R:FORY=1TO9:PRINT#1,AD$(Y):NEXT:NEXT
8130 CLOSE1:CLOSE2:RETURN
8200 INPUT"[147]DATENDISKETTE EINGELEGT  N[157][157][157]";X$:IFX$="N"THEN8200
8205 INPUT"KASSETTE EINGELEGT  N[157][157][157]";X$:IFX$="N"THENPRINT"[145][145][145]":GOTO8205
8210 INPUT"KASSETTENDATEINAME:";KN$:OPEN1,1,0,KN$:OPEN2,8,2,"#"
8220 FORX=1TOT:INPUT#1,R:FORY=1TO9:INPUT#1,AD$(Y):NEXT:GOSUB10200:NEXT
8230 CLOSE1:CLOSE2:RETURN
9000 PRINT"[147]SIE HABEN END[146] GEWAEHLT, IST":INPUT"INDEXDATEI[146] GESPEICHERT  N[157][157][157]";X$
9010 IFX$<>"J"THENGOSUB3000
9020 CLR:PRINT"[147]";:END
10000 INPUT#15,Y,Y$,V$,W$:IFY<>0THENPRINTY,Y$,V$,W$:INPUT"FORTSETZEN MIT 'RETURN'[146]";X$
10010 RETURN
10100 GOSUB10300:PRINT#15,"U1:";PU;DK;RT;RS:PRINT#15,"B-P:";PU;FP
10105 FORG=1TO9:AD$(G)="":NEXT
10110 GOSUB10000:FORG=1TO9:INPUT#PU,AD$(G):NEXT:RETURN
10200 GOSUB10300:PRINT#15,"B-P:";PU;FP:FORGY=1TO9:PRINT#PU,CHR$(34);AD$(GY);CHR$(13);
10205 NEXT
10210 PRINT#15,"U2:";PU;DK;RT;RS:GOSUB10000:FORY=1TO9:AD$(Y)="":NEXT
10220 RETURN
10300 IFR<358THENR1=0:R2=22:R3=1:GOTO10330
10310 IFR>357ANDR<472THENR1=357:R2=20:R3=19:GOTO10330
10320 IFR>471THENR1=471:R2=19:R3=25
10330 RT=INT(((R-R1)-1)/(R2-1))+R3
10340 RS=R-R1-(RT-R3)*R2+(RT-R3-1)
10350 RETURN
10500 OPEN7,4,1:OPEN8,4,0:PRINT#7,CHR$(27);CHR$(68);CHR$(15);CHR$(0);
10510 FORY=1TO9:PRINT#8,BZ$(Y+1);:PRINT#7,CHR$(9);:PRINT#8,AD$(Y):NEXT
10520 FORY=1TO4:PRINT#8,"--------------------";:NEXT:PRINT#8::CLOSE7:CLOSE8:RETURN
10600 OPEN7,4,0:IFMID$(AD$(5),2,1)="F"THENPRINT#7,"FIRMA":GOTO10685
10610 IFMID$(AD$(5),2,1)="W"THENPRINT#7,"FRAU":GOTO10640
10620 IFMID$(AD$(5),2,1)="M"THEN PRINT#7,"HERRN":GOTO10640
10630 PRINT#7,"FRAU/HERRN"
10640 FORY=1TOLEN(AD$(1)):IFMID$(AD$(1),Y,1)="/"THENL$=LEFT$(AD$(1),Y-1)
10645 FORY=1TOLEN(AD$(1)):IFMID$(AD$(1),Y,1)="/"THENL$=LEFT$(AD$(1),Y-1)
10650 IFMID$(AD$(1),Y,1)="/"THENR$=RIGHT$(AD$(1),LEN(AD$(1))-Y)
10660 IFMID$(AD$(1),Y,1)="/"THEND$=AD$(1):AD$(1)=R$+" "+L$
10670 NEXTY:PRINT#7,AD$(1):IFMID$(D$,Y,1)="/"THENAD$(1)=D$
10680 PRINT#7,AD$(2):PRINT#7:PRINT#7,AD$(3):PRINT#7:PRINT#7:PRINT#7:PRINT#7:CLOSE7:RETURN
10685 PRINT#7,AD$(1):IFLEFT$(AD$(5),1)="@"THENPRINT#7,"Z. HD.: ";AD$(6):FL=1
10690 PRINT#7,AD$(2):IFFL=0THENPRINT#7
10695 PRINT#7,AD$(3):PRINT#7:PRINT#7:PRINT#7:PRINT#7:CLOSE7:FL=0:RETURN
10700 PRINT"[147]";BZ$(1);R;""
10710 FORM=2TO10:PRINT"";M-1;BZ$(M);"[146] ";AD$(M-1):NEXT:RETURN
11000 PRINT"[147]LOGADRESS 64[146]";SPC(77);"MENUE:";SPC(34);"[183][183][183][183][183][183]";SPC(66);
11010 PRINT"1-[146] DISKETTE FORMATIEREN/DATEI ANLEGEN";SPC(43);
11020 PRINT"2-[146] DATEI EINLESEN";SPC(63);"3-[146] DATEI SPEICHERN";SPC(62);
11030 PRINT"4-[146] DATEN EINGEBEN";SPC(63);"5-[146] DATEN SUCHEN/AENDERN/LOESCHEN";
11040 PRINTSPC(48);"6-[146] DATENAUSGABE (BILDSCHIRM/DRUCKER)";SPC(44);
11050 PRINT"7-[146] INDEXDATEIEN ANLEGEN/SORTIEREN";SPC(47);
11060 PRINT"8-[146] BACKUP AUF/VON KASSETTE";SPC(54);"9-[146] END";SPC(84);
11070 PRINT"WAEHLE 1-9[146]"
11080 GETX$:X=VAL(X$):IFX<1ORX>9THEN11080
11090 ONXGOSUB1000,2000,3000,4000,5000,6000,7000,8000,9000
11100 X$="":X=0:Q=0:GOTO11000