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