home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d7xx / d770 / uedit.lha / Uedit / Ustar.LZH / UstarConfig!B < prev    next >
Text File  |  1992-08-07  |  90KB  |  2,515 lines
  1.          Command key translation
  2.  
  3.  
  4. For Learn mode or marking - action depends on prefix key
  5. <ctl-kp0: runKey(ctl-0) >
  6. For Learn mode or marking - action depends on prefix key
  7. <ctl-0:
  8. if (eqNum(n84,0)) { runKey(virtual-kp7) return }
  9. putMsg(" ")
  10. if (eqNum(n84,10)) { equateNum(n84,0) 
  11.    equateNum(n99,70) runKey(virtual-`) return }
  12. if (eqNum(n84,20)) { 
  13.    equateNum(n99,70) runKey(virtual-`) return }
  14. if (eqNum(n84,30)) { runKey(virtual-kp7) return }
  15. if (eqNum(n84,40)) { equateNum(n84,0) while (abortPrint) nothing }
  16. >
  17.  
  18.  
  19. Internal key - mark/goto position in file
  20. <virtual-`: 
  21. if (eqNum(n84,10)) {
  22.    putMsg("Packing/Marking...") locToIndex(curFile,n[n99],atCursor) }
  23. else {
  24.    putMsg("Packing/Locating...") indexToLoc(curFile,atCursor,n[n99]) 
  25. }
  26. equateNum(n84,0) putMsg(" ") return 
  27. >
  28.  
  29. Internal key - mark/goto position in file (by old lines method; historical)
  30.  virtual-`: 
  31. if (eqNum(n84,10)) locToLine(curFile,n[n99],atCursor) 
  32. else {
  33.    putMsg("Locating...") lineToLoc(curFile,atCursor,n[n99]) 
  34.    moveCursor(curFile,downLine)   .. correction by 1
  35.    if (not onScreen(atCursor)) vScroll(atCursor)  putMsg(" ") }
  36. equateNum(n84,0) return 
  37. >
  38.  
  39.  
  40. For Learn mode or marking - action depends on prefix key
  41. <ctl-kp1: runKey(ctl-1) >
  42. For Learn mode or marking - action depends on prefix key
  43. <ctl-1:
  44. if (eqNum(n84,0)) { 
  45.    equateNum(n85,0) .. no macro stuff for manually-activated learn mode
  46.    if (not getFlag(curFile,learnMode)) putMsg("*** Learn Started! ***")
  47.    else putMsg("--- Learn Cancelled! ---") 
  48.    flipFlag(curFile,learnMode) return }
  49. putMsg(" ")
  50. if (eqNum(n84,10)) { ..equateNum(n84,0) 
  51.    equateNum(n99,71) runKey(virtual-`) return }
  52. if (eqNum(n84,20)) { 
  53.    equateNum(n99,71) runKey(virtual-`) return }
  54. if (eqNum(n84,30)) { equateNum(n84,0)
  55.    putMsg("Multiplier for next single command:") 
  56.    inputNum(cmdMultiplier) return }    
  57. if (eqNum(n84,40)) restartPrint
  58. > 
  59.  
  60.  
  61. For Learn mode or marking - action depends on prefix key
  62. <ctl-kp2: runKey(ctl-2) >
  63. For Learn mode or marking - action depends on prefix key
  64. <ctl-2:
  65. if (eqNum(n84,0)) { if (getFlag(curFile,learnMode)) { 
  66.       putMsg("+++ I've Learned it! +++") 
  67.       if (gtNum(n85,0)) delay(5) }
  68.    runLearn  
  69.    if (gtNum(n85,0)) { equateNum(n98,n85) equateNum(n85,0)
  70.       freeBuf(buf99) insertRgn(buf99,sFile,"Macro ",all) insertChar(buf99,n98)
  71.       freeBuf(buf98) insertRgn(buf98,sFile,"Saving ",all)
  72.       insertRgn(buf98,atCursor,buf99,all) putMsg(buf98)
  73.       if (not saveLearn(n98)) { putMsg("SaveLearn error") returnFalse }
  74.       insertChar(buf99,":") insertChar(buf99," ")
  75.       putMsg("Optional description for this macro:")
  76.       inputString(buf99)
  77.       if (not isEmpty(buf99)) {
  78.          insertRgn(buf99,sFile,"\"",all) insertRgn(buf99,eFile,"\"",all)
  79.          freeBuf(buf98) insertRgn(buf98,sFile,"Filenote Learn",all)
  80.          toWord(buf98,n98) insertRgn(buf98,atCursor,"! ",all)
  81.          insertRgn(buf98,atCursor,buf99,all)
  82.          freeBuf(buf82) 
  83.          if (not execute(buf82,buf98)) { 
  84.             putMsg("Error - DOS Filenote") returnFalse }
  85.       }
  86.    }
  87.    return }
  88. putMsg(" ")
  89. if (eqNum(n84,10)) { 
  90.    equateNum(n99,72) runKey(virtual-`) return }
  91. if (eqNum(n84,20)) { 
  92.    equateNum(n99,72) runKey(virtual-`) return }
  93. if (eqNum(n84,30)) { equateNum(n84,0) putMsg("Load Learn #:")
  94.    if (inputNum(n99)) if (not loadLearn(n99)) {
  95.       putMsg("ERROR - Couldn't load Learn file.") beepDisplay returnFalse }
  96.    return }
  97. if (eqNum(n84,40)) runKey(virtual-kp7) 
  98. >
  99.  
  100.  
  101. Set/goto mark - depends on prefix key
  102. <ctl-kp3: runKey(ctl-3)> 
  103. Set/goto mark - depends on prefix key
  104. <ctl-3:
  105. putMsg(" ")
  106. if (eqNum(n84,10)) {
  107.    equateNum(n99,73) runKey(virtual-`) return }
  108. if (eqNum(n84,20)) { 
  109.    equateNum(n99,73) runKey(virtual-`) return }
  110. else runKey(virtual-kp7) 
  111. > 
  112.  
  113.  
  114. Set/goto mark - depends on prefix key
  115. <ctl-kp4: runKey(ctl-4)> 
  116. Set/goto mark - depends on prefix key
  117. <ctl-4:
  118. putMsg(" ")
  119. if (eqNum(n84,10)) {
  120.    equateNum(n99,74) runKey(virtual-`) return }
  121. if (eqNum(n84,20)) { 
  122.    equateNum(n99,74) runKey(virtual-`) return }
  123. else runKey(virtual-kp7) 
  124. > 
  125.  
  126.  
  127. Set/goto mark - depends on prefix key
  128. <ctl-kp5: runKey(ctl-5)> 
  129. Set/goto mark - depends on prefix key
  130. <ctl-5:
  131. putMsg(" ")
  132. if (eqNum(n84,10)) {
  133.    equateNum(n99,75) runKey(virtual-`) return }
  134. if (eqNum(n84,20)) { 
  135.    equateNum(n99,75) runKey(virtual-`) return }
  136. else runKey(virtual-kp7) 
  137. > 
  138.  
  139.  
  140. Set/goto mark - depends on prefix key 
  141. <ctl-kp6: runKey(ctl-6)> 
  142. Set/goto mark - depends on prefix key
  143. <ctl-6:
  144. if (eqNum(n84,0)) {       .. get rid of eol's (merge lines)
  145.    if (not is(curFile,eLine)) moveCursor(curFile,eLine)
  146.    moveCursor(curFile,sChar)
  147.    if (not is(curFile,space)) 
  148.       { moveCursor(curFile,eChar) insertChar(curFile,32) }
  149.    else moveCursor(curFile,eChar) 
  150.    clearChar(curFile)
  151.    if (not is(curFile,sLine)) moveCursor(curFile,sLine)
  152.    return   
  153. }
  154. putMsg(" ")
  155. if (eqNum(n84,10)) {
  156.    equateNum(n99,76) runKey(virtual-`) return }
  157. if (eqNum(n84,20)) { 
  158.    equateNum(n99,76) runKey(virtual-`) return }
  159. else runKey(virtual-kp7) 
  160. >
  161.  
  162.  
  163. Set/goto mark - depends on prefix key
  164. <ctl-kp7: runKey(ctl-7)> 
  165. Set/goto mark - depends on prefix key
  166. <ctl-7:
  167. putMsg(" ")
  168. if (eqNum(n84,10)) {
  169.    equateNum(n99,77) runKey(virtual-`) return }
  170. if (eqNum(n84,20)) { 
  171.    equateNum(n99,77) runKey(virtual-`) return }
  172. else runKey(virtual-kp7) 
  173. > 
  174.  
  175.  
  176. Set/goto mark - depends on prefix key
  177. <ctl-kp8: runKey(ctl-8)> 
  178. Set/goto mark - depends on prefix key
  179. <ctl-8:
  180. putMsg(" ")
  181. if (eqNum(n84,10)) {
  182.    equateNum(n99,78) runKey(virtual-`) return }
  183. if (eqNum(n84,20)) { 
  184.    equateNum(n99,78) runKey(virtual-`) return }
  185. else runKey(virtual-kp7) 
  186. > 
  187.  
  188.  
  189. Set/goto mark - depends on prefix key
  190. <ctl-kp9: runKey(ctl-9)> 
  191. Set/goto mark - depends on prefix key
  192. <ctl-9:
  193. putMsg(" ")
  194. if (eqNum(n84,10)) {
  195.    equateNum(n99,79) runKey(virtual-`) return }
  196. if (eqNum(n84,20)) { 
  197.    equateNum(n99,79) runKey(virtual-`) return }
  198. else runKey(virtual-kp7) 
  199. > 
  200.  
  201.  
  202. Simpler version of ctl-a code that doesn't include complete WS emulation
  203. for punctuation & other details. Replace first section of ctl-a code to use.
  204.    equateNum(n98,2)
  205.    while (moveCursor(curFile,sChar)) {
  206.       if (is(curFile,whiteSpace)) {
  207.          if (eqNum(n98,1)) { moveCursor(curFile,eChar) return }
  208.          if (is(curFile,eLine)) return
  209.       }
  210.       else {
  211.          if (eqNum(n98,2)) moveCursor(curFile,sChar)
  212.          equateNum(n98,1)
  213.       }
  214.    }
  215.  
  216. ctl-a flag n98: 0-init, 1-whitespace, 2-char, 3-punct
  217. ctl-a flag n99: 0-init/no transition  1-X transition
  218. Word Left; other actions depend on prefix key
  219. <ctl-a: 
  220. if (eqNum(n84,0)) { 
  221.    equateNum(n98,0) equateNum(n99,0)
  222.    goto label(2)
  223.    while (moveCursor(curFile,sChar)) {
  224.       label(2)
  225.       if (not is(curFile,";")) if (not is(curFile,":")) 
  226.          if (not is(curFile,".")) if (not is(curFile,",")) 
  227.             if (not is(curFile,"?")) if (not is(curFile,"!")) goto label(1)
  228.          if (not eqNum(n98,0)) {
  229.             if (geNum(n98,2)) if (eqNum(n99,1)) { 
  230.                moveCursor(curFile,eChar) return }
  231.             equateNum(n99,1)
  232.          }
  233.          equateNum(n98,3) goto label(3)
  234.       label(1)
  235.       if (not is(curFile,whiteSpace)) {
  236.          if (not eqNum(n98,0)) equateNum(n99,1)
  237.          equateNum(n98,2) goto label(3)
  238.       }
  239.       if (is(curFile,whiteSpace)) {
  240.          if (not eqNum(n98,0)) {
  241.             if (geNum(n98,2)) if (eqNum(n99,1)) { 
  242.                moveCursor(curFile,eChar) return }
  243.             if (is(curFile,eLine)) return
  244.          }
  245.          equateNum(n98,1)
  246.       }
  247.       label(3)
  248.    }
  249.    return
  250. }
  251. putMsg(" ")
  252. if (eqNum(n84,10)) { equateNum(n84,0)
  253.    if (getFlag(curFile,changed)) equateNum(n99,5) else equateNum(n99,0)
  254.    putMsg("Save buffer as:") freeBuf(buf99) freeBuf(buf96) 
  255.    getFileName(buf96,curFile) 
  256.    insertRgn(buf99,eFile,buf96,all) moveCursor(buf99,sFile) 
  257.    if (inputString(buf99)) if (not isEmpty(buf99)) { 
  258.       setFileName(curFile,buf99) 
  259.       if (not saveFile(curFile)) { 
  260.          putMsg("ERROR - couldn't save file.") beepDisplay returnFalse } }
  261.    else { putMsg("No save!") returnFalse }
  262.    setFileName(curFile,buf96)
  263.    if (eqNum(n99,0)) if (getFlag(curFile,changed)) flipFlag(curFile,changed)
  264.    if (eqNum(n99,5)) if (not getFlag(curFile,changed))
  265.       flipFlag(curFile,changed) 
  266.    return }
  267. if (eqNum(n84,20)) { equateNum(n84,0) 
  268.    moveCursor(buf89,sFile) putMsg("Find:") inputString(buf89) 
  269.    moveCursor(buf89,eFile) putMsg("Replace with:") inputString(buf88) 
  270.    equateNum(n81,11) runKey(virtual-kp5) return }
  271. if (eqNum(n84,30)) { runKey(virtual-kp7) return }
  272. if (eqNum(n84,40)) { equateNum(n84,0) 
  273.    printerCode(curFile,15,0,0) updateDisplay putMsg("Elite pitch On") }
  274. >
  275.  
  276.  
  277. Reformat; other actions depend on prefix key
  278. <ctl-b:
  279. if (eqNum(n84,0))  { runKey(virtual-kp2) return }
  280. putMsg(" ")
  281. if (eqNum(n84,10)) { equateNum(n84,0) 
  282.    equateLoc(curFile,sHilite,atCursor) refreshDisplay return }
  283. if (eqNum(n84,20)) { equateNum(n84,0)
  284.    if (gtLoc(curFile,eHilite,sHilite)) {
  285.       moveCursor(curFile,sHilite) 
  286.       if (not onScreen(atCursor)) vScroll(atCursor) }
  287.    else { putMsg("No block!") returnFalse } 
  288.    return }
  289. if (eqNum(n84,30)) { equateNum(n84,0) flipFlag(curFile,busies) return }
  290. if (eqNum(n84,40)) { equateNum(n96,2) runKey(virtual-p) }
  291. >
  292.  
  293.    
  294. Page down; other actions depend on prefix key
  295. <ctl-c:
  296. if (eqNum(n84,0)) { moveCursor(curFile,ePage) vScroll(atCursor)
  297.    if (not thisKey) refreshDisplay
  298.    if (is(curFile,eFile)) returnFalse else returnTrue }
  299. putMsg(" ")
  300. if (eqNum(n84,10)) { equateNum(n84,0)
  301.    if (gtLoc(curFile,eHilite,sHilite)) { 
  302.       if (not getFlag(curFile,columnar)) {
  303.          freeBuf(buf86)
  304.          insertRgn(buf86,sFile,curFile,hilite)
  305.          moveCursor(curFile,sChar) equateLoc(curFile,sHilite,atCursor)
  306.          moveCursor(curFile,eChar)
  307.          insertRgn(curFile,atCursor,buf86,all)
  308.          equateLoc(curFile,eHilite,atCursor) incLoc(curFile,sHilite)
  309.          moveCursor(curFile,sHilite)
  310.          if (not onScreen(atCursor)) vScroll(atCursor) refreshDisplay }
  311.       else {
  312.          freeBuf(buf85)        
  313.          copyColData(buf85,sFile,curFile,hilite,n80)
  314.          copyColData(curFile,atCursor,buf85,all,n80) } } 
  315.    else { putMsg("No block!") returnTrue } 
  316.    return }
  317. if (eqNum(n84,20)) { equateNum(n84,0) 
  318.    moveCursor(curFile,eFile) vScroll(atCursor) return }
  319. if (eqNum(n84,30)) {  equateNum(n84,0)                 .. center line of text
  320.    if (not is(curFile,sLine)) moveCursor(curFile,sLine)
  321.    if (is(curFile,formFeed)) goto label(2)   .. also centers all FF lines
  322.    if (is(curFile,eLine)) { moveCursor(curFile,downLine) returnTrue }
  323.    if (is(curFile,eFile)) returnFalse
  324.  
  325.    while (nothing) {        .. clear leading whitespace
  326.       if (is(curFile,formFeed)) goto label(2)
  327.       if (is(curFile,eLine)) returnTrue
  328.       if (is(curFile,eFile)) returnFalse
  329.       if (not is(curFile,space)) if (not is(curFile,9)) goto label(1)
  330.       clearChar(curFile) }
  331.    label(1)
  332.    moveCursor(curFile,eLine) 
  333.    if (is(curFile,eFile)) insertChar(curFile,eLine) 
  334.    moveCursor(curfile,sChar)
  335.    while (nothing) {        .. clear trailing whitespace
  336.       if (is(curFile,formFeed)) goto label(2)
  337.       if (is(curFile,sLine)) goto label(2)
  338.       if (not is(curFile,space)) if (not is(curFile,9)) goto label(2)
  339.       clearChar(curFile) moveCursor(curFile,sChar) }
  340.    label(2)
  341.    locToCol(curfile,n99,atCursor)      .. get length of line
  342.    getLocal(curFile,n98,lineLength)    .. get local line length 
  343.    if (not is(curFile,sLine)) moveCursor(curFile,sLine)
  344.    sub(n97,n98,n99)
  345.    if (gtNum(n97,0)) {                 .. and center it
  346.       div(n97,n97,2)
  347.       do (n96,1,n97) insertChar(curFile," ") }
  348.    moveCursor(curFile,downLine)        .. added - WS4 compatibility 
  349.    if (not is(curFile,sLine)) moveCursor(curFile,sLine)   
  350.    return }
  351. if (eqNum(n84,40)) { equateNum(n84,0)
  352.    putMsg("Enter Text Color (30-39):")
  353.    equateNum(n98,30)    .. default text color = black
  354.    if (inputNum(n99)) if (geNum(n99,30)) if (geNum(39,n99)) equateNum(n98,n99)
  355.    putMsg("Enter Background (paper) color (40-49):")
  356.    equateNum(n97,47)    .. default paper color = white ? may need to adjust
  357.    if (inputNum(n99)) if (geNum(n99,40)) if (geNum(49,n99)) equateNum(n97,n99)
  358.    printerCode(curFile,12,n98,0) 
  359.    printerCode(curFile,13,n97,0) updateDisplay
  360.    putMsg(" ") }
  361. >
  362.  
  363.  
  364. Move right; other actions depend on prefix key
  365. <ctl-d:
  366. if (eqNum(n84,0)) { moveCursor(curFile,eChar) return }
  367. putMsg(" ")
  368. if (eqNum(n84,10)) {
  369.    equateNum(n84,0)
  370.    putMsg("Load Filename:")
  371.    ..freeBuf(buf77)
  372.    inputString(buf77) 
  373.    if (isEmpty(curFile)) freeBuf(curFile)
  374.    if (not isEmpty(buf77)) if (loadFile(buf77)) equateNum(n82,curFile)
  375.    return } 
  376. if (eqNum(n84,20)) { equateNum(n84,0)
  377.    if (not is(curFile,eLine)) moveCursor(curFile,eLine) return }
  378. if (eqNum(n84,30)) { equateNum(n84,0) 
  379.    flipFlag(curFile,spooks) refreshDisplay return }
  380. if (eqNum(n84,40))  { equateNum(n96,3) runKey(virtual-p) }
  381. >
  382.  
  383.  
  384. Move up; other actions depend on prefix key
  385. <ctl-e: 
  386. if (eqNum(n84,0)) { moveCursor(curFile,upLine) return }
  387. putMsg(" ")
  388. if (eqNum(n84,10)) {
  389.    equateNum(n84,0)
  390.    putMsg("Rename buffer to:")
  391.    getFileName(buf77,curFile) moveCursor(buf77,sFile) 
  392.    if (inputString(buf77)) setFileName(curFile,buf77)
  393.    return }
  394. if (eqNum(n84,20)) { equateNum(n84,0) 
  395.    moveCursor(curFile,sPage) return } 
  396. if (eqNum(n84,30)) { runKey(virtual-kp8) return }
  397. if (eqNum(n84,40)) runKey(virtual-kp8) 
  398. >
  399.  
  400. Right word; other actions depend on prefix key
  401. <ctl-f:
  402. if (eqNum(n84,0)) { 
  403.    equateNum(n98,2)  
  404.    if (is(curFile,whiteSpace)) equateNum(n98,1)
  405.    goto label(2)
  406.    while (moveCursor(curFile,eChar)) {      
  407.       if (is(curFile,eLine)) return
  408.       if (not is(curFile,whiteSpace)) { 
  409.          if (eqNum(n98,1)) return
  410.          if (is(curFile,sLine)) return
  411.          label(2)   .. remove label(2) stuff & next 5 lines for no WS punct.
  412.          if (not is(curFile,";")) if (not is(curFile,":")) 
  413.             if (not is(curFile,".")) if (not is(curFile,",")) 
  414.                if (not is(curFile,"?")) if (not is(curFile,"!")) goto label(1)
  415.          equateNum(n98,1)
  416.          label(1)
  417.       }
  418.       else equateNum(n98,1)
  419.    }
  420.    return 
  421. }
  422. putMsg(" ")
  423. if (eqNum(n84,10)) { equateNum(n84,0) runKey(shftCtl-f) return }
  424. if (eqNum(n84,20)) { equateNum(n84,0)
  425.    putMsg("Find:") moveCursor(buf89,sFile) inputString(buf89)
  426.    equateNum(n81,1) runKey(virtual-kp5) return }
  427. if (eqNum(n84,30)) { runKey(virtual-kp8) return }
  428. if (eqNum(n84,40)) { equateNum(n84,0) 
  429.    freeBuf(buf89) insertRgn(buf89,sFile,"?$??",all)
  430.    runKey(shftAlt-f) }
  431. >
  432.  
  433. Delete character; other actions depend on prefix key
  434. <ctl-g:
  435. if (eqNum(n84,0)) { clearChar(curFile) return }
  436. putMsg(" ")
  437. if (eqNum(n84,10)) {
  438.    equateNum(n84,0)
  439.    if (gtLoc(curFile,eHilite,sHilite)) { 
  440.       if (not getFlag(curFile,columnar)) {
  441.          freeBuf(buf86) insertRgn(buf86,sFile,curFile,hilite) }
  442.       else { freeBuf(buf85) copyColData(buf85,sFile,curFile,hilite,n80) } }
  443.    else { putMsg("No block!") returnFalse } 
  444.    return }
  445. if (eqNum(n84,20)) { equateNum(n84,0)
  446.    putMsg("Character to find:") 
  447.    if (not getFlag(curFile,useKeys)) flipFlag(curFile,useKeys)
  448.    getChar(n99)
  449.    flipFlag(curFile,useKeys)
  450.    putMsg("Finding...")
  451.    while (moveCursor(curFile,eChar)) if (is(curFile,n99)) goto label(5)
  452.    label(5)
  453.    putMsg(" ") return }
  454. if (eqNum(n84,30)) { equateNum(n84,0) flipFlag(curFile,autoIndent)
  455.    if (getFlag(curFile,autoIndent)) putMsg("Auto Indent ON") 
  456.    else putMsg("No Auto Indent") 
  457.    return }
  458. if (eqNum(n84,40)) { equateNum(n84,0) putMsg(
  459.    "General-purpose printer control code entry (see Help). Code #:")
  460.    if (inputNum(n99)) if (geNum(n99,0)) if (geNum(75,n99)) {
  461.       equateNum(n98,0) equateNum(n97,0)
  462.       if (eqNum(n99,12)) goto label(1)
  463.       if (eqNum(n99,13)) goto label(1)
  464.       if (eqNum(n99,48)) goto label(2)
  465.       if (eqNum(n99,57)) goto label(2)
  466.       if (eqNum(n99,58)) goto label(2)
  467.       if (eqNum(n99,75)) goto label(2)
  468.       if (eqNum(n99,64)) goto label(3)
  469.       if (eqNum(n99,65)) goto label(3)
  470.       goto label(4)
  471.  
  472.       label(2) putMsg("N value:") inputNum(n98) goto label(4)
  473.       label(3) putMsg("1st N value:") inputNum(n98)
  474.          putMsg("2nd N value:") inputNum(n97)
  475.       label(4) printerCode(curFile,n99,n98,n97) 
  476.          updateDisplay putMsg(" ") return
  477.       label(1) putMsg("Use ^PC for color") returnFalse }
  478.    putMsg(" ") returnFalse }
  479. >
  480.  
  481.  
  482. Actions depend on prefix key
  483. <ctl-h:
  484. if (eqNum(n84,0)) { moveCursor(curFile,sChar) clearChar(curFile) return }
  485. putMsg(" ")
  486. if (eqNum(n84,10)) { equateNum(n84,0) 
  487.    equateLoc(curFile,sHilite,eHilite) refreshDisplay  return }
  488. if (eqNum(n84,20)) { equateNum(n84,0)
  489.    putMsg("Character to find:") 
  490.    if (not getFlag(curFile,useKeys)) flipFlag(curFile,useKeys)
  491.    getChar(n99)
  492.    flipFlag(curFile,useKeys)
  493.    putMsg("Finding...")
  494.    while (moveCursor(curFile,sChar)) if (is(curFile,n99)) goto label(1)
  495.    label(1)
  496.    putMsg(" ") return }
  497. if (eqNum(n84,30)) { equateNum(n84,0) runKey(altCtl-h) return }
  498. if (eqNum(n84,40))  runKey(virtual-kp8) 
  499. >
  500.  
  501. Tab; other actions depend on prefix key
  502. <ctl-i:
  503. if (eqNum(n84,0)) { runKey(normal-tab) return }
  504. putMsg(" ")
  505. if (eqNum(n84,10)) { equateNum(n84,0) 
  506.    if (eqNum(n80,0)) { equateNum(n80,1) 
  507.    putMsg("Column INSERT mode: ^KV,^KC,^U insert; ^KY removes") }
  508.    else { equateNum(n80,0) 
  509.    putMsg("Column REPLACE mode: ^KV,^KC,^U overlay; ^KY space-fills") } 
  510.    return } 
  511. if (eqNum(n84,20)) { equateNum(n84,0) putMsg("Go to page #:")
  512.    if (inputNum(n99)) {
  513.       putMsg("Finding page...") gotoPage(curFile,n99)  putMsg(" ") } 
  514.    return }
  515. if (eqNum(n84,30)) { equateNum(n84,0) 
  516.    putMsg(
  517.    "Use mouse click/drag, Tab, Space, BS, Del (otherkey=quit,R-Esc=abort)")
  518.    if (not getFlag(curFile,useKeys)) flipFlag(curFile,useKeys) 
  519.    setRuler  flipFlag(curFile,useKeys) 
  520.    putMsg(" ")  return }
  521. if (eqNum(n84,40)) { equateNum(n84,0) 
  522.    getLocal(curFile,n96,tabTable)  .. save current table
  523.    setLocal(curFile,tabTable,0) .. set to predefined 8-stop table
  524.    runKey(normal-tab)              .. tab to next 8-stop tab
  525.    setLocal(curFile,tabTable,n96)  .. restore previous tab table
  526. }
  527. >
  528.  
  529.  
  530. Help; other actions depend on prefix key
  531. <ctl-j:
  532. if (eqNum(n84,0)) { runKey(normal-help) return }
  533. putMsg(" ")
  534. if (eqNum(n84,10)) { runKey(ctl-q) return }
  535. if (eqNum(n84,20)) { runKey(virtual-kp7) return }
  536. if (eqNum(n84,30)) { equateNum(n84,0) flipFlag(curFile,rightJustify)
  537.    if (getFlag(curFile,rightJustify)) putMsg("Right-Justify ON")
  538.    else putMsg("No Right-Justify") 
  539.    return }
  540. if (eqNum(n84,40)) { equateNum(n84,0) 
  541.    getLocal(curFile,n99,pageLines) freeBuf(buf99) toWord(buf99,n99) 
  542.    insertRgn(buf99,sFile,"Lines/page (now ",all) 
  543.    insertRgn(buf99,eFile,"):",all) putMsg(buf99)
  544.    if (inputNum(n99)) if (gtNum(n99,0)) {
  545.       setLocal(curFile,pageLines,n99) equateNum(pageLines,n99) } } 
  546. >
  547.  
  548.  
  549. Repeat last Find/Replace; other actions depend on prefix key
  550. <ctl-l:
  551. if (eqNum(n84,0)) { runKey(virtual-kp6) return }
  552. else putMsg(" ")
  553. if (eqNum(n84,10)) { equateNum(n84,0)
  554.    freeBuf(buf98) 
  555.    if (not execute(buf98,"cd")) { 
  556.       putmsg("AmigaDOS CD command not found") beepDisplay returnFalse }
  557.    putMsg("Change default directory to (current shown; WorkBench won't work)")
  558.    moveCursor(buf98,eFile) moveCursor(buf98,sChar) clearChar(buf98) 
  559.    if (inputString(buf98)) 
  560.       if (not changeDir(buf98)) {
  561.          putMsg(
  562.          "CD returned an error - check to make sure is valid Disk or Directory.")
  563.          insertRgn(buf98,eFile," ??",all) 
  564.          putMsg(buf98) beepDisplay delay(10) }
  565.       else { insertRgn(buf98,sFile,"Current Dir is ",all) putMsg(buf98) }
  566. }
  567. if (eqNum(n84,20)) { equateNum(n84,0) freeBuf(buf98) runKey(virtual-l)
  568.    return }
  569. if (eqNum(n84,30)) { runKey(virtual-kp8) return }
  570. if (eqNum(n84,40)) { equateNum(n84,0) insertChar(curFile,12) }
  571. >
  572.  
  573.  
  574. Speller - very rough
  575. <virtual-l: equateNum(n84,0)
  576. if (isEmpty(buf98)) {
  577.    if (getFlag(curFile,changed)) {
  578.       if (not askYesNo("MicroSpell this file? (must save to disk; is slow)")) 
  579.          returnFalse
  580.       if (not saveFile(curFile)) {
  581.          putMsg("ERROR - couldn't save this file") beepDisplay 
  582.       }
  583.    }
  584.    else if (not askYesNo("MicroSpell this file? (is slow!!)")) returnFalse
  585.    getFileName(buf98,curFile)
  586. }
  587. else {
  588.    if (not askYesNo("MicroSpell this/these words? (is slow!!)")) returnFalse
  589.    freeBuf(buf99) insertRgn(buf99,sFile,buf98,all)
  590.    setFileName(buf99,"word-spell")
  591.    if (not saveFile(buf99)) { 
  592.       putMsg("Error - can't save temp file") returnFalse }
  593.    freeBuf(buf98) insertRgn(buf98,sFile,"word-spell",all) 
  594. }
  595. insertRgn(buf98,sFile,"run spell -d -w  ",all)
  596. putMsg("Check CLI for progress.  When done, load \"spell.lst\" for bad words")
  597. if (not execute(" ",buf98)) putMsg("Error - couldn't run speller")
  598. >
  599.  
  600.  
  601. Same as Return key; other actions depend on prefix key
  602. <ctl-m: if (eqNum(n84,0)) { runKey(normal-return) return }
  603. putMsg(" ")
  604. if (eqNum(n84,10)) { equateNum(n84,0)    
  605.    if (gtLoc(curFile,eHilite,sHilite)) {      
  606.       runKey(alt-0)      
  607.       equateLoc(curFile,locA,eHilite) ..decLoc(curFile,locA)      
  608.       if (not getFlag(curFile,columnar)) {         
  609.          equateLoc(curFile,atCursor,sHilite)         decLoc(curFile,locA)
  610.          while (not gtLoc(curFile,atCursor,locA)) {            
  611.             if (is(curFile,digit)) runKey(virtual-=)
  612.             else moveCursor(curFile,eChar)         
  613.          }      
  614.       }      
  615.       else {         
  616.          locToCol(curFile,n95,sHilite) locToCol(curFile,n96,locA)         
  617.          equateLoc(curFile,atCursor,sHilite)         
  618.          while (not gtLoc(curFile,atCursor,locA)) {            
  619.             while (nothing) {               
  620.                if (gtLoc(curFile,atCursor,locA)) goto label(1)               
  621.                locToCol(curFile,n97,atCursor) ..add(n97,n97,1)
  622.                if (geNum(n97,n96)) goto label(1)
  623.                if (is(curFile,digit)) runKey(virtual-=)
  624.                else moveCursor(curFile,eChar)
  625.             }
  626.             label(1)
  627.             moveCursor(curFile,downLine)
  628.             colToLoc(curFile,atCursor,n95)
  629.          }
  630.       } 
  631.       equateLoc(curFile,atCursor,eHilite)
  632.       freeBuf(buf99) div(n97,n90,100)
  633.       if (gtNum(0,n90)) if (eqNum(n97,0)) insertChar(buf99,"-")
  634.       toWord(buf99,n97) insertChar(buf99,".")
  635.       if (gtNum(0,n90)) mul(n97,n90,-1) else equateNum(n97,n90)
  636.       mod(n97,n97,100) if (gtNum(10,n97)) insertChar(buf99,"0")
  637.       toWord(buf99,n97) 
  638.       insertRgn(buf99,sFile,"Total: ",all) 
  639.       insertRgn(buf99,eFile,"    Use alt-\ to get # into doc @ cursor.",all)
  640.       putMsg(buf99) 
  641.       if (not onScreen(atCursor)) vScroll(atCursor) 
  642.    } 
  643.    else { putMsg("No block!") returnFalse } 
  644.    return 
  645. }
  646. if (eqNum(n84,20)) { equateNum(n84,0)
  647.    freeBuf(buf82)
  648.    if (not execute(buf82,"Run xe")) { 
  649.       putMsg("Error - Couldn't run xe calculator for some reason")
  650.       beepDisplay returnFalse }
  651.    return }
  652. if (eqNum(n84,30)) { equateNum(n84,0) 
  653.    freeBuf(buf99) insertRgn(buf99,sFile,"Set n-variable # (default ",all)
  654.    toWord(buf99,n86) insertRgn(buf99,atCursor,"):",all) putMsg(buf99)
  655.    if (inputNum(n99)) equateNum(n86,n99) else equateNum(n99,n86)
  656.    freeBuf(buf99) insertRgn(buf99,sFile,"Set n",all) toWord(buf99,n99)
  657.    insertRgn(buf99,atCursor," to value (now ",all) 
  658.    toWord(buf99,n[n99]) insertRgn(buf99,atCursor,"):",all) putMsg(buf99)
  659.    equateNum(n98,n[n99])
  660.    if (not inputNum(n[n99])) equateNum(n[n99],n98)
  661.    return }
  662. if (eqNum(n84,40)) runKey(virtual-kp8) 
  663. >
  664.  
  665.  
  666. Insert empty line; other actions depend on prefix key
  667. <ctl-n:
  668. if (eqNum(n84,0)) { 
  669.    insertChar(curFile,eLine) moveCursor(curFile,sChar) 
  670.    returnTrue }
  671. putMsg(" ")
  672. if (eqNum(n84,10)) { equateNum(n84,0) flipFlag(curFile,columnar)
  673.    if (getFlag(curFile,columnar)) putMsg("Block COLUMN mode")
  674.    else putMsg("Block LINES mode") 
  675.    return }
  676. if (eqNum(n84,20)) { equateNum(n84,0)
  677.    if (not is(curFile,sWord)) moveCursor(curFile,sWord)
  678.    equateLoc(curFile,sInvert,atCursor)
  679.    if (not is(curFile,eWord)) moveCursor(curFile,eWord)
  680.    equateLoc(curFile,eInvert,atCursor)
  681.    freeBuf(buf98) insertRgn(buf98,sFile,curFile,invert) updateDisplay
  682.    runKey(virtual-l) return }
  683. if (eqNum(n84,30)) { runKey(ctl-i) return }
  684. if (eqNum(n84,40)) { equateNum(n84,0) 
  685.    printerCode(curFile,14,0,0) updateDisplay putMsg("Normal (Pica) pitch") }
  686. >
  687.  
  688.  
  689. Page up; other actions depend on prefix key
  690. <ctl-r:
  691. if (eqNum(n84,0)) { moveCursor(curfile,sPage) 
  692.    vScroll(atCursor) if (not thisKey) refreshDisplay
  693.    if (is(curFile,sFile)) returnFalse else returnTrue }
  694. putMsg(" ")
  695. if (eqNum(n84,10)) { equateNum(n84,0) 
  696.    if (is(curFile,sFile)) equateNum(n95,10) else equateNum(n95,0)
  697.    moveCursor(curFile,sChar) equateLoc(curFile,locA,atCursor)
  698.    if (eqNum(n95,0)) moveCursor(curFile,eChar)
  699.    putMsg("Filename to insert:")
  700.    inputString(buf76) if (not isEmpty(buf76)) 
  701.       if (not insertFile(curFile,atCursor,buf76)) {
  702.          putMsg("ERROR - Couldn't find file.") beepDisplay returnFalse } 
  703.    if (eqNum(n95,10)) moveCursor(curFile,sFile)
  704.    else { equateLoc(curFile,atCursor,locA) moveCursor(curFile,eChar) } 
  705.    return }
  706. if (eqNum(n84,20)) { equateNum(n84,0) 
  707.    moveCursor(curFile,sFile) vScroll(atCursor) return }
  708. if (eqNum(n84,30)) { equateNum(n84,0) 
  709.    getLocal(curFile,n99,lineLength)
  710.    freeBuf(buf99) toWord(buf99,n99) insertRgn(buf99,sFile,
  711.    "Line length (now ",all) insertRgn(buf99,eFile,"):",all) putMsg(buf99)
  712.    if (inputNum(n99)) { setLocal(curFile,lineLength,n99) 
  713.       equateNum(lineLength,n99) } }
  714. if (eqNum(n84,40)) runKey(virtual-kp8) 
  715. >
  716.  
  717.      
  718. Move left; other actions depend on prefix key
  719. <ctl-s:
  720. if (eqNum(n84,0)) { moveCursor(curFile,sChar) return }
  721. putMsg(" ")
  722. if (eqNum(n84,10)) { equateNum(n84,0) 
  723.    if (not getFlag(curFile,changed)) {
  724.       putMsg("Buffer unchanged!") returnFalse }
  725.    else saveFile(curFile) 
  726.    return }
  727. if (eqNum(n84,20)) { equateNum(n84,0) 
  728.    if (not is(curFile,sLine)) moveCursor(curFile,sLine) 
  729.    return }
  730. if (eqNum(n84,30)) { runKey(virtual-kp8) return }
  731. if (eqNum(n84,40))  { equateNum(n96,5) runKey(virtual-p) }
  732. >
  733.  
  734.  
  735. Delete word; other actions depend on prefix key
  736. <ctl-t:
  737. if (eqNum(n84,0)) {           .. delete word; OK 
  738.    if (not eqLoc(curFile,locB,atCursor)) freeBuf(buf86)
  739.    equateLoc(curFile,locA,atCursor)
  740.    equateNum(n98,0)
  741.    if (is(curFile,whiteSpace)) equateNum(n98,1)
  742.    goto label(2)
  743.    while (moveCursor(curFile,eChar)) {      
  744.       if (not is(curFile,whiteSpace)) { 
  745.          if (eqNum(n98,1)) goto label(3)
  746.          if (is(curFile,sLine)) goto label(3)
  747.          label(2)   .. remove label(2) stuff & next 5 lines for no WS punct.
  748.          if (not is(curFile,";")) if (not is(curFile,":")) 
  749.             if (not is(curFile,".")) if (not is(curFile,",")) 
  750.                if (not is(curFile,"?")) if (not is(curFile,"!")) goto label(1)
  751.          equateNum(n98,1)
  752.          label(1)
  753.       }
  754.       else { if (is(curFile,eLine)) goto label(3)
  755.          equateNum(n98,1)
  756.       }
  757.    }
  758.    label(3)
  759.    equateLoc(curFile,locB,atCursor)
  760.    insertRgn(buf86,eFile,curFile,loc)
  761.    clearRgn(curFile,loc) return }
  762. putMsg(" ")
  763. if (eqNum(n84,10)) {
  764.    equateNum(n84,0) getMaxFiles(n98) decNum(n98)
  765.    equateNum(n96,0)
  766.    do (n99,0,n98) if (getFlag(buf[n99],changed))
  767.       if (not saveFile(buf[n99])) {
  768.          freeBuf(buf99) getFileName(buf99,buf[n99])
  769.          insertRgn(buf99,sFile,"ERROR - Couldn't save file: ",all) 
  770.          putMsg(buf99) beepDisplay equateNum(n96,1) delay(15) }
  771.    if (getFlag(buf80,changed)) runKey(virtual-4)
  772.    if (eqNum(n96,0)) { putMsg("All changed buffers saved.") returnTrue }
  773.    else { putMsg("ERROR(s) occurred during mass file save.")
  774.         beepDisplay returnFalse } }
  775. if (eqNum(n84,20)) { equateNum(n84,0)
  776.    putMsg("Character to delete up to:") 
  777.    if (not getFlag(curFile,useKeys)) flipFlag(curFile,useKeys)
  778.    getChar(n99)
  779.    flipFlag(curFile,useKeys)
  780.    if (not eqLoc(curFile,locB,atCursor)) freeBuf(buf86)
  781.    equateLoc(curFile,locA,atCursor)
  782.    putMsg("Deleting...")
  783.    while (not is(curFile,n99)) moveCursor(curFile,eChar)
  784.    equateLoc(curFile,locB,atCursor)
  785.    insertRgn(buf86,eFile,curFile,loc)
  786.    clearRgn(curFile,loc) 
  787.    putMsg(" ") return }
  788. if (eqNum(n84,30)) { equateNum(n84,0)
  789.    putMsg("Key or mouse resumes") seeRuler 
  790.    getKey(n99) if(eqNum(n99,normal-buttonDown)) getKey(n99) ..eat mouseUp
  791.    putMsg(" ")}
  792. if (eqNum(n84,40))  { equateNum(n96,13) runKey(virtual-p) }
  793. >
  794.  
  795. For swap buffer file saves
  796. <virtual-4:
  797. equateNum(n99,curFile) editBuf(buf80) refreshDisplay
  798. if (askYesNo("Swap buffer is not empty.  Save it?")) {
  799.    putMsg("Optionally rename it first:") freeBuf(buf99)
  800.    getFileName(buf99,curFile) 
  801.    if (inputString(buf99)) setFileName(curFile,buf99)
  802.    if (not saveFile(curFile)) {
  803.       putMsg("ERROR - Couldn't save file in buf80") 
  804.       beepDisplay equateNum(n96,1) }
  805.    }
  806. editBuf(buf[n99])
  807. >
  808.  
  809. Undelete last word/block/line; other actions depend on prefix key
  810. <ctl-u: 
  811. if (eqNum(n84,0)) goto label(1)   .. ^U now undelete like ^KU
  812. putMsg(" ")
  813. if (eqNum(n84,10)) { equateNum(n84,0) 
  814.    label(1)
  815.    if (not getFlag(curFile,columnar)) { 
  816.       moveCursor(curFile,sChar) equateLoc(curFile,locA,atCursor)
  817.       equateLoc(curFile,sHilite,atCursor)  .. rehilite
  818.       moveCursor(curFile,eChar)
  819.       insertRgn(curFile,atCursor,buf86,all)
  820.       equateLoc(curFile,eHilite,atCursor)  .. rehilite
  821.       equateLoc(curFile,atCursor,locA) moveCursor(curFile,eChar) } 
  822.    else copyColData(curFile,atCursor,buf85,all,n80) 
  823.    return }
  824. if (eqNum(n84,20)) { equateNum(n84,0)
  825.    putMsg("Will begin reformatting rest of document after 2 second delay")
  826.    delay(20)
  827.    while (nothing)
  828.      if (not runKey(ctl-b)) goto label(2)
  829.      else 
  830.         if (not onScreen(atCursor)) refreshDisplay else updateDisplay
  831.    label(2)
  832.    putMsg("Reformat command ^QU all done.")
  833.    return }
  834. if (eqNum(n84,30)) {
  835.    equateNum(n84,0)
  836.    if (is(curFile,alpha)) {
  837.       if (is(curFile,lowerCase)) toUpper(curFile)
  838.       else toLower(curFile) }
  839.    moveCursor(curFile,eChar) return }
  840. if (eqNum(n84,40)) { equateNum(n84,0) abortPrint }
  841. >
  842.  
  843.  
  844. Toggle insert/overwrite; other actions depend on prefix key
  845. <ctl-v:
  846. if (eqNum(n84,0)) { flipFlag(curFile,overStrike)
  847.    if (getFlag(curFile,overStrike)) putMsg("Overstrike") else putMsg("Insert")
  848.    return }
  849. putMsg(" ")
  850. if (eqNum(n84,10)) {
  851.    equateNum(n84,0)
  852.    if (gtLoc(curFile,eHilite,sHilite)) {
  853.       if (not getFlag(curFile,columnar)) {
  854.          freeBuf(buf86) 
  855.          insertRgn(buf86,sFile,curFile,hilite) 
  856.          clearRgn(curFile,hilite) 
  857.          moveCursor(curFile,sChar) equateLoc(curFile,sHilite,atCursor)
  858.          moveCursor(curFile,eChar)
  859.          insertRgn(curFile,atCursor,buf86,all)
  860.          equateLoc(curFile,eHilite,atCursor) incLoc(curFile,sHilite)
  861.          moveCursor(curFile,sHilite)
  862.          if (not onScreen(atCursor)) vScroll(atCursor) }
  863.       else {
  864.          freeBuf(buf85)
  865.          copyColData(buf85,sFile,curFile,hilite,n80)
  866.          if (eqNum(n80,1)) equateNum(n99,0) else equateNum(n99,1)
  867.          clearColData(curFile,hilite,n99) 
  868.          copyColData(curFile,atCursor,buf85,all,n80) } } 
  869.    else { putMsg("No block!") returnFalse } 
  870.    return }
  871. if (eqNum(n84,20)) { equateNum(n84,0) 
  872.    if (gtLoc(curFile,eInvert,sInvert)) {
  873.       moveCursor(curFile,sInvert) vScroll(atCursor) }
  874.    else { putMsg("No invert marked!") returnFalse } 
  875.    return }
  876. if (eqNum(n84,30)) { equateNum(n84,0)
  877.    freeBuf(buf99) insertRgn(buf99,sFile,
  878.    "Enter new tab table # 0-4 (0=8 std,1=WS std,2=prog,3=null,4=UE) (now ",all)
  879.    toWord(buf99,tabTable) insertRgn(buf99,eFile,"):",all) putMsg(buf99)
  880.    if (inputNum(n99)) if (geNum(n99,0)) if (gtnum(5,n99))
  881.       { setLocal(curFile,tabTable,n99) equateNum(tabTable,n99) }
  882.    return }
  883. if (eqNum(n84,40))  { equateNum(n96,11) runKey(virtual-p) }
  884. >
  885.  
  886. Alternate ^W that will return proper true/false, but cursor acts different
  887. vScroll(upLine) moveCursor(curFile,upLine) 
  888.    if (is(curFile,sFile)) returnFalse else returnTrue 
  889. Using updateDisplay after vScroll works fine EXCEPT if cursor in col. 1!!
  890.  
  891. Scroll up; other actions depend on prefix key
  892. <ctl-w: 
  893. if (eqNum(n84,0)) { vScroll(upLine) updateDisplay
  894.    if (not onScreen(atCursor)) { 
  895.       moveCursor(curFile,upLine) 
  896.       if (is(curFile,sLine)) {
  897.          moveCursor(curFile,upLine)  moveCursor(curFile,upLine) 
  898.          refreshDisplay  } 
  899.       else updateDisplay }
  900.    return }
  901. putMsg(" ")
  902. if (eqNum(n84,10)) { equateNum(n84,0)
  903.    if (gtLoc(curFile,eHilite,sHilite)) {
  904.       if (not getFlag(curFile,columnar)) {
  905.          freeBuf(buf86) 
  906.          insertRgn(buf86,sFile,curFile,hilite) }
  907.       else {
  908.          freeBuf(buf86) copyColData(buf86,sFile,curFile,hilite,n80) } 
  909.       putMsg("Save block as Filename (prt: for raw print):")
  910.       if (inputString(buf76)) if (setFileName(buf86,buf76))
  911.          if (not saveFile(buf86)) { 
  912.             putMsg("ERROR - Couldn't save block!") beepDisplay returnFalse } }
  913.    else { putMsg("No block!") returnFalse } 
  914.    return }
  915. if (eqNum(n84,20)) { equateNum(n84,0)
  916.    putMsg("^U or ESC exits; spacebar to stop/go")
  917.    while (vScroll(upLine)) {
  918.       moveCursor(curFile,upLine)
  919.       refreshDisplay
  920.       inputKey(n98)
  921.       if (eqNum(n98,normal-space)) getKey(n98) 
  922.       if (eqNum(n98,ctl-u)) goto label(2)
  923.       if (eqNum(n98,normal-esc)) goto label(2) }
  924.    label(2)
  925.    putMsg(" ") return }
  926. if (eqNum(n84,30)) { equateNum(n84,0) flipFlag(curFile,wordWrap)
  927.    if (getFlag(curFile,wordWrap)) putMsg("Word Wrap ON")
  928.    else putMsg("No Word Wrap") 
  929.    return }
  930. if (eqNum(n84,40))  { equateNum(n96,23) runKey(virtual-p) }
  931. >
  932.  
  933.  
  934. Move down; other actions depend on prefix key
  935. <ctl-x: 
  936. if (eqNum(n84,0)) { moveCursor(curFile,downLine) return }
  937. putMsg(" ")
  938. if (eqNum(n84,10)) { 
  939.    equateNum(n84,0) equateNum(n98,0) getMaxFiles(n97) decNum(n97)
  940.    equateNum(n96,0)
  941.    do (n99,0,n97) if (getFlag(buf[n99],changed)) equateNum(n98,1)
  942.    if (getFlag(buf80,changed)) if (not isEmpty(buf80)) equateNum(n98,2)
  943.    if (gtNum(n98,0)) {
  944.       if (askYesNo("Buffers have changed. Save ALL changed, without asking?")) {
  945.          do (n99,0,n97) { 
  946.             if (getFlag(buf[n99],changed))
  947.                if (not saveFile(buf[n99])) {
  948.                   freeBuf(buf99) getFileName(buf99,buf[n99])
  949.                   insertRgn(buf99,sFile,"ERROR - Couldn't save file: ",all) 
  950.                   putMsg(buf99) beepDisplay equateNum(n96,1) delay(15) 
  951.                } 
  952.          }
  953.          if (eqNum(n98,2)) runKey(virtual-4) 
  954.       }  
  955.       else {
  956.          if (askYesNo("Show and ask whether to save each changed buffer?")) {
  957.             do (n99,0,n97) { 
  958.                if (getFlag(buf[n99],changed)) {
  959.                   editBuf(buf[n99]) refreshDisplay
  960.                   if (askYesNo("Save this changed buffer?"))
  961.                      if (not saveFile(buf[n99])) {
  962.                         freeBuf(buf99) getFileName(buf99, buf[n99])
  963.                         insertRgn(buf99,sFile,
  964.                            "ERROR - Couldn't save file: ",all) 
  965.                         putMsg(buf99) beepDisplay 
  966.                         equateNum(n96,1) delay(15)  
  967.                      } 
  968.                } 
  969.             }
  970.             if (eqNum(n98,2)) runKey(virtual-4) 
  971.          } 
  972.       } 
  973.    }
  974.    if (eqNum(n96,0)) { if (not askYesNo("Really quit?")) returnFalse }
  975.    if (eqNum(n96,0)) { putMsg("Quitting Ustar...") quit(0) }
  976.    putMsg("ERROR(s) occurred during mass file save.") beepDisplay returnFalse
  977. }
  978. if (eqNum(n84,20)) { equateNum(n84,0) moveCursor(curFile,ePage) 
  979.    moveCursor(curFile,upLine) return }
  980. if (eqNum(n84,30)) { equateNum(n84,0)
  981.    putMsg("^OX not implemented; use ^OW for wordwrap, ^OR for line length")
  982. }
  983. if (eqNum(n84,40))  { equateNum(n96,7) runKey(virtual-p) }
  984. >
  985.  
  986.  
  987. Delete line; other actions depend on prefix key
  988. <ctl-y:
  989. if (eqNum(n84,0)) {
  990.    if (not eqLoc(curFile,locB,atCursor)) freeBuf(buf86)
  991.    equateLoc(curFile,locB,atCursor)
  992.    if (not is(curFile,sLine)) moveCursor(curFile,sLine)
  993.    if (not eqLoc(curFile,locB,atCursor)) {
  994.       equateLoc(curFile,locA,atCursor)
  995.       insertRgn(buf86,sFile,curFile,loc)
  996.       clearRgn(curFile,loc) }
  997.    else equateLoc(curFile,locA,atCursor)
  998.    if (not is(curFile,eLine)) moveCursor(curFile,eLine)
  999.    moveCursor(curFile,eChar)
  1000.    equateLoc(curFile,locB,atCursor)
  1001.    insertRgn(buf86,eFile,curFile,loc)
  1002.    clearRgn(curFile,loc) return } 
  1003. putMsg(" ")
  1004. if (eqNum(n84,10)) {
  1005.    equateNum(n84,0)
  1006.    if (gtLoc(curFile,eHilite,sHilite)) {
  1007.       if (not getFlag(curFile,columnar)) {
  1008.          freeBuf(buf86) 
  1009.          insertRgn(buf86,sFile,curFile,hilite) 
  1010.          clearRgn(curFile,hilite) }
  1011.       else {
  1012.          freeBuf(buf85)
  1013.          copyColData(buf85,sFile,curFile,hilite,n80)
  1014.          if (eqNum(n80,1)) equateNum(n99,0) else equateNum(n99,1)
  1015.          clearColData(curFile,hilite,n99) } }
  1016.    else { putMsg("No block!") returnFalse } 
  1017.    return }
  1018. if (eqNum(n84,20)) {
  1019.    equateNum(n84,0)
  1020.    if (not eqLoc(curFile,locB,atCursor)) freeBuf(buf86)
  1021.    if (is(curFile,eFile)) returnFalse
  1022.    if (is(curFile,eLine)) return
  1023.    else {
  1024.       equateLoc(curFile,locA,atCursor)
  1025.       moveCursor(curFile,eLine)
  1026.       equateLoc(curFile,locB,atCursor)
  1027.       insertRgn(buf86,eFile,curFile,loc)
  1028.       clearRgn(curFile,loc) } 
  1029.    return }
  1030. if (eqNum(n84,30)) { equateNum(n84,0)
  1031.    putMsg("Enter value (typ. 161-255) for Amiga alt. character (see AC-kp4)")
  1032.    if (inputNum(n99)) if (gtNum(n99,0)) if (gtnum(256,n99)) typeChar(n99)
  1033.    putMsg(" ")
  1034.    return }
  1035. if (eqNum(n84,40))  { equateNum(n96,17) runKey(virtual-p) }
  1036. >
  1037.  
  1038.  
  1039. Scroll down; other actions depend on prefix key
  1040. <ctl-z:
  1041. if (eqNum(n84,0)) { vScroll(downLine)
  1042.    if (not onScreen(atCursor)) {moveCursor(curFile,downLine) refreshDisplay }
  1043.    if (is(curFile,eFile)) { vScroll(atCursor) returnFalse } else returnTrue }
  1044. putMsg(" ")
  1045. if (eqNum(n84,10)) {
  1046.    equateNum(n84,0)
  1047.    flipFlag(curFile,autoBackup) 
  1048.    if (getFlag(curFile,autoBackup)) 
  1049.    putMsg("Archival backup")
  1050.    else putMsg("No backup!") 
  1051.    return }  
  1052. if (eqNum(n84,20)) {
  1053.    equateNum(n84,0)
  1054.    putMsg("^U or ESC exits; spacebar to stop/go")
  1055.    while (vScroll(downLine)) {
  1056.       moveCursor(curFile,downLine)
  1057.       refreshDisplay
  1058.       inputKey(n98)
  1059.       if (eqNum(n98,normal-space)) getKey(n98) 
  1060.       if (eqNum(n98,ctl-u)) goto label(2) 
  1061.       if (eqNum(n98,normal-esc)) goto label(2) }
  1062.    label(2)
  1063.    putMsg(" ") return }
  1064. if (eqNum(n84,30)) {
  1065.    equateNum(n84,0)
  1066.    flipFlag(curFile,rowCol) refreshDisplay return }
  1067. if (eqNum(n84,40)) runKey(virtual-kp7) 
  1068. >
  1069.  
  1070. delete from cursor to beginning of line
  1071. Actions depend on prefix key
  1072. <ctl-del:
  1073. putMsg(" ")
  1074. if (eqNum(n84,20)) {
  1075.    equateNum(n84,0)
  1076.    if (not is(curFile,sLine)) {
  1077.       if (not eqLoc(curFile,locB,atCursor)) freeBuf(buf86)
  1078.       equateLoc(curFile,locB,atCursor)
  1079.       moveCursor(curFile,sLine)
  1080.       equateLoc(curFile,locA,atCursor)
  1081.       insertRgn(buf86,sFile,curFile,loc)
  1082.       clearRgn(curFile,loc) } 
  1083.    if (is(curFile,sFile)) returnFalse }
  1084. else runKey(virtual-kp7) >
  1085.  
  1086.  
  1087. Actions depend on prefix key
  1088. <ctl-=:
  1089. if (eqNum(n84,10)) { equateNum(n84,0) flipFlag(curFile,readOnly)
  1090.    if (getFlag(curFile,readOnly)) putMsg("Read-Only")
  1091.    else putMsg("Read/Write") 
  1092.    return}
  1093. if (eqNum(n84,40)) { equateNum(n84,0)
  1094.    putMsg("Input a control character:") 
  1095.         getChar(n54)
  1096.         if (geNum(31,n54)) goto label(1)
  1097.         if (geNum(n54,64)) if (geNum(127,n54)) {
  1098.     label(1)
  1099.             and(n54,n54,31)
  1100.             insertChar(curFile,n54)
  1101.         }
  1102.         putMsg(" ")
  1103.    return }
  1104. runKey(virtual-kp7) >
  1105.  
  1106.    
  1107. Actions depend on prefix key
  1108. <ctl-\:
  1109. if (eqNum(n84,10)) { equateNum(n84,0)
  1110.    flipFlag(curFile,icons)
  1111.    if (getFlag(curFile,icons)) putMsg("Icons On at Save") 
  1112.    else putMsg("No Icons at Save") }
  1113. else runKey(virtual-kp7) >
  1114.  
  1115. Actions depend on prefix key
  1116. <ctl-[:
  1117. if (eqNum(n84,10)) { equateNum(n84,0)
  1118.    flipFlag(curFile,changed)
  1119.    if (getFlag(curFile,changed)) putMsg("Marked as Changed")
  1120.    else putMsg("Marked as Unchanged") }
  1121. else runKey(virtual-kp7) >
  1122.  
  1123. Actions depend on prefix key
  1124. <ctl-]:
  1125. if (eqNum(n84,10)) { equateNum(n84,0) putMsg(" ") runKey(shftCtl-]) return }
  1126. else runKey(virtual-kp7) >
  1127.  
  1128. Actions depend on prefix key
  1129. <ctl-/: if (eqNum(n84,0)) {
  1130.    putMsg("Use standard Uedit to run a demo, none created for Ustar") 
  1131.    beepDisplay returnFalse }
  1132. putMsg(" ")
  1133. if (eqNum(n84,20)) { equateNum(n84,0)
  1134.    putMsg("Packing...")
  1135.    freeBuf(buf99) locToIndex(curFile,n99,atCursor) 
  1136.    if (is(curFile,eFile)) decNum(n99)
  1137.    toWord(buf99,n99) insertRgn(buf99,sFile,
  1138.    "Bytes in buffer to cursor point: ",all) putMsg(buf99)
  1139. }
  1140. else runKey(virtual-kp7) 
  1141. >
  1142.  
  1143. Action depends on prefix; for ^K prefix, convert block to lowercase
  1144. <ctl-': if (eqNum(n84,0)) { runKey(virtual-kp7) return }
  1145. putMsg(" ")
  1146. if (eqNum(n84,10)) { equateNum(n84,0)
  1147.    if (eqLoc(curFile,sHilite,eHilite)) { putMsg("No block!") returnFalse }
  1148.    putMsg("Converting block to lower case...")
  1149.    moveCursor(curFile,sHilite)
  1150.    while (gtLoc(curFile,eHilite,atCursor)) {
  1151.       toLower(curFile) moveCursor(curFile,eChar)
  1152.    }
  1153.    putMsg(" ") refreshDisplay
  1154. }
  1155. else runKey(virtual-kp7)
  1156. >
  1157.  
  1158. Actions depend on prefix key
  1159. <ctl-.:
  1160. if (eqNum(n84,10)) { equateNum(n84,0)
  1161.    flipFlag(curFile,userLocalA)
  1162.    if (getFlag(curFile,userLocalA)) putMsg("Auto-Save On")
  1163.    else putMsg("Auto-Save Off") }
  1164. else runKey(virtual-kp7) >
  1165.  
  1166. End of control key translation section
  1167.  
  1168.  
  1169. Shift key translation section
  1170.  
  1171. Type a quote mark ("); for ^K prefix, convert block to uppercase
  1172. <shft-': if (eqNum(n84,0)) { typeChar(34) return }
  1173. putMsg(" ")
  1174. if (eqNum(n84,10)) { equateNum(n84,0)
  1175.    if (eqLoc(curFile,sHilite,eHilite)) { putMsg("No block!") returnFalse }
  1176.    putMsg("Converting block to upper case...")
  1177.    moveCursor(curFile,sHilite)
  1178.    while (gtLoc(curFile,eHilite,atCursor)) {
  1179.       toUpper(curFile) moveCursor(curFile,eChar)
  1180.    }
  1181.    putMsg(" ") refreshDisplay
  1182. }
  1183. else runKey(virtual-kp7)
  1184. >
  1185.  
  1186.  
  1187. End of shift key translation section
  1188.  
  1189. ---------------------------------------------------------------------------    
  1190.  
  1191.                     Cursor movement - arrow keys
  1192.  
  1193. Cursor Up one line
  1194. <normal-upArrow: moveCursor(curFile,upLine) >
  1195. Cursor Down one line
  1196. <normal-downArrow: moveCursor(curFile,downLine) >
  1197. Cursor Left one character
  1198. <normal-leftArrow: moveCursor(curFile,sChar) >
  1199. Cursor Right one character
  1200. <normal-rightArrow: moveCursor(curFile,eChar) >
  1201.  
  1202. Cursor to Start of word
  1203. <shft-leftArrow: moveCursor(curFile,sWord) >
  1204. Cursor to End of word
  1205. <shft-rightArrow: moveCursor(curFile,eWord) >
  1206. Move Up by half a screen
  1207. <shft-upArrow: moveCursor(curFile,sPage) vScroll(atCursor)  >
  1208. Move Down by half a screen
  1209. <shft-downArrow: moveCursor(curFile,ePage) vScroll(atCursor) >
  1210.  
  1211. Cursor to Top of screen
  1212. <ctl-upArrow: moveCursor(curfile,sPage) >
  1213. Cursor to Bottom of screen
  1214. <ctl-downArrow: moveCursor(curFile,ePage) moveCursor(curFile,upLine)>
  1215. Scroll screen Left
  1216. <ctl-leftArrow: hscroll(1) >
  1217. Scroll screen Right
  1218. <ctl-rightArrow: hscroll(-1) >
  1219.  
  1220. Cursor to Top of file
  1221. <alt-upArrow: moveCursor(curFile,sFile) >
  1222. Cursor to End of file
  1223. <alt-downArrow: moveCursor(curFile,eFile) >
  1224. Cursor to Start of line
  1225. <alt-leftArrow: if (not is(curFile,sLine)) moveCursor(curFile,sLine) >
  1226. Cursor to End of line
  1227. <alt-rightarrow: if (not is(curFile,eLine)) moveCursor(curFile,eLine) >
  1228.  
  1229. -----------------------------------------------------------------------------
  1230.  
  1231.                              Mouse operations
  1232.                          (see also next section)
  1233.  
  1234. Fast version (see below for slow version).
  1235. Place cursor with mouse; or, if dragged, highlight block at release
  1236. <normal-buttonDown:
  1237. moveCursor(curFile,mouseLoc) updateDisplay
  1238. equateLoc(curFile,locA,mouseLoc)
  1239. getMaxFiles(n99) decNum(n99) equateNum(n98,curFile) 
  1240. if (gtNum(n99,n98)) equateNum(n82,curFile)  .. for windows, set current
  1241. if (getFlag(curFile,lace)) equateNum(n97,394) else equateNum(n97,194)
  1242. while (trackmouse) { 
  1243.    mouseXY(n98,n99)
  1244.    if (gtNum(n99,n97)) vScroll(downLine)
  1245.    if (gtNum(18,n99)) vScroll(upLine)
  1246.    updateDisplay }  
  1247. if (not eqLoc(curFile,locA,mouseLoc)) {
  1248.    equateLoc(curFile,atCursor,mouseLoc)
  1249.    if (gtLoc(curFile,atCursor,locA)) {
  1250.       equateLoc(curFile,eHilite,atCursor) equateLoc(curFile,sHilite,locA) }
  1251.    else {
  1252.       equateLoc(curFile,sHilite,atCursor) equateLoc(curFile,eHilite,locA) }
  1253.    refreshDisplay }
  1254. returnTrue>
  1255.  
  1256. Alternate "Slow" version that updates highlight dynamically, but slowly,
  1257. with slow scrolling.  
  1258.  
  1259.  normal-buttonDown:
  1260. moveCursor(curFile,mouseLoc) updateDisplay
  1261. equateLoc(curFile,locA,mouseLoc)
  1262. while (trackmouse) { 
  1263.    if (not eqLoc(curFile,locA,mouseLoc)) {
  1264.       if (gtLoc(curFile,locA,mouseLoc)) {
  1265.          equateLoc(curFile,sHilite,mouseLoc) equateLoc(curFile,eHilite,locA) }
  1266.       else { 
  1267.          equateLoc(curFile,eHilite,mouseLoc) equateLoc(curFile,sHilite,locA) }
  1268.       mouseXY(n98,n99)
  1269.       if (gtNum(n99,194)) vScroll(downLine)
  1270.       if (gtNum(18,n99)) vScroll(upLine)
  1271.       refreshDisplay } } 
  1272. returnTrue>
  1273.  
  1274.  
  1275.      Mouse equivalents to block operations
  1276.  
  1277. Block move with mouse
  1278. <shft-buttonDown: 
  1279. moveCursor(curFile,mouseLoc) equateNum(n84,10) runKey(ctl-v) >
  1280.  
  1281. Block copy with mouse
  1282. <alt-buttonDown: 
  1283. moveCursor(curFile,mouseLoc) equateNum(n84,10) runKey(ctl-c) >
  1284.  
  1285. Block delete with mouse
  1286. <shftAlt-buttonDown:
  1287. moveCursor(curFile,mouseLoc) equateNum(n84,10) runKey(ctl-y) >
  1288.  
  1289.  
  1290. 2.3c: OK, enable, may need testing in interlace
  1291. n96 start/#lines   n97 stop    n98 buf  n99 scratch  n95 scratch
  1292. Resize split windows. Click in active window, drag to new title bar pos'n.
  1293. <shftAltCtl-buttonDown: 
  1294. equateNum(n98,curFile)           .. may go to different buf window, save current
  1295. getSplitLines(n96,n97)    .. get start & stop
  1296. sub(n96,n97,n96)         .. line count
  1297. while (trackmouse) mouseXY(n95,n99)
  1298. if (getFlag(curFile,lace)) { sub(n99,392,n99) div(n99,n99,8) 
  1299.    if (gtNum(n99,44)) equateNum(n99,44) 
  1300.    sub(n97,47,n97) }
  1301. else { sub(n99,196,n99) div(n99,n99,8) if(gtNum(n99,19)) equateNum(n99,19)
  1302.    sub(n97,22,n97) }
  1303. sub(n99,n99,n97) if (gtNum(2,n99)) equateNum(n99,2)
  1304. splitWindow(buf[n98],0)
  1305. if (not splitWindow(buf[n98],n99)) {
  1306.     splitWindow(buf[n98],n96)
  1307. }
  1308. equateNum(n99,curFile) getMaxFiles(n98)  
  1309. if (not geNum(n99,n98)) equateNum(n82,curFile)
  1310. >
  1311.  
  1312. ---------------------------------------------------------------------------
  1313.  
  1314.                      Directory/Click-load Operations
  1315.  
  1316. Click to Delete a file - WARNING - no verify, so be careful.
  1317. buf98 - filename from V-kp0; buf97 - temp DOS string use
  1318. <altCtl-buttondown:
  1319. equateLoc(curFile,atCursor,mouseLoc)
  1320. if (not is(curFile,whiteSpace)) {
  1321.    putMsg("Deleting file from disk...")
  1322.    while (not is(curFile,whiteSpace)) {
  1323.       moveCursor(curFile,sChar) if (is(curFile,sFile)) goto label(1) }
  1324.    label(1)
  1325.  
  1326.    runKey(virtual-kp0)
  1327.  
  1328.    if (eqNum(n95,20)) equateNum(n95,0)
  1329.    if (eqNum(n95,0)) {
  1330.       freeBuf(buf97) insertRgn(buf97,sFile,"Delete ",all)
  1331.       insertRgn(buf97,eFile,buf98,all)
  1332.       freeBuf(buf82)
  1333.       if (not execute(buf82,buf97)) { 
  1334.          putMsg("ERROR - Couldn't delete file") beepDisplay returnFalse }
  1335.       if (not isEmpty(buf82)) { 
  1336.          putMsg("ERROR - File not deleted, AmigaDOS returned message:")
  1337.          editBuf(buf82) beepDisplay returnFalse }
  1338.       insertRgn(buf82,eFile,"File deleted: ",all)
  1339.       insertRgn(buf82,eFile,buf98,all)
  1340.       putMsg(buf82)
  1341.       freeBuf(buf82) getFileName(buf82,curFile)
  1342.       insertRgn(buf82,sFile," ",all) moveCursor(buf82,sFile)
  1343.       setSearch("Dir of ")
  1344.       if (search(buf82,sInvert,eInvert,1)) {
  1345.          clearColData(curFile,Invert,1) .. remove deleted filename from display
  1346.          equateLoc(curFile,eInvert,sInvert)
  1347.          refreshDisplay  flipFlag(curFile,changed) }
  1348.    }
  1349.    else { putMsg("ERROR - Can't delete that.") beepDisplay }
  1350. }
  1351. >
  1352.  
  1353.  
  1354. insertChar(buf84," ") moveCursor(buf84,sChar)
  1355.  
  1356. Show current directory & all devices in system 
  1357. Used via ctl-buttondown operations for click-getting root directories.
  1358. Uses buf99 for display, buf98 for temp execute
  1359. Show current directory & all devices in system 
  1360. <shftCtl-f:
  1361. putMsg("Enter Directory (none to see disks, space for current): ")
  1362. moveCursor(buf84,eFile) 
  1363.  
  1364. if (inputString(buf84)) {
  1365.    moveCursor(buf84,eFile) moveCursor(buf84,sChar) 
  1366.    while (is(buf84,space)) { clearChar(buf84) moveCursor(buf84,sChar) }
  1367.     runKey(virtual-kp4)  .. get dir
  1368.     return
  1369. }
  1370.  
  1371. putMsg("Getting device info, wait a moment...")
  1372. freeBuf(buf98) 
  1373. if (not execute(buf98,"CD")) { 
  1374.    putmsg("CD command not found") beepDisplay returnFalse }
  1375. moveCursor(buf98,eFile) moveCursor(buf98,sChar) clearChar(buf98)
  1376.  
  1377. moveCursor(buf98,sFile) insertChar(buf98,eLine) insertChar(buf98,eLine)
  1378. insertRgn(buf98,eFile,"
  1379. ^- Current directory
  1380. ",all)
  1381.  
  1382. freeBuf(buf82) 
  1383. if (not execute(buf82,"Info")) { 
  1384.    putmsg("Info command not found") beepDisplay returnFalse }
  1385. insertRgn(buf98,eFile,buf82,all)
  1386.  
  1387. freeBuf(buf99) insertRgn(buf99,sFile,buf98,all)
  1388. editBuf(buf99) moveCursor(curFile,sFile)
  1389. putMsg("Ctrl-click on device name xxx: (or type a name, click on it)")
  1390. >
  1391.  
  1392.  
  1393. Get the dir of buf84 & show results. Uses scratch buf99,buf98,dos result buf82
  1394. Get directory, put to display
  1395. <virtual-kp4:
  1396. freeBuf(buf98) insertRgn(buf98,sFile,"Getting dir of ",all)
  1397. insertRgn(buf98,eFile,buf84,all) putMsg(buf98)
  1398.  
  1399. freeBuf(buf98) insertRgn(buf98,eFile,"Dir ",all)
  1400. insertRgn(buf98,eFile,buf84,all) 
  1401. freeBuf(buf82)
  1402. if (not execute(buf82,buf98)) { 
  1403.    putMsg("Couldn't get Dir") beepDisplay returnFalse }
  1404.  
  1405. freeBuf(buf98)
  1406. insertRgn(buf98,sFile,"
  1407. Directory of:    ",all)
  1408. if (not isEmpty(buf84)) insertRgn(buf98,atCursor,buf84,all)
  1409. insertRgn(buf98,atCursor,"
  1410.  
  1411.      (Parent)       (All)         DF0: DF1: DF2: DF3: DH0: DH1: VD0: RAM:
  1412.                                       Mouse AC-click to delete a file
  1413. ",all)
  1414. insertRgn(buf98,eFile,buf82,all)
  1415.  
  1416. if (not newFile) { 
  1417. putMsg("No more Edit Buffers available!  Free some up.") beepDisplay
  1418. returnFalse }
  1419.  
  1420. equateNum(n82,curFile)
  1421. putMsg("Ctrl-click files, Dir names, (xxx), or devs:  with mouse")
  1422. freeBuf(buf99) insertRgn(buf99,sFile,"Dir of ",all)
  1423. insertRgn(buf99,eFile,buf84,all)  setFileName(curFile,buf99) 
  1424. insertRgn(curFile,sFile,buf98,all) moveCursor(curFile,sFile)
  1425. flipFlag(curFile,changed) 
  1426. returnTrue>
  1427.  
  1428.  
  1429. Below Uses n97, n98, n99. n95, buf98 (& scratch buf97, buf96) via virtual-kp0
  1430. Load filename or directory that is clicked
  1431. <ctl-buttonDown:
  1432. getKey(n97) .. eat up buttonUp event
  1433. equateLoc(curFile,atCursor,mouseLoc)
  1434. if (not is(curFile,whiteSpace)) {
  1435.     while (not is(curFile,whiteSpace)) {
  1436.        moveCursor(curFile,sChar) if (is(curFile,sFile)) goto label(1) }
  1437.     label(1)
  1438.  
  1439.     runKey(virtual-kp0)
  1440.  
  1441.     if (eqNum(n95,25)) goto label(9)                   .. eof
  1442.  
  1443.     if (eqNum(n95,5)) {                                .. dir
  1444.        moveCursor(buf84,eFile) moveCursor(buf84,sChar)
  1445.        if (not isEmpty(buf84)) {
  1446.           if (not is(buf84,":")) 
  1447.              if (not is(buf84,"/")) { 
  1448.                 moveCursor(buf84,eChar) insertChar(buf84,"/") } }   
  1449.        insertRgn(buf84,eFile,buf98,all) equateNum(n99,curFile)
  1450.        runKey(virtual-kp4) runKey(virtual-del) goto label(10) }               
  1451.  
  1452.     if (eqNum(n95,10)) {                               .. parent
  1453.        if (isEmpty(buf84)) goto label(3)
  1454.        else {
  1455.           moveCursor(buf84,eFile)
  1456.           if (is(buf84,":")) goto label(3)
  1457.           else {
  1458.              while (nothing) {
  1459.                 clearChar(buf84) moveCursor(buf84,sChar)
  1460.                 if (isEmpty(buf84)) goto label(3)
  1461.                 if (is(buf84,":")) goto label(3)
  1462.                 if (is(buf84,"/")) { clearChar(buf84) goto label(3) }}}}
  1463.        label(3) equateNum(n99,curFile)
  1464.        runKey(virtual-kp4) runKey(virtual-del) goto label(10) }
  1465.  
  1466.     if (eqNum(n95,15)) { runKey(virtual-kp3) goto label(10) } .. all
  1467.  
  1468.     if (eqNum(n95,20)) { putMsg("I won't load .info files!") goto label(9) }
  1469.  
  1470.     if (eqNum(n95,30)) {                                    .. dev:
  1471.        freeBuf(buf84) insertRgn(buf84,sFile,buf98,all)
  1472.        equateNum(n99,curFile)
  1473.        runKey(virtual-kp4) runKey(virtual-del) goto label(10) }
  1474.  
  1475.     equateNum(n99,curFile)
  1476.     if (loadFile(buf98)) { equateNum(n98,curFile)
  1477.        if (isEmpty(curFile)) { 
  1478.           freeBuf(curFile) editBuf(buf[n99]) equateNum(n82,curFile)
  1479.           insertRgn(buf98,sFile,"Not found: ",all) 
  1480.           putMsg(buf98) goto label(9) }
  1481.        else { editBuf(buf[n99])          
  1482.           putMsg("F1=edit; F3=cancel Dir; other keys normal")
  1483.           getKey(n97) putMsg(" ") 
  1484.           if (eqNum(n97,normal-f1)) { 
  1485.              editBuf(buf[n98]) equateNum(n82,curFile) goto label(10) }
  1486.           if (eqNum(n97,normal-f3)) { 
  1487.              editBuf(buf[n98]) equateNum(n82,curFile) freeBuf(buf[n99]) }
  1488.           else runKey(n97) goto label(10) } }
  1489.     else { insertRgn(buf98,sFile,"Not loaded: ",all) 
  1490.        putMsg(buf98) goto label(9) } } 
  1491. label(9) returnFalse
  1492. label(10) >
  1493.  
  1494.  
  1495. Check what filename is before deleting. Requires n99 set to buf# on entry.
  1496. <virtual-del:
  1497. getFileName(buf98,buf[n99])
  1498. moveCursor(buf98,sFile) insertChar(buf98," ") moveCursor(buf98,sFile)
  1499. setSearch("Dir of ")
  1500. if (search(buf98,sInvert,eInvert,1)) freeBuf(buf[n99])
  1501. >
  1502.  
  1503.  
  1504. Get a filename into buf98, starting at current cursor pos'n; dirname of 
  1505. buf84 properly prepended. Ignore .info files.
  1506. Also uses buf97 scratch; uses Invert. Uses n95 as flag:
  1507.   0 OK; 5 is " (dir)"; 10 is "(Parent)"; 15 is "(All)"; 20 is ".info"; 
  1508.   25 is EOF; 30 is device ": "
  1509.  
  1510. Process clicked name
  1511. <virtual-kp0:
  1512. equateNum(n95,0)
  1513. if (getFlag(curFile,searchCaps)) flipFlag(curFile,searchCaps) 
  1514. while (is(curFile,whiteSpace)) {    .. skip any leading whitespace
  1515.    moveCursor(curFile,eChar) 
  1516.    if (is(curFile,eFile)) { equateNum(n95,25) goto label(10) } }
  1517. equateLoc(curFile,sInvert,atCursor)
  1518. while (not is(curFile,whiteSpace)) {  .. find end of name, allow 1 embed. spc
  1519.    moveCursor(curFile,eChar)
  1520.    if (is(curFile,eFile)) goto label(1)
  1521.    if (is(curFile,eLine)) goto label(1)
  1522.    if (is(curFile,space)) moveCursor(curFile,eChar) }
  1523. label(1)   
  1524. while (is(curFile,whiteSpace)) { moveCursor(curFile,sChar) }
  1525. moveCursor(curFile,eChar)
  1526. equateLoc(curfile,eInvert,atCursor)
  1527. if (is(curFile,eLine)) moveCursor(curFile,eChar)
  1528. freeBuf(buf98) insertRgn(buf98,sFile,curFile,invert)
  1529. refreshDisplay
  1530.  
  1531. freeBuf(buf97) insertChar(buf97," ") 
  1532. insertRgn(buf97,eFile,curFile,invert)
  1533.  
  1534. .. determine if it is a specific kind of file/name/action
  1535.  
  1536. moveCursor(buf97,sFile)
  1537. setSearch(".info")
  1538. if (search(buf97,sInvert,eInvert,1)) { 
  1539.    equateNum(n95,20) }
  1540.  
  1541. moveCursor(buf97,sFile)
  1542. setSearch(" (dir)")
  1543. if (search(buf97,sInvert,eInvert,1)) {
  1544.    moveCursor(buf98,sFile)
  1545.    search(buf98,sInvert,eInvert,1)
  1546.    while (not is(buf98,eFile)) clearChar(buf98)   
  1547.    equateNum(n95,5) goto label(10) }
  1548.  
  1549. moveCursor(buf97,sFile)
  1550. setSearch("(Parent)")
  1551. if (search(buf97,sInvert,eInvert,1)) { 
  1552.    equateNum(n95,10) goto label(10) }
  1553.    
  1554. moveCursor(buf97,sFile)
  1555. setSearch("(All)")
  1556. if (search(buf97,sInvert,eInvert,1)) {
  1557.    equateNum(n95,15) goto label(10) } 
  1558.  
  1559. moveCursor(buf97,sFile)
  1560. setSearch(":")
  1561. if (search(buf97,sInvert,eInvert,1)) {       .. device name check
  1562.    moveCursor(buf97,eChar)  if (not is(buf97,whiteSpace)) 
  1563.       if (not is(buf97,space)) if (not is(buf97,eLine)) 
  1564.       if (not is(buf97,eFile)) if (not is(buf97,9)) goto label (10)
  1565.    moveCursor(buf98,sFile) 
  1566.    while (not is(buf98,":")) moveCursor(buf98,eChar)
  1567.    moveCursor(buf98,eChar) 
  1568.    while (not is(buf98,eFile)) clearChar(buf98)
  1569.    equateNum(n95,30)
  1570.    goto label(10)
  1571. }
  1572.  
  1573. if (not isEmpty(buf84)) {     .. for files, prepend current path correctly
  1574.    moveCursor(buf84,eFile) moveCursor(buf84,sChar)
  1575.    if (not is(buf84,":")) { 
  1576.       moveCursor(buf98,sFile) insertChar(buf98,"/") } 
  1577.    insertRgn(buf98,sFile,buf84,all) } 
  1578. label(10) >
  1579.  
  1580.  
  1581. All load 
  1582. buf99 screen copy; buf98 filename via virtual-kp0 (also see); n95 scratch
  1583.  
  1584. Load all files in current dir list
  1585. <virtual-kp3:
  1586. getMaxFiles(n95)
  1587. putMsg("Load All") equateNum(n96,curFile) if (gtNum(n95,n96))
  1588. equateNum(n82,curFile)
  1589. equateNum(n96,0) 
  1590. freeBuf(buf99) insertChar(buf99," ") moveCursor(buf99,sChar)
  1591. insertRgn(buf99,eFile,curFile,all) editBuf(buf99)
  1592.  
  1593. moveCursor(curFile,sFile) moveCursor(curFile,downLine)
  1594. do (n95,1,17) moveCursor(curFile,eChar)
  1595. equateLoc(curFile,sHilite,atCursor) moveCursor(curFile,eLine)
  1596. equateLoc(curfile,eHilite,atCursor) moveCursor(curFile,sLine)
  1597. freeBuf(buf84) 
  1598. insertRgn(buf84,sFile,curFile,hilite)
  1599. moveCursor(curFile,sHilite) if(is(curFile,"*")) freeBuf(buf84)
  1600. moveCursor(curFile,sLine)
  1601.  
  1602. do (n95,0,3) moveCursor(curFile,downLine)
  1603. while (nothing) {
  1604.    runKey(virtual-kp0)
  1605.    if (eqNum(n95,25)) goto label(2)
  1606.    if (gtNum(n95,0))  goto label(1)
  1607.  
  1608.    if (loadFile(buf98)) {
  1609.        if (not isEmpty(curFile)) {
  1610.           insertRgn(buf98,sFile,"Loaded OK: ",all) goto label(3) } 
  1611.        else freeBuf(curFile) }
  1612.    insertRgn(buf98,sFile,"Not loaded: ",all)
  1613.    label(3)
  1614.    putMsg(buf98) delay(4) editBuf(buf99) 
  1615.    label(1)
  1616.    if (is(curFile,eFile)) goto label(2) }
  1617.  
  1618. label(2) 
  1619.    freeBuf(buf99) editBuf(buf[n82]) putMsg("(All) done") returnTrue>
  1620.    
  1621. -----------------------------------------------------------------------------
  1622.  
  1623.                                  Reformat
  1624.  
  1625. A "Shell"for the reformat function to make it a lot smarter and act
  1626. more like WS.  See UstarDoc.
  1627.  
  1628. n97  is  "bulleted  item",  empty  line,  EOL, and EOF indicator from delimit
  1629.      routine. 0 for non-delimiter item.
  1630. n95 is "cursor indent" flag, then holds n97 initial value for later
  1631. n96 is temporary scratch use
  1632. buf99 is bullet phrase hold
  1633.  
  1634. uses Invert.  Uses sInvert & eInvert for several purposes as markers.
  1635. clears any hilite that is set if bulleted/indented reformat done
  1636.  
  1637. uses shft-Return which uses n99
  1638. uses virtual-kp1 which uses n97, scratch n96
  1639.  
  1640.  
  1641. Reformatting routine
  1642. <virtual-kp2:
  1643. putMsg("Reformatting...")
  1644. if (not is(curFile,sLine)) { equateNum(n95,5)     .. flag for floating par.
  1645.    equateLoc(curFile,eInvert,atCursor) moveCursor(curFile,sLine) }
  1646. else equateNum(n95,0)
  1647. equateLoc(curFile,sInvert,atCursor)  .. mark reformat starting point at sLine
  1648.  
  1649. runKey(virtual-kp1)      .. check for delimiter
  1650. if (geNum(n97,20)) goto label(1)   .. found eol/eof, exit
  1651.  
  1652. .. set end of "cut" section if not already set by cursor not in col. 1 
  1653. if (eqNum(n95,0)) equateLoc(curFile,eInvert,atCursor)
  1654. else equateNum(n97,5)   .. combine 2 flags into n97 bulleted status
  1655.  
  1656. equateNum(n95,n97)       .. save value of n97 for later
  1657.  
  1658. .. first, must convert any tabs in delimiter to spaces for proper indent
  1659. equateLoc(curFile,atCursor,sInvert)
  1660. while (gtLoc(curFile,eInvert,atCursor)) {
  1661.    if (is(curFile,9)) {
  1662.       swapChar(curFile,32)
  1663.       moveCursor(curFile,eChar)
  1664.       while (not is(curFile,tabColumn)) insertChar(curFile,32)
  1665.    } else moveCursor(curFile,eChar)
  1666. }
  1667.  
  1668. if (gtNum(n97,0)) {      .. delimiter found, save delimiter header, clear it
  1669.    freeBuf(buf99)
  1670.    copyColData(buf99,sFile,curFile,invert,1)
  1671.    clearColData(curFile,invert,1) 
  1672. }
  1673.  
  1674. equateLoc(curFile,atCursor,sInvert)   .. set cursor to start
  1675.  
  1676. .. this section aligns all lines to the same indentation so that
  1677. .. reformat() will work, and finds/marks end of area to reformat
  1678. while (nothing) {        
  1679.    .. check for eof; move to next line 
  1680.    if (not is(curFile,eLine)) moveCursor(curFile,eLine) 
  1681.    if (is(curFile,eFile)) insertChar(curFile,eLine)
  1682.    moveCursor(curFile,downLine) 
  1683.    if (not is(curfile,sLine)) moveCursor(curFile,sLine)
  1684.    runKey(virtual-kp1) if (gtNum(n97,0)) {   .. is line a delimiter?
  1685.       .. delimiter found, insert eol for reformat() to stop at, mark it
  1686.       if (not is(curFile,sLine)) moveCursor(curFile,sLine)
  1687.       insertChar(curFile,eLine)    
  1688.       equateLoc(curFile,eInvert,atCursor)
  1689.       goto label(6) 
  1690.    }
  1691.    runKey(shft-return)        .. match indent of line, fix if eof
  1692. }
  1693. label(6)
  1694.  
  1695. equateNum(n97,n95)  .. restore n97 value
  1696.  
  1697. equateLoc(curFile,atCursor,sInvert)  .. put cursor to line to start reformat
  1698.  
  1699. reformat            .. primary reformat does 1st line, or whole block 
  1700.  
  1701. equateLoc(curFile,atCursor,sInvert)   .. restore cursor to start
  1702.  
  1703. .. this section reformats rest of an indented paragraph etc.
  1704. if (eqNum(n97,0)) if (not getFlag(curfile,autoIndent)) {
  1705.  
  1706.    .. start on the second line of the block
  1707.    moveCursor(curfile,downLine) 
  1708.    insertChar(curFile,eLine)   .. make so "match indent" aligns to col. 1
  1709.  
  1710.    .. turn any leading tabs into spaces on the first line of this section
  1711.    while (nothing) {
  1712.       if (not is(curFile,9)) if (not is(curFile,space)) goto label(3)
  1713.       if (is(curFile,9)) {
  1714.          swapChar(curFile,32)
  1715.          moveCursor(curFile,eChar)
  1716.          while (not is(curFile,tabColumn)) insertChar(curFile,32)
  1717.       } else moveCursor(curFile,eChar)
  1718.    }
  1719.    label(3)
  1720.  
  1721.    .. make subsequent lines have equal indentation
  1722.    while (nothing) {
  1723.       if (geLoc(curFile,atCursor,eInvert)) goto label(8)
  1724.       runKey(shft-return)
  1725.       moveCursor(curFile,downLine) 
  1726.    }
  1727.  
  1728.    label(8)
  1729.    equateLoc(curFile,atCursor,sInvert)  .. set cursor to start of section
  1730.    moveCursor(curFile,downLine) moveCursor(curFile,downLine)
  1731.  
  1732.    reformat     .. reformat all but the first line of the paragraph
  1733.  
  1734.    equateLoc(curFile,atCursor,sInvert)  .. clear extra eol inserted above 
  1735.    moveCursor(curFile,downLine) clearChar(curFile)
  1736.    equateLoc(curFile,atCursor,sInvert) 
  1737. }
  1738.  
  1739. if (gtNum(n97,0)) {      .. restore bulleted section that was cut out above
  1740.    copyColData(curFile,atCursor,buf99,all,0)
  1741.    equateLoc(curFile,sHilite,eHilite)
  1742. }
  1743.  
  1744. label(1)
  1745. equateLoc(curFile,atCursor,sInvert) 
  1746. if (not gtNum(n97,10)) {
  1747.    equateLoc(curFile,atCursor,eInvert)
  1748.    moveCursor(curFile,sChar) clearChar(curFile)
  1749.    putMsg(" ") 
  1750. }
  1751. if (eqNum(n97,20)) { moveCursor(curFile,downLine) putMsg("Empty line") }
  1752. equateLoc(curFile,eInvert,sInvert) 
  1753. if (eqNum(n97,40)) { putMsg("EOF!") returnFalse }
  1754. returnTrue>
  1755.  
  1756.  
  1757.  
  1758. Determine if a line is a delimiter line. Returns with cursor at 1st text.
  1759.    Returns n97: 0=not delimiter, 5=bullet line, 10=# line
  1760.      20=null or empty line, EOL  40=null or empty line, EOF
  1761.    n97 also holds temp negative vals as flags within this routine
  1762.  
  1763.    n96 used briefly for scratch
  1764.  
  1765. Delimiter line routine
  1766. <virtual-kp1:
  1767. equateNum(n97,0) 
  1768. if (not is(curFile,sLine)) moveCursor(curFile,sLine)
  1769. while (nothing) {        .. find first printable char on line
  1770.    if (is(curFile,eLine)) goto label(1)
  1771.    if (is(curFile,eFile)) goto label(2)
  1772.    if (not is(curFile,9)) if (is(curFile,ctlChar)) goto label(1)
  1773.    if (not is(curFile,space)) if (not is(curFile,9)) goto label(3)
  1774.    moveCursor(curFile,eChar) }
  1775. label(3)
  1776.  
  1777. while (nothing) {        .. determine if this meets rules for a delimiter
  1778.    if (is(curFile,space)) goto label(4)  .. exit if space or tab encountered
  1779.    if (is(curFile,9)) goto label(4)
  1780.    if (is(curFile,"o")) {     .. bulleted outline character 
  1781.       if (not eqNum(n97,-5)) { equateNum(n97,-5) goto label(6) }
  1782.       else goto label(4) }
  1783.    else { if (is(curFile,alpha)) goto label(4) }
  1784.    if (is(curFile,digit)) { equateNum(n97,-10) goto label(6) }
  1785.    if (is(curFile,".")) { if (eqNum(n97,-10)) {  .. check for #'d outline
  1786.       equateNum(n97,-15)  goto label(6) } }
  1787.    if (is(curFile,eLine)) goto label(1)
  1788.    if (is(curFile,eFile)) goto label(2)
  1789.    goto label(4)
  1790.    label(6)
  1791.    moveCursor(curfile,eChar) 
  1792. }
  1793. label(4)
  1794.  
  1795. .. from values set in above loop, determine bulleted status & set flag
  1796. equateNum(n96,0)
  1797. if (is(curFile,space)) equateNum(n96,5)
  1798. if (is(curFile,9)) equateNum(n96,5)
  1799. if (eqNum(n96,5)) {
  1800.    if (eqNum(n97,-5)) equateNum(n97,5)
  1801.    if (eqNum(n97,-15)) equateNum(n97,10) 
  1802. }
  1803. if (not gtNum(n97,0)) equateNum(n97,0)
  1804.  
  1805. while (nothing) {                       .. advance to start of text 
  1806.    if (not is(curFile,space)) {
  1807.       if (not is(curFile,9)) {
  1808.          if (is(curFile,eLine)) goto label(1)
  1809.          if (is(curFile,eFile)) goto label(2)
  1810.          goto label(5) 
  1811.       }
  1812.    }
  1813.    moveCursor(curFile,eChar) 
  1814. }
  1815. label(5) returnTrue
  1816. label(1) equateNum(n97,20) returnTrue
  1817. label(2) equateNum(n97,40) returnTrue
  1818. >
  1819.  
  1820. -----------------------------------------------------------------------------
  1821.  
  1822.                                   About
  1823.  
  1824. (Uedit portion text same as Rick's current (2.3) original)
  1825.  
  1826. General info on Uedit and Ustar
  1827. <alt-/:
  1828. equateNum(n99,curFile)
  1829. freeBuf(buf99)
  1830. insertRgn(buf99,sFile,
  1831. "
  1832.  
  1833.                   :               Uedit                :
  1834.                   :        Written by Rick Stiles      :
  1835.                   :    Placed in the public domain     :
  1836.                   :             July 1992              :
  1837.  
  1838.  
  1839. Uedit is SHAREWARE.
  1840.  
  1841. Try it and see how you like it.
  1842.  
  1843. If you wish to purchase the Full Uedit package which lets you create and
  1844. compile custom commands and custom Uedit configurations, and which has the
  1845. full Uedit documentation, see your dealer or see Uedit-Policy for ordering
  1846. information.
  1847.  
  1848. If your dealer doesn't carry Uedit, please have him contact me.
  1849.  
  1850. ",all)
  1851. moveCursor(buf99,sFile) do (n97,1,5) moveCursor(buf99,eLine)
  1852. equateLoc(buf99,eHilite,atCursor)  
  1853. do (n97,1,3) moveCursor(buf99,upLine) do (n97,1,38) moveCursor(buf99,sChar)
  1854. equateLoc(buf99,sHilite,atCursor) moveCursor(buf99,eFile)
  1855. if (getFlag(curFile,columnar)) equateNum(n96,0)
  1856. else { flipFlag(curFile,columnar) equateNum(n96,1) }
  1857. setFileName(buf99,"               About Uedit...")
  1858. putMsg("Mouse or key proceeds") 
  1859. editBuf(buf99) 
  1860. vScroll(sFile) 
  1861. updateDisplay 
  1862. getKey(n98) if(eqNum(n98,normal-buttonDown)) getKey(n98) ..eat mouseUp
  1863. clearRgn(buf99,all)
  1864. moveCursor(curFile,sFile) do(n98,1,28) insertChar(curFile,eLine)
  1865. insertRgn(buf99,sFile,
  1866. "  1987 by Kurt Wessels, 917 N. 87th, Seattle, WA 98103    
  1867.  
  1868. Ustar is a configuration  file  for  Uedit.   It  emulates  most editing
  1869. functions of WordStar (a trademark of MicroPro International Corp.)
  1870.  
  1871. Ustar  is  freely  distributable.   It  may  be  included with any Uedit
  1872. files/disks  distributed  directly  by Rick Stiles.  It may be posted to
  1873. bulletin  boards,   included   on   public-domain/shareware  disks,  and
  1874. generally  be  distributed  for  no charge or a small handling fee.  All
  1875. rights reserved.  Contributions of freely distributable  software  or  $
  1876. are  welcome  -  but  I  would  much  rather  that  you support Uedit by
  1877. purchasing it first!  
  1878.  
  1879. If you want to be informed of updated versions of Ustar, send an SASE to
  1880. me;  send $5 (or a disk and postage) if you want the latest version.  
  1881.  
  1882. You may modify the Ustar files and excerpt from them in any way for your
  1883. own use,  but  do  not  then  redistribute  them  as  Ustar.   Send  any
  1884. enhancements, bugs, ideas, etc.  to me and I will consider them in later
  1885. releases.   Disclaimer: Use at your own risk!
  1886. ",all)
  1887. moveCursor(curFile,sFile) typeChar(169)
  1888. insertRgn(buf99,sFile,
  1889. "                               Ustar v0.90                              
  1890.    Copyright ",all)
  1891. setFileName(buf99,"              About Ustar")
  1892. moveCursor(buf99,sFile) equateLoc(buf99,sHilite,atCursor)
  1893. moveCursor(buf99,eLine) equateLoc(buf99,eHilite,atCursor)
  1894. moveCursor(buf99,eChar) equateLoc(buf99,sInvert,atCursor)
  1895. moveCursor(buf99,eLine) equateLoc(buf99,eInvert,atCursor)
  1896. moveCursor(buf99,eFile) 
  1897. putMsg("Mouse or key resumes") 
  1898. editBuf(buf99)
  1899. vScroll(sFile) updateDisplay
  1900. getKey(n98) if(eqNum(n98,normal-buttonDown)) getKey(n98) ..eat mouseUp
  1901. editBuf(buf[n99]) putMsg(" ") 
  1902. if (eqNum(n96,1)) flipFlag(curFile,columnar) freeBuf(buf99) returnTrue>
  1903.  
  1904. -----------------------------------------------------------------------------
  1905.                    Printer Control Code Toggle Management
  1906.  
  1907. This controls the on/off flag status for 9 different print functions.
  1908. Each edit buffer has its own control (n# variable that matches buffer #).  
  1909. Max of 9 toggles all used up (primes method).  Prime passed to it in n96.
  1910. See the UstarHelp file for more info.
  1911.  
  1912. <virtual-p: equateNum(n84,0)
  1913. freeBuf(buf99) getMaxFiles(n97) equateNum(n98,curFile)
  1914. if (eqNum(n[n98],0)) equateNum(n[n98],1)  .. initialize
  1915. if (geNum(n98,n97)) { putMsg("Ptr codes - Edit bufs only!") returnFalse }
  1916. if (eqNum(n96,2)) { equateNum(n99,10)  insertRgn(buf99,sFile,"Bold",all) }
  1917. if (eqNum(n96,3)) { equateNum(n99,23)  insertRgn(buf99,sFile,"Double",all) }
  1918. if (eqNum(n96,5)) { equateNum(n99,8)   insertRgn(buf99,sFile,"Underline",all)}
  1919. if (eqNum(n96,7)) { equateNum(n99,25)  insertRgn(buf99,sFile,"NLQ",all) }
  1920. if (eqNum(n96,11)) { equateNum(n99,29) insertRgn(buf99,sFile,"Subscript",all)}
  1921. if (eqNum(n96,13)) { equateNum(n99,27) insertRgn(buf99,sFile,"Superscript",all) }
  1922. if (eqNum(n96,17)) { equateNum(n99,6)  insertRgn(buf99,sFile,"Italics",all) }
  1923. if (eqNum(n96,19)) { equateNum(n99,17) insertRgn(buf99,sFile,"Condensed",all) }
  1924. if (eqNum(n96,23)) { equateNum(n99,19) insertRgn(buf99,sFile,"Wide",all) }
  1925. mod(n97,n[n98],n96)
  1926. if (eqNum(n97,0)) {      .. on to off transition, for OFF state
  1927.    incNum(n99) div(n[n98],n[n98],n96) insertRgn(buf99,eFile," Off",all) }
  1928. else {                   .. off to on transition, for ON state
  1929.    mul(n[n98],n[n98],n96) insertRgn(buf99,eFile," On",all) }
  1930. printerCode(curFile,n99,0,0) updateDisplay
  1931. putMsg(buf99)
  1932. >
  1933.  
  1934.  
  1935. Internal routine used by print command, dot command interpretation routines 
  1936. <virtual-n:
  1937. moveCursor(curFile,sLine)
  1938. while (not is(curFile,digit)) {
  1939.    moveCursor(curFile,eChar)
  1940.    if (is(curFile,eLine)) returnFalse
  1941.    if (is(curFile,eFile)) returnFalse }
  1942. toNumber(n99,curFile) returnTrue
  1943. >
  1944.  
  1945.  
  1946. Print command
  1947. <virtual-o:
  1948. if (not askYesNo("Print with Headers, Page #s, Date, etc.?")) {
  1949.    alertUser("Put printer to top of form and on-line")
  1950.    putMsg("May take a long time to start printing...")
  1951.    print(curFile,all) return }
  1952. moveCursor(curFile,sFile) vScroll(atCursor) refreshDisplay
  1953. putMsg("Copying buffer to work buffer...")
  1954. equateNum(n98,curFile) getFileName(buf98,curFile)
  1955. if (not newFile) { 
  1956.    putMsg("Ran out of Edit buffers or memory, can't print this way")
  1957.    beepDisplay returnFalse }
  1958. equateNum(n99,curFile) editBuf(buf[n98])
  1959. putMsg("Copying buffer to work buffer...")
  1960. if (not insertRgn(buf[n99],sFile,buf[n98],all)) {
  1961.    putMsg("Not enough memory to print this way")
  1962.    editBuf(buf[n98]) beepDisplay returnFalse } 
  1963. editBuf(buf[n99])
  1964. insertRgn(buf98,eFile,"**PRINT COPY**",all)
  1965. setFileName(curFile,buf98) moveCursor(curFile,sFile) 
  1966. vScroll(sFile) refreshDisplay
  1967.  
  1968. label(1)
  1969.  
  1970. putMsg("Processing file for dot commands...")
  1971. moveCursor(curFile,sFile)
  1972. freeBuf(buf90) freeBuf(buf91)  .. no header/footer unless specified
  1973. while (nothing) {
  1974.    label(13)
  1975.    if (not is(curFile,".")) goto label(10)
  1976.  
  1977.    equateLoc(curFile,sInvert,atCursor)       .. dot command found, process it
  1978.    moveCursor(curFile,eChar) 
  1979.    equateNum(n98,0) .. flag for .pa, .po
  1980.    if (is(curFile,".")) goto label(12)       .. comments
  1981.  
  1982.    moveCursor(curFile,eChar) moveCursor(curFile,eChar)
  1983.    equateLoc(curFile,eInvert,atCursor)
  1984.    freeBuf(buf99) insertRgn(buf99,sFile,curFile,invert)
  1985.    if (getFlag(buf99,searchCaps)) flipFlag(buf99,searchCaps)
  1986.  
  1987.    moveCursor(buf99,sFile)                   .. margin, top
  1988.    setSearch("mt")
  1989.    if (search(buf99,sInvert,eInvert,1)) {
  1990.       if(runKey(virtual-n)) setLocal(curFile,topMargin,n99)
  1991.       .. else ignore it, use current setting
  1992.       goto label(12) }
  1993.    .. else ignore lack of it & use current setting
  1994.  
  1995.    moveCursor(buf99,sFile)                   .. margin, bottom
  1996.    setSearch("mb")
  1997.    if (search(buf99,sInvert,eInvert,1)) {
  1998.       if(runKey(virtual-n)) setLocal(curFile,bottomMargin,n99)
  1999.       goto label(12) }
  2000.    moveCursor(buf99,sFile)                   .. lines/page
  2001.    setSearch("pl")
  2002.    if (search(buf99,sInvert,eInvert,1)) {
  2003.       if(runKey(virtual-n)) setLocal(curFile,pageLines,n99)
  2004.       goto label(12) }
  2005.    moveCursor(buf99,sFile)                   .. header
  2006.    setSearch("he")
  2007.    if (search(buf99,sInvert,eInvert,1)) {
  2008.       locToCol(buf99,n99,eInvert) colToLoc(curFile,sInvert,n99)
  2009.       moveCursor(curFile,eLine) equateLoc(curFile,eInvert,atCursor)
  2010.       insertRgn(buf90,sFile,curFile,invert)
  2011.       goto label(12) }
  2012.    moveCursor(buf99,sFile)                   .. footer
  2013.    setSearch("fo")
  2014.    if (search(buf99,sInvert,eInvert,1)) {
  2015.       locToCol(buf99,n99,eInvert) colToLoc(curFile,sInvert,n99)
  2016.       moveCursor(curFile,eLine) equateLoc(curFile,eInvert,atCursor)
  2017.       insertRgn(buf91,sFile,curFile,invert)
  2018.       goto label(12) }
  2019.    moveCursor(buf99,sFile)                   .. comment
  2020.    setSearch("ig")
  2021.    if (search(buf99,sInvert,eInvert,1)) goto label(12)
  2022.    moveCursor(buf99,sFile)                   .. page break
  2023.    setSearch("pa")
  2024.    if (search(buf99,sInvert,eInvert,1)) {
  2025.       equateNum(n98,5) goto label(12) }   
  2026.    moveCursor(buf99,sFile)                   .. page offset (left mrg)
  2027.    setSearch("po")
  2028.    if (search(buf99,sInvert,eInvert,1)) {
  2029.       if(runKey(virtual-n)) equateNum(n98,10) 
  2030.       goto label(12) }
  2031.    moveCursor(buf99,sFile)                   .. non-WS cmd: printer init strng
  2032.    setSearch("pi")
  2033.    if (search(buf99,sInvert,eInvert,1)) {
  2034.       locToCol(buf99,n99,eInvert) colToLoc(curFile,sInvert,n99)
  2035.       moveCursor(curFile,eLine) equateLoc(curFile,eInvert,atCursor)
  2036.       if (askYesNo("Send printer initialization string to printer?")) {
  2037.          alertUser("Put printer on-line; may be slow to initialize")
  2038.          print(curFile,invert)  }
  2039.       goto label(12) }
  2040.  
  2041.    .. otherwise, is unknown dot command, just delete line
  2042.    label(12)  .. get rid of dot command line now that it's processed
  2043.    moveCursor(curFile,sLine) equateLoc(curFile,locA,atCursor)
  2044.    moveCursor(curFile,eLine) moveCursor(curFile,eChar)
  2045.    equateLoc(curFile,locB,atCursor)
  2046.    clearRgn(curFile,loc) 
  2047.    if (eqNum(n98,5)) insertChar(curFile,12)  ..   .pa
  2048.    if (eqNum(n98,10)) {                      ..   .po
  2049.       getLocal(curFile,n97,lineLength) add(n97,n97,n99) 
  2050.       freeBuf(buf99) printerCode(buf99,65,n99,n97)  .. prefs code
  2051.       if (askYesNo("Send printer code for Left Margin to printer?")) {
  2052.          alertUser("Put printer on-line; may be slow to initialize")
  2053.          print(buf99,all)  }
  2054.    .. unknown how to use preferences code 60
  2055.    .. or replace above two active lines with Epson code (margin must be > 4):
  2056.    .. insertChar(curFile,27) insertChar(curFile,"l") insertChar(curFile,n99)
  2057.    .. also will need to allow  interpretation of non-UE codes:
  2058.    .. equateNum(prefPrint,3)
  2059.    }
  2060.    updateDisplay  .. show progress only for dot cmd processing
  2061.    if (not is(curFile,eLine)) moveCursor(curFile,eLine)
  2062.    if (is(curFile,eFile)) goto label(11)
  2063.    if (not is(curFile,sLine)) moveCursor(curFile,sLine)
  2064.    goto label(13)
  2065.  
  2066.    label(10) .. dot command not found, go to check next line
  2067.    if (not is(curFile,eLine)) moveCursor(curFile,eLine)
  2068.    if (is(curFile,eFile)) goto label(11)
  2069.    moveCursor(curFile,eChar)
  2070. }
  2071. label(11)
  2072.  
  2073.  
  2074. putMsg("Setting up paging, please wait...")
  2075.  
  2076. getLocal(curFile,n97,topMargin)
  2077. getLocal(curFile,n98,bottomMargin)
  2078.  
  2079. if (not isEmpty(buf90)) if(eqNum(n97,0)) { 
  2080.    putMsg("Can't have header with no top margin. Press key.") 
  2081.    getKey(n99) beepDisplay returnFalse }
  2082. if (not isEmpty(buf91)) if(eqNum(n98,0)) { 
  2083.    putMsg("Can't have footer with no bottom margin. Press key.") 
  2084.    getKey(n99) beepDisplay returnFalse }
  2085.    
  2086. .. correct to real lines/page considering margins
  2087. add(n99,n97,n98)
  2088. getLocal(curFile,n98,pageLines)
  2089. sub(n99,n98,n99)
  2090. setLocal(curFile,pageLines,n99)
  2091.  
  2092. moveCursor(buf90,sFile) insertChar(buf90," ") moveCursor(buf90,sChar)
  2093. setSearch("@")
  2094. if (search(buf90,sInvert,eInvert,1)) {
  2095.    equateNum(n99,4) if (not runKey(virtual-d)) goto label(1)
  2096.    swapChar(buf90," ") copyColData(buf90,atCursor,buf82,invert,0) }
  2097. moveCursor(buf90,sFile) clearChar(buf90)
  2098.  
  2099. moveCursor(buf91,sFile) insertChar(buf91," ") moveCursor(buf91,sChar)
  2100. setSearch("@")
  2101. if (search(buf91,sInvert,eInvert,1)) {
  2102.    equateNum(n99,4) if (not runKey(virtual-d)) goto label(1)
  2103.    swapChar(buf91," ") copyColData(buf91,atCursor,buf82,invert,0) }
  2104. moveCursor(buf91,sFile) clearChar(buf91)
  2105.  
  2106. putMsg("Preview doc now for page breaks.  Press key. F10 to skip preview.")
  2107. getKey(n99) mod(n99,n99,104) if(eqNum(n99,normal-f10)) goto label(2)
  2108. moveCursor(curFile,sFile)
  2109. equateNum(n92,0)
  2110. while (moveCursor(curFile,eForm)) {
  2111.    moveCursor(curFile,eForm) 
  2112.    if (not is(curFile,eLine)) moveCursor(curFile,eLine)
  2113.    if (is(curFile,eFile)) equateNum(n92,2) 
  2114.    moveCursor(curFile,sForm)
  2115.    if (not is(curFile,sLine)) moveCursor(curFile,sLine)
  2116.    vScroll(atCursor) refreshDisplay
  2117.    freeBuf(buf99)
  2118.    insertRgn(buf99,sFile,
  2119.    "Cursor @ page break.  OK=kpEnter;F10=end; or edit this PRINT doc  ",all)
  2120.    movecursor(buf99,eFile)
  2121.    equateNum(n99,ctl-help)  .. no-op
  2122.    while (not eqNum(n99,normal-kpEnter)) { 
  2123.       runKey(n99) refreshDisplay 
  2124.       getPageRowCol(n99,n98,n97) .. simulate pagerowcol
  2125.       toWord(buf99,n99) insertChar(buf99,":") toWord(buf99,n98)
  2126.       insertChar(buf99,",") toWord(buf99,n97) putMsg(buf99)
  2127.       getKey(n99) 
  2128.       if (eqNum(n99,normal-f10)) goto label(2)
  2129.       freeBuf(buf99) insertRgn(buf99,sFile,
  2130.       "PRINT Page break editing. No typing. kpEnter goes, F10 ends.      ",all)
  2131.    }
  2132.    if (eqNum(n92,2)) goto label(2)
  2133. }
  2134. label(2)
  2135. putMsg(" ")
  2136.  
  2137. putMsg("Converting document to final print form...")
  2138.  
  2139. .. n98 top n97 bot  n99 scratch  n96 scratch n95 scratch
  2140. .. n93 top hdr page#  n94 bot footer page#  n92 bof/eof flag  n91 real pagelin
  2141. .. buf96 = buf90  buf97 = buf91
  2142.  
  2143. moveCursor(curFile,sFile)                       .. setup
  2144. getLocal(curFile,n98,topMargin)
  2145. getLocal(curFile,n97,bottomMargin)
  2146.  
  2147. freeBuf(buf96) insertRgn(buf96,sFile,buf90,all)  .. header setup
  2148. moveCursor(buf96,sFile) insertChar(buf96," ") moveCursor(buf96,sChar)
  2149. equateNum(n93,0)
  2150. setSearch("#")
  2151. if (search(buf96,sInvert,eInvert,1)) {
  2152.    clearChar(buf96) 
  2153.    locToCol(buf96,n93,atCursor) decNum(n93)  }   
  2154. moveCursor(buf96,sFile) clearChar(buf96)
  2155.  
  2156. freeBuf(buf97) insertRgn(buf97,sFile,buf91,all)  .. footer setup
  2157. moveCursor(buf97,sFile) insertChar(buf97," ") moveCursor(buf97,sChar)
  2158. equateNum(n94,0)
  2159. setSearch("#")
  2160. if (search(buf97,sInvert,eInvert,1)) {
  2161.    clearChar(buf97) 
  2162.    locToCol(buf97,n94,atCursor) decNum(n94)  }   
  2163. moveCursor(buf97,sFile) clearChar(buf97)
  2164.  
  2165. equateNum(n92,0)  .. 0 not eof   2 eof
  2166. equateNum(n91,1)  .. page # counter
  2167. equateLoc(curFile,locA,atCursor)
  2168.  
  2169. while(nothing)  {                               ..the  heart  of  it all 
  2170.  
  2171.    moveCursor(curFile,eForm)            .. end of page operations
  2172.    if (not is(curFile,eLine)) moveCursor(curFile,eLine)   
  2173.    if (is(curFile,eFile)) { 
  2174.       insertChar(curFile,12) moveCursor(curFile,sChar) equateNum(n92,2) }
  2175.    if (is(curFile,12)) { clearChar(curFile) .. space out to end of page
  2176.       getPageRowCol(n99,n96,n95) 
  2177.       getLocal(curFile,n95,pageLines)
  2178.       if (gtNum(n95,n96)) { do(n99,n96,n95) insertChar(curFile,eLine)
  2179.       moveCursor(curFile,sChar) }
  2180.    }
  2181.    if (not is(curFile,sLine)) moveCursor(curFile,sLine)
  2182.    equateLoc(curFile,locB,atCursor)  .. save place to insert footer
  2183.    
  2184.    if (gtNum(n98,0)) {                          .. top marg   
  2185.       equateLoc(curFile,atCursor,locA)
  2186.       if (not is(curFile,sLine)) moveCursor(curFile,sLine)
  2187.       do(n99,1,n98) insertChar(curFile,eLine)
  2188.       if (not isEmpty(buf90)) {  .. put in header, ~centered in top margin 
  2189.          div(n99,n98,2) 
  2190.          do(n96,0,n99) moveCursor(curFile,upLine)
  2191.          freeBuf(buf99) insertRgn(buf99,sFile,buf96,all)
  2192.          if (gtNum(n93,0)) {    .. put in current page #
  2193.             colToLoc(buf99,atCursor,n93)
  2194.             toWord(buf99,n91)
  2195.          }
  2196.          copyColData(curFile,atCursor,buf99,all,0)
  2197.          equateLoc(curFile,sHilite,eHilite)
  2198.       }
  2199.    }
  2200.    refreshDisplay   .. show progress
  2201.  
  2202.    equateLoc(curFile,atCursor,locB)      .. bottom margin
  2203.    moveCursor(curFile,downLine)  .. correct by 1
  2204.    if (gtNum(n97,0)) do(n99,1,n97) insertChar(curFile,eLine)
  2205.    moveCursor(curFile,sChar) clearChar(curFile)       
  2206.    insertChar(curFile,12)             .. put in FF, so Form figured correctly
  2207.    equateLoc(curFile,locA,atCursor)   .. save place to insert header
  2208.    moveCursor(curFile,upLine)
  2209.    if (gtNum(n97,0)) {
  2210.       if (not isEmpty(buf91)) {  .. put in footer, ~centered in bottom margin 
  2211.          div(n99,n97,2) 
  2212.          if (gtNum(n97,2)) do(n96,1,n99) moveCursor(curFile,upLine)
  2213.          freeBuf(buf99) insertRgn(buf99,sFile,buf97,all)
  2214.          if (gtNum(n94,0)) {    .. put in current page #
  2215.             colToLoc(buf99,atCursor,n94)
  2216.             toWord(buf99,n91)
  2217.          }
  2218.          copyColData(curFile,atCursor,buf99,all,0)
  2219.          equateLoc(curFile,sHilite,eHilite)
  2220.       }
  2221.       if (not is(curFile,eForm)) moveCursor(curFile,eForm)  .. back to FF
  2222.    }
  2223.    if (eqNum(n92,2)) goto label(3)
  2224.  
  2225.    incNum(n91)  .. page # counter
  2226.  
  2227. }
  2228. label(3)
  2229.  
  2230. ..goto label(4)  .. testing
  2231. moveCursor(curFile,sFile)                  .. get rid of unnecessary FF's
  2232. while(nothing) {
  2233.    moveCursor(curFile,eForm)
  2234.    if (not is(curFile,eLine)) moveCursor(curFile,eLine)
  2235.    if (is(curFile,12)) swapChar(curFile,eLine)
  2236.    moveCursor(curFile,eChar)
  2237.    if (is(curFile,eFile)) goto label(4)
  2238. }
  2239. label(4)
  2240.  
  2241. flipFlag(curFile,changed)
  2242.  
  2243. if (askYesNo("Print converted document?")) {
  2244.    alertUser("Put printer to top of form and on-line")
  2245.    putMsg("Spooling for printing; may take a long time to start printing...")
  2246.    print(curFile,all) }
  2247. if (not askYesNo("Discard this PRINT buffer?")) {
  2248.    putMsg("PRINT buffer not discarded.  Rename and save if desired.")
  2249.    add(n98,n98,n97) getLocal(curFile,n99,pageLines) add(n99,n98,n99)
  2250.    setLocal(curFile,pageLines,n99)
  2251.    flipFlag(curFile,changed) }
  2252. else { putMsg(" ") equateNum(n99,curFile) editBuf(buf[n82]) freeBuf(buf[n99]) }
  2253. >
  2254.  
  2255. -----------------------------------------------------------------------------
  2256.  
  2257.                             C Programming Help
  2258.  
  2259.  
  2260. Set up my preferred editor environment for C programming
  2261. <shft-F7:
  2262. putmsg("Setting up for C...")
  2263. if (getFlag(curFile,overStrike)) flipFlag(curFile,overStrike)
  2264. if (not getFlag(curFile,autoBackup)) flipFlag(curFile,autoBackup)
  2265. if (getFlag(curFile,wordWrap)) flipFlag(curFile,wordWrap)
  2266. if (getFlag(curFile,icons)) flipFlag(curFile,icons)
  2267. equateNum(pageLines,1)
  2268. setLocal(curFile,pageLines,pageLines)
  2269. if (not getFlag(curFile,autoIndent)) flipFlag(curFile,autoIndent)
  2270. setLocal(curFile,tabTable,2)  .. assumes 2 is programming table
  2271. equateNum(tabTable,2)
  2272. putmsg("Ready to do C") >
  2273.  
  2274.  
  2275. Save file in current buffer to vd0:
  2276. Strips out any path, saves to vd0: root, which is where I do my C work
  2277. Save file in current buffer to vd0:; path stripped, always puts to root
  2278. <ctl-F7: 
  2279.    freeBuf(buf98) getFileName(buf98,curFile)
  2280.    moveCursor(buf98,sFile) insertChar(buf98," ") moveCursor(buf98,sFile)
  2281.    equateLoc(buf98,sInvert,eInvert)
  2282.    setSearch(":")
  2283.    if (search(buf98,sInvert,eInvert,1)) {
  2284.       moveCursor(buf98,sFile)
  2285.       if (eqLoc(buf98,sFile,sInvert)) clearChar(buf98)
  2286.       else {
  2287.          moveCursor(buf98,sFile)
  2288.          while (not eqLoc(buf98,atCursor,sInvert)) clearChar(buf98) } }
  2289.    else moveCursor(buf98,sFile) clearChar(buf98)
  2290.  
  2291.    moveCursor(buf98,sFile) insertChar(buf98," ")
  2292.    equateLoc(buf98,sInvert,eInvert)
  2293.    moveCursor(buf98,sFile)
  2294.    setSearch("/")
  2295.    do (n98,0,9999) { 
  2296.       if (not search(buf98,sInvert,eInvert,1)) goto label(1) }
  2297.    label(1)
  2298.    if (gtNum(n98,0)) { moveCursor(buf98,sFile) 
  2299.       while (not eqLoc(buf98,atCursor,eInvert)) clearChar(buf98) }
  2300.    else { moveCursor(buf98,sFile) clearChar(buf98) }
  2301.  
  2302.    getFileName(buf99,curFile)
  2303.    insertRgn(buf98,sFile,"vd0:",all)
  2304.    setFileName(curFile,buf98)
  2305.    if (getFlag(curFile,changed)) equateNum(n99,5) else equateNum(n99,0)
  2306.    saveFile(curFile)
  2307.    setFileName(curFile,buf99)
  2308.    if (eqNum(n99,5)) flipFlag(curFile,changed) >
  2309.  
  2310.  
  2311. For C comments: put in the beginning comment delimiter "/* "
  2312. <normal-f7:
  2313.    if (not is(curFile," ")) insertchar(curFile,"/")
  2314.    else { swapChar(curFile,"/") moveCursor(curFile,eChar) }
  2315.    if (not is(curFile," ")) insertchar(curFile,"*")
  2316.    else { swapChar(curFile,"*") moveCursor(curFile,eChar) }
  2317.    if (not is(curFile," ")) insertchar(curFile," ")
  2318.    else moveCursor(curFile,eChar)
  2319.    updateDisplay
  2320. >
  2321.  
  2322.  
  2323. For C comments: put in the ending comment delimiter " */"
  2324. <normal-f8:
  2325.    if (not is(curFile," ")) insertchar(curFile," ")
  2326.    else moveCursor(curFile,eChar)
  2327.    if (not is(curFile," "))    insertChar(curFile,"*") 
  2328.    else { swapChar(curFile,"*") moveCursor(curFile,eChar) }
  2329.    if (not is(curFile," "))    insertChar(curFile,"/")
  2330.    else { swapChar(curFile,"/") moveCursor(curFile,eChar) }
  2331.    updateDisplay
  2332. >
  2333.  
  2334.  
  2335. C programming: comment out current line with "/* " at cursor & " */" at EOL
  2336. <ctl-f8: 
  2337. runKey(normal-f7)
  2338. if (not is(curFile,eLine)) moveCursor(curFile,eLine)
  2339. runKey(normal-f8)
  2340. moveCursor(curFile,sLine) moveCursor(curFile,downLine)
  2341. >
  2342.  
  2343.  
  2344. Un-Set up my C environment
  2345. <shft-F8:
  2346. putmsg("UnSetting from C mode...")
  2347. if (getFlag(curFile,autoBackup)) flipFlag(curFile,autoBackup)
  2348. if (not getFlag(curFile,wordWrap)) flipFlag(curFile,wordWrap)
  2349. equateNum(pageLines,66)
  2350. setLocal(curFile,pageLines,pageLines)
  2351. setLocal(curFile,tabTable,1)  .. assumes WS std desired
  2352. equateNum(tabTable,1)
  2353. putmsg("C mode now unset") >
  2354.  
  2355. ----------------------------------------------------------------------------
  2356.  
  2357.                                  Borrowed
  2358.  
  2359.  
  2360. Other  than  command  key/n#/buf#  reassignments,  reformatting,  and   minor
  2361. changes, the following were copied from the standard UEdit Config! file
  2362.  
  2363. :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  2364.  
  2365. Speak a marked block.  Say command & libraries must be available.
  2366. <shftCtl-]:
  2367. if (gtLoc(curFile,eHilite,sHilite)) {
  2368.    equateLoc(curFile,locA,atCursor)
  2369.    equateLoc(curFile,sInvert,sHilite)
  2370.    equateLoc(curFile,atCursor,sHilite)
  2371.    while (gtLoc(curFile,eHilite,sInvert)) {
  2372.       if (not is(curFile,eLine)) moveCursor(curFile,eLine)
  2373.          moveCursor(curFile,eChar)
  2374.          if (gtLoc(curFile,atCursor,eHilite))
  2375.             equateLoc(curFile,eInvert,eHilite)
  2376.          else equateLoc(curFile,eInvert,atCursor)
  2377.          if (gtLoc(curFile,eInvert,sInvert)) {
  2378.             freeBuf(buf99)
  2379.             insertRgn(buf99,sFile,curFile,invert)
  2380.             speak(buf99) }
  2381.          equateLoc(curFile,sInvert,atCursor) }
  2382.       equateLoc(curFile,atCursor,locA) } 
  2383. else { putMsg("No block!") returnFalse } 
  2384. returnTrue>
  2385.  
  2386. ----------------------------------------------------------------------------
  2387.  
  2388.                                 Arithmetic
  2389.  
  2390. Set running total to 0
  2391. <alt-0: equateNum(n90,0) putmsg("Total=0") returnTrue >
  2392.  
  2393. Type running total into text at cursor
  2394. <alt-\:
  2395. freeBuf(buf99) div(n97,n90,100)
  2396. if (gtNum(0,n90)) if (eqNum(n97,0)) insertChar(buf99,"-")
  2397. toWord(buf99,n97) insertChar(buf99,".")
  2398. if (gtNum(0,n90)) mul(n97,n90,-1) else equateNum(n97,n90)
  2399. mod(n97,n97,100) if (gtNum(10,n97)) insertChar(buf99,"0")
  2400. toWord(buf99,n97) insertRgn(curFile,atCursor,buf99,all)
  2401. insertRgn(buf99,sFile,"Total: ",all) putMsg(buf99) 
  2402. returnTrue
  2403. >
  2404.  
  2405. Add next word (if a number) to running total & display total
  2406. <alt-=:
  2407. moveCursor(curFile,eWord) moveCursor(curFile,sWord)
  2408. runKey(virtual-=)
  2409. >
  2410.  
  2411. <virtual-=:
  2412. toNumber(n99,curFile) moveCursor(curFile,eWord)
  2413. if (is(curFile,".")) {
  2414.    moveCursor(curFile,eChar) if (not is(curFile,digit)) goto label(1)
  2415.    toNumber(n98,curFile)    moveCursor(curFile,eChar)
  2416.    if (not is(curFile,digit)) { mul(n98,n98,10) moveCursor(curFile,sChar) }
  2417.    moveCursor(curFile,eWord) } 
  2418. else { label(1) equateNum(n98,0) }
  2419. mul(n99,n99,100) if (gtNum(0,n99)) mul(n97,n98,-1) else equateNum(n97,n98)
  2420. add(n99,n99,n97) add(n90,n90,n99) freeBuf(buf99) div(n97,n90,100)
  2421. if (gtNum(0,n90)) if (eqNum(n97,0)) insertChar(buf99,"-")
  2422. toWord(buf99,n97) insertChar(buf99,".") mod(n97,n90,100)
  2423. if (gtNum(0,n90)) mul(n97,-1,n97) if (gtNum(10,n97)) insertChar(buf99,"0")
  2424. toWord(buf99,n97) insertRgn(buf99,sFile,"Running total: ",all)
  2425. putMsg(buf99) returnTrue>
  2426.  
  2427. Subtract next word (if a number) from running total & display total
  2428. <alt--:
  2429. moveCursor(curFile,eWord) moveCursor(curFile,sWord)
  2430. toNumber(n99,curFile) moveCursor(curFile,eWord)
  2431. if (is(curFile,".")) {
  2432.    moveCursor(curFile,eChar) 
  2433.    if (not is(curFile,digit)) goto label(1)
  2434.    toNumber(n98,curFile)
  2435.    moveCursor(curFile,eChar)
  2436.    if (not is(curFile,digit)) { mul(n98,n98,10) moveCursor(curFile,sChar) }
  2437.    moveCursor(curFile,eWord) } 
  2438. else { label(1) equateNum(n98,0) }
  2439. mul(n99,n99,100) if (gtNum(0,n99)) mul(n97,n98,-1) else equateNum(n97,n98)
  2440. add(n99,n99,n97) sub(n90,n90,n99) freeBuf(buf99) div(n97,n90,100)
  2441. if (gtNum(0,n90)) if (eqNum(n97,0)) insertChar(buf99,"-")
  2442. if (gtNum(0,n90)) insertChar(buf99,"-") toWord(buf99,n97)
  2443. insertChar(buf99,".") mod(n97,n90,100) if (gtNum(0,n97)) mul(n97,n97,-1)
  2444. if (gtNum(10,n97)) insertChar(buf99,"0") toWord(buf99,n97)
  2445. insertRgn(buf99,sFile,"Running total: ",all) putMsg(buf99) returnTrue>
  2446.  
  2447. ----------------------------------------------------------------------------
  2448.  
  2449.                                Index Stuff
  2450.  
  2451. Click or drag mouse, put word/phrase into index in buf80.  (ctl-w to see.)
  2452. <shftCtl-buttonDown:
  2453. equateLoc(curfile,atCursor,mouseLoc) moveCursor(curFile,eWord)
  2454. equateLoc(curFile,eInvert,atCursor) moveCursor(curFile,sWord)
  2455. equateLoc(curFile,sInvert,atCursor) refreshDisplay > 
  2456.  
  2457. ((See shftCtl-buttonDown and Alt-b))
  2458. <shftCtl-buttonUp:
  2459. equateLoc(curFile,atCursor,mouseLoc) moveCursor(curFile,eWord)
  2460. equateLoc(curFile,eInvert,atCursor)
  2461. if (geLoc(curFile,sInvert,eInvert)) returnFalse
  2462. moveCursor(curFile,sInvert)
  2463. if (is(curFile,upperCase)) equateNum(n0,1) else equateNum(n0,0)
  2464. toLower(curFile) copyChar(curFile,n99)
  2465. if (eqNum(n0,1)) toUpper(curFile)
  2466. if (isEmpty(buf80)) insertChar(buf80,eLine)
  2467. moveCursor(buf80,sFile) equateLoc(buf80,sPage,atCursor)
  2468. label(1)
  2469. if (is(buf80,upperCase)) equateNum(n0,1) else equateNum(n0,0)
  2470. toLower(buf80) copyChar(buf80,n98)
  2471. if (eqNum(n0,1)) toUpper(buf80)
  2472. if (gtNum(n99,n98)) { moveCursor(buf80,downLine)
  2473.     if (not is(buf80,eFile)) goto label(1) }
  2474. insertRgn(buf80,atCursor,curFile,invert) insertChar(buf80,eLine)
  2475. >
  2476.  
  2477.  
  2478. Scan list in buf80, create index.  ((See shftCtl-buttonDown & buttonUp.))
  2479. <alt-b:
  2480. if(not askYesNo("Build index? (Swap buffer wiped!)")) returnFalse
  2481. if (isEmpty(buf80)) returnFalse 
  2482. runKey(shftAltCtl-j) freeBuf(buf99)
  2483. label(1)
  2484. moveCursor(buf80,sFile) while (is(buf80,whiteSpace)) clearChar(buf80)
  2485. if (is(buf80,eFile)) {
  2486.    swapBuf(buf99,buf80) freeBuf(buf99) setFileName(buf80,"Index")
  2487.    equateLoc(buf80,sPage,sFile) equateLoc(buf80,atCursor,sFile)
  2488.    putMsg("Alt-F1 or R-F1 for Index") returnTrue }
  2489. freeBuf(buf97) insertRgn(buf97,sFile,buf80,line)
  2490. clearRgn(buf80,line) freeBuf(buf98) insertRgn(buf98,sFile,buf97,all) 
  2491. insertRgn(buf98,sFile,"Indexing: ",all) putMsg(buf98)
  2492. moveCursor(buf99,eFile) insertRgn(buf99,eFile,buf97,all)
  2493. insertRgn(buf99,eFile,"  ",all) insertChar(buf99,eLine)
  2494. moveCursor(buf99,sChar) equateNum(n98,0) moveCursor(curFile,sFile)
  2495. label(2)
  2496. setSearch(buf97)
  2497. while (search(curFile,sInvert,eInvert,1)) {
  2498.     moveCursor(curFile,sChar)
  2499.     if (is(curFile,alpha)) {
  2500.         label(3)
  2501.         moveCursor(curFile,eInvert)
  2502.         goto label(2) }
  2503.     if (is(curFile,digit)) goto label(3)
  2504.     moveCursor(curFile,eInvert)
  2505. ..    if (is(curFile,alpha)) goto label(2)
  2506. ..    if (is(curFile,digit)) goto label(2)
  2507.     locToLine(curFile,n99,atCursor) div(n99,n99,pageLines) incNum(n99)
  2508.     if (not eqNum(n99,n98)) {
  2509.         if (not eqNum(n98,0)) insertChar(buf99,",")
  2510.         toWord(buf99,n99) equateNum(n98,n99) } }
  2511. goto label(1) >
  2512.  
  2513. ********
  2514. End of config file
  2515.