(* 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.