home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / p / potland / pot / tests / mod / hello
Encoding:
Text File  |  1995-05-07  |  786 b   |  34 lines
  1. MODULE Hello;
  2.   IMPORT Files, Texts;
  3.  
  4.   TYPE prtyp = PROCEDURE(a: ARRAY OF CHAR);
  5.     prtypa = PROCEDURE(a: CHAR): INTEGER;
  6.   VAR W: Texts.Writer;
  7.     a: prtyp;
  8.     b: prtypa;
  9.     c: PROCEDURE(a: ARRAY OF CHAR): CHAR;
  10.     d: ARRAY 4 OF PROCEDURE(a: INTEGER): CHAR;
  11.  
  12.   PROCEDURE *p0(a: ARRAY OF CHAR);
  13.   BEGIN Texts.WriteString(W,a); Texts.WriteLn(W);
  14.   END p0;
  15.  
  16.   PROCEDURE *p1(a: CHAR): INTEGER;
  17.   BEGIN RETURN ORD(a)
  18.   END p1;
  19.  
  20.   PROCEDURE *p2(a: ARRAY OF CHAR): CHAR;
  21.   BEGIN p0(a);  RETURN "a";
  22.   END p2;
  23.  
  24.  
  25.   PROCEDURE Say*;
  26.     VAR ch: CHAR; ii: INTEGER;
  27.   BEGIN a("It'me");  ch := c("Abc"); ii :=  b("a");
  28.     Texts.WriteString(W, "Hello, World"); Texts.WriteLn(W);
  29.     Texts.Append(Files.StdOut, W.buf)
  30.   END Say;
  31.  
  32. BEGIN Texts.OpenWriter(W); a := p0; b := p1; c := p2
  33. END Hello.
  34.