LOGICAL*1 TSKNAM(9),LDANAM(6),TSKEXT(5),LDAEXT(5)
	INTEGER TSKLAB(256),COMD(16)
	DATA TSKEXT/'.','T','S','K',0/,LDAEXT/'.','L','D','A',0/
	WRITE(5,100)
100	FORMAT('$TASK NAME=')
	READ(5,200) J,TSKNAM
200	FORMAT(Q,9A1)
	DO 10 I=1,5
10	TSKNAM(I+J)=TSKEXT(I)
	WRITE(5,300)
300	FORMAT('$LDA NAME=')
	READ(5,301) J,LDANAM
301	FORMAT(Q,6A1)
	DO 20 I=1,5
20	LDANAM(I+J)=LDAEXT(I)
	OPEN(UNIT=1,NAME=TSKNAM,TYPE='OLD')
	OPEN(UNIT=2,NAME=LDANAM,TYPE='NEW')
	READ(1,600) TSKLAB
600	FORMAT(4(64A2))
C BLOCK LOAD POINT
	COMD(1)=TSKLAB(5)
C A CONSTANT
	COMD(2)=12*256+1
C PROGRAM LOAD POINT
	COMD(3)=TSKLAB(5)
C PROGRAM SIZE IN BYTES
	COMD(4)=TSKLAB(8)*64
C PROGRAM TRANSFER ADDRESS
	COMD(5)=TSKLAB(167)
C ODT TRANSFER ADDRESS
	COMD(6)=1
C FIRST BLOCK OF CORE IMAGE
	COMD(7)=0
C PROGRAM NAME
	COMD(8)=TSKLAB(1)
	COMD(9)=TSKLAB(2)
C IDENT
	COMD(10)=0
	COMD(11)=0
C TIME OF CREATION
	COMD(12)=0
	COMD(13)=0
C DATE OF CREATION
	COMD(14)=0
C NUMBER OF EMTS
	COMD(15)=2
C END OC COMD FLAG
	COMD(16)=0
	WRITE(2,500) COMD
500	FORMAT(16A2)
C READ TO PAST HEADER
	J=TSKLAB(170)
	DO 50 I=1,J
50	READ(1,600) TSKLAB
C COPY TASK IMAGE
60	READ(1,600,END=99) TSKLAB
	WRITE(2,601) TSKLAB
601	FORMAT(4(64A2))
	GO TO 60
99	STOP
	END