HP3000-L Archives

October 2003, Week 4

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:
Re: Modern equivalent to old RCL command
From:
Jeff Kell <[log in to unmask]>
Reply To:
Jeff Kell <[log in to unmask]>
Date:
Thu, 23 Oct 2003 18:31:30 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (31 lines) 
Paul H. Christidis wrote:
> Does anyone know of a similar command that will invoke the more 'modern'
> file transfer menu?  I'm looking for something that would be equivalent to
> the user pressing the file transfer icon on the emulator's menu bar.

This is very raw, brute force... MPE command file

> parm target source
> anyparm rest=NULL
> setvar _cmd chr(27)+"&oCRECEIVE !target FROM !source DELETE "
> if "!rest" <> "NULL" then
>    setvar _cmd _cmd+"!rest"
>    endif
> setvar _cmd _cmd+chr(13)
> input _startup,prompt="!_cmd"
> !_startup
> set echo=off
> input _rcode
> set echo=on
> if "!_rcode" = "S" then
>    echo *** Download was successful ***
> elseif "!_rcode" = "F" then
>    echo *** Download failed ***
> else
>    echo *** Download FAILED strangely !_rcode***
> endif
> deletevar _@

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2