home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOT_2.ZIP / DEMO.EXE / arc / DEMIO13.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-11  |  820 b   |  40 lines
  1. program DemoIOThirteen;
  2. {demIO13 - single ArrayIOOBJ input}
  3.                    
  4. Uses DOS, CRT,
  5.      totFAST, totIO1, totIO2;
  6.  
  7. Var
  8.    MyList: array[1..10] of string[20];
  9.    ListField: ArrayIOOBJ;
  10.  
  11. procedure FillArray;
  12. {}
  13. begin
  14.    MyList[1] := 'Monitor';
  15.    MyList[2] := 'Keyboard';
  16.    MyList[3] := 'Mouse';
  17.    MyList[4] := 'Light Pen';
  18.    MyList[5] := 'Microphone';
  19.    MyList[6] := 'LCD O/H Panel';
  20.    MyList[7] := 'Modem';
  21.    MyList[8] := 'Printer';
  22.    MyList[9] := 'CD Rom';
  23.    MyList[10] := 'Toolkit';
  24. end; {FillArray}
  25.  
  26. begin
  27.    ClrScr;
  28.    FillArray;
  29.    with ListField do
  30.    begin
  31.       Init(35,5,15,6,'Peripherals');
  32.       AssignList(MyList,10,20);
  33.       Activate;
  34.       gotoxy(1,20);
  35.       writeln('You chose item: ',GetValue,' - ',MyList[GetValue]);
  36.       Done;
  37.    end;
  38. end.
  39.  
  40.