PARM FILE,START=1,PAGE=3200
##  L.XEQ - LIST FILE NONSTOP
##  ABRAHAM ZWYGART
IF NUMERIC("!FILE") THEN
  IF NOT FINFO("O!FILE.OUT.HPSPOOL",0) THEN
    ECHO NONEXISTENT PERMANENT FILE: O!FILE.OUT.HPSPOOL
    RETURN
  ENDIF
  PRINT O!FILE.OUT.HPSPOOL;START=!START;PAGE=!PAGE
  RETURN
ELSE
  IF ( LFT("!FILE",1)="O" AND  &
     NUMERIC(RHT("!FILE",LEN("!FILE")-1)) ) THEN
    IF NOT FINFO("!FILE.OUT.HPSPOOL",0) THEN
      ECHO NONEXISTENT PERMANENT FILE: !FILE.OUT.HPSPOOL
      RETURN
    ENDIF
    PRINT !FILE.OUT.HPSPOOL;START=!START;PAGE=!PAGE
  ELSE
    IF NOT FINFO("!FILE",0) THEN
      ECHO NONEXISTENT PERMANENT FILE: !FILE
      RETURN
    ENDIF
    PRINT !FILE;START=!START;PAGE=!PAGE
  ENDIF
ENDIF