TKFAXH2 ;PG&A,TK-FAX,2.10,MH ENCODING;24FEB94 8:58A [ 11/22/2000  11:28 AM ]
 ;Copyright (C) 1992, Patterson, Gray and Associates Inc.
 ;
LINE S TXW=1728-MG-CVR I TXT'[XS S TXT=$TR(TXT,CA,CB) D LINEL F TXR=1:1:FR D LN1 H 0
 I TXT[XS D VIDEO S TXL=$L(TXT) D LINEE F TXR=1:1:FR D LN H 0
 I HP F FXL=FXL+1:1:12-TXR+FXL S @TKFAXS@(PG,FXL)=""
 Q
 ;
LINEL S TXL=$L(TXT) I '$D(TR) S TXW=TXW-(TXL*FC)
 E  F I=1:1:TXL S TXW=TXW-$A(TR,$A(TXT,I))
 I TXW<20 S TXT=$E(TXT,1,TXL-2),TXW=1728-MG-CVR G LINEL
 Q
LINEE S TXL=$L(TXT) I '$D(TR) S TXW=TXW-(TXL-$L(TXT,$C(0))+1*FC)
 E  S D=0,TXR=1 D CF F I=1:1:TXL X $S($A(TXT,I)=0:"D CF",1:"S TXW=TXW-$A(TR,$A(TXT,I))")
 I TXW<20 S TXT=$E(TXT,1,TXL-2),TXW=1728-MG-CVR G LINEE
 Q
LN S LX="",L=EOL,W=MG,D=0 D CF
 F I=1:1:TXL S X=^TKFAXF(MF,.3,$A(NTY,I)*256+$A(NTX,I)),W=W+X D:X=0 CF I X["," S L=L_$S(W<32:wht(W),1:^TKFAXC(.1,W))_$P(X,",",2),W=$P(X,",",3) D:$L(L)>32 LSX
 S W=W+TXW,FNT=FNT(0),L=L_$S(W<32:wht(W),W<1729:^TKFAXC(.1,W),1:wht(0))_TRL
 S L=L_$E("00000000",1,-$L(L)#8) D LS,LE:LX[$C(16) S FXL=FXL+1,@TKFAXS@(PG,FXL)=LX Q
CF S FNT=FNT(D),D=D+1,NTX=$TR(TXT,AL,^TKFAXF(FNT,.1,TXR)),NTY=$TR(TXT,AL,^TKFAXF(FNT,.2,TXR)) K TR S:$D(^TKFAXF(FNT,.4)) TR=^(.4) Q
 ;
LN1 S LX="",L=EOL,W=MG,NTX=$TR(TXT,AL,^TKFAXF(FNT,.1,TXR)),NTY=$TR(TXT,AL,^TKFAXF(FNT,.2,TXR))
 F I=1:1:TXL S X=^TKFAXF(MF,.3,$A(NTY,I)*256+$A(NTX,I)),W=W+X I X["," S L=L_$S(W<32:wht(W),1:^TKFAXC(.1,W))_$P(X,",",2),W=$P(X,",",3) D:$L(L)>32 LSX
 S W=W+TXW,L=L_$S(W<32:wht(W),W<1729:^TKFAXC(.1,W),1:wht(0))_TRL
 S L=L_$E("00000000",1,-$L(L)#8) D LS,LE:LX[$C(16) S FXL=FXL+1,@TKFAXS@(PG,FXL)=LX Q
 ;
LS F i=1:8:$L(L)\8*8 S LX=LX_$C(B($E(L,i,i+3))+C($E(L,i+4,i+7)))
 S L=$E(L,$L(L)>7*(i+8),255) Q
LSX S LX=LX_$C(B($E(L,1,4))+C($E(L,5,8)))_$C(B($E(L,9,12))+C($E(L,13,16)))_$C(B($E(L,17,20))+C($E(L,21,24)))_$C(B($E(L,25,28))+C($E(L,29,32))),L=$E(L,33,255) Q
 ;
VIDEO S F=TK("gon"),C="",FNT(0)=FNT,(W,X)=0 F L=1:1:$L(TXT,F) S J=$P(TXT,F) D:J[XS V1 S C=C_$TR(J,CA,CB),J=$P($P(TXT,F,2,99),TK("gof")) D:J[XS V1 S TXT=$P(TXT,TK("gof"),2,99),C=C_$TR(J,CD,CE)
 S TXT=C Q
V1 I J[TK("fon") F T=2:1:$L(J,TK("fon")) S J=$P(J,TK("fon"))_" "_$P(J,TK("fof"),2,99)
 F T=1:1:$L(J,XS)-1 S I=$P(J,XS,2),E=$F(XL,$E(XS_I,1,XSL))\XSL S J=$P(J,XS)_$S(E:$C(0),1:"")_$E($P(J,XS,2,99),'E+XSL,255) I E S X=$S(E=1:X>1*2+1,E=2:X>1*2,E=3:X#2+2,1:X#2),W=W+1,FNT(W)=FNT+X
 Q
LE F E=1:2:$L(LX,$C(16))-1*2 S $P(LX,$C(16),E)=$P(LX,$C(16),E)_$C(16)
 Q
 ;
T R "JOB-",JOB,! S TKFAXD="^TKFAXQ(""SRC"",JOB)",TKFAXS="^TKFAXQ(""FX"","_JOB_")",B=^TKFAXQ("DIR",1000000-JOB) D ^TKFAXH Q
TT R "OVERLAY JOB-",JOB S TKFAXD="^FAX(37)",TKFAXS="^TKFAXQ(""FX"","_JOB_")",B=^TKFAXQ("DIR",1000000-JOB) X:$P(B,"\",34)]"" $P(B,"\",34) D ^TKFAXH Q