- XUDHUTL ;ISF/RWF - Some device Utilities. ;09/02/10 17:22
- ;;8.0;KERNEL;**543**;Jul 10, 1995;Build 15
- 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUDHUTL 445 printed Feb 18, 2025@23:35:44 Page 2
- XUDHUTL ;ISF/RWF - Some device Utilities. ;09/02/10 17:22
- +1 ;;8.0;KERNEL;**543**;Jul 10, 1995;Build 15
- +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