Path: utzoo!utgpu!watserv1!watmath!att!att!linac!pacific.mps.ohio-state.edu!tut.cis.ohio-state.edu!pt.cs.cmu.edu!dsl.pitt.edu!pitt!willett!ForthNet
From: ForthNet@willett.pgh.pa.us (ForthNet articles from GEnie)
Newsgroups: comp.lang.forth
Subject: PYGMY Forth
Message-ID: <1952.UUL1.3#5129@willett.pgh.pa.us>
Date: 4 Nov 90 00:27:08 GMT
Organization: String, Scotch tape, and Paperclips.  (in Pgh, PA)
Lines: 19

Category 1,  Topic 45
Message 55        Sat Nov 03, 1990
F.SERGEANT [Frank]           at 14:29 CST
 
 JB>I'm having a little problem with PYGMY Forth. What I want to do is 
 JB>simple. I want to read a binary file, alter the filepointer to skip 
 JB>some header bytes, and copy the rest of the file to a diskfile or 
  Here is how I would approach it.  Suppose I just want to read the  file
PYGMY.TXT into a buffer.
    NAMEZ: PYGMY.TXT      ( define the name)
    3000 PYGMY.TXT 6 UNIT 6 OPEN     ( install & open the file)
    6 >BOF                           ( move to the beginning of file)
    100   6 +POSITION                ( skip past the 1st 100 bytes)
    PAD 200 6 FILE-READ    ( read the next 200 bytes into a buffer)
    HEX PAD 50 DU          ( DUmp the buffer to the screen )
  -- Frank
-----
This message came from GEnie via willett through a semi-automated process.
Report problems to: dwp@willett.pgh.pa.us or uunet!willett!dwp