home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 2: PC / frozenfish_august_1995.bin / bbs / d07xx / d0770.lha / Uedit / Keypad!K.lha / Config!K
Text File  |  1992-11-21  |  26KB  |  681 lines
  1. This config redefines the numeric keypad and a few other keys for compatability
  2. with Brief, LSE and various other commonly-used editors.  It is not an
  3. emulation of any specific editor, rather, it is an attempt to make the keypad
  4. safe for folks like myself whose fingers have been irreversibly trained, and
  5. who know kp7, kp1, kp9 and kp3 only as Home, End, PageUp and PageDown.
  6.  
  7. All competing functions in the standard Uedit configs have been preserved, and
  8. moved somewhere, not necessarily anywhere convenient.
  9.  
  10. Key assignments:
  11.  
  12. Numeric keypad
  13.  
  14.     kp0 (Ins)  - normal - toggle overstrike
  15.                  shift  - "
  16.     kp. (Del)  - normal - delete character at cursor
  17.                  shift  - delete word right
  18.                  alt    - delete to end of line (alt-End on PC)
  19.                  ctl    - delete cursor line
  20.     kp1 (End)  - normal - move cursor to end of line
  21.                  shift  - move cursor to bottom of screen
  22.                  alt    - " (not on PC)
  23.                  ctl    - move cursor to end of file
  24.     kp3 (PgDn) - normal - move display down 1 page (one line overlap)
  25.                  shift  - move current line to bottom of screen
  26.                  alt    - " (not on PC)
  27.                  ctl    - move cursor to end of file
  28.     kp4 ([-)   - normal - move left one character
  29.                  shift  - move cursor to start of word
  30.     kp6 (->)   - normal - move right one character
  31.                  shift  - move cursor to end of word
  32.     kp7 (Home) - normal - move cursor to start of line
  33.                  shift  - move cursor to top of screen
  34.                  alt    - " (not on PC)
  35.                  ctl    - move cursor to start of file
  36.                  SA     - delete to start of line (original alt-kp7)
  37.                  SC     - delete to start of page (original ctl-kp7)
  38.                  SAC    - delete char left (original shift-kp7)
  39.                           (on the PC I use Home rather than KP7 for these)
  40.     kp9 (PgUp) - normal - move display up 1 page (one line overlap)
  41.                  shift  - move current line to top of screen
  42.                  alt    - " (not on PC)
  43.                  ctl    - move cursor to start of file
  44.                  SA     - delete to end of line (original alt-kp9)
  45.                  SC     - delete to end of page (original ctl-kp7)
  46.                  SAC    - delete char lat cursor (original shift-kp9)
  47.                           (on the PC I use PgUp rather than KP9 for these)
  48.  
  49. Other keypad:
  50.  
  51. (I find these definitions more mnemonic than the Uedit ones, but they are
  52. hardly essential.  They depend on the Amiga 2000 keyboard.  Note that the
  53. normal- keys are line-oriented, that is, they mark the line containing the
  54. cursor, no the character position.)
  55.  
  56.     kp(   - normal - start hilite region at start of line
  57.             shift  - start hilite region at cursor
  58.             alt    - "
  59.             ctl    - start invert region at cursor
  60.                      (on the PC, I use F11 instead)
  61.     kp)   - normal - end hilite region at end of line
  62.             shift  - end hilite region at cursor
  63.             alt    - "
  64.             ctl    - end invert region at cursor
  65.                      (on the PC, I use F12 instead)
  66.     kp/   - normal - copy to hilite buffer
  67.             shift  - uncolor hilite region
  68.             alt    - uncolor invert region
  69.             ctl    - copy to invert buffer
  70.     kp*   - normal - undo deletes
  71.             shift  - "
  72.             alt    - "
  73.             ctl    - "
  74.     kp-   - normal - copy to hilite buffer, then delete
  75.             shift  - "
  76.             alt    - erase invert region, no copy
  77.             ctl    - copy to invert buffer, then delete
  78.     kp+   - normal - copy hilite buffer before start of line
  79.             shift  - copy hilite buffer at cursor
  80.             alt    - "
  81.             ctl    - copy invert buffer at cursor
  82.     kpEnt - normal - split line at cursor
  83.             shift  - "
  84.             alt    - join next line to cursor line
  85.             ctl    - "
  86.  
  87. Miscellaneous
  88.  
  89.     bs   - normal - backspace (in overstrike mode, blank out old character)
  90.            shift  - delete word left
  91.            lAmiga - open space before word (original shift-bs)
  92.  
  93. Toggle overstrike typing mode
  94. <normal-kp0:       flipFlag(curFile,overstrike) >
  95.                    
  96. Move cursor down 1 page
  97. <normal-kp3:         if (!eqloc(curFile, ePage, eFile)) {
  98.                         runKey(shft-kp7)
  99.                         vScroll(ePage)
  100.                         if (is(curFile,eLine))
  101.                            vScroll(upLine) .. I don't know why ..!
  102.                         vScroll(upLine) 
  103.                         if (!onScreen(sPage)) updateDisplay
  104.                         runKey(shft-kp7) }
  105.                      else runKey(ctl-kp3) >
  106.                      
  107. Move cursor up one page 
  108. <normal-kp9:         runKey(shft-kp1)
  109.                      vScroll(sPage)
  110.                      if(!eqloc(curFile,sPage,sFile)) 
  111.                         vScroll(downLine) 
  112.                      runKey(shft-kp7) >
  113.                      
  114. Move current line to top of screen
  115. <shft-kp9: vScroll(atCursor)
  116.            if (!is(curFile, sLine))
  117.               moveCursor(curFile, sLine)
  118.            while(!is(curFile,sPage)) 
  119.               vscroll(1) >
  120.               
  121. Move cursor to top of screen
  122. <shft-kp7:           moveCursor(curFile,sPage) >
  123.  
  124. .. No alt-kp on PC
  125.  
  126. Move cursor to top of screen
  127. <alt-kp7:            moveCursor(curFile,sPage) >
  128.  
  129. Move current line to top of screen
  130. <alt-kp9:            runKey(shft-kp9) >
  131.              
  132. Move cursor to bottom of screen
  133. <shft-kp1:           moveCursor(curFile,ePage) 
  134.                      moveCursor(curFile,upLine) >
  135.                      
  136. Move current line to bottom of screen
  137. <shft-kp3: runKey(alt-kp9)
  138.            runKey(normal-kp9) 
  139.            updateDisplay
  140.            runKey(shft-kp1) >
  141.  
  142. .. No alt-kp on PC
  143.  
  144. Move cursor to bottom of screen
  145. <alt-kp1:            moveCursor(curFile,ePage) 
  146.                      moveCursor(curFile,upLine) >
  147.                      
  148. Move current line to top of screen
  149. <alt-kp3:            runKey(shft-kp1) >
  150.           
  151. Cursor to start of file
  152. <ctl-kp9:            moveCursor(curFile,sFile)>
  153.  
  154. Cursor to end of file
  155. <ctl-kp3:            moveCursor(curFile,eFile)>
  156.  
  157. Cursor to start of file
  158. <ctl-kp7:            moveCursor(curFile,sFile)>
  159.  
  160. Cursor to end of file
  161. <ctl-kp1:            moveCursor(curFile,eFile)>
  162.  
  163. .. This definition slows down the backspace key considerably.  Do not use
  164. .. unless you use overstrike mode frequently!
  165.  
  166. Overstrike-mode backspace
  167. <normal-bs:
  168.                moveCursor(curFile,sChar)
  169.                clearchar(curFile)
  170.                if (getFlag(curFile, overstrike)) 
  171.                   runKey(shft-del) >
  172.                   
  173. Delete word left, storing it in Undo buffer
  174. <shft-bs:      
  175.                if (!eqLoc(curFile,locB,atCursor)) freeBuf(buf45)
  176.                equateLoc(curFile,locB,atCursor)
  177.                moveCursor(curFile,sWord)
  178.                equateLoc(curFile,locA,atCursor)
  179.                insertRgn(buf45,sFile,curFile,loc)
  180.                equateLoc(buf45,sPage,sFile)
  181.                clearRgn(curFile,loc) >
  182.  
  183. Open a space for typing in front of current word
  184. <lAmiga-bs:  
  185.            if (!is(curFile,sWord)) moveCursor(curFile,sWord)
  186.            runKey(shft-del)>
  187.  
  188. Delete word right, storing it in Undo buffer
  189. <shft-kpDot:   
  190.                if (!eqLoc(curFile,locB,atCursor)) freeBuf(buf45)
  191.                equateLoc(curFile,locA,atCursor)
  192.                moveCursor(curFile,eWord)
  193.                equateLoc(curFile,locB,atCursor)
  194.                insertRgn(buf45,eFile,curFile,loc)
  195.                equateLoc(buf45,sPage,sFile)
  196.                clearRgn(curFile,loc) >
  197.                
  198. Move cursor to start of word
  199. <shft-kp4:   moveCursor(curFile,sWord) >
  200.  
  201. Move cursor to end of word
  202. <shft-kp6:   moveCursor(curFile,eWord) >
  203.  
  204. .. kpLParen -> f11 on PC
  205.  
  206. Set start of hilite region at start of line
  207. <normal-kpLParen:   if (!is(curFile,sLine)) runKey(normal-kp7)
  208.                     runKey(alt-kpLParen) >
  209.  
  210. .. kpRParen -> f12 on PC
  211.  
  212. Set end of hilite region at end of line
  213. <normal-kpRParen:   if (!is(curFile,eLine)) runKey(normal-kp1)
  214.                     moveCursor(curFile, eChar)
  215.                     runKey(alt-kpRparen) >
  216.  
  217. UNDO scratch deletes, inserting scratch delete buffer at cursor
  218. <normal-kpStar:   insertRgn(curFile,atCursor,buf45,all) >
  219.  
  220. Copy hilite region into buffer
  221. <normal-kpSlash: if (getFlag(curFile,columnar)) { runKey(shftCtl-3) return }
  222.                if (gtLoc(curFile,eHilite,sHilite))
  223.                    { freeBuf(buf47) insertRgn(buf47,sFile,curFile,hilite)
  224.                      equateLoc(buf47,sPage,sFile) }
  225.                else returnFalse >
  226.  
  227. Copy hilite region into buffer, then delete hilite region
  228. <normal-kpMinus:    if (getFlag(curFile,columnar)) { runKey(shftCtl-1) return }
  229.                     if (runKey(normal-kpSlash)) clearRgn(curFile,hilite) >
  230.  
  231. .. kpEnter -> kpReturn on PC
  232.  
  233. Split line at cursor
  234. <normal-kpEnter:    insertChar(curFile,10) 
  235.                     runKey(alt-4) >
  236.                     
  237. Insert copied hilite at start of line
  238. <normal-kpPlus: runKey(normal-kp7)
  239.                 runKey(shft-kpPlus) >
  240.  
  241. Delete char to left of cursor, storing it in Undo buffer
  242. <shftAltCtl-kp7:     .. shftAltCtl-home on PC
  243.                if (!eqLoc(curFile,locB,atCursor)) freeBuf(buf45)
  244.                equateLoc(curFile,locB,atCursor)
  245.                moveCursor(curFile,sChar)
  246.                equateLoc(curFile,locA,atCursor)
  247.                insertRgn(buf45,sFile,curFile,loc)
  248.                equateLoc(buf45,sPage,sFile)
  249.                clearRgn(curFile,loc) >
  250.  
  251. Delete char under cursor, storing it in Undo buffer
  252. <shftAltCtl-kp9:     .. shftAltCtl-pgup on PC
  253.                if (!eqLoc(curFile,locB,atCursor)) freeBuf(buf45)
  254.                equateLoc(curFile,locA,atCursor)
  255.                moveCursor(curFile,eChar)
  256.                equateLoc(curFile,locB,atCursor)
  257.                insertRgn(buf45,eFile,curFile,loc)
  258.                equateLoc(buf45,sPage,sFile)
  259.                clearRgn(curFile,loc) >
  260.  
  261. Delete char under cursor, storing it in Undo buffer
  262. <normal-kpDot: runKey(shftAltCtl-kp9) >
  263.  
  264. Move cursor left 1 char
  265. <normal-kp4:     moveCursor(curFile,sChar) >
  266.  
  267. Move cursor right 1 char
  268. <normal-kp6:     moveCursor(curFile,eChar) >
  269.  
  270. Set start of hilite region at cursor
  271. <shft-kpLParen:     runKey(alt-kpLParen) >
  272.  
  273. Set end of hilite region at cursor
  274. <shft-kpRParen:     runKey(alt-kpRParen) >
  275.  
  276. UNDO scratch deletes, inserting scratch delete buffer at cursor
  277. <shft-kpStar:     runKey(normal-kpStar) >
  278.  
  279. Uncolor the hilite region
  280. <shft-kpSlash:    equateLoc(curFile,sHilite,eHilite) refreshDisplay >
  281.  
  282. Split line at cursor
  283. <shft-kpEnter: runKey(normal-kpEnter) >
  284.  
  285. Insert copied hilite at cursor
  286. <shft-kpPlus:   if (getFlag(curFile,columnar)) { runKey(shftCtl-4) return }
  287.                    if (is(curFile,sFile)) {
  288.                         equateLoc(curFile,sHilite,atCursor)
  289.                         equateLoc(curFile,eHilite,sHilite)
  290.                    } else {
  291.                         equateLoc(curFile,sHilite,atCursor)
  292.                         decLoc(curFile,sHilite)
  293.                         equateLoc(curFile,eHilite,atCursor)
  294.                    }
  295.                    insertRgn(curFile,atCursor,buf47,all)
  296.                    if (eqLoc(curFile,atCursor,sHilite)) equateLoc(curFile,sHilite,sFile)
  297.                    else incLoc(curFile,sHilite)
  298.                    if (!onScreen(atCursor)) vScroll(atCursor) >
  299.                    
  300. Delete to start of line, storing it in Undo buffer
  301. <shftAlt-kp7:      .. shftAlt-home on PC
  302.                if (!eqLoc(curFile,locB,atCursor)) freeBuf(buf45)
  303.                if (is(curFile,sLine)) runKey(shftAltCtl-kp7)
  304.                else {
  305.                    equateLoc(curFile,locB,atCursor)
  306.                    moveCursor(curFile,sLine)
  307.                    equateLoc(curFile,locA,atCursor)
  308.                    insertRgn(buf45,sFile,curFile,loc)
  309.                    equateLoc(buf45,sPage,sFile)
  310.                    clearRgn(curFile,loc)
  311.                } >
  312.                
  313. Delete to end of line, storing it in Undo buffer
  314. <shftAlt-kp9:       .. shftAlt-pgup on PC
  315.             if (!eqLoc(curFile,locB,atCursor)) freeBuf(buf45)
  316.             if (is(curFile,eLine)) runKey(shftAltCtl-kp9)
  317.             else {
  318.                equateLoc(curFile,locA,atCursor)
  319.                moveCursor(curFile,eLine)
  320.                equateLoc(curFile,locB,atCursor)
  321.                insertRgn(buf45,eFile,curFile,loc)
  322.                equateLoc(buf45,sPage,sFile)
  323.                clearRgn(curFile,loc)
  324.             } >
  325.             
  326. Move cursor to start of line
  327. <normal-kp7:if (!is(curFile,sLine))   
  328.             moveCursor(curFile,sLine) >
  329.             
  330. Move cursor to end of line
  331. <normal-kp1:if (!is(curFile,eLine))   
  332.             moveCursor(curFile,eLine) >
  333.             
  334. Set start of hilite region at cursor
  335. <alt-kpLParen:   equateLoc(curFile,sHilite,atCursor) refreshDisplay >
  336.  
  337. Set end of hilite region at cursor
  338. <alt-kpRParen:   equateLoc(curFile,eHilite,atCursor) refreshDisplay >
  339.  
  340. Toggle insert/overstrike mode
  341. <shft-kp0:      runKey(normal-kp0) >
  342.  
  343. Uncolor the invert region
  344. <alt-kpSlash:    equateLoc(curFile,sInvert,eInvert) refreshDisplay >
  345.  
  346. Join next line to cursor line
  347. <alt-kpEnter:    runKey(ctl-j) >
  348.  
  349. UNDO scratch deletes, inserting scratch delete buffer at cursor
  350. <alt-kpStar:     runKey(normal-kpStar) >
  351.  
  352. Erase the invert region.  No Copy is made!
  353. <alt-kpMinus:    clearRgn(curFile,invert) >
  354.  
  355. Insert copied hilite at cursor
  356. <alt-kpPlus: runKey(shft-kpPlus) >
  357.  
  358. Delete from cursor to start of page, storing it in Undo buffer
  359. <shftCtl-kp7:      .. shftCtl-home on PC
  360.                if (!eqLoc(curFile,locB,atCursor)) freeBuf(buf45)
  361.                equateLoc(curFile,locB,atCursor)
  362.                moveCursor(curFile,sPage)
  363.                equateLoc(curFile,locA,atCursor)
  364.                insertRgn(buf45,sFile,curFile,loc)
  365.                equateLoc(buf45,sPage,sFile)
  366.                clearRgn(curFile,loc)
  367.                vScroll(atCursor)
  368.                updateDisplay >
  369.                
  370. Delete from cursor to end of page, storing it in Undo buffer
  371. <shftCtl-kp9:      .. shftCtl-pgup on PC
  372.                if (!eqLoc(curFile,locB,atCursor)) freeBuf(buf45)
  373.                equateLoc(curFile,locA,atCursor)
  374.                moveCursor(curFile,ePage)
  375.                equateLoc(curFile,locB,atCursor)
  376.                insertRgn(buf45,eFile,curFile,loc)
  377.                equateLoc(buf45,sPage,sFile)
  378.                clearRgn(curFile,loc)
  379.                updateDisplay >
  380.                
  381. Set start of invert region at cursor
  382. <ctl-kpLParen:      equateLoc(curFile,sInvert,atCursor) refreshDisplay >
  383.  
  384. Set end of invert region at cursor
  385. <ctl-kpRParen:      equateLoc(curFile,eInvert,atCursor) refreshDisplay >
  386.  
  387. UNDO scratch deletes, inserting scratch delete buffer at cursor
  388. <ctl-kpStar:      runKey(normal-kpStar) >
  389.         
  390. Copy invert region into buffer
  391. <ctl-kpSlash:    
  392.                runKey(virtual-kpDot)
  393.                if (gtLoc(curFile,eInvert,sInvert)) {
  394.                    freeBuf(buf46) 
  395.                    insertRgn(buf46,sFile,curFile,invert)
  396.                    equateLoc(buf46,sPage,sFile) 
  397.                } else returnFalse >
  398.  
  399. Copy invert region into buffer, then delete invert region
  400. <ctl-kpMinus:  
  401.                runKey(virtual-kpDot)
  402.                runKey(ctl-kpSlash) 
  403.                clearRgn(curFile,invert) >
  404.  
  405. Insert copied invert region at cursor
  406. <ctl-kpPlus:      runKey(virtual-kpDot)
  407.                    if (is(curFile,sFile)) {
  408.                         equateLoc(curFile,sInvert,atCursor)
  409.                         equateLoc(curFile,eInvert,sInvert)
  410.                    } else {
  411.                         equateLoc(curFile,sInvert,atCursor)
  412.                         decLoc(curFile,sInvert)
  413.                         equateLoc(curFile,eInvert,atCursor)
  414.                    }
  415.                    insertRgn(curFile,atCursor,buf46,all)
  416.                    if (eqLoc(curFile,atCursor,sInvert)) equateLoc(curFile,sInvert,sFile)
  417.                    else incLoc(curFile,sInvert)
  418.                    if (!onScreen(atCursor)) vScroll(atCursor) >
  419.                    
  420. Join next line to cursor line
  421. <ctl-kpEnter: runKey(ctl-j) >
  422.  
  423. Delete cursor line, storing it in Undo buffer.  
  424. <ctl-kpDot:   runKey(virtual-x) >
  425.  
  426. .. alt-end on PC
  427.  
  428. Delete to end of line, storing it in Undo buffer
  429. <alt-kpDot: runKey(shftAlt-kp9) >
  430.  
  431. Fix up menu cut & paste references
  432.  
  433. <startup:
  434.  
  435. menu("Files",1,normal-f1)
  436.    menu("Next file      f1",1,normal-f1)
  437.    menu("Prev file    S-f1",1,shft-f1)
  438.    menu("Open             ",1,alt-f1)
  439. SUBmenu("Open         A-f1",1,alt-f1)
  440. SUBmenu("File request L-f1",1,lAmiga-f1)
  441. SUBmenu("New file     C-f1",1,ctl-f1)
  442. SUBmenu("Insert file SA-f1",1,shftAlt-f1)
  443. SUBmenu("Restore     SC-f1",1,shftCtl-f1)
  444. SUBmenu("Rename        A-n",1,alt-n)
  445.    menu("Save             ",1,normal-f2)
  446. SUBmenu("Save           f2",1,normal-f2)
  447. SUBmenu("Save changes A-f2",1,alt-f2)
  448. SUBmenu("Save as...   S-f2",1,shft-f2)
  449. SUBmenu("Save hilite SC-f2",1,shftCtl-f2)
  450. SUBmenu("Abort save  SA-f2",1,shftAlt-f2)
  451.  
  452.    menu("Close            ",1,normal-f3)
  453. SUBmenu("Close          f3",1,normal-f3)
  454. SUBmenu("Auto-close   S-f3",1,shft-f3)
  455.    menu("Quit             ",1,normal-f4)
  456. SUBmenu("Quit           f4",1,normal-f4)
  457. SUBmenu("Auto-quit    S-f4",1,shft-f4)
  458. SUBmenu("ABORT Uedit! A-f4",1,alt-f4)
  459.    menu("AmigaDOS         ",1,ctl-y)
  460. SUBmenu("AmigaDOS      C-y",1,ctl-y)
  461. SUBmenu("DOS + result  C-z",1,ctl-z)
  462. SUBmenu("Directory     A-z",1,alt-z)
  463. SUBmenu("CD (Chg dir) AC-z",1,altCtl-z)
  464.    menu("About...         ",1,shftAltCtl-a)
  465.  
  466. menu("Search",2,normal-f1)
  467.    menu("Search           ",2,normal-f9)
  468. SUBmenu("Search fwd     f9",2,normal-f9)
  469. SUBmenu("Search bkwd  S-f9",2,shft-f9)
  470. SUBmenu("Set search     f7",2,normal-f7)
  471.    menu("Replace          ",2,normal-f10)
  472. SUBmenu("Replace fwd   f10",2,normal-f10)
  473. SUBmenu("Rpl all fwd A-f10",2,alt-f10)
  474. SUBmenu("Rpl bkwd    S-f10",2,shft-f10)
  475. SUBmenu("Set replace    f8",2,normal-f8)
  476.    menu("Settings         ",2,ctl-8)
  477. checkedSUBmenu("Case sensitiv C-8",2,ctl-8,searchCaps)
  478. SUBmenu("Wildcards    A-f7",2,alt-f7)
  479. SUBmenu("Either-or    C-f7",2,ctl-f7)
  480.    menu("Grep             ",2,lAmiga-f9)
  481. SUBmenu("Grep fwd     L-f9",2,lAmiga-f9)
  482. SUBmenu("Grep bkwd    R-f9",2,rAmiga-f9)
  483. SUBmenu("Set Grep     L-f7",2,lAmiga-f7)
  484. SUBmenu("Grep repl-> L-f10",2,lAmiga-f10)
  485. SUBmenu("Grep repl<- R-f10",2,rAmiga-f10)
  486.    menu("Bookmarks        ",2,shft-gadget1)
  487. SUBmenu("Goto->mark S-gad1",2,shft-gadget1)
  488. SUBmenu("Goto<-mark S-gad2",2,shft-gadget2)
  489. SUBmenu("Set mark   S-gad3",2,shft-gadget3)
  490.  
  491. menu("Buffers",3,normal-f1)
  492.    menu("Buffers          ",3,alt-w)
  493.    SUBmenu("Swap buf #0   A-w",3,alt-w)
  494.    SUBmenu("Swap buf #41  C-w",3,ctl-w)
  495.    SUBmenu("See buffers SC-f6",3,shftCtl-f6)
  496.    SUBmenu("Edit buffer SA-f6",3,shftAlt-f6)
  497.    SUBmenu("Free buffers A-f3",3,alt-f3)
  498.    SUBmenu("Push buffer   L-w",3,lAmiga-w)
  499.    SUBmenu("Pop buffer    R-w",3,rAmiga-w)
  500.    SUBmenu("Roll stack   SA-w",3,shftAlt-w)
  501.       menu("Data file        ",3,alt-f6)
  502.    ..SUBmenu("UStar            ",3,virtual-u)
  503.    ..SUBmenu("Directory Utility",3,virtual-d)
  504.    ..SUBmenu("Regular UE data  ",3,virtual-e)
  505.    SUBmenu("Save data    A-f6",3,alt-f6)
  506.    SUBmenu("Load data    C-f6",3,ctl-f6)
  507.       menu("Compile          ",3,normal-f6)
  508.    SUBmenu("Compile        f6",3,normal-f6)
  509.    SUBmenu("Cfg defalts AC-f6",3,altCtl-f6)
  510.    SUBmenu("Make command S-f6",3,shft-f6)
  511.       menu("Keys             ",3,normal-f5)
  512.    SUBmenu("Swap keys      f5",3,normal-f5)
  513.    SUBmenu("Swap mouseUp  A-m",3,alt-m)
  514.    SUBmenu("Kill key   SAC-f6",3,shftAltCtl-f6)
  515.    SUBmenu("Find key     L-f6",3,lAmiga-f6)
  516.       menu("Learn            ",3,ctl-s)
  517.    checkedSUBmenu("Start learn   C-s",3,ctl-s,learnMode)
  518.    SUBmenu("End/Run learn C-r",3,ctl-r)
  519.    SUBmenu("Save learn    C-5",3,ctl-5)
  520.    SUBmenu("Load learn    C-6",3,ctl-6)
  521.    SUBmenu("Load & run    C-7",3,ctl-7)
  522.       menu("Save state   R-f5",3,rAmiga-f5)
  523.       menu("Load state   R-f6",3,rAmiga-f6)
  524.       menu("Name gadget C-esc",3,ctl-esc)
  525.       menu("Speak hilite  A-s",3,alt-s)
  526.  
  527. menu("Edits",4,normal-f1)
  528. checkedmenu("Col display  SC-`",4,shftCtl-`,columnar)
  529.       menu("Cut&Paste Hilite ",4,normal-kpSlash)
  530.    SUBmenu("Copy          kp/",4,normal-kpSlash)
  531.    SUBmenu("Cut           kp-",4,normal-kpMinus)
  532.    SUBmenu("Paste         kp+",4,normal-kpPlus)
  533.    SUBmenu("Clear         C-h",4,ctl-h)
  534.    menu("Cut&Paste Invert ",4,ctl-kpSlash)
  535.    SUBmenu("I-Copy      C-kp/",4,ctl-kpSlash)
  536.    SUBmenu("I-Cut       C-kp-",4,ctl-kpMinus)
  537.    SUBmenu("I-Paste     C-kp+",4,ctl-kpPlus)
  538.    SUBmenu("I-Clear       C-i",4,ctl-i)
  539.    menu("Columnar         ",4,shftCtl-1)
  540.    SUBmenu("Col Cut      SC-1",4,shftCtl-1)
  541.    SUBmenu("Col Erase    SC-2",4,shftCtl-2)
  542.    SUBmenu("Col Copy     SC-3",4,shftCtl-3)
  543.    SUBmenu("Col Insert   SC-4",4,shftCtl-4)
  544.    SUBmenu("Col Overlay  SC-5",4,shftCtl-5)
  545.    SUBmenu("Ins Hil->Csr SC-6",4,shftCtl-6)
  546.    SUBmenu("Ovl Hil->Csr SC-7",4,shftCtl-7)
  547.       menu("Text reformats   ",4,ctl-3)
  548.    SUBmenu("Paragraph     C-3",4,ctl-3)
  549.    SUBmenu("Del white-spc C-4",4,ctl-4)
  550.    SUBmenu("Tabs->spaces  L-t",4,lAmiga-t)
  551.    SUBmenu("Spaces->tabs  R-t",4,rAmiga-t)
  552.       menu("Printing         ",4,alt-p)
  553.    SUBmenu("Print select  A-p",4,alt-p)
  554.    SUBmenu("Print hilite  C-p",4,ctl-p)
  555.    SUBmenu("Print file   AC-p",4,altCtl-p)
  556.    SUBmenu("Restart print L-s",4,lAmiga-s)
  557.    SUBmenu("Abort print   L-a",4,lAmiga-a)
  558.    SUBmenu("Stop all prts R-a",4,rAmiga-a)
  559.    SUBmenu("Code help   SAC-p",4,shftAltCtl-p)
  560.    SUBmenu("Bracket hiliteL-p",4,lAmiga-p)
  561.    SUBmenu("Find code     R-g",4,rAmiga-g)
  562.    SUBmenu("Embed code    L-g",4,lAmiga-g)
  563.    SUBmenu("Type formfeed L-f",4,lAmiga-f)
  564.       menu("Paging           ",4,alt-3)
  565.    SUBmenu("Go to page #  A-3",4,alt-3)
  566.    SUBmenu("Top of page   L-h",4,lAmiga-h)
  567.    SUBmenu("Bottom page   L-b",4,lAmiga-b)
  568.    SUBmenu("Divide page   L-v",4,lAmiga-v)
  569.    SUBmenu("Auto page div L-r",4,lAmiga-r)
  570.    SUBmenu("Del page div  L-d",4,lAmiga-d)
  571.    SUBmenu("Del page #    L-y",4,lAmiga-y)
  572.       menu("Spelling         ",4,rAmiga-u)
  573.    SUBmenu("Load speller  R-u",4,rAmiga-u)
  574.    SUBmenu("Check fwd     R-c",4,rAmiga-c)
  575.    SUBmenu("Chk&mark fwd  R-m",4,rAmiga-m)
  576.    SUBmenu("Chk & collect R-l",4,rAmiga-l)
  577.    SUBmenu("Merge w/ dict R-d",4,rAmiga-d)
  578.    SUBmenu("Del from dict R-e",4,rAmiga-e)
  579.    SUBmenu("Free Speller  R-f",4,rAmiga-f)
  580.       menu("Rexx             ",4,altCtl-1)
  581.    SUBmenu("Ed out buf62 AC-1",4,altCtl-1)
  582.    SUBmenu("Ed in buf61  AC-2",4,altCtl-2)
  583.    SUBmenu("Buf62->Rexx  AC-3",4,altCtl-3)
  584.    SUBmenu("Buf61<-Rexx  AC-4",4,altCtl-4)
  585.    SUBmenu("hilite->Rexx AC-5",4,altCtl-5)
  586.    SUBmenu("Cursor<-Rexx AC-6",4,altCtl-6)
  587.    SUBmenu("Reply OKAY-> AC-7",4,altCtl-7)
  588.    SUBmenu("Reply text-> AC-8",4,altCtl-8)
  589.    checkedSUBmenu("Auto-traffic AC-9",4,altCtl-9,userGlobalB)
  590.    SUBmenu("Make x.rexx  AC-0",4,altCtl-0)
  591.  
  592. menu("Modes",5,normal-f1)
  593.              menu("HYPER TEXT       ",5,lAmiga-gadget1)
  594.           SUBmenu("Hyper Text L-gad1",5,lAmiga-gadget1)
  595.           SUBmenu("Open HT    L-gad3",5,lAmiga-gadget3)
  596.           SUBmenu("Close HT   L-gad4",5,lAmiga-gadget4)
  597.              menu("TEACH KEYS       ",5,ctl-help)
  598.    checkedSUBmenu("Teach keys C-help",5,ctl-help,teachKeys)
  599.           SUBmenu("Teach one     C-t",5,ctl-t)
  600.              menu("Local modes      ",5,normal-kp0)            
  601.    checkedSUBmenu("OverStrike    kp0",5,normal-kp0,overStrike)    
  602.    checkedSUBmenu("WordWrap     C-f5",5,ctl-f5,wordWrap)
  603.    checkedSUBmenu("Right justify A-j",5,alt-j,rightJustify)
  604.    checkedSUBmenu("AutoIndent   A-f5",5,alt-f5,autoIndent)
  605.    checkedSUBmenu("Read-only   SA-f5",5,shftAlt-f5,readOnly)
  606.    checkedSUBmenu("Changed flag L-f5",5,lAmiga-f5,changed)
  607.    checkedSUBmenu("Use tabs   AC-tab",5,altCtl-tab,trueTabs)
  608.    checkedSUBmenu("AutoBackup SAC-f5",5,shftAltCtl-f5,autoBackup)
  609.    checkedSUBmenu("Map illegals SA-m",5,shftAlt-m,mapChars)
  610.    checkedSUBmenu("Save on idle C-f2",5,ctl-f2,userLocalA)
  611.              menu("Global modes     ",5,ctl-2)
  612.    checkedSUBmenu("Row/Column    C-2",5,ctl-2,rowCol)
  613.    checkedSUBmenu("Mark gadgets  C-g",5,ctl-g,markGadgets)
  614.    checkedSUBmenu("Invisibles    C-v",5,ctl-v,spooks)
  615.    checkedSUBmenu("Busies        C-b",5,ctl-b,busies)
  616.    checkedSUBmenu("Use keys      A-u",5,alt-u,useKeys)
  617.    checkedSUBmenu("Make icons   AC-i",5,altCtl-i,icons)
  618.  
  619. menu("Numbers",6,normal-f1)
  620.       menu("Show vals  S-help",6,shft-help)
  621.    menu("Tab ruler        ",6,shftAlt-tab)
  622.    SUBmenu("See ruler  SA-tab",6,shftAlt-tab)
  623.    SUBmenu("Set ruler  SC-tab",6,shftCtl-tab)
  624.    SUBmenu("Tab ruler SAC-tab",6,shftAltCtl-tab)
  625.       menu("Line-Page        ",6,ctl-return)
  626.    SUBmenu("Line length C-rtn",6,ctl-return)
  627.    SUBmenu("Lines/page    A-g",6,alt-g)
  628.    SUBmenu("Left margin   L-m",6,lAmiga-m)
  629.    SUBmenu("Top margin    L-u",6,lAmiga-u)
  630.    SUBmenu("Bottom margin L-l",6,lAmiga-l)
  631.    SUBmenu("End of line   C-e",6,ctl-e)
  632.       menu("Command mult  C-m",6,ctl-m)
  633.       menu("Max files   AC-f1",6,altCtl-f1)
  634.       menu("Idle timer  SAC-i",6,shftAltCtl-i)
  635.       menu("PM terminator ESC",6,normal-esc)
  636.       menu("File size     C-1",6,ctl-1)
  637.  
  638. menu("Display",7,normal-f1)
  639.    menu("Colors     A-help",7,alt-help)
  640.    menu("Tune RGB    A-esc",7,alt-esc)
  641.    checkedMenu("Hide display  R-h",7,rAmiga-h,hideDisplay)
  642.    menu("Scroll type   R-s",7,rAmiga-s)
  643.    menu("Split windows    ",7,lAmiga-9)
  644. SUBmenu("Next split    L-9",7,lAmiga-9)
  645. SUBmenu("Drop split    L-0",7,lAmiga-0)
  646. SUBmenu("Split lines   L-8",7,lAmiga-8)
  647. SUBmenu("Mouse size    L-=",7,lAmiga-=)
  648. SUBmenu("Curr buf      L-c",7,lAmiga-c)
  649. SUBmenu("Undo buf      L-1",7,lAmiga-1)
  650. SUBmenu("Search buf    L-2",7,lAmiga-2)
  651. SUBmenu("Replac buf    L-3",7,lAmiga-3)
  652. SUBmenu("Hilite buf    L-4",7,lAmiga-4)
  653. SUBmenu("Invert buf    L-5",7,lAmiga-5)
  654. SUBmenu("Columnar      L-6",7,lAmiga-6)
  655. SUBmenu("Directories   L-7",7,lAmiga-7)
  656.    menu("Lace/planes      ",7,shft-esc)
  657. SUBmenu("Toggle      S-esc",7,shft-esc)
  658. SUBmenu("Reg 1 plane  R-f1",7,rAmiga-f1)
  659. SUBmenu("Reg 2 planes R-f2",7,rAmiga-f2)
  660. SUBmenu("Lace 1 plane R-f3",7,rAmiga-f3)
  661. SUBmenu("Lace 2 plane R-f4",7,rAmiga-f4)
  662.    menu("Refresh   SC-help",7,shftCtl-help)
  663.    menu("Do menus SAC-help",7,shftAltCtl-help)
  664.    menu("Unhilite      A-h",7,alt-h)
  665.    menu("Uninvert      A-i",7,alt-i)
  666.  
  667.      nameBuffer(37,"Copied Columnar")
  668.      nameBuffer(38,"S:Directories")
  669.      nameBuffer(42,"Help!")
  670.      nameBuffer(45,"Scratch Deletes")
  671.      nameBuffer(46,"Copied Invert")
  672.      nameBuffer(47,"Copied Hilite")
  673.      nameBuffer(48,"Replace String")
  674.      nameBuffer(49,"Search String")
  675.      nameBuffer(61,"Rexx Msg/Reply IN")
  676.      nameBuffer(62,"Rexx Msg/Reply OUT")
  677.      ..refreshdisplay
  678.      ..runKey(shftAltCtl-a)
  679.      ..toggle(toTiny)
  680.      >
  681.