27 lines
538 B
Plaintext
Executable File
27 lines
538 B
Plaintext
Executable File
* CMSD.TYPE30.FILES
|
|
* 2/19/96
|
|
* determine type 30 files so they can be converted to type 18.
|
|
*
|
|
OPEN 'VOC' TO VOC ELSE ABORT 201,VOC
|
|
EOL=0
|
|
TYPE30.FILES=''
|
|
SELECT VOC
|
|
LOOP
|
|
READNEXT ID ELSE EOL=1
|
|
UNTIL EOL DO
|
|
READ VREC FROM VOC,ID THEN GOSUB 1000
|
|
REPEAT
|
|
OPEN '&SAVEDLISTS&' TO PF ELSE ABORT 201,'PF'
|
|
WRITE TYPE30.FILES ON PF,'TYPE.30.FILES'
|
|
STOP
|
|
*
|
|
1000 *
|
|
IF VREC<1>[1,1] # 'F' THEN RETURN
|
|
OPEN ID TO TEMPFILE ELSE RETURN
|
|
STATUS STATS FROM TEMPFILE THEN
|
|
IF STATS<21>=30 THEN
|
|
TYPE30.FILES=INSERT(TYPE30.FILES,-1;ID)
|
|
END
|
|
END
|
|
RETURN
|