      REM PLW-MAIN
*PIC-LAN
*
*ALL
*PC
*Y
*
*
*
*
      INCLUDE SYS.TYPE.INCLUDE
*
      OPEN 'WWW.CTRL' TO CTRL.FD ELSE CALL PLXX.STOP(201,'WWW.CTRL')
*
      READ D FROM CTRL.FD , 'MIME-TYPES' ELSE CALL PLXX.STOP(202,'MIME-TYPES')
*
      PRINT
      PRINT 'Building WWW.CTRL MIME*... records from WWW.CTRL MIME-TYPES record ...'
*
      I1 = DCOUNT(D,AM)
      FOR I = 1 TO I1
         DD = TRIM(D<I>)
         A1 = FIELD(DD,' ',1)
         A2 = FIELD(DD,' ',2)
         A3 = FIELD(DD,' ',3)
         WRITE OCONV(A3,'MCL') : AM : A1 ON CTRL.FD , 'MIME*' : A2
         PRINT I 'R#3' : ' ' : A2 'L#10' : CR :
      NEXT I
*
      PRINT
   END
