home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / qb / qb-menus.lzh / MENUTEST.BAS < prev   
Encoding:
BASIC Source File  |  1986-12-09  |  556 b   |  25 lines
  1. rem $include: 'menusub'
  2. color 0,3
  3. cls
  4. locate 9,20
  5. print "------------------------------------"
  6.  
  7. choice=1
  8. start:
  9.     dim list$(5)
  10.     list$(0)=" MENU TITLE LINE "
  11.     list$(1)="1) First Choice"
  12.     list$(2)="2) Second (albeit very long ) Choice"
  13.     list$(3)="3) Third Choice"
  14.     list$(4)="4) Fourth Choice"
  15.     list$(5)="5) Fifth Choice (EXIT MENU)"
  16.     upper=10:margin=20:foreground=0:background=7
  17.     color 0,3
  18.     call menu(list$(),upper,margin,foreground,background,choice)
  19.  
  20.     locate 20,20
  21.     print "The Choice Was #";choice
  22.     if choice<>5 then goto start
  23. end
  24.  
  25.