fix in writing of prompt
This commit is contained in:
parent
628b9699e8
commit
bda28533c5
1 changed files with 1 additions and 0 deletions
|
@ -307,6 +307,7 @@ IMPLEMENTATION MODULE InOut ;
|
||||||
LOOP
|
LOOP
|
||||||
IF (i <= HIGH(s)) AND (s[i] # 0C) THEN
|
IF (i <= HIGH(s)) AND (s[i] # 0C) THEN
|
||||||
Streams.Write(Streams.OutputStream, s[i], result);
|
Streams.Write(Streams.OutputStream, s[i], result);
|
||||||
|
INC(i);
|
||||||
ELSE
|
ELSE
|
||||||
EXIT;
|
EXIT;
|
||||||
END;
|
END;
|
||||||
|
|
Loading…
Add table
Reference in a new issue