29 lines
743 B
Plaintext
29 lines
743 B
Plaintext
|
* 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
|