home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / xc212os2.zip / SAMPLES / NODES / genecho.ob2 < prev    next >
Text File  |  1994-07-20  |  796b  |  40 lines
  1. MODULE GenEcho; (* Ned *)
  2.  
  3. IMPORT  Nodes, Echo, tio:=STextIO, WholeStr;
  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 generator",s);
  13. END GetName;
  14.  
  15. PROCEDURE (n: Node) Help;
  16. BEGIN
  17.   tio.WriteString("Type <number> to produce <number> Echo nodes"); tio.WriteLn;
  18. END Help;
  19.  
  20. PROCEDURE (n: Node) Handle(s: ARRAY OF CHAR);
  21.   VAR res: WholeStr.ConvResults; i: LONGINT;
  22. BEGIN
  23.   WholeStr.StrToInt(s,i,res);
  24.   IF res = WholeStr.strAllRight THEN
  25.     WHILE i>0 DO Echo.Insert; DEC(i) END;
  26.   ELSE
  27.     tio.WriteString("number expected"); tio.WriteLn;
  28.   END;
  29. END Handle;
  30.  
  31. PROCEDURE Insert*;
  32.   VAR n: Node;
  33. BEGIN
  34.   NEW(n);
  35.   Nodes.Insert(n);
  36. END Insert;
  37.  
  38. END GenEcho.
  39.  
  40.