ð‰Syntax10.Scn.Fnt-Syntax10b.Scn.FntC H?ÐWH’MODULE Input; (* MH *) IMPORT Win32; CONST TimeUnit* = 1000; VAR maxX, maxY: INTEGER; (* Mouse Limits *) PROCEDURE Available* (): INTEGER; BEGIN RETURN Win32.Available() END Available; PROCEDURE Read* (VAR ch: CHAR); BEGIN Win32.GetChar(ch) END Read; PROCEDURE Mouse* (VAR keys: SET; VAR x, y: INTEGER); BEGIN Win32.Mouse(keys, x, y); IF x > maxX THEN x := maxX ELSIF x < 0 THEN x := 0 END ; IF y > maxY THEN y := maxY ELSIF y < 0 THEN y := 0 END ; END Mouse; PROCEDURE SetMouseLimits* (w, h: INTEGER); BEGIN maxX := w - 1; maxY := h - 1; END SetMouseLimits; PROCEDURE Time* (): LONGINT; BEGIN RETURN Win32.GetTickCount(); END Time; END Input.