<<< EISNER::DUA2:[NOTES$HIVOL]VMS.NOTE;1 >>> -< VMS and bundled utilities >- ================================================================================ Note 1569.18 SET PIXEL from VMS??? 18 of 18 EISNER::BROWN_DU "Duncan F Brown" 23 lines 22-DEC-1991 22:23 -< extract to a com file and run on a VT420! >- -------------------------------------------------------------------------------- $ csi[0,8] = 155 $ dcs[0,8] = 144 $ esc[0,8] = 27 $ si[0,8] = 15 $ so[0,8] = 14 $ st[0,8] = 156 $ devtype = f$getdvi("tt", "devtype") $ if (devtype .eq. %x71) then goto vt400 $ write sys$output "Sorry, this procedure won't work for you." $ exit $! $! $ vt400: $ font_1 = dcs + "1;3;1;;;2{1" + - "???}{_}}U]/????@@~~~^/???GKNNNN?;" + - "U{w_??????/~~~@BEMG??/NNNNKG????;" + st $! $ write sys$output "''font_1'" $ prompt = esc + ")1" + so + "#$" + esc + ")1" + si + - csi + "0m " $ set prompt = "''prompt'" $ exit