Chris,

  Slightly different syntax.  If you tell Quad to start at line 1.000, it
will increment appropriately.  You can use copy or gather for this,
depending on what you want to do with the original file.

:quad
QUAD -- JHK, Quest Software, KWS, Summit Information Systems, September,
1993

/n
  COBOL file (Y/N)? y
/gather <foo> to 1.000
  File unnumbered
  Nbr Rec: 50        Rec Size:   72 Bytes
  File code: 0       File Access: INPUT
  50 lines copied
/l all
  1     STARTUP
  1.001 STREAMS 10
  1.002 JOBFENCE 4
  1.003 LIMIT 1,0
  1.004 DOWN 6
  1.005 comment STARTSPOOL 6
  1.006 comment OUTFENCE 14;LDEV=6
  1.007 OUTFENCE 5;LDEV=205
  1.008 OUTFENCE 5;LDEV=207
  1.009 OUTFENCE 5;LDEV=220
  1.01  OUTFENCE 5;LDEV=204
  1.011 OUTFENCE 5;LDEV=203
  1.012 OUTFENCE 5;LDEV=505
  1.013 OUTFENCE 5;LDEV=215
  1.014 OUTFENCE 10;LDEV=216
  1.015 OUTFENCE 5;LDEV=217
  1.016 OUTFENCE 5;LDEV=218
  1.017 OUTFENCE 5;LDEV=219
  1.018 OUTFENCE 5;LDEV=223
  1.019 OUTFENCE 5;LDEV=224
  1.02  OUTFENCE 5;LDEV=507
  1.021 OUTFENCE 10;LDEV=222
  1.022 OUTFENCE 5;LDEV=500
  1.023 OUTFENCE 5;LDEV=501
  1.024 OUTFENCE 5;LDEV=502
  1.025 OUTFENCE 5;LDEV=503
  1.026 OUTFENCE 5;LDEV=504
  1.027 OUTFENCE 10;LDEV=506
  1.028 HEADOFF 205
  1.029 HEADOFF 207
  1.03  HEADOFF 220
  1.031 HEADOFF 204
  1.032 HEADOFF 505
  1.033 HEADOFF 215
  1.034 HEADOFF 216
  1.035 HEADOFF 217
  1.036 HEADOFF 218
  1.037 HEADOFF 219
  1.038 HEADOFF 222
  1.039 HEADOFF 223
  1.04  HEADOFF 224
  1.041 HEADOFF 500
  1.042 HEADOFF 501
  1.043 HEADOFF 503
  1.044 HEADOFF 203
  1.045 comment TUNE CQ=152,200,50,1000,OSCILLATE
  1.046 comment TUNE DQ=202,254,2000,2000,OSCILLATE
  1.047 comment TUNE EQ=170,232,2000,2000,OSCILLATE
  1.048 JOBSECURITY LOW
  1.049 comment *STREAM JPSMON.PRED.SYS
/e
  OK to clear all changes (Y/N)? y
:

HTH, Bob Rose

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *