blob: a9d7699954de98519f66ceb28bac219247462487 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
False
MODULE MAIN(MAIN) WHERE
IMPORT SYSTEM.IO
IMPORT DATA.CHAR
MAIN = DO
IST <- HISTERMINALDEVICE STDIN
FLG <- IF NOT IST THEN RETURN FALSE ELSE HGETECHO STDIN
PRINT FLG
IF NOT IST THEN HSETECHO STDIN FALSE ELSE RETURN ()
HSETBUFFERING STDIN NOBUFFERING
INTERACT (MAP TOUPPER)
|
