PARM FILESET="@.@",MODE=2,DEV="TERM",PRI=8,COP=1
##  LT.XEQ - LISTFILE SHORT CUT - TEMP FILES ONLY
##  TIM ERICSON
SETVAR DEVICE,"!DEV"
IF DEVICE = "TERM" THEN
  SHOWTIME
  LISTFILE !FILESET;TEMP;FORMAT=!MODE
ELSE
  IF DEVICE = "DISC" THEN
    IF FINFO("LISTFTMP",0) THEN
      ECHO FILE "LISTFTMP" ALREADY EXISTS -
      ECHO CHECK ITS CONTENTS AND PURGE IT TO CONTINUE.
      RETURN
    ENDIF
    FILE LISTFTMP,NEW;REC=-80,16,F,ASCII;DEV=DISC;SAVE;NOCCTL
    LISTFILE !FILESET;TEMP;FORMAT=!MODE > *LISTFTMP
  ELSE
    FILE LISTFTMP;DEV=!DEV,!PRI,!COP
    LISTFILE !FILESET;TEMP;FORMAT=!MODE > *LISTFTMP
  ENDIF
  RESET LISTFTMP
ENDIF