LIBRARY "intuition.library"
LIBRARY "graphics.library"
Rp&=WINDOW(8)
Wp&=WINDOW(7)
sn$="Workbench Screen - File-Lister - © 1989 Christoph Hust - Public Domain"+CHR$(0)
wn$="Wenn die Ausgabe anhält, bitte eine beliebige Taste drücken.            "+CHR$(0)
CALL SetWindowTitles(Wp&,SADD(wn$),SADD(sn$))

CLS
PRINT " ----> AmigaBASIC - File-Lister <----"
PRINT 
WHILE f$=""
  IF f=1 THEN
    CLS
    PRINT "Inhalt"
    PRINT 
    FILES
    PRINT 
    PRINT "Taste !"
    WHILE INKEY$="":WEND
    CLS
  END IF
  LOCATE 3,1
  LINE INPUT "Filename = ";f$
  f=f+1
WEND
IF f$="*" THEN
  CLS
  SYSTEM
END IF
WIDTH 78

CLS
OPEN f$ FOR INPUT AS #1
  WHILE NOT EOF(1)
    LINE INPUT #1,x$
    nl%=nl%+1
    lines=lines+1
    IF nl%=22 THEN
      LOCATE 22,1
      CALL Text(Rp&,SADD(x$),LEN(x$))
      BEEP
      nl%=0
      wn$="File : "+f$+"    Zeile : "+STR$(lines)+CHR$(0)
      CALL SetWindowTitles(Wp&,SADD(wn$),-1)
      WHILE INKEY$=""
      WEND
      CLS
    ELSE
      LOCATE nl%,1
      CALL Text(Rp&,SADD(x$),LEN(x$))
      x$=""
    END IF
  WEND
CLOSE #1
wn$="File : "+f$+"    Zeile : "+STR$(lines)+" (Ende)"+CHR$(0)
CALL SetWindowTitles(Wp&,SADD(wn$),-1)
WHILE INKEY$="":WEND
CLS:SYSTEM