home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PASDEMO2.ZIP / P583.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-09-02  |  859 b   |  33 lines
  1. { The following code assumes these decalarations:
  2.  
  3. Const Max = 20;
  4.  
  5. Type ListData = Packed Array[1..Max] of Char;
  6.      ListPointer = ^Item;
  7.      Item = Record
  8.                Data : ListData;
  9.                Next : LIstPointer
  10.             End;
  11.      PointerArray = Array['A'..'Z'] of ListPointer;
  12. }
  13. procedure Print( First: PointerArray);
  14. {This procedure prints the current data items on the list }
  15.    var Index : 'A' .. 'Z';
  16.        ListElt : ListPointer;
  17.    begin
  18.       writeln( 'The list of tasks is' );
  19.       writeln;
  20.       for Index := 'A' to 'Z'
  21.       do begin
  22.          ListElt := First[Index];
  23.          while ( ListElt <> Nil )
  24.          do begin
  25.             writeln( ListElt^.Data );
  26.             ListElt := ListElt^.Next
  27.          end
  28.       end;
  29.       writeln;
  30.       writeln( 'End of List' );
  31.       writeln
  32.    end { print };
  33.