'****************************************************************************
'
'   einfache ASCII-Datei auf Bildschirm ausgeben in PowerBASIC 3.0/3.2
'
'   entwickelt von / developed by   :  Thomas Gohel
'
'                           Fido    :  Thomas Gohel@2:2410/330.1
'                           InterNet:  author@pbsound.snafu.de
'                           Homepage:  http://www.snafu.de/~pbsound/
'
'****************************************************************************


$COMPILE EXE                               'als EXE compilieren
DIM Text$(6000)                            :'max 6000 Zeilen

Datei$ = "C:\AUTOEXEC.BAT"                 :'Beispieldatei
Handle% = FREEFILE                         :'frei Kanalnummer holen

OPEN Datei$ FOR INPUT AS Handle%           :'Datei ”ffnen
     i% = 1                                :'Zeiger auf erste Textzeile
     DO WHILE NOT EOF(Handle%)             :'bis Dateiende lesen
         LINE INPUT #Handle%, Text$(i%)    :'in String einsortieren
         PRINT Text$(i%)                   :'auf Bildschirm ausgeben
         INCR i%                           :'Zeiger um 1 erh”hen
     LOOP                                  :'Schleifenende
CLOSE Handle%                              :'Datei schliessen
END