HP3000-L Archives

June 1998, Week 1

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Gary Nolan <[log in to unmask]>
Reply To:
Gary Nolan <[log in to unmask]>
Date:
Wed, 3 Jun 1998 11:16:32 -0300
Content-Type:
text/plain
Parts/Attachments:
text/plain (47 lines)
Hi Kevin,
This is the method I use. It was give to me by the response center many moons ago.

Define(item)
       CAR-ESC                  I(4),INIT=27:
           ESC                  X(1)=CAR-ESC(2):

The 27 is the decimal value for an escape character so this should work with any special characters you wish to use.

Gary Nolan
Sydney Steel Corporation
Sydney, Nova Scotia
Canada

------Is it Friday yet.


-----Original Message-----
From:   Newman, Kevin: [SMTP:[log in to unmask]]
Sent:   June 2, 1998 7:00 PM
To:     [log in to unmask]
Subject:        Transact question

I'm writing some code in Transact where I would like to include a '"'
(double quote mark) in the display.  I can define things like the
following, but I don't know what the value should be in order to get a
quotation mark.  How do I figure these things out?  What if I needed a
tab instead?


define(item)
   quote x(2):
    quote-i i(2)=cr(1);

list
   quote,init;

let (quote-i) = ????;


TIA,

Kevin


ps: the value for carriage return is 3360.

ATOM RSS1 RSS2