(* this is a comment in order to test MOD2HTM ! this won't compile *)
(* this is a nested comment : (* remed out *) *)
MODULE Test;
IMPORT IO;
IMPORT Lib;
IMPORT Str;
IMPORT QD_Box, QD_LFN, QD_File;
FROM IO IMPORT WrStr, WrLn;
(*
(*
yet another nested comment
*)
*)
PROCEDURE nada (tf:BOOLEAN);
BEGIN
IF tf THEN
IO.WrStr("TRUE");
ELSE
WrStr("FALSE");
END;
WrLn;
END nada;
CONST
MINCARD = 0;
MAXCARD = 0FFFFH;
QUINZE = 01111B;
VAR
S,R:str128;
i:CARDINAL;
f : LONGREAL;
BEGIN
Str.Copy(S1,"This is a double quoted string");
Str.Copy(S2,'This is a single quoted string');
i:=MINCARD; i:=0; i := 0H;
i:=MAXCARD; i:=QUINZE; i:= 01111B;
i:=1+9+6+3;
f:=123.4;
f:=-123.4;
f:=+123.4;
f:=123.4E5;
f:=+123.4E5;
f:=-123.4E5;
(* we won't rewrite the parser to handle these forms ;-) *)
f:=123.4E+5;
f:=123.4E-5;
f:=+123.4E+5;
f:=-123.4E-5;
HALT;
END Test.