home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / FFA.ZIP / EDITHELP.SEQ < prev    next >
Encoding:
Text File  |  1987-12-18  |  4.8 KB  |  135 lines
  1. \ EDITHELP.SEQ  Help menu words for SED                 by Tom Zimmer
  2.  
  3. comment:
  4.  
  5.   This file may be customized for any function key modifications you make.
  6.  
  7.   Use care when making changes, a "%" symbol starts a message, and a " ends
  8. a message.
  9.  
  10. comment;
  11.  
  12. only forth also editor definitions also
  13.  
  14. : (%)           ( n1 n2 n3 --- n1 n2 )
  15.                 >r 2dup at r> 0 d+ ;
  16.  
  17. : (.%)          ( n1 n2 n3 --- n1 n2 )
  18.                 (%)
  19.                 r> dup 2+ >r x@ count >attrib3
  20.                 2dup bl scan dup >r 2swap r> - type
  21.                 >norm type ;
  22.  
  23. : %             ( n1 n2 --- n1 n2 )     \ normal message
  24.                 compile (.%) here x, ," ; immediate
  25.  
  26. : r%            ( n1 n2 --- n1 n2 )     \ reverse message
  27.                 compile (%)     compile >attrib2
  28.                 compile (.") here x, ," compile >norm ; immediate
  29.  
  30. : b%            ( n1 n2 --- n1 n2 )     \ bold message
  31.                 compile (%)     compile >attrib3
  32.                 compile (.") here x, ," compile >norm ; immediate
  33.  
  34. : shelp2        ( --- )
  35.                 dark cursor-off
  36.                26  1 30 r%  ZF Help Screen 2 "                          2drop
  37.  
  38.                 0  3 15 % F6 = Search"
  39.                      24 % Alt-F6 = Search  again"
  40.                      40 % Shift-Alt-F6 = Srch again Case Sensitive"     2drop
  41.  
  42.                 0  4 15 % F8 = Replace"
  43.                      24 % Alt-F8 = Replace again"
  44.                      40 % Shift-Alt-F8 = Repl again Case Sensitive"     2drop
  45.  
  46.                13  5 30 % Shift-F8 = Replace All"
  47.                      40 % Shift-F6 = Srch BACK again"                   2drop
  48.  
  49.                 2  6 at  78 -s          \ A horizontal line
  50.  
  51.                13  7 36  % Alt-W  = Write this text file to a NEW file" 2drop
  52.  
  53.                 5  9 36  % Home   = Begin line"
  54.                       36 % Ctrl-Home = Begin file"                      2drop
  55.  
  56.                 5 10 36  % End    = End line"
  57.                       36 % Ctrl-End  = End File"                        2drop
  58.  
  59.  
  60.                 5 12 36  % Ctrl-N = Split line"
  61.                       36 % Ctrl-Y    = Delete line"                     2drop
  62.  
  63.                 5 13  36 % Alt-N  = Join line"
  64.                       36 %  Alt-Y    = Undelete line, up to 50"         2drop
  65.  
  66.                 5 15 36  % Alt-X  = Cut from MARK to here"
  67.                       36 % F3        = MARK text"                       2drop
  68.  
  69.                 5 16 36  % Alt-C  = Copy from MARK to here"
  70.                       36 % F5        = Copy a line from MARK"           2drop
  71.  
  72.                 5 17 36  % Alt-V  = Paste Cut/Copied text"              2drop
  73.  
  74.                 5 19 36  % Alt-L  = Set left margin here"
  75.                       36 % Alt-T     = Set tab increment"               2drop
  76.  
  77.                 5 20 36  % Alt-K  = Expand tabs in document"
  78.                       36 % F10       = Insert any character"            2drop
  79.  
  80.                 2 21 at 78 -s           \ a horizontal line
  81.  
  82.                24 22 36 b% Alt-P = Printing Menu"                       2drop
  83.  
  84.                17 24 30 r%  Press any key to return to editing "        2drop
  85.  
  86.                 key drop ;
  87.  
  88. : <shelp>       ( --- )
  89.                 dark cursor-off
  90.                26  1 30 r%  ZF Help Screen 1 "                          2drop
  91.  
  92.                18  3 40  % WordStar Compatible Key Sequences"           2drop
  93.  
  94.                 8  7 13  % ^W scrl up"
  95.                      13  % ^E line up"
  96.                      13  % ^R page up"
  97.                      13  % ^T Word Del"
  98.                      13  % ^Y Line Del"                                 2drop
  99.  
  100.                 2  5 at  72 -s
  101.  
  102.                 8 13 13  % ^Z scrl dn"
  103.                      13  % ^X line dn"
  104.                      13  % ^C page dn"
  105.                      13  % ^V INS toggle"                               2drop
  106.  
  107.                 2 10 13  % ^A word"
  108.                      13  % ^S left"
  109.                      13  % ^D right"
  110.                      13  % ^F word"
  111.                      13  % ^G Char Delete"                              2drop
  112.  
  113.                 2 15 at  72 -s
  114.  
  115.                16 17 22  % Ins Insert Tgl"
  116.                      20  % Del Delete cur chr"                          2drop
  117.  
  118.                04 19 27  % Shift-ESC discard & exit"
  119.                      18  % ESC Save & exit"
  120.                      20  % Ctrl-U Save & continue"                      2drop
  121.  
  122.                24 22 36 b% Alt-P = Printing Menu"                       2drop
  123.  
  124.                 2 24 80
  125. r%  Press F1 for the second Help screen, or any other key to continue editing "
  126.                                                                         2drop
  127.                 key     helpkey =
  128.                 if      shelp2
  129.                 then    showscreen ;
  130.  
  131. ' <shelp> is shelp      \ Patch in help messages
  132.  
  133. only forth also definitions
  134.  
  135.