(***********************************************************
*
* Donated by Ray Penley, June 1980
*
***********************************************************)
PROGRAM REVERSE;
{----------------------------------------------}
{ Modified for Pascal/Z by Raymond E. Penley }
{----------------------------------------------}
TYPE
Links = ^Nodes;
Nodes = record
Character :CHAR;
Next :Links
end;
VAR
First, This :Links;
ix :Integer;
Ch :CHAR;
Procedure READ_LIST;
CONST prompt = '>>';
begin
First := NIL; { Make the list of characters empty }
Writeln;
Write(prompt);
READ(Ch);
While Ch <> '.' Do
begin
NEW(This); { Allocate a new space }
This^.Character := Ch; { Insert Ch at the front of the list }
This^.Next := First; { link into the list }
First := This;
READ(Ch);
end{while}
end{of Read_List};
Procedure SHOW_LIST;
(* Write all characters in the list *)
VAR count : integer;
begin
Writeln;
count := 0;
This := First;
While This <> NIL DO
With This^ do begin
Write(Character);
count := count + 1;
This := Next { Advance down the chain }
end;
Writeln;
Writeln('You entered ',count:3,' characters.');
end{of Show_list};
begin
for ix:=1 to 24 do writeln;
Writeln('Enter a line of characters after the prompt.');
Writeln('Enter a "." at the end.');
While true do {infinite loop}
begin
READ_LIST;
SHOW_LIST;
end{while}
end.
