8400 PRINTCHR$(147)LEFT$(LA$,79)
8410 PRINTCHR$(19)CHR$(18)TAB(2)" [196]ATENSATZ EDITIEREN "TAB(23)"[210]ECORD-[206]R.: ";RN
8420 PRINT
8430 PRINTTAB(2)"[206]ACHNAME: ";DS$(1)
8440 PRINTTAB(2)"[214]ORNAME : ";DS$(2)
8450 PRINTTAB(2)"[211]TRASSE : ";DS$(3)
8460 PRINTTAB(2)"[208][204][218]     : ";DS$(4)
8470 PRINTTAB(2)"[215]OHNORT : ";DS$(5)
8480 PRINTTAB(2)"[212]ELEFON : ";DS$(6)
8490 PRINT:PRINTLEFT$(LA$,79)
8500 SP=12: REM EINGABESPALTE BLEIBT GLEICH!
8510 FOR ZL=2 TO 7
8520 GOSUB 7900: REM EINGABE-CURSOR POSITIONIEREN
8540 POKE19,64:INPUTDS$(ZL-1):POKE19,0:PRINT
8550 NEXT ZL
8552 ID$(RN)=DS$(1): IN(RN)=RN
8560 GOSUB 5000: GOSUB 6000
8565 RP=1: GOSUB 2000: GOSUB 7250
8570 RETURN