Google
 

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********************************************************