PARM DEV="TERM",PRI=8,COP=1
##  LQ.XEQ - LISTEQ SHORT CUT
##  TIM ERICSON
SETVAR DEVICE,"!DEV"
IF DEVICE = "TERM" THEN
  SHOWTIME
  LISTEQ
ELSE
  IF DEVICE = "DISC" THEN
    IF FINFO("LISTEQ",0) THEN
      ECHO FILE "LISTEQ" ALREADY EXISTS -
      ECHO CHECK ITS CONTENTS AND PURGE IT TO CONTINUE.
      RETURN
    ENDIF
    FILE LISTEQ,NEW;REC=-80,16,F,ASCII;DEV=DISC;SAVE;NOCCTL
    LISTEQ *LISTEQ
  ELSE
    FILE LISTEQ;DEV=!DEV,!PRI,!COP
    LISTEQ *LISTEQ
  ENDIF
  RESET LISTEQ
ENDIF