ROUTINE RVAR
'' Create entity VAR and set it's atributes

      Print 1 line thus
      This is routine RVAR 

      CREATE ENT CALLED VAR
      LET ATR1(VAR) = 123
      LET ATR2(VAR) = 3.21
      LET ATR3(VAR) = "ABCD"

end

ROUTINE RENT
'' Create entity ENT and set it's atributes

      Print 1 line thus
      This is routine RENT 

      CREATE ENT              '' (CALLED ENT)
      LET ATR1(ENT) = 456
      LET ATR2(ENT) = 6.54
      LET ATR3(ENT) = "EFGH"

END


ROUTINE REPORT

      WRITE ATR1(VAR), ATR2(VAR), ATR3(VAR) AS
        " 1. CREATE ENT CALLED VAR       ", S 6, I 4, S 12,
        D(5,2), S 11, T 4, /, "    ATTRIBUTES SHOULD BE:",
                     S 14, "123             3.21           ABCD", /, /

      WRITE ATR1(ENT), ATR2(ENT), ATR3(ENT) AS
        " 2. CREATE ENT                  ", S 6, I 4, S 12,
        D(5,2), S 11, T 4, /, "    ATTRIBUTES SHOULD BE:",
                     S 14, "456             6.54           EFGH", /, /

      Write as " 3. ENT & VAR Entity Pointers should be unique", /
      if VAR <> ENT
         Write as S 21, "Pointers are unique - CORRECT."
      else
         Write as S 21, "Pointers are NOT unique - FAIL!"
      endif

      Write as /, /, " 4. DESTROY BOTH ENTITIES.", /, /
      DESTROY ENT CALLED VAR
      DESTROY ENT             '' (CALLED ENT)

END

