M2compiler-V3/compiler/tests/t_builtins.mod

MODULE TBuiltins;
(* CHR, ORD, VAL, ABS, INC, DEC. Exit 42. *)
VAR ExitCode : INTEGER;
VAR s : ARRAY [0..9] OF CHAR;
VAR i : INTEGER;
VAR r : REAL;
BEGIN
  i := ORD('A');            (* 65 *)
  INC(i);                   (* 66 *)
  INC(i, 5);                (* 71 *)
  DEC(i);                   (* 70 *)
  DEC(i, 8);                (* 62 *)
  s[0] := CHR(i);           (* '>' = 62 *)
  IF s[0] = '>' THEN i := i - 20 ELSE i := 0 END;   (* 42 *)
  r := ABS(-3.5);           (* 3.5 *)
  IF r > 3.4 THEN i := i + VAL(INTEGER, 0) END;
  i := i + VAL(CARDINAL, 1) - 1;
  ExitCode := i
END TBuiltins.