Path: utzoo!utgpu!news-server.csri.toronto.edu!clyde.concordia.ca!uunet!willett!ForthNet
From: ForthNet@willett.UUCP (ForthNet articles from GEnie)
Newsgroups: comp.lang.forth
Subject: FPC forth?????????
Message-ID: <1374.UUL1.3#5129@willett.UUCP>
Date: 22 Jul 90 23:47:16 GMT
Organization: String, Scotch tape, and Paperclips.  (in Pgh, PA)
Lines: 23

Category 1,  Topic 21
Message 82        Thu Jul 19, 1990
R.BERKEY [Robert]            at 20:50 PDT
 
 
   To: Jacob Maier
   Re: Msg of 900716
 Subj: FPC FILE READS

Here's F-PC file-reading code that worked for me.

 handle ABC                               \ make file handle

 : try-a-file-read   ( -- )
    " temp.seq" ">$ ABC $>handle         \ move file name to handle
    read-write                           \ set read-write mode
    ABC hopen abort" Can't open file!"   \ abort if can't open
    pad 80 ABC hread  ( n)               \ read (upto) 80 bytes to PAD
    pad swap type ;                      \ and display them

-----
This message came from GEnie via willett through a semi-automated process.
Report problems to: uunet!willett!dwp or willett!dwp@hobbes.cert.sei.cmu.edu