home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 9 / CD_ASCQ_09_1193.iso / news / 558 / field3 / fld3menu.pas < prev    next >
Pascal/Delphi Source File  |  1993-07-11  |  1KB  |  40 lines
  1. Program field_3_menu;  { FLD3MENU.PAS }
  2.  
  3. { This program was written by Frank Wood to demonstrate the use of the unit
  4.   FIELD3.PAS for item selection from a horizontal bar menu.  The getchoice
  5.   function in the field3 unit and this program were developed from a public
  6.   domain program LOOKFEEL.PAS. }
  7.  
  8. Uses crt,field3;
  9.  
  10. Const maxsize = 20;
  11.  
  12. Type optiontype=Array[1..maxsize] Of String[30];
  13.      descriptype = Array[1..maxsize] Of String[80];
  14.  
  15. Var option: optiontype;
  16.     descrip: descriptype;
  17.     chval: Byte;
  18.  
  19. Begin
  20.   ClrScr;
  21.   option[1] := 'WALTZ';
  22.   descrip[1]:='A graceful dance with a sweeping rhythm.';
  23.   option[2] := 'TANGO';
  24.   descrip[2]:='A slow and graceful Latin dance.';
  25.   option[3] := 'CHA-CHA';
  26.   descrip[3]:='A quick and bouncy Latin dance.';
  27.   option[4] := 'FOXTROT';
  28.   option[5] := 'SAMBA';
  29.   option[6] := 'HUSTLE';
  30.   option[7] := 'BOOGALOO';
  31.   option[8] := 'POGO';
  32.   lotxtcolor:=LightGray;
  33.   txtbkgnd:=Black;
  34.   chval := getchoice(option,descrip,8,2);
  35.   WriteLn;
  36.   WriteLn;
  37.   If chval < 9 Then
  38.     WriteLn('YOU ASKED ME TO ',option[chval],
  39.             '... - THANK YOU, BUT I DO NOT DANCE');
  40. End.