home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / EXTERN / MODUTIL2.I < prev    next >
Encoding:
Text File  |  1989-07-06  |  1.3 KB  |  3 lines
  1. ⓪ IMPLEMENTATION MODULE ModUtil2;
  2. ⓪ (*$M-*)
  3. ⓪ 
  4. ⓪ FROM ModBase IMPORT ModRef;
  5. ⓪ 
  6. ⓪ FROM Terminal IMPORT WriteString, WriteLn, Read;
  7. ⓪ 
  8. ⓪ VAR ch: CHAR;
  9. ⓪ 
  10. ⓪ PROCEDURE call (module: ModRef);
  11. ⓪"BEGIN
  12. ⓪$WriteLn;
  13. ⓪$WriteString ('Call ');
  14. ⓪$WriteString (module^.codeName^);
  15. ⓪$Read (ch)
  16. ⓪"END call;
  17. ⓪ 
  18. ⓪ PROCEDURE leave (module: ModRef);
  19. ⓪"BEGIN
  20. ⓪$WriteLn;
  21. ⓪$WriteString ('Leave ');
  22. ⓪$WriteString (module^.codeName^);
  23. ⓪$Read (ch)
  24. ⓪"END leave;
  25. ⓪ 
  26. ⓪ PROCEDURE deinit (module: ModRef);
  27. ⓪"BEGIN
  28. ⓪$WriteLn;
  29. ⓪$WriteString ('De-Init ');
  30. ⓪$WriteString (module^.codeName^);
  31. ⓪$Read (ch)
  32. ⓪"END deinit;
  33. ⓪ 
  34. ⓪ BEGIN
  35. ⓪"CallBody:= call;
  36. ⓪"LeaveBody:= leave;
  37. ⓪"DeInit:= deinit
  38. ⓪ END ModUtil2.
  39. ⓪ ə
  40. (* $FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$0000008B$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9F$FFF6BD9FÇ$00000238T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......$00000057$00000095$00000057$00000095$00000116$000000D1$00000116$000000C6$000001A5$0000016D$00000154$00000238$00000205$000001AC$000001C3$00000240œÇé*)
  41.