Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!cs.utexas.edu!uunet!willett!ForthNet
From: ForthNet@willett.UUCP (ForthNet articles from GEnie)
Newsgroups: comp.lang.forth
Subject: for us beginners?  Help
Message-ID: <245.UUL1.3#5129@willett.UUCP>
Date: 11 Jan 90 01:28:49 GMT
Organization: Latest Link in ForthNet Chain (Pittsburgh, PA)
Lines: 37

Category 2,  Topic 5
Message 181       Tue Jan 09, 1990
C.WEIMANN1 [Kong]            at 21:26 EST
 
After years of reading about the forth language i finally have started  to
actually do something with it. (F-PC was a great help in starting me) I have
however a problem with the F-PC file handling and any help would be greatly
appreciated. problem follows in F-PC source. \ fio.seq    Christopher S.
Weimann   01/08/90 20:34:32.35 comment:

   The following word [blankrec] only work the first time it is executed  

comment;

anew fio.seq

   create rbuf 2048 allot
   1024 rbuf !
   read-write
   handle tofile

: blankrec ( --- )
   " test.seq" ">$ tofile $>handle tofile
   hopen
      abort" Couldn't Open file!"
      pad 1024 blank
      pad 1024 tofile hwrite .
      tofile
   hclose ;


*p i suspect the hclose but can't figure out why it won't run twice. it seems
to work if the file is not closed and reopened but i  can't belive that is a
limitation. What am i doing wrong?? thanks in advance
-----
This message came from GEnie via willett through a semi-automated process.
Report problems to: 'uunet!willett!dwp' or 'willett!dwp@gateway.sei.cmu.edu'