diff options
Diffstat (limited to 'minie/test9.e')
-rw-r--r-- | minie/test9.e | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/minie/test9.e b/minie/test9.e index c72ff17..e7ce804 100644 --- a/minie/test9.e +++ b/minie/test9.e @@ -6,14 +6,20 @@ var len : integer; i : integer; s : array[64] of char; + d : array[64] of char; c : char; begin i := 0; len := length( s ); + c := system.readchar( ); + (* C EOF is no char( 0 ) in e *) while ( i < len ) and ( c <> char( 0 ) ) do - c := system.readchar( ); s[i] := c; - i := i + 1 - end + i := i + 1; + c := system.readchar( ) + end; + (* prints garbage *) + system.writeline( s ); + (* doesn't work currently: d := s *) end |