LOGICAL*1 ESC,LINE(80),CHAR,M(4) INTEGER NM DATA ESC/Z27/ EQUIVALENCE (NM,M(1)) WRITE(6,2000) ESC C 3000 READ(10,2010,END=3010) (LINE(I),I=1,80) M(1) = LINE(1) IF (NM .EQ. -738197504) GO TO 3020 WRITE(6,2011) (LINE(I),I=1,80) GO TO 3000 3010 CONTINUE C WRITE(6,2020) ESC C GO TO 3030 3020 WRITE(6,2020) ESC M(1) = LINE(2) IF (NM .EQ. -687865856) GO TO 3040 WRITE(6,2050) (LINE(I),I=2,72) READ(5,2051) CHAR GO TO 3050 3040 WRITE(6,2040) READ(5,2051) CHAR 3050 WRITE(6,2000) ESC GO TO 3000 3030 CONTINUE C 2000 FORMAT(' ',A1,'.Y') 2010 FORMAT(80A1) 2011 FORMAT(' ',80A1) 2020 FORMAT(' ',A1,'.Z') 2040 FORMAT(' ','*** PAUSE ***') 2050 FORMAT('0',71A1) 2051 FORMAT(A1) STOP END