test-iso.mod

    (* ISO Modula-2 Syntax highlighting test *)

    (* dialect tags *)

    (*!m2iso*)

    (* pragmas *)

    <*foo*>

    (* foldable comments *)

    (* foo bar baz
       (* nested comment *)
       bam boo bee bop *)

    (* built-in constants *)

    FALSE INTERRUPTIBLE NIL TRUE UNINTERRUPTIBLE

    (* built-in types *)

    BOOLEAN BITSET CARDINAL COMPLEX CHAR INTEGER LONGCOMPLEX LONGREAL
    PROC PROTECTION REAL

    (* built-in procedures *)

    ABS ALLOCATE CAP CHR CMPLX DEALLOCATE DEC DISPOSE EXCL FLOAT HALT HIGH
    INC INCL INT LENGTH LFLOAT MAX MIN NEW ODD ORD RE SIZE TRUNC VAL

    (* reserved words *)

    AND ARRAY BEGIN BY CASE CONST DEFINITION DIV DO ELSE ELSIF END EXIT EXPORT
    FINALLY FOR FORWARD FROM IF IMPLEMENTATION IMPORT IN LOOP MOD MODULE NOT OF OR
    PACKEDSET POINTER PROCEDURE QUALIFIED RECORD REM REPEAT RETRY RETURN SET THEN
    TO TYPE UNTIL VAR WHILE WITH

    (* unsafe facilities *)

    (* module *)

    SYSTEM

    (* constants *)

    BITSPERLOC BITSPERWORD

    (* types *)

    ADDRESS LOC WORD

    (* procedures *)

    ADDADR ADR CAST DIFADR MAKEADR ROTATE SHIFT SUBADR TSIZE

    (* number literals *)

    CONST
      n = 1000; r = 1.234; x = 0FFFFH; c = 077C;

    (* quoted literals *)

    CONST
      apostrophe = "'"; doublequote = '"';
      single ='foobar'; double = "bazbam";

    (* sample code *)

    TYPE Foo = RECORD
      bar : Baz;
      bam : Boo
    END; (* Foobar *)

    VAR
      foo, bar, baz : CARDINAL;

    IF foo > bar THEN
      baz := bam
    ELSE
      baz := boo
    END;

    (* EOF *)