Google
 

Trailing-Edge - PDP-10 Archives - -
There are no other files named in the archive.
C	TITLE L O D P T F
C		SETS UP INITIAL POINTER FILE PARAMETERS
C			ONLY POINTER FILE AND MASTER FILES ARE CREATED
	INTEGER ANSWER
      DIMENSION IB(10)
      DIMENSION IPAR(10)
      COMMON IPAR
      DO 3 J=1,10
3     IB(J)=0
	IB(1)=ANSWER('POINTER FILE NAME?')
	IB(4)=NANSWR('POINTER FILE LENGTH?')
	MAXR=IB(4)
	IB(2)=1
	IB(3)=3
	IB(5)=1
	IB(6)=1
	IB(9)=1
	CALL DIO(1,0,IB,1)
	IB(4)=NANSWR('NUMBER OF SECTORS IN PACK?')
	IB(2)=MAXR+1
	IB(3)=IB(2)
	IB(6)=IB(2)
	IB(9)=2
4	CONTINUE
2	IB(1)=0
	CALL DIO(2,0,IB,1)
	CALL DIO(2,2,IB,1)
	CALL EXIT
	END