C TITLE D M P L I N C TYPES A GIVEN SECTOR IN FREE FORMAT COMMON IPAR(10) IPAR(5)=1 DIMENSION IB(120) 20 TYPE 103 103 FORMAT(2X,3HSN? ,/) ACCEPT 102,ISS 102 FORMAT(I) IF(ISS.EQ.0)CALL EXIT CALL DIO(ISS,1,IB,1) CALL DUMPT(IB) GO TO 20 END