IDENTIFICATION DIVISION.
PROGRAM-ID.  DrinkAndDance.
AUTHOR.  rho.

DIRECTIVE DIVISION.
PREFIX SECTION.
01 o
   02 URL LEFT-ANGLE-BRACKET
      http://psi.ontopedia.net/ RIGHT-ANGLE-BRACKET .
01 w
   02 URL LEFT-ANGLE-BRACKET
      http://en.wikipedia.org/ RIGHT-ANGLE-BRACKET .

COMMENT SECTION.
   * we like to write comments
   * or abuse them for other purposes
   * not because we realize the abuse
   * no, because we can

INCLUDE SECTION.
   SELECT SOME-FILE ASSIGN TO "something.ctm"
          ORGANIZATION IS COBOL TOPIC MAPS .

TOPIC DIVISION.
IDENTIFICATION SECTION.
    MOVE john-lennon TO IDENTIFIER .
    MOVE LEFT-ANGLE-BRACKET
         http://en.wikipedia.org/wiki/John_lennon
         RIGHT-ANGLE-BRACKET TO SUBJECT IDENTIFIER .
NAME SECTION.
    MOVE "John Lennon" TO SCOPE UNDEFINED-SCOPE
         USING TYPE short-name .
    MOVE "John Winston Lennon" TO SCOPE queen-of-england
         USING TYPE official-name .
OCCURRENCE SECTION.
    MOVE LEFT-ANGLE-BRACKET
         http://www.johnlennon.com RIGHT-ANGLE-BRACKET
         USING TYPE homepage .

ASSOCIATION DIVISION.
ASSOCIATION-TYPE SECTION.
    is-married-to . * this may be actually a shortcut!!
ROLE SECTION.
    MOVE PLAYING john-lennon TO ROLE husband .
    MOVE PLAYING yoko-ono TO ROLE wife .

EXIT.