home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / basic / qlib / menu.bas < prev    next >
Encoding:
BASIC Source File  |  1993-02-20  |  1.9 KB  |  63 lines
  1. REM $INCLUDE: 'qlib.bi'
  2.         DIM a$(25)
  3.         LOCATE 2, 2
  4.         FOR i = 0 TO 25: READ a$(i): NEXT
  5. REM  first main heading
  6.         DATA "Critters"
  7.         DATA "Hawks"
  8.         DATA "Marmots"
  9.         DATA "Pygmy Tundra Buffalo"
  10.         DATA "Collared Pika"
  11.         DATA "Swine"
  12. REM  NUL string separates main headings
  13.         DATA ""         
  14. REM 2nd main heading
  15.         DATA "Habitats"
  16.         DATA "Alpine tundra"
  17.         DATA "Forest edges"
  18.         DATA "Pelagic"
  19.         DATA "Urban"
  20.         DATA ""
  21.         DATA "Nothing"
  22.         DATA ""
  23.         DATA "Vegetation"
  24.         DATA "Deciduous forest"
  25.         DATA "Cattail marsh"
  26.         DATA "Dense brush"
  27.         DATA "Moss and Lichens"
  28.         DATA "Sagebrush"
  29.         DATA "Chapparal"
  30.         DATA "Prarie"
  31.         DATA "Temparate Rain Forest"
  32. REM  double NUL strings mark end
  33.         DATA "",""    
  34.         CALL MenuOPtion(0, 23)        ' text color
  35.         CALL MenuOPtion(1, 30)        ' menu choice color
  36.         CALL MenuOPtion(2, 31)        ' menu box color
  37.         CALL MenuOPtion(3, 13)
  38.         CALL MenuOPtion(4, 256 + 68)  ' optional exit key
  39.         CALL MenuOPtion(5, -1)        ' exit menu when hotkey pressed
  40.         mainchoice = 0: subchoice = 0
  41.         a = VARPTR(a$(0))
  42.         a = pulldown(a, mainchoice, subchoice)
  43.         SELECT CASE a
  44.                 CASE 13
  45.                 key$ = "Enter"
  46.                 CASE 27
  47.                 key$ = "Escape"
  48.                 CASE ELSE
  49.         END SELECT
  50.         SELECT CASE mainchoice
  51.                 CASE 0
  52.                         main$ = "Critters"
  53.                 CASE 1
  54.                         main$ = "habitats"
  55.                 CASE 2
  56.                         main$ = "nothing"
  57.                 CASE 3
  58.                         main$ = "Vegetation"
  59.         END SELECT
  60.         SCREEN 0
  61.         PRINT key$, main$, subchoice
  62.  
  63.