Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XUDHUTL

XUDHUTL.m

Go to the documentation of this file.
  1. XUDHUTL ;ISF/RWF - Some device Utilities. ;09/02/10 17:22
  1. ;;8.0;KERNEL;**543**;Jul 10, 1995;Build 15
  1. Q
  1. ;
  1. PTEST ;Send a test pattern to a printer
  1. N X,Y,DIR,DIRUT,DUOUT,DTOUT,XUDH1
  1. S DIR(0)="N^1:66",DIR("A")="How Many Lines" D ^DIR Q:$D(DIRUT)
  1. S XUDH1=Y,X("XUDH1")="",%ZIS="QM"
  1. D EN^XUTMDEVQ("PT1^XUDHUTL","Printer Test",.X,.%ZIS)
  1. Q
  1. ;
  1. PT1 ;Do the print
  1. N X,I
  1. U IO
  1. F X=XUDH1:-1 W ! Q:'X F I=1:1:IOM W $C(I+X#96+32)
  1. Q