home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / pb / pbmnus / horzsamp.bas < prev    next >
BASIC Source File  |  1993-03-03  |  1KB  |  51 lines
  1. DECLARE SUB HorizontalMenu(tr%, bc%, fc%)
  2. CLS
  3. '**************************************************
  4. HorizontalMenu 1, 1, 15
  5. '**************************************************
  6. SUB HorizontalMenu(tr%, bc%, fc%)
  7. DIM menu$(0 to 1)
  8. color fc%, bc%
  9. menu$(0) = string$(80, 0)
  10. menu$(1) = space$(3) +"FILES" + space$( 5 )  +"SAVE" + space$( 6 ) +"WRITE" + space$( 5 ) + "LOOKUP" + space$( 4 ) + "KILL" + space$( 6 ) + "RENAME" + space$( 4 ) + "SCAN" + space$( 6 ) + "EXIT
  11. For set = 0 to 1
  12. locate tr%, 1: color fc%, bc%: print menu$(set)
  13. Next
  14. col =  4
  15. DO
  16. DO
  17. SELECT CASE col
  18. CASE 4: opt$ ="FILES
  19. CASE 14: opt$ ="SAVE
  20. CASE 24: opt$ ="WRITE
  21. CASE 34: opt$ ="LOOKUP
  22. CASE 44: opt$ ="KILL
  23. CASE 54: opt$ ="RENAME
  24. CASE 64: opt$ ="SCAN
  25. CASE 74 : opt$ ="EXIT
  26. END SELECT
  27. LOCATE tr%, col, 0: COLOR bc%, fc%: PRINT opt$
  28. keys$ = INKEY$
  29. LOOP WHILE keys$ = ""
  30. keymove = ASC(RIGHT$(keys$, 1))
  31. LOCATE tr%, col, 0: COLOR fc%, bc%: PRINT opt$
  32. SELECT CASE keymove
  33. CASE 13
  34. IF col = 4 THEN END
  35. IF col = 14 THEN END
  36. IF col = 24 THEN END
  37. IF col = 34 THEN END
  38. IF col = 44 THEN END
  39. IF col = 54 THEN END
  40. IF col = 64 THEN END
  41. IF col = 74 THEN END
  42. CASE 75: col = col - 10 
  43. cASE 77: col = col + 10 
  44. CASE 71: col =  74 
  45. CASE 79: col =  74 
  46. END SELECT
  47. IF col < 4  THEN col = 74 ELSE IF col > 74 THEN col = 4 
  48. LOOP
  49. END
  50. END SUB
  51.