home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / MENUSPCS.ZIP / PCS.DEF < prev   
Encoding:
Text File  |  1987-12-25  |  1.8 KB  |  56 lines
  1.         ; Mouse Menu for Texas Instruments PC Scheme
  2.         ; ------------------------------------------
  3.         BEGIN   LB, MB, RB, , , MovU, MovD, , 50
  4.  
  5.         ; Button Definitions
  6.         ; ------------------
  7.         ; Left button displays this menu
  8. LB:     MENU    , 1, 71, 112
  9.         OPTION  "Select", slct          ; selects from a Scheme menu
  10.         OPTION  "Escape", escp          ; no-select exit from a Scheme menu
  11.         OPTION  "Cancel"                ; cancels this menu
  12.         MEND
  13.  
  14.         ; Middle button selects an item from a Scheme menu
  15. MB:     TYPE    ENTER
  16.  
  17.         ; Right button displays this menu
  18. RB:     MENU    , 1, 60, 112
  19.         OPTION  "Load", load
  20.         OPTION  "Edit", edit
  21.         OPTION  "Compile", compl
  22.         OPTION  "DOS", dos
  23.         OPTION  "FreeSp", free
  24.         OPTION  "GC", gc
  25.         OPTION  "Clear Screen", clscr
  26.         OPTION  "Scheme Reset", reset
  27.         OPTION  "Debug on/off", debug
  28.         OPTION  "Transcript on/off", scrpt
  29.         OPTION  "Exit", exit
  30.         OPTION  "Cancel"                ; cancels this menu
  31.         MEND
  32.  
  33.         ; Mouse Movement Definitions
  34.         ; --------------------------
  35. MovU:   TYPE    0, 72 ; 0, 72 is Up Arrow Key
  36. MovD:   TYPE    0, 80 ; 0, 80 is Down Arrow Key
  37.  
  38.         ; Menu Actions
  39.         ; ------------
  40.         ; RB selections
  41. load:   TYPE    "(load-menu)", ENTER
  42. edit:   TYPE    "(edit-menu)", ENTER
  43. compl:  TYPE    "(compile-menu)", ENTER
  44. dos:    TYPE    "(dos-menu)", ENTER
  45. free:   TYPE    "(freesp)", ENTER
  46. gc:     TYPE    "(gc #t)", ENTER
  47. clscr:  TYPE    "(clr-console)", ENTER
  48. reset:  TYPE    "(scheme-reset)", ENTER
  49. debug:  TYPE    "(debug-toggle)", ENTER
  50. scrpt:  TYPE    "(trnscrpt-toggle)", ENTER
  51. exit:   TYPE    "(exit)", ENTER, "CLS", ENTER
  52.  
  53.         ; MB selections
  54. slct:   TYPE    ENTER
  55. escp:   TYPE    ESC
  56.