TKFAXIN0 ;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 ;
 ;;10;8;3,11,3;1,MH11,2;2,10,3;2,11,4;1,11,5;5,11,1;1,D,2;2,011,2;3,10,2;1,C,1;4,11,2;1,011,3;1,NP,1;0,OD,1;0,B1,1;0,11,6;3,010,4;4,10,1;1,10,4;1,IH11,1;2,D,1;0,IH10,1;0,JP,1;2,MH11,1;0,MH10,2;0,NP,2;0,NO,1;0,MH011,1;0,GD111,1
 ;;10;0,B01,0;0,MHED111,1;1,MH10,1;2,MH010,2;0,010,7;6,010,1;2,IH11,0;4,011,0;2,NN0,1
 ;;20;16;6,10,7;3,KO,3;6,11,8;5,C,5;3,10,10;8,10,5;12,10,1;3,A100,3;4,B01,4;7,C,3;2,A111,2;6,D,5;2,A101,3;6,011,6;5,B01,3;2,B01,6;2,LK,2;4,B1,5;9,D,2;2,10,11;1,KH0,1;2,A100,4;3,B01,5;1,LK,3;1,LO,2;1,AH,1;3,B1,6;1,10,12;7,11,7
 ;;20;5,10,8;9,10,4;6,C,4;10,10,3;5,011,7;7,D,4;7,10,6;2,D,9;3,DI10,2;3,B00,4;3,KC,4;1,LDBO,1;4,D,7;5,JO,3;4,10,9;4,JO,4;2,LO,1;3,LK,1;2,KO,4;1,DLD,1;1,DO10,1;2,LC,3;11,10,2;1,KA11,4;1,JP,8;5,D,6;1,KPH10,1;1,KAF,1;1,CHC,1
 ;;20;1,BN110,1;2,IHC,4;1,LB1,3;2,B00,5;2,IHB1,3;4,A100,2;3,CH011,1;1,KDI10,1;1,KDH011,1;1,IHCBO,1;1,JMMH10,1;1,LC,4;2,HJ0,2;2,KC,5;1,CBM10,2;3,LC,2;1,KO,5;3,HH0,2;3,011,9;7,011,5;6,NO,3;1,JPL10,1;2,AE,1;1,LI11,1;1,LA10,1
 ;;20;1,KDBO,3;1,IHDBO,2;1,GDLBN1,1;1,IHPC,1;1,HG11,3;1,LN1,1;1,KN1,4;1,JPI10,2;6,JP,3;3,JO,5;5,A100,1;3,BIP1,3;3,A101,2;3,BIP0,2;0,AF11,0;8,D,3;3,HA11,2;5,B1,4;11,011,1;6,B1,3;8,011,4;2,011,10;1,AE,2;1,A100,5;1,HM11,1;9,C,1
 ;;20;1,011,11;1,A111,3;1,HI11,2;4,011,8;9,011,3;10,011,2;2,C,8;2,HG11,2;3,GO11,3;1,HG010,1;4,C,6;4,GO11,2;2,DL011,1;3,HG11,1;1,CL011,1;1,GO010,3;1,GD110,7;2,HA11,3;1,HBIO11,1;1,GOC1,1;1,BFN1,1;1,GPLL,1;1,GDI11,3;1,HG011,2
 ;;20;1,GDI101,2;3,A111,1;2,BEH011,1;1,B00,6;1,GDI100,1;1,DM011,1;1,HA11,4;1,CBM011,1;2,HI11,1;6,IH011,2;1,GDPA11,1;1,AM0,0;1,HI011,1;1,HAD,1;1,GOD,2;8,C,2;1,DID,2;5,GP0,2;3,GDL,4;4,A101,1;3,BIO11,1;1,A101,4
 ;;30;16;4,11,10;2,KO,4;4,10,9;5,11,9;8,11,6;7,11,7;1,11,13;4,D,7;0,11,14;3,D,8;5,011,7;1,011,11;4,C,6;6,011,6;2,CH011,2;6,PL,0;2,NPHNP,0;0,GOEP1,0;4,GO11,2;0,AF11,0;0,B01,8;8,B01,0;3,011,9;5,10,8;6,11,8;2,11,12;3,10,10;2,KD,6
 ;;30;8,011,4;2,011,10;0,HM11,2;2,GO11,4;4,011,8;0,A100,6;8,C,2;0,GO010,4;4,B01,4;0,011,12;2,PL,4;0,NPHNP,2;2,CHC,0;0,GO11,6;2,C,8;3,JO,5;2,B00,5;5,MH10,5;0,AE,3;3,B1,6;3,11,11;2,B01,6;6,10,7;0,A101,5;2,BEH11,3;0,CLD,1;1,A101,4
 ;;30;6,B1,3;0,CHC,2;0,B1,9;0,DP10,1;0,DO011,1;0,CM011,1;0,DM011,2;0,DL011,3;2,NP,8;0,C,10;8,D,3;5,B1,4;7,10,6;1,MHMH11,7;0,HG11,4;2,HG11,2;4,A100,2;6,GO11,0;0,AH,2;6,B01,2;6,C,4;1,IH11,9;2,IH11,8;1,LC,4;4,NO,5;0,10,13;0,LO,3
 ;;30;2,KC,5;1,PL,5;1,PP,4;1,LK,3;2,LC,3;2,LK,2;8,10,5;2,10,11;2,HJ0,2;2,HN1,2;1,LB1,3;0,JOH10,3;2,LP,2;1,LP,3;1,LD,5;0,LK,4;1,OP,7;9,10,4;4,GP0,3;0,OC,8;2,A100,4;2,HH1,4;0,HD11,2;2,A111,2;12,011,0;1,KO,5;0,PD,7;0,LJ1,3;3,OC,5
 ;;30;0,OH1,4;0,KH1,3;4,MH10,6;2,LL,3;2,DM11,2;0,OCI11,3;2,LD,4;0,PK,5;0,PL,6;4,KC,3;0,CL011,2;10,011,2;1,OD,8;0,LA11,3;10,10,3;2,OO,5;1,B01,7;0,JMMH11,3;2,JP,7;2,DHD,2;2,MHKP,2;3,IH11,7;3,KD,5;2,IHC,4;2,CBN1,3;2,IHD,5;5,C,5
 ;;30;2,KN1,3;0,IHGDL,3;0,IHB1,5;0,DBM10,4;2,BIO11,2;0,GDI11,4;1,A100,5;0,DID,3;0,HM011,1;0,DHD,4;0,HA011,4;0,A111,4;0,HN1,4;0,BFN1,2;6,A100,0;4,GO010,0;4,A111,0;0,BFM10,0;0,HH1,6;1,10,12;2,MH11,9;0,KPBO,3;1,PC,5;9,11,5;0,IHKP,3
 ;;30;2,KP,5;2,MHDBO,2;2,NOI11,2;2,JPI11,2;4,IH11,6;2,HH0,3;2,KB1,4;1,B00,6;1,KN1,4;2,HB0,4;1,JNIP0,2;1,DH011,4;2,HA11,3;0,KH0,2;0,LL,5;0,GONN1,0;0,KDH10,3;4,B1,5;0,HJ0,4;2,A101,3;0,IHIHMH11,3;2,IH10,7;2,NOH10,2;2,OCH11,2
 ;;30;2,JOH11,2;1,JOH10,2;1,HH0,4;1,IHKD,3;1,PD,6;0,GOC1,2;0,CH011,4;2,MHNP,5;0,B00,7;0,JPI10,3;0,LA10,2;2,JO,6;2,PO,2;2,OOBP,2;2,IHDBP,2;2,B1,7;1,JOBP,4;2,OD,7;0,HG010,2;0,BGN1,0;2,OB1,5;1,JN1,6;0,IHOO,3;0,JNIP0,3;2,PC,4
 ;;30;0,LC,5;2,PA11,2;1,PO,3;3,NO,6;2,MHB1,4;3,MH11,8;0,OOBP,4;1,KD,7;0,DM10,3;2,PJ1,2;0,OH0,3;2,DBN1,4;0,OG11,2;0,OMF,2;1,MHC,6;6,IH11,4;1,KC,6;3,LD,3;1,PK,4;3,HH1,3;3,KC,4;2,GO010,2;7,011,5;2,DH11,5;0,HI010,1;0,CIC,1;0,CO11,2
 ;;30;0,BLJ1,2;0,MHB01,5;0,HD10,1;1,BEH10,3;0,KO,6;0,GPDL,1;3,CBO,3;3,PC,3;0,DHC,3;0,LB1,4;0,GOB00,0;0,OBMD,0;0,HAC0,0;0,DHB00,0;0,BLI11,0;0,EOA100,0;0,HID,0;2,AH,0;0,LAF,0;0,DLB1,0;0,FGB01,0;0,HM010,0;0,CLC,0;0,PLL11,0;4,PL,2
 ;;30;0,HHN111,0;0,KME,0;0,DIB01,0;0,CHB01,0;0,NMD1,0;0,KAC0,0;0,OCHC,0;0,OMC0,0;4,CL11,0;0,OPL011,0;0,HGC1,0;10,C,0;0,BHL,0;4,PJ1,0;0,HD011,0;0,NMJN1,0;4,OM10,0;0,PIF,0;0,KDID,0;0,OI011,0;0,DHFA011,0;13,10,0;0,LM10,0;0,JMC1,0
 ;;30;0,OG010,0;0,CIB1,0;11,D,0;0,OGJO,0;6,HI10,0;0,EI011,0;0,CP10,0;7,B00,0;5,BMC,0;5,CL010,0;6,DL010,0;5,DL11,0;5,HH0,0;0,NPHB01,0;0,BHC,0;0,DP011,0;0,BMB0,0;0,EOJNDI11,0;4,HG11,0;0,ONN111,0;0,GH11,0;0,CL11,4;14,11,0;0,CJ111,0
 ;;30;0,CO011,0;0,FAJME,0;0,OBDI101,0;0,FAHA11,0;0,GPMB1,0;3,AE,0;3,BM010,0;0,OCID,0;0,EOEO011,0;0,EODH011,0;0,FAFB0,0;0,OAOC,0;0,OAKD,0;0,BGA11,0;0,OAC1,0;0,OMOD,0;0,OMJP,0;0,FAHH0,0;3,ODI10,0;0,OAGP1,0;0,FADH10,0;0,FAGO011,0
 ;;30;3,CI011,0;0,EONM011,0;0,BCB1,0;0,HHM010,0;2,KAF,0;0,MO11,0;0,ONLL,0;4,BFP,0;0,MI11,0;0,FAOA11,0;2,DHB1,0;3,CL10,0;0,JOID,0;2,BFN1,0;3,BFO,0;0,GOKA10,0;0,OAJO,0;0,PANP,0;2,KCH10,0;0,OANN1,0;2,CID,0;0,HBE010,0;6,HH1,0
 ;;30;0,AJH1,0;0,EPDI101,0;3,DM10,0;0,AJB0,0;0,NNMB1,0;0,FDB1,0;3,PBD110,0;0,ODHB1,0;0,PDM11,0;0,NNEDH11,0;0,KBDI11,0;0,KCHD,0;0,OBHD,0;0,PJF110,0;0,OBGB1,0;0,DOD,0;0,OBN110,0;3,FGKO,0;3,FO011,0;5,FM11,0;0,PNF111,0;4,FO11,0
 ;;30;0,EHD,0;5,LC,0;4,CM010,0;5,PB1,0;4,LB1,0;4,CH011,0;8,OP,0;0,FAB11,0;0,NNDI100,0;3,GOKC,0;0,EOHA011,0;0,BBM11,0;3,FANO,0;0,OBLJ1,0;0,NNGCI11,0;0,NPIJP,0;0,ODHJP,0;0,HAJM10,0;0,ONM010,0;0,OCL011,0;0,FEC,0;0,FAON1,0;0,OOI011,0
 ;;30;0,FBNKI11,0;0,FJNL,0;0,OOL10,0;3,BGD,0;3,CHD,0;4,OP,4;3,JPI10,0;0,HO011,0;4,DI011,0;0,NB0,0;3,FAJND110,0;0,OBEA11,0;0,NPIOD,0;0,NOINP,0;0,ODINP,0;0,FBMHB1,0;0,FGOB1,0;0,FAKCH10,0;0,EOGO010,0;4,OH1,0;6,ON1,0;0,NNDOO011,0
 ;;30;9,B1,0;3,NOI10,0;3,DO11,0;0,ODIC,0;0,NMHB1,0;0,NNMCH11,0;0,OBGCH11,0;0,PM011,0;0,FBMCH011,0;0,NOHB1,0;4,HN1,0;0,NOLD,0;0,FBNJ0,0;3,EOOC,0;3,ONE010,0;0,NMOB1,0;3,DID,0;0,NMPD,0;0,EODI10,0;0,JPIC,0;0,NNHL,0;0,JNDI101,0
 ;;30;2,HAJN1,0;0,FBDI11,0;5,DI10,0;0,NMKP,0;2,BGC,0;0,PBFL,0;2,BGP,0;2,HD11,0;0,EOLI10,0;0,CIEO11,0;0,FBEB0,0;0,KANO,0;0,EOFA11,0;0,KNL110,0;0,KCI011,0;0,OPO11,0;0,BNJ1,0;0,PDHD,0;4,DO010,0;6,LJ0,0;6,CH11,0;7,PD,0;2,FDD,0
 ;;30;4,BGB0,0;0,FDFB0,0;3,HA010,0;4,ODL010,0;0,LJE010,0;0,JMOC,0;5,PK,0;3,DL011,0