cQPR	;Test Printer ;cQPR;
	;
1	S:'$D(Q) Q="EA" D ^cA604 X F70 W !!!,@F80
	;
2	S B(1)=$$SIGN^cAFA1("SYS.PRINT",PTS(1),0),X=16
	W !!,"*** Fonts ***",!!
	W "Printer",?X,$P(B(1),"\",2),!
	W "Name",?X,$P(B(1),"\",3),!
	W "Data-M Code",?X,$P(B(1),"\",4),!
	;
	D P("Line Printer","(0N",0)
	;D P("Courier","(0N",3)
	;D P("Helvetica","(0N",4)
	;D P("Script","(0N",7)
	;D P("Prestige","(0N",8)
	;D P("OCR-B","(1O",110)
	D P("Courier New","(0N",4099)
	D P("Courier New Bd","(0N",4099,1)
	D P("LetterGothic","(0N",4102)
	D P("LetterGothic Bd","(0N",4102,1)
	D P("AntiqOlive","(0N",4168)
	D P("AntiqOlive Bd","(0N",4168,1)
	;D P("Univers","(0N",4148)
	;D P("AntiqOlive Bd","(0N",4168)
	;D P("Arial/Helsinki","(0N",16602)
	;
9	W # X F71 W !!,"Done...",!!
	;
YZ	Q
	;
P(N,S,T,B)	;Font N = Symbol set S, Typeface T
	S N=$G(N),S=$G(S),T=$G(T),B=$G(B,0),Y=$G(Y)+400 Q:'$L(N)  Q:'$L(S)  Q:'$L(T)
	W @F83   	;Normal
	W $C(27),S,$C(27),"&u600D",$C(27),"*t600R"
	W $C(27),"(s",T,"t0b0s10.00h0P" I B W $C(27),"(s7B"
	W $C(27),"*p235x",680+Y,"Y","Symbol set ",S,", Pitch: 10cpi, Typeface ",T," = ",N,!
	W $C(27),"*p",880+Y,"Y"
	S P="235;298;361;424;488;551;614;678;741;804;868;931;995;1058;1121;1185;1249;1312;1375;1438;1502;1565;1628;1692;1755;1818;1882;1945;2009;2072;2135;2199;2263;2326;2389;2452;2516;2579;2642;2706;2769;2832;2896;2959;3023;3086;3149;3213;3277;3340;3403;3466;3530;3593;3656;3720;3783;3846;3910;3973;4037;4100;4163;4227;4291;4354;4417;4480"
	F I=48:1:48+66 W $C(27),"*p",$P(P,";",I-47),"X",$C(I)
	;F I=48:1:48+66 W $C(27),"*p",$P(P,";",I-47)+7,"X",$C(I)
PZ	Q
	;
DM(P,M)	;Display message M on printer P
	S P=$G(P),M=$G(M)
	I '$L(P) W "Usage:",!,"Do "_$T(+0)_"(printer,message)",! Q
	I $L(M)>16 W !,"Message will be truncated! Display will show:",!,$E(M,1,16)
	S ESC=$C(27),CR=$C(13),LF=$C(10)
	O "|PRN|"_P U "|PRN|"_P:0
	;
	W ESC,"%-12345X"
	W "@PJL JOB",CR,LF
	W "@PJL RDYMSG DISPLAY=""",M,"""",CR,LF
	W "@PJL EOJ%",CR,LF
	W ESC,"%-12345X"
	C "|PRN|"_P
DMZ	Q
	;
SPK	;Set parameter KYO
	S QU=$G(QU,"SU"),Q=$G(Q,"EA") D ^cA604 X F70 W @F80
	W "!R! FRPO X9,1; EXIT !R!",!
	X F71
SPKZ	Q
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9