; > Structs
; The structure table
NL * 10
ZESTART
 DCD ZEEND1-ZESTART
 = 253,0
 = "M2: Case Def Else eXcept finallY For If Loop locK Mod Proc Repeat Type While",0
 = 255,"C"
  = "CASE  OF",NL
  = "  ",NL
  = "END; (* case *)",NL,0,5,0
 = 254,"D","Definition Module: Name:",0
  = "(* -> Def.",1," *)",NL
  = "(* Mode: Modula2+ *)",NL
  = "(*",NL
  = "  Title:       ",1," - <explain title!!!>",NL
  = "  Status:      ???",NL
  = "  Copyright:   (C) 1987, Acorn Computers Ltd., Cambridge, England.",NL
  = "  Revision:    1.0",NL
  = "  $Author:     <name> <date>",NL
  = "  $LastEdited: <name> <date>",NL
  = "*)",NL
  = NL
  = "DEFINITION MODULE ",1,";",NL
  = NL
  = "FROM  IMPORT ",NL
  = NL
  = "EXPORT QUALIFIED ",NL
  = NL
  = "END ",1,".",NL,0,18,3
 = 255,"E"
  = "IF  THEN",NL
  = "  ",NL
  = "ELSE",NL
  = "  ",NL
  = "END; (* if *)",NL,0,3,0
 = 255,"F"
  = "FOR := TO  DO",NL
  = "  ",NL
  = "END; (* for *)",NL,0,4,0
 = 255,"I"
  = "IF  THEN",NL
  = "  ",NL
  = "END; (* if *)",NL,0,3,0
 = 255,"L"
  = "LOOP",NL
  = "  ",NL
  = "END; (* loop *)",NL,0,2,1
 = 255,"K"
  = "LOCK  DO",NL
  = "  ",NL
  = "END; (* lock *)",NL,0,5,0
 = 254,"M","Implementation Module: Name:",0
  = "(* -> Mod.",1," *)",NL
  = "(* Mode: Modula2+ *)",NL
  = "(*",NL
  = "  Title:       ",1," - <explain title!!!>",NL
  = "  Status:      ???",NL
  = "  Copyright:   (C) 1987, Acorn Computers Ltd., Cambridge, England.",NL
  = "  Revision:    1.0",NL
  = "  $Author:     <name> <date>",NL
  = "  $LastEdited: <name> <date>",NL
  = "*)",NL
  = NL
  = "IMPLEMENTATION MODULE ",1,";",NL
  = NL
  = "END ",1,".",NL,0,18,3
 = 254,"P","Procedure Name:",0
  = "PROCEDURE ",1,";",NL
  = "  BEGIN",NL
  = "    ",NL
  = "  END ",1,";",NL,0,10,0
 = 255,"R"
  = "REPEAT",NL
  = "  ",NL
  = "UNTIL ;",NL,0,6,2
 = 255,"T"
  = "TYPE",NL
  = "  ",NL
  = "  END;",NL,0,2,1
 = 255,"W"
  = "WHILE  DO",NL
  = "  ",NL
  = "END; (* while *)",NL,0,6,0
 = 255,"X"
  = "TRY",NL
  = "EXCEPT",NL
  = "END; (* try *)",NL,0,3,0
 = 255,"Y"
  = "TRY",NL
  = "FINALLY",NL
  = "END; (* try *)",NL,0,3,0
 = 255,0
 = 253,1
 = "BASIC: Case Else Function If Procedure Repeat While",0
 = 255,"C"
  = "CASE  OF",NL
  = "  WHEN :",NL
  = "  OTHERWISE:",NL
  = "ENDCASE",NL,0,5,0
 = 255,"E"
  = "IF  THEN",NL
  = "  ",NL
  = "ELSE",NL
  = "  ",NL
  = "ENDIF",NL,0,3,0
 = 255,"F"
  = "DEF FN()",NL
  = "=",NL,0,6,0
 = 255,"I"
  = "IF  THEN",NL
  = "  ",NL
  = "ENDIF",NL,0,3,0
 = 255,"P"
  = "DEF PROC()",NL
  = "ENDPROC",NL,0,8,0
 = 255,"R"
  = "REPEAT",NL
  = "  ",NL
  = "UNTIL ",NL,0,6,2
 = 255,"W"
  = "WHILE ",NL
  = "  ",NL
  = "ENDWHILE",NL,0,6,0
 = 255,0
 = 253,2
 = "C: Switch",0
 = 255,"S"
  = "switch (  ) {",NL
  = "  case :",NL
  = "  default:",NL
  = "}",NL,0,9,0
 = 255,0
 = 253,3
 = "FORTRAN:",0
 = 255,0
 = 253,4
 = "ISO Pascal:",0
 = 255,0
 = 253,5
 = "LISP:",0
 = 255,0
 = 253,6
 = "Prolog:",0
 = 255,0
 = 253,7
 = "l7:",0
 = 255,0
 = 253,8
 = "l8:",0
 = 255,0
 = 253,9
 = "l9:",0
 = 255,0
 = 253,10
 = "l10:",0
 = 255,0
 = 253,11
 = "l11:",0
 = 255,0
 = 253,12
 = "l12:",0
 = 255,0
 = 253,13
 = "l13:",0
 = 255,0
 = 253,14
 = "l14:",0
 = 255,0
 = 253,15
 = "l15:",0
 = 255,0
 ALIGN
ZEEND1
 END