EXTERNALROUTINE  DUMPARCH(STRING (255)USER)
EXTERNALINTEGERFNSPEC  DCONNECT(STRING (6)USER, STRING (11)FILE,
      INTEGER  FSYS, MODE, APF, INTEGERNAME  SEG, GAP)
SYSTEMROUTINESPEC  DUMP(INTEGER  A, B)
EXTERNALROUTINESPEC  CLEAR(STRING (255)S)
EXTERNALROUTINESPEC  DEFINE(STRING (255)S)
INCLUDE  "PD17S_NEWINDEXES"
INTEGER  J, FSYS, SEG, GAP, AFINDAD
RECORD (FF)NAME  AF
      FSYS = 2
      SEG = 0
      GAP = 0
      J = DCONNECT(USER, "#ARCH", FSYS, 11, 0, SEG, GAP)
      IF  J = 0 OR  J = 34 START 
         DEFINE("61,T#OUT,1023")
         SELECT OUTPUT(61)
         AFINDAD = SEG << 18
         AF == RECORD(AFINDAD)
         DUMP(AFINDAD, AFINDAD + AF_SIZE << 9 - 4)
         SELECT OUTPUT(0)
         CLOSE STREAM(61)
         CLEAR("61")
         PRINTSTRING("T#OUT written")
      FINISH 
END 
ENDOFFILE