OUTPUT('LIST','LIST')
LOOP      FILE = TRIM(IN())
          IDENT(FILE)                   /S(END)
          DETACH('INPUT')
          INPUT('INPUT',FILE,160)
PAGE      LIST = '1' '**********         ' FILE '           ***********'
          LIST = 
          COUNT = 52
AT        LIST = ' ' TRIM(INPUT)        /F(LOOP)
          COUNT = GE(COUNT,0) COUNT - 1 /S(AT)F(PAGE)
END