TKFAXIN5 ;PG&A,TK-FAX,2.10,FONT INITIALIZATION; [ 11/17/2000   5:55 PM ]
 ;
 F J=1:1 S A=$P($T(DATA1+J),";;",2,99) Q:A=""  S:+A'=L E=1,L=+A F K=2:1 S D=$P(A,";",K) Q:D=""  S ^TKFAXF(+A,.3,E)=D,E=E+1
 Q
 ;
DATA1 ;
 ;;40;16;4,C,6;6,011,6;12,11,2;2,CH011,2;2,PL,4;0,NPHNP,2;2,CHC,0;4,011,8;4,GO11,2;0,HM11,2;8,011,4;4,B01,4;2,HG11,2;0,AF11,0;2,GO11,4;2,011,10;6,11,8;0,GO010,4;0,HD11,2;6,PL,0;2,NPHNP,0;0,GOEP1,0;0,C,10;2,A100,4;2,HM11,0
 ;;40;0,CL011,2;2,A111,2;6,C,4;0,A111,4;0,AH,2;6,B01,2;0,B01,8;0,011,12;10,011,2;8,C,2;2,C,8;0,HG11,4;2,B01,6;4,A100,2;2,OH1,2;0,A100,6;2,AH,0;0,NPL011,2;2,PJ1,2;12,011,0;0,CHC,2;0,HG010,2;0,MP1,2;2,HN1,2;0,GONN1,0;0,GO11,6
 ;;40;0,CH011,4;2,NNL111,2;0,OG11,2;2,HH1,4;6,GO11,0;0,NNN111,2;0,NMJP,2;0,ON1,6;2,GP1,6;0,BFN1,2;0,GPLL,2;4,GO010,0;4,A111,0;0,BFM10,0;0,GOC1,2;0,PJ1,4;0,NPO11,2;6,A100,0;2,BFN1,0;0,HH1,6;0,OPH011,2;4,ON1,2;2,HHL111,0;0,AIP1,2
 ;;40;0,ONL111,2;2,HG010,0;2,BFP,2;2,GO010,2;0,11,14;0,HM010,0;0,CLC,0;0,AOP1,0;0,PLL11,0;0,NMJN1,0;0,PL,6;0,HGC1,0;0,HHN111,0;4,CL11,0;0,BGN1,0;0,HD011,0;0,ONN111,0;0,OPL011,0;0,OMC0,0;0,CHB01,0;4,PJ1,0;4,BFP,0;4,PL,2;0,MO11,0
 ;;40;0,OM10,4;6,HH1,0;0,MI11,0;0,CO011,0;14,11,0;0,CJ111,0;8,B01,0;0,AJH1,0;0,BHL,0;0,PIF,0;4,HG11,0;0,OG010,0;0,GH11,0;0,NMFH11,0;10,C,0;2,NNN111,0;0,NMKP,0;4,HN1,0;2,AIP1,0;0,OMJP,0;4,OP,4;4,OM10,0;6,ON1,0;0,NPLNP,0;2,BGP,0
 ;;40;0,ONLL,0;0,CL11,4;2,ONL111,0;2,PLH11,0;0,OPHC,0;8,OP,0;4,NPL11,0;8,11,6;4,OH1,0;2,CL011,0;2,NMJP,0;0,OH1,4;2,GPN111,0;0,GOOP,0;10,NP,0;0,OHL111,0;0,OPO11,0
 ;;110;12;4,11,6;1,OP,3;2,NP,4;1,HH1,1;3,10,6;6,11,4;2,11,8;9,11,1;3,011,5;5,11,5;2,C,4;2,011,6;0,B01,4;5,10,4;0,A100,2;4,10,5;0,C,6;4,011,4;3,D,4;0,PL,2;8,11,2;0,11,10;0,B1,5;3,11,7;3,C,3;6,011,2;0,011,8;2,GP1,2;2,B1,3;0,NPH11,2
 ;;110;1,NP,5;1,MHMH11,3;1,JO,3;0,KO,2;0,JO,4;0,OP,4;2,IH10,3;0,OC,4;2,JO,2;2,OD,3;0,PD,3;0,LD,2;0,OO,3;0,PC,2;1,KC,2;0,FBMC,2;1,11,9;1,KP,2;3,010,8;0,IHNP,2;0,NPBP,3;0,OD,5;7,11,3;2,D,5;6,10,3;1,10,8;1,PD,2;0,GO11,2;0,HH1,2
 ;;110;0,NP,6;1,GD111,4;1,MH11,6;7,10,2;0,NNIP1,1;0,OB0,6;0,MHGD111,2;0,DI11,2;3,GD111,2;0,MHD,4;0,MH011,5;5,D,2;1,GD110,3;1,B01,3;0,B00,3;0,PP,1;0,IH11,6;2,10,7;1,JN1,2;0,MHFAIH11,1;0,MHJP,2;0,GP0,3;0,HB0,2;1,011,7;0,10,9
 ;;110;0,MHEPIP1,1;0,OA11,2;0,MH10,6;0,NOBP,2;4,MH10,2;3,MH011,2;0,MHIH10,2;0,GD111,5;3,MH11,4;4,NP,2;2,MHNP,1;0,ODBP,2;0,KD,4;0,ON1,2;0,NPBO,2;1,NPH11,1;0,JN1,3;0,KC,3;2,JP,3;2,NO,3;3,JP,2;1,B1,4;2,GD111,3;1,B00,2;3,GD110,1
 ;;110;5,011,3;3,GP1,1;0,A111,0;0,GO010,0;0,EONO,0;0,NPH011,0;0,FGNN0,0;0,KA10,0;0,CH011,0;0,NMF,0;0,BBN0,0;0,KM11,0;0,DHD,0;0,PJ1,0;0,OM10,0;8,011,0;0,DI011,0;10,11,0;0,HA011,0;6,C,0;0,HG11,0;0,LB1,0;2,CH11,0;0,BFP,0;2,A100,0
 ;;110;7,D,0;0,JM011,0;0,LK,0;0,CL11,0;4,B01,0;0,OPH11,0;0,PO,0;2,NPH11,0;0,EPLJ1,0;0,EOJND110,0;0,FBM010,0;3,HB1,0;3,OB1,0;2,GO11,0;0,OBE010,0;2,KB1,0;0,ODI11,0;0,NOH10,0;2,DH10,0;3,DH11,0;2,HB0,0;2,DI11,0;0,FBE011,0;1,JOBP,0
 ;;110;0,EOC0,0;0,FANP,0;0,IHB01,0;3,EPL111,0;2,NND110,0;2,JM11,0;0,BL110,0;0,PA11,0;0,CI10,0;0,FAC1,0;0,EOGP1,0;4,OP,0;4,GP1,0;2,NM10,0;0,FGJN1,0;0,EOJM10,0;0,BM011,0;2,ONDK,0;2,IHC,0;2,FGJP,0;5,JP,0;0,KND111,0;2,FI11,0;2,FG011,0
 ;;110;0,DM11,0;0,FGKC,0;0,FD10,0;9,10,0;2,BLK,0;3,EO010,0;0,OA011,0;0,FBN111,0;2,EDMDKH010,0;2,FBL111,0;4,OC,0;4,KD,0;0,FGD,0;3,B00,0;2,EDOOJN0,0;2,LD,0;2,FA010,0;2,OBD111,0;0,GOKD,0;0,JNF111,0;2,FAKD,0;4,EO011,0;0,JNDL,0
 ;;110;0,GPL111,0;0,NNDOO10,0;2,JND111,0;3,JN1,0;2,HH1,0;2,NNE011,0;0,EPLOO10,0;3,OO,0;3,KC,0;0,ODH10,0;0,NPI10,0;0,KDH11,0;0,FO11,0;0,OND110,0;0,FE11,0;0,KNEC,0;0,DL10,0;0,KPH010,0