BYTE FILLIN(90)                                                     00001
      INTEGER*2 IFN1,IFN2                                                 00002
      BYTE RECBUF(514),TEXT(85,3)                                         00003
      EQUIVALENCE (RECBUF(1),TEXT(1,1)),(IFN1,RECBUF(511))                00004
      EQUIVALENCE (IFN2,RECBUF(513))                                      00005
      WRITE (5,1)                                                         00006
1     FORMAT (' ENTER DESIRED FILE NUMBER,I2 ')                           00007
      READ (5,2)IFN1                                                      00008
2     FORMAT(I2)                                                          00009
      IFN2=IFN1                                                           00010
      IF (IFN1.LT.0) IFN1=0                                               00011
      IF(.NOT.(IFN1.GT.0)) GO TO 32759                                    00012
      DO 32758 N=1,IFN1                                                   00013
      CALL MSKIPF(1)                                                      00014
32758 CONTINUE                                                            00015
32759 IF(.NOT.(IFN2.LT.0)) GO TO 32757                                    00017
      WRITE(5,3)                                                          00018
3     FORMAT(' ENTER DESIRED FILE NO., NO POS.')                          00019
      READ(5,2)IFN1                                                       00020
32757 IFN2=IFN1                                                           00022
      IREC=01                                                             00023
      WRITE(5,5)                                                          00024
5     FORMAT(' ENTER FILENAME TO DUMP ')                                  00025
      CALL GETCML(FILLIN,3HGCD,MCRSZ)                                     00026
      CALL ASSIGN(1,FILLIN,MCRSZ)                                         00027
      CALL FDBSET(1,'READONLY','SHARE')                                   00028
      DO 32756 IJK=1,32700                                                00029
      READ(1,6,ERR=999,END=999)(TEXT(NN,IREC),NN=1,80)                    00030
6     FORMAT(80A1)                                                        00031
      TEXT(81,IREC)=13                                                    00032
      DO 32755 NN=82,85                                                   00033
      TEXT(NN,IREC)=0                                                     00034
32755 CONTINUE                                                            00035
      IREC=IREC+1                                                         00036
      IF(.NOT.(IREC.GT.6)) GO TO 32754                                    00037
      IREC=1                                                              00038
      IFN1=IFN2                                                           00039
      CALL MWRITE(RECBUF,514,IERR)                                        00040
      DO 32753 NM=1,510                                                   00041
      RECBUF(NM)=0                                                        00042
32753 CONTINUE                                                            00043
32754 CONTINUE                                                            00045
32756 CONTINUE                                                            00045
999   CONTINUE                                                            00046
      CALL MWRITE(RECBUF,514,IERR)                                        00047
      CALL MEOF(1)                                                        00048
      CALL MEOF(1)                                                        00049
      CALL MSKIPR(-1)                                                     00050
      CALL EXIT                                                           00051
      END                                                                 00052