Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

HXWEBDONE.CTLY<-1-;A>[email protected]
[email protected]
.ERROR ?
.r scc(check
.error %
.dir scums:gwi
.if (noerror).goto half
.error ?
.DELETE *.SCM
.R FILCOM
<.-Z;I*DSK:.SCM/O/T=MON:L2RI,DSK:1L>
I.R COMPAR
.u0gtq0j
<.-Z;I*DSK:.COR=MON:L2R.-4,.xeI,DSK:gei/NAME:""1RGW1L>
I.R PIP 100K
*SCUMS:GWI=*.SCM ;Weekly filcoms
.R DIP(/REN SCUMS:.CFC/PROT:455=DSK:*.SCM'IFNOT'SCUMS:.CFC
.IF (ERROR) ;OK
;;.R DIP(/DEL *.SCM'IFNOT'SCUMS:.CFC
;;.IF (ERROR) ;OK
HALF::.CHKPNT HALF
.r scc(check
.ERROR %
.DI/I/NOPRDE/NOPRDI DONE.CCL=*.SCM
.IF (ERROR) .GOTO MOST
.ERROR ?
.R TECO
=EBDONE.CCL^[Y<-1-^N;A>^[^[
*<.-Z;.U0S.^[;Q0,.-1XA0LISCUMS:.CFC=^[5RGAL2R-4DI.SCM,SCUMS:.CFC^[4RGA1L
*IDSK:/D=.SCM
=^[6RGA1L>^[EX^[^[
.R PIP 100K
*DONE.CCL@
MOST::.CHKPNT MOST
.ERROR ?
.r scc(check
.PIVOT FFA:
.IF (ERROR) ;
.R DIP(/D BLKK:[1,2]*.COR
.IF (ERROR) ;
.R DIP(/D BLKK:[1,2]*.*'IFAND'DSK:*.*
.IF (ERROR) ;
.R DIP(/D BLKK:[1,2]*.PRV'IFAND'DSK:*.MAC
.IF (ERROR) ;
.PIVOT BASE:
.IF (ERROR) ;
COPY::.CHKPNT COPY
.r scc(check
.R PIP 100K
.U0GTQ0J
<.-Z;.U0S.;Q0,.+3XA0LI*MON:=1RGA1L>
I.COPY MON:TOPL10.GLB=L:TOPS10.GLB
.IF (ERROR) ;
.COPY MON:TOPS10.GLB=S:TOPS10.GLB
.IF (ERROR) ;
CLEAN::.CHKPNT CLEAN
.r scc(check
.DELETE *.MAC,*.SCM,*.CTL,*.AOK,FGEN.HLP,DONE.CCL,DONE.BAK
.IF (ERROR) ;
.R SCC(UNLOCK
.MS S
*TOPS10-Developers
*Francini
*DONE.MIC
*. . . is finally done.
=^Z
.IF (ERROR) ;
EX