PARM FILESET="@",MODE="DBX",DEV="TERM",PRI=8,COP=1 ## DBX.XEQ - MPEX LISTF WITH CUSTOM LISTF FILE ## REQUIRES MPEX AND DBX.LISTF.VESOFT FILE ## TIM ERICSON SETVAR DEVICE,"!DEV" IF DEVICE = "TERM" THEN RUN MAIN.PUB.VESOFT,MPEX;NOCB;PARM=1;& INFO="LISTF !FILESET,!MODE";PRI=ES 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,NEW;REC=-80,16,F,ASCII;DISC=10000,32,1;SAVE;NOCCTL ELSE FILE LISTF;DEV=!DEV,!PRI,!COP ENDIF RUN MAIN.PUB.VESOFT,MPEX;NOCB;PARM=1;& INFO="LISTF !FILESET,!MODE;*LISTF";PRI=ES RESET LISTF ENDIF