203 PRINT :PRINT " Datei-Verwaltung"›211 LINE=1:VBL=7:HBL=1:EXEC SELECT›212 IF K=7 THEN RUN "D:MEN*.*"›214 CLS :ON K GOTO 2001,3001,1001,0,9001›9000 ------------------------------›9001 REM  Δατεξ­Φεςχαμτυξη ›9002 PRINT " Folgende Dateien koennen korrigiert,"›9003 PRINT " erweitert oder neu geschrieben werden:"›9004 PRINT :PRINT " KFZ.DAT":PRINT " ERKLAER.DAT"›9005 PRINT :PRINT " Rueckkehr ins Menue"›9006 POSITION 0,21:PRINT "Achtung, dieser Programmteil benoetigt"›9007 PRINT "         eine RAM-Disk D8:; ggf. Zeile           9304 in ";CHR$(34);"D1:";CHR$(34);" aendern!";›9011 LINE=3:VBL=4:HBL=1:EXEC SELECT›9012 IF K=4 THEN RUN ›9013 DATEI$(4)=TXT$:T=0:EXEC T_LINE›9014 ON K GOTO 9051,9052›9051 MASK$="ΛΖΪ<--Text---------------------------->"›9052 MASK$="<--Text------------------------------->":GOTO 9101›9100 ------------------------------›9101 CLS :TXT$=DATEI$(4):EXEC T_LINE›9102 PRINT "gewaehlte Datei...":PRINT ›9103 PRINT " korrigieren  (Update-Modus)":PRINT " erweitern    (Append-Modus)":PRINT " neu anlegen"›9111 LINE=2:VBL=3:HBL=1:EXEC SELECT›9112 ON K GO# F_UPDATE,F_APPEND,F_NEW›9200 ------------------------------›9201 # F_UPDATE›9202 CLS :PRINT "";›9203 PRINT "|F1|Datensatz nicht aendern            |";›9204 PRINT "|F2|Datensatz aendern                  |";›9205 PRINT "|F3|neuen Datensatz einfuegen          |";›9206 PRINT "|F4|Datensatz loeschen                 |";›9207 PRINT "|F5|schnellen Vorlauf                  |";›9208 PRINT "";:PRINT MASK$›9211 K=0:CLOSE :TRAP 9301›9212 OPEN #1,4,0,DATEI$:OPEN #2,8,0,"D8:DV.DAT"›9221 INPUT #1;DAT$:PRINT DAT$›9222 IF K=5›9223   IF FF>0›9224     POSITION 25,5:PRINT "   "›9225     POSITION 29-LEN(STR$(FF)),5:PRINT FF›9226     FF=FF-1:GOTO 9241›9227   ELSE :K=0:POSITION 22,5:PRINT "              ":ENDIF ›9228 ENDIF ›9231 LINE=1:MAX=5:EXEC FKT_KEY›9232 ON K GOTO 9241,9242,9243,9244,9245›9241 D$=DAT$:GOTO 9261›9242 POKE 84,8:GOTO 9251›9243 POKE 84,8:PRINT CHR$(156);CHR$(157);:GOTO 9251›9244 POKE 84,8:PRINT CHR$(156);CHR$(157);:GOTO 9221›9245 EXEC PL_OFF:POSITION 22,5:PRINT "um  000 Saetze"›9246 LINE=5:POS=28:DIG=3:EXEC IN_DIG›9247 FF=VAL(TXT$)-1:GOTO 9241›9251 POKE 752,0:PRINT CHR$(253);:INPUT #16;D$:POKE 752,1›9261 PRINT #2;D$›9262 POKE 84,8:PRINT CHR$(157);CHR$(157);›9263 IF K=3:PRINT DAT$:GOTO 9231:ENDIF ›9264 GOTO 9221›9300 ------------------------------›9301 T=5:EXEC F_LINE›9302 CLS :PRINT "Korrigierte Datei wird auf Datendiskettegeschrieben."›9303 CLOSE :TRAP 9321›9304 OPEN #1,4,0,"D8:DV.DAT":OPEN #2,8,0,DATEI$›9311 DO ›9312   INPUT #1;DAT$:PRINT #2;DAT$›9313 LOOP ›9321 CLOSE :RUN ›9500 ------------------------------›9501 # F_APPEND›9502 CLS :AUX1=9›9503 POSITION 0,4:PRINT "Die letzten Datensaetze sind:"›9504 CLOSE :OPEN #1,4,0,DATEI$:TRAP 9521›9511 DO ›9512   INPUT #1,DAT$:PRINT DAT$›9513   POKE 84,5:PRINT CHR$(157);›9514 LOOP ›9521 POKE 84,4:PRINT CHR$(156);:POKE 84,0:GOTO 9701›9600 ------------------------------›9601 # F_NEW›9602 PRINT :PRINT "Sicher? Achtung, Datenverlust moeglich!":PRINT ›9603 PRINT " nein":PRINT " ja":PRINT ›9611 LINE=8:VBL=2:EXEC SELECT›9612 ON K GOTO 9621,9631›9621 TXT$="Datei-Verwaltung":EXEC T_LINE:CLS :GO# DV›9631 CLS :AUX1=8›9700 ------------------------------›9701 PRINT "";›9702 PRINT "|F1|weiteren Datensatz eingeben        |";›9703 PRINT "|F2|Eingabe beenden                    |";›9704 PRINT "";:PRINT MASK$›9705 Z=DPEEK(88)+41:CHR=2:EXEC INVERT›9706 CLOSE :OPEN #1,AUX1,0,DATEI$›9711 POKE 752,0:PRINT CHR$(253);:INPUT #16;DAT$:POKE 752,1›9712 PRINT #1;DAT$›9713 POKE 84,5:PRINT CHR$(157);CHR$(157);›9714 LINE=1:MAX=2:EXEC FKT_KEY›9715 ON K GOTO 9711,9721›9721 CLOSE :RUN ›