5 *  *** MLTPUN ***    08/01/72    PAGE- 1
10 * SUBMITTED TO DIALCOM, INC. BY ERIC SCHMIDT    PRINCETON '76
20 * 7/26/72   MULTIPLE PUNCH, PAGENATE + LABEL PROGRAM
30 DIMENSION IBUF(76),IFF(6,50),JF(6),L(25)
40 DATA L,IL/5*1H,5*1H,5*1H,5*1H,5*1H,1H-/
50 WRITE(9,3)
60 CALL DATE(IM,ID,IY)
70 2 FORMAT(2I3)
80 3 FORMAT(/'NO. OF FILES')
90 READ(9,2)INO
100 IF(INO.LT.1)STOPAT LEAST ONE FILE!!
110 IF(INO.GT.50)STOPNO MORE THAN 50 FILES!!!
120 WRITE(9,4)
130 4 FORMAT(/'DEFINE FILES'/)
140 DO 5 J=1,INO
150 READ(9,5)(IFF(I,J),I=1,6)
160 INWRITE(JF,5)(IFF(K,J),K=1,6)
170 CALL DEFINE(5,JF)
180 READ(5,26)IDDDUM
190 REWIND 5
200 5 FORMAT(6A2)
210 CALL DEFINE(5,'IDUMM,')
220 WRITE(9,1)((IFF(J,K),J=1,6),K=1,INO)
230 1 FORMAT(/'THE FILES ARE:'/,50(6A2,/))
240 DO 91 I=1,6
250 91 IF(IFF(I,1).NE.1H )LIM=I
260 WRITE(9,23)(IFF(I,1),I=1,LIM)
270 23 FORMAT(/'ENTER START PAGE #,# OF PAGES TO SKIP IN FILE '6A2)
280 READ(9,2)IP,ISS
290 DO 19 INF=1,INO
300 INWRITE(JF,5)(IFF(J,INF),J=1,6)
310 CALL DEFINE(1,JF)
320 CALL DEFINE(2,'DUMMY,')
330 IF(INF.NE.1)IP=1
340 IF(ISS.LE.0.OR.INF.NE.1)GOTO 7
350 READ(1,26)((IDUM,LLL=1,56),M=1,ISS)
360 26 FORMAT(A2)
370 7 DO 15 LIN=1,56
380 IF(LIN.NE.1)GOTO 9
390 WRITE(2,8)(IL,J=1,70),(JF(J),J=1,3),IM,ID,IY,IP
400 8 FORMAT(///70A1//'*** ',3A2,' ***',
410 + 4X,2(A2,'/'),A2,4X,'PAGE-',I3//)
420 9 READ(1,10)IBUF
430 10 FORMAT(150A1)
440 ISP=1
450 DO 11 I=1,76
460 11 IF(IBUF(I).NE.1H )ISP=I
470 IF(LIN.EQ.5)ISP=MAX0(50,ISP)
480 IF(LIN.EQ.5)WRITE(2,10)L,(IBUF(I),I=1,ISP,L(1)
490 IF(LIN.NE.5)WRITE(2,10)(IBUF(I),I=1,ISP)
500 IF(IEOF(1).EQ.1)GOTO 16
510 15 CONTINUE
520 IP=IP+1
530 GOTO 7
540 16 IF(LIN.EQ.56)GOTO 99
550 LINN=LIN+1
560 DO 17 JJ=LINN,56
570 IF(JJ.EQ.5)WRITE(2,25)L,L(1)
580 25 FORMAT(25A1,50X,A1)
590 IF(JJ.NE.5)WRITE(2,17)
600 17 FORMAT()
610 99 WRITE(2,20)(IL,J=1,70)
620 20 FORMAT(///70A1/////)
630 ENDFILE 2
640 REWIND 2
650 CALL DEFINE(2,'FICT,')
660 CALL PUNCH(JF)
670 19 CONTINUE
680 STOPMPUNCH FINISHED
690 END
700 SUBROUTINE PUNCH(F2)
710 INTEGER C(38,8),F1(12),F2(6),L(150),M(102)
720 DATA ((C(I,J),J=1,8),I=1,38)/1HA,14,2*17,31,3*17,
730 +1HB,30,2*17,30,2*17,30,    1HC,14,17,3*16,17,14,
740 +1HD,30,5*17,30,  1HE,31,2*16,30,2*16,31,
750 +1HF,31,2*16,30,3*16,  1HG,14,17,16,19,2*17,14,
760 +1HH,3*17,31,3*17,  1HI,31,5*4,31,
770 +1HJ,4*1,2*17,14,  1HK,2*17,18,28,18,2*17,
780 +1HL,6*16,31,  1HM,17,2*27,21,3*17,
790 +1HN,17,2*25,21,2*19,17,  1HO,31,5*17,31,
800+ 1HP,30,2*17,30,3*16,  1HQ,14,3*17,21,14,1,
810 +1HR,30,2*17,30,20,18,17,  1HS,15,16,8,4,2,1,30,
820 +1HT,31,6*4,  1HU,6*17,14,  1HV,3*17,3*10,4,
830 +1HW,3*17,21,27,2*17,  1HX,2*17,10,4,10,2*17,
840 +1HY,3*17,14,3*4,  1HZ,31,1,2,4,8,16,31,
850 +1H/,2*1,2,4,8,2*16,  1H*,2*21,14,31,14,2*21,
860 +1H1,4,12,4*4,31,  1H2,14,17,1,2,4,8,31,
870 +1H3,14,17,1,6,1,17,14,  1H4,2,6,10,31,3*2,
880 +1H5,31,2*16,30,2*1,30,  1H6,12,2*16,30,2*17,14,
890 +1H7,15,17,2*1,2,4,8,  1H8,14,2*17,14,2*17,14,
900 +1H9,14,2*17,15,2*1,14,  1H0,14,5*17,14/
910 2 FORMAT(12A1)
920 INREAD(F2,2)F1
930 CALL DEFINE(3,'DUMMY,')
940 DO 3 I=1,150
950 3 L(I)=-32608
960 J=40
970 DO 6 I=1,12
980 DO 5 IC=1,38
990 IF(C(IC,1).NE.F1(I))GO TO 5
1000 DO 4 ID=2,8
1010 L(J)=256*C(IC,ID)-32608
1020 4 J=J+1
1030 5 CONTINUE
1040 6 J=J+2
1050 J=J+20
1060 CALL OPREFX(0)
1070 WRITE(9,8)(L(1),K=1,40)
1080 WRITE(9,8)(L(K),K=1,J)
1090 WRITE(9,8)(L(1),K=1,30)
1100 7 READ(3,8)M
1110 8 FORMAT(25OA1)
1120 LIM=1
1130 DO 9 I=1,102
1140 9 IF(M(I).NE.1H )LIM=1
1150 WRITE(9,8)(M(K),K=1,LIM)
1160 CALL OPREFX(:215)
1170 IF(IEOF(3).NE.1)GO TO 7
1180 WRITE(9,8)(L(1),K=1,30)
1190 ENDFILE 3
1200 REWIND 3
1210 CALL DEFINE(3,'FICT2,')
1220 RETURN
1230 END