home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Yerk 3.6.6 / System source / tool.load < prev    next >
Encoding:
Text File  |  1994-01-01  |  476 b   |  33 lines  |  [TEXT/YERK]
  1. 'c null -> nevent
  2. -echo
  3. // Ovl
  4. // Mod
  5. // Imports
  6. Module ::Module source:Tool
  7. errbeep
  8. true -> docs
  9. // QD
  10. // Event
  11. // Window
  12. // objInit
  13. // Proc
  14. // Struct1
  15. // Menu
  16. 0 value 'f>    \ used as stub for floating point 7.0.1 fix..
  17. // PathList
  18. // FrontEnd
  19.  
  20. \ $ c1ef (flush)        \ flush all events
  21. 0
  22. eventinit            \ initialize event things
  23.  
  24. 'c (nevent) -> nevent \ set up event processing during loads
  25.  
  26. $ c1ef (flush)        \ flush all events
  27.  
  28. save yerk.com
  29.  
  30. 1 beep 1 beep 1 beep 1 beep
  31. Become yerk
  32.  
  33.