home *** CD-ROM | disk | FTP | other *** search
/ Collection of Education / collectionofeducationcarat1997.iso / COMPUSCI / TOT11.ZIP / TOTDEM11.ZIP / DEMIO14.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-11  |  997b  |  47 lines
  1. program DemoIOFourteen;
  2. {demIO14 - single LinkIOOBJ input}
  3.                    
  4. Uses DOS, CRT,
  5.      totFAST, totIO1, totIO2, totLINK;
  6.  
  7. Var
  8.    MyList: StrDLLOBJ;
  9.    ListField: LinkIOOBJ;
  10.  
  11. procedure FillList;
  12. {}
  13. var Retcode: integer;
  14. begin
  15.    with MyList do
  16.    begin
  17.       Init;
  18.       Retcode := Add('Monitor');
  19.       Retcode := Add('Keyboard');
  20.       Retcode := Add('Mouse');
  21.       Retcode := Add('Light Pen');
  22.       Retcode := Add('Microphone');
  23.       Retcode := Add('LCD O/H Panel');
  24.       Retcode := Add('Modem');
  25.       Retcode := Add('Printer');
  26.       Retcode := Add('CD Rom');
  27.       Retcode := Add('Toolkit');
  28.    end;
  29. end; {FillList}
  30.  
  31. begin
  32.    ClrScr;
  33.    FillList;
  34.    with ListField do
  35.    begin
  36.       Init(35,5,15,6,'Peripherals');
  37.       AssignList(MyList);
  38.       Activate;
  39.       gotoxy(1,20);
  40.       writeln('You chose item: ',GetValue,' - ',
  41.               MyList.GetStr(MyList.NodePtr(GetValue),0,0));
  42.       Done;
  43.       MyList.Done;
  44.    end;
  45. end.
  46.  
  47.