TKFAXIN1 ;PG&A,TK-FAX,2.10,COVER INIT;1JUN94 8:47A [ 11/17/2000   5:55 PM ]
 ;Copyright (C) 1991-1994, Patterson, Gray and Associates Inc.
 ;
INIT X XX D INTZ G:$D(HSFAX) ^TKFAXINg
 X XX F J=0:1 S A=$P($T(INIT2+J),";;",2) Q:A=""  F K=1:1 S B=$P(A,";",K) Q:B=""  S @("^TKFAXC(""FX"",2,+B)=$C("_$P(B,",",2,99)_")")
 X XX G ^TKFAXIN2
INTZ S HSFAX=1 F J=$D(HSFAX)*4:1 S A=$P($T(INIT1+J),";;",2) Q:A=""  F K=1:1 S B=$P(A,";",K) Q:B=""  S @("^TKFAXC(""FX"",1,+B)=$C("_$P(B,",",2,99)_")")
 Q
INIT0 S X=$P($T(INIT0+1),";;",2,99),C="S D="""",E=^(A) F I=1:1:$L(E) S D=D_$A(E,I)_"",""" X X Q
 ;;S A="",B=" ;" F J=1:1 S A=$O(^TKFAXC("FX",5,A)) ZI:A="" B Q:A=""  X C X:$L(B)+$L(D)>240 "ZI B S B="" ;""" W A," " S B=B_";"_A_","_$E(D,1,$L(D)-1)
 Q
INIT1 ;;1,0,0,40,155,21;2,0,0,184,41,192,68,38,21;3,0,0,184,209,65,73,38,37;4,0,0,184,209,186,125,135,156,61,207,147,73,1;5,0,0,184,81,201,237,59,196,113,239,185,101,162,3;6,0,0,184,81,201,237,114,168,147,239,187,156,101,162,3
 ;;7,0,0,184,81,201,221,190,219,190,23,36,19,29;8,0,0,184,81,201,237,114,168,211,237,114,150,137,14;9,0,0,184,81,201,237,59,196,201,119,121,110,153,232,0;10,0,0,184,209,216,237,59,196,201,119,121,158,76,10,0
 ;;11,0,0,184,209,65,73,38,37;12,0,0,184,41,192,68,38,21
 ;
INIT1d ;;1,0,0,40,155,21;2,0,0,40,155,21;3,0,0,184,65,81,86,148,21,101,69,89,81,86,84,38,50;4,0,0,184,65,196,170,142,53,143,85,39,214,60,86,212,115,177,74,38,18;5,0,0,184,105,103,149,203,103,189,103,205,99,189,103,69,67,33,214,101,98,3
 ;;6,0,0,184,105,98,149,239,98,149,239,98,205,99,149,239,98,69,95,172,201,196,2;7,0,0,184,105,98,149,239,98,149,239,98,205,99,149,239,98,213,233,197,154,76,44;8,0,0,184,105,98,149,239,98,213,137,53,143,85,39,86,212,133,203,197,154,76,44
 ;;9,0,0,184,105,98,149,203,103,149,239,98,205,99,149,239,98,69,61,23,107,50,177,0;10,0,0,184,105,103,85,199,42,223,197,154,199,42,223,197,138,122,46,214,101,98,3;11,0,0,184,65,196,138,178,162,172,40,43,202,138,178,162,172,146,137,4
 ;;12,0,0,184,65,81,86,148,21,101,69,89,81,86,84,38,50
 ;
INIT1g ;;1,0,0,184,65,193,68,38,50;2,0,0,184,105,129,68,38,54;3,0,0,184,105,236,123,13,61,123,158,91,38,22;4,0,0,184,169,217,247,125,135,56,238,61,103,153,192,0;5,0,0,184,169,200,247,3,196,201,247,93,142,101,2,1
 ;;6,0,0,184,169,232,10,223,109,223,11,84,38,16,16;7,0,0,184,169,200,119,14,136,211,237,114,44,19,8;8,0,0,184,169,217,247,125,135,56,249,46,207,89,38,48;9,0,0,184,105,236,123,13,117,242,93,158,91,38,22;10,0,0,184,105,129,68,38,54
 ;;11,0,0,184,65,193,68,38,50;12,0,0,0,40,155,21,0
 ;
