\ Load a file into an allocated memory image.
: $LOAD.FILE { $filename | fid numbytes numread err data -- data-addr 0 | 0 err }
$filename count r/o open-file -> err -> fid
." $LOAD.FILE - Could not open input file!" cr
fid file-size -> err -> numbytes
." $LOAD.FILE - File size failed!" cr
." File size = " numbytes . cr
\ allocate memory for sample, when done free memory using FREE
numbytes allocate -> err -> data
." $LOAD.FILE - Memory allocation failed!" cr
data numbytes fid read-file -> err
." Read " . ." bytes from file " $filename count type cr
\ Example: c" myfile" $load.file abort" Oops!" free .