define var pBuffer as memptr no-undo.
define var str as char no-undo.
define var i as int no-undo.
/* create test file */
output to test.prn /*** binary no-convert */ .
put unformatted "~n".
/* put skip(1). */
output close.
/* read test file */
set-size( pBuffer ) = 1000.
input from test.prn binary no-convert.
import pBuffer.
str = get-string( pBuffer, 1 ).
input close.
set-size( pBuffer ) = 0.
/* display file content */
repeat i = 1 to length( str ):
display i asc( substr( str, i, 1 ) ).
end. /* repeat */