home *** CD-ROM | disk | FTP | other *** search
/ Grandes Inventos / INVENTOS.bin / pc / media / cdpla.dxr / 00408.ls < prev    next >
Encoding:
Text File  |  1996-01-01  |  444 b   |  15 lines
  1. on exitFrame
  2.   global gTheAnalyzer, gObjectSprite, gConsoleText, gIdiom
  3.   startTimer()
  4.   set theName to line 1 of the text of cast "objectDescription"
  5.   set theObject to TObject(mnew, theName)
  6.   set reloj to the timer
  7.   theObject(mLinkMap)
  8.   set reloj to the timer
  9.   theObject(mInitializeSubsystems)
  10.   gTheAnalyzer(mSetObject, theObject)
  11.   SetCast(gConsoleText, "Emptybitmap")
  12.   updateStage()
  13.   put "total inicializada" && the timer / 60.0
  14. end
  15.