home *** CD-ROM | disk | FTP | other *** search
/ All About Planes & All About Handwriting / Topologika_AllAboutPlanesHandwriting.iso / extras / topodemos / talkclocks / _clocksdem / _run next >
Text File  |  1996-03-07  |  665b  |  24 lines
  1. | Talk Clocks
  2. | written by Tony Benesh
  3. | (c) 1995 Topologika Software
  4. | Version 1.11.08 (7 September 1995)
  5.  
  6. if "<font$prefix>" = "" then Error !Fonts not seen
  7.  
  8. SET Clock$Dir <Obey$Dir>
  9. SET Speech$Dir <Clock$Dir>.speech
  10. SET Numbers$Dir <Speech$Dir>.Numbers
  11. SET Between$Dir <Speech$Dir>.Between
  12. SET Responses$Dir <Speech$Dir>.Responses
  13.  
  14. RMEnsure ColourTrans 0.52 RMLoad <Clock$Dir>.colours
  15. RMEnsure ColourTrans 0.52 Error You need ColourTrans 0.52 or later
  16.  
  17. IF "<Clock$Running>"="yes" THEN ERROR 255 Talking clocks is already loaded
  18. Set Clock$Running yes
  19.  
  20. IconSprites <Clock$Dir>.!Sprites
  21.  
  22. WimpSlot -min 400K -max 400K  
  23.                     
  24. Run <Clock$Dir>.!Runimage