File:  [Coherent Logic Development] / freem_fileman / USER / DINIT00Y.m
Revision 1.1: download - view: text, annotated - select for diffs
Mon Apr 28 14:13:20 2025 UTC (5 weeks, 5 days ago) by snw
Branches: MAIN
CVS tags: HEAD
Restructure repository

DINIT00Y	; SFISC/TKW-DIALOG & LANGUAGE FILE INITS ; 12/22/94  09:32:23
	;;21.0;VA FileMan;;Dec 28, 1994
	;Per VHA Directive 10-93-142, this routine should not be modified.
	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
Q	Q
	;;^UTILITY(U,$J,.84,9213,2,4,0)
	;;=   Wrap/nowrap mode toggle         <PF2>
	;;^UTILITY(U,$J,.84,9213,2,5,0)
	;;=   Insert/replace mode toggle      <PF3>
	;;^UTILITY(U,$J,.84,9213,2,6,0)
	;;=   Set/clear tab stop              <PF1><Tab>
	;;^UTILITY(U,$J,.84,9213,2,7,0)
	;;=   Set left margin                 <PF1>,
	;;^UTILITY(U,$J,.84,9213,2,8,0)
	;;=   Set right margin                <PF1>.
	;;^UTILITY(U,$J,.84,9213,2,9,0)
	;;=   Status line toggle              <PF1>?
	;;^UTILITY(U,$J,.84,9213,2,10,0)
	;;= 
	;;^UTILITY(U,$J,.84,9213,2,11,0)
	;;= 
	;;^UTILITY(U,$J,.84,9213,2,12,0)
	;;=\BFormatting\n
	;;^UTILITY(U,$J,.84,9213,2,13,0)
	;;= 
	;;^UTILITY(U,$J,.84,9213,2,14,0)
	;;=   Join current line to next line  <PF1>J
	;;^UTILITY(U,$J,.84,9213,2,15,0)
	;;=   Reformat paragraph              <PF1>R
	;;^UTILITY(U,$J,.84,9214,0)
	;;=9214^3^^11
	;;^UTILITY(U,$J,.84,9214,1,0)
	;;=^^1^1^2940624^^^^
	;;^UTILITY(U,$J,.84,9214,1,1,0)
	;;=Screen 4 of Screen Editor help.
	;;^UTILITY(U,$J,.84,9214,2,0)
	;;=^^19^19^2940830^^^
	;;^UTILITY(U,$J,.84,9214,2,1,0)
	;;=                                                           \BHelp Screen 4 of 4\n
	;;^UTILITY(U,$J,.84,9214,2,2,0)
	;;= 
	;;^UTILITY(U,$J,.84,9214,2,3,0)
	;;=\BFinding\n
	;;^UTILITY(U,$J,.84,9214,2,4,0)
	;;= 
	;;^UTILITY(U,$J,.84,9214,2,5,0)
	;;=   Find text                       <PF1>F  or  <Find>
	;;^UTILITY(U,$J,.84,9214,2,6,0)
	;;=   Find next occurence of text     <PF1>N
	;;^UTILITY(U,$J,.84,9214,2,7,0)
	;;=   Find/RePlace text               <PF1>P
	;;^UTILITY(U,$J,.84,9214,2,8,0)
	;;= 
	;;^UTILITY(U,$J,.84,9214,2,9,0)
	;;= 
	;;^UTILITY(U,$J,.84,9214,2,10,0)
	;;=\BCutting/Copying/Pasting\n
	;;^UTILITY(U,$J,.84,9214,2,11,0)
	;;= 
	;;^UTILITY(U,$J,.84,9214,2,12,0)
	;;=   Select (Mark) text              <PF1>M at beginning and end of text
	;;^UTILITY(U,$J,.84,9214,2,13,0)
	;;=   Unselect (Unmark) text          <PF1><PF1>M
	;;^UTILITY(U,$J,.84,9214,2,14,0)
	;;=   Delete selected text            <Delete>  or  <Backspace> on selected text
	;;^UTILITY(U,$J,.84,9214,2,15,0)
	;;=   Cut and save to buffer          <PF1>X on selected text
	;;^UTILITY(U,$J,.84,9214,2,16,0)
	;;=   Copy and save to buffer         <PF1>C on selected text
	;;^UTILITY(U,$J,.84,9214,2,17,0)
	;;=   Paste from buffer               <PF1>V
	;;^UTILITY(U,$J,.84,9214,2,18,0)
	;;=   Move text to another location   <PF1>X at new location
	;;^UTILITY(U,$J,.84,9214,2,19,0)
	;;=   Copy text to another location   <PF1>C at new location
	;;^UTILITY(U,$J,.84,9231,0)
	;;=9231^3^^11
	;;^UTILITY(U,$J,.84,9231,1,0)
	;;=^^1^1^2940706^^
	;;^UTILITY(U,$J,.84,9231,1,1,0)
	;;=Screen 1 of ScreenMan help.
	;;^UTILITY(U,$J,.84,9231,2,0)
	;;=^^18^18^2940831^
	;;^UTILITY(U,$J,.84,9231,2,1,0)
	;;=                                                                \BScreen 1 of 3\n
	;;^UTILITY(U,$J,.84,9231,2,2,0)
	;;=                               \BSCREENMAN HELP\n
	;;^UTILITY(U,$J,.84,9231,2,3,0)
	;;= 
	;;^UTILITY(U,$J,.84,9231,2,4,0)
	;;=\BCursor Movement\n
	;;^UTILITY(U,$J,.84,9231,2,5,0)
	;;= 
	;;^UTILITY(U,$J,.84,9231,2,6,0)
	;;=Move right one character            <Right>
	;;^UTILITY(U,$J,.84,9231,2,7,0)
	;;=Move left one character             <Left>
	;;^UTILITY(U,$J,.84,9231,2,8,0)
	;;=Move right one word                 <Ctrl-L> or <PF1><Space>
	;;^UTILITY(U,$J,.84,9231,2,9,0)
	;;=Move left one word                  <Ctrl-J>
	;;^UTILITY(U,$J,.84,9231,2,10,0)
	;;=Move to right of window             <PF1><Right>
	;;^UTILITY(U,$J,.84,9231,2,11,0)
	;;=Move to left of window              <PF1><Left>
	;;^UTILITY(U,$J,.84,9231,2,12,0)
	;;=Move to end of field                <PF1><PF1><Right>
	;;^UTILITY(U,$J,.84,9231,2,13,0)
	;;=Move to beginning of field          <PF1><PF1><Left>
	;;^UTILITY(U,$J,.84,9231,2,14,0)
	;;= 
	;;^UTILITY(U,$J,.84,9231,2,15,0)
	;;=\BModes\n
	;;^UTILITY(U,$J,.84,9231,2,16,0)
	;;= 
	;;^UTILITY(U,$J,.84,9231,2,17,0)
	;;=Insert/Replace toggle               <PF3>
	;;^UTILITY(U,$J,.84,9231,2,18,0)
	;;=Zoom (invoke multiline editor)      <PF1>Z
	;;^UTILITY(U,$J,.84,9232,0)
	;;=9232^3^^11
	;;^UTILITY(U,$J,.84,9232,1,0)
	;;=^^1^1^2940706^
	;;^UTILITY(U,$J,.84,9232,1,1,0)
	;;=Screen 2 of ScreenMan help.
	;;^UTILITY(U,$J,.84,9232,2,0)
	;;=^^20^20^2940831^
	;;^UTILITY(U,$J,.84,9232,2,1,0)
	;;=                                                                \BScreen 2 of 3\n
	;;^UTILITY(U,$J,.84,9232,2,2,0)
	;;= 

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