Google
 

Trailing-Edge - PDP-10 Archives - -
There are no other files named in the archive.
C	TITLE C P Y P A K
C		COPIES PART OF ONE PACK TO ANOTHER
C		USEFULL TO INCREASE SIZE OF PACK
C		ALSO TO FIX UP MESS(HARDWARE - SOFTWARE) THAT 
C		MAY OCCUR
	DIMENSION IB(120)
2	TYPE 100
100	FORMAT(1X,'INPUT FIRST AND LAST SECTOR NUMBERS TO COPY'/)
	ACCEPT 101,LF,LAST
101	FORMAT(2I)
	DO 1  LR=LF,LAST
	CALL DIO(LR,1,IB,1)
	CALL DIO(LR+1000000,0,IB,1)
1	CONTINUE
	CALL DIO(1000000,1,IB,1)
	GO TO 2
	END