'File-Viewer, unbrauchbare Version

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   
DO UNTIL EOF(1)                   'Wenn kein Vergleichoperator vorhanden ist,
 LINE INPUT #1, Zeile$            'wird automatisch > 0 erg„nzt!
 PRINT Zeile$
LOOP

CLOSE 1                           'Datei schlieáen