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