.TITLE CLNUP CLEANUP FOR COPY PROGRAM ; ; The following programs are used in the RT-11 User and RT-11 ; Programmer self paced instruction courses for RT-11 V4.They are also ; similar to programs used in the Programming with RT-11 series for ; RT-11 V5.0 or later. The name of the files are as specified in the ; self paced course. ; ; The code is supplied as a service as Digital does not supply these ; on diskette. ; Any copyright is the property of Digital Equipment Corporartion ; ; PRTCT: .ASCIZ /PROTECTED OUTPUT FILE ALREADY EXISTS/ .EVEN .MCALL .CLOSE,.SRESET,.PRINT ; CLSCHN:: ;CHANNELS 0 AND 3 .CLOSE #3 ;ARE THE ONLY ONES USED .CLOSE #0 BCC RESET .PRINT #PRTCT ;PROTECTED FILE ERROR PRGCHN:: ;FILES WILL BE PURGED IF ENTERED HERE RESET: .SRESET ;TO DISMISS HANDLERS ;(ALSO DISMISSES Q ELEMENTS) RETURN .END