CLS
PRINT " Prg.Name: SEQAPP.BAS"
PRINT " Autor: Stephanie Heinrich"
PRINT " Datum: 17.02.03"
PRINT
PRINT " Die Datei TEST.TXT wird ge”ffnet und so lange  neue Texte"
PRINT " angeh„ngt, bis das Programm mit Esc beendet wird."
PRINT
i% = 0
DO
  OPEN "TEST.TXT" FOR APPEND AS #1
  PRINT "Gib einen Text zum Anhaengen an TEST.TXT ein"
  INPUT ; text$
  PRINT #1, text$                'Text an die Datei anhaengen
  i% = i% + 1
  CLOSE #1
  PRINT
  PRINT " ...Wiederholen mit beliebiger Taste ...Abbruch mit Esc"
  t$ = INPUT$(1)                 'Ein Zeichen von der Tastatur einlesen
  IF t$ = CHR$(27) THEN EXIT DO  'Bei Esc die Schleife verlassen
LOOP
PRINT
PRINT "Es wurden "; i%; "Textzeilen an TEST.TXT angehaengt"
END