home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / development / modula2demo.lha / m2 / TalkDemo / txt / TalkNarrator.def < prev    next >
Text File  |  1992-08-29  |  275b  |  17 lines

  1. DEFINITION MODULE TalkNarrator;
  2. (*$ LargeVars:=FALSE LongAlign:=FALSE *)
  3.  
  4. FROM Narrator    IMPORT    NewNarrator,NewNarratorPtr;
  5.  
  6. TYPE
  7.   BoolProc=PROCEDURE():BOOLEAN;
  8.  
  9. VAR
  10.   talking:BOOLEAN;
  11.  
  12. PROCEDURE Translate():BOOLEAN;
  13.  
  14. PROCEDURE DoTalk(testAbort:BoolProc);
  15.  
  16. END TalkNarrator.
  17.