Trailing-Edge
-
PDP-10 Archives
-
k20v7b
-
mfg/spearv2.ctl
There are no other files named spearv2.ctl in the archive.
@ENA
@CONN <UETP.RUN>
@ERROR %
EXP SERR:
DIR SERR:RETRIE.SYS
@IF (NOERROR) @GOTO START
COPY SERR:ERROR.SYS SERR:RETRIE.SYS
START::
@NOERROR %
@SPEAR
*RET
*
*INCLUDED
*ALL
*EARLIEST
*LATEST
*ASCII
*SHORT
*DSK:RETRIE.RPT
*/GO
*RET
*
*INCLUDED
*ALL
*EARLIEST
*LATEST
*BINARY
*SERR:RETRIE.SYS
*SERR:RETRIE.SYS
*/GO
*SUM
*SERR:ERROR.SYS
*ALL
*EARLIEST
*LATEST
*NO
*DSK:SUMMAR.RPT
*/GO
*EXIT
@CHKPNT TYPE::
@PAUSE
@ADVISE OPERATOR
@205
@PUSH
@ENA
@DIR *.RPT
@TYPE DSK:RETRIE.RPT
@TYPE DSK:SUMMAR.RPT
;@DEL DSK:RETRIE.RPT
;@DEL DSK:SUMMAR.RPT
@POP
@
END::
%FIN::