Trailing-Edge
-
PDP-10 Archives
-
-
There are no other files named in the archive.
C TITLE D L T 2 N D
C GET RID OF SECOND OF TWO CONSECUTIVE RECORDS WITH SAME ID
DIMENSION IB(260),B(260),IPAR(10),IFRMAT(3,20)
COMMON IDF,LFR,NAVR,MAXR,NSPR,LSR,LFMT,NCPR,LPFR,C1
COMMON IFRMAT
EQUIVALENCE (IB(1),B(1)),(IPAR(1),IDF)
TYPE 100
100 FORMAT(1X,'THIS PROGRAM DELETES THE SECOND RECORD OF TWO WITH
1/' IDENTICAL ID NUMBERS'/1X,'TYPE FILE ID'/)
ACCEPT 105,IDFILE
105 FORMAT(A5)
CALL SLECTF(IDFILE)
TYPE 106
106 FORMAT(1X,'INPUT ID # FROM TTY ^Z WHEN THROUGH'/)
6 READ(5, 101)IDR
101 FORMAT(I)
IF(EOFC(5))GO TO 7
LSR=LFR
IF(IFIND(IDR,0,0)) 2,3,2
2 LSR=LSR+NSPR
CALL READR(IB)
IF(IDR-IB(1)) 4,5,4
5 CALL DELETR(IDR,IB)
8 GO TO 6
7 CALL SAVEF
CALL EXIT
3 TYPE 200,IDR
200 FORMAT(I10,11HNOT ON DISK)
GO TO 8
4 TYPE 201,IDR
201 FORMAT(1X,6HSECOND,1X,I10,1X,11HNOT ON DISK)
GO TO 8
END