home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d7xx / d770 / uedit.lha / Uedit / Ustar.LZH / UstarConfig!A < prev    next >
Text File  |  1992-03-04  |  65KB  |  1,989 lines
  1.  
  2.                            System/Miscellaneous
  3.  
  4.                              Help key control
  5.  
  6. General Help: all Ustar key commands, primitive mode, #s, buffers
  7. <normal-help:
  8. equateNum(n99,curFile)
  9. if (not eqNum(n99,79)) {
  10.    if (not isEmpty(buf79)) { editBuf(buf79) returnTrue }
  11.    insertChar(buf79," ") moveCursor(buf79,sChar) clearChar(buf79) ..a fix
  12.    if (not insertFile(buf79,sFile,"UstarHelp!")) {
  13.       if (not insertFile(buf79,sFile,"S:UstarHelp!")) 
  14.          { putMsg("UstarHelp! not found") freeBuf(buf79) returnFalse } }
  15.    editBuf(buf79) flipFlag(buf79,readOnly) flipFlag(buf79,changed) } 
  16. else { editBuf(buf[n82]) freeBuf(buf79) }>
  17.  
  18.  
  19. Also used as a "no-op" for info-only menu selections
  20. Occasionally, the display isn't fully updated; this refreshes it manually
  21. <ctl-help:  refreshDisplay >
  22.  
  23. Get ASCII help; no discard on toggle (not very big)
  24. Get/toggle ASCII table; entire table fits on screen if in interlace mode.
  25. <shftCtl-help:
  26. equateNum(n99,curFile)
  27. if (not eqNum(n99,78)) {
  28.    if (not isEmpty(buf78)) editBuf(buf78)
  29.    else { 
  30.       insertChar(buf78," ") moveCursor(buf78,sChar) clearChar(buf78) ..a fix
  31.       if (not insertFile(buf78,sFile,"ASCII")) {
  32.          if (not insertFile(buf78,sFile,"S:ASCII")) 
  33.             { putMsg("ASCII not found") freeBuf(buf78) returnFalse } } 
  34.       editBuf(buf78) flipFlag(buf78,readOnly) flipFlag(buf78,changed) } }
  35. else editBuf(buf[n82])>
  36.  
  37.  
  38. Get the UstarTutor file to help user learn Ustar editing actions
  39. <alt-u:
  40.    loadFile("UstarTutor") if (isEmpty(curFile)) {
  41.      equateNum(n99,curFile) editBuf(buf[n82]) freeBuf(buf[n99])
  42.      loadFile("s:UstarTutor") if (isEmpty(curFile)) {
  43.         equateNum(n99,curFile) editBuf(buf[n82]) freeBuf(buf[n99])
  44.         putMsg("UstarTutor not found, or no buffers.")
  45.         beepDisplay returnFalse } }
  46.    equateNum(n82,curFile)
  47. >
  48.  
  49.  
  50. Get the QuickRef file for reference to summary of Uedit command language
  51. <alt-q:
  52.    loadFile("UeRef") if (isEmpty(curFile)) {
  53.      equateNum(n99,curFile) editBuf(buf[n82]) freeBuf(buf[n99]) 
  54.      loadFile("s:UeRef") if (isEmpty(curFile)) {
  55.         equateNum(n99,curFile) editBuf(buf[n82]) freeBuf(buf[n99])
  56.         putMsg("UeRef not found, or no buffers.")
  57.         beepDisplay returnFalse } }
  58.    equateNum(n82,curFile)
  59. >
  60.  
  61.  
  62.  
  63.                               Display / Windows
  64.  
  65. Toggle to tiny window from keyboard or menu (same as clicking title window)
  66. <rAmiga-help: toggle(toTiny)>
  67.  
  68. Get buffer to edit or show, via either number or name. Returns # in n99.
  69. <virtual-b:
  70. equateNum(n99,curFile)  .. save current file #
  71. ..freeBuf(buf74) 
  72. moveCursor(buf74,sFile) equateLoc(buf54,sInvert,eInvert)
  73. inputString(buf74)
  74. if (not isEmpty(buf74)) {  .. get buffer ID
  75.    moveCursor(buf74,sFile)
  76.    if (is(buf74,decimalNum)) toNumber(n99,buf74)  .. spec'd via #, get it
  77.    else {                       .. specified via name, figure out number
  78.       getMaxFiles(n97) decNum(n97)
  79.       freeBuf(buf98)
  80.       if (getFlag(buf98,searchCaps)) flipFlag(buf98,searchCaps)
  81.       setSearch(buf74)
  82.       do (n98,0,n97) {
  83.          getFileName(buf98,buf[n98])
  84.          moveCursor(buf98,sFile) insertChar(buf98," ")
  85.          moveCursor(buf98,sFile)
  86.          if (search(buf98,sInvert,eInvert,1)) {
  87.             equateNum(n99,n98) goto label(1) } }    
  88.       label(1)
  89.    }
  90. }>
  91.  
  92.  
  93. Open a split window, optionally specifying the buffer and size
  94. <alt-v:
  95. putMsg("Enter buffer # or name to show in split window, none for current:")
  96. runKey(virtual-b)  .. get buf name/#
  97. freeBuf(buf97) insertRgn(buf97,sFile,
  98. "Enter size in screen lines of window split (default is ",all)
  99. toWord(buf97,splitSize) insertRgn(buf97,atCursor,"; 0 closes):",all)
  100. putMsg(buf97)
  101. if (not inputNum(n98)) equateNum(n98,splitSize)
  102. putMsg(" ")
  103. if (not splitWindow(buf[n99],n98)) { 
  104.    if (not eqNum(n98,0)) {
  105.       putMsg("Can't make window - probably not enough display space!")
  106.       returnFalse 
  107.    }
  108. }
  109. equateNum(n99,curFile) getMaxFiles(n98)
  110. if (not geNum(n99,n98)) equateNum(n82,curFile)
  111. >
  112.  
  113.  
  114. Split Kwik - Klone a split window in current buffer, at default split size
  115. <alt-k:
  116. if (not splitWindow(curFile,splitSize)) {
  117.    putMsg("Can't make window - probably not enough display space!")
  118.    returnFalse }
  119. equateNum(n99,curFile) getMaxFiles(n98)
  120. if (not geNum(n99,n98)) equateNum(n82,curFile)
  121. >
  122.  
  123.  
  124. Eliminate active split window from the screen (buffer contents not touched)
  125. <alt-y:
  126. if (not splitWindow(curFile,0)) { 
  127.    putMsg("No split windows to close!") returnFalse }
  128. equateNum(n99,curFile) getMaxFiles(n98)
  129. if (not geNum(n99,n98)) equateNum(n82,curFile)
  130. >
  131.  
  132. Make next split window the currently active one (same as clicking in it)
  133. <alt-n: toggle(windowSplit) 
  134. equateNum(n99,curFile) getMaxFiles(n98)
  135. if (not geNum(n99,n98)) equateNum(n82,curFile)
  136. >
  137.  
  138. Set the default size for split windows, in screen lines
  139. <alt-z:
  140. freeBuf(buf99) insertRgn(buf99,sFile,
  141. "Enter default size for split windows, in screen lines (default is ",all)
  142. toWord(buf99,splitSize) insertRgn(buf99,atCursor,"):",all)
  143. putMsg(buf99)
  144. if (inputNum(n99)) if (gtNum(n99,1)) equateNum(splitSize,n99)
  145. >
  146.  
  147. 2.3c: Make current split-window one line bigger
  148. <lAmiga-=: 
  149. equateNum(n98,curFile)
  150. getSplitLines(n96,n97) sub(n97,n97,n96) incNum(n97)  ..get cur size & increase
  151. splitWindow(curFile,0)
  152. if (not splitWindow(buf[n98],n97)) {
  153.    decNum(n97)     .. decrement it back
  154.    splitWindow(buf[n98],n97)
  155.    returnFalse
  156. } >
  157.  
  158. 2.3c: Make current split-window one line smaller 
  159. <lAmiga--: 
  160. equateNum(n98,curFile)
  161. getSplitLines(n96,n97) decNum(n97) sub(n97,n97,n96) .. cur size - 1
  162. if (gtNum(2,n97)) returnFalse
  163. splitWindow(curFile,0)
  164. splitWindow(buf[n98],n97)
  165. >
  166.  
  167.  
  168.                               Gadget control
  169.  
  170.  
  171. Safe Quit: Exits Ustar safely, asking if you want to save any changed files
  172. <normal-closeBox: runKey(shftCtl-x) >
  173. DANGEROUS QUIT!!! - quits IMMEDIATELY! - CHANGES NOT ALREADY SAVED ARE LOST!
  174. <shftAltCtl-closeBox: beepDisplay beepDisplay beepDisplay quit(0) >
  175.  
  176. Next buffer
  177. <normal-gadget1: runKey(normal-f1) >
  178.  
  179. Previous buffer
  180. <normal-gadget2: runKey(shft-f1) >
  181.  
  182. Scroll down - fast
  183. <normal-gadget3: while (mouseDown) { vScroll(downLine) updateDisplay } 
  184. if (not onScreen(atCursor)) { 
  185.    equateLoc(curFile,atCursor,sPage) refreshDisplay }>
  186.  
  187. Scroll up - fast
  188. <normal-gadget4: while (mouseDown) { vScroll(upLine)   updateDisplay  }  
  189. if (not onScreen(atCursor)) { equateLoc(curFile,atCursor,ePage) 
  190.    moveCursor(curFile,upLine) refreshDisplay }>
  191.  
  192.  
  193.                             Space bar control
  194.  
  195.  
  196. Process space bar to work properly.  V2.3, eliminated sLine/File checking. 
  197. Space bar; insert mode inserts a space; overstrike replaces char. with space
  198. <normal-space: 
  199. if (eqNum(n84,0)) {
  200.    if (getFlag(curFile,overStrike)) {
  201.       if (is(curFile,eFile)) insertChar(curFile," ")
  202.       if (is(curFile,eLine)) insertChar(curFile," ") 
  203.       else { swapChar(curFile," ") moveCursor(curFile,eChar) } }
  204.    else insertChar(curFile," ")
  205. }
  206. else { equateNum(n84,0) putmsg(" ") }
  207. >
  208.  
  209. Was able to eliminate sFile checking from this command.
  210. Insert a space (useful in OverStrike mode)
  211. <ctl-space: if (eqnum(n84,0)) { 
  212.    insertChar(curFile," ") moveCursor(curFile,sChar) }
  213. else { equateNum(n84,0) putMsg(" ") } 
  214. returnTrue>
  215.  
  216.  
  217. Move cursor one character to the right, like right arrow does
  218. <shft-space: moveCursor(curFile,eChar) >
  219.  
  220.  
  221.  
  222.                             Return Key control
  223.  
  224.  
  225. Process return key to work properly. Removed sFile checking v2.3a.
  226. To beginning of next line.  Insert mode inserts lines; overstrike doesn't.
  227. <normal-return:
  228. if (getFlag(curFile,overStrike)) {
  229.    if (not is(curFile,eLine)) moveCursor(curFile,eLine)
  230.    if (is(curFile,eFile)) insertChar(curFile,eLine)
  231.    else moveCursor(curFile,eChar) }
  232. else { 
  233.    insertChar(curFile,eLine)
  234.    if (getFlag(curFile,autoIndent)) runKey(shft-return) }
  235. >
  236.  
  237. Find the line the cursor is on and make that the middle line of the screen
  238. <ctl-return: vScroll(atCursor) >
  239.  
  240. Uses n99
  241. Match previous line's indentation
  242. <shft-return: 
  243. if (not is(curFile,sLine)) moveCursor(curFile,sLine)
  244. if (is(curFile,sFile)) returnFalse
  245. moveCursor(curFile,upLine)
  246. while (nothing) {            .. find first printable char on prev line, or eol
  247.    if (not is(curFile,space)) if (not is(curFile,9)) goto label(1)
  248.    moveCursor(curFile,eChar) }                .. ^- checks for Tab char too
  249. label(1)
  250. locToCol(curFile,n99,atCursor)     .. save column
  251.  
  252. moveCursor(curFile,downLine)
  253. if (not is(curFile,sLine)) moveCursor(curFile,sLine)
  254. while (nothing) {                  .. clear leading space from this line
  255.    if (not is(curFile,space)) if (not is(curFile,9)) goto label(2)
  256.    clearChar(curFile) }
  257. label(2)
  258. decNum(n99)
  259. while (decNum(n99)) insertChar(curFile," ")  .. and indent it to match
  260. >
  261.  
  262.  
  263.                                 F1 - files
  264.  
  265.  
  266. Next buffer
  267. <normal-f1: 
  268. equateNum(n99,curFile)  
  269. getMaxFiles(n98)
  270. if (geNum(n99,n98)) {
  271.    editBuf(buf[n82])
  272. }
  273. else {
  274.    toggle(curFile) 
  275.    equateNum(n82,curFile)
  276. }> 
  277.  
  278. Previous buffer
  279. <shft-f1: 
  280. equateNum(n99,curFile) 
  281. getMaxFiles(n98) decNum(n98)
  282. while (nothing) {
  283.    if (gtNum(n99,n98)) equateNum(n99,n82)  .. if in global buf, back to ebuf
  284.    decNum(n99)
  285.    if (gtNum(0,n99)) equateNum(n99,n98)
  286.       if (not isEmpty(buf[n99])) {
  287.          editBuf(buf[n99]) equateNum(n82,curFile) returnTrue } } >
  288.  
  289. View all non-empty global (internal use) buffers one by one
  290. <ctl-f1:  equateNum(n97,curFile) getMaxFiles(n96)
  291. do (n99,n96,99) if (not isEmpty(buf[n99])) {
  292.    editBuf(buf[n99]) vScroll(sFile)
  293.    putMsg("Buffer view: F1=Next, F2=Edit, F3=Cancel")
  294.    getKey(n98)
  295.    if (eqNum(n98,normal-f2)) { putMsg(" ") returnTrue }
  296.    if (eqNum(n98,normal-f3)) { editBuf(buf[n97]) putMsg(" ") returnTrue } 
  297. } 
  298. putMsg(" ")
  299. >
  300.  
  301. Swap current buffer with swap buffer (buffer 80)
  302. <alt-f1: swapBuf(curFile,buf80) 
  303. getMaxFiles(n98) equateNum(n99,curFile) 
  304. if (not geNum(n99,n98)) equateNum(n82,curFile)>
  305.  
  306. Edit specific buffer, specifying by name or #
  307. <altCtl-f1: putMsg("Edit buffer # or name:")
  308. runKey(virtual-b)  .. get buf name/#
  309. editBuf(buf[n99]) 
  310. getMaxFiles(n98) if (not geNum(n99,n98)) equateNum(n82,curFile) .. set as current
  311. >
  312.  
  313.  
  314. Execute AmigaDOS command and collect results
  315. <shftCtl-f1:
  316. putMsg("AmigaDOS command:")
  317. movecursor(buf75,eFile)
  318. inputString(buf75) if (isEmpty(buf75)) returnFalse
  319. freeBuf(buf82) if (not execute(buf82,buf75)) { 
  320.    putMsg("Error - AmigaDOS rejected command.") beepDisplay returnFalse }
  321. if (not isEmpty(buf82))
  322.    { putMsg("AmigaDOS result:") editBuf(buf82) }
  323. else
  324.    { putMsg("AmigaDOS returned no message.") 
  325.    editBuf(buf[n82]) freeBuf(buf82) }
  326. returnTrue>
  327.  
  328. Execute AmigaDOS command without getting anything back from DOS
  329. <shft-f5:
  330. putMsg("AmigaDOS command:")
  331. movecursor(buf75,eFile)
  332. inputString(buf75) if (isEmpty(buf75)) returnFalse
  333. if (not execute(" ",buf75)) { 
  334.    putMsg("DOS command error") beepDisplay returnFalse }
  335. returnTrue>
  336.  
  337.  
  338. DANGEROUS QUIT!!! - quits IMMEDIATELY! - CHANGES NOT ALREADY SAVED ARE LOST!
  339. <shftAltCtl-f1: beepDisplay beepDisplay beepDisplay quit(0) >
  340.  
  341. n96 # files,  n97 tot. size,  n99 loop cntr,  n95 maxfiles,  n98 temp
  342. Show all edit buffers that are in use, summarize info
  343. <shftAlt-f1: freeBuf(buf97) insertRgn(buf97,sFile,"Getting info...",all)
  344. freeBuf(buf99) 
  345. runKey(virtual-s)
  346. insertRgn(buf99,atCursor,"
  347.  
  348. #  Buffer Name                             Changed?  Size (Bytes)
  349.               ** Non-Empty Edit Buffers ** 
  350. ", all)
  351. getMaxFiles(n95) decNum(n95)
  352. equateNum(n97,0) equateNum(n96,0) 
  353. do(n99,0,n95) {
  354.    if (not isEmpty(buf[n99])) {
  355.       add(n96,n96,1) freeBuf(buf98)
  356.       toWord(buf97,n99) insertChar(buf97,",") putMsg(buf97)
  357.       getFileName(buf98,buf[n99]) moveCursor(buf98,sFile)
  358.       toWord(buf98,n99) insertChar(buf98," ") 
  359.       if (not geNum(n99,10)) insertChar(buf98," ")
  360.       moveCursor(buf98,sFile)
  361.       do (n98,1,45) {
  362.          if (is(buf98,eFile)) insertChar(buf98," ")
  363.          else moveCursor(buf98,eChar) }
  364.       if (getFlag(buf[n99],changed)) insertRgn(buf98,atCursor,"Yes     ",all) 
  365.       else insertRgn(buf98,atCursor," -      ",all)
  366.       FileSize(buf[n99],n98) toWord(buf98,n98) add(n97,n97,n98)
  367.       insertChar(buf98,eLine)
  368.       insertRgn(buf99,atCursor,buf98,all)
  369.    }
  370. }
  371. moveCursor(buf99,eFile) insertChar(buf99,eLine)
  372. toWord(buf99,n96) if(not geNum(n96,10)) insertChar(buf99," ")
  373. insertRgn(buf99,atCursor,
  374. "                 <-- Totals -->                    ",all)
  375. toWord(buf99,n97)
  376. if (not isEmpty(buf80)) insertRgn(buf99,atCursor,"
  377.      ** NOTE: The swap buffer (# 80) is not empty **",all)
  378. ..moveCursor(buf99,sFile) editBuf(buf99) vScroll(atCursor) 
  379. ..using the below instead of above JUST to get rid of stupid display flicker
  380. freeBuf(buf98) insertChar(buf98," ") moveCursor(buf98,sFile)
  381. insertRgn(buf98,eFile,buf99,all) freeBuf(buf99) editBuf(buf98) 
  382. putMsg("F1 resumes")
  383. >
  384.  
  385. Routine used by virtual-s to save a few bytes
  386. <virtual-space: if (gtNum(10,n99)) insertChar(buf99," ")
  387. insertChar(buf99," ")>
  388.  
  389.  
  390. Called by SA-F1 to show global flag status
  391. <virtual-s:
  392. insertRgn(buf99,atCursor,"
  393. MaxFiles    SPEAK:Alerts :Pitch   End-of-Line   Prim.mode.Esc GlobalB<User>LocB
  394. |  SplitSize      |:Msgs      |   |  EitherOr   |  Spooks     | Beep TrueTabs |
  395. |  |  IdleTime    | |:Speed   |   |  | WildCard |  | PrintSel | | AutoSave  | |
  396. |  |  |    Serial#| | |  :Mode|   |  | | CmdMult|  | | UseKeys| | | Icons   | |
  397. ",all)
  398. ..no show, obvious from display: 
  399. ..   busies, columnar, teachKeys, markGadgets, lace, cram, rowCol, learnMode
  400. ..used internally: searchCaps
  401.  
  402. getMaxFiles(n99) toWord(buf99,n99) runKey(virtual-space)
  403.  
  404. toWord(buf99,splitSize) equateNum(n99,splitSize) runKey(virtual-space)
  405.  
  406. toWord(buf99,idleTime) equateNum(n99,idleTime) runKey(virtual-space)
  407. if (gtNum(100,n99)) insertChar(buf99," ") 
  408. if (gtNum(1000,n99)) insertChar(buf99," ")
  409.  
  410. getSerialNum(n99) freeBuf(buf98) toWord(buf98,n99)
  411. fileSize(buf98,n98) do (n97,n98,6) insertChar(buf98," ")
  412. insertRgn(buf99,atCursor,buf98,all) moveCursor(buf99,eLine)
  413.  
  414. if (getFlag(curFile,speakAlerts)) insertChar(buf99,"Y") 
  415. else insertChar(buf99,"n")
  416. insertChar(buf99," ")
  417.  
  418. if (getFlag(curFile,speakMsgs)) insertChar(buf99,"Y") 
  419. else insertChar(buf99,"n")
  420. insertChar(buf99," ")
  421.  
  422. toWord(buf99,0) equateNum(n99,0) runKey(virtual-space)
  423. if (gtNum(100,n99)) insertChar(buf99," ")
  424.  
  425. toWord(buf99,0) insertRgn(buf99,atCursor,"   ",all)
  426.  
  427. toWord(buf99,0) equateNum(n99,0) runKey(virtual-space)
  428. if (gtNum(100,n99)) insertChar(buf99," ")
  429.  
  430. insertChar(buf99,eLine) moveCursor(buf99,sChar) copyChar(buf99,n99)
  431. clearChar(buf99) toWord(buf99,n99) runKey(virtual-space)
  432.  
  433. insertChar(buf99,eitherOr) insertChar(buf99," ")
  434.  
  435. insertChar(buf99,wildCard) insertChar(buf99," ")
  436.  
  437. toWord(buf99,cmdMultiplier) equateNum(n99,cmdMultiplier) runKey(virtual-space)
  438. if (gtNum(100,n99)) insertChar(buf99," ") 
  439. if (gtNum(1000,n99)) insertChar(buf99," ")
  440. insertChar(buf99," ") insertChar(buf99," ")
  441.  
  442. toWord(buf99,pmEsc) equateNum(n99,pmEsc) runKey(virtual-space)
  443.  
  444. if (getFlag(curFile,spooks)) insertChar(buf99,"Y") else insertChar(buf99,"n")
  445. insertChar(buf99," ")
  446.  
  447. toWord(buf99,prefPrint) insertChar(buf99," ")
  448.  
  449. if (getFlag(curFile,useKeys)) insertChar(buf99,"Y") else insertChar(buf99,"n")
  450. insertRgn(buf99,atCursor,"      ",all)
  451.  
  452. if (getFlag(curFile,userGlobalB)) insertChar(buf99,"Y")
  453. else insertChar(buf99,"n")
  454. insertChar(buf99," ")
  455.  
  456. if (getFlag(curFile,userGlobalA)) insertChar(buf99,"Y")
  457. else insertChar(buf99,"n")
  458. insertChar(buf99," ")
  459.  
  460. if (getFlag(curFile,userLocalA)) insertChar(buf99,"Y")
  461. else insertChar(buf99,"n")
  462. insertChar(buf99," ")
  463.  
  464. if (getFlag(curFile,icons)) insertChar(buf99,"Y") else insertChar(buf99,"n")
  465. insertRgn(buf99,atCursor,"       ",all)
  466.  
  467. if (getFlag(curFile,trueTabs)) insertChar(buf99,"Y") else insertChar(buf99,"n")
  468. insertChar(buf99," ")
  469.  
  470. if (getFlag(curFile,userLocalB)) insertChar(buf99,"Y")
  471. else insertChar(buf99,"n")
  472. ..insertChar(buf99," ")
  473. >
  474.  
  475.  
  476.                               F2 - favorites
  477.  
  478. Switch to next file that has its "Favorite" flag set, if any
  479. <normal-f3: toggle(favorite) 
  480. getMaxFiles(n98) equateNum(n99,curFile) 
  481. if (not geNum(n99,n98)) equateNum(n82,curFile) .. set as current
  482. >
  483.  
  484. Toggle the "Favorite" flag setting of current file on/off (for sets of files)
  485. <shft-f3: flipFlag(curFile,favorite) 
  486. if (getFlag(curFile,favorite)) putMsg("Fave") else putMsg("Norm")
  487. returnTrue>
  488.  
  489. Clear the "Favorite" flag of all files
  490. <alt-f3: putmsg("No Faves")
  491. do (n99,0,99) 
  492.    if (getFlag(buf[n99], favorite)) flipFlag(buf[n99], favorite)
  493. putMsg(" ") returnTrue >
  494.  
  495.  
  496.  
  497.                                  Colors/Screens
  498.  
  499. <defines:
  500. define(N_0 ,n0)
  501. define(N_1 ,n1)
  502. define(N_2 ,n2)
  503. define(N_3 ,n3)
  504. define(N_4 ,n4)
  505. define(N_5 ,n5)
  506. define(N_6 ,n6)
  507. define(N_7 ,n7)
  508. define(N_8 ,n8)
  509. define(N_9 ,n9)
  510. define(N_10 ,n10)
  511. define(N_11 ,n11)
  512. define(N_12 ,n12)
  513. define(N_13 ,n13)
  514. define(N_14 ,n14)
  515. define(N_15 ,n15)
  516. define(N_16 ,n16)
  517. define(N_17 ,n17)
  518. define(N_18 ,n18)
  519. define(n_19 ,n19)
  520.  
  521. define(B_0 ,buf50)
  522. define(B_1 ,buf51)
  523. define(B_2 ,buf52)
  524. define(B_3 ,buf53)
  525. define(B_4 ,buf54)
  526.  
  527. define(COLUMNAR_BUF ,buf37)
  528. define(DIR_NAMES    ,buf38)
  529. define(SWAP_BUF ,buf41)
  530. define(FILE_NAME    ,buf43)
  531. define(UNDO_BUF ,buf45)
  532. define(INVERT_BUF    ,buf46)
  533. define(HILITE_BUF    ,buf47)
  534. define(REPLACE_TXT ,buf48)
  535. define(SEARCH_STR    ,buf49)
  536. define(BUF_99    ,buf99)
  537.  
  538. define(BSTACK_99    ,buf99) .. note buf99 isn't really used
  539. define(NSTACK_99    ,n99)    .. note n99 isn't really used
  540.  
  541. define(Eat_MouseUp_Input    ,624)
  542. >
  543.  
  544. Set colors
  545. <alt-help:
  546.     inputKey(N_5)
  547.     while (nothing) {
  548.         gosub label(0)
  549.         putMsg("# of color (0-15) to change (ESC=quit):")
  550.         if (!inputNum(N_5)) {
  551.             refreshDisplay
  552.             putMsg("")
  553.             return
  554.         }
  555.         if (geNum(N_5,0) & geNum(15,N_5)) {
  556.             putMsg("Fg color value (0-3)?")
  557.             inputNum(N_7)
  558.             if (geNum(N_7,0) & geNum(3,N_7)) {
  559.                 putMsg("Bg color value (0-3)?")
  560.                 inputNum(N_6)
  561.                 if (geNum(N_6,0) & geNum(3,N_6)) {
  562.                     if (eqNum(N_6,N_7)) {
  563.                         putMsg("Fg == Bg is NOT ALLOWED")
  564.                         delay(10)
  565.                     } else {
  566.                         setColors(curFile,N_5,N_7,N_6)
  567.                         setColors(" ",N_5,N_7,N_6)   .. so new buf's inherit these
  568.                     }
  569.                     if (eqNum(N_5,8)) {
  570.                         toggle(toTiny)
  571.                         toggle(toTiny)
  572.                     }
  573.                     if (eqNum(N_5,10)) runKey(startup)
  574.                     updateDisplay
  575.                 }
  576.             }
  577.         }
  578.     }
  579.  
  580. label(0)  ..subroutine to demonstrate current color settings
  581.     equateNum(N_3,1)
  582.     equateNum(N_5,0)
  583.     do (N_4,2,21) {
  584.         text("",N_4,18,N_3,41)
  585.         if (gtNum(N_4,3) & gtNum(21,N_4) & !eqNum(N_4,12)) {
  586.             if (gtNum(N_5,9)) text(N_5,N_4,19,N_3,0)
  587.             else text(N_5,N_4,20,N_3,0)
  588.             text("< >  < >",N_4,49,N_3,0)
  589.             incNum(N_5)
  590.         }
  591.     }
  592.     equateNum(N_0,0)
  593.     do (N_4,4,20) {
  594.         if (!eqNum(N_4,12)) {
  595.             getColors(curFile,N_0,N_1,N_2)
  596.             text(N_1,N_4,50,N_3,0)
  597.             text(N_2,N_4,55,N_3,0)
  598.             incNum(N_0)
  599.         }
  600.     }
  601.     text("#       ((( For Files )))     Fg   Bg",3,20,N_3,0)
  602.     text("normal text",  4,23,0,0)
  603.     text("cursor",  5,23,1,0)
  604.     text("hilite",  6,23,2,0)
  605.     text("cursor + hilite",  7,23,3,0)
  606.     text("invert",  8,23,4,0)
  607.     text("invert+cursor",  9,23,5,0)
  608.     text("hilite+invert",  10,23,6,0)
  609.     text("cursor+hilite+invert",  11,23,7,0)
  610.     text("        ((( For Screen )))",12,20,N_3,0)
  611.     text("title bar",  13,23,8,0)
  612.     text("msg line",  14,23,9,0)
  613.     text("menus",  15,23,10,0)
  614.     text("tab ruler",  16,23,11,0)
  615.     text("requester",  17,23,12,0)
  616.     text("formfeed",  18,23,13,0)
  617.     text("spare1",  19,23,14,0)
  618.     text("spare2",  20,23,15,0)
  619. >
  620.  
  621. Change the RGB color register values
  622. <alt-esc:
  623.     define(Reg0 ,N_0)    ..NOTE: register n-vars must be contiguous (N_10-N_13)
  624.     define(Reg1 ,N_1)
  625.     define(Reg2 ,N_2)
  626.     define(Reg3 ,N_3)
  627.     define(KReg0 ,N_14)
  628.     define(KReg1 ,N_15)
  629.     define(KReg2 ,N_16)
  630.     define(KReg3 ,N_17)
  631.  
  632.     define(REGISTER ,N_6)
  633.     define(CURCOLOR ,N_7)
  634.  
  635.     define(REG_NUM ,N_10)
  636.  
  637.     define(OFFSET ,N_11)
  638.     define(ROW ,N_12)
  639.  
  640.     define(RGB_RED ,N_13)
  641.     define(RGB_GREEN ,N_4)
  642.     define(RGB_BLUE ,N_5)
  643.  
  644.     define(COLOR_1 ,2)
  645.     define(COLOR_2 ,1)
  646.  
  647.     define(XN_10 ,N_8)
  648.     define(XN_11 ,N_9)
  649.  
  650.     define(TUNE_COLOR,label(0))
  651.     define(COLORMSG ,label(1))
  652.     define(FINISHED ,label(2))
  653.  
  654.     getRGB(Reg0,Reg1,Reg2,Reg3)
  655.     getRGB(KReg0,KReg1,KReg2,KReg3)
  656.  
  657.     do (ROW,1,15) text("",ROW,15,COLOR_1,49)
  658.     text(">>>> Tune RBG Color Registers <<<<",2,23,COLOR_2,0)
  659.  
  660.     text("R:",5,18,COLOR_1,0)
  661.     text("G:",6,18,COLOR_1,0)
  662.     text("B:",7,18,COLOR_1,0)
  663.  
  664.     text("Test Test ",9,20,1,0)
  665.     text("Test Test ",9,-1,2,0)
  666.     text("Test Test ",9,-1,3,0)
  667.     text("Test Test ",9,-1,4,0)
  668.     text("      ARROW keys: new selection",11,20,COLOR_1,0)
  669.     text("SHIFT ARROW keys: inc/dec color value",12,20,COLOR_1,0)
  670.     text("     ESC/Q/CLICK: use new colors",13,20,COLOR_1,0)
  671.     text("   any other key: restore old colors",14,20,COLOR_1,0)
  672.  
  673.     equateNum(REGISTER,0)
  674.     equateNum(CURCOLOR,0)
  675.     while (inputKey(XN_10)) nothing
  676.     while (nothing) {
  677.         GOSUB COLORMSG
  678.         getKey(XN_10)
  679.         switch (XN_10) {
  680.             case(normal-buttonDown)
  681.             case(normal-esc)
  682.             case(normal-q) { GOTO FINISHED }
  683.             case(normal-upArrow)
  684.                 { decNum(CURCOLOR)
  685.                   if (gtNum(0,CURCOLOR)) equateNum(CURCOLOR,2) }
  686.             case(normal-downArrow)
  687.                 { incNum(CURCOLOR)
  688.                   if (gtNum(CURCOLOR,2)) equateNum(CURCOLOR,0) }
  689.             case(normal-leftArrow)
  690.                 { decNum(REGISTER)
  691.                   if (gtNum(0,REGISTER)) equateNum(REGISTER,3) }
  692.             case(normal-rightArrow)
  693.                 { incNum(REGISTER)
  694.                   if (gtNum(REGISTER,3)) equateNum(REGISTER,0) }
  695.  
  696.             case(shft-upArrow)
  697.                 { equateNum(XN_11,1) GOSUB TUNE_COLOR }
  698.             case(shft-downArrow)
  699.                 { equateNum(XN_11,-1) GOSUB TUNE_COLOR }
  700.             case(shft-leftArrow)
  701.                 { equateNum(XN_11,-1) GOSUB TUNE_COLOR }
  702.             case(shft-rightArrow)
  703.                 { equateNum(XN_11,1) GOSUB TUNE_COLOR }
  704.             default        { setRGB(KReg0,KReg1,KReg2,KReg3)
  705.                                       GOTO FINISHED }
  706.         }
  707.         while (inputKey(XN_10)) nothing
  708.     }
  709. FINISHED
  710.     putMsg(" ") putMsg("")
  711.     fullRefresh
  712.     return
  713.  
  714.  
  715. TUNE_COLOR ..SUBROUTINE to inc/dec a register color value
  716.  
  717.     equateNum(XN_10,n[REGISTER])
  718.     and(RGB_BLUE,XN_10,15) div(XN_10,XN_10,16)
  719.     and(RGB_GREEN,XN_10,15) div(XN_10,XN_10,16)
  720.     and(RGB_RED,XN_10,15)
  721.  
  722.     switch(CURCOLOR) {
  723.         case(0) { equateNum(XN_10,RGB_RED) }
  724.         case(1) { equateNum(XN_10,RGB_GREEN) }
  725.         case(2) { equateNum(XN_10,RGB_BLUE) }
  726.     }
  727.     add(XN_10,XN_10,XN_11)
  728.     if (gtNum(XN_10,15)) equateNum(XN_10,0)
  729.     else if (gtNum(0,XN_10)) equateNum(XN_10,15)
  730.  
  731.     switch(CURCOLOR) {
  732.         case(0) { equateNum(RGB_RED,XN_10) }
  733.         case(1) { equateNum(RGB_GREEN,XN_10) }
  734.         case(2) { equateNum(RGB_BLUE,XN_10) }
  735.     }
  736.  
  737.     equateNum(XN_10,RGB_RED)
  738.     mul(XN_10,XN_10,16)
  739.     or(XN_10,XN_10,RGB_GREEN)
  740.     mul(XN_10,XN_10,16)
  741.     or(XN_10,XN_10,RGB_BLUE)
  742.  
  743.     equateNum(n[REGISTER],XN_10)
  744.     return
  745.  
  746.  
  747. COLORMSG    ..SUBROUTINE to setRGB & display RGB color register contents
  748.     setRGB(Reg0,Reg1,Reg2,Reg3)
  749.  
  750.  
  751.     do (REG_NUM,0,3) {
  752.         equateNum(ROW,4)
  753.         mul(OFFSET,REG_NUM,10)
  754.         add(OFFSET,OFFSET,22)
  755.  
  756.         text("Reg ",ROW,OFFSET,COLOR_1,0)
  757.         text(REG_NUM,ROW,-1,COLOR_1,0)
  758.         text(":",ROW,-1,COLOR_1,0)
  759.         incNum(ROW)
  760.  
  761.         equateNum(XN_10,n[REG_NUM])
  762.         and(RGB_BLUE,XN_10,15) div(XN_10,XN_10,16)
  763.         and(RGB_GREEN,XN_10,15) div(XN_10,XN_10,16)
  764.         and(RGB_RED,XN_10,15)
  765.  
  766.         equateNum(XN_10,COLOR_1)
  767.         if (eqNum(CURCOLOR,0) & eqNum(REG_NUM,REGISTER)) equateNum(XN_10,COLOR_2)
  768.         text("  ",ROW,OFFSET,COLOR_1,0)
  769.         text(RGB_RED,ROW,OFFSET,XN_10,0)
  770.         incNum(ROW)
  771.         equateNum(XN_10,COLOR_1)
  772.         if (eqNum(CURCOLOR,1) & eqNum(REG_NUM,REGISTER)) equateNum(XN_10,COLOR_2)
  773.         text("  ",ROW,OFFSET,COLOR_1,0)
  774.         text(RGB_GREEN,ROW,OFFSET,XN_10,0)
  775.         incNum(ROW)
  776.         equateNum(XN_10,COLOR_1)
  777.         if (eqNum(CURCOLOR,2) & eqNum(REG_NUM,REGISTER)) equateNum(XN_10,COLOR_2)
  778.         text("  ",ROW,OFFSET,COLOR_1,0)
  779.         text(RGB_BLUE,ROW,OFFSET,XN_10,0)
  780.         incNum(ROW)
  781.     }
  782. >
  783.  
  784. <defines: >
  785.  
  786. Switch to/from interlace mode
  787. <shft-esc: flipFlag(curFile,lace)>
  788.  
  789.                                 TAB Stuff
  790.  
  791.  
  792. Tabs enter into document as Tab code (ASCII 9) when On, as spaces when Off
  793. <ctl-tab: flipFlag(curFile,trueTabs) 
  794. if (getFlag(curFile,trueTabs)) putMsg("Real Tabs")
  795. else putMsg("Tabs as Spaces") 
  796. refreshDisplay>
  797.  
  798.  
  799.    Tab Key
  800.  
  801. WS  tabs  are totally different than UE tabs.  WS has overstrike tabs: if you
  802. tab past the current end of text on a line, it will insert spaces up  to  the
  803. next  tab stop (as long as line length isn't exceeded, and not already on the
  804. last tab stop) and if this puts it at the end of a file, it  will  insert  an
  805. end  of line.  This is as opposed to UE tabs, which are always in insert mode
  806. and will jump to the next line if you tab past existing text.  
  807.  
  808. n98 is used for two things: eol/eof switch in overstrike, and 
  809.     as a "spaces have been inserted" flag 
  810. n97 is used for determining cursor column 
  811. n99 holds current local line length
  812.  
  813. Tab to next tab stop; insert mode inserts, overstrike transparent to text
  814. <normal-tab: 
  815.  
  816. .. if truetabs on, no processing at all, just put in tab char
  817. if (getFlag(curFile,trueTabs)) { insertChar(curFile,9) return }
  818.  
  819. .. set up transition flag: n98 > 5 means on end of line/file, else is on char
  820. equateNum(n98,0)
  821. if (is(curFile,eLine)) equateNum(n98,5)
  822. if (is(curFile,eFile)) equateNum(n98,10)
  823.  
  824. getLocal(curFile,n99,lineLength)
  825.  
  826. .. main tab code
  827. if (getFlag(curFile,overStrike)) {
  828.    while (nothing) {
  829.       label(1)
  830.       if (eqNum(n98,0)) moveCursor(curFile,eChar)
  831.       else insertChar(curFile," ") 
  832.       if (is(curFile,tabColumn)) return  .. usual exit
  833.       locToCol(curFile,n97,atCursor)
  834.       if (geNum(n97,n99)) goto label(2)  .. greater than line length
  835.       if (eqNum(n98,0)) {           .. see if have run into eol or eof, flag
  836.          if (is(curFile,eLine)) equateNum(n98,5)
  837.          if (is(curFile,eFile)) equateNum(n98,10)
  838.          if (gtNum(n98,0)) equateLoc(curFile,locA,atCursor)
  839.       }
  840.    }
  841. }
  842. else {
  843.    equateNum(n98,5) equateLoc(curFile,locA,atCursor) 
  844.    while (insertChar(curFile," ")) {
  845.       if (is(curFile,tabColumn)) return
  846.       locToCol(curFile,n97,atCursor)
  847.       if (geNum(n97,n99)) goto label(2)
  848.    } 
  849. }
  850. .. end of line/file exception handling
  851. label(2)                      
  852. while (nothing) {  .. clear inserted spaces/get to previous tab col.
  853.    moveCursor(curFile,sChar)
  854.    if (gtNum(n98,0)) if (geLoc(curFile,atCursor,locA)) clearChar(curFile)
  855.    if (is(curFile,tabColumn)) goto label(3)
  856. }
  857. label(3)
  858. if (eqNum(n98,10)) { 
  859.    moveCursor(curFile,eFile) insertChar(curFile,eLine) return }
  860. if (getFlag(curFile,overStrike)) {
  861.    if (not is(curFile,sLine)) moveCursor(curFile,sLine) 
  862.    moveCursor(curFile,downLine) }
  863. else insertChar(curFile,eLine)
  864. >
  865.  
  866.  
  867.  
  868. Transparent Tab backward
  869. <alt-tab: moveCursor(curFile,sTab)>
  870.  
  871. Transparent Tab forward
  872. <shft-tab: moveCursor(curFile,eTab)>
  873.  
  874. Back-Tab - destructive Tab backward
  875. <altCtl-tab:
  876. if (not eqLoc(curFile,locB,atCursor)) freeBuf(buf86)
  877. equateLoc(curFile,locB,atCursor) 
  878. moveCursor(curFile,sTab)
  879. equateLoc(curFile,locA,atCursor) insertRgn(buf86,sFile,curFile,loc)
  880. clearRgn(curFile,loc) 
  881. if (not is(curFile,sFile)) returnTrue else returnFalse>
  882.  
  883. Convert tabs to spaces in entire current doc, using current tab stops
  884. <shftCtl-tab: tabsToSpaces(curFile)>
  885.  
  886. Convert spaces to tabs, using current tab stops (is slow)
  887. <shftAlt-tab: spacesToTabs(curFile)>
  888.  
  889. Tell how to see hard tabs
  890. <virtual-tab: putMsg("Use the Block Columnar mode to view Hard Tabs")>
  891.  
  892.  
  893.                              Backspace stuff
  894.  
  895. Delete word left
  896. <ctl-bs:
  897. if (not eqLoc(curFile,locB,atCursor)) freeBuf(buf86)
  898. equateLoc(curFile,locB,atCursor) moveCursor(curFile,sWord)
  899. equateLoc(curFile,locA,atCursor) insertRgn(buf86,sFile,curFile,loc)
  900. clearRgn(curFile,loc) 
  901. if (is(curFile,sFile)) returnFalse else returnTrue >
  902.  
  903. Transparent backspace, like left arrow
  904. <shft-bs: moveCursor(curFile,sChar)>
  905.  
  906.  
  907.                               Command Stuff
  908.                     
  909.  
  910.  
  911. Compile next single command
  912. <normal-f6: compile(curFile) >
  913.  
  914. Switch to/from buffer 81 to write temporary commands
  915. <shft-f6: equateNum(n99,curFile)
  916. if (not eqNum(n99,81)) {
  917.    editBuf(buf81) refreshDisplay
  918.    putMsg("Type command, e.g. <alt-m: toggle(color) > ; F6 to compile") }
  919. else editBuf(buf[n82])
  920. returnTrue >
  921.  
  922. Save current configuration to disk Data! file
  923. <alt-f6: if (askYesNo("Save Data File?")) {
  924.    putMsg("Filename (none for Data! or last saved):")
  925.    freeBuf(buf99) inputString(buf99) 
  926.    if (not saveConfig(buf99)) {
  927.       putMsg("ERROR - Couldn't save Data! file.") beepDisplay returnFalse
  928.    } } >
  929.  
  930. Reconfigure UEdit - load new Data! file from disk
  931. <ctl-f6: if (askYesNo("Load Data File?")) {
  932.    putMsg("Filename (none for Data! or last saved):")
  933.    freeBuf(buf99) inputString(buf99) 
  934.    if (not loadConfig(buf99)) {
  935.       putMsg("ERROR - Couldn't get Data! file.") beepDisplay returnFalse 
  936.    } } >
  937.  
  938. Reload default values listed at the top of UstarConfig!
  939. <altCtl-f6: putMsg("Reloading defaults") moveCursor(curFile,sFile) 
  940.    if (not compileDefaults(curFile)) {
  941.       putMsg("Couldn't reload defaults for some reason")
  942.       beepDisplay returnFalse
  943.    }
  944.    else putmsg(" ")
  945. >
  946.  
  947.  
  948.                                Learn Stuff
  949.                          
  950. See section below on ctl-1 and ctl-2 for further Learn commands
  951.  
  952. Save learn-sequence to disk
  953. <alt-1: putMsg("Save Learn as what #?:") if (inputNum(n99)) 
  954.    if (not saveLearn(n99)) { 
  955.       putMsg("ERROR - Couldn't save Learn file.") beepDisplay returnFalse 
  956.    } >
  957.  
  958. Load a learn-sequence from disk, then run it
  959. <alt-2: putMsg("Learn # to load & run:")
  960.    if (inputNum(n99)) {
  961.       if (not loadLearn(n99)) { 
  962.          putMsg("ERROR - Couldn't load Learn file.") beepDisplay returnFalse }
  963.       else runLearn 
  964.    } >
  965.  
  966.                               Find/Replace
  967.  
  968. Search forward/backward, all/one, ask/no ask, ignore case,  n#  via options
  969. <virtual-kp6:  
  970. putMsg("..searching..")
  971. setSearch(buf89)
  972. mod(n97,n81,13) if (not eqNum(n97,0)) {
  973.    mod(n97,n81,7) if (eqNum(n97,0)) {
  974.       mod(n97,n81,2) if (eqNum(n97,0)) 
  975.          moveCursor(curFile,eFile) else moveCursor(curFile,sFile) 
  976.       mod(n97,n81,11) if (eqNum(n97,0)) equateNum(n83,99999999) } }
  977. mod(n97,n81,7) if (eqNum(n97,0)) {
  978.    mod(n97,n81,13) if (not eqNum(n97,0)) mul(n81,n81,13) }
  979. label(3)
  980. mod(n97,n81,2) if (not eqNum(n97,0)) {
  981.    if (eqLoc(curFile,atCursor,eInvert)) moveCursor(curFile,sChar)
  982.    if (search(curFile,sInvert,eInvert,1)) goto label(1)
  983.    goto label(4) }
  984. else {
  985.    if (search(curFile,sInvert,eInvert,1)) goto label(1) 
  986.    goto label(4) }
  987. label(4) 
  988. freeBuf(buf99) insertRgn(buf99,sFile,"Find failed: ",all)
  989. insertRgn(buf99,eFile,buf89,all) putMsg(buf99)
  990. equateLoc(curFile,sInvert,eInvert) returnFalse
  991. label(1)
  992.  
  993. mod(n97,n81,11) if (eqNum(n97,0)) {
  994.    mod(n97,n81,5) if (not eqNum(n97,0)) { 
  995.       if (not onScreen(atCursor)) vScroll(atCursor) refreshDisplay  
  996.       if (not askYesNo("Replace? (Amiga-ESC aborts)")) goto label(2) }
  997.    clearRgn(curFile,invert)
  998.    insertRgn(curFile,sInvert,buf88,all)
  999.    mod(n97,n81,2) if (eqNum(n97,0)) moveCursor(curFile,eChar) }
  1000. label(2)
  1001.  
  1002. if (not eqNum(n83,0)) {
  1003.    decNum(n83)
  1004.    putMsg("Amiga-ESC stops")
  1005.    mod(n97,n81,17) if (not eqNum(n97,0)) {
  1006.       if (not onScreen(atCursor)) vScroll(atCursor) refreshDisplay } 
  1007.    goto label(3) }
  1008. putMsg(" ")
  1009. returnTrue>
  1010.  
  1011.  
  1012.  
  1013. Get Find/Replace options.
  1014. n81 contains options as prime #s, so that mod() can determine active options;
  1015. initialized to 1 by ^QF or 11 by ^QA.
  1016.  
  1017. Chr  Val    Active (Chr present)           Inactive (Chr not present)
  1018.  
  1019.  B    2 Search Backward                Search Forward
  1020.  U    3 Ignore case                    Case must match
  1021.  N    5 No ask on replace              Ask for each replace
  1022.  g/G  7 Global (if Replace, do all)    From cursor only
  1023.  -   11 Find/Replace (^QA)             Find only (^QF)
  1024.  -   13 internal init flag for proper global control so ^L works right
  1025.  G   17 No display update (capital G)  Update display (lowercase g)
  1026.  
  1027. n83 contains repeat value, or 0
  1028. buf97, n97 scratch
  1029.  
  1030. Get options for find/replace
  1031. <virtual-kp5:
  1032. putMsg("Options: (B)ackwd (U)ignore-case (N)o-ask (g/G)lobal (#)times")
  1033.  
  1034. moveCursor(buf87,sFile) while (is(buf87,space)) clearChar(buf87)
  1035. equateLoc(buf87,sInvert,eInvert)
  1036. moveCursor(buf87,sFile) inputString(buf87) 
  1037. moveCursor(buf87,sFile) insertChar(buf87," ") moveCursor(buf87,sFile)
  1038. if (getFlag(buf87,searchCaps)) flipFlag(buf87,searchCaps)
  1039.  
  1040. moveCursor(buf87,sFile)
  1041. setSearch("B")
  1042. if (search(buf87,sInvert,eInvert,1)) mul(n81,n81,2) 
  1043. moveCursor(buf87,sFile)
  1044. setSearch("U")
  1045. if (search(buf87,sInvert,eInvert,1)) mul(n81,n81,3) 
  1046. moveCursor(buf87,sFile)
  1047. setSearch("N")
  1048. if (search(buf87,sInvert,eInvert,1)) mul(n81,n81,5) 
  1049.  
  1050. flipFlag(curFile,searchCaps)
  1051. moveCursor(buf87,sFile)
  1052. setSearch("g")
  1053. if (search(buf87,sInvert,eInvert,1)) mul(n81,n81,7)
  1054. moveCursor(buf87,sFile)
  1055. setSearch("G")
  1056. if (search(buf87,sInvert,eInvert,1)) {
  1057.    mul(n81,n81,7) mul(n81,n81,17) }
  1058. flipFlag(curFile,searchCaps)
  1059.  
  1060. mod(n97,n81,3) if (eqNum(n97,0)) {
  1061.    if (getFlag(curFile,searchCaps)) flipFlag(curFile,searchCaps) }
  1062. else { if (not getFlag(curFile,searchCaps)) flipFlag(curFile,searchCaps) }
  1063.  
  1064. equateNum(n83,0)
  1065. moveCursor(buf87,sFile) 
  1066. freeBuf(buf99) insertChar(buf99," ") 
  1067. while (not is(buf87,eFile)) {
  1068.    if (is(buf87,digit)) {
  1069.       while (is(buf87,digit)) { insertRgn(buf99,eFile,buf87,char) 
  1070.          movecursor(buf87,eChar) }
  1071.       moveCursor(buf99,sFile) moveCursor(buf99,eChar)
  1072.       toNumber(n83,buf99) decNum(n83) goto label(1) }
  1073.    moveCursor(buf87,eChar) }
  1074. label(1) 
  1075. runKey(virtual-kp6) returnTrue >
  1076.  
  1077.  
  1078.  
  1079.  
  1080.                               ESC Key handling
  1081.  
  1082. n85 flag current macro mode
  1083. 0-9 macros are learn48-learn57; A-Z macros are learn65-learn90
  1084. To emulate WS4 macro key capability
  1085. <normal-esc:
  1086. label(1)
  1087. putMsg("$,= last math  ! time  @ date  macros: A-Z,0-9 def  ? undef  Spc,Rtn exit")
  1088. if (not getFlag(curFile,useKeys)) flipFlag(curFile,useKeys)
  1089. getChar(n99)
  1090. flipFlag(curFile,useKeys)
  1091. if (eqNum(n99,20)) { putMsg(" ") return }            .. space exit
  1092. if (eqNum(n99,10)) { putMsg(" ") return }            .. return exit
  1093. if (eqNum(n99,36)) { runKey(alt-\) return }          .. $
  1094. if (eqNum(n99,61)) { runKey(alt-\) return }          .. = 
  1095. if (eqNum(n99,33)) {                                 .. !
  1096.    equateNum(n99,2) if (not runKey(virtual-d)) returnFalse
  1097.    insertRgn(curFile,atCursor,buf82,invert)
  1098. }
  1099. if (eqNum(n99,64)) {                                 .. @
  1100.    equateNum(n99,3) if (not runKey(virtual-d)) returnFalse
  1101.    insertRgn(curFile,atCursor,buf82,invert)
  1102. }
  1103. equateNum(n85,0)
  1104. if (eqNum(n99,63)) {                                 .. ?
  1105.    putMsg("Enter macro to undefine A-Z, 0-9; or ? to see disk; Space/Return exit") 
  1106.    if (not getFlag(curFile,useKeys)) flipFlag(curFile,useKeys)
  1107.    getChar(n99) 
  1108.    flipFlag(curFile,useKeys)
  1109.    equateNum(n85,-1) }
  1110. if (eqNum(n99,63)) {                                 .. ?   view all
  1111.    freeBuf(buf82) putMsg("Getting info on Learn macro files from disk...")
  1112.    if (not execute(buf82,"List p=learn??!")) { 
  1113.       putMsg("Couldn't do DOS List") returnFalse }
  1114.    insertRgn(buf82,sFile,"
  1115. F1 to resume
  1116.  
  1117. ",all) freeBuf(buf98) insertChar(buf98," ") .. fix vscroll
  1118.    insertRgn(buf98,eFile,buf82,all) moveCursor(buf98,sFile)  .. fix vscroll
  1119.    editBuf(buf98)
  1120.    return }
  1121. if (geNum(n99,48)) if (geNum(57,n99)) goto label(3)  .. #s 0-9
  1122. if (geNum(n99,97)) if (geNum(122,n99)) sub(n99,n99,32)  .. lc->uc convert
  1123. if (geNum(n99,65)) if (geNum(90,n99)) {         .. is alpha/#, do macro
  1124.    label(3)
  1125.    if (not eqNum(n85,0)) { freeBuf(buf99)        .. delete macro
  1126.       insertRgn(buf99,sFile,"Delete Learn!",all)
  1127.       moveCursor(buf99,sChar) toWord(buf99,n99) 
  1128.       if (not execute(buf82,buf99)) {
  1129.          putMsg("Couldn't do Delete") return }
  1130.       else { 
  1131.          insertRgn(buf99,sFile,"Done OK: ",all) putMsg(buf99) 
  1132.          delay(5) goto label(1) }
  1133.    }
  1134.    if (not loadLearn(n99)) {               .. load/run existing or define new
  1135.       if (not getFlag(curFile,learnMode)) { equateNum(n85,n99)
  1136.        putMsg("**Learn Started!**  Ctl-2 ends/saves Learn macro; Ctl-1 aborts")
  1137.          flipFlag(curFile,learnMode) return }
  1138.    }
  1139.    else { runLearn return }
  1140. }
  1141. putMsg(" ")
  1142. >    
  1143.  
  1144.  
  1145. Get date, return in various formats. n99: 1 all 2 time 3 date&day 4 date-only
  1146. <virtual-d: freeBuf(buf82) if (execute(buf82,"Date")) {
  1147.    moveCursor(buf82,eFile)
  1148.    moveCursor(buf82,sChar) equateLoc(buf82,eInvert,atCursor)
  1149.    do(n98,1,8) moveCursor(buf82,sChar)
  1150.    if (eqNum(n99,1)) equateLoc(buf82,sInvert,sFile)
  1151.    if (eqNum(n99,2)) equateLoc(buf82,sInvert,atCursor) 
  1152.    if (geNum(n99,3)) { moveCursor(buf82,sChar) 
  1153.       equateLoc(buf82,eInvert,atCursor) 
  1154.       equateLoc(buf82,sInvert,sFile) }
  1155.    if (eqNum(n99,4)) {
  1156.       do(n98,1,9) moveCursor(buf82,sChar)
  1157.       equateLoc(buf82,sInvert,atCursor) }   
  1158.    returnTrue }
  1159. else { putMsg("DOS Date not available") returnFalse }
  1160. >
  1161.  
  1162.  
  1163.  
  1164.                               Miscellaneous
  1165.  
  1166. Open empty unnamed buffer
  1167. <alt-o: 
  1168. if(not newfile) { 
  1169.    putmsg("No more Edit Buffers available!  Free some up.") 
  1170.    beepDisplay returnFalse } 
  1171. else equateNum(n82,curFile)>
  1172.  
  1173. Save changed files during idle periods, if their idle-save flag is set
  1174. <idle:
  1175. putMsg("Idle time reached - checking for files to save!!")
  1176. getMaxFiles(n97) decNum(n97)
  1177. do (n99,0,n97)
  1178.    if (not inputWaiting)
  1179.       if (getflag(buf[n99],changed))
  1180.          if (getflag(buf[n99],userLocalA)) saveFile(buf[n99])
  1181. >
  1182.  
  1183.  
  1184.  
  1185.          View/Set values
  1186.       
  1187. Set the maximum number of edit buffers
  1188. <altCtl-kp0:  freeBuf(buf99) insertRgn(buf99,sFile,
  1189. "Max. number of edit buffers (files) you can have open at once (now ",all)
  1190. getMaxFiles(n99) toWord(buf99,n99) insertChar(buf99,")")
  1191. putMsg(buf99)
  1192. if (inputNum(n99)) if (gtNum(n99,0)) {
  1193. .. !SHARE  - To enable the full version, put two dots in front of the next 
  1194. .. two lines (with ..S at the end of them) and remove the 3 characters ..F 
  1195. .. from the front of the following two lines, then recompile UstarConfig!
  1196.    if (gtNum(n99,5)) { putMsg(                                    ..S
  1197. "More than 5 bufs requires registering Uedit, see Help - About")  ..S
  1198. ..F   if (gtNum(n99,70)) { putMsg(
  1199. ..F"More than 70 bufs requires changing/recompiling Ustar, see docs.")
  1200.       beepDisplay returnFalse }
  1201.    else setMaxFiles(n99) }
  1202. putMsg(" ") >
  1203.  
  1204. Set the idle time (currently used only for the auto-save function)
  1205. <altCtl-kp9:  freeBuf(buf99) insertRgn(buf99,sFile,
  1206. "Idle time (for auto-save function) ( 1-9999; now ",all)
  1207. equateNum(n99,idleTime) toWord(buf99,n99) insertChar(buf99,"):")
  1208. putMsg(buf99)
  1209. if (inputNum(n99)) if (gtNum(n99,0)) equateNum(idleTime,n99)
  1210. putMsg(" ") >
  1211.  
  1212.  
  1213. Give the ASCII value of character at cursor
  1214. <altCtl-h:  copyChar(curFile,n99) freeBuf(buf99) toWord(buf99,n99) 
  1215. insertRgn(buf99,sFile,"ASCII decimal value is: ",all) putMsg(buf99) 
  1216. >
  1217.  
  1218.  
  1219. Set new wildcard character
  1220. <shftCtl-kp1:
  1221. putMsg("Wildcard char:") freeBuf(buf99)
  1222. insertChar(buf99,wildCard) moveCursor(buf99,sFile)
  1223. if (inputString(buf99)) { moveCursor(buf99,sFile) copyChar(buf99,wildCard) }
  1224. returnTrue>
  1225.  
  1226.  
  1227. Set new either-or character
  1228. <shftAlt-kp1: 
  1229. putMsg("Either-Or char:") freeBuf(buf99)
  1230. insertChar(buf99,eitherOr) moveCursor(buf99,sFile)
  1231. if (inputString(buf99)) { moveCursor(buf99,sFile) copyChar(buf99,eitherOr) }
  1232. returnTrue>
  1233.  
  1234.  
  1235. Set new EOL character
  1236. <altCtl-kp1:
  1237. putMsg("EOL value:")
  1238. if(inputNum(n99)) setEol(n99) refreshDisplay returnTrue>
  1239.  
  1240.  
  1241. Set delay value (to n89)
  1242. <shftCtl-kp2: putMsg("Tenths of seconds to use in Delay command:")
  1243. inputNum(n89) returnTrue >
  1244.                  
  1245.  
  1246. Specify the speech parameters
  1247. ..<altCtl-kp5:   .. SPEECH parameters are NO LONGER USED
  1248. freeBuf(buf99) insertRgn(buf99,sFile,
  1249. "Change speech parameters.   Speak speed (40-400, currently ",all)
  1250. toWord(buf99,speakSpeed) insertRgn(buf99,atCursor,"):",all) putMsg(buf99)
  1251. if (inputNum(n99)) equateNum(speakSpeed,n99)
  1252. freeBuf(buf99) insertRgn(buf99,sFile,"Speak pitch (65-320, currently ",all)
  1253. toWord(buf99,speakPitch) insertRgn(buf99,atCursor,"):",all) putMsg(buf99)
  1254. if (inputNum(n99)) equateNum(speakPitch,n99)
  1255. freeBuf(buf99) insertRgn(buf99,sFile,
  1256. "Speak Mode: (N)atural (F)emale (M)ale (R)obotic  (now ",all)
  1257. insertChar(buf99,speakMode) insertRgn(buf99,atCursor,"):",all)
  1258. putMsg(buf99) updateDisplay getChar(speakMode) putMsg(" ")
  1259. >
  1260.  
  1261.  
  1262. 2.3c: Assign new Primitive Mode terminator
  1263. <ctl-esc: 
  1264. putMsg("Enter new Primitive Mode terminator CTRL-key, typ. ESC or Return")
  1265. ..inputCtlChar
  1266. if (getChar(n99)) 
  1267.    if (gtNum(n99,4))
  1268.       if (gtNum(32,n99)) equateNum(pmESC,n99)
  1269. putMsg(" ") >
  1270.  
  1271. Set the Top Margin, both local and global (used only in formatted print cmd)
  1272. <shftCtl-kp8:
  1273. getLocal(curFile,n99,topMargin) freeBuf(buf99) toWord(buf99,n99) 
  1274. insertRgn(buf99,sFile,"Top Margin (now ",all) 
  1275. insertRgn(buf99,eFile,"):",all) putMsg(buf99)
  1276. if (inputNum(n99)) {
  1277.    setLocal(curFile,topMargin,n99) equateNum(topMargin,n99) }>
  1278.  
  1279. Set the Bottom Margin, local and global (used only in formatted print command)
  1280. <shftCtl-kp9:
  1281. getLocal(curFile,n99,bottomMargin) freeBuf(buf99) toWord(buf99,n99) 
  1282. insertRgn(buf99,sFile,"Bottom Margin (now ",all) 
  1283. insertRgn(buf99,eFile,"):",all) putMsg(buf99)
  1284. if (inputNum(n99)) {
  1285.    setLocal(curFile,bottomMargin,n99) equateNum(bottomMargin,n99) }>
  1286.  
  1287. Tell the serial number of this Uedit
  1288. <alt-3: getSerialNum(n99) freeBuf(buf99) toWord(buf99,n99)
  1289. insertRgn(buf99,sFile,"Serial number ",all)
  1290. putMsg(buf99)
  1291. >
  1292.  
  1293.  
  1294.          Set/view toggles
  1295.          
  1296.          
  1297. Toggle the speaking of messages
  1298. <shftCtl-kp4: flipFlag(curFile,speakMsgs) if (getFlag(curFile,speakMsgs))
  1299. putMsg("Say Messages") else putMsg("Silent Messages")
  1300. returnTrue>
  1301.  
  1302.  
  1303. Toggle the speaking of alerts
  1304. <shftAlt-kp4: flipFlag(curFile,speakAlerts) if (getFlag(curFile,speakAlerts))
  1305. putmsg("Say Alerts") else putMsg("Silent Alerts") 
  1306. returnTrue>
  1307.  
  1308. Toggle the mapping of "illegal" characters (ASCII 0-4) to other chars
  1309. <shftAlt-kp3: flipFlag(curFile,mapChars) if (getFlag(curFile,mapChars))
  1310. putMsg("Map Chars 0-4") else putMsg("No Chars Mapped")
  1311. returnTrue>
  1312.  
  1313. Toggle whether typing keys will be used in raw form, vs. any commands active
  1314. <shftAlt-kp8: flipFlag(curFile,useKeys) if (getFlag(curFile,useKeys)) {
  1315. putMsg("useKeys On. Please turn Off so Tab, Return, Space, etc. work right.")
  1316. beepDisplay returnFalse }
  1317. else putMsg("useKeys Off.  Normal operation.")
  1318. returnTrue>
  1319.  
  1320. Toggle the Gadgets at the top of the display to be visible or not
  1321. <shftAlt-kp6: flipFlag(curFile,markGadgets)>
  1322.  
  1323. Toggle audio beep vs. display flash (For errors & aborts)
  1324. <shftAlt-kp7: flipFlag(curFile,userGlobalA) 
  1325. if (getFlag(curFile,userGlobalA)) {
  1326.    if (execute(" ","AddBeep")) { putmsg("Audio Beep") beepDisplay return }
  1327. }
  1328. else {
  1329.    if (execute(" ","RemBeep")) { putMsg("Display Flash") beepDisplay return }
  1330. }
  1331. putMsg("Couldn't change beep mode") beepDisplay
  1332. >
  1333.  
  1334.  
  1335.             Keys
  1336.  
  1337. Kill any single command key 
  1338. <shftCtl-kp0:
  1339. putMsg("Next command-key will be deleted!")
  1340. if (getKey(n99)) if (killKey(n99)) { 
  1341.    putMsg("Command-key deleted.") returnTrue }
  1342. putMsg(" ") returnFalse >
  1343.  
  1344.  
  1345. Exchange two key command sequences
  1346. <shftAlt-kp0:
  1347. putMsg("Next 2 command-keys will be swapped!")
  1348. if (getKey(n98)) if (getKey(n99)) if (swapKey(n98,n99))
  1349.    { putMsg("Keys were swapped.") returnTrue }
  1350. putMsg(" ") returnFalse>
  1351.  
  1352.  
  1353. Exchange any key with the mouseUp "key"
  1354. <altCtl-kp6:
  1355. putMsg("Next command-key will be swapped with mouse buttonUp action!")
  1356. if (getKey(n98)) if (swapKey(n98,normal-buttonUp)) { 
  1357.    putMsg("Mouse buttonUp action swapped.  To undo, swap again.") returnTrue }
  1358. putMsg(" ") returnFalse>
  1359.  
  1360.  
  1361.  
  1362.  
  1363.          Teach/investigate system
  1364.  
  1365. Do teach mode, where keys give self-description instead of doing action
  1366. <alt-t: 
  1367. flipFlag(curFile,teachKeys) 
  1368. if (getFlag(curFile,rowCol)) flipFlag(curFile,rowCol)  .. writes over info
  1369. putMsg("In teach mode, where keys/menus describe themselves. Amiga-ESC quits.")
  1370. >
  1371.  
  1372.  
  1373. Describe what a key or menu selection does.
  1374. <alt-d: 
  1375. putMsg("Next key or menu selection will describe itself.")
  1376. getKey(n99) teachOne(n99)
  1377. >
  1378.  
  1379.  
  1380. Find out what keys are being used.
  1381. <altCtl-kp7: putMsg(
  1382. "Show which keys are in use.  Amiga-ESC quits.  Any key to start...")
  1383. getKey(n99)
  1384. while(nothing) {
  1385.    getKey(n99) if (inUse(n99)) putMsg("In Use") else putMsg("unused") }
  1386. >
  1387.  
  1388.  
  1389. Show memory usage
  1390. <altCtl-kp8:
  1391. freeBuf(buf82) freeBuf(buf99) insertRgn(buf99,sFile,"avail",all)
  1392. if (not execute(buf82,buf99)) { 
  1393.    putMsg("Error - couldn't run program to show memory.") 
  1394.    beepDisplay returnFalse }
  1395. else insertRgn(buf82,sFile,"
  1396. F1 to resume
  1397.  
  1398. ",all)
  1399. moveCursor(buf82,sFile) editBuf(buf82) vScroll(atCursor)
  1400. >
  1401.  
  1402.  
  1403. Show all the alternate characters available
  1404. <altCtl-kp4:
  1405. freeBuf(buf99) editBuf(buf99)
  1406. putMsg("Display of printable non-ASCII characters, as:  value character")
  1407. insertChar(buf99,eLine) vScroll(atCursor)
  1408. insertRgn(buf99,sFile,"
  1409. Characters 0-31 and 128-159 are non-printing control codes; 160 is alt space
  1410. Characters 32-127 are the normal character set
  1411. ",all) vScroll(sFile) refreshDisplay
  1412. equateNum(n99,161)
  1413. while (nothing) {
  1414.    do (n98,1,10) {
  1415.       toWord(buf99,n99)
  1416.       insertChar(buf99," ")
  1417.       typeChar(n99)
  1418.       insertRgn(buf99,atCursor,"   ",all)
  1419.       add(n99,n99,1)
  1420.       if (gtNum(n99,255)) goto label(1)
  1421.    }
  1422.    insertChar(buf99,eLine) refreshDisplay
  1423. }
  1424. label(1)
  1425. insertChar(buf99,eLine) refreshDisplay
  1426. putMsg("Press any key to continue...") 
  1427. getKey(n99) if (eqNum(n99,normal-buttonDown)) getKey(n99) .. ignore buttonUp
  1428. putMsg(" ")
  1429. editBuf(buf[n82])
  1430. >
  1431.  
  1432.  
  1433.  
  1434.       Conversions/formats
  1435.  
  1436. Toggle a number at cursor between decimal and hexadecimal (in C notation)
  1437. <alt-h: hexDecimal(curFile)>
  1438.  
  1439.  
  1440. Do delay (for value set in n89)
  1441. <shftAlt-kp2: delay(n89) returnTrue>
  1442.  
  1443.  
  1444. Got rid of sFile test.
  1445. Right-align current line at line-length column. Clears trailing space 1st.
  1446. <alt-f:
  1447. if (not is(curFile,eLine)) moveCursor(curFile,eLine) 
  1448. if (not is(curFile,sLine)) moveCursor(curFile,sChar)
  1449. while (not is(curFile,sLine)) {        .. clear trailing whitespace
  1450.    if (not is(curFile,space)) if (not is(curFile,9)) goto label(1)
  1451.    clearChar(curFile) moveCursor(curFile,sChar) }
  1452. label(1)
  1453. if (not is(curFile,sLine)) moveCursor(curFile,sLine)
  1454. while (not is(curFile,eLine)) {        .. clear leading whitespace
  1455.    if (not is(curFile,space)) if (not is(curFile,9)) goto label(2)
  1456.    clearChar(curFile) }
  1457. label(2)
  1458. if (not is(curFile,eLine)) moveCursor(curFile,eLine)
  1459. locToCol(curFile,n99,atCursor)   .. grab position of line's end
  1460. decNum(n99)
  1461. if (not is(curFile,sLine)) moveCursor(curFile,sLine)
  1462. while (gtNum(lineLength,n99)) {    .. and insert spaces until right-aligned
  1463.    insertChar(curFile,32) incNum(n99) }
  1464. moveCursor(curFile,downLine)                .. added for easy section format
  1465. ..if (not is(curFile,sline)) moveCursor(curFile,sLine)
  1466. >
  1467.  
  1468.  
  1469. Uppercase the character at the cursor
  1470. <shftCtl-kp5: toUpper(curFile) moveCursor(curFile,eChar) 
  1471. if (is(curFile,eFile)) returnFalse else returnTrue >
  1472.  
  1473.  
  1474. Lowercase the character at the cursor
  1475. <shftAlt-kp5: toLower(curFile) moveCursor(curFile,eChar) 
  1476. if (is(curFile,eFile)) returnFalse else returnTrue >
  1477.  
  1478.  
  1479. Note: also clears leading whitespace before ff's (is OK by me)
  1480. Delete trailing whitespace - clears any spaces/tabs following last text on line
  1481. <altCtl-kp3: equateLoc(curFile,locA,atCursor)                               
  1482. moveCursor(curFile,sFile) refreshDisplay                                  
  1483. putMsg("Clearing trailing whitespace...")                                  
  1484. equateNum(n99,0)
  1485. while (eqNum(n99,0)) {
  1486.    if (not is(curFile,eLine)) moveCursor(curFile,eLine)
  1487.    if (is(curFile,eFile)) equateNum(n99,1)
  1488.    if (is(curFile,sLine)) goto label(1)
  1489.    moveCursor(curFile,sChar)
  1490.    while (nothing) {
  1491.       if (not is(curFile,space)) if (not is(curFile,9)) goto label(2)
  1492.       clearChar(curFile) moveCursor(curFile,sChar)
  1493.       if (is(curFile,eLine)) goto label(2) }
  1494.    label(2)
  1495.    updateDisplay
  1496.    if (not onScreen(atCursor)) vScroll(atCursor)
  1497.    label(1)
  1498.    moveCursor(curFile,downLine)  
  1499. }
  1500. putMsg("Trailing Whitespace cleared")
  1501. equateLoc(curFile,atCursor,locA) 
  1502. if (not onScreen(atCursor)) vScroll(atCursor)
  1503. refreshDisplay >
  1504.  
  1505.      Special functions handy in up/downloading text on BBS's
  1506.  
  1507. Convert CRLF's to LF's - handy for BBS documents, convert to Amiga format
  1508. <alt-kpEnter:
  1509. putmsg("Converting CRLF's to LF's...")
  1510. equateLoc(curFile,locA,atCursor)
  1511. freeBuf(buf99) 
  1512. insertChar(buf99,13) insertChar(buf99,10) moveCursor(buf99,sFile)
  1513. moveCursor(curFile,sFile)
  1514. setSearch(buf99)
  1515. while (search(curFile,sInvert,eInvert,1)) 
  1516.    clearChar(curFile) moveCursor(curFile,eChar) 
  1517. equateLoc(curFile,sInvert,eInvert)
  1518. moveCursor(curFile,eFile) moveCursor(curFile,sChar) 
  1519. if (is(curFile,13)) clearChar(curFile)
  1520. equateLoc(curFile,atCursor,locA) refreshDisplay putmsg(" ") >
  1521.  
  1522.  
  1523. Convert LF's to CRLF's - handy for uploading to BBS's or other computers
  1524. <shftCtl-kpEnter:
  1525. putmsg("Converting LF's to CRLF's...")
  1526. equateLoc(curFile,locA,atCursor)
  1527. freeBuf(buf99) 
  1528. insertChar(buf99,10) moveCursor(buf99,sFile)
  1529. moveCursor(curFile,sFile)
  1530. setSearch(buf99)
  1531. while (search(curFile,sInvert,eInvert,1)) 
  1532.    insertChar(curFile,13) moveCursor(curFile,eChar) 
  1533. equateLoc(curFile,sInvert,eInvert)
  1534. moveCursor(curFile,eFile) insertChar(curFile,13)
  1535. equateLoc(curFile,atCursor,locA) refreshDisplay putmsg(" ") >
  1536.  
  1537.  
  1538.  
  1539.          Repeats
  1540.  
  1541. Specify a command and count times it executes before failing
  1542. <altCtl-kp2:
  1543. equateNum(n87,1) putMsg("Single command-key to run (until fails) & count:")
  1544. if (getKey(n88)) {
  1545.    while (runKey(n88)) incNum(n87)
  1546.    freeBuf(buf99) insertRgn(buf99,sFile,"Times executed = ",all)
  1547.    toWord(buf99,n87) putMsg(buf99) returnTrue} 
  1548. returnFalse>
  1549.  
  1550.  
  1551.  
  1552.                                Key Duplicates
  1553.  
  1554.      These three are to alleviate the conflict with Mach for Alt-function keys
  1555.  
  1556. Save current configuration to disk Data! file
  1557. <rAmiga-f6: runKey(alt-f6)>
  1558.  
  1559. Clear the "Favorite" flag of all files
  1560. <rAmiga-f3: runKey(alt-f3)>
  1561.  
  1562. Swap current buffer with swap buffer (buffer 80)
  1563. <rAmiga-f1: runKey(alt-f1)>
  1564.  
  1565.  
  1566.      This one is to alleviate conflict with Mach, whose hot-key is altCtl-f1
  1567.  
  1568. Edit specific buffer #
  1569. <normal-f4: runKey(altCtl-f1)>
  1570.  
  1571.  
  1572.      These are simply for an easier keystroke sequence for common actions
  1573.  
  1574. Execute AmigaDOS command and collect results
  1575. <normal-f5: runKey(shftCtl-f1)>
  1576.  
  1577. Edit previous buffer 
  1578. <normal-f2: runKey(shft-f1)>
  1579.  
  1580.  
  1581.  
  1582.      These make kp-enter equal to Return for several functions
  1583.  
  1584. Same as Return
  1585. <normal-kpEnter: runKey(normal-Return) >
  1586.  
  1587. Same as shift-Return
  1588. <shft-kpEnter: runKey(shft-Return) >
  1589.  
  1590. Same as ctrl-Return
  1591. <ctl-kpEnter: runKey(ctl-Return) >
  1592.  
  1593. 2.3c: Same as L--
  1594. <lAmiga-kpMinus: runKey(lAmiga--) >
  1595.  
  1596.  
  1597.  
  1598.                Internal keys
  1599.  
  1600. Not an implemented key
  1601. <virtual-kp8: equateNum(n84,0) putMsg("Not implemented.")
  1602. returnFalse>
  1603.  
  1604. Not a valid WS command
  1605. <virtual-kp7: equateNum(n84,0) 
  1606. putMsg("Invalid WS command.") returnFalse> 
  1607.  
  1608.  
  1609. -----------------------------------------------------------------------------
  1610.  
  1611.                        WordStar control key section
  1612.  
  1613.                            Two-key command control
  1614.  
  1615.          Prefix key control
  1616.  
  1617. Menu equivalents for ^K prefix is shftCtl; n84 value is 10
  1618. WS prefix key (=SC-x) for Block & File actions; other actions depend on prefix
  1619. <ctl-k:
  1620. if (eqNum(n84,0)) { equateNum(n84,10) putMsg("^K") return }
  1621. putMsg(" ")
  1622. if (eqNum(n84,10)) { equateNum(n84,0)
  1623.    equateLoc(curFile,eHilite,atCursor) refreshDisplay return } 
  1624. if (eqNum(n84,20)) { equateNum(n84,0)
  1625.    if (gtLoc(curFile,eHilite,sHilite)) { moveCursor(curFile,eHilite)
  1626.       if (not onScreen(atCursor)) vScroll(atCursor) returnTrue }
  1627.    else { putMsg("No block!") returnFalse} }
  1628. if (eqNum(n84,30)) { equateNum(n84,0) flipFlag(curFile,cram) return }
  1629. if (eqNum(n84,40)) { equateNum(n84,0)
  1630.    equateLoc(curFile,mouseLoc,atCursor) 
  1631.    runKey(shftCtl-buttondown)
  1632.    runKey(shftCtl-buttonup)
  1633. }   
  1634. >
  1635.  
  1636.  
  1637. Menu equivalents for ^O prefix is altCtl; n84 value is 30
  1638. WS prefix key (=AC-x) for OnScreen actions; other actions depend on prefix
  1639. <ctl-o:
  1640. if (eqNum(n84,0)) { equateNum(n84,30) putMsg("^O") return }
  1641. putMsg(" ")
  1642. if (eqNum(n84,10)) { equateNum(n84,0)
  1643.    freeBuf(buf98) getFileName(buf98,curFile) 
  1644.    insertRgn(buf98,sFile,"Copy Of ",all)
  1645.    equateNum(n99,curFile) 
  1646.    if (not newFile) { 
  1647.       putMsg("No more Edit Buffers available!  Free some up.") 
  1648.       beepDisplay returnFalse }
  1649.    setFileName(curFile,buf98) equateNum(n82,curFile)
  1650.    putMsg("Copying buffer...")
  1651.    insertRgn(curFile,sFile,buf[n99],all) moveCursor(curFile,sFile)
  1652.    flipFlag(curFile,changed) putMsg(" ") return }
  1653. if (eqNum(n84,20)) { equateNum(n84,0)
  1654.    freeBuf(buf98) putMsg("Enter word or words to check spelling on:")
  1655.    if (not inputString(buf98)) return
  1656.    runKey(virtual-l) return }
  1657. if (eqNum(n84,30)) { runKey(virtual-kp8) return }
  1658. if (eqNum(n84,40)) { equateNum(n84,0)
  1659.    if (gtLoc(curFile,eHilite,sHilite)) {
  1660.       if (not getFlag(curFile,columnar)) {
  1661.          freeBuf(buf86) 
  1662.          insertRgn(buf86,sFile,curFile,hilite) }
  1663.       else { 
  1664.          freeBuf(buf86) copyColData(buf86,sFile,curFile,hilite,n80) } 
  1665.       putMsg("Spooling block for printing, please be patient...")
  1666.       print(buf86,all) }
  1667.    else { putMsg("No block!") returnFalse } 
  1668.    return }
  1669. >
  1670.  
  1671.  
  1672.  
  1673. Menu equivalents for ^P prefix is shftAltCtl; n84 value is 40
  1674. WS prefix key (=SAC-x) for Print actions; other actions depend on prefix
  1675. <ctl-p:
  1676. if (eqNum(n84,0)) { equateNum(n84,40) putMsg("^P") return }
  1677. putMsg(" ")
  1678. if (eqNum(n84,10)) { equateNum(n84,0) runKey(virtual-o) return }
  1679. if (eqNum(n84,20)) { runKey(virtual-kp8) return }
  1680. if (eqNum(n84,30)) { runKey(shftCtl-=) return } .. readOnly
  1681. if (eqNum(n84,40)) { equateNum(n84,0)
  1682.    freeBuf(buf99) toWord(buf99,prefPrint)
  1683.    insertRgn(buf99,sFile,
  1684.      "Printer select: 0=par: 1=ser: 2=prt: 3=prt:-raw  (now ",all)
  1685.    insertRgn(buf99,eFile,"):",all) putMsg(buf99)
  1686.    if (inputNum(n99)) if (geNum(n99,0)) if (gtNum(4,n99)) 
  1687.       equateNum(prefPrint,n99)
  1688.    putMsg(" ") }
  1689. >
  1690.  
  1691.  
  1692. Menu equivalents for ^Q prefix is shftAlt; n84 value is 20
  1693. WS prefix key (=SA-x) for Quick actions; other actions depend on prefix
  1694. <ctl-q:
  1695. if (eqNum(n84,0)) { equateNum(n84,20) putMsg("^Q") return }
  1696. putMsg(" ")
  1697. if (eqNum(n84,10)) { equateNum(n84,0) equateNum(n99,curFile)  
  1698.    getMaxFiles(n98) decNum(n98)
  1699.    if (not gtNum(n99,n98)) if (getFlag(curFile,changed)) 
  1700.       if (askYesNo("Buffer has changed - save it? ")) 
  1701.           if (not saveFile(curFile)) returnFalse
  1702.    if (not eqNum(n82,n99)) { if (not isEmpty(buf[n82])) editBuf(buf[n82]) }
  1703.    else { toggle(curFile) equateNum(n82,curFile) }
  1704.    freeBuf(buf[n99]) return }
  1705. if (eqNum(n84,20)) { equateNum(n84,0)
  1706.    putMsg("Single key to run (at Delay speed) (Amiga-ESC stops):")
  1707.    if (getKey(n87)) {
  1708.       while (runkey(n87)) { 
  1709.          if (not onScreen(atCursor)) vScroll(atCursor) 
  1710.          delay(n89)
  1711.       updateDisplay
  1712.    } }
  1713.    putmsg(" ") 
  1714.    return }
  1715. if (eqNum(n84,30)) { equateNum(n84,0) 
  1716.    freeBuf(buf99) insertRgn(buf99,sFile,"See n-variable # (default ",all)
  1717.    toWord(buf99,n86) insertRgn(buf99,atCursor,"):",all) putMsg(buf99)
  1718.    if (not inputNum(n99)) equateNum(n99,n86) else equateNum(n86,n99)
  1719.    freeBuf(buf99) insertChar(buf99,"n") toWord(buf99,n99)
  1720.    insertRgn(buf99,eFile," is ",all) toWord(buf99,n[n99]) putMsg(buf99) 
  1721.    return }
  1722. if (eqNum(n84,40))  { equateNum(n96,19) runKey(virtual-p) }
  1723. >
  1724.  
  1725.  
  1726.           Menu equivalent translations
  1727.  
  1728. Control-Q
  1729. Goto marker 0
  1730. <shftAlt-0: equateNum(n84,20) runKey(ctl-0) >
  1731. Goto marker 1
  1732. <shftAlt-1: equateNum(n84,20) runKey(ctl-1) >
  1733. Goto marker 2
  1734. <shftAlt-2: equateNum(n84,20) runKey(ctl-2) >
  1735. Goto marker 3
  1736. <shftAlt-3: equateNum(n84,20) runKey(ctl-3) >
  1737. Goto marker 4
  1738. <shftAlt-4: equateNum(n84,20) runKey(ctl-4) >
  1739. Goto marker 5
  1740. <shftAlt-5: equateNum(n84,20) runKey(ctl-5) >
  1741. Goto marker 6
  1742. <shftAlt-6: equateNum(n84,20) runKey(ctl-6) >
  1743. Goto marker 7
  1744. <shftAlt-7: equateNum(n84,20) runKey(ctl-7) >
  1745. Goto marker 8
  1746. <shftAlt-8: equateNum(n84,20) runKey(ctl-8) >
  1747. Goto marker 9
  1748. <shftAlt-9: equateNum(n84,20) runKey(ctl-9) >
  1749. Find & Replace text; various options
  1750. <shftAlt-a: equateNum(n84,20) runKey(ctl-a) >
  1751. Cursor to beginning of block, if any block is highlighted
  1752. <shftAlt-b: equateNum(n84,20) runKey(ctl-b) >
  1753. Cursor to end of buffer
  1754. <shftAlt-c: equateNum(n84,20) runKey(ctl-c) >
  1755. Cursor to end of line
  1756. <shftAlt-d: equateNum(n84,20) runKey(ctl-d) >
  1757. Cursor to top of screen
  1758. <shftAlt-e: equateNum(n84,20) runKey(ctl-e) >
  1759. Find text; various options
  1760. <shftAlt-f: equateNum(n84,20) runKey(ctl-f) >
  1761. Search forward to first occurrence of specified character
  1762. <shftAlt-g: equateNum(n84,20) runKey(ctl-g) >
  1763. Search backward to first occurrence of specified character
  1764. <shftAlt-h: equateNum(n84,20) runKey(ctl-h) >
  1765. Move cursor to start of specified page#.  Works as goto line# if lines/page=1.
  1766. <shftAlt-i: equateNum(n84,20) runKey(ctl-i) >
  1767. Cursor to end of marked block
  1768. <shftAlt-k: equateNum(n84,20) runKey(ctl-k) >
  1769. Spell: check spelling from cursor through rest of document
  1770. <shftAlt-l: equateNum(n84,20) runKey(ctl-l) >
  1771. Math - run calc program ("xe"), if present.  Use SnipIt util. to cut/paste #s.
  1772. <shftAlt-m: equateNum(n84,20) runKey(ctl-m) >
  1773. Spell: check spelling of word that cursor is on
  1774. <shftAlt-n: equateNum(n84,20) runKey(ctl-n) >
  1775. Spell: check spelling of a word entered from the keyboard
  1776. <shftAlt-o: equateNum(n84,20) runKey(ctl-o) >
  1777. Repeat command until aborted
  1778. <shftAlt-q: equateNum(n84,20) runKey(ctl-q) >
  1779. Cursor to top of buffer
  1780. <shftAlt-r: equateNum(n84,20) runKey(ctl-r) >
  1781. Cursor to beginning of line
  1782. <shftAlt-s: equateNum(n84,20) runKey(ctl-s) >
  1783. Delete forward to first occurrence of specified character
  1784. <shftAlt-t: equateNum(n84,20) runKey(ctl-t) >
  1785. Reformat from cursor to end of document, using current settings.
  1786. <shftAlt-u: equateNum(n84,20) runKey(ctl-u) >
  1787. Cursor to start of last "Find" match, if match still marked with inverse
  1788. <shftAlt-v: equateNum(n84,20) runKey(ctl-v) >
  1789. Scroll down continuously, line by line
  1790. <shftAlt-w: equateNum(n84,20) runKey(ctl-w) >
  1791. Cursor to bottom of screen
  1792. <shftAlt-x: equateNum(n84,20) runKey(ctl-x) >
  1793. Delete from cursor position to end of line
  1794. <shftAlt-y: equateNum(n84,20) runKey(ctl-y) >
  1795. Scroll up continuously, line by line 
  1796. <shftAlt-z: equateNum(n84,20) runKey(ctl-z) >
  1797. Delete from cursor position to beginning of line
  1798. <shftAlt-del: equateNum(n84,20) runKey(ctl-del) >
  1799. Show how many bytes are in the buffer up to the place the cursor is at
  1800. <shftAlt-/: equateNum(n84,20) runKey(ctl-/) >
  1801.  
  1802. Control-K
  1803. Set marker 0
  1804. <shftCtl-0: equateNum(n84,10) runKey(ctl-0) >
  1805. Set marker 1
  1806. <shftCtl-1: equateNum(n84,10) runKey(ctl-1) >
  1807. Set marker 2
  1808. <shftCtl-2: equateNum(n84,10) runKey(ctl-2) >
  1809. Set marker 3
  1810. <shftCtl-3: equateNum(n84,10) runKey(ctl-3) >
  1811. Set marker 4
  1812. <shftCtl-4: equateNum(n84,10) runKey(ctl-4) >
  1813. Set marker 5
  1814. <shftCtl-5: equateNum(n84,10) runKey(ctl-5) >
  1815. Set marker 6
  1816. <shftCtl-6: equateNum(n84,10) runKey(ctl-6) >
  1817. Set marker 7
  1818. <shftCtl-7: equateNum(n84,10) runKey(ctl-7) >
  1819. Set marker 8
  1820. <shftCtl-8: equateNum(n84,10) runKey(ctl-8) >
  1821. Set marker 9
  1822. <shftCtl-9: equateNum(n84,10) runKey(ctl-9) >
  1823. save As: save buffer to disk file under some other name
  1824. <shftCtl-a: equateNum(n84,10) runKey(ctl-a) >
  1825. Mark Beginning of Block
  1826. <shftCtl-b: equateNum(n84,10) runKey(ctl-b) >
  1827. Copy marked block to current cursor position
  1828. <shftCtl-c: equateNum(n84,10) runKey(ctl-c) >
  1829. Document: Open a named file/buffer
  1830. <shftCtl-d: equateNum(n84,10) runKey(ctl-d) >
  1831. rEname current buffer
  1832. <shftCtl-e: equateNum(n84,10) runKey(ctl-e) >
  1833.  shftCtl-f:  see command elsewhere
  1834. Get: copy marked block to "Undo" buffer 
  1835. <shftCtl-g: equateNum(n84,10) runKey(ctl-g) >
  1836. Hide (unmark) block
  1837. <shftCtl-h: equateNum(n84,10) runKey(ctl-h) >
  1838. Toggle block overlay/space-fill vs. block insert/delete mode
  1839. <shftCtl-i: equateNum(n84,10) runKey(ctl-i) >
  1840. Junk: Delete buffer (safely - asks first if changed)
  1841. <shftCtl-j: equateNum(n84,10) runKey(ctl-j) >
  1842. Mark end of blocK
  1843. <shftCtl-k: equateNum(n84,10) runKey(ctl-k) >
  1844. Change default directory (same function as WS Logged Disk/Directory)
  1845. <shftCtl-l: equateNum(n84,10) runKey(ctl-l) >
  1846. Math on a block - add all numbers within a marked block
  1847. <shftCtl-m: equateNum(n84,10) runKey(ctl-m) >
  1848. Block ColumN mode toggle on/off
  1849. <shftCtl-n: equateNum(n84,10) runKey(ctl-n) >
  1850. cOpy entire buffer to another buffer
  1851. <shftCtl-o: equateNum(n84,10) runKey(ctl-o) >
  1852. Print entire buffer
  1853. <shftCtl-p: equateNum(n84,10) runKey(ctl-p) >
  1854. Quit (discard) current buffer (safely - if changed, asks if want to save 1st)
  1855. <shftCtl-q: equateNum(n84,10) runKey(ctl-q) >
  1856. Read a file (get from disk and insert into text at cursor)
  1857. <shftCtl-r: equateNum(n84,10) runKey(ctl-r) >
  1858. Save current buffer to disk if it has changed
  1859. <shftCtl-s: equateNum(n84,10) runKey(ctl-s) >
  1860. Touch: save all changed buffers to disk
  1861. <shftCtl-t: equateNum(n84,10) runKey(ctl-t) >
  1862. Undelete - get contents of "Undo" buffer into text at cursor
  1863. <shftCtl-u: equateNum(n84,10) runKey(ctl-u) >
  1864. moVe - Move marked block to current cursor position
  1865. <shftCtl-v: equateNum(n84,10) runKey(ctl-v) >
  1866. Write - write marked block to file (or printer via prt: or par:)
  1867. <shftCtl-w: equateNum(n84,10) runKey(ctl-w) >
  1868. eXit safely - ask if want to save any changed files, then exit Ustar
  1869. <shftCtl-x: equateNum(n84,10) runKey(ctl-x) >
  1870. Yank - Delete marked block
  1871. <shftCtl-y: equateNum(n84,10) runKey(ctl-y) >
  1872. Zafety - toggle file autobackup on/off 
  1873. <shftCtl-z: equateNum(n84,10) runKey(ctl-z) >
  1874. Read-only - buffer can't be edited. This is an on/off toggle, not checkmarked.
  1875. <shftCtl-=: equateNum(n84,10) runKey(ctl-=) >
  1876. Toggle icons saved when files saved on/off
  1877. <shftCtl-\: equateNum(n84,10) runKey(ctl-\) >
  1878. Toggle buffer's Changed flag.  Careful!  Typ. use so temp bufs aren't saved.
  1879. <shftCtl-[: equateNum(n84,10) runKey(ctl-[) >
  1880. Speak a marked block.  The "Say" command & libraries must be available.
  1881.  shftCtl-]:  see below in file 
  1882. Convert all characters in block to uppercase.
  1883. <shftCtl-': equateNum(n84,10) runKey(ctl-') >
  1884. Toggle auto-save flag on or off (individual to each file)
  1885. <shftCtl-.: equateNum(n84,10) runKey(ctl-.) >
  1886.  
  1887.  
  1888.  
  1889. Control-O
  1890. Set command multiplier for how many times to repeat next command
  1891. <altCtl-1: equateNum(n84,30) runKey(ctl-1) >
  1892. Load a learn file
  1893. <altCtl-2: equateNum(n84,30) runKey(ctl-2) >
  1894. Busy - toggle the UE "busy" display, for internal housekeeping status display
  1895. <altCtl-b: equateNum(n84,30) runKey(ctl-b) >
  1896. Center line of text within current margins
  1897. <altCtl-c: equateNum(n84,30) runKey(ctl-c) >
  1898. Display of control characters toggle on/off
  1899. <altCtl-d: equateNum(n84,30) runKey(ctl-d) >
  1900. Toggle paraGraph tabs (auto-indent) on/off
  1901. <altCtl-g: equateNum(n84,30) runKey(ctl-g) >
  1902. Set tab spacIng (tab stops) in an easy visual manner using mouse and/or keys
  1903. <altCtl-i: equateNum(n84,30) runKey(ctl-i) >
  1904. Justification: Toggle right-justification mode on/off
  1905. <altCtl-j: equateNum(n84,30) runKey(ctl-j) >
  1906. Kram: Toggle cram mode on/off  (cuts descenders for more lines on-screen)
  1907. <altCtl-k: equateNum(n84,30) runKey(ctl-k) >
  1908. Set variable value
  1909. <altCtl-m: equateNum(n84,30) runKey(ctl-m) >
  1910. Set tab spaciNg (tab stops) in an easy visual manner using mouse and/or keys
  1911. <altCtl-n: equateNum(n84,30) runKey(ctl-n) >
  1912. Open up line for typing, or close it back up
  1913. <altCtl-o: equateNum(n84,30) runKey(ctl-o) >
  1914. Protect/unprotect current buffer (flip its Read-Only status)
  1915. <altCtl-p: equateNum(n84,30) runKey(ctl-p) >
  1916. Query: see variable value
  1917. <altCtl-q: equateNum(n84,30) runKey(ctl-q) >
  1918. Right margin column (line length) set
  1919. <altCtl-r: equateNum(n84,30) runKey(ctl-r) >
  1920. Show tab ruler above cursor line
  1921. <altCtl-t: equateNum(n84,30) runKey(ctl-t) >
  1922. Uppercase: flip character at cursor between lowercase and uppercase
  1923. <altCtl-u: equateNum(n84,30) runKey(ctl-u) >
  1924. Choose which tab table to use (0-4) to use for setting Tab spacing
  1925. <altCtl-v: equateNum(n84,30) runKey(ctl-v) >
  1926. Word-wrap mode toggle on/off
  1927. <altCtl-w: equateNum(n84,30) runKey(ctl-w) >
  1928. Type Amiga's alternate (non-ASCII) characters into text (Note: WON'T PRINT)
  1929. <altCtl-y: equateNum(n84,30) runKey(ctl-y) >
  1930. Toggle display of row/column at upper right of display
  1931. <altCtl-z: equateNum(n84,30) runKey(ctl-z) >
  1932.  
  1933.  
  1934. Control-P
  1935. Stop all printouts - aborts every print currently in process by Uedit
  1936. <shftAltCtl-0: equateNum(n84,40) runKey(ctl-0) >
  1937. Resume printing a halted print
  1938. <shftAltCtl-1: equateNum(n84,40) runKey(ctl-1) >
  1939. Printer control code: Alternate pitch (Elite)
  1940. <shftAltCtl-a: equateNum(n84,40) runKey(ctl-a) >
  1941. Printer control code: Bold toggle
  1942. <shftAltCtl-b: equateNum(n84,40) runKey(ctl-b) >
  1943. Printer control codes, colors define
  1944. <shftAltCtl-c: equateNum(n84,40) runKey(ctl-c) >
  1945. Printer control code: Doublestrike toggle
  1946. <shftAltCtl-d: equateNum(n84,40) runKey(ctl-d) >
  1947. Find printer control codes
  1948. <shftAltCtl-f: equateNum(n84,40) runKey(ctl-f) >
  1949. General printer control codes (manual definitions)
  1950. <shftAltCtl-g: equateNum(n84,40) runKey(ctl-g) >
  1951. LInes per page set
  1952. <shftAltCtl-j: equateNum(n84,40) runKey(ctl-j) >
  1953. Add word to index being built in buffer 80
  1954. <shftAltCtl-k: equateNum(n84,40) runKey(ctl-k) >
  1955. Do an 8-column tab no matter what current settings are (if tab table 0 OK).
  1956. <shftAltCtl-i: equateNum(n84,40) runKey(ctl-i) >
  1957. Place a form feed at the cursor
  1958. <shftAltCtl-l: equateNum(n84,40) runKey(ctl-l) >
  1959. Printer control code: Normal pitch (Pica)
  1960. <shftAltCtl-n: equateNum(n84,40) runKey(ctl-n) >
  1961. Print highlighted block
  1962. <shftAltCtl-o: equateNum(n84,40) runKey(ctl-o) >
  1963. PrefsPrint - select how to print - direct through ports, or thru Preferences
  1964. <shftAltCtl-p: equateNum(n84,40) runKey(ctl-p) >
  1965. Printer control code: Condensed (compressed) print toggle
  1966. <shftAltCtl-q: equateNum(n84,40) runKey(ctl-q) >
  1967. Printer control code: Underline toggle
  1968. <shftAltCtl-s: equateNum(n84,40) runKey(ctl-s) >
  1969. Printer control code: Superscript toggle
  1970. <shftAltCtl-t: equateNum(n84,40) runKey(ctl-t) >
  1971. Stop a printout - aborts current print
  1972. <shftAltCtl-u: equateNum(n84,40) runKey(ctl-u) >
  1973. Printer control code: Subscript toggle
  1974. <shftAltCtl-v: equateNum(n84,40) runKey(ctl-v) >
  1975. Printer control code: Wide print toggle
  1976. <shftAltCtl-w: equateNum(n84,40) runKey(ctl-w) >
  1977. Printer control code: NLQ toggle
  1978. <shftAltCtl-x: equateNum(n84,40) runKey(ctl-x) >
  1979. Printer control code: Italics toggle
  1980. <shftAltCtl-y: equateNum(n84,40) runKey(ctl-y) >
  1981. Input a control into text at cursor
  1982. <shftAltCtl-=: equateNum(n84,40) runKey(ctl-=) >
  1983.  
  1984.  
  1985. Shifted key translations (menu equivalents):
  1986.  
  1987. Convert all characters in block to lowercase.
  1988. <alt-': equateNum(n84,10) runKey(shft-')>
  1989.