MAIN
      WRITE AS " TEM-101  Test Create and Destroy of Temporary Entities",
        /, /, S 30,
        "INTEGER ATTR        REAL ATTR      TEXT ATTR", /, /


      call RVAR  		'' call routine to create temporary entity VAR

      RECORD  memory on unit 1, restore  to here

'here'
      call SIMDEBUG.R		'' call SIMSCRIPT symbolic debugger    


      call RENT  		'' call routine to create temporary entity ENT    


      call REPORT		'' print contents of entities and destroy them


      Write as " END OF TEST TEM-101.  4 Sections should have been written."
      STOP
END
