home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / dev / amiga_e-2.1b.lha / Amiga_E-2.1b / Sources / Projects / YaxSrc / io.yax < prev    next >
Encoding:
Text File  |  1993-10-05  |  413 b   |  17 lines
  1. /* _very_ slow "filecopier". just to demo io-functions */
  2.  
  3. (string s)
  4. (window 0 11 400 100 'filecopy')
  5. (write 'let me copy a file for you to ram:')
  6. (write 'file: ' '')
  7. (read s)
  8. (if (greater (filelen s) 0)
  9.   (do
  10.     (write 'copying file "' s '" to "ram:x" ...')
  11.     (see s) (tell 'ram:x')
  12.     (while (uneq (put (get)) -1))     /* put doesn't write -1, only 255 */
  13.     (seen) (told)
  14.   )
  15.   (write 'no such file!')
  16. )
  17.