* CMSD.TYPE30.FIX
* 2/19/96
* from the list TYPE.30.FILES, convert file to type 18 (from type 30)
*
EXECUTE \GET-LIST TYPE.30.FILES\
EOL=0
DEBUG
LOOP
  READNEXT FILENAME ELSE EOL=1
UNTIL EOL DO
  OPEN 'TEMP.HOLD' TO TEMP.HOLD ELSE
    EXECUTE \CREATE-FILE TEMP.HOLD 1,1 1,1\
    OPEN 'TEMP.HOLD' TO TEMP.HOLD ELSE ABORT
  END
  EXECUTE \CLEAR-FILE TEMP.HOLD\
  DATA \(DICT TEMP.HOLD\
  EXECUTE \COPY DICT \:FILENAME:\ * (OI\
  DATA \(TEMP.HOLD\
  EXECUTE \COPY \:FILENAME:\ * (OI\
  EXECUTE \DELETE-FILE \:FILENAME
  CRT "Modulo for ":FILENAME:":":
  INPUT MODULO
  EXECUTE \CREATE-FILE \:FILENAME:\ 1,1 \:MODULO:\,4\
  DATA \(DICT \:FILENAME
  EXECUTE \COPY DICT TEMP.HOLD * (ODI\
  DATA \(\:FILENAME
  EXECUTE \COPY TEMP.HOLD * (ODI\
REPEAT