James G: Thank you for your prompt reply. I'm wondering from your $I if you might be running GTM/Linux, not Cache/XP. I tried what you said, and it would not open the device. Are you Cache/XP ? Maybe something else is wrong.
This code works: VISTA>S DEV="|PRN|" VISTA>O DEV:(/datatype="TEXT") VISTA>F I=1:1:10 U DEV W !,I," hello" VISTA>C DEV At this point the printer prints the lines, at no time does the windows flash screen appear, so there is no option to choose orientation, etc. I can't figure out how to set open parameters to include datatype="TEXT" I also don't know if there are other parameters that can be set. -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of James Gray Sent: Tuesday, March 21, 2006 6:43 PM To: hardhats-members@lists.sourceforge.net Subject: Re: [Hardhats-members] Cache/Printer Definition I assume you mean in the VistA device file. I have this. NAME: EPSON C86 $I: |PRN|\\Grayfirst\EPSON Stylus C86 Series ASK DEVICE: YES ASK PARAMETERS: YES VOLUME SET(CPU): EHRD LOCATION OF TERMINAL: DESK PAGE LENGTH: 59 SUBTYPE: P-OTHER80 TYPE: TERMINAL Terminal type file NAME: P-OTHER80 RIGHT MARGIN: 80 FORM FEED: # PAGE LENGTH: 64 BACK SPACE: $C(8) *OLD XY CRT: W $C(27,91)_((DY+1))_$C(59)_((DX+1))_$C(72) HOME CURSOR: $C(27,91,72) REVERSE VIDEO ON: $C(27,91,55,109) REVERSE VIDEO OFF: $C(27,91,50,55,109) ERASE TO END OF LINE: $C(27,91,75) ERASE TO END OF PAGE: $C(27,91,74) BLINK ON: $C(27,91,53,109) BLINK OFF: $C(27,91,50,53,109) RESET: $C(27)_"[!p" UNDERLINE ON: $C(27,91,52,109) UNDERLINE OFF: $C(27,91,50,52,109) SGR ATTRIBUTES OFF: $C(27,91,109) HIGH INTENSITY (BOLD): $C(27,91,49,109) LOW INTENSITY (UNBOLD): $C(27,91,50,50,109) NORMAL INTENSITY (RESET): $C(27,91,50,50,109) INSERT MODE: $C(27,91,52,104) REPLACE MODE: $C(27,91,52,108) CURSOR UP: $C(27)_"[A" CURSOR DOWN: $C(27)_"[B" CURSOR RIGHT: $C(27)_"[C" CURSOR LEFT: $C(27)_"[D" ARROW KEY STRING LENGTH: 3 DELETE LINE: $C(27)_"[M" INSERT LINE: $C(27)_"[L" DELETE CHAR.: $C(27)_"[P" INSERT CHAR.: $C(27)_"[@" CURSOR ON: $C(27)_"[?25h" CURSOR OFF: $C(27)_"[?25l" DESCRIPTION: General 80 column printer OPEN PRINTER PORT: W *27,"[5i" CLOSE PRINTER PORT: W *27,"[4i" Enter RETURN to continue or '^' to exit: ERASE FROM BEG OF PAGE: $C(27,91,49,74) ERASE ENTIRE PAGE: $C(27,91,50,74) ERASE FROM BEG OF LINE: $C(27,91,49,75) ERASE ENTIRE LINE: $C(27,91,50,75) ERASE CHARACTER: $C(27,91,88) ERASE FIELD: $C(27)_"["_(+X)_"X" INDEX: $C(27)_"D" REVERSE INDEX: $C(27)_"M" SAVE CURSOR: $C(27,55) RESTORE CURSOR: $C(27,56) NEXT LINE: $C(27)_"E" AUTO WRAP ON: $C(27,91,63,55,104) AUTO WRAP OFF: $C(27,91,63,55,108) AUTO REPEAT ON: $C(27,91,63,56,104) AUTO REPEAT OFF: $C(27,91,63,56,108) KEYPAD APPLICATION MODE: $C(27,61) KEYPAD NUMERIC MODE: $C(27,62) TAB SET: $C(27,72) TAB CLEAR: $C(27,91,103) CLEAR ALL TABS: $C(27,91,51,103) SET TOP & BOTTOM MARGINS: $C(27,91)_(+IOTM)_$C(59)_(+IOBM)_$C(114) DOUBLE HIGH DOUBLE WIDE TOP: $C(27,35,51) DOUBLE HIGH DOUBLE WIDE BOTTOM: $C(27,35,52) SINGLE HIGH DOUBLE WIDE: $C(27,35,54) SINGLE HIGH SINGLE WIDE: $C(27,35,53) KP0: $C(27)_"Op" KP1: $C(27)_"Oq" KP2: $C(27)_"Or" KP3: $C(27)_"Os" KP4: $C(27)_"Ot" KP5: $C(27)_"Ou" KP6: $C(27)_"Ov" KP7: $C(27)_"Ow" KP8: $C(27)_"Ox" KP9: $C(27)_"Oy" Enter RETURN to continue or '^' to exit: PF1: $C(27)_"OP" PF2: $C(27)_"OQ" PF3: $C(27)_"OR" PF4: $C(27)_"OS" MINUS: $C(27)_"Om" COMMA: $C(27)_"Ol" ENTER: $C(27)_"OM" PERIOD: $C(27)_"On" FIND: $C(27)_"[1~" SELECT: $C(27)_"[4~" INSERT HERE: $C(27)_"[2~" REMOVE: $C(27)_"[3~" PREV SCREEN: $C(27)_"[5~" NEXT SCREEN: $C(27)_"[6~" HELP: $C(27)_"[28~" DO: $C(27)_"[29~" TOP LEFT CORNER: "l" BOTTOM LEFT CORNER: "m" TOP RIGHT CORNER: "k" BOTTOM RIGHT CORNER: "j" MIDDLE T: "n" TOP T: "w" BOTTOM T: "v" LEFT T: "t" RIGHT T: "u" VERTICAL LINE: "x" HORIZONTAL LINE: "q" GRAPHICS OFF: $C(27)_"(B" GRAPHICS ON: $C(27)_"(0" PRINT SCREEN: $C(27,91,105) XY CRT: W $C(27,91)_((DY+1))_$C(59)_((DX+1))_$C(72) Most of this stuff is irrelevant since it is a printer. I do not even know where it came from. This works. Jim Gray ----- Original Message ----- From: "Daniel Gray" <[EMAIL PROTECTED]> To: <hardhats-members@lists.sourceforge.net> Sent: Tuesday, March 21, 2006 6:05 PM Subject: [Hardhats-members] Cache/Printer Definition > > Can anyone give me some printer definitions that will work on a single > user > Trial version of Cache ? printer is parallel port, I'd like to be able to > alter the pitch, lines, and orientation as well. > > > > ------------------------------------------------------- > This SF.Net email is sponsored by xPML, a groundbreaking scripting > language > that extends applications into web and mobile media. Attend the live > webcast > and join the prime developer group breaking into this new coding > territory! > http://sel.as-us.falkag.net/sel?cmd=lnk&kid=110944&bid=241720&dat=121642 > _______________________________________________ > Hardhats-members mailing list > Hardhats-members@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/hardhats-members ------------------------------------------------------- This SF.Net email is sponsored by xPML, a groundbreaking scripting language that extends applications into web and mobile media. Attend the live webcast and join the prime developer group breaking into this new coding territory! http://sel.as-us.falkag.net/sel?cmd=lnk&kid=110944&bid=241720&dat=121642 _______________________________________________ Hardhats-members mailing list Hardhats-members@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/hardhats-members ------------------------------------------------------- This SF.Net email is sponsored by xPML, a groundbreaking scripting language that extends applications into web and mobile media. Attend the live webcast and join the prime developer group breaking into this new coding territory! http://sel.as-us.falkag.net/sel?cmd=lnk&kid0944&bid$1720&dat1642 _______________________________________________ Hardhats-members mailing list Hardhats-members@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/hardhats-members
