vSyntax10.Scn.Fnt 8FoldElemsNew#Syntax10.Scn.Fnt VAR res: LONGINT; len: INTEGER; c: CHAR; BEGIN len := 0; SYSTEM.GET(s + len, c); WHILE c # 0X DO INC(len); SYSTEM.GET(s + len, c) END; res := Unix.Write(2, s, len) END OutString; 8+8#Syntax10.Scn.FntKK BEGIN IF ~disabled THEN OutputDebugString(SYSTEM.ADR(s)) END END Output; 8%8#Syntax10.Scn.Fnt BEGIN Output(s) END Str; 88#Syntax10.Scn.FntZZ VAR s: ARRAY 3 OF CHAR; BEGIN s[0] := 0DX; s[1] := 0AX; s[2] := 0X; Output(s) END Ln; 88#Syntax10.Scn.FntLL VAR s: ARRAY 2 OF CHAR; BEGIN s[0] := ch; s[1] := 0X; Output(s) END Ch; 8t8#Syntax10.Scn.Fntjj VAR s: ARRAY 20 OF CHAR; i1, k: LONGINT; BEGIN IF i = MIN(LONGINT) THEN s := "2147483648"; k := 10 ELSE i1 := ABS(i); s[0] := CHR(i1 MOD 10 + ORD("0")); i1 := i1 DIV 10; k := 1; WHILE i1 > 0 DO s[k] := CHR(i1 MOD 10 + ORD("0")); i1 := i1 DIV 10; INC(k) END END ; IF i < 0 THEN s[k] := "-"; INC(k) END ; WHILE k > 0 DO DEC(k); Ch(s[k]) END END Int; 8&8#Syntax10.Scn.Fnt VAR k, n: LONGINT; BEGIN k := - 28; WHILE k <= 0 DO n := ASH(i, k) MOD 16; IF n <= 9 THEN Ch(CHR(ORD("0") + n)) ELSE Ch(CHR(ORD("A") - 10 + n)) END ; INC(k, 4) END END Hex; 88#Syntax10.Scn.Fnt%% BEGIN disabled := FALSE END Enable; 88#Syntax10.Scn.Fnt%% BEGIN disabled := TRUE END Disable; 88#Syntax10.Scn.Fnt++ Enable; OutputDebugString := OutString; 8 MODULE Console; IMPORT SYSTEM, Unix; VAR OutputDebugString*: PROCEDURE (s: LONGINT); disabled: BOOLEAN; PROCEDURE OutString (s: LONGINT);  PROCEDURE Output (VAR s: ARRAY OF CHAR);  PROCEDURE Str* (s: ARRAY OF CHAR);  PROCEDURE Ln*;  PROCEDURE Ch* (ch: CHAR);  PROCEDURE Int* (i: LONGINT);  PROCEDURE Hex* (i: LONGINT);  PROCEDURE Enable*;  PROCEDURE Disable*;  BEGIN END Console.