home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
progm
/
m2t-2.zip
/
ANSWERS
/
CH12E1.MOD
< prev
next >
Wrap
Text File
|
1989-01-18
|
600b
|
37 lines
(* Chapter 12 - Programming exercise 1 *)
MODULE CH12E1;
FROM InOut IMPORT WriteString, WriteLn;
FROM Storage IMPORT ALLOCATE;
FROM SYSTEM IMPORT TSIZE;
TYPE Name = ARRAY[0..25] OF CHAR;
VAR Billy : POINTER TO Name;
Sally : POINTER TO Name;
BEGIN
ALLOCATE(Billy,TSIZE(Name));
ALLOCATE(Sally,TSIZE(Name));
Billy^ := "William Jones";
Sally^ := "Sally Ridgecrest";
WriteString(Billy^);
WriteLn;
WriteString(Sally^);
WriteLn;
END CH12E1.
(* Result of execution
William Jones
Sally Ridgecrest
*)