10 PRINTCHR$(14)CHR$(8)
15 DIMXF$(200,4),X$(4)
20 POKE53280,0:POKE53281,0:POKE646,7
1000 PRINT"[147][195][207][206][214][197][210][212]"
1010 PRINT"[195][207][206][214][197][210][212] WANDELT [196]ATEN VOM [196]ATEI 64      INS [193]DRESS 64 [198]ORMAT ";
1020 PRINT"UND UMGEKEHRT."
1030 PRINT"1.) [196]ATEI 64  ---> [193]DRESS 64"
1040 PRINT"2.) [193]DRESS 64 ---> [196]ATEI 64"
1045 PRINT"3.) [196]ATEI 64   LADEN"
1047 PRINT"4.) [193]DRESS 64  LADEN"
1050 PRINT"[215]AEHLEN [211]IE DIE [213]MWANDLUNGSRICHTUNG:[164][157]";
1060 GETE$:IFE$<"1"ORE$>"4"THENGOTO1060
1070 PRINTE$
1100 ONVAL(E$)GOTO2000,3000,5000,6000
2000 REM DATEI  --> ADRESS
2010 INPUT"[215]IE HEISST DAS [209]UELLEN-[198]ILE ";QF$
2020 OPEN1,8,3,QF$+",S,R"
2030 OPEN2,8,4,"@:[206]AME [204]IST,S,W"
2040 INPUT#1,NA$,D$,ANZAHL
2045 PRINT" "NA$,D$,ANZ
2050 PRINT#2,D$
2060 FORA=0TOANZAHL
2070 : FORB=0TO4
2075 :   INPUT#1,X$(B):IFX$(B)=" "THEN           X$(B)="-"
2080 : NEXTB
2090 : FORC=1TOLEN(X$(0))-1
2100 :   IFMID$(X$(0),C,1)=";"THEN2120
2110 : NEXTC:NA$=X$(0):VO$="-":GOTO2130
2120 : NA$=LEFT$(X$(0),C-1):VO$=MID$(          X$(0),C+1)
2130 : PRINT#2,NACH$
2140 : PRINT#2,VO$
2150 : PRINT#2,"-"
2160 : PRINT#2,"-"
2170 : PRINT#2,"-"
2180 : PRINT#2,X$(1)
2190 : PRINT#2,X$(2)
2200 : PRINT#2,"-"
2210 : PRINT#2,X$(3)
2220 : PRINT#2,"-"
2225 : PRINT#2,"\"
2230 NEXTA
2300 CLOSE2:CLOSE1
2310 GOTO20
3000 REM ADRESS --> DATEI
3006 OPEN2,8,4,"[206]AME [204]IST,S,R"
3007 INPUT#2,D$
3010 INPUT"[215]IE SOLL DAS [193]BLAGE-[198]ILE HEISSEN";AF$
3015 OPEN1,8,3,"@0:"+AF$+",S,W"
3020 FORS=0TO200
3030 : FORX=1TO11
3040 :  GOSUB4000
3050 :  ONXGOTO3060,3070,3200,3200,3200,        3075,3080,3100,3090,3100,3200
3055 :  GOTO3100
3060 :  XF$(S,0)=X$:GOTO3200
3070 :  IFX$<>"-"THENXF$(S,0)=XF$(S,0)+         ";"+X$
3072 :  GOTO3200
3075 :  XF$(S,1)=X$:GOTO3200
3080 :  XF$(S,2)=X$:GOTO3200
3090 :  XF$(S,3)=X$:GOTO3200
3100 :  XF$(S,4)=" "
3200 : IFST=0THENNEXTX
3210 IFST=0THENNEXTS
3300 PRINT#1,AF$:PRINT#1,D$:PRINT#1,S
3310 FORA=0TOS
3320 : FORB=0TO4
3330 :  PRINT#1,XF$(A,B)
3340 : NEXTB
3350 NEXTA
3400 CLOSE1:CLOSE2:GOTO20
4000 X$=""
4010 GET#2,XY$:IFST=0ANDXY$<>CHR$(13)        THENX$=X$+XY$:GOTO4010
4020 RETURN
5000 LOAD"DATEI*",8
6000 LOAD"ADRESS*",8
9000 OPEN15,8,15
9010 INPUT#15,EN,EM$,ET,ES:PRINTEN,EM$,ES,ET:CLOSE15:RETURN