home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / m / mod2tutr.zip / EXAMPLES.ZIP / CH12E1.MOD < prev    next >
Text File  |  1989-01-18  |  600b  |  37 lines
  1.                            (* Chapter 12 - Programming exercise 1 *)
  2. MODULE CH12E1;
  3.  
  4. FROM InOut   IMPORT WriteString, WriteLn;
  5. FROM Storage IMPORT ALLOCATE;
  6. FROM SYSTEM  IMPORT TSIZE;
  7.  
  8. TYPE Name  = ARRAY[0..25] OF CHAR;
  9.  
  10. VAR Billy : POINTER TO Name;
  11.     Sally : POINTER TO Name;
  12.  
  13. BEGIN
  14.    ALLOCATE(Billy,TSIZE(Name));
  15.    ALLOCATE(Sally,TSIZE(Name));
  16.  
  17.    Billy^ := "William Jones";
  18.    Sally^ := "Sally Ridgecrest";
  19.  
  20.    WriteString(Billy^);
  21.    WriteLn;
  22.    WriteString(Sally^);
  23.    WriteLn;
  24.  
  25. END CH12E1.
  26.  
  27.  
  28.  
  29.  
  30. (* Result of execution
  31.  
  32. William Jones
  33. Sally Ridgecrest
  34.  
  35. *)
  36.  
  37.