$DEBUG
	SUBROUTINE BTJD(DC,DG,JDZF,ZJD,YDDJ,PWDJ,JCDJ,CHX,DRAW,NZ1,NZ2,
     # RM1,CSI,BF,A0,ALF,NGF,GFL,SX,CG,DIR,MATE,DRAFT,NAME,NUMBER,
     #  SCL,NZL,M1,CONZJD,CSX,CNX,WQ)
	DIMENSION SX(5),ZJD(5,12),RM1(5),NZ1(5),BF(5),NZ2(5),A0(5),
     #	CSI(5),GFL(5),NGF(5),CG(5),ALF(5),CONZJD(14),WJDZ(7)
	INTEGER YDDJ(5),PWDJ(5),JCDJ(5),CZ1,CZ2,CYDDJ,CPWDJ,CJCDJ,
     #  WZ1,WJD,WZ2
	CHARACTER*5 JDZF(5,8),SCAL,NAME
	CHARACTER*8 DRAW(5),TREAT(5),CDRAW,CTREAT,WDRAW
	CHARACTER*9 DRAFT
	CHARACTER*10 HEAT
	CHARACTER*12 MATE
	CHARACTER*3 CHX(5),CCHX
	CHARACTER*4 WDIR,WDDA
	CHARACTER*2 DIR(5),CDIR,WCHX
	COMMON/AA8/TREAT,HEAT
	DO 5 I=1,NZL
	DO 2 J=1,12
        IF(J.EQ.7.OR.J.EQ.8)GOTO 2
    	ZJD(I,J)=ZJD(I,J)/1000
   2	CONTINUE
   5	CONTINUE
	XB=DC-190
      IF(DG.EQ.297.0)XB=DC-185
	YB=10
      IF(DG.EQ.297.0)YB=5
	CALL INSERT('HYU',XB,YB,1.,1.,0.)
	XT=XB+70
	YT=YB+18
	CALL INSERT(NAME,XT,YT,10.,10.,0.)
        IF(M1.LE.4)THEN
	XT=XB+150
	YT=YB+31
	CALL TEXT('S',3.0,0.,XT,YT,0.,0.,MATE,M1,'A')
        ELSE
	CALL INSERT('MAT',DC-121.,55.7,8.3,8.3,0.)
	CALL TEXT('S',6.,0.,DC-96.,57.,0.,0.,MATE,M1,'A')
        ENDIF
	XT=XB+150
	YT=YB+25
	CALL TEXT('S',4.,0.,XT,YT,0.,NUMBER,'0',1,'I')
	XT=XB+170
	YT=YB+15
	IF(SCL.EQ.0.1)SCAL='10:1 '
	IF(SCL.EQ.0.2)SCAL='5:1  '
	IF(SCL.EQ.0.5)SCAL='2:1  '
	IF(SCL.EQ.1.0)SCAL='1:1  '
	IF(SCL.EQ.2.0)SCAL='1:2  '
	IF(SCL.EQ.5.0)SCAL='1:5  '
	CALL TEXT('S',4.,0.,XT,YT,0.,0.,SCAL,5,'A')
	IF((N1+N2).LE.10)THEN
	XT=XB+148
	YT=YB+1
	CALL TEXT('S',3.83,0.,XT,YT,0.,0,DRAFT,9,'A')
        ELSE
	XT=XB+140
	YT=YB+1
	CALL TEXT('S',3.83,0.,XT,YT,0.,0,DRAFT,9,'A')
        ENDIF
	IF(HEAT.NE.'          ')THEN
        IF(M1.LE.4)THEN
        YT=62.
        ELSE
        YT=66.
        ENDIF
	CALL INSERT('HET',DC-120.,YT,8.,8.,0.)
	CALL TEXT('S',6.,0.,DC-90.,YT+1,0.,0,HEAT,10,'A')
	ENDIF
	IF(TREAT(1).NE.'        '.AND.NZL.GT.0)THEN
        IF(M1.LE.4)THEN
        YT=62.
        ELSE
        YT=66.
        ENDIF
	CALL INSERT('ZBH',DC-60.,YT,8.,8.,0.)
	CALL TEXT('S',6.,0.,DC-30.,YT+1,0.,0,TREAT(1),8,'A')
	ENDIF
	IF(NZL.GE.1)THEN
	XB=DC-69-NZL*25
      IF(DG.EQ.297.0)XB=XB+5
	YB=DG-38
      IF(DG.EQ.297.0)YB=YB+5
	CALL INSERT('OTH',XB-60,YB+10,10.,10.,0.)
	CALL INSERT('GD4',XB-20,YB+10,8.,8.,0.)
	CALL INSERT('WZJ',XB-60,YB,1.,1.,0.)
	CALL INSERT('JB0',XB,YB,1.,1.,0.)
	DO 10 I=1,NZL
	XT=DC-33-(NZL-I)*25
      IF(DG.EQ.297.0)XT=XT+5
	YT=DG-15.5
      IF(DG.EQ.297.0)YT=YT+5
	CALL TEXT('S',4.,0.,XT,YT,RM1(I),0,'0',1,'F')
	YT=YT-7
	CALL TEXT('S',4.,0.,XT,YT,0.,NZ1(I),'0',1,'I')
	YT=YT-7
	CALL TEXT('S',4.,0.,XT,YT,ALF(I),0,'0',1,'F')
	YT=YT-7
	IF(I.EQ.1)THEN
	IF(YDDJ(I).EQ.PWDJ(I).AND.YDDJ(I).EQ.JCDJ(I))THEN
	XX=XT-4
	CALL TEXT('S',4.,0.,XX,YT,0.,YDDJ(I),'0',1,'I')
	XX=XX+4
	CALL TEXT('S',4.,0.,XX,YT,0.,0,'-',1,'A')
	XX=XX+4
	CALL TEXT('S',4.,0.,XX,YT,0.,0,CHX(I),3,'A')
	ELSE
	XX=XT-10
	CALL TEXT('S',4.,0.,XX,YT,0.,YDDJ(I),'0',1,'I')
	XX=XX+4
	CALL TEXT('S',4.,0.,XX,YT,0.,0,'-',1,'A')
	XX=XX+4
	CALL TEXT('S',4.,0.,XX,YT,0.,PWDJ(I),'0',1,'I')
	XX=XX+4
	CALL TEXT('S',4.,0.,XX,YT,0.,0,'-',1,'A')
	XX=XX+4
	CALL TEXT('S',4.,0.,XX,YT,0.,JCDJ(I),'0',1,'I')
	XX=XX+4
	CALL TEXT('S',4.,0.,XX,YT,0.,0,CHX(I),3,'A')
	ENDIF
	ENDIF
  10	CONTINUE
	DO 20 I=1,NZL
	IF(BF(I).NE.0.)GOTO 30
  20	CONTINUE
	GOTO 50
  30	YB=YB-14
	YT0=YT-7
	CALL INSERT('JBB',XB,YB,1.,1.,0.)
	DO 40 I=1,NZL
	XT=DC-33-(NZL-I)*25
      IF(DG.EQ.297.0)XT=XT+5
	YT=YT0
	YA=YT0+0.5
	CALL DFMANG(BF(I),XT,YA)
	YT=YT-7
	YA=YT-2
	XA=DC-35-(NZL-I)*25
      IF(DG.EQ.297.0)XA=XA+5
	IF(DIR(I).EQ.'L ')THEN
	CALL INSERT('LEF',XA,YA,1.,1.,0.)
	ELSEIF(DIR(I).EQ.'R ')THEN
	CALL INSERT('RIG',XA,YA,1.,1.,0.)
	ENDIF
  40	CONTINUE
  50	DO 60 I=1,NZL
	IF(CSI(I).NE.0.)GOTO 70
  60	CONTINUE
	GOTO 90
  70	YB=YB-28
	YT0=YT-7
	CALL INSERT('JBX',XB,YB,1.,1.,0.)
	DO 80 I=1,NZL
	XT=DC-31-(NZL-I)*25
      IF(DG.EQ.297.0)XT=XT+5
	YT=YT0
	CALL TEXT('S',4.,0.,XT,YT,CSI(I),0,'0',1,'F')
	YT=YT-7
	CALL TEXT('S',4.,0.,XT-10,YT,0.,0,DRAW(I),8,'A')
	YT=YT-7
	CALL TEXT('S',4.,0.,XT,YT,0.,NZ2(I),'0',1,'I')
	YT=YT-7
	CALL TEXT('S',4.,0.,XT,YT,A0(I),0,'0',1,'F')
  80	CONTINUE
  90	DO 200 J=1,4
	L=2*J-1
	IF(JDZF(1,J).EQ.'FI1')THEN
	CALL TBZ('FI1',XB,YB,YT,DC,NZL,1,L,ZJD,DG)
	ELSEIF(JDZF(1,J).EQ.'FPK')THEN
	CALL TBZ('FPK',XB,YB,YT,DC,NZL,1,L,ZJD,DG)
      ELSEIF(JDZF(1,J).EQ.'F12')THEN
	CALL TBZ('FI2',XB,YB,YT,DC,NZL,2,L,ZJD,DG)
	ELSEIF(JDZF(1,J).EQ.'FRW')THEN
	CALL TBZ('FRW',XB,YB,YT,DC,NZL,2,L,ZJD,DG)
	ELSEIF(JDZF(1,J).EQ.'FR0')THEN
	CALL TBZ('FR0',XB,YB,YT,DC,NZL,1,L,ZJD,DG)
	ELSEIF(JDZF(1,J).EQ.'FI3')THEN
	CALL TBZ('FI3',XB,YB,YT,DC,NZL,1,L,ZJD,DG)
	ELSEIF(JDZF(1,J).EQ.'FFB')THEN
	CALL TBZ('FFB',XB,YB,YT,DC,NZL,1,L,ZJD,DG)
	ELSEIF(JDZF(1,J).EQ.'FF0')THEN
	CALL TBZ('FF0',XB,YB,YT,DC,NZL,1,L,ZJD,DG)
	ELSEIF(JDZF(1,J).EQ.'FBT')THEN
	CALL TBZ('FBT',XB,YB,YT,DC,NZL,2,L,ZJD,DG)
	ELSEIF(JDZF(1,J).EQ.'FI4')THEN
	CALL TBZ('FI4',XB,YB,YT,DC,NZL,1,L,ZJD,DG)
	ELSEIF(JDZF(1,J).EQ.'FBF')THEN
	CALL TBZ('FBF',XB,YB,YT,DC,NZL,2,L,ZJD,DG)
	ELSEIF(JDZF(1,J).EQ.'FPT')THEN
	CALL TBZ('FPT',XB,YB,YT,DC,NZL,1,L,ZJD,DG)
	ELSEIF(JDZF(1,J).EQ.'FB0')THEN
	CALL TBZ('FB0',XB,YB,YT,DC,NZL,1,L,ZJD,DG)
	ELSEIF(JDZF(1,J).EQ.'FPX')THEN
	CALL TBZ('FPX',XB,YB,YT,DC,NZL,1,L,ZJD,DG)
	ELSEIF(JDZF(1,J).EQ.'DL ')THEN
	YB=YB-28
	CALL INSERT('FW0',XB,YB,1.,1.,0.)
	YT0=YT
	DO 100 I=1,NZL
        IF(ABS(ZJD(I,7)).LT.1)GOTO 188
	ZJD(I,7)=ZJD(I,7)/1000*COS(ALF(I)*0.0175)-0.72*ZJD(I,10)*SIN(
     #	ALF(I)*0.0175)
	ZJD(I,8)=ZJD(I,8)/1000*COS(ALF(I)*0.0175)+0.72*ZJD(I,10)*SIN(
     #	ALF(I)*0.0175)
  188	YT=YT0-7
	XT=DC-33-(NZL-I)*25
      IF(DG.EQ.297.0)XT=XT+5
	CALL TEXT('S',4.,0.,XT-1.5,YT,GFL(I),0,'0',1,'F')
	YT=YT-7
	CALL TEXT('S',4.,0.,XT,YT,ZJD(I,7),0,'0',1,'F')
	YT=YT-7
	CALL TEXT('S',4.,0.,XT,YT,ZJD(I,8),0,'0',1,'F')
	YT=YT-7
	CALL TEXT('S',4.,0.,XT,YT,0.,NGF(I),'0',1,'I')
  100	CONTINUE
	ELSEIF(JDZF(1,J).EQ.'DS ')THEN
	YB=YB-28
	CALL INSERT('CHX',XB,YB,1.,1.,0.)
	YT0=YT
	DO 120 I=1,NZL
	YT=YT0-7
	XT=DC-33-(NZL-I)*25
      IF(DG.EQ.297.0)XT=XT+5
	CALL TEXT('S',4.,0.,XT,YT,SX(I),0,'0',1,'F')
	YT=YT-7
	CALL TEXT('S',4.,0.,XT,YT,CG(I),0,'0',1,'F')
	YT=YT-7
	CALL TEXT('S',4.,0.,XT,YT,ZJD(I,7),0,'0',1,'F')
	YT=YT-7
	CALL TEXT('S',4.,0.,XT,YT,ZJD(I,8),0,'0',1,'F')
  120	CONTINUE
	ENDIF
  200	CONTINUE
	IF(NZL.GT.1)THEN
	N=INT(YB)
	M=DG-10
	DO 250 I=M,N,-7
	XF=DC-10-25*(NZL-1)
      IF(DG.EQ.297.0)XF=XF+5
	XE=DC-10
	Y=FLOAT(I)
	CALL LINE(XF,Y,XE,Y)
  250	CONTINUE
	DO 300 I=1,NZL-1
	X=DC-10-25*I
      IF(DG.EQ.297.0)X=X+5
	YF=DG-10
      IF(DG.EQ.297.0)YF=YF+5
	YE=YF-21
	CALL LINE(X,YF,X,YE)
	YF=YE-7
	CALL LINE(X,YF,X,YB)
  300	CONTINUE
	ENDIF
      ELSEIF(CSX.NE.0.)THEN
	OPEN(2,FILE='\HOUSEM\TXT\CONGEAR.TXT')
	READ(2,'(3F7.2,2I4,3I2,A3,2A8,A2)')CM,CBF,CALF,CZ1,CZ2,
     # CYDDJ,CPWDJ,CJCDJ,CCHX,CDRAW,CTREAT,CDIR
	CLOSE(2)
	XB=DC-94
      IF(DG.EQ.297.0)XB=XB+5
	YB=DG-38
      IF(DG.EQ.297.0)YB=YB+5
	CALL INSERT('OTH',XB-60,YB+10,10.,10.,0.)
	CALL INSERT('GD4',XB-20,YB+10,8.,8.,0.)
	CALL INSERT('WZJ',XB-60,YB,1.,1.,0.)
	CALL INSERT('JB0',XB,YB,1.,1.,0.)
	XT=DC-33
      IF(DG.EQ.297.0)XT=XT+5
	YT=DG-15.5
      IF(DG.EQ.297.0)YT=YT+5
	CALL TEXT('S',4.,0.,XT,YT,CM,0,'0',1,'F')
	YT=YT-7
	CALL TEXT('S',4.,0.,XT,YT,0.,CZ1,'0',1,'I')
	YT=YT-7
	CALL TEXT('S',4.,0.,XT,YT,CALF,0,'0',1,'F')
	YT=YT-7
	IF(CYDDJ.EQ.CPWDJ.AND.CYDDJ.EQ.CJCDJ)THEN
	XX=XT-4
	CALL TEXT('S',4.,0.,XX,YT,0.,CYDDJ,'0',1,'I')
	XX=XX+4
	CALL TEXT('S',4.,0.,XX,YT,0.,0,'-',1,'A')
	XX=XX+4
	CALL TEXT('S',4.,0.,XX,YT,0.,0,CCHX,3,'A')
	ELSE
	XX=XT-10
	CALL TEXT('S',4.,0.,XX,YT,0.,CYDDJ,'0',1,'I')
	XX=XX+4
	CALL TEXT('S',4.,0.,XX,YT,0.,0,'-',1,'A')
	XX=XX+4
	CALL TEXT('S',4.,0.,XX,YT,0.,CPWDJ,'0',1,'I')
	XX=XX+4
	CALL TEXT('S',4.,0.,XX,YT,0.,0,'-',1,'A')
	XX=XX+4
	CALL TEXT('S',4.,0.,XX,YT,0.,CJCDJ,'0',1,'I')
	XX=XX+4
	CALL TEXT('S',4.,0.,XX,YT,0.,0,CCHX,3,'A')
	ENDIF
      YB=YB-7
	CALL INSERT('COE',XB,YB,1.,1.,0.)
      YT=YT-7
	CALL TEXT('S',4.,0.,XT,YT,CONZJD(1),0,'0',1,'F')
      YB=YB-7
	CALL INSERT('COJ',XB,YB,1.,1.,0.)
      YT=YT-7
	CALL TEXT('S',4.,0.,XT,YT,CONZJD(2),0,'0',1,'F')
      YB=YB-7
	CALL INSERT('COP',XB,YB,1.,1.,0.)
      YT=YT-4
	CALL TEXT('S',2.,0.,XT,YT,CONZJD(3),0,'0',1,'F')
      YT=YT-3
	CALL TEXT('S',2.,0.,XT,YT,0.,0,'-',1,'A')
	CALL TEXT('S',2.,0.,XT+4,YT,ABS(CONZJD(4)),0,'0',1,'F')
      YB=YB-7
	CALL INSERT('COT',XB,YB,1.,1.,0.)
      YT=YT-7
	CALL TEXT('S',4.,0.,XT,YT,CONZJD(5),0,'0',1,'F')
      YB=YB-14
	CALL INSERT('COD',XB,YB,1.,1.,0.)
      YT=YT-7
	CALL TEXT('S',4.,0.,XT+13,YT,CONZJD(6),0,'0',1,'F')
	CALL TEXT('S',4.,0.,XT+19,YT,0.,0,'%',1,'A')
      YT=YT-7
	CALL TEXT('S',4.,0.,XT+13,YT,CONZJD(6),0,'0',1,'F')
	CALL TEXT('S',4.,0.,XT+19,YT,0.,0,'%',1,'A')
      YB=YB-28
	CALL INSERT('COH',XB,YB,1.,1.,0.)
      YT=YT-14
	CALL TEXT('S',4.,0.,XT,YT,CSX,0,'0',1,'F')
      YT=YT-14
	CALL TEXT('S',4.,0.,XT,YT,CNX,0,'0',1,'F')
	ELSEIF(WQ.NE.0)THEN
  	OPEN(2,FILE='\HOUSEM\TXT\WB.TXT')
 	READ(2,'(3F7.2,I4,A4,I2,A2,I4,A8)')WM,WBF,WALF,WZ1,WDIR,
     # WJD,WCHX,WZ2,WDRAW
 	CLOSE(2)
 	OPEN(3,FILE='\HOUSEM\TXT\WBJDZ.TXT')
 	READ(3,'(7F7.2,A4)')(WJDZ(J),J=1,7),WDDA
 	CLOSE(3)
 	CALL WBP(WZ1,WZ2,WM,WQ,WA,WR,CP,WDA,WDF,WS1,WSM)
	XB=DC-94
      IF(DG.EQ.297.0)XB=XB+5
	YB=DG-150
      IF(DG.EQ.297.0)YB=YB+5
	CALL INSERT('OTH',XB-60,YB+120,10.,10.,0.)
	CALL INSERT('GD4',XB-20,YB+120,8.,8.,0.)
	CALL INSERT('WZJ',XB-60,YB+110,1.,1.,0.)
	CALL INSERT('BWB',XB,YB,1.,1.,0.)
	XT=DC-33
      IF(DG.EQ.297.0)XT=XT+5
	YT=DG-22.5
      IF(DG.EQ.297.0)YT=YT+5
	CALL TEXT('S',4.,0.,XT,YT,WM,0,'0',1,'F')
	YT=YT-7
	CALL TEXT('S',4.,0.,XT,YT,0.,WZ1,'0',1,'I')
	YT=YT-7
	CALL DFMANG(WR,XT,YT)
	YT=YT-14
	CALL TEXT('S',4.,0.,XT,YT,WALF,0,'0',1,'F')
	XX=XT+4
	IF(WALF.GT.9)XX=XT+8
	CALL TEXT('S',4.,0.,XX,YT,0.,0,'%%D',3,'A')
	YT=YT-7
	CALL TEXT('S',4.,0.,XT,YT,0.,WJD,'0',1,'I')
	XX=XT+4
	CALL TEXT('S',4.,0.,XX,YT,0.,0,'-',1,'A')
	XX=XX+4
	CALL TEXT('S',4.,0.,XX,YT,0.,0,WCHX,2,'A')
	YT=YT-7
	CALL TEXT('S',4.,0.,XT,YT,WA,0,'0',1,'F')
	YT=YT-7
	CALL TEXT('S',4.,0.,XT,YT,WQ,0,'0',1,'F')
	YT=YT-7
	CALL TEXT('S',4.,0.,XT,YT,0.,0,WDRAW,8,'A')
	YT=YT-7
	CALL TEXT('S',4.,0.,XT,YT,0.,0,'+',1,'A')
	CALL TEXT('S',4.,0.,XT,YT-2,0.,0,'-',1,'A')
	CALL TEXT('S',4.,0.,XT+4,YT,WJDZ(2),0,'0',1,'F')
  	YT=YT-7
  	CALL TEXT('S',4.,0.,XT,YT,0.,0,'+',1,'A')
  	CALL TEXT('S',4.,0.,XT,YT-2,0.,0,'-',1,'A')
  	CALL TEXT('S',4.,0.,XT+4,YT,WJDZ(1),0,'0',1,'F')
 	YT=YT-7
 	CALL TEXT('S',4.,0.,XT,YT,WJDZ(3),0,'0',1,'F')
 	YT=YT-7
 	CALL TEXT('S',4.,0.,XT,YT,WJDZ(4),0,'0',1,'F')
 	YT=YT-10.5
 	CALL TEXT('S',4.,0.,XT,YT,WS1,0,'0',1,'F')
 	XX=XT+16
 	CALL TEXT('S',2.,0.,XX,YT+3,0.,0,'-',1,'A')
 	CALL TEXT('S',2.,0.,XX,YT-1,0.,0,'-',1,'A')
 	XX=XX+2
  	CALL TEXT('S',2.,0.,XX,YT+3,WJDZ(5),0,'0',1,'F')
    	CALL TEXT('S',2.,0.,XX,YT-1,WJDZ(5)+WJDZ(6),0,'0',1,'F')
  	YT=YT-14
 	CALL TEXT('S',4.,0.,XT,YT,WSM,0,'0',1,'F')
 	XX=XT+16
 	CALL TEXT('S',2.,0.,XX,YT+3,0.,0,'-',1,'A')
 	CALL TEXT('S',2.,0.,XX,YT-1,0.,0,'-',1,'A')
 	XX=XX+2
  	CALL TEXT('S',2.,0.,XX,YT+3,WJDZ(5),0,'0',1,'F')
  	CALL TEXT('S',2.,0.,XX,YT-1,WJDZ(5)+WJDZ(6),0,'0',1,'F')
 	YT=YT-14
 	CALL TEXT('S',4.,0.,XT,YT,WM,0,'0',1,'F')
	ELSE
      IF(DG.EQ.297.0)THEN
      DC=DC+5
      DG=DG+5
      ENDIF
	CALL INSERT('OTH',DC-70,DG-30,10.,10.,0.)
	CALL INSERT('GD4',DC-30,DG-30,8.,8.,0.)
	CALL INSERT('WZJ',DC-70,DG-40,1.,1.,0.)
	ENDIF
C     IF(DG.EQ.297.0)DG=DG+5
C       CALL TLINE(25.,DG-22.,70.,DG-22.,0.35)
C       CALL TLINE(70.,DG-22.,70.,DG-10.,0.35)
C	XT=68.0-(11-N2)*1.85
C	CALL TEXT('S',3.83,180.,XT,DG-14.,0.,0,DRAFR,8,'A')
	RETURN
	END
        
	SUBROUTINE TBZ(TDF,XB,YB,YT,DC,NZL,N,J,ZJD,DG)
	DIMENSION ZJD(5,12)
	CHARACTER*5 TDF
	YB=YB-7*N
	YT0=YT
	CALL INSERT(TDF,XB,YB,1.,1.,0.)
	DO 20 I=1,NZL
	XT=DC-33-(NZL-I)*25
      IF(DG.EQ.297.0)XT=XT+5
	YT=YT0
	DO 10 K=1,N
	YT=YT-7
	CALL TEXT('S',4.,0.,XT,YT,ZJD(I,J+K-1),0,'0',1,'F')
  10	CONTINUE
  20	CONTINUE
	RETURN
	END

	SUBROUTINE DFMANG(ANG,XT,YT)
	IDSH=INT(ANG)
	FSH=(ANG-IDSH)*60
	IFSH=INT(FSH+0.01)
	SH=(FSH-IFSH)*60
	SH=10.*SH
	ISH=INT(SH+0.01)
	SH=ISH/10.0
	CALL TEXT('S',3.,0.,XT,YT,0.,IDSH,'0',1,'I')
	CALL DECIM(ANG,ND,NS)
	XT=XT+ND*3./10-0.5
	CALL TEXT('S',3.,0.,XT,YT,0.,0,'%%D',3,'A')
	XT=XT+2
	CALL TEXT('S',3.,0.,XT,YT,0.,IFSH,'0',1,'I')
	CALL DECIM(FSH,ND,NS)
	XT=XT+ND*3./10-0.5
	CALL TEXT('S',3.,0.,XT,YT,0.,0,'''',1,'A')
	XT=XT+2
	CALL TEXT('S',3.,0.,XT,YT,SH,0,'0',1,'F')
	CALL DECIM(SH,ND,NS)
	IF(NS.GT.0)THEN
	XT=XT+(ND/10+NS+0.5)*3.-0.5
	ELSE
	XT=XT+ND*3./10-0.5
	ENDIF
	CALL TEXT('S',3.,0.,XT,YT,0.,0,'"',1,'A')
	RETURN
	END
