Annotation of freem_fileman/DINIT00Y.m, revision 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>