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