Hp3000MpexXeqLx < TWiki

PARM FILESET="@",MODE="LISTFX",DEV="TERM",PRI=8,COP=1

##  LX.XEQ - MPEX LISTF WITH CUSTOM LISTF FILE
##           REQUIRES MPEX AND LISTFX.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

-- ChrisBartram - 09 Jun 2006

Topic Hp3000MpexXeqLx . { Edit | Attach | Backlinks: Web All webs | Printable | History: r1 More }

Parents: WebHome > Hp3000CommandFiles > Hp3000MpexXeqs

Copyright © by the contributing authors. All material on this collaboration platform is the property of the contributing authors.
Ideas, requests, problems regarding TWiki? Send feedback
Note: Please contribute updates to this topic on TWiki.org at TWiki:TWiki.Hp3000MpexXeqLx

	TWiki > TWiki > Hp3000CommandFiles > Hp3000MpexXeqs > Hp3000MpexXeqLx	TWiki webs: Main \| TWiki \| Sandbox
	TWiki . { Welcome \| Register \| Changes \| Topics \| Index \| Search \| Go }