\ EDITHELP.SEQ  Help menu words for SED                 by Tom Zimmer

comment:

  This file may be customized for any function key modifications you make.

  Use care when making changes, a "%" symbol starts a message, and a " ends
a message.

comment;

only forth also editor definitions also hidden also

: (%)           ( n1 n2 n3 --- n1 n2 )
                >r 2dup at r> 0 d+ ;

: (.%)          ( n1 n2 n3 --- n1 n2 )
                (%)
                X>"BUF
                count >attrib3
                2dup bl scan dup >r 2swap r> - type
                >norm type ;

: %             ( n1 n2 --- n1 n2 )     \ normal message
                compile (.%) X," ; immediate

: r%            ( n1 n2 --- n1 n2 )     \ reverse message
                compile (%)     compile >rev
                compile (.") X," compile >norm ; immediate

: b%            ( n1 n2 --- n1 n2 )     \ bold message
                compile (%)     compile >attrib3
                compile (.") X," compile >norm ; immediate

: shelp3        ( --- )
                dark cursor-off
               24  1 30 r%  F-PC Editor Specifications "                2drop

               13  5 40  % Maximum Characters in a File"
                     12  %  " maxD.filesize 6 ud.r                      2drop
               13  7 40  % Maximum Lines in a File"
                     12  %  " maxlines 6 u.r                            2drop
               13  9 40  % Maximum Characters in a Line"
                     12  %  " mxlln 6 u.r                               2drop
               13 11 40  % Maximum # of Deleted Lines Saved"
                     12  %  " maxdline 6 u.r                            2drop
               13 13 40  % Printed # of Lines on a Page"
                     12  %  " prtlines 6 u.r                            2drop
               17 24 30  r%  Press any key to return to editing "       2drop
                key drop ;


: shelp2        ( --- )
                dark cursor-off
               25  1 30 r%  F-PC Help Screen 2 "                     2drop

                0  3 15 % F6 = Search"
                     24 % Alt-F6 = Search  again"
                     40 % Shift-Alt-F6 = Srch again Case Sensitive"     2drop

                0  4 15 % F8 = Replace"
                     24 % Alt-F8 = Replace again"
                     40 % Shift-Alt-F8 = Repl again Case Sensitive"     2drop

               13  5 30 % Shift-F8 = Replace All"
                     40 % Shift-F6 = Srch BACK again"                   2drop

                2  6 at  76 -s          \ A horizontal line

               13  7 36  % Alt-W  = Write this text file to a NEW file" 2drop

                5  9 36  % Home   = Goto beginning of Line"
                      36 % Ctrl-Home = Goto beginning of File"          2drop

                5 10 36  % End    = Goto end of Line"
                      36 % Ctrl-End  = Goto end of File"                2drop


                5 12 36  % Ctrl-N = Split line"
                      36 % Ctrl-Y    = Delete a line and save it"       2drop

                5 13  36 % Alt-N  = Join line"
                      36 % Alt-Y     = Undelete a deleted line"         2drop

3 15 at ." *"
                5 15 36  % Alt-X  = Cut from MARK to here"
                      36 % F3        = MARK start line"                 2drop

3 16 at ." *"
                5 16 36  % Alt-C  = Copy from MARK to here"
                      36 % F5        = Copy a line from MARK"           2drop

3 17 at ." *"
                5 17 36  % Alt-V  = Paste Cut/Copied text"              2drop

                5 19 36  % Alt-L  = Set left margin here"
                      36 % Alt-T     = Set tab increment"               2drop

                5 20 36  % Alt-O  = TAB expand, or Ucase/Lcase conv"
                      36 % F10       = Insert any character"            2drop

                2 21 at 76 -s           \ a horizontal line

               24 22 36 b% Alt-P = Printing Menu"                       2drop
                2 23 50
%  * Use SHIFT with these keys to specify the file to Cut, Copy or Paste" 2drop

                1 24 30
r%  Press F1 for the Specification screen, or any other key to return to editing "
                                                                        2drop

                key     helpkey =
                if      shelp3
                then    ;

: <shelp>       ( --- )
                dark cursor-off
               25  1 30 r%  F-PC Help Screen 1 "                        2drop

               18  3 40  % WordStar Compatible Key Sequences"           2drop

                8  7 13  % ^W scrl up"
                     13  % ^E line up"
                     13  % ^R page up"
                     13  % ^T Word Del"
                     13  % ^Y Line Del"                                 2drop

                2  5 at  72 -s

                8 13 13  % ^Z scrl dn"
                     13  % ^X line dn"
                     13  % ^C page dn"
                     13  % ^V INS toggle"                               2drop

                2 10 13  % ^A word"
                     13  % ^S left"
                     13  % ^D right"
                     13  % ^F word"
                     13  % ^G Char Delete"                              2drop

                2 15 at  72 -s

               16 17 22  % Ins Insert Tgl"
                     20  % Del Delete cur chr"                          2drop

               04 19 27  % Shift-ESC discard & exit"
                     18  % ESC Save & exit"
                     20  % Ctrl-U Save & continue"                      2drop

               24 22 36 b% Alt-P = Printing Menu"                       2drop

                2 24 80
r%  Press F1 for the second Help screen, or any other key to continue editing "
                                                                        2drop
                key     helpkey =
                if      shelp2
                then    showscreen ;

' <shelp> is shelp      \ Patch in help messages

only forth also definitions