home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 11 / CDACTUAL11.iso / cdactual / demobin / share / os2 / XCO212P / SAMPLES / NODES / ECHO.OB2 < prev    next >
Encoding:
Text File  |  1994-07-20  |  549 b   |  34 lines
  1. MODULE Echo; (* Ned *)
  2.  
  3. IMPORT  Nodes, tio:=STextIO;
  4.  
  5. TYPE
  6.   Node = POINTER TO NodeDesc;
  7.   NodeDesc = RECORD (Nodes.NodeDesc)
  8.   END;
  9.  
  10. PROCEDURE (n: Node) GetName(VAR s: ARRAY OF CHAR);
  11. BEGIN
  12.   COPY("Echo",s);
  13. END GetName;
  14.  
  15. PROCEDURE (n: Node) Help;
  16. BEGIN
  17.   tio.WriteString("Prints the input line"); tio.WriteLn;
  18. END Help;
  19.  
  20. PROCEDURE (n: Node) Handle(s: ARRAY OF CHAR);
  21. BEGIN
  22.   tio.WriteString(s); tio.WriteLn;
  23. END Handle;
  24.  
  25. PROCEDURE Insert*;
  26.   VAR n: Node;
  27. BEGIN
  28.   NEW(n);
  29.   Nodes.Insert(n);
  30. END Insert;
  31.  
  32. END Echo.
  33.  
  34.