XUDHUTL.m

XUDHUTL ;ISF/RWF - Some device Utilities. ;09/02/10  17:22

 ;;8.0;KERNEL;**543**;Jul 10, 1995;Build 18

 Q

 ;

PTEST ;Send a test pattern to a printer

 N X,Y,DIR,DIRUT,DUOUT,DTOUT,XUDH1

 S DIR(0)="N^1:66",DIR("A")="How Many Lines" D ^DIR Q:$D(DIRUT)

 S XUDH1=Y,X("XUDH1")="",%ZIS="QM"

 D EN^XUTMDEVQ("PT1^XUDHUTL","Printer Test",.X,.%ZIS)

 Q

 ;

PT1 ;Do the print

 N X,I

 U IO

 F X=XUDH1:-1 W ! Q:'X  F I=1:1:IOM W $C(I+X#96+32)

 Q

XUDHUTL   ;ISF/RWF - Some device Utilities. ;09/02/10  17:22

 +1       ;;8.0;KERNEL;**543**;Jul 10, 1995;Build 18

 +2        QUIT 

 +3       ;

PTEST     ;Send a test pattern to a printer

 +1        NEW X,Y,DIR,DIRUT,DUOUT,DTOUT,XUDH1

 +2        SET DIR(0)="N^1:66"

           SET DIR("A")="How Many Lines"

           DO ^DIR

           IF $DATA(DIRUT)

               QUIT 

 +3        SET XUDH1=Y

           SET X("XUDH1")=""

           SET %ZIS="QM"

 +4        DO EN^XUTMDEVQ("PT1^XUDHUTL","Printer Test",.X,.%ZIS)

 +5        QUIT 

 +6       ;

PT1       ;Do the print

 +1        NEW X,I

 +2        USE IO

 +3        FOR X=XUDH1:-1

               WRITE !

               IF 'X

                   QUIT 

               FOR I=1:1:IOM

                   WRITE $CHAR(I+X#96+32)

 +4        QUIT