In article <
71f38adc-536e-4757...@googlegroups.com>,
kga...@gmail.com says...
[#def CHARACTER struct
begin
byte ampb value 38;
char amp redefines ampb;
end;
]
#output [CHARACTER:amp]
== similar with 6530 control codes
[#def T6530 struct
begin
byte b0(0:1) value 27 73 ;
char clear(0:1) redefines b0;
byte b1(0:1) value 27 111 ;
char line25(0:1) redefines b1;
end;
]
[#output [T6530:line25(0:1)] Line 25 Text ]
==
== have tacl put session info on line 25
==
?section _prompter routine
#frame
#push _text
[#def T6530 struct
begin
byte b0(0:1) value 27 73 ;
char clear(0:1) redefines b0;
byte b1(0:1) value 27 111 ;
char line25(0:1) redefines b1;
end;
]
#set _text [#DEFAULTS] [#MYTERM] [#USERNAME [#PROCESSINFO/PAID/]]
#set _text [_text] [#PROCESSINFO/processid/]
#set _text [#SHIFTSTRING /down/ [_text] ]
[#output [T6530:line25(0:1)] [_text] ]
#unframe