Code: Select all
; read data into intermediate file
(set 'infile (open "upload-file" "write"))
(while (!= (read-buffer (device) 'buffer 1024) 0)
(write-buffer infile buffer))
(close infile)
Code: Select all
; read data into intermediate file
(set 'infile (open "upload-file" "write"))
(while (!= (read-buffer (device) 'buffer 1024) 0)
(write-buffer infile buffer))
(close infile)