I get the following error with the program listed below:
0c:/nano/tmp2.exe: could not read all the data from file `tmp.txt' in `BlockRead' (#414)
Seems that it prints the first character, but then ends unexpectedly. The file tmp.txt is below the program.
{--- Cut here for tmp2.pas ---} program Tmp2;
var F : File; Ch : Char;
begin Assign( F, 'tmp.txt' ); Reset( F, 1 ); while not EOF(F) do begin BlockRead( F, Ch, 1 ); Write( Ch ); end; Close( F ); end. {--- Cut here ---}
{--- Cut here for tmp.txt ---} 0x3dF 0X3Af ++ TestOJL, ++= 1e0 1.2 22.3e-3 309 , _1234567890_1234567890_1234567890_1234567890_1234567890_1234567890 _Testing_123 This_is_a_really_long_variable_in_fact_only_part_of_it_will_be_kept_the_rest_will_be_ignored ' ' '' '''' print( 'foo' ) foo 'a string' 'another string' __test__
== -= <<
=
if main print() endmain {--- Cut here ---}
See ya! Orlando Llanes
"Meine Damen und Herren, Elvis hat soeben das Gebaeude verlassen!"
"Look out fo' flyeeng feet" O__/ a010111t@bc.seflin.org /|____. O <__. /> / \ ____________|_________ http://ourworld.compuserve.com/homepages/Monkey414