KFOLE G 1 ;INSTELLEN FORMS-LENGTH ;KFOLE; [ 11/29/2003  1:12 PM ]
 ;
1 S X=$P($G(^cLOG(boot,"DEV",$$DEV^vhPRINTER($I,1))),D,2)
11 I X="O5" W *27,2,@("*"_R) ;PRINTER OKI 2350
13 I X="BR" U $I:(::::4096) W *27,"C",@("*"_R) ;PRINTER BROTHER
 I X="BO" U $I:(::::4096) W *27,"C",@("*"_R) ;PRINTER BROTHER
15 I X="IW" W *27,"H",R ;PRINTER IMAGE-WRITER
 ;
YZ Q
 ;