PARM &
  AUTO="", LIST="", DICT="", INFO="", VERS="", &
  CC="", OWNER="", PROCLOC="", SEARCH="", &
  SHIFT="", STATS="", MODULELOC="", PRI="DS", &
  TERM="", LINEREAD="NO", READ="", XL="", &
  BLOCKMODE="", CONFIRMER="NO", DEBUG="NO"

##  QUICK.XEQ - RUNS POWERHOUSE COMPILED SCREEN FILES
##  TIM ERICSON - BASED ON VERSION FOUND IN PHNMUDC

SETJCW CIERROR 0
CONTINUE
PHSET !VERS
IF CIERROR = 0
  SETVAR PHINFO,"!INFO"
  IF "!TERM" <> ""
    SETVAR PHINFO,PHINFO+" TERM=!TERM"
  ENDIF
  IF UPS("!LINEREAD") <> "NO" &
  OR (HPINTERACTIVE AND NOT HPTYPEAHEAD)
    SETVAR PHINFO,PHINFO+" READ=LINE"
  ELSEIF ( UPS("!READ") = "LINE")
    SETVAR PHINFO,PHINFO+" READ=LINE"
  ELSEIF ( UPS("!READ") = "CHAR")
    SETVAR PHINFO,PHINFO+" READ=CHAR"
  ENDIF
  IF "!BLOCKMODE" <> ""
    SETVAR PHINFO,PHINFO+" BLOCKMODE=!BLOCKMODE"
  ENDIF
  IF UPS("!CONFIRMER") <> "NO"
    SETVAR PHINFO,PHINFO+" CONFIRMER"
  ENDIF
  IF UPS("!DEBUG") <> "NO"
    SETVAR PHINFO,PHINFO+" DEBUG=!DEBUG"
  ENDIF
  CONTINUE
  PHRUN QUICK, !VERS, &
    "!PHINFO", !AUTO, !CC, !DICT, !LIST, &
    !OWNER, !PROCLOC, !SEARCH, !SHIFT, &
    !STATS, !XL, !MODULELOC, !PRI
  IF BOUND(PHINFO)
    DELETEVAR PHINFO
  ENDIF
ENDIF
PHRESET