home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / bbs / ff810.lha / FF810 / Amiga_E / Sources / Projects / YaxSrc / io.yax < prev    next >
Text File  |  1993-01-24  |  413b  |  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.