INIT2 ;;1,0,0,104,71,6,110,160,166,67,3;2,0,0,104,71,6,110,160,166,67,3;3,0,0,104,71,6,110,160,166,67,3;4,0,0,104,71,6,110,160,166,67,3;5,0,0,104,71,6,110,160,166,67,3;6,0,0,104,71,6,110,160,166,67,3
 ;;7,0,0,104,71,134,73,48,65,134,69,128,53,199,1,6,76,129,194,168,128,13,199,11,186,192,6,25,120,22,96,47,40,18,24,48,5,24,4,5,40,2,150,10,26,80,100,208,6,11,29,26
 ;;8,0,0,104,71,134,73,32,57,48,30,22,1,22,239,113,128,15,50,5,252,64,63,216,12,24,7,227,97,246,192,56,224,33,7,246,6,227,192,56,240,65,166,0,111,72,23,160,8,176,60,30,7,232,7,198,129,54,88,232,208,0
 ;;9,0,0,104,71,134,73,32,57,48,30,136,129,217,134,198,13,18,48,226,128,31,232,15,243,3,227,96,60,204,30,24,7,60,36,3,113,96,28,24,7,18,48,226,128,7,232,161,0,123,131,69,67,227,6,253,192,56,208,6,11,29,26
 ;;10,0,0,104,71,134,73,32,57,152,15,16,16,7,83,3,254,208,128,249,193,15,244,135,249,129,113,48,30,102,15,136,1,30,146,129,56,48,14,230,13,13,152,31,52,128,56,176,31,76,13,248,131,126,64,12,104,131,133,14,13
 ;;11,0,0,104,71,134,73,32,57,152,15,16,16,7,140,3,127,104,192,252,224,7,250,195,252,192,56,24,15,179,7,196,0,15,201,64,28,24,7,243,134,6,204,15,26,64,28,216,15,24,7,254,160,31,16,16,3,218,96,161,67,3
 ;;12,0,0,104,71,134,73,32,57,152,15,16,16,7,138,3,227,32,1,155,129,31,232,15,243,3,227,96,60,204,30,16,16,3,60,36,3,113,96,28,204,27,18,176,25,36,192,222,96,63,80,28,24,7,250,1,49,160,13,22,58,52
 ;;13,0,0,104,71,134,73,32,57,152,15,232,25,20,3,196,65,2,54,3,63,208,11,140,12,198,193,120,152,61,32,6,120,72,1,253,193,56,152,55,36,96,51,72,128,189,97,145,65,49,64,28,232,7,196,128,54,88,232,208,0
 ;;14,0,0,104,71,134,73,32,57,88,52,232,173,129,197,193,162,33,1,155,129,31,232,5,70,6,227,96,60,204,30,44,2,120,72,1,253,193,56,88,4,36,96,51,72,128,189,97,17,55,44,30,22,13,250,193,34,64,27,44,116,104,0
 ;;15,0,0,104,71,134,73,32,57,88,52,232,173,129,69,131,189,33,1,138,128,31,232,5,70,6,227,96,60,204,30,44,2,120,72,1,253,193,56,88,4,36,64,17,72,128,34,96,17,55,44,6,236,13,250,193,34,64,27,44,116,104,0
 ;;16,0,0,104,71,134,73,32,57,52,144,134,17,13,44,26,20,1,105,176,7,252,64,15,13,120,104,192,56,24,15,179,135,6,18,192,67,226,6,143,27,140,67,3,9,72,131,61,144,129,77,192,60,106,88,12,40,2,244,195,141,4,104,131,133,14,13