home *** CD-ROM | disk | FTP | other *** search
/ Dream 48 / Amiga_Dream_48.iso / Atari / forth / forst.zoo / forst / lib / redir.s < prev    next >
Text File  |  1990-12-10  |  416b  |  19 lines
  1. ( redirect.s: console i/o redirection)
  2.  
  3. decimal
  4.  
  5. file f1
  6. file f2
  7.  
  8. : namearg  32 word  0 over count + c! 1+ ;
  9.  
  10. : file>  f1 0 namearg fopen  f1 src ! ;
  11. : console>  src @ fclose  0 src ! ;
  12.  
  13. : >console  dest @ abs fclose  1 dest ! ;
  14. : >file  f2 1 namearg fopen  f2 dest ! ;
  15. : >tee  f2 1 namearg fopen  f2 negate dest ! ;
  16. : >printer  f2 1 " prn:" drop fopen  f2 dest ! ;
  17.  
  18. hide f1  hide f2  hide namearg
  19.