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:
Dirickson Steve <[log in to unmask]>
Reply To:
Dirickson Steve <[log in to unmask]>
Date:
Tue, 2 Jun 1998 15:33:20 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (24 lines)
I kind of lost the thread of your code, so pardon my starting from scratch.

To generate a string containing control or other
not-easy-to-specify-in-Transact characters:
1)      define an I(4,0,2), or similar, item with two X(1) children
2)      stuff your special value into the I item as a numeric value
3)      extract the *second* child field as a character

For example
define(item)   ctrl   I(4,0,2):
               cc2    X(1)=ctrl(2);
<<other definitions/declarations left as an exercise for the reader>>
let (ctrl) = 27;
move (string) = (cc2) + "&dC" + "This is blinking";
display string,nohead;

The ASCII value for the double quote character is 34 (decimal).


Steve

Steve Dirickson         WestWin Consulting
(360) 598-6111  [log in to unmask]

ATOM RSS1 RSS2