Trailing-Edge
-
PDP-10 Archives
-
bb-d857a-sm_dx_tops20_v1_src
-
dx/sources/wp8del.for
There is 1 other file named wp8del.for in the archive. Click here to see a list.
C PACKAGE : DX/TOPS20
C VERSION : V1.0
C OP. SYSTEM : TOPS20 V3.0
C
C PROGRAM : WDEL
C MODULE : WP8DEL.FOR
C MODULE # : 1 OF 2
C EDIT : 003
C EDIT DATE : 17-JUL-78
C
C
C
C**********************************************************************
C
C C O P Y R I G H T
C
C
C COPYRIGHT (C) 1978
C DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS
C
C
C THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A
C SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE
C INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR
C ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE
C MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH
C SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE TO
C AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN
C DIGITAL.
C
C THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT
C NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
C EQUIPMENT CORPORATION.
C
C DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY
C OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL.
C
C**********************************************************************
C
C
C
C E D I T H I S T O R Y
C
C EDIT #000 5/4/78 KENT BLACKETT
C INITIAL IMPLEMENTATION.
C
C EDIT #001 5/5/78 J. COHEN
C INITIAL CHANGE FOR TOPS20 IMPLEMENTATION.
C
C EDIT #002 5/18/78 J. COHEN
C OUTPUT ERROR MESSAGE IF USER ATTEMPTS TO DELETE
C 'DOC001.W11'. ALSO ALLOW FOR DOCNO = 999.
C
C EDIT #003 7/17/78 J. COHEN
C PRINT OUT PROGRAM IDENTIFICATION.
C
C
C********************************************************