home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d6xx / d645 / dmd.lha / DMD / S / .EDRC
Text File  |  1992-04-26  |  21KB  |  421 lines
  1. #DMD V2.00 Copyright © 1991-2 Fergus Duniho
  2. #This product is tradeware. If you use it, send me something you've done.
  3. #Send anything to the following address:
  4. #Fergus Duniho, 1170 Genesee St. B3 A7, Rochester, NY 14611
  5.  
  6. hgpen 3
  7. setenv Case `on'
  8. title (DMD V2.00 © 1991-2 Fergus Duniho, All Rights Reserved)
  9.  
  10. set bline (unblock block block)
  11. set Check (if !t (up first ifelse r (down) (down insline down))
  12. set Marker1 (A-F1)
  13. set Marker2 (A-F2)
  14. set Marker3 (A-F3)
  15. set Marker4 (A-F4)
  16. set Marker5 (A-F5)
  17. set Marker6 (A-F6)
  18. set PrevBlank (up first while !r up)
  19. set NextBlank (return while !r down)
  20. set ParagraphTop (firstnb while l (up firstnb))
  21. set NextParagraph (down firstnb while l (down firstnb))
  22. set PrevParagraph ($ParagraphTop up $ParagraphTop)
  23.  
  24. map bs (ifelse l (up last join if !l right) (bs))
  25. map del (ifelse r (if !b (last join)) del)
  26. map down (down if r (last left if !ca right right) set xc \$colno firstnb if x<\$xc (col \$xc))
  27. map f1 arpinsfile
  28. map f2 (as-f1 rx "F='('GetFile(,,Strip(GetEnv('P'),'T','/'),GetEnv('N'),'Replace File')')'; If F='()' Then Exit; newfile F")
  29. map f3 (as-f1 rx "F='('GetFile(,,Strip(GetEnv('P'),'T','/'),GetEnv('N'),'Open New File')')'; If F='()' Then Exit; newwindow; newfile F")
  30. map f4 (set (path) \$fpath ifelse 10 (ping 7) (ping 8) toggle 10 newwindow chfilename \$(path)unnamed)
  31. map f5 (ifelse 10 (ping 7 pong 8) (ping 8 pong 7) toggle 10)
  32. map f6 (if m arpsave iconify)
  33. map f7 (as-f1 rx "F='('GetFile(,,Strip(GetEnv('P'),'T','/'),,'Save Block')')'; If F='()' Then Exit; bsave F")
  34. map f8 (arpsave f2)
  35. map f9 (arpsave)
  36. map f10 (as-f1 rx "F='('GetFile(,,Strip(GetEnv('P'),'T','/'),GetEnv('N'),'Save File & Quit')')'; If F='()' Then Exit; saveas F; quit")
  37. map help (newwindow newfile S:.edrc wordwrap off)
  38. map left (ifelse l (up last) (left))
  39. map return (set x \$colno split return split up ifelse r (col \$x) firstnb down join)
  40. map right (ifelse r (down firstnb) (right))
  41. map R-rmb null unmap R-lmb
  42. map up (up if r (last left if !ca right right) set xc \$colno firstnb if x<\$xc (col \$xc))
  43.  
  44. map a-0 (setparcol 0 title `Left Margin Set To 0')
  45. map (a- ) (firstnb insline)
  46. map a-a (ignorecase on)
  47. map a-A (ignorecase off)
  48. map a-bs (split deline first)
  49. map a-c (rx Append unblock)
  50. map a-del (split down ifelse b (deline) (deline up))
  51. map a-down (bottom last)
  52. map a-enter (rx "A='Calculator'; Do Until E=''; E=stringreq(A); Interpret 'A='E; End")
  53. map a-f (down firstnb ifelse r (a-= up) (a-[ up join) reformat)
  54. map a-f1 (setenv P (\$fpath) setenv N () rx "D=Makedir(GetFile(22,19,GetEnv('P'),GetEnv('N'),'Make Directory'))")
  55. map a-f2 (rx "Z=colourreq()")
  56. map a-f3 (WC)
  57. map a-f4 (setenv P (Fonts:) setenv N () rx1 ARPFileReq (Set Font))
  58. map a-f5 (execute SYS:Utilities/MuchMore)
  59. map a-f6 (as-f1 rx1 ARPFileReq (Copy Files))
  60. map a-f7 (as-f1 rx1 ARPFileReq (Print File))
  61. map a-f8 (as-f1 rx1 ARPFileReq PPMore)
  62. map a-f9 (as-f1 rx1 ARPFileReq (Saveas & Crunch))
  63. map a-f10 (as-f1 rx1 ARPFileReq (Crunch Files))
  64. map a-help (title (DMD © 1992 Fergus Duniho. Suggested Shareware Fee: $5.00) escimm (title (Send $$ to Fergus Duniho, 1170 Genesee St. B3 A7, Rochester, NY 14611)))
  65. map a-l (while ca (if cu (tlate +32) right) wright)
  66. map a-left  (firstnb)
  67. map a-m (if cl (tlate -32) right a-l)
  68. map a-n (scanf %s find \$scanf)
  69. map a-nk. (first deline)
  70. map a-nk+ (resize 77 23)
  71. map a-nk- (resize 77 11)
  72. map `a-nk(' ``¬''
  73. map `a-nk)' ``º''
  74. map a-nk/ ``÷''
  75. map a-nk* ``ª''
  76. map a-nk0 (split down undeline up join join)
  77. map a-nk2 (deline down undeline)
  78. map a-nk4 (scanf %s set c1 \$scanf wleft scanf %s -left findr \$scanf \$c1 findr \$c1 \$scanf wleft wleft)
  79. map a-nk6 (scanf %s set c1 \$scanf wright scanf %s wleft findr \$scanf \$c1 wleft wleft -left findr \$c1 \$scanf wright)
  80. map a-nk8 (deline up undeline)
  81. map a-p (scanf %s findstr \$scanf prev)
  82. map a-r (scanf %s -left findr \$scanf \$R wright)
  83. map a-return (ifelse b (firstnb downadd) (down firstnb))
  84. map a-right (last)
  85. map a-s (if !cb \$bline bsave T:B1 bdelete insfile T:B0 execute (Move T:B1 T:B0))
  86. map a-tab (ifelse cb (goto block while cb (firstnb c-tab down)) (firstnb c-tab))
  87. map a-u (while ca (if cl (tlate -32) right) wright)
  88. map a-up (first top)
  89. map a-x (rx Append bdelete)
  90. map a-z (undeline)
  91. map a-. (first while !r (firstnb split first join ( **> ) reformat return))
  92. map a-, (wordwrap off first c-tab (RE: ) wright wright remeol last ( by ) join find ( at ) remeol)
  93. map a-= (setparcol -1 title `Left Margin Set To -1')
  94. map a-[ (ifelse l a-0 sa-[)
  95. map a-] (margin \$colno title `Right Margin Set To \$margin')
  96. map a-| (top col 40 while !b (join down))
  97. map a-@ (set CMark \$colno title `Column Marker Set To \$CMark')
  98. map as-c (set Phrase (\$currentline))
  99. map as-w (set Buf (\$CMark))
  100. map as-b (col \$Buf)
  101. map as-nk. (ifelse c>\$CMark (split col \$CMark split down as-c deline up join) (set X \$colno col \$CMark split col \$X split down as-c deline up join))
  102. map as-e (as-w a-@ as-b)
  103. map as-f1 (setenv P (\$fpath) setenv N (\$fname))
  104. map as-nk. (split col (\$CMark) split down as-c deline up join)
  105. map as-nk0 (split (\$Phrase) join)
  106. map as-tab (ifelse cb (goto block while cb (firstnb cs-tab down)) (firstnb cs-tab))
  107. map as-down scrolldown
  108. map as-up scrollup
  109.  
  110. map ca-] (goto start first while cb ((    ) return) goto start pushmark rx DownLevel popmark rx RenumberOutline title \$RS)
  111.  
  112. map (A- ) (insline insline)
  113. map A-, (pushmark)
  114. map A-. (popmark)
  115. map A-= (rx2 Justify Center \$margin)
  116. map A-[ (ifelse cb (rx2 Justify Left 1) (firstnb split first join))
  117. map A-] (ifelse cb (rx2 Justify Right \$margin) (last while x<=\$margin (first ( ) last)))
  118. map A-] (ifelse cb (rx2 Justify Right \$margin) sc-])
  119. map A-{ (firstnb split up firstnb down join)
  120. map A-} (firstnb split up firstnb wright down join)
  121. map A-@ (ifelse cb (rx2 Justify Left \$colno) (ping 9 firstnb split pong 9 join))
  122. map A-1 (rx2 Space 0 1)
  123. map A-2 (rx2 Space 1 0)
  124. map A-3 (rx2 Space 0 0)
  125. map A-a (unblock bottom block top block)
  126. map A-b block
  127. map A-bs (split first while !r (deline up first))
  128. map A-bs (s-bs set Phrase (\$Phrase \$scanf))
  129. map A-c (if !cb \$bline bsave T:B0 unblock)
  130. map A-d bdelete
  131. map A-del (split return while !r (deline first) ifelse b deline up last)
  132. map A-del (s-del set Phrase (\$Phrase \$scanf))
  133. map A-e (-left findr \$F \$R)
  134. map A-f FindReq
  135. map A-F (scanf %s setenv F \$scanf)
  136. map A-f1 (pong 1)
  137. map A-f2 (pong 2)
  138. map A-f3 (pong 3)
  139. map A-f4 (pong 4)
  140. map A-f5 (pong 5)
  141. map A-f6 (pong 6)
  142. map A-f7 (pong 7)
  143. map A-f8 (pong 8)
  144. map A-f9 (pong 9)
  145. map A-f10 (pong 0)
  146. map A-g (escimm (goto ))
  147. map A-h ($Check firstnb ifelse cn (col 17) (ifelse cu (col 13) (col 21)) ping 9 firstnb while ca right if c=41 (pong 9 col +12 ping 9) firstnb split pong 9 join while ca (firstnb bs pong 9) tab sa-[ ca-o)
  148. map A-help (newwindow newfile S:ASCII_CHART)
  149. map A-i (title (Complete the function call w/ the no. of spaces to indent.) escimm (rx2 Justify Indent ))
  150. map A-j (ifelse cb (goto end first while cb (justify full up if r (up up))) (justify full))
  151. map A-k (bcopy)
  152. map A-m (bmove)
  153. map A-n (find \$F title `A-e will replace \$F with \$R')
  154. map A-nk+ (rx2 IncHeading 1 \$currentline)
  155. map A-nk- (rx2 IncHeading -1 \$currentline)
  156. map A-nk0 (set X \$colno (\$Phrase) ( ) set Phrase () col \$X del)
  157. map A-nk1 (if cb (goto end first))
  158. map A-nk2 (settoggle 5 while 5 (down if ca (resettoggle 5) if b (resettoggle 5)))
  159. map A-nk3 ($NextBlank down firstnb)
  160. map A-nk4 ($PrevBlank down firstnb wright)
  161. map A-nk5 (unblock $NextBlank up block $PrevBlank block)
  162. map A-nk6 ($NextBlank up last)
  163. map A-nk7 ($PrevBlank down firstnb)
  164. map A-nk8 (settoggle 5 while 5 (up if ca (resettoggle 5) if t (resettoggle 5)))
  165. map A-nk9 ($PrevBlank $PrevBlank down firstnb)
  166. map A-o f3
  167. map A-p (findstr \$F prev title `A-e will replace \$F with \$R'))
  168. map A-r ($Check firstnb ifelse cl (while ca right ifelse c=41 (col 37) (col 25)) (col 9) ping 9 firstnb split pong 9 join while ca (firstnb bs pong 9) tab sa-[ ca-o)
  169. map A-R (scanf %s setenv R \$scanf)
  170. map A-return ($NextBlank downadd firstnb if !r (insline insline))
  171. map A-s s-f9
  172. map A-t (deline bcopy goto block bdelete undeline)
  173. map A-tab (ifelse cb (goto start first while cb ((    ) return) goto start) (first (    ))
  174. map A-u unblock
  175. map A-v (insfile T:B0)
  176. map A-w (rx "C=textreq(Time() 'on' Date('W') Date(),'The Time is',,,,10)")
  177. map A-x (if !cb \$bline bsave T:B0 bdelete)
  178. map A-z undo
  179. map As-J (ifelse cb (goto start while cb (unjustify return)) unjustify)
  180. map As-Return (last wleft downadd insline)
  181. map As-tab (ifelse cb (goto start while cb (first repeat 4 del down) goto start) (firstnb repeat 4 bs down))
  182.  
  183. map c-a (rx "C='('d2c(intreq('Enter ASCII value.',0,255))')'; C")
  184. map c-bs (block top block bdelete first)
  185. map c-c (rx "C='('stringreq('Type in text')')'; C")
  186. map c-del (block bottom block bdelete)
  187. map c-down (ifelse cb (down ping 0 ifelse cb (goto end) (goto start) unblock block pong 0 block) \$bline)
  188. map cs-down (ifelse cb (pagedown ping 0 ifelse cb (goto end) (goto start) unblock block pong 0 block)  (unblock block pagedown block))
  189. map ca-down (ping 0 if cb (goto start) unblock block pong 0 bottom block)
  190. map c-e (-left nextr wright)
  191. map c-f1 (execute (SYS:Ashell SPHINX:0/0/640/200/DME_Sphinx_AShell))
  192. map c-f2 arpload
  193. map c-f3 (set name \$filename newwindow chfilename \$name arpload)
  194. map c-f4 (setenv FN \$filename rx "F='('stringreq('Change Filename.',GetEnv('FN'),,50)')';If F='()' Then Exit; chfilename F")
  195. map c-f5 (as-f1 rx1 ARPFileReq (Delete Files))
  196. map c-f6 (as-f1 rx1 ARPFileReq (Move or Rename Files))
  197. map c-f7 (rx "GetFile(,,'Rexx:',,'Call ARexx Macro')")
  198. map c-f8 (setenv P (DF1:) setenv N () rx1 ARPFileReq (Run Program))
  199. map c-f9 (execute sys:PPrefs)
  200. map c-f10 (rx "F='('GetFile(,,'S:','.edrc','Source File')')'; If F='()' Then Exit; source F")
  201. map c-help (rx "K='$('stringreq('Command?',,,18)')'; C='setenv H' K; C; H=stringreq(K,GetEnv('H'),,75)")
  202. map c-k (rx "Z=SetClip('F', Request(100, 50, 'Select the Font for the Insert Literal Requester.', GetClip('F')))")
  203. map c-l (rx InsLit)
  204. map c-left (first)
  205. map c-nk. (rx "Z=Delete('T:B0')")
  206. map c-nk0 (firstnb repeat 3 insline down)
  207. map c-nk2 $NextParagraph
  208. map c-nk4 (prevr)
  209. map c-nk5 (unblock $ParagraphTop block $NextParagraph up block)
  210. map c-nk6 (nextr)
  211. map c-nk7 $ParagraphTop
  212. map c-nk8 $PrevParagraph
  213. map c-nk+ (tlate +1)
  214. map c-nk- (tlate -1)
  215. map c-r (scanf %s -left findstr \$scanf nextr wright)
  216. map c-return (a-0 split ifelse l (resettoggle 1) (settoggle 1) return insline col 9 join if 1 (insline down) reformat)
  217. map c-right (col +\$margin)
  218. map c-s (if !cb (unblock block block) bsource)
  219. map c-t (scanf %1s set c1 \$scanf right scanf %1s left findr \$scanf \$c1 left left -left findr \$c1 \$scanf left)
  220. map c-tab (repeat tr (( )))
  221. map c-up (ifelse cb (up ping 0 ifelse cb (goto start) (goto end) unblock block pong 0 block) \$bline)
  222. map cs-tab (repeat tl bs)
  223. map cs-up (ifelse cb (pageup ping 0 ifelse cb (goto start) (goto end) unblock block pong 0 block)  (unblock block pageup block))
  224. map ca-up (ping 0 if cb (goto end) unblock block pong 0 top block)
  225.  
  226. map ca-f (if !r (firstnb wright split last tab sa-[ join last reformat return while !r (up last join last reformat return)))
  227. map ca-o (if !r (ping 0 firstnb wright split return while !r (firstnb split first join return) pong 0 down while !r (insline join down) pong 0 down reformat firstnb split first join pong 0 join))
  228. map ca-o (if !r (firstnb wright split last tab ping 0 join last reformat return while !r (up last join last reformat return) pong 0))
  229.  
  230. map L-lmb (set C \$colno set L \$lineno tomouse if x=\$C (if y=\$L (ifelse cb unblock block)))
  231. map aL-lmb (tomouse bmove)
  232. map AL-lmb (tomouse $(A-@))
  233. map cL-lmb (ping 0 tomouse ping 9 goto start ifelse cb (set L \$lineno pong 9 ifelse y<\$L (goto end) (goto start)) (pong 0) unblock block pong 9 block)
  234. map sL-lmb iconify
  235.  
  236. map s-bs (if l (up last join) ( ) wleft scanf %s ( ) left findr \$scanf () del del bs)
  237. map s-del (if r (first ifelse r deline (if !b down)) scanf %s -left findr \$scanf () del)
  238. map s-f1 (menudel Goto (\$Marker1) set Marker1 (A-F1   \$filename \$colno/\$lineno) menuadd Goto (\$Marker1) (pong 1) ping 1)
  239. map s-f2 (menudel Goto (\$Marker2) set Marker2 (A-F2   \$filename \$colno/\$lineno) menuadd Goto (\$Marker2) (pong 2) ping 2)
  240. map s-f3 (menudel Goto (\$Marker3) set Marker3 (A-F3   \$filename \$colno/\$lineno) menuadd Goto (\$Marker3) (pong 3) ping 3)
  241. map s-f4 (menudel Goto (\$Marker4) set Marker4 (A-F4   \$filename \$colno/\$lineno) menuadd Goto (\$Marker4) (pong 4) ping 4)
  242. map s-f5 (menudel Goto (\$Marker5) set Marker5 (A-F5   \$filename \$colno/\$lineno) menuadd Goto (\$Marker5) (pong 5) ping 5)
  243. map s-f6 (menudel Goto (\$Marker6) set Marker6 (A-F6   \$filename \$colno/\$lineno) menuadd Goto (\$Marker6) (pong 6) ping 6)
  244. map s-f7 (title (Hit RETURN to Print, ESC to exit) escimm (saveas T:TEXT execute (Run <NIL: >NIL: Move T:TEXT PRT:)))
  245. map s-f8 (saveas T:\$fname execute (C:Run C:PPMore T:\$fname))
  246. map s-f9 (as-f1 rx "F='('GetFile(,,Strip(GetEnv('P'),'T','/'),GetEnv('N'),'Save & Rename File')')'; If F='()' Then Exit; chfilename F; saveold")
  247. map s-f10 (as-f1 rx1 ARPFileReq (Append Block to File))
  248. map s-return (split return)
  249. map s-up (pageup)
  250. map s-down (pagedown)
  251. map s-left (wleft)
  252. map s-right (set C \$colno wright if b (if x=\$C last))
  253. map s-nk. (wright wleft scanf %s ( ) left findr \$scanf () ifelse r (first ifelse r deline down) wright bs bs)
  254. map s-nk0 (-left ifelse c=32 (settoggle 1) (resettoggle 1) -right if !1 (( )) (\$scanf) if 1 (( )))
  255. map s-nk1 (screenbottom first)
  256. map s-nk2 (downadd)
  257. map s-nk3 (pagedown first)
  258. map s-nk4 (left)
  259. map s-nk6 (right)
  260. map s-nk7 (screentop first)
  261. map s-nk8 (up)
  262. map s-nk9 (pageup first)
  263. map s-help (newwindow newfile S:startup-sequence wordwrap off)
  264. map sa-[ (left ifelse x<\$margin (setparcol \$colno title `Left Margin Set To \$colno') (title (Can't Set Left Margin To \$colno. The Right Margin is \$margin.)) right)
  265.  
  266. map sc-] (firstnb split first join last set x (-\$colno) col \$margin col \$x right right ping 9 insline pong 9 join)
  267.  
  268. title `DMD is Tradeware.'
  269.  
  270. menuoff
  271. menuclear
  272.  
  273. menuadd Project (Clear Window               ) (title (Hit RETURN to Clear Window, ESC to Exit) escimm (if m (title `File is Modified. Hit RETURN to Continue, ESC to Exit.' escimm (modified off ping 9 newwindow pong 9 quit)) ping 9 newwindow pong 9 quit)
  274. menuadd Project (Insert File              F1) f1
  275. menuadd Project (Replace File             F2) f2
  276. menuadd Project (Open New File            F3) f3
  277. menuadd Project (New Window               F4) f4
  278. menuadd Project (Print File             s-F7) s-f7
  279. menuadd Project (Print Preview          s-F8) s-f8
  280. menuadd Project (Rename File            c-F4) c-f4
  281. menuadd Project (Save File                F9) arpsave
  282. menuadd Project (Save & Rename File     s-F9) s-f9
  283. menuadd Project (Save & Crunch File     a-F9) a-f9
  284. menuadd Project (Save File & Quit        F10) f10
  285. menuadd Project (About                a-Help) a-help
  286.  
  287. menuadd Format (Reformat ¶                     c-f) c-f
  288. menuadd Format (Reformat Entire Document          ) (top while !b (a-f $NextBlank down))
  289. menuadd Format (Indent & Reformat Each ¶          ) (top a-0 while !b (firstnb split col 9 join reformat $NextBlank down))
  290. menuadd Format (Paginate Document                 ) (rx1 Paginate \$margin)
  291. menuadd Format (Left Justify @ Column 1        A-[) $(A-[)
  292. menuadd Format (Left Justify @ Cursor          A-@) $(A-@)
  293. menuadd Format (Right Justify @ Margin         A-]) $(A-])
  294. menuadd Format (Justify Full                   A-j) $(A-j)
  295. menuadd Format (Center                         A-=) $(A-=)
  296. menuadd Format (Indent N Spaces                A-i) $(A-i)
  297. menuadd Format (Align Line with Previous Line  A-{) $(A-{)
  298. menuadd Format (Hanging Indent                 A-}) $(A-})
  299. menuadd Format (Single Space                   A-1) $(A-1)
  300. menuadd Format (Double Space                   A-2) $(A-2)
  301. menuadd Format (Margin Release                 a-0) a-0
  302. menuadd Format (Set Left Margin                a-[) a-[
  303. menuadd Format (Set Right Margin               a-]) a-]
  304. menuadd Format (No Left Margin                 a-=) a-=
  305.  
  306. menuadd Outline (Position Roman Heading            A-r) $(A-r)
  307. menuadd Outline (Position Non-Roman Heading        A-h) $(A-h)
  308. menuadd Outline (Increment Heading               A-nk+) $(A-nk+)
  309. menuadd Outline (Decrement Heading               A-nk-) $(A-nk-)
  310. menuadd Outline (Align Section w/ Above Section       ) (rx AlignHeading sa-[ ca-o)
  311. menuadd Outline (Subordinate Section                  ) (rx DownLevel sa-[ ca-o)
  312. menuadd Outline (Reformat Entire Outline              ) (top while !b (ca-f downadd))
  313. menuadd Outline (Renumber Outline Block               ) (rx RenumberOutline title \$RS)
  314.  
  315. menuadd Buffer (Cut              A-x) $(A-x)
  316. menuadd Buffer (Copy             A-c) $(A-c)
  317. menuadd Buffer (Paste            A-v) $(A-v)
  318. menuadd Buffer (Cut & Append     a-x) a-x
  319. menuadd Buffer (Append           a-c) a-c
  320. menuadd Buffer (Swap with Block  a-s) a-s
  321. menuadd Buffer (Sort                ) (execute (C:Sort T:B0 to T:B0))
  322. menuadd Buffer (Kill           c-nk.) c-nk.
  323. menuadd Buffer (Find & Collect) (title (Hit RETURN to collect all lines with \$F, ESC to exit) escimm (find \$F $(A-c) repeat -1 (up next $Append bdelete)))
  324.  
  325. menuadd Block (Block             A-b) block
  326. menuadd Block (Block ¶         c-nk5) c-nk5
  327. menuadd Block (Block Section   A-nk5) $(A-nk5)
  328. menuadd Block (Block All         A-a) $(A-a)
  329. menuadd Block (Unblock           A-u) unblock
  330. menuadd Block (Delete            A-d) bdelete
  331. menuadd Block (Copy              A-k) bcopy
  332. menuadd Block (Move              A-m) bmove
  333. menuadd Block (Exchange w/ Line  A-t) $(A-t)
  334. menuadd Block (Sort                 ) (bsave T:TEXT execute (C:Sort T:TEXT to T:TEXT) goto block bdelete insfile T:TEXT rx "Z=Delete('T:TEXT')")
  335. menuadd Block (Source            c-s) c-s
  336. menuadd Block (Push              A-,) pushmark
  337. menuadd Block (Pop               A-.) popmark
  338. menuadd Block (Save               F7) f7
  339. menuadd Block (Append to File  s-F10) s-f10
  340.  
  341. menuadd Goto (Goto Line #           A-g) (escimm (goto ))
  342. menuadd Goto (Goto Block            c-1) (goto block)
  343. menuadd Goto (Set Marker 1          s-F1) s-f1
  344. menuadd Goto (Set Marker 2          s-F2) s-f2
  345. menuadd Goto (Set Marker 3          s-F3) s-f3
  346. menuadd Goto (Set Marker 4          s-F4) s-f4
  347. menuadd Goto (Set Marker 5          s-F5) s-f5
  348. menuadd Goto (Set Marker 6          s-F6) s-f6
  349. menuadd Goto $Marker1 (pong 1)
  350. menuadd Goto $Marker2 (pong 2)
  351. menuadd Goto $Marker3 (pong 3)
  352. menuadd Goto $Marker4 (pong 4)
  353. menuadd Goto $Marker5 (pong 5)
  354. menuadd Goto $Marker6 (pong 6)
  355.  
  356. menuadd Find (Find Requester      A-f) $(A-f)
  357. menuadd Find (Next F              A-n) $(A-n)
  358. menuadd Find (Prev F              A-p) $(A-p)
  359. menuadd Find (Next %s             a-n) a-n
  360. menuadd Find (Prev %s             a-p) a-p
  361. menuadd Find (Find                c-/) c-/
  362. menuadd Find (Next                c-n) next
  363. menuadd Find (Prev                c-p) prev
  364. menuadd Find (Replace F w/ R      A-e) $(A-e)
  365. menuadd Find (Replace %s w/ R     a-r) a-r
  366. menuadd Find (Replace %s          c-r) c-r
  367. menuadd Find (Replace             c-e) c-e
  368. menuadd Find (Replace Next      c-nk6) nextr
  369. menuadd Find (Replace Prev      c-nk4) prevr
  370. menudel Find (Set F To %s         a-f)
  371. menuadd Find (Set F To %s         A-F) $(A-F)
  372. menuadd Find (Set R To %s         A-R) $(A-R)
  373. menuadd Find (Ignore Case         a-a) a-a
  374. menuadd Find (Notice Case         a-A) $(a-A)
  375.  
  376. menuadd Misc. (UPPER CASE          a-u) a-u
  377. menuadd Misc. (lower case          a-l) a-l
  378. menuadd Misc. (Mixed Case          a-m) a-m
  379. menuadd Misc. (Check Spelling         ) (bsave T:TEXT rx1 ListWords T:TEXT rx SpellChecker)
  380. menuadd Misc. (Select Dictionary      ) (rx "Z=SetClip('Dictionary',GetFile(,,'DF1:','Dictionary','Select Dictionary'))")
  381. menuadd Misc. (Look Up Word           ) (rx LookUp)
  382. menuadd Misc. (Iconify          sL-lmb) iconify
  383. menuadd Misc. (Change Colors      a-F2) a-f2
  384. menuadd Misc. (Count Words        a-F3) a-f3
  385. menuadd Misc. (Set Font           a-F4) a-f4
  386. menuadd Misc. (Set InsLit Font     c-k) c-k
  387. menuadd Misc. (Insert Literal      c-l) c-l
  388. menuadd Misc. (Insert ASCII        c-a) c-a
  389. menuadd Misc. (Insertmode          c-i) c-i
  390. menuadd Misc. (Overstrike Mode     c-o) c-o
  391. menuadd Misc. (Toggle Wordwrap     c-w) c-w
  392. menuadd Misc. (Undo Current Line   A-z) undo
  393. menuadd Misc. (Find & Deline          ) (title (Hit RETURN to delete all lines with \$F, ESC to exit) escimm (findstr \$F repeat -1 (next deline up)))
  394.  
  395. menuadd Disk (Make Directory    a-F1) a-f1
  396. menuadd Disk (Delete            c-F5) c-f5
  397. menuadd Disk (Copy              a-F6) a-f6
  398. menuadd Disk (Move              c-F6) c-f6
  399. menuadd Disk (Print             a-F7) a-f7
  400. menuadd Disk (Call ARexx Macro  c-F7) c-f7
  401. menuadd Disk (PPMore            a-F8) a-f8
  402. menuadd Disk (Run Program       c-F8) c-f8
  403. menuadd Disk (Preferences       c-F9) c-f9
  404. menuadd Disk (Crunch           a-F10) a-f10
  405. menuadd Disk (Source File      c-F10) c-f10
  406.  
  407. menuadd ANSI (Plain) ((^[[0m))
  408. menuadd ANSI (Bold) ((^[[1m))
  409. menuadd ANSI (Italics) ((^[[3m))
  410. menuadd ANSI (Underline) ((^[[4m))
  411. menuadd ANSI (FG 0) ((^[[30m))
  412. menuadd ANSI (FG 1) ((^[[31m))
  413. menuadd ANSI (FG 2) ((^[[32m))
  414. menuadd ANSI (FG 3) ((^[[33m))
  415. menuadd ANSI (BG 0) ((^[[40m))
  416. menuadd ANSI (BG 1) ((^[[41m))
  417. menuadd ANSI (BG 2) ((^[[42m))
  418. menuadd ANSI (BG 3) ((^[[43m))
  419.  
  420. menuon
  421.