home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / mouse / dosmouse.arc / DOSMOUSE.DEF next >
Encoding:
Text File  |  1989-07-28  |  4.0 KB  |  110 lines
  1. ;----------------------------------------------------------------------------
  2. ;                            DOSMOUSE
  3. ;
  4. ;                       A Mouse-Menu For DOS
  5. ;                       Using Microsoft Mouse
  6. ;
  7. ;                             - by -
  8. ;                         RG Rasulis, Jr.
  9. ; INSTRUCTIONS:
  10. ;              Move Mouse Left,Right,Up,Down to Emulate Cursor Keys;
  11. ; HOT BUTTONS:
  12. ;
  13. ;     ESC ------->░   ░ <---- RETURN
  14. ;                 ░   ░
  15. ;                -------
  16. ;                   ^
  17. ;                   |
  18. ;            Dos Commands
  19. ;----------------------------------------------------------------------------
  20.  
  21. ;--------- Notes to Modify DEF's
  22. ; TO CHANGE:
  23. ;           definitions for button actions, goto line 37 and make corresponding
  24. ;                      changes to respective subroutines
  25. ;           word processing program, goto line 106
  26. ;           spreadsheet program, goto line 107
  27. ;           telecommunications program, goto line 108
  28. ;           utility program, goto line 109
  29.  
  30. ;--------- Define Mouse Actions
  31. BEGIN lb,rb,bb,lm,rm,um,dm,75,75
  32.  
  33. um:    EXECUTE UP
  34. dm:    EXECUTE DOWN
  35. lm:    EXECUTE LEFT
  36. rm:    EXECUTE RIGHT
  37. lb:    TYPE ESC
  38. bb:    EXECUTE MENU
  39. rb:    TYPE ENTER
  40.  
  41. NUL:           NOTHING
  42. RETURN:        TYPE 13
  43. UP:            TYPE 0,72
  44. DOWN:          TYPE 0,80
  45. LEFT:          TYPE 0,75
  46. RIGHT:         TYPE 0,77
  47. ESCAPE:        TYPE ESC
  48.  
  49.  
  50. ;--------- Create Pop-up Menu
  51. MENU: POPUP 1,13,31
  52.         TEXT "╔═════════╤════════════════════════╤══════════════════╗"
  53.         TEXT "║▒▒▒▒▒▒▒▒▒│▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒│▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒║"
  54.         TEXT "║Drive:▒▒▒│DOS Commands:▒▒▒▒▒▒▒▒▒▒▒│Programs:▒▒▒▒▒▒▒▒▒║"
  55.         TEXT "║▒▒▒▒▒A:▒▒│▒▒CD ..▒▒▒▒▒▒MKDIR▒▒▒▒▒▒│▒▒Word-Processing▒║"
  56.         TEXT "║▒▒▒▒▒B:▒▒│▒▒COPY▒▒▒▒▒▒▒PRINT▒▒▒▒▒▒│▒▒Spreadsheet▒▒▒▒▒║"
  57.         TEXT "║▒▒▒▒▒C:▒▒│▒▒DEL▒▒▒▒▒▒▒▒RENAME▒▒▒▒▒│▒▒Telecomm▒▒▒▒▒▒▒▒║"
  58.         TEXT "║▒▒▒▒▒D:▒▒│▒▒DIR▒▒▒▒▒▒▒▒STOP PRINT▒│▒▒Norton Util's▒▒▒║"
  59.         TEXT "║▒▒▒▒▒▒▒▒▒│▒▒DISKCOPY▒▒▒TYPE▒▒▒▒▒▒▒│▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒║"
  60.         TEXT "║▒▒▒▒▒▒▒▒▒│▒▒FORMAT▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒│▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒║"
  61.         TEXT "║▒▒▒▒▒▒▒▒▒│▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒│▒▒Cancel Menu▒▒▒▒▒║"
  62.         TEXT "╚═════════╧════════════════════════╧══════════════════╝"
  63.         SELECT 10,39,11
  64.         SELECT 4,7,2,dra
  65.         SELECT 5,7,2,drb
  66.         SELECT 6,7,2,drc
  67.         SELECT 7,7,2,drd
  68.         SELECT 4,14,6,cd
  69.         SELECT 5,14,4,copy
  70.         SELECT 6,14,3,del
  71.         SELECT 7,14,3,dir
  72.         SELECT 8,14,8,disc
  73.         SELECT 9,14,6,form
  74.         SELECT 4,25,5,md
  75.         SELECT 5,25,5,p
  76.         SELECT 6,25,6,ren
  77.         SELECT 7,25,10,ps
  78.         SELECT 8,25,4,typ
  79.         SELECT 4,39,15,word
  80.         SELECT 5,39,11,spre
  81.         SELECT 6,39,8,modem
  82.         SELECT 7,39,13,nu
  83.       PEND
  84.  
  85. ;-------- Menu Subroutines
  86.                                            ;--- Switch Default Drive ---
  87. dra:      TYPE ESC,"a:",13                 ; switch to drive a:
  88. drb:      TYPE ESC,"b:",13                 ; switch to drive b:
  89. drc:      TYPE ESC,"c:",13                 ; switch to drive c:
  90. drd:      TYPE ESC,"d:",13                 ; switch to drive d:
  91.  
  92.                                            ;--- DOS Commands ---
  93. cd:       TYPE ESC,"cd ..",13              ; CD ..
  94. copy:     TYPE ESC,"copy "                 ; COPY
  95. del:      TYPE ESC,"del "                  ; DEL
  96. dir:      TYPE ESC,"dir ",13               ; DIR
  97. disc:     TYPE ESC,"diskcopy ",13          ; DISKCOPY
  98. form:     TYPE ESC,"format",13             ; FORMAT
  99. md:       TYPE ESC,"mkdir "                ; MKDIR
  100. p:        TYPE ESC,"print "                ; PRINT
  101. ren:      TYPE ESC,"rename "               ; RENAME
  102. ps:       TYPE ESC,"print /T",13           ; Kill Print Spooler
  103. typ:      TYPE ESC,"browse "               ; TYPE
  104.  
  105.                                            ;--- Run a Program ---
  106. word:     TYPE ESC,"w",13                  ; Word Processing
  107. spre:     TYPE ESC,"s",13                  ; Spreadsheet
  108. modem:    TYPE ESC,"t",13                  ; Telecommunications
  109. nu:       TYPE ESC,"n",13                  ; Norton Utilities
  110.