DIM Zeile AS STRING
DIM zeilennNr AS LONG
 
OPEN "DATEI.TXT" FOR INPUT AS #1 'textdatei öffnen
OPEN "Neudatei.TXT" FOR outPUT AS #2
 
zeilenNr = 1
 
WHILE not EOF( 1 )
   LINE INPUT #1, Zeile 'Text zeilenweise einlesen
 
   IF ZeilenNr = 13 THEN 'in Zeile 13 soll die neue Zeile eingefügt werden
 
      PRINT #2, "Diese zeile wird eingefügt"
      PRINT #2, Zeile  ' alte Zeile 13, jetzt auf Position 14
   ELSE
      PRINT #2, Zeile
   END IF
 
   zeilenNr = zeilenNr + 1
 
WEND
 
CLOSE 'alle textdateien wieder schliessen