   10  CLEAR 10000 : DIM F$(90) : POKE 30862,73 : POKE 30863,0 : CLS : GOTO 29
   11  OPEN"12345678",0 : T = 1
   12  IN#"12345678",F$(T)
   13  IF F$(T) = "",18 : ELSE T = T + 1 : GOTO 12
   14  OPEN"12345678",1 : T = 1
   15  PR#"12345678",F$(T)
   16  IF F$(T) = "",18 : ELSE T = T + 1 : GOTO 15
   17  ERA"12345678" : RETURN 
   18  CLOSE"12345678" : RETURN 
   19  QM = INP (4) : FOR K = 1 TO 8
   20  POKE 31517 + K, ASC ( MID$ (A$,K,1)) : POKE 31541 + K, ASC ( MID$ (A$,K,1))
   21  POKE 31594 + K, ASC ( MID$ (A$,K,1)) : POKE 31618 + K, ASC ( MID$ (A$,K,1))
   22  POKE 31670 + K, ASC ( MID$ (A$,K,1)) : POKE 31692 + K, ASC ( MID$ (A$,K,1))
   23  NEXT : RETURN 
   29  PRINT "" : PRINT 
   30  PRINT "       (1)DATEN LESEN"
   40  PRINT "       (2)SORTIEREN"
   50  PRINT "       (3)SCHREIBEN"
   60  PRINT "       (4)AUSGEBEN"
   63  PRINT "       (5)SPEICHERN"
   65  PRINT "       (6)DIR"
   70  PRINT "       (7)ENDE
   71  PRINT : PRINT 
   72  PRINT "    DATEINAMEN=8 ZEICHEN!"
   75  GOSUB 1000
   80  X = USR (0) : X$ = INKEY$ : IF VAL (X$) < 1 OR VAL (X$) > 7, RUN 
   90  IF X$ = "1", GOSUB 100
   91  IF X$ = "2", PRINT : PRINT "      ES WIRD SORTIERT" : GOSUB 200
   92  IF X$ = "3", GOSUB 300
   93  IF X$ = "4", GOSUB 400
   94  IF X$ = "6", CLS : DIR : X = USR (0)
   95  IF X$ = "7", CLS : END 
   96  IF X$ = "5", GOSUB 800
   99  CLS : GOTO 29
  100  CLS : PRINT TAB( 13)"" : PRINT : PRINT 
  110  INPUT "    DATEINAME ";A$ : IF LEN (A$) < > 8,100
  120  GOSUB 19 : GOSUB 11 : RETURN 
  200  FOR M = 1 TO T - 2 : FOR N = M + 1 TO T - 1
  210  IF F$(M) > F$(N),H$ = F$(M) : F$(M) = F$(N) : F$(N) = H$
  220  NEXT N,M : RETURN 
  300  CLS : PRINT "    " : PRINT : B$ = A$
  301  PRINT " (1) NEUE DATEI EROEFFNEN"
  302  PRINT " (2) VORHANDENE DATEI ERWEITERN"
  303  PRINT " (3) DATEN UEBERSCHREIBEN"
  304  PRINT " (4) QUIT" : X = USR (0) : Y$ = INKEY$ : PRINT 
  305  IF VAL (Y$) < 1 OR VAL (Y$) > 4 THEN 300
  307  IF Y$ = "4", RETURN 
  310  INPUT "     DATEINAME ";A$ : IF LEN (A$) < > 8,300 : ELSE GOSUB 19
  320  IF Y$ = "1", GOTO 500
  330  IF Y$ = "2", GOTO 600
  340  IF Y$ = "3", GOTO 700
  350  RETURN 
  400  CLS : PRINT "" : PRINT 
  410  PRINT : PRINT : PRINT TAB( 10)"DRUCKER J/N" : L = 0
  420  X = USR (0) : Y$ = INKEY$ : IF Y$ = "J",DR = 1 : ELSE DR = 0
  430  CLS : IF DR = 1,470 : ELSE FOR M = 1 TO T - 1
  435  IF T - 1 < = 0, RETURN 
  440  PRINT M;"--------------------------" : L = L + 1 : PRINT F$(M)
  450  IF L = G, POKE 30862,73 : POKE 30863,0 : X = USR (0) : L = 0 : CLS 
  460  NEXT : X = USR (0) : RETURN 
  470  IF T - 1 < = 1, RETURN : ELSE PRINT @202,"BITTE WARTEN"
  473  FOR M = 1 TO T - 1 : LPRINT F$(M) : LPRINT CHR$ (8); : FOR T = 0 TO 479
  475  IF INP (4) = QM, OUT 14,144 : OUT 13,144 : NEXT : ELSE 475
  480  LPRINT CHR$ (15); : NEXT : LPRINT : RETURN 
  500  INPUT "     WIEVIELE NEUE DATEN";B : PRINT : IF B > 90,300
  510  PRINT " GEBEN SIE DIE ";B;"DATEN EIN" : FOR G = 1 TO B
  520  INPUT F$(G) : PRINT @320,"                                ";
  530  PRINT "                                "; : PRINT @303,B - G
  540  PRINT @320,""; : NEXT : GOSUB 14 : RETURN 
  600  GOSUB 11 : INPUT "     WIEVIELE NEUE DATEN";B : IF B + T - 1 > 90,300
  610  PRINT : PRINT " GEBEN SIE DIE ";B;"DATEN EIN" : FOR G = T TO B + T - 1
  620  INPUT F$(G) : PRINT @320,"                                ";
  630  PRINT "                                "; : PRINT @303,B + T - G - 1
  640  PRINT @320,""; : NEXT : GOSUB 17 : GOSUB 14 : RETURN 
  700  GOSUB 11 : PRINT "     WELCHER DATENSATZ SOLL"
  710  INPUT "UEBERSCHRIEBEN WERDEN (ZAHL)";B : IF B < 1 OR B > T - 1, RETURN 
  715  PRINT F$(B) : INPUT F$(B) : IF F$(B) = "",F$(B) = F$(T - 1) : F$(T - 1) = ""
  740  GOSUB 17 : GOSUB 14 : RETURN 
  800  IF F$(1) = "", RETURN 
  810  CLS : PRINT "    " : PRINT 
  815  INPUT "    DATEINAME ";A$ : IF LEN (A$) < > 8,810 : ELSE GOSUB 19
  820  PRINT "    DATEN SPEICHERN J/N" : X = USR (0) : Y$ = INKEY$ 
  830  IF Y$ < > "J", RETURN 
  840  GOSUB 14 : RETURN 
 1000  G = 5 : REMBEGRENZUNG FEUR BILDS.
 1010  RETURN 

