Subject: | |
From: | |
Reply To: | |
Date: | Thu, 27 Sep 2001 13:55:48 -0400 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
On Thu, 27 Sep 2001 17:38:28 +0100, Robert Mills <robert.mills@WINDSONG-
SERVICES.CO.UK> wrote:
>The following Reflection Basic code will create a variable on the HP3000.
>Can't get it to work if stored and run from the host (yet). As they say
>'Watch This Space'.
>
>Sub Main
> With Application
> .Transmit "setvar NetworkUserName '" & .PCUserName & "'" & Chr$(rcCR)
> End With
> End Sub
>
using that as a jumping off point, I found the following works at the
command prompt:
setvar esc chr(27)
echo !esc&oG
echo sub main
echo application.transmit "pcusername" & chr$(rcCR)
echo end sub
echo !esc&oH
input uname
echo You logged onto your PC as !uname
(this is kept as the file "pcuname")
:pcuname
pcusername
You logged onto your PC as pcusername
:
Note I've quoted "pcusername", thus making it a literal string -- I tried
application.username, however my copy of reflection (5.2) does not think
that "pcusername" is a component of the "application" class -- YMMV
BUT, this excersise DID point out a cool thing or two, namely, the
esc&oG / esc&oH
strings allow MULTIPLE messages to be passed to the PC, eventually
executing as an entire RBS subroutine. (I guess I'm to "old school" -- I'm
used to the concept of the entire "command" needing to be passed as a
single string from the HP to the PC...)
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
|
|