home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / pb / pbmnus / numbsamp.bas < prev    next >
BASIC Source File  |  1993-03-01  |  2KB  |  65 lines
  1. DECLARE SUB NumbersMenu (boxstyle%, tr%, lc%, fc%, bc%)
  2. CLS
  3. '**************************************************
  4. NumbersMenu 4, 8, 22, 12, 15
  5.  
  6. '**************************************************
  7. SUB NumbersMenu (boxstyle%, tr%, lc%, fc%, bc%)
  8. DIM menu$(0 TO 11)
  9. COLOR fc%, bc%
  10. SELECT CASE boxstyle%
  11. CASE 1
  12. side$ = "│"
  13. menu$(0) = "┌─────────────────────────┐"
  14. menu$(11) = "└─────────────────────────┘"
  15. CASE 2
  16. side$ = "║"
  17. menu$(0) = "╔═════════════════════════╗"
  18. menu$(11) = "╚═════════════════════════╝"
  19. CASE 3
  20. side$ = "║"
  21. menu$(0) = "╓─────────────────────────╖"
  22. menu$(11) = "╙─────────────────────────╜"
  23. CASE 4
  24. side$ = "│"
  25. menu$(0) = "╒═════════════════════════╕"
  26. menu$(11) = "╘═════════════════════════╛"
  27. CASE 5
  28. side$ = "█"
  29. menu$(0) = STRING$(27, 219)
  30. menu$(11) = STRING$(27, 219)
  31. END SELECT
  32. menu$(1) = side$ + "  ≤ 1 ≥  PHILLIES        " + side$
  33. menu$(2) = side$ + "  ≤ 2 ≥  METS            " + side$
  34. menu$(3) = side$ + "  ≤ 3 ≥  CARDINALS       " + side$
  35. menu$(4) = side$ + "  ≤ 4 ≥  CUBS            " + side$
  36. menu$(5) = side$ + "  ≤ 5 ≥  EXPOS           " + side$
  37. menu$(6) = side$ + "  ≤ 6 ≥  MARLINS         " + side$
  38. menu$(7) = side$ + "  ≤ 7 ≥  PIRATES         " + side$
  39. menu$(8) = side$ + "  ≤ 8 ≥  DODGERS         " + side$
  40. menu$(9) = side$ + "  ≤ 9 ≥  GIANTS          " + side$
  41. menu$(10) = side$ + "  ≤ 0 ≥  EXIT PROGRAM    " + side$
  42. FOR set = 0 TO 11
  43. LOCATE set + tr%, lc%: COLOR fc%, bc%: PRINT menu$(set)
  44. NEXT
  45. DO
  46. DO
  47. keys$ = INKEY$
  48. LOOP WHILE keys$ = ""
  49. keymove = ASC(RIGHT$(keys$, 1))
  50. SELECT CASE keymove
  51. CASE 48: END  'ASCII for 0; used as exit from menu
  52. CASE 49: END
  53. CASE 50: END
  54. CASE 51: END
  55. CASE 52: END
  56. CASE 53: END
  57. CASE 54: END
  58. CASE 55: END
  59. CASE 56: END
  60. CASE 57: END
  61. END SELECT
  62. LOOP
  63. END SUB
  64.  
  65.