home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Programmer's Library 1.3 / Microsoft-Programers-Library-v1.3.iso / sampcode / mouse / sources / vc.def < prev    next >
Encoding:
Text File  |  1988-08-11  |  7.8 KB  |  289 lines
  1.  
  2. BEGIN    lb,rb,bb,lm,rm,um,dm,32,16
  3.  
  4. ;------------------------------BOTH BUTTONS----------------------------------
  5.  
  6. bb:    MATCH 2,1,INVERSE,"[",CTRLC,bb1        ;"[Edit]:"
  7. bb1:    MATCH 2,1,INVERSE,"V",CTRLC,bb2        ;"Value"
  8. bb2:    MATCH 2,5,INVERSE,"l ",CTRLC,ESCAPE        ;"Label" not "Label:"
  9.  
  10. ;------------------------------LEFT BUTTON-----------------------------------
  11.  
  12. lb:    MATCH 2,1,INVERSE," ",MAIN,lb1        ;Not in command mode 
  13. lb1:    MATCH 2,1,INVERSE,"(C)",MAIN,lb2    ;"(C)"
  14. lb2:    MATCH 2,1,INVERSE,"V",VALUE,lb3        ;"Value"
  15. lb3:    MATCH 2,5,INVERSE,"l ",LABEL,lb4        ;"Label" not "Label:"
  16. lb4:    MATCH 2,12,INVERSE,"N=",NO,lb5        ;"Replicate: N=No Change ..."
  17. lb5:    MATCH 2,13,INVERSE,"Y",YES,lb6        ;"Clear: Type Y ..."
  18. lb6:    MATCH 2,12,INVERSE,"Y",YES,lb7        ;"Quit: Type Y ..."
  19. lb7:    MATCH 2,25,INVERSE,"Y",YES,lb8        ;"... File already ..."
  20. lb8:    MATCH 2,19,INVERSE,"Y",YES,RETURN        ;"Delete File: Type Y ..."
  21.  
  22. ;------------------------------RIGHT BUTTON----------------------------------
  23.  
  24. rb:    MATCH 2,1,INVERSE," ",MAIN,rb1        ;Not in command mode 
  25. rb1:    MATCH 2,1,INVERSE,"(C)",MAIN,rb2    ;"(C)"
  26. rb2:    MATCH 2,1,INVERSE,"V",VALUE,rb3        ;"Value"
  27. rb3:    MATCH 2,5,INVERSE,"l ",LABEL,rb4        ;"Label" not "Label:"
  28. rb4:    MATCH 2,12,INVERSE,"N=",REL,lb5        ;"Replicate: N=No Change ..."
  29. rb5:    MATCH 2,13,INVERSE,"Y",YES,rb6        ;"Clear: Type Y ..."
  30. rb6:    MATCH 2,12,INVERSE,"Y",YES,rb7        ;"Quit: Type Y ..."
  31. rb7:    MATCH 2,25,INVERSE,"Y",YES,rb8        ;"... File already ..."
  32. rb8:    MATCH 2,19,INVERSE,"Y",YES,RETURN        ;"Delete File: Type Y ..."
  33.  
  34. ;------------------------------LEFT MOTION-----------------------------------
  35.  
  36. lm:    MATCH 2,1,INVERSE," ",LEFT,lm1        ;Not in command mode 
  37. lm1:    MATCH 2,1,INVERSE,"(C)",LEFT,lm2        ;"(C)"
  38. lm2:    MATCH 2,1,INVERSE,"V",LEFT,lm3        ;"Value"
  39. lm3:    MATCH 2,1,INVERSE,"M",LEFT,lm4        ;"Move:"
  40. lm4:    MATCH 2,1,INVERSE,"[",LEFT,lm5        ;"[Edit]:"
  41. lm5:    MATCH 2,1,INVERSE,"Rep",LEFT,lm6    ;"Replicate:"
  42. lm6:    MATCH 2,6,INVERSE,": L",LEFT,lm7    ;"Print: Lower right ..."
  43. lm7:    MATCH 2,10,INVERSE,": L",LEFT,NUL    ;"Data save: Lower right ..."
  44.  
  45. ;------------------------------RIGHT MOTION----------------------------------
  46.  
  47. rm:    MATCH 2,1,INVERSE," ",RIGHT,rm1        ;Not in command mode 
  48. rm1:    MATCH 2,1,INVERSE,"(C)",RIGHT,rm2    ;"(C)"
  49. rm2:    MATCH 2,1,INVERSE,"V",RIGHT,rm3        ;"Value"
  50. rm3:    MATCH 2,1,INVERSE,"M",RIGHT,rm4        ;"Move:"
  51. rm4:    MATCH 2,1,INVERSE,"[",RIGHT,rm5        ;"[Edit]:"
  52. rm5:    MATCH 2,1,INVERSE,"Rep",RIGHT,rm6    ;"Replicate:"
  53. rm6:    MATCH 2,6,INVERSE,": L",RIGHT,rm7    ;"Print: Lower right ..."
  54. rm7:    MATCH 2,10,INVERSE,": L",RIGHT,NUL    ;"Data save: Lower right ..."
  55.  
  56. ;------------------------------UP MOTION-------------------------------------
  57.  
  58. um:    MATCH 2,1,INVERSE," ",UP,um1        ;Not in command mode 
  59. um1:    MATCH 2,1,INVERSE,"(C)",UP,um2        ;"(C)"
  60. um2:    MATCH 2,1,INVERSE,"V",UP,um3        ;"Value"
  61. um3:    MATCH 2,1,INVERSE,"M",UP,um4        ;"Move:"
  62. um4:    MATCH 2,1,INVERSE,"Rep",UP,um5        ;"Replicate:"
  63. um5:    MATCH 2,6,INVERSE,": L",UP,um6    ;"Print: Lower right ..."
  64. um6:    MATCH 2,10,INVERSE,": L",UP,NUL    ;"Data save: Lower right ..."
  65.  
  66. ;------------------------------DOWN MOTION-----------------------------------
  67.  
  68. dm:    MATCH 2,1,INVERSE," ",DOWN,dm1        ;Not in command mode 
  69. dm1:    MATCH 2,1,INVERSE,"(C)",DOWN,dm2    ;"(C)"
  70. dm2:    MATCH 2,1,INVERSE,"V",DOWN,dm3        ;"Value"
  71. dm3:    MATCH 2,1,INVERSE,"M",DOWN,dm4        ;"Move:"
  72. dm4:    MATCH 2,1,INVERSE,"Rep",DOWN,dm5    ;"Replicate:"
  73. dm5:    MATCH 2,6,INVERSE,": L",DOWN,dm6    ;"Print: Lower right ..."
  74. dm6:    MATCH 2,10,INVERSE,": L",DOWN,NUL    ;"Data save: Lower right ..."
  75.  
  76. ;------------------------------MENUS-----------------------------------------
  77.  
  78. MAIN:    popup    2,1,INVERSE
  79.     text "Main: Command Label Value Goto Home Window Recalc Absolute "
  80.     select    1,7,7,COMMAND
  81.     select    1,15,5,QUOTE
  82.     select    1,21,5,PLUSBKSP
  83.     select    1,27,4,GREAT
  84.     select    1,32,4,HOME
  85.     select    1,37,6,SEMICOLON
  86.     select    1,44,6,BANG
  87.     select    1,51,8,POUND
  88.     pend
  89.  
  90. COMMAND:    popup    2,1,INVERSE
  91.     text "Command: Blank Clear Delete Edit Format Global Insert Move "
  92.     text "         Print Replicate Storage Titles Version Window Repeat(-)                "
  93.     select    1,10,5,B
  94.     select    1,16,5,C
  95.     select    1,22,6,DELETE
  96.     select    1,29,4,E
  97.     select    1,34,6,FORMAT
  98.     select    1,41,6,GLOBAL
  99.     select    1,48,6,INSERT
  100.     select    1,55,4,M
  101.     select    2,10,5,PRINT
  102.     select    2,16,9,R
  103.     select    2,26,7,STORAGE
  104.     select    2,34,6,TITLE
  105.     select    2,41,7,V
  106.     select    2,49,6,WINDOW
  107.     select    2,56,9,REPEAT
  108.     pend
  109. B:    TYPE "/b"
  110. C:    TYPE "/c"
  111. E:    TYPE "/e"
  112. M:    TYPE "/m"
  113. R:    TYPE "/r"
  114. V:    TYPE "/v"
  115. REPEAT:   TYPE "/-"
  116.  
  117. DELETE:    popup    2,1,INVERSE
  118.       text "Delete: Row Column                                "
  119.     select    1,9,3,DR
  120.     select    1,13,6,DC
  121.     pend
  122. DR:    TYPE "/dr"
  123. DC:    TYPE "/dc"
  124.  
  125. FORMAT:    popup    2,1,INVERSE
  126.     text "Format: Default General Integer Left Right Dollar($) Graph(*) "
  127.     select    1,9,7,FD
  128.     select    1,17,7,FG
  129.     select    1,25,7,FI
  130.     select    1,33,4,FL
  131.     select    1,38,5,FR
  132.     select    1,44,9,FDOLLAR
  133.     select    1,54,8,FGRAPH
  134.     pend
  135. FD:    TYPE "/fd"
  136. FG:    TYPE "/fg"
  137. FI:    TYPE "/fi"
  138. FL:    TYPE "/fl"
  139. FR:    TYPE "/fr"
  140. FDOLLAR:    TYPE "/f$"
  141. FGRAPH:    TYPE "/f*"
  142.  
  143. GLOBAL:    popup    2,1,INVERSE
  144.     text "Global: Column Order Recalc Format                "
  145.     select    1,9,6,GC
  146.     select    1,16,5,ORDER
  147.     select    1,22,6,RECALC
  148.     select    1,29,6,FORMAT2
  149.     pend
  150. GC:    TYPE "/gc"
  151.  
  152. ORDER:    popup    2,1,INVERSE
  153.     text "Reeval Order: Row Column                          "
  154.     select    1,15,3,GOR
  155.     select    1,19,6,GOC
  156.     pend
  157. GOR:    TYPE "/gor"
  158. GOC:    TYPE "/goc"
  159.  
  160. RECALC:    popup    2,1,INVERSE
  161.     text "Recalc: Auto Manual                               "
  162.     select    1,9,4,GRA
  163.     select    1,14,6,GRM
  164.     pend
  165. GRA:    TYPE "/gra"
  166. GRM:    TYPE "/grm"
  167.  
  168. FORMAT2:    popup    2,1,INVERSE
  169.     text "Format: Default General Integer Left Right Dollar($) Graph(*) "
  170.     select    1,9,7,GFD
  171.     select    1,17,7,GFG
  172.     select    1,25,7,GFI
  173.     select    1,33,4,GFL
  174.     select    1,38,5,GFR
  175.     select    1,44,9,GFDOLLAR
  176.     select    1,54,8,GFGRAPH
  177.     pend
  178. GFD:    TYPE "/gfd"
  179. GFG:    TYPE "/gfg"
  180. GFI:    TYPE "/gfi"
  181. GFL:    TYPE "/gfl"
  182. GFR:    TYPE "/gfr"
  183. GFDOLLAR:    TYPE "/gf$"
  184. GFGRAPH:    TYPE "/gf*"
  185.  
  186. INSERT:    popup    2,1,INVERSE
  187.     text "Insert: Row Column                                "
  188.     select    1,9,3,IR
  189.     select    1,13,6,IC
  190.     pend
  191. IR:    TYPE "/ir"
  192. IC:    TYPE "/ic"
  193.  
  194. PRINT:    popup    2,1,INVERSE
  195.     text "Print: Printer File                               "
  196.     select    1,8,7,PP
  197.     select    1,16,4,PF
  198.     pend
  199. PP:    TYPE "/pp"
  200. PF:    TYPE "/pf"
  201.  
  202. STORAGE:    popup    2,1,INVERSE
  203.     text "Storage: Load Save Delete Quit Data(#)            "
  204.     select    1,10,4,SL
  205.     select    1,15,4,SS
  206.     select    1,20,6,SD
  207.     select    1,27,4,SQ
  208.     select    1,32,7,DATA
  209.     pend
  210. SL:    TYPE "/sl"
  211. SS:    TYPE "/ss"
  212. SD:    TYPE "/sd"
  213. SQ:    TYPE "/sq"
  214.  
  215. DATA:    popup    2,1,INVERSE
  216.     text "Data: Save Load                                   "
  217.     select    1,7,4,SPOUNDS
  218.     select    1,12,4,SPOUNDL
  219.     pend
  220. SPOUNDS:    TYPE "/s#s"
  221. SPOUNDL:    TYPE "/s#l"
  222.  
  223. TITLE:    popup    2,1,INVERSE
  224.     text "Titles: Horizontal Vertical Both None             "
  225.     select    1,9,10,TH
  226.     select    1,20,8,TV
  227.     select    1,29,4,TB
  228.     select    1,34,4,TN
  229.     pend
  230. TH:    TYPE "/th"
  231. TV:    TYPE "/tv"
  232. TB:    TYPE "/tb"
  233. TN:    TYPE "/tn"
  234.  
  235. WINDOW:    popup    2,1,INVERSE
  236.     text "Window: Horizontal Vertical 1Window Synch Unsynch "
  237.     select    1,9,10,WH
  238.     select    1,20,8,WV
  239.     select    1,29,7,W1
  240.     select    1,37,5,WS
  241.     select    1,43,7,WU
  242.     pend
  243. WH:    TYPE "/wh"
  244. WV:    TYPE "/wv"
  245. W1:    TYPE "/w1"
  246. WS:    TYPE "/ws"
  247. WU:    TYPE "/wu"
  248.  
  249. LABEL:    popup    2,1,INVERSE
  250.     text "Label: Execute Edit "
  251.     select    1,8,7,RETURN
  252.     select    1,16,4,CTRLE
  253.     pend
  254.  
  255. VALUE:    popup    2,1,INVERSE
  256.     text "Value: Enter Period Edit Recalc Absolute "
  257.     select    1,8,5,RETURN
  258.     select    1,14,6,PERIOD
  259.     select    1,21,4,CTRLE
  260.     select    1,26,6,BANG
  261.     select    1,33,8,POUND
  262.     pend
  263.  
  264.  
  265. ;------------------------------KEYS------------------------------------------
  266.  
  267. NUL:    NOTHING
  268. CTRLC:    TYPE 3
  269. CTRLE:    TYPE 5
  270. BKSP:        TYPE 8
  271. RETURN:     TYPE 13
  272. ESCAPE:     TYPE 27
  273. BANG:    TYPE "!"
  274. QUOTE:  TYPE 34
  275. POUND:    TYPE "#"
  276. PLUSBKSP:    TYPE "+",8
  277. PERIOD:        TYPE "."
  278. SEMICOLON:    TYPE ";"
  279. GREAT:    TYPE ">"
  280. NO:    TYPE "n"
  281. REL:    TYPE "r"
  282. YES:    TYPE "y"
  283. HOME:        TYPE 0,71
  284. UP:         TYPE 0,72
  285. LEFT:       TYPE 0,75
  286. RIGHT:      TYPE 0,77
  287. DOWN:       TYPE 0,80
  288.  
  289.