00100	
00200	REQUIRE "ALLCMS.REL" LOAD!MODULE;
00500	DEFINE PACIFY(I,J) = "IF (I MOD J) = 0 THEN PRINT(I,"" "")";
00600	
00700	COMMENT THIS ONE KEEPS YOU POSTED ON PROGRESS;
00800	DEFINE ROWCHK(QUANT,CNTR,NUM) = "IF (CNTR MOD NUM)=0 THEN PRINT("" ""&QUANT)";
00900	
01000	EXTERNAL BOOLEAN CHKROW;
01100	EXTERNAL SIMPLE PROCEDURE GETBUF(INTEGER ROWS,COLMS,BYTSZ,BUFNO);
01200	EXTERNAL SIMPLE INTEGER PROCEDURE FNDBUF(INTEGER SWITCH(0));
01300	EXTERNAL SIMPLE PROCEDURE FREBUF(INTEGER BUFNO);
01400	EXTERNAL SIMPLE INTEGER PROCEDURE USEBUF(INTEGER BUFNO);
01500	EXTERNAL SIMPLE PROCEDURE INDUMP(STRING DEV,FILNAM;INTEGER BUFNO; REFERENCE INTEGER EOF);
01600	EXTERNAL SIMPLE PROCEDURE OUTDMP(STRING DEV,FILNAM;
01700	                         INTEGER BUFNO; REFERENCE INTEGER EOF);
01800	EXTERNAL SIMPLE INTEGER PROCEDURE GETPNT(INTEGER I,J,BUFNO);
01900	EXTERNAL SIMPLE PROCEDURE PUTPNT(INTEGER I,J,VAL,BUFNO);
02000	EXTERNAL SIMPLE INTEGER PROCEDURE INPTR(INTEGER ROW,COLM,BUFNO);
02100	EXTERNAL SIMPLE INTEGER PROCEDURE OUTPTR(INTEGER ROW,COLM,BUFNO);
02200	
02300	EXTERNAL SIMPLE INTEGER PROCEDURE ROWS(INTEGER BUFNO);
02400	EXTERNAL SIMPLE INTEGER PROCEDURE COLMS(INTEGER BUFNO);
02500	EXTERNAL SIMPLE INTEGER PROCEDURE BYTSZ(INTEGER BUFNO);
02600	EXTERNAL SIMPLE INTEGER PROCEDURE PAKCOL(INTEGER BUFNO);
02700	EXTERNAL SIMPLE INTEGER PROCEDURE BUFSZ(INTEGER BUFNO);
02800	EXTERNAL SIMPLE INTEGER PROCEDURE BUFST(INTEGER BUFNO);
02900	EXTERNAL SIMPLE INTEGER PROCEDURE THRHLD(INTEGER BUFNO);
03000	EXTERNAL SIMPLE INTEGER PROCEDURE SUPFAC(INTEGER BUFNO);
03100	EXTERNAL SIMPLE INTEGER PROCEDURE ISUBST(INTEGER BUFNO);
03200	EXTERNAL SIMPLE INTEGER PROCEDURE JSUBST(INTEGER BUFNO);
03300	EXTERNAL SIMPLE REAL PROCEDURE DMEAN(INTEGER BUFNO);
03400	EXTERNAL SIMPLE REAL PROCEDURE DSTDEV(INTEGER BUFNO);
03500	
03600	EXTERNAL SIMPLE PROCEDURE BUFINIT;
03700	EXTERNAL SIMPLE PROCEDURE BUFBLT(INTEGER INBUF,OUTBUF);
03800	EXTERNAL SIMPLE PROCEDURE COPY(INTEGER INBUF,OUTBUF);
03900	EXTERNAL SIMPLE PROCEDURE ZROBUF(INTEGER BUFNO);
04000	EXTERNAL SIMPLE PROCEDURE PUTSUB(INTEGER STARTI,STARTJ,BUFNO);
04100	EXTERNAL SIMPLE PROCEDURE PUTTHR(INTEGER THRSHLD,BUFNO);
04200	EXTERNAL SIMPLE PROCEDURE PUTSUP(INTEGER SUPLEVEL,BUFNO);
04300	EXTERNAL SIMPLE PROCEDURE PUTMEN(REAL MEAN; INTEGER BUFNO);
04400	EXTERNAL SIMPLE PROCEDURE PUTDEV(REAL STDEV; INTEGER BUFNO);
04500	EXTERNAL SIMPLE PROCEDURE PAGSET(INTEGER PAGES);
04600	EXTERNAL SIMPLE PROCEDURE DATRAN(STRING INFIL,OUTFIL; INTEGER ROWS,COLMS,BYTSIZ);
04700	
04800	EXTERNAL SIMPLE PROCEDURE NEWS(INTEGER SWIT);
04900	EXTERNAL SIMPLE INTEGER PROCEDURE CORSIZ;
05000	EXTERNAL SIMPLE INTEGER PROCEDURE NUMJBS;
05100	
05200	
05300	
05400	
05600	COMMENT THIS IS UNTILS.DCL
05700	
05800	COMMENT SOME UTILITY PROGRAMS;
05900	
06000	
06100	
06200	
06300	EXTERNAL SIMPLE STRING PROCEDURE NAMFIL(STRING FILNAM);
06400	EXTERNAL SIMPLE STRING PROCEDURE GETDEV(REFERENCE STRING PICNAM; 
06500	                                        STRING DEFAULT!EXT);
06600	EXTERNAL SIMPLE PROCEDURE IPRMPT(STRING MSG; REFERENCE INTEGER VAL);
06700	EXTERNAL SIMPLE PROCEDURE RPRMPT(STRING MSG; REFERENCE REAL VAL);
06800	EXTERNAL SIMPLE PROCEDURE SPRMPT(STRING MSG; REFERENCE STRING VAL);
06900	EXTERNAL SIMPLE PROCEDURE BPRMPT(STRING MSG; REFERENCE INTEGER VAL);
07000	EXTERNAL SIMPLE PROCEDURE TPRMPT(STRING MSG; REFERENCE INTEGER VAL);
07100	
07200	
07300