Trailing-Edge
-
PDP-10 Archives
-
-
There are no other files named in the archive.
C TITLE F I X F L
C DELETS N RECORDS STARTING WITH A SPECIFIED RECORD
DIMENSION IB(500),B(500),IPAR(10),IFRMAT(3,20),IR(500),LIST(19)
COMMON IDF,LFR,NAVR,MAXR,NSPR,LSR,LFMT,NCPR,C1,C2
EQUIVALENCE (IB(1),B(1)),(IPAR(1),IDF),(IB(1),IR(1))
COMMON IFRMAT
TYPE 200
200 FORMAT(1X,'INPUT FILE ID'/)
ACCEPT100,IDFILE
100 FORMAT(A5)
TYPE 201
201 FORMAT(1X,'INPUT RECORD ID TO DELETE AND NUMBER OF RECORDS'/)
TYPE 202
202 FORMAT(1X,'TO DELETE FOLLOWING IT(INCLUDING FIRST ONE)'/)
ACCEPT 300,IDS1,N
300 FORMAT(2I)
CALL SLECTF(IDFILE)
LSR=LFR
IF(IFIND(IDS1,0,0))1,2,1
2 TYPE102
102 FORMAT(9HNOT FOUND)
GO TO 50
1 LST=LSR+(N-1)*NSPR
DO3K2=LSR,LST,NSPR
CALL READR(IB)
TYPE 103,IB(1)
103 FORMAT(1X,I10)
3 CALL RIGHT(1)
PAUSE
CALL SHRNKF(IB,N)
CALL SAVEF
50 CALL EXIT
END