HP3000-L Archives

September 2003, Week 2

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:
"Emerson, Tom" <[log in to unmask]>
Reply To:
Emerson, Tom
Date:
Thu, 11 Sep 2003 15:08:52 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (29 lines)
> -----Original Message-----
> From: Larry Barnes [mailto:[log in to unmask]]
[...]
> Is there a command I can use to open and read a file on the 
> 3000?  I'm trying to write a macro to accomplish this and 
> I've run out of ideas.

Ummm, perhaps the MPE command "PRINT"?

        with r1
                .processdatacomm = false ' keeps chars from falling through the calls...
                .transmit "PRINT <whatever>" & vbCRLF
                while not myeof 
                        buffer = .readline(<timeout>,<options>,<recvdLF>)
                        if buffer = "MPE/iX:" then myeof = true
                         ' if we got the MPE prompt, then the "print" command is done
                        if not (recvdLF) then myeof = true ' the third parm returns  as FALSE
                                ' if the function "times out" before a terminator was received;
                                ' in this case, the system is either really busy, or more
                                ' likely you've reached the end of the file
                        '[whatever other processing you want]
                wend
                .waitforhosttrigger
                .processdatacomm = true 'switch it back
        end with

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

ATOM RSS1 RSS2