5  *** SPAGE ***    08/01/72    PAGE - 1
10 * SUBMITTED TO DIALCOM, INC. BY ERIC SCHMIDT, PRINCETON '76
20 * 7/25/72 -- IMPROVED VERSION OF BLIST/
30 DIMENSION IBUF(76),IFF(6,50),JF(6),IOF(6)
40 IL=-21088
50 CALL DATE(IM,ID,IY)
60 WRITE(9,1)
70 1 FORMAT(/'OUTPUT TO FILE OR TTY (TYPE 2 OR 9)')
90 READ(9,2)IOUT
100 2 FORMAT(2I3)
110 IF(OUT.NE.2.AND.IOUT.NE.9)STOPCAN'T YOU READ?
120 IF(IOUT.NE.2)GOTO 22
130 WRITE(9,21)
140 21 FORMAT(/'DEFINE OUTPUT FILE'/)
150 READ(9,5)IOF
160 CALL DEFINE(2,IOF)
170 22 WRITE(9,3)
180 3 FORMAT(/'NO. OF FILES')
190 READ(9,2)INO
200 IF(INO.LT.1)STOPAT LEAST ONE FILE!!
210 IF(INO.GT.50)STOPNO MORE THAN 50 FILES!
220 WRITE(9,4)
230 4 FORMAT(/'DEFINE FILES'/)
240 DO 5 J=1,INO
250 READ(9,5)IFF(I,J),I=1,6)
260 DO 34 K=1,6
270 34 JF(K)=IFF(K,J)
280 CALL DEFINE(5,JF)
290 READ(5,26)IDDUM
300 REWIND 5
310 5 FORMAT(6A2)
320 CALL DEFINE(5,'IDUMMY,')
330 DO 91 I=1,6
340 91 IF(IFF(I,1).NE.1H )ISP=I
350 WRITE(9,23)(IFF(I,1),I=1,ISP)
360 23 FORMAT(/'ENTER START PAGE #,# OF PAGES TO SKIP IN FILE ',6A2)
370 READ(9,2)IP,ISS
380 IF(IP.LT.1)IP=1
390 IF(ISS.LT.0)ISS=0
400 DO 19 INF=1,INO
410 INWRITE(JF,5)(IFF(J,INF),J=1,6)
420 CALL DEFINE(1,JF)
430 IF(INF.NE.1)IP=1
440 IF(ISS.LE.0.OR.INF.NE.1)GOTO 7
450 READ(1,26)(IDUM,LLL=1,56),M=1,ISS)
460 26 FORMAT(A2)
470 7 DO 15 LIN=1,56
480 IF(LIN.NE.1)GOTO 9
490 WRITE(IOUT,8)(IL,J=1,70),(JF(J),J=1,3),IM,ID,IY,IP
500 8 FORMAT(///70A1//'***  ',3A2,'  ***',
510 + 4X,2(A2,'/'),A2,4X,'PAGE-',I3//)
520 9 READ(1,10)IBUF
530 10 FORMAT(100A1)
540 ISP=1
550 DO 11 I=1,76
560 11 IF(IBUF(I).NE.1H )ISP=I
570 IF(LIN.EQ.5)ISP=MAX0(ISP,50)
590 WRITE(IOUT,10)(IBUF(I),I=1,ISP)
600 14 IF (IEOF(1).EQ.1)GOTO 16
610 15 CONTINUE
620 IP=IP+1
630 GOTO 7
640 16 IF(LIN.EQ.56)GOTO 19
650 LINN=LIN+1
660 DO 17 JJ=LINN,56
670 IF(JJ.EQ.5)WRITE(IOUT,25)
680 25 FORMAT(25A1,50X,A1)
690 IF(JJ.NE.5)WRITE(IOUT,17)
700 17 FORMAT()
710 19 CONTINUE
720 WRITE(IOUT,20)(IL,J=1,70)
730 20 FORMAT(///70A1/////)
740 IF(IOUT.EQ.2)STOPPNOW LIST YOUR OUTPUT FILE!!!!!
750 STOPBLIST/ FINISHED
760 END