DICTIONARY:

  ABS
  ADDRESS
  ADR
  AND
  ARRAY
  BEGIN
  BITSET
  BOOLEAN
  BY
  BYTE
  CAP
  CARDINAL
  CASE
  CHAR
  CHR
  CONST
  DEC
  DEFINITION
  DIV
  DO
  ELSE
  ELSIF
  END
  EXCL
  EXIT
  FALSE
  FLOAT
  FLOATD
  FOR
  FORWARD
  FROM
  HALT
  HIGH
  IF
  IMPLEMENTATION
  IMPORT
  IN
  INC
  INCL
  INLINE
  INTEGER
  LONG
  LONGCARD
  LONGINT
  LONGBITSET
  LONGREAL
  LONGWORD
  LOOP
  MAX
  MIN
  MOD
  MODULE
  NIL
  NOT
  ODD
  OF
  OR
  ORD
  POINTER
  PROC
  PROCEDURE
  REAL
  RECORD
  REGISTER
  REPEAT
  RETURN
  SET
  SETREG
  SHORT
  SHORTCARD
  SHORTINT
  SHORTSET
  SIZE
  STRPTR
  SYSTEM
  TERMPROC
  THEN
  TO
  TRUE
  TRUNC
  TRUNCD
  TSIZE
  TYPE
  UNTIL
  VAL
  VAR
  WHILE
  WITH
  WORD
#

TEMPLATES:

  "ADDRESS"
  "ARRAY [@] OF"
  "BEGIN*n"
  "BITSET;*n"
  "BOOLEAN;*n"
  "CARDINAL;*n"
  "CASE @ OF*n*nEND;*n"
  "CHAR;*n"
  "CONST*n"
  "DEFINITION MODULE @;*n"
  "END;*n"
  "FALSE;*n"
  "FOR @:= TO  DO*n*nEND;*n"
  "FROM @ IMPORT ;*n"
  "IF (@) THEN*n*nEND;*n"
  "INTEGER;*n"
  "IMPORT @;*n"
  "IMPLEMENTATION MODULE @;*n"
  "LONGSET;*n"
  "LONGCARD;*n"
  "LONGINT;*n"
  "LONGREAL;*n"
  "LOOP*n@*nEND;*n"
  "MODULE @;*n"
  "PROCEDURE @();*nVAR*n*nBEGIN*n*nEND ;*n"
  "POINTER TO"
  "REPEAT*n@*nUNTIL ();*n"
  "RECORD*n@*nEND;"
  "RETURN"
  "SHORTCARD;*n"
  "SHORINT;*n"
  "SHORTSET;*n"
  "THEN*n"
  "TYPE*n"
  "UNTIL (@);*n"
  "WHILE (@) DO*n*nEND;*n"
  "WITH @ DO*n*nEND;*n"
#