home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / tot5.zip / DEMIO11.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-11  |  541b  |  30 lines

  1. program DemoIOEleven;
  2. {demIO11 - single Radio Button input}
  3.  
  4. Uses DOS, CRT,
  5.      totFAST, totINPUT, totIO1, totIO2;
  6.  
  7. Var
  8.    Bool: RadioIOOBJ;
  9.  
  10. begin
  11.    ClrScr;
  12.    with Bool do
  13.    begin
  14.       Init(35,12,20,5,'Sex?');
  15.       SetBoxOn(True);
  16.       AddItem('~M~ale',77,true);
  17.       AddItem('~F~emale',70,false);
  18.       Mouse.Show;
  19.       Activate;
  20.       Mouse.Hide;
  21.       gotoxy(1,20);
  22.       if GetValue = 1 then
  23.          writeln('You are male!')
  24.       else
  25.          writeln('Hi, I''m Bob.');
  26.       Done;
  27.    end;
  28. end.
  29.  
  30.