I am definitely running Cache on XP. I have never used Open or Close on this configuration. I only use ^%ZIS, ^%ZISH, and ^%ZISC. So I have not tried to do what you are trying to do.

I will also add that I contacted Epson tech support to try to figure out some of the parameters. I got a reply back from tech support saying that the printer could not be made to work from a Cache terminal emulation screen.

Jim Gray

----- Original Message ----- From: "Daniel Gray" <[EMAIL PROTECTED]>
To: <hardhats-members@lists.sourceforge.net>
Sent: Wednesday, March 22, 2006 10:58 PM
Subject: RE: [Hardhats-members] Cache/Printer Definition


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=k&kid0944&bid$1720&dat1642
_______________________________________________
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

Reply via email to