home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOTDEMO.ZIP / DEMLS1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-11  |  977 b   |  48 lines
  1. program DemoList1;
  2. {demls1}
  3.  
  4. Uses DOS, CRT,
  5.      totFAST, totLIST;
  6.  
  7. Var
  8.    Items : array [1..20] of string[30];
  9.    ListWin:  ListArrayObj;
  10.  
  11. procedure FillArray;
  12. {}
  13. begin
  14.    Items[1] := 'One';
  15.    Items[2] := 'Two';
  16.    Items[3] := 'Three';
  17.    Items[4] := 'Four';
  18.    Items[5] := 'Five';
  19.    Items[6] := 'Six';
  20.    Items[7] := 'Seven';
  21.    Items[8] := 'Eight';
  22.    Items[9] := 'Nine';
  23.    Items[10] := 'Ten';
  24.    Items[11] := 'Eleven';
  25.    Items[12] := 'Twelve';
  26.    Items[13] := 'Thirteen';
  27.    Items[14] := 'Fourteen';
  28.    Items[15] := 'Fifteen';
  29.    Items[16] := 'Sixteen';
  30.    Items[17] := 'Seventeen';
  31.    Items[18] := 'Eighteen';
  32.    Items[19] := 'Nineteen';
  33.    Items[20] := 'Twenty';
  34. end; {FillArray}
  35.  
  36. begin
  37.    Screen.Clear(white,'░'); {paint the screen}
  38.    Screen.WriteCenter(1,white,' Press F10 or ESC to quit ');
  39.    FillArray;
  40.    with ListWin do
  41.    begin
  42.       Init;
  43.       AssignList(Items,20,30,true);
  44.       Go;
  45.       Done;
  46.    end;
  47. end.
  48.