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"

      call RVAR1											    
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

Routine RVAR1
'' This is new routine for creation entity VAR

      Destroy ENT called VAR

      CREATE ENT CALLED VAR
      LET ATR1(VAR) = 444 
      LET ATR2(VAR) = 5.55 
      LET ATR3(VAR) = "TEXT"

end
