Annotation of freem_fileman/DINIT00Y.m, revision 1.1.1.1

1.1       snw         1: DINIT00Y       ; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ; 12/22/94  09:32:23
                      2:        ;;21.0;VA FileMan;;Dec 28, 1994
                      3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
                      4:        F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) S @X=Y
                      5: Q      Q
                      6:        ;;^UTILITY(U,$J,.84,9213,2,4,0)
                      7:        ;;=   Wrap/nowrap mode toggle         <PF2>
                      8:        ;;^UTILITY(U,$J,.84,9213,2,5,0)
                      9:        ;;=   Insert/replace mode toggle      <PF3>
                     10:        ;;^UTILITY(U,$J,.84,9213,2,6,0)
                     11:        ;;=   Set/clear tab stop              <PF1><Tab>
                     12:        ;;^UTILITY(U,$J,.84,9213,2,7,0)
                     13:        ;;=   Set left margin                 <PF1>,
                     14:        ;;^UTILITY(U,$J,.84,9213,2,8,0)
                     15:        ;;=   Set right margin                <PF1>.
                     16:        ;;^UTILITY(U,$J,.84,9213,2,9,0)
                     17:        ;;=   Status line toggle              <PF1>?
                     18:        ;;^UTILITY(U,$J,.84,9213,2,10,0)
                     19:        ;;= 
                     20:        ;;^UTILITY(U,$J,.84,9213,2,11,0)
                     21:        ;;= 
                     22:        ;;^UTILITY(U,$J,.84,9213,2,12,0)
                     23:        ;;=\BFormatting\n
                     24:        ;;^UTILITY(U,$J,.84,9213,2,13,0)
                     25:        ;;= 
                     26:        ;;^UTILITY(U,$J,.84,9213,2,14,0)
                     27:        ;;=   Join current line to next line  <PF1>J
                     28:        ;;^UTILITY(U,$J,.84,9213,2,15,0)
                     29:        ;;=   Reformat paragraph              <PF1>R
                     30:        ;;^UTILITY(U,$J,.84,9214,0)
                     31:        ;;=9214^3^^11
                     32:        ;;^UTILITY(U,$J,.84,9214,1,0)
                     33:        ;;=^^1^1^2940624^^^^
                     34:        ;;^UTILITY(U,$J,.84,9214,1,1,0)
                     35:        ;;=Screen 4 of Screen Editor help.
                     36:        ;;^UTILITY(U,$J,.84,9214,2,0)
                     37:        ;;=^^19^19^2940830^^^
                     38:        ;;^UTILITY(U,$J,.84,9214,2,1,0)
                     39:        ;;=                                                           \BHelp Screen 4 of 4\n
                     40:        ;;^UTILITY(U,$J,.84,9214,2,2,0)
                     41:        ;;= 
                     42:        ;;^UTILITY(U,$J,.84,9214,2,3,0)
                     43:        ;;=\BFinding\n
                     44:        ;;^UTILITY(U,$J,.84,9214,2,4,0)
                     45:        ;;= 
                     46:        ;;^UTILITY(U,$J,.84,9214,2,5,0)
                     47:        ;;=   Find text                       <PF1>F  or  <Find>
                     48:        ;;^UTILITY(U,$J,.84,9214,2,6,0)
                     49:        ;;=   Find next occurence of text     <PF1>N
                     50:        ;;^UTILITY(U,$J,.84,9214,2,7,0)
                     51:        ;;=   Find/RePlace text               <PF1>P
                     52:        ;;^UTILITY(U,$J,.84,9214,2,8,0)
                     53:        ;;= 
                     54:        ;;^UTILITY(U,$J,.84,9214,2,9,0)
                     55:        ;;= 
                     56:        ;;^UTILITY(U,$J,.84,9214,2,10,0)
                     57:        ;;=\BCutting/Copying/Pasting\n
                     58:        ;;^UTILITY(U,$J,.84,9214,2,11,0)
                     59:        ;;= 
                     60:        ;;^UTILITY(U,$J,.84,9214,2,12,0)
                     61:        ;;=   Select (Mark) text              <PF1>M at beginning and end of text
                     62:        ;;^UTILITY(U,$J,.84,9214,2,13,0)
                     63:        ;;=   Unselect (Unmark) text          <PF1><PF1>M
                     64:        ;;^UTILITY(U,$J,.84,9214,2,14,0)
                     65:        ;;=   Delete selected text            <Delete>  or  <Backspace> on selected text
                     66:        ;;^UTILITY(U,$J,.84,9214,2,15,0)
                     67:        ;;=   Cut and save to buffer          <PF1>X on selected text
                     68:        ;;^UTILITY(U,$J,.84,9214,2,16,0)
                     69:        ;;=   Copy and save to buffer         <PF1>C on selected text
                     70:        ;;^UTILITY(U,$J,.84,9214,2,17,0)
                     71:        ;;=   Paste from buffer               <PF1>V
                     72:        ;;^UTILITY(U,$J,.84,9214,2,18,0)
                     73:        ;;=   Move text to another location   <PF1>X at new location
                     74:        ;;^UTILITY(U,$J,.84,9214,2,19,0)
                     75:        ;;=   Copy text to another location   <PF1>C at new location
                     76:        ;;^UTILITY(U,$J,.84,9231,0)
                     77:        ;;=9231^3^^11
                     78:        ;;^UTILITY(U,$J,.84,9231,1,0)
                     79:        ;;=^^1^1^2940706^^
                     80:        ;;^UTILITY(U,$J,.84,9231,1,1,0)
                     81:        ;;=Screen 1 of ScreenMan help.
                     82:        ;;^UTILITY(U,$J,.84,9231,2,0)
                     83:        ;;=^^18^18^2940831^
                     84:        ;;^UTILITY(U,$J,.84,9231,2,1,0)
                     85:        ;;=                                                                \BScreen 1 of 3\n
                     86:        ;;^UTILITY(U,$J,.84,9231,2,2,0)
                     87:        ;;=                               \BSCREENMAN HELP\n
                     88:        ;;^UTILITY(U,$J,.84,9231,2,3,0)
                     89:        ;;= 
                     90:        ;;^UTILITY(U,$J,.84,9231,2,4,0)
                     91:        ;;=\BCursor Movement\n
                     92:        ;;^UTILITY(U,$J,.84,9231,2,5,0)
                     93:        ;;= 
                     94:        ;;^UTILITY(U,$J,.84,9231,2,6,0)
                     95:        ;;=Move right one character            <Right>
                     96:        ;;^UTILITY(U,$J,.84,9231,2,7,0)
                     97:        ;;=Move left one character             <Left>
                     98:        ;;^UTILITY(U,$J,.84,9231,2,8,0)
                     99:        ;;=Move right one word                 <Ctrl-L> or <PF1><Space>
                    100:        ;;^UTILITY(U,$J,.84,9231,2,9,0)
                    101:        ;;=Move left one word                  <Ctrl-J>
                    102:        ;;^UTILITY(U,$J,.84,9231,2,10,0)
                    103:        ;;=Move to right of window             <PF1><Right>
                    104:        ;;^UTILITY(U,$J,.84,9231,2,11,0)
                    105:        ;;=Move to left of window              <PF1><Left>
                    106:        ;;^UTILITY(U,$J,.84,9231,2,12,0)
                    107:        ;;=Move to end of field                <PF1><PF1><Right>
                    108:        ;;^UTILITY(U,$J,.84,9231,2,13,0)
                    109:        ;;=Move to beginning of field          <PF1><PF1><Left>
                    110:        ;;^UTILITY(U,$J,.84,9231,2,14,0)
                    111:        ;;= 
                    112:        ;;^UTILITY(U,$J,.84,9231,2,15,0)
                    113:        ;;=\BModes\n
                    114:        ;;^UTILITY(U,$J,.84,9231,2,16,0)
                    115:        ;;= 
                    116:        ;;^UTILITY(U,$J,.84,9231,2,17,0)
                    117:        ;;=Insert/Replace toggle               <PF3>
                    118:        ;;^UTILITY(U,$J,.84,9231,2,18,0)
                    119:        ;;=Zoom (invoke multiline editor)      <PF1>Z
                    120:        ;;^UTILITY(U,$J,.84,9232,0)
                    121:        ;;=9232^3^^11
                    122:        ;;^UTILITY(U,$J,.84,9232,1,0)
                    123:        ;;=^^1^1^2940706^
                    124:        ;;^UTILITY(U,$J,.84,9232,1,1,0)
                    125:        ;;=Screen 2 of ScreenMan help.
                    126:        ;;^UTILITY(U,$J,.84,9232,2,0)
                    127:        ;;=^^20^20^2940831^
                    128:        ;;^UTILITY(U,$J,.84,9232,2,1,0)
                    129:        ;;=                                                                \BScreen 2 of 3\n
                    130:        ;;^UTILITY(U,$J,.84,9232,2,2,0)
                    131:        ;;= 

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>