| NAME |
PK-DEC80-SDP |
| RIGHT MARGIN |
80 |
| CLOSE PRINTER PORT |
S EOF="I $ZA&(%2="""")" U IO S IOP=^TMP("SDP",$J,"ION")_";"_^("IOM")_";"_IOST,%1=^("COPIES"),ZZFF="I $T U IO W:$Y @IOF U IO(0)" |
| FORM FEED |
# |
| PAGE LENGTH |
66 |
| BACK SPACE |
$C(8) |
| OPEN EXECUTE |
I '$D(ZTQUEUED) N (DTIME,DUZ) S %IO=$I,%ZIS="NQ",%ZIS("B")="" X "U $P" R !,"NUMBER OF COPIES: ",COPIES:60 W !,"OUTPUT TO DEVICE" D ^%ZIS U %IO Q:POP F %="ION","IO","IOS","IOM","IOST","COPIES" S ^TMP("SDP",$J,%)=@% |
| CLOSE EXECUTE |
I '$D(ZTQUEUED) N %ZISV,%ZISOS,EOF,ZZFF X ^%ZIS(2,+IOST(0),11) D ^%ZIS Q:POP X "F %=1:1:%1 U IO(0):(DISCONNECT:NOTRAP) F U IO(0) R %2 X EOF,ZZFF,EOF Q:$T U IO W:$A(%2)'=12 ! W %2" D ^%ZISC X "S IO(0)=$P U IO(0)" |
| DESCRIPTION |
DEC printer with 80 columns |
