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