'File-Viewer, brauchbare Version

DEFINT A-T

COLOR 15, 1
CLS

PRINT "Dateiname";                'Name der Datei abfragen
COLOR 14
PRINT "? ";
LINE INPUT Datei$

OPEN Datei$ FOR INPUT AS 1        'Datei ”ffnen

CLS
COLOR 15

'Zeilen einlesen und anzeigen  
Zaehler = 0
DO UNTIL EOF(1)                   'Wenn kein Vergleichoperator vorhanden ist,
 LINE INPUT #1, Zeile$            'wird automatisch > 0 erg„nzt!
 PRINT Zeile$
 Zaehler = Zaehler + 1
 IF Zaehler = 20 THEN
  a$ = INPUT$(1)
  CLS
  Zaehler = 0
 END IF
LOOP

CLOSE 1                           'Datei schlieáen