home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / pb / pbmnus / altsamp.bas next >
Encoding:
BASIC Source File  |  1993-02-28  |  2.0 KB  |  68 lines
  1. DECLARE SUB AltKeyMenu (row, bfc, bbc, sfc, sbc)
  2. '**************************************************
  3. CLS
  4. AltKeyMenu 2, 15, 4, 15, 9
  5.  
  6. '**************************************************
  7. SUB AltKeyMenu (row, bfc, bbc, sfc, sbc)
  8. LOCATE row - 1, 1: PRINT STRING$(400, 219)
  9. col1 = 2
  10. col2 = 12
  11. col3 = 22
  12. col4 = 32
  13. col5 = 42
  14. col6 = 52
  15. col7 = 62
  16. col8 = 72
  17. LOCATE row, col8: COLOR bfc, bbc: PRINT "╒═╕"
  18. LOCATE row + 1, col8: PRINT "│Q│"
  19. LOCATE row + 2, col8: PRINT "╘═╛"
  20. LOCATE row + 1, col8 + 3: COLOR sfc, sbc: PRINT "uit"
  21. LOCATE row, col1: COLOR bfc, bbc: PRINT "╒═╕"
  22. LOCATE row + 1, col1: PRINT "│F│"
  23. LOCATE row + 2, col1: PRINT "╘═╛"
  24. LOCATE row + 1, col1 + 3: COLOR sfc, sbc: PRINT "iles"
  25. LOCATE row, col2: COLOR bfc, bbc: PRINT "╒═╕"
  26. LOCATE row + 1, col2: PRINT "│P│"
  27. LOCATE row + 2, col2: PRINT "╘═╛"
  28. LOCATE row + 1, col2 + 3: COLOR sfc, sbc: PRINT "eek"
  29. LOCATE row, col3: COLOR bfc, bbc: PRINT "╒═╕"
  30. LOCATE row + 1, col3: PRINT "│S│"
  31. LOCATE row + 2, col3: PRINT "╘═╛"
  32. LOCATE row + 1, col3 + 3: COLOR sfc, sbc: PRINT "can"
  33. LOCATE row, col4: COLOR bfc, bbc: PRINT "╒═╕"
  34. LOCATE row + 1, col4: PRINT "│D│"
  35. LOCATE row + 2, col4: PRINT "╘═╛"
  36. LOCATE row + 1, col4 + 3: COLOR sfc, sbc: PRINT "ial"
  37. LOCATE row, col5: COLOR bfc, bbc: PRINT "╒═╕"
  38. LOCATE row + 1, col5: PRINT "│T│"
  39. LOCATE row + 2, col5: PRINT "╘═╛"
  40. LOCATE row + 1, col5 + 3: COLOR sfc, sbc: PRINT "est"
  41. LOCATE row, col6: COLOR bfc, bbc: PRINT "╒═╕"
  42. LOCATE row + 1, col6: PRINT "│W│"
  43. LOCATE row + 2, col6: PRINT "╘═╛"
  44. LOCATE row + 1, col6 + 3: COLOR sfc, sbc: PRINT "rite"
  45. LOCATE row, col7: COLOR bfc, bbc: PRINT "╒═╕"
  46. LOCATE row + 1, col7: PRINT "│C│"
  47. LOCATE row + 2, col7: PRINT "╘═╛"
  48. LOCATE row + 1, col7 + 3: COLOR sfc, sbc: PRINT "heck"
  49. DO
  50. DO
  51. keys$ = INKEY$
  52. LOOP WHILE keys$ = ""
  53. keymove = ASC(RIGHT$(keys$, 1))
  54. SELECT CASE keymove
  55. CASE 33: END     'ALT F
  56. CASE 25: END     'ALT P
  57. CASE 31: END     'ALT S
  58. CASE 32: END     'ALT D
  59. CASE 20: END     'ALT T
  60. CASE 17: END     'ALT W
  61. CASE 46: END     'ALT C
  62. CASE 16: end     'ALT Q
  63. END SELECT
  64. LOOP
  65. END
  66. END SUB
  67.  
  68.