home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / forst / redir.s < prev    next >
Encoding:
Text File  |  1993-10-23  |  416 b   |  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.