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