mf1	;create printdriver Toshiba ;
	;
1	M ^cDATA(0,"DEV.PRT","Tpn2")=^cDATA(0,"DEV.PRT","Gpn2")
	M ^cDATA(0,"DEV.PRT","Tpc2")=^cDATA(0,"DEV.PRT","Gpc2")
	M ^cDATA(0,"DEV.PRT","Tln2")=^cDATA(0,"DEV.PRT","Gln2")
	M ^cDATA(0,"DEV.PRT","Tlc2")=^cDATA(0,"DEV.PRT","Glc2")
	;
2	S ^cDATA(0,"DEV.PRT","Tpn2",0)="Tpn2\TOSHIBA PCL4 (ev) Portr. Norm. Lade 2"
	S ^cDATA(0,"DEV.PRT","Tpc2",0)="Tpc2\TOSHIBA PCL4 (ev) Portr. Cond. Lade 2"
	S ^cDATA(0,"DEV.PRT","Tln2",0)="Tln2\TOSHIBA PCL4 (ev) Land. Norm. Lade 2"
	S ^cDATA(0,"DEV.PRT","Tlc2",0)="Tlc2\TOSHIBA PCL4 (ev) Land. Cond. Lade 2"
	;	
3	F I="Tpn2","Tpc2","Tln2","Tlc2" D
	. S K=^cDATA(0,"DEV.PRT",I,"F80")
	. S L=$P(K,"&l1H",1)_"&l21H"_$P(K,"&l1H",2)
	. S ^cDATA(0,"DEV.PRT",I,"F80")=L
	;
4	S ^cINDEX(0,"DEV.PRT",101,"TPN2 Tpn2")="Tpn2"
	S ^cINDEX(0,"DEV.PRT",101,"TPC2 Tpc2")="Tpc2"
	S ^cINDEX(0,"DEV.PRT",101,"TLN2 Tln2")="Tln2"
	S ^cINDEX(0,"DEV.PRT",101,"TLC2 Tlc2")="Tlc2"
	;
YZ	Q
	;
ZZ	; 14.01.2005 - 16 u 03