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)