Typo
[packages/base.git] / tests / echo001.stdout
1 False
2 MODULE MAIN(MAIN) WHERE
3
4 IMPORT SYSTEM.IO
5 IMPORT DATA.CHAR
6
7 MAIN = DO
8   IST <- HISTERMINALDEVICE STDIN
9   FLG <- IF NOT IST THEN RETURN FALSE ELSE HGETECHO STDIN
10   PRINT FLG
11   IF NOT IST THEN HSETECHO STDIN FALSE ELSE RETURN ()
12   HSETBUFFERING STDIN NOBUFFERING
13   INTERACT (MAP TOUPPER)
14