/ MNHELP - HELP MENU OVERLAYS

/	014	EMcD	13-Jul-84	Remove ref to Documentation
/	013	EJL	16-OCT-84	Changed upper cased words to use !&
/					redesign ifdefs for HELPxx section
/					Broke case table into two parts
/					( increased help menu by 1 block )
/					added help for g:tab, g:tab pos
/					  alt char, udk
/	012	EJL	11-SEP-84	Changed text msg for gold srch
/	011	WCE	07-AUG-84	FIX "GOLD GOLD SPACE" PROBLEM
/	010	WJY	13-FEB-84	DECmate I compatability


/ THIS FILE CONTAINS THE THIRD PART OF THE MENU ASSEMBLY - THAT PART
/ WITH THE HELP MENUS CALLED IN BY THE EDITOR PROGRAM.
/
/ CARE SHOULD BE TAKEN THAT MENUS IN THIS FILE DON'T CALL MENUS CONTAINED
/ IN ANY OTHER PART - WITH THE EXCEPTION OF THE MAIN MENU USING ENTRY 'MM1S'.
/
/	HELP EDIT MENU*****
/	An attempt was made by the programmer to put 2 commands into
/	each block without splitting commands between pages.
/	Although not completely successful most blocks contain 2 commands
/	per page, and some commands cross block boundaries.
/	MODULE NAMES ARE   HLaaa	HL = Gold Commands
/			   HMaaa	HM = Editing Commands
/
/	The dispatch table must be in order of the first Help Menu.
/	and case statement conditionals are contained in WTHLP1.
/
/	An attempt was made to come up with some labeling conventions.
/	For the most part this also was done..
/	labels use
/		CMKXXY	WHERE XX=BLOCK NUMBER CONTAINED IN(DLHLXX)
/				Y= NUMBER OF CONSTANT WITHIN BLK.
/			      CM= COMMON LABEL
/	other conventions tried to use throughout(?)
/		KMCxxy	= KMC block common constant
/			  xx   block number constant contained in
/		KNzzzy	= KN  common to command
/			  zzz abbreviated command name
/
/		HOPE THESE COMMENTS ARE HELPFUL

/ HELP EDIT MENU

	RELOC
	FIELD 1			/ BEGIN ASSEMBLING MENU'S IN FIELD ONE
	*0

	RELOC
	ADHLP0=.
	X=DLHLP0		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HELP00,	DISP;0;TEXT '!E--!&HELP !&MENU--'
	DISP;0117;TEXT '&GOLD &KEY &FUNCTIONS'
	DISP;0163;TEXT '&EDITING &KEYS  &MISC. &KEYS'			/C013
	DISP;0217;TEXT '------------------'
	DISP;0263;TEXT '------------  ----------'			/C013

/ MISCELLANEOUS KEYS - PRINTED FIRST BECAUSE CANT DISPLAY GREATER THAN 77 OCT.

/******************* START OF COLUMN NUMBER 5 *******************
	Q=0277
/****************************************************************

	Q=Q+100; DISP; Q; TEXT '  !&ALT !&CHAR'				/C013

	IFDEF	CONDOR	<
	Q=Q+100; DISP; Q; TEXT '  !&CTRL &RUBOUT <&X&]'			/C013
	Q=Q+100; DISP; Q; TEXT '  !&FIND'				/C013
			>	/ END IFDEF CONDOR

	Q=Q+100; DISP; Q; TEXT '  !&HYPH !&PUSH'			/C013

	IFDEF	CONDOR	<
	Q=Q+100; DISP; Q; TEXT '  !&INSERT !&HERE'			/C013
	Q=Q+100; DISP; Q; TEXT '  !&NEXT !&SCREEN'			/C013
	Q=Q+100; DISP; Q; TEXT '  !&PREV !&SCREEN'			/C013
	Q=Q+100; DISP; Q; TEXT '  !&REMOVE'				/C013
	Q=Q+100; DISP; Q; TEXT '  &RUBOUT <&X&]'			/C013
			>	/ END IFDEF CONDOR

	IFNDEF	CONDOR	<
	Q=Q+100; DISP; Q; TEXT '  !&RUB !&CHAR !&OUT'			/C013
	Q=Q+100; DISP; Q; TEXT '  !&RUB !&WORD !&OUT'			/C013
			>	/ END IFNDEF CONDOR

	IFDEF	CONDOR	<
	Q=Q+100; DISP; Q; TEXT '  !&SELECT'				/C013
			>	/ END IFDEF CONDOR

	IFNDEF	CONDOR	<
	Q=Q+100; DISP; Q; TEXT '  !&SWAP'				/C013
			>	/ END IFNDEF CONDOR

	Q=Q+100; DISP; Q; TEXT '  !&UDK'				/C013
	Q=Q+100; DISP; Q; TEXT '  ^A'; UPARRW				/C013
	Q=Q+100; DISP; Q; TEXT '  V'					/C013

	IFDEF	CONDOR	<
	Q=Q+100; DISP; Q; TEXT '  <-'					/C013
	Q=Q+100; DISP; Q; TEXT '  ->'					/C013
			> 	/ END IFDEF CONDOR

/******************* START OF COLUMN NUMBER 1 *******************
	Q=0201
/****************************************************************

	Q=Q+100; DISP; Q; TEXT '!&ABBRV'
	Q=Q+100; DISP; Q; TEXT '!&ADVANCE'
	Q=Q+100; DISP; Q; TEXT '!&BACKUP'
	Q=Q+100; DISP; Q; TEXT '!&BOLD'

	TRNSFR;HELPAA;DLHLP1

UPARRW,	136;0			/ CODE FOR DISPLAYING AN UP ARROW

	XTRLP0=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHLP1=.
	X=DLHLP1		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HELPAA,	Q=Q+100; DISP; Q; TEXT '!&BOT !&DOCMT'
	Q=Q+100; DISP; Q; TEXT '!&CENTR'
	Q=Q+100; DISP; Q; TEXT '!&CMND'
	Q=Q+100; DISP; Q; TEXT '!&CONT !&SRCH'
	Q=Q+100; DISP; Q; TEXT '!&CONT !&SRCH !C& !&SEL'		/C013

	IFDEF	CONDOR	<
	Q=Q+100; DISP; Q; TEXT '!&CTRL &RUBOUT <&X&]'			/C013
			>	/ END IFDEF CONDOR

	Q=Q+100; DISP; Q; TEXT '!&CUT'
	Q=Q+100; DISP; Q; TEXT '!&DATE !C& !&TIME'			/C013
	Q=Q+100; DISP; Q; TEXT '!&DEAD !&KEY'
	Q=Q+100; DISP; Q; TEXT '!&DEL !&CHAR OR !&WORD'
	Q=Q+100; DISP; Q; TEXT '!&FILE !&DOCMT'
	Q=Q+100; DISP; Q; TEXT '!&GET !&DOCMT'

/******************* START OF COLUMN NUMBER 2 *******************
	IFNDEF CONDOR <	Q=0223 >
/****************************************************************

	Q=Q+100; DISP; Q; TEXT '!&HALT'

/******************* START OF COLUMN NUMBER 2 *******************
	IFDEF CONDOR < Q=0223 >
/****************************************************************

	Q=Q+100; DISP; Q; TEXT '!&HYPH !&PULL'
	Q=Q+100; DISP; Q; TEXT '!&INSERT !&HERE'
	Q=Q+100; DISP; Q; TEXT '!&LIBRY'
	Q=Q+100; DISP; Q; TEXT '!&MENU'
	Q=Q+100; DISP; Q; TEXT '!&NEW !&PAGE'
	Q=Q+100; DISP; Q; TEXT '!&PAGE'
	Q=Q+100; DISP; Q; TEXT '!&PAGE !&MARKER'
	Q=Q+100; DISP; Q; TEXT '!&PARA !&MARKER'
	Q=Q+100; DISP; Q; TEXT '!&PASTE'
	Q=Q+100; DISP; Q; TEXT '!&PRINT !&HYPH'

	TRNSFR;HELPBB;DLHLP2

	XTRLP1=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHLP2=.
	X=DLHLP2		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HELPBB,	IFDEF	CONDOR	<
	Q=Q+100; DISP; Q; TEXT '!&REMOVE'
			>	/ END IFDEF CONDOR

	Q=Q+100; DISP; Q; TEXT '!&REPLC'

	IFDEF	CONDOR	<
	Q=Q+100; DISP; Q; TEXT '&RUBOUT <&X&]'				/C013
			>	/ END IFDEF CONDOR

	IFNDEF	CONDOR	<
	Q=Q+100; DISP; Q; TEXT '!&RUB !&LINE'
	Q=Q+100; DISP; Q; TEXT '!&RUB !&SENT'
			> 	/ END IFNDEF CONDOR
	Q=Q+100; DISP; Q; TEXT '!&RULER'
	Q=Q+100; DISP; Q; TEXT '!&SHIFT !&PRINT !&HYPH' / MUST BE IN COLUMN 2

/******************* START OF COLUMN NUMBER 3 *******************
	IFNDEF CONDOR <	Q=0245 >					/C013
/****************************************************************

	Q=Q+100; DISP; Q; TEXT '&SPACE'
	Q=Q+100; DISP; Q; TEXT '!&SRCH'

/******************* START OF COLUMN NUMBER 3 *******************
	IFDEF CONDOR < Q=0245 >						/C013
/****************************************************************

	Q=Q+100; DISP; Q; TEXT '!&SRCH !&PAGE'
	Q=Q+100; DISP; Q; TEXT '!&SUB !&SCRIPT'
	Q=Q+100; DISP; Q; TEXT '!&SUPER !&SCRIPT'

	IFDEF	CONDOR	<
	Q=Q+100; DISP; Q; TEXT '!&SWAP  (<>)'
			> 	/ END IFDEF CONDOR

	Q=Q+100; DISP; Q; TEXT '!&TAB'
	Q=Q+100; DISP; Q; TEXT '!&TAB !&POS'
	Q=Q+100; DISP; Q; TEXT '!&TOP !&DOCMT'
	Q=Q+100; DISP; Q; TEXT '!&UNDERLINE'
	Q=Q+100; DISP; Q; TEXT '!&UPPERCASE'
	Q=Q+100; DISP; Q; TEXT '!&VIEW'

	IFNDEF	CONDOR	<
	Q=Q+100; DISP; Q; TEXT '^A (!&PREV !&SCREEN)';UPAROW
	Q=Q+100; DISP; Q; TEXT 'V (!&NEXT !&SCREEN)'			/C013
			> 	/ END IFNDEF CONDOR

	IFDEF	CONDOR	<
	Q=Q+100; DISP; Q; TEXT '^A'; UPAROW
	Q=Q+100; DISP; Q; TEXT 'V'					/C013
	Q=Q+100; DISP; Q; TEXT '<-'					/C013
	Q=Q+100; DISP; Q; TEXT '->'					/C013
			> 	/ END IFDEF CONDOR

/******************* START OF COLUMN NUMBER 4 *******************
	Q=0264								/C013
/****************************************************************

	Q=Q+100; DISP; Q; TEXT '!&ADVANCE'
	Q=Q+100; DISP; Q; TEXT '!&BACKUP'
	Q=Q+100; DISP; Q; TEXT '!&BOLD'
	Q=Q+100; DISP; Q; TEXT '!&CUT'
	Q=Q+100; DISP; Q; TEXT '!&DEL !&CHAR'
	Q=Q+100; DISP; Q; TEXT '!&DEL !&WORD'
	Q=Q+100; DISP; Q; TEXT '!&LINE'

	TRNSFR;HELPCC;DLHLP3

UPAROW,	136;0

	XTRLP2=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHLP3=.
	X=DLHLP3		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HELPCC,	Q=Q+100; DISP; Q; TEXT '!&PAGE'
	Q=Q+100; DISP; Q; TEXT '!&PARA'
	Q=Q+100; DISP; Q; TEXT '!&PASTE'
	Q=Q+100; DISP; Q; TEXT '!&SEL'
	Q=Q+100; DISP; Q; TEXT '!&SENT'
	Q=Q+100; DISP; Q; TEXT '!&TAB !&POS'
	Q=Q+100; DISP; Q; TEXT '!&UNDERLINE'
	Q=Q+100; DISP; Q; TEXT '!&UPPERCASE'
	Q=Q+100; DISP; Q; TEXT '!&WORD'
	Q=Q+100; DISP; Q; TEXT '<>'	  / ENTER KEY			/C013

HELP19,	IFDEF	HELPDO	<
	DISP; 2412; TEXT '&PRESS !&ADVANCE OR !&BACKUP TO MOVE CURSOR.'
	DISP; 2512; TEXT '^S&D&O TO DO FUNCTION.'; HLPIN3
			> 	/ END IFDEF HELPDO

	IFNDEF	HELPDO	<
	DISP; 2512; TEXT '&PRESS !&ADVANCE OR !&BACKUP TO MOVE CURSOR.'
			> 	/ END IFNDEF HELPDO

	DISP; 2612; TEXT '^S!&HELP KEY FOR MORE INFORMATION ON SELECTED'
	HLPIN3

	DISP;-1; TEXT ' FUNCTION'
	DISP;2712;TEXT '^S!&RETURN !&OR &GOLD !&MENU TO RESUME EDITING.'
	HLPIN3
	RETURN

HLPIN3,	TEXT '!&OR PRESS '

	XTRLP3=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL01=.
	X=DLHL01		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

/ ENTRY POINT FOR HELP TEXT DISPLAY
/ MNTMP1 = OFFSET IN DISPLAY TABLE AS DEFINED IN WTHLP1

/ HLPXXX=BLOCK ENTRY POINT OF TEXT BLOCK XXX
/ CASE TABLE EQUATES = OFFSET IN TABLE
/ MUST EQUATE TO POSITION IN ADHL01,ADHL02 MENU BLOCKS

HLPENT,	DISP;0;TEXT '!E --&HELP FOR '	/ CLEAR SCREEN AND DISPLAY TITLE
	RANGE;MNTMP1;HABBR;HVIEW;HLPEDA	/ CHECK FOR A GOLD KEY FUNCTION
	DISP;-1;TEXT '&GOLD '		/ YES, ADD WORD "GOLD" TO TITLE

HLPEDA,	CASE;MNTMP1
	    HABBR;-1-HLABBR;DLHL12	/ GOLD: ABBREVIATION
	    HADV;-1-HLADV;DLHL03	/ GOLD: ADVANCE
	    HBACK;-1-HLBACK;DLHL03	/ GOLD: BACKUP
	    HBOLD;-1-HLBOLD;DLHL26	/ GOLD: UN BOLD
	    HBOTT;-1-HLBOTT;DLHL04	/ GOLD: BOTTOM OF DOC
	    HCNTR;-1-HLCNTR;DLHL25	/ GOLD: CENTER
	    HCMND;-1-HLCMND;DLHL05	/ GOLD: COMMAND
	    HCONTS;-1-HLCONT;DLHL04	/ GOLD: CONTINUE SEARCH
	    HCNTSS;-1-HLCNTS;DLHL21	/ GOLD: CONTINUE SEARCH AND SELECT

	IFDEF	CONDOR	<						/A010
	    HRUBS;-1-HLRUBS;DLHL31	/ GOLD: RUBBOUT SENTENCE
			>		/ END IFDEF CONDOR		/A010

	    HCUT;-1-HLCUT;DLHL06	/ GOLD: CUT
	    HDATM;-1-HLDATM;DLHL10	/ GOLD: DATE AND TIME
	    HDEAD;-1-HLDEAD;DLHL24	/ GOLD: DEAD KEY
	    HDELTX;-1-HLDELTX;DLHL23	/ GOLD: DELETE TEXT
	    HFILE;-1-HLFILE;DLHL11	/ GOLD: FILE DOCUMENT
	    HGET;-1-HLGET;DLHL11	/ GOLD: GET DOCUMENT
	    HLHLT;-1-HLHALT;DLHL30	/ GOLD: HALT
	    HHYPUL;-1-HLHYPU;DLHL22	/ GOLD: HYPHEN PULL
	    HINSH;-1-HLLINS;DLHL44	/ GOLD: INSERT HERE = GOLD: PASTE
	    HLIBRY;-1-HLLIBR;DLHL13	/ GOLD: LIBRARY
	    HMENU;-1-HLMENU;DLHL15	/ GOLD: MENU
	    HNEWP;-1-HLNEWP;DLHL10	/ GOLD: NEW PAGE
	    HPAGE;-1-HLPAGE;DLHL30	/ GOLD: PAGE
	    HPMARK;-1-HLMARK;DLHL25	/ GOLD: PAGE MARKER
	    HPAMAR;-1-HLPAMA;DLHL16	/ GOLD: PARAGRAPH MARKER
	    HPASTE;-1-HLPAST;DLHL13	/ GOLD: PASTE
	    HPHYP;-1-HLPHYP;DLHL02	/ GOLD: PRINT HYPEN

	IFDEF	CONDOR	<						/A010
	    HREMV;-1-HLLREM;DLHL44	/ GOLD: REMOVE = GOLD CUT
			>		/ END IFDEF CONDOR		/A010

	    HREPL;-1-HLREPL;DLHL16	/ GOLD: REPLACE
	    HRUBL;-1-HLRUBL;DLHL15	/ GOLD: RUBOUT LINE

	IFNDEF	CONDOR	<						/A010
	    HRUBS;-1-HLRUBS;DLHL31	/ GOLD: RUB SENT		/A010
			>		/ END IFNDEF CONDOR		/A010

	    HRULER;-1-HLRULE;DLHL05	/ GOLD: RULER
	    HSRCHP;-1-HLPSRC;DLHL06	/ GOLD: SEARCH PAGE
	    HINVPR;-1-HLINVP;DLHL14	/ GOLD: INVISIBLE PRINT
	    HSPACE;-1-HLSPAC;DLHL46	/ GOLD: NON-BREAKING SPACE
	    HSRCH;-1-HLSRCH;DLHL17	/ GOLD: SEARCH
	    HSUBSC;-1-HLSUBS;DLHL20	/ GOLD: SUBSCRIPT
	    HSUPER;-1-HLSUPE;DLHL20	/ GOLD: SUPER SCRIPT

	IFDEF	CONDOR	<						/A010
	    HSWAP;-1-HLSWAP;DLHL22	/ GOLD: SWAP
			>		/ END IFDEF CONDOR		/A010

	    HTAB;-1-HLTAB;DLHL53	/ GOLD: TAB
	    HTABP;-1-HLTABP;DLHL53	/ GOLD: TAB POS
	    HTOPD;-1-HLTOPD;DLHL32	/ GOLD: TOP DOCUMENT
	    HUNDER;-1-HLUNDE;DLHL26	/ GOLD: UNDERLINE
	    HUPPER;-1-HLUPER;DLHL23	/ GOLD: UPPERCASE
	    HVIEW;-1-HLVIEW;DLHL27	/ GOLD: VIEW

	IFDEF	CONDOR	<						/A010
	    HUPAR;-1-HLLUP;DLHL44	/ GOLD: UP ARROW
	    HDNAR;-1-HLLDN;DLHL44	/ GOLD: DOWN ARROW
	    HLFAR;-1-HLLLF;DLHL45	/ GOLD: LEFT ARROW
	    HRTAR;-1-HLLRT;DLHL45	/ GOLD: RIGHT ARROW
			>		/ END IFDEF CONDOR		/A010

	IFNDEF	CONDOR	<						/A010
	    HRPREV;-1-HNPREV;DLHL50	/ GOLD: UP ARROW   (PREV SCREEN)/A010
	    HRNEXT;-1-HNNEXT;DLHL50	/ GOLD: DOWN ARROW (NEXT SCREEN)/A010
			>		/ END INFDEF CONDOR		/A010

	TRNSFR;TWOBIG;DL2BIG		/ GO CHECK THE REST OF THE TABLE

	XTRL01=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	AD2BIG=.
	X=DL2BIG		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

/ TABLE GOT TO BIG SO IT GOT SPLIT INTO TWO PICES.
/	THE FOLLOWING REPRESENTS THE EDITING KEYS AND MUST BE
/	IN THE SAME SEQUENCE AS IN WTHLP1.PA

TWOBIG,	CASE; MNTMP1
	    HKADV;-1-HMADV;DLHL33	/ ADVANCE ONE CHARACTER
	    HKBACK;-1-HMBACK;DLHL33	/ BACKUP ONE CHARACTER
	    HKBOLD;-1-HMBOLD;DLHL34	/ BOLD
	    HKCUT;-1-HMCUT;DLHL07	/ CUT
	    HKDELC;-1-HMDELC;DLHL35	/ DELETE CHARACTER
	    HKDELW;-1-HMDELW;DLHL35	/ DELETE WORD
	    HKLINE;-1-HMLINE;DLHL36	/ MOVE BY LINE
	    HKPAGE;-1-HMPAGE;DLHL36	/ MOVE BY PAGE
	    HKPARA;-1-HMPARA;DLHL36	/ MOVE BY PARAGRAPH
	    HKPAST;-1-HMPAST;DLHL37	/ PASTE
	    HKSEL;-1-HMSEL;DLHL41	/ SELECT
	    HKSENT;-1-HMSENT;DLHL40	/ MOVE BY SENTENCE
	    HKTABP;-1-HMTABP;DLHL40	/ MOVE BY TAB POSITION
	    HKUNDE;-1-HMUNDE;DLHL42	/ UNDERLINE
	    HKUPPE;-1-HMUPPE;DLHL42	/ UPPER CASE
	    HKWORD;-1-HMWORD;DLHL43	/ MOVE BY WORD
	    HKENTE;-1-HMENTE;DLHL43	/ ENTER KEY

	IFDEF	CONDOR	<						/A010
	    HALTC;-1-HLALTC;DLHL54	/ ALTERNATE CHARACTER
	    HRUBW;-1-HLRUBW;DLHL52	/ CTRL RUBOUT = RUB WORD OUT	/A010
	    HRFIND;-1-HNFIND;DLHL45	/ FIND = GOLD SEARCH		/C007
			>		/ END IFDEF CONDOR		/A010

	    HRHYPP;-1-HNHYPP;DLHL46	/ HYPH PUSH			/C007

	IFDEF	CONDOR	<						/A010
	    HRINSH;-1-HNINSH;DLHL44	/ INSERT HERE = PASTE
	    HRNEXT;-1-HNNEXT;DLHL50	/ NEXT SCREEN
	    HRPREV;-1-HNPREV;DLHL50	/ PREV SCREEN
	    HRREMV;-1-HNREMV;DLHL44	/ REMOVE = CUT
			>		/ END IFDEF CONDOR		/A010

	    HRUBC;-1-HLRUBC;DLHL52	/ RUBOUT = RUB CHAR OUT		/A010

	IFNDEF	CONDOR	<						/A010
	    HRUBW;-1-HLRUBW;DLHL52	/ RUB WORD OUT			/A010
	    HSWAP;-1-HLSWAP;DLHL22	/ SWAP				/A010
			>		/ END IFNDEF CONDOR		/A010

	IFDEF	CONDOR	<						/A010
	    HRSEL;-1-HNSEL;DLHL45	/ SELECT = SELECT
			>		/ END IFDEF CONDOR		/A010


	    HUDK;-1-HLUDK;DLHL54	/ UDK
	    HRUP;-1-HNUP;DLHL47		/ UP ARROW
	    HRDN;-1-HNDN;DLHL47		/ DOWN ARROW

	IFDEF	CONDOR	<						/A010
	    HRLF;-1-HNLF;DLHL51		/ LFT ARROW
	    HRRT;-1-HNRT;DLHL51		/ RGHT ARROW
			>		/ END IFDEF CONDOR		/A010

/****	ALL DISPLAYS WILL RETURN HERE  TO AWAIT CHAR INPUT TO CONTINUE
/	RETURN TO EDITOR WITH 0 IN MNTMP1 TO RESUME WITH
/	HELP COMMAND MENU WITH NON ZERO TO RETURN TO EDITOR

	XTRBIG=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL02=.
	X=DLHL02		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HLPRET,
/d014	DISP;1504;TEXT '&FOR MORE INFORMATION, SEE THE &WORD '		/C013
/d014	DISP;-1;TEXT "&PROCESSING &USER'S &GUIDE, &CHAPTER !D.";MNTMP2	/C013

	IFDEF HELPDO  <
	DISP;2217;TEXT '&PRESS &D&O TO DO '
HLPRE2,	RANGE;MNTMP1;HABBR;HVIEW;HLPEDB
	DISP;-1;TEXT '&GOLD '
HLPEDB,	DISP;-1;TEXT 'FUNCTION'
	DISP;2317;TEXT '!&OR !&RETURN TO RETURN TO &GOLD &KEY &HELP &MENU'
			>	/ END IFDEF HELPDO

	IFNDEF HELPDO	<
	DISP;2317;TEXT '&PRESS !&RETURN TO RETURN TO &GOLD &KEY &HELP &MENU'
			>	/ END IFNDEF HELPDO

	DISP;2417;TEXT '!&OR &GOLD !&MENU TO RESUME EDITING'

HLPRED,	READ;MNTMP1;HLPGLD
	ARG;HLPSET;MNTMP1
HLPERR,	DISP;3000;TEXT '!E^CG'
	GOTO;HLPRED

HLPGLD,	CASE;MNSYSA		/ CHECK TERMINATION KEY
	EDMENU&3777;HLPEDT	/ RETURN TO EDIT MODE

	IFDEF	HELPDO	<
	EDDO&3777;  HLPDOO	/ DO IT
			>	/ END IFDEF HELPDO

	GOTO;HLPERR

HLPSET,	SET;0;MNTMP1
	RETURN

	IFDEF	HELPDO	<
HLPDOO,	SET;-1;MNTMP1		/-1=DO IT
	RETURN
			>	/ END IFDEF HELPDO

HLPEDT,	SET;1;MNTMP1		/1=RETURN TO EDIT
	RETURN

HLPHYP,	DISP;HLPLNS;TEXT '^S--';KNHYP1
	DISP;HLPLNA
	TEXT '^S^S, &D&E&CMATE INSERTS A !&BREAKING !&HYPHEN IN THE'
	CMK02A;KNHYP1
	TRNSFR;-1-HLHYPA;DLHL27

KNHYP1,	TEXT '!&PRINT !&HYPH'
CMK02A,	TEXT '&WHEN YOU PRESS &GOLD '

	XTRL02=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL03=.
	X=DLHL03		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HLBACK,	DISP;HLPLNS;TEXT '^S--';KNBK1
	DISP;HLPLNA;TEXT '^S^S, ^S BEGINS SCROLLING BACKWARD THROUGH THE'
	CMK03A;KNBK1;CMK03B
	DISP;HLPLNB
	TEXT 'DOCUMENT.  &THE TEXT MOVES DOWNWARD ON THE SCREEN.  ^S ';CMK03B
	DISP;-1;TEXT 'DOES NOT STOP'
	DISP;HLPLNC;TEXT '^STOP^S';CMK03C;CMK03D
	SET;4;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KNBK1,	TEXT '!&BACKUP'

HLADV,	DISP;HLPLNS;TEXT '^S--';KNADV1
	DISP;HLPLNA;TEXT '^S^S, ^S BEGINS SCROLLING FORWARD THROUGH THE'
	CMK03A;KNADV1;CMK03B
	DISP;HLPLNB
	TEXT 'DOCUMENT.  &THE TEXT MOVES UPWARD ON THE SCREEN.  ^S ';CMK03B
	DISP;-1;TEXT 'DOES NOT STOP'
	DISP;HLPLNC;TEXT '^SBOTTOM^S';CMK03C;CMK03D
	SET;4;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KNADV1,	TEXT '!&ADVANCE'
CMK03A,	TEXT '&WHEN YOU PRESS &GOLD '
CMK03B,	TEXT '&D&E&CMATE'
CMK03C,	TEXT 'UNTIL IT REACHES THE '
CMK03D,	TEXT ' OF THE DOCUMENT OR UNTIL YOU PRESS &GOLD !&HALT.'

	XTRL03=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL04=.
	X=DLHL04		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HLBOTT,	DISP;HLPLNS;TEXT '^S--';KNBOT1
	DISP;HLPLNA;TEXT '^S^S,^S MOVES THE CURSOR TO THE'
	CMK04A;KNBOT1;CMK04B
	DISP;HLPLNB;TEXT 'BOTTOM OF THE DOCUMENT.  '
	DISP;-1;TEXT'&THE SCREEN SHOWS A REPOSITIONING MESSAGE'
	DISP;HLPLNC;TEXT 'UNTIL &D&E&CMATE REACHES THE BOTTOM OF THE DOCUMENT.'
	SET;4;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KNBOT1,	TEXT '!&BOT !&DOCMT'

HLCONT,	DISP;HLPLNS;TEXT '^S--';KNCNT1
	DISP;HLPLNA;TEXT '^S^S,^S CONTINUES SEARCHING IN THE SAME'
	CMK04A;KNCNT1;CMK04B
	DISP;HLPLNB
	TEXT 'DIRECTION FOR THE SAME WORD OR PHRASE IT SEARCHED FOR LAST TIME.'
	DISP;HLPLNC;TEXT '&IT DOES NOT PROMPT YOU TO ENTER THE PHRASE AGAIN.'
	SET;16;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KNCNT1,	TEXT '!&CONT !&SRCH'
CMK04A,	TEXT '&WHEN YOU PRESS &GOLD '
CMK04B,	TEXT ' &D&E&CMATE'

	XTRL04=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL05=.
	X=DLHL05		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HLCMND,	DISP;HLPLNS;TEXT '^S--';KNCMD1
	DISP;HLPLNA;TEXT '^S^S,^S INSERTS A !&START^S AND'
	CMK05A;KNCMD1;CMK05B;KNCMD2
	DISP;HLPLNB
	TEXT 'ENTERS COMMAND MODE.  &YOU MAY THEN GIVE^S A CONTROL COMMAND.'
	CMK05B
	DISP;HLPLNC
	TEXT '&WHEN YOU ARE DONE, PRESS &GOLD ^S AGAIN;^S INSERTS AN'
	KNCMD1;CMK05B
	DISP;HLPLND;TEXT '&E&N&D^S.';KNCMD2
	SET;12;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KNCMD1,	TEXT '!&CMND'
KNCMD2,	TEXT ' !&CONTROL MARKER'

HLRULE,	DISP;HLPLNS;TEXT '^S--';KNRUL1
	DISP;HLPLNA;TEXT '^S^S,^S DISPLAYS THE CURRENT RULER SETTINGS.'
	CMK05A;KNRUL1;CMK05B
	DISP;HLPLNB;TEXT '&YOU CAN CHANGE THE MARGINS, OR PUT IN '
	DISP;-1;TEXT 'TAB POSITIONS, CENTERING MARKS,'
	DISP;HLPLNC;TEXT 'PARAGRAPH INDENTS, AND SO FORTH.'
	SET;5;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KNRUL1,	TEXT '!&RULER'
CMK05A,	TEXT '&WHEN YOU PRESS &GOLD '
CMK05B,	TEXT ' &D&E&CMATE'

	XTRL05=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL06=.
	X=DLHL06		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HLPSRC,	DISP;HLPLNS;TEXT '^S^S--';KNSCH1;KNSCH2
	DISP;HLPLNA
   TEXT '&YOU CAN USE &GOLD ^S TO MOVE THE CURSOR TO A SPECIFIC PAGE.  &PRESS'
	KNSCH1
	DISP;HLPLNB
	TEXT '&GOLD ^S, THEN PRESS^S, ENTER THE PAGE NUMBER AND PRESS !&RETURN.'
	KNSCH1;KNSCH2
	DISP;HLPLNC
	TEXT '^S MOVES THE CURSOR TO THAT PAGE.  !&NOTE: &GOLD ^S^S ONLY WORKS'
	CMK06B;KNSCH1;KNSCH2
	DISP;HLPLND;TEXT 'ON DOCUMENTS WITH PAGE-END MARKS IN THEM.'
	SET;16;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KNSCH1,	TEXT '!&SRCH'
KNSCH2,	TEXT ' !&PAGE'

HLCUT,	DISP;HLPLNS;TEXT '!&CUT--'
	DISP;HLPLNA;TEXT '&USE &GOLD !&CUT TO COPY^SCOPY; PUT A';KMCUTB
	TRNSFR;-1-HLCUTA;DLHL07

KMCUTB,	TEXT ' TEXT.  &FIRST SELECT THE TEXT YOU WANT TO '
CMK06B,	TEXT '&D&E&CMATE'

	XTRL06=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL07=.
	X=DLHL07		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HLCUTA,	DISP;HLPLNB;TEXT '^S&GOLD ^S.';KMCUT3;KMCUT1
	DISP;HLPLNC
	TEXT '^S COPIES THE TEXT INTO^S AREA WITHOUT REMOVING IT FROM'
	CMK07B;KMCUT4
	DISP;HLPLND
	TEXT '^S.  &GOLD ^S WILL ALSO COPY THE RULERS OF THE TEXT.'
	KMCUT5;KMCUT1
	SET;7;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

HMCUT,	DISP;HLPLNS;TEXT '^S--';KMCUT1
	DISP;HLPLNA;TEXT '&USE ^S TO MOVE OR DELETE^SMOVE;';KMCUT1;KMCUT2
	DISP;HLPLNB;TEXT 'PUT A ^S^S.';KMCUT3;KMCUT1
	DISP;HLPLNC;TEXT '^S MOVES THE TEXT AND RULERS OUT OF ^S, INTO^S'
	CMK07B;KMCUT5;KMCUT4
	DISP;HLPLND;TEXT 'AREA.  &ANY TEXT ALREADY IN^S AREA IS DESTROYED.'
	KMCUT4
	SET;7;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KMCUT1,	TEXT '!&CUT'
KMCUT2,	TEXT ' TEXT.  &FIRST SELECT THE TEXT YOU WANT TO '
KMCUT3,	TEXT 'SELECT MARK AT ONE END AND THE CURSOR AT THE OTHER.  &THEN PRESS '
KMCUT4,	TEXT ' THE PASTE'
KMCUT5,	TEXT 'THE DOCUMENT'
CMK07B,	TEXT '&D&E&CMATE'

	XTRL07=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL10=.
	X=DLHL10		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HLNEWP,	DISP;HLPLNS;TEXT '^S--';KNEWP1
	DISP;HLPLNA;TEXT '^S^S, ^S INSERTS A ^S MARK IN THE TEXT.'
	CMK10A;KNEWP1;CMK10B;KNEWP1
	DISP;HLPLNB
TEXT '&THIS MARK IS NOT PRINTED.  &IT FORCES THE TEXT FOLLOWING THE ^S MARK'
	KNEWP1
	DISP;HLPLNC;TEXT 'TO THE TOP OF THE NEXT PRINTED PAGE.'
	SET;11;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KNEWP1,	TEXT '!&NEW !&PAGE'

HLDATM,	DISP;HLPLNS;TEXT '^S!C& !&TIME--';KNDAT1
	DISP;HLPLNA;TEXT '^S^S!C& !&TIME, ^S INSERTS THE CURRENT DATE AND'
	CMK10A;KNDAT1;CMK10B
	DISP;HLPLNB;TEXT 'TIME INTO YOUR DOCUMENT.  '
	DISP;-1;TEXT '&HERE IS AN EXAMPLE: 9/24/84 &MON 12:51:25'
	DISP;HLPLNC
	TEXT '^S DOES NOT UPDATE THE DATE AND TIME RECORDED IN YOUR DOCUMENT.'
	CMK10B
	SET;3;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KNDAT1,	TEXT '!&DATE '
CMK10A,	TEXT '&WHEN YOU PRESS &GOLD '
CMK10B,	TEXT '&D&E&CMATE'

	XTRL10=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL11=.
	X=DLHL11		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HLFILE,	DISP;HLPLNS;TEXT '^S--';KNFLE1
	DISP;HLPLNA;TEXT '^S^S, ^SENDS YOUR EDITING SESSION ON THE'
	CMK11A;KNFLE1;CMK11B
	DISP;HLPLNB;TEXT '^S^S.  ^SFILES THE ^S, WITH ALL THE CHANGES YOU'
	CMKRU1;CMKRU2;CMK11B;CMKRU2
	DISP;HLPLNC;TEXT 'HAVE PUT IN, AND DISPLAYS THE &MAIN &MENU.'
	SET;4;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KNFLE1,	TEXT '!&FILE !&DOCMT'

HLGET,	DISP;HLPLNS;TEXT '^S--';KNGET1
	DISP;HLPLNA;TEXT '^S^S, ^SASKS YOU FOR^S OR NUMBER'
	CMK11A;KNGET1;CMK11B;KNGET3
	DISP;HLPLNB;
	TEXT 'OF THE ^S YOU WANT TO GET.  &ENTER^S AND PRESS !&RETURN.'
	CMKRU2;KNGET3
	DISP;HLPLNC;TEXT '^SCOPIES^SD ^S INTO YOUR ^S^S, STARTING'
	CMK11B;KNGET3;CMKRU2;CMKRU1;CMKRU2
	DISP;HLPLND;TEXT 'AT THE ^SPOSITION OF THE CURSOR.'
	CMKRU1
	SET;7;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KNGET1,	TEXT '!&GET !&DOCMT'
KNGET3,	TEXT ' THE NAME'
CMKRU1,	TEXT 'CURRENT '
CMKRU2,	TEXT 'DOCUMENT'
CMK11A,	TEXT '&WHEN YOU PRESS &GOLD '
CMK11B,	TEXT '&D&E&CMATE '

	XTRL11=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL12=.
	X=DLHL12		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HLABBR,	DISP;HLPLNS;TEXT '^S--';KNAB1
	DISP;HLPLNA
	TEXT '&YOU CAN SET UP AN !&^S !&DOCUMENT CONTAINING A LIST OF PHRASES'
	KNAB2
	DISP;HLPLNB;TEXT 'AND THEIR^S ^SS.  ^S^S AND'
	KNAB3;KNAB2;CMK12A;KNAB1
	DISP;HLPLNC;TEXT 'TYPE THE^S ^S, ^S INSERTS THE PHRASE.'
	KNAB3;KNAB2;CMK12B
	SET;17;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KNAB1,	TEXT '!&ABBRV'
KNAB2,	TEXT 'ABBREVIATION'
KNAB3,	TEXT ' TWO-LETTER'
CMK12A,	TEXT '&WHEN YOU PRESS &GOLD '
CMK12B,	TEXT '&D&E&CMATE'

	XTRL12=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL13=.
	X=DLHL13		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HLLIBR,	DISP;HLPLNS;TEXT '^S--';KNLIB1
	DISP;HLPLNA
	TEXT '&YOU CAN SET UP A !&LIBRARY !&DOCUMENT CONTAINING A LIST'
	DISP;-1;TEXT ' OF ^SS AND THEIR';KNLIB2
	DISP;HLPLNB;TEXT 'SHORT NAMES.  ^S^S,^S PROMPTS YOU FOR A NAME.'
	CMK13A;KNLIB1;CMK13B
	DISP;HLPLNC
	TEXT '&ENTER THE NAME OF THE ^S AND PRESS !&RETURN. ^S INSERTS THE'
	KNLIB2;CMK13B
	DISP;HLPLND;TEXT '^S.';KNLIB2
	SET;17;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KNLIB1,	TEXT '!&LIBRY'
KNLIB2,	TEXT 'PASSAGE'

HLPAST,	DISP;HLPLNS;TEXT '^S--';KNPST1
	DISP;HLPLNA;TEXT '^S^S,^S COPIES THE CONTENTS OF THE PASTE AREA'
	CMK13A;KNPST1;CMK13B
	DISP;HLPLNB
   TEXT 'INTO THE TEXT, USING THE ORIGINAL RULERS OF THE TEXT BEING COPIED.'
	SET;7;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KNPST1,	TEXT '!&PASTE'
CMK13A,	TEXT '&WHEN YOU PRESS &GOLD '
CMK13B,	TEXT ' &D&E&CMATE'

	XTRL13=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	FIELD 2
	*0
	ADHL14=.
	X=DLHL14		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HLINVP,	DISP;HLPLNS;TEXT '^S^S--';KNHLP1;KNHLP2
	DISP;HLPLNA
	TEXT '&WHEN YOU HOLD DOWN THE ^S KEY AND PRESS &GOLD^S, &D&E&CMATE'
	KNHLP1;KNHLP2
	DISP;HLPLNB
  TEXT 'INSERTS AN !&INVISIBLE !&HYPHEN IN THE TEXT, WHICH ONLY APPEARS IF THE'
	DISP;HLPLNC;TEXT 'WORD CONTAINING IT CROSSES THE RIGHT MARGIN.  '
	DISP;-1;TEXT '&THAT PART OF THE WORD'
	DISP;HLPLND;TEXT 'FOLLOWING^S MOVES TO^S AND^S APPEARS.'
	KNHLP3;CMKPR1;KNHLP3
	SET;10;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KNHLP1,	TEXT '!&SHIFT'
KNHLP2,	TEXT ' !&PRINT !&HYPH'
KNHLP3,	TEXT ' THE HYPHEN'
CMKPR1,	TEXT ' THE NEXT LINE'

	XTRL14=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL15=.
	X=DLHL15		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HLMENU,	DISP;HLPLNS;TEXT '^S--';KNMEN1
	DISP;HLPLNA;TEXT '^S^S WHILE EDITING A^S,^S DISPLAYS THE'
	CMK15A;KNMEN1;KNMEN2;CMK15B
	DISP;HLPLNB
	TEXT '&EDITOR &MENU.  &FROM THIS MENU, YOU CAN CONTROL TEXT SIZE, '
	DISP;-1;TEXT 'DEFINE USER KEYS,'
	DISP;HLPLNC;TEXT 'SELECT LIBRARY AND ABBREVIATION^SS, AND SO FORTH.'
	KNMEN2
	SET;3;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KNMEN1,	TEXT '!&MENU'
KNMEN2,	TEXT ' DOCUMENT'

HLRUBL,	DISP;HLPLNS;TEXT '^S--';KNRBL1
	DISP;HLPLNA;TEXT '^S^S,^S ERASES ALL TEXT BETWEEN THE CURSOR'
	CMK15A;KNRBL1;CMK15B
	DISP;HLPLNB
	TEXT 'AND THE BEGINNING OF THE CURRENT LINE.  &IF THE CURSOR IS AT THE'
	DISP;HLPLNC;TEXT 'BEGINNING OF THE LINE,^S ERASES THE PRECEEDING LINE.'
	CMK15B
	SET;4;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KNRBL1,	IFDEF	CONDOR	<						/A010
	TEXT '&RUBOUT'
			>	/ END IFDEF CONDOR			/A010

	IFNDEF	CONDOR	<						/A010
	TEXT '!&RUB !&LINE'						/A010
			>	/ END IFNDEF CONDOR			/A010

CMK15A,	TEXT '&WHEN YOU PRESS &GOLD '
CMK15B,	TEXT ' &D&E&CMATE'

	XTRL15=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL16=.
	X=DLHL16		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HLPAMA,	DISP;HLPLNS;TEXT '^S--';KNPAR1
	DISP;HLPLNA;TEXT '^S^S, ^S INSERTS A^S MARKER IN THE'
	CMK16A;KNPAR1;CMK16B;KNPAR2
	DISP;HLPLNB;TEXT 'TEXT.  &TEXT FOLLOWING THE^S MARKER APPEARS ON^S,'
	KNPAR2;CMKPA1
	DISP;HLPLNC
	TEXT 'INDENTED TO LINE UP WITH ANY^S INDENT POSITION IN THE RULER'
	KNPAR2
	DISP;HLPLND;TEXT '(MARKED BY &P).'
	SET;5;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KNPAR1,	TEXT '!&PARA !&MARKER'
KNPAR2,	TEXT ' PARAGRAPH'
CMKPA1,	TEXT ' THE NEXT LINE'

HLREPL,	DISP;HLPLNS;TEXT '^S--';KNREP1
	DISP;HLPLNA;TEXT '&FIRST, SELECT THE TEXT YOU WISH TO^S.  ^S^S'
	KNREP2;CMK16A;KNREP1
	DISP;HLPLNB
	TEXT '^S DELETES THE SELECTED TEXT AND^SS IT WITH THE TEXT IN THE'
	CMK16B;KNREP2
	TRNSFR;-1-HLREPA;DLHL17

KNREP1,	TEXT '!&REPLC'
KNREP2,	TEXT ' REPLACE'
CMK16A,	TEXT '&WHEN YOU PRESS &GOLD '
CMK16B,	TEXT '&D&E&CMATE'

	XTRL16=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL17=.
	X=DLHL17		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HLREPA,	DISP;HLPLNC
	TEXT '!&PASTE !&AREA.  &THIS FUNCTION DOES NOT WORK IF THE PASTE AREA'
	DISP;-1;TEXT ' IS EMPTY.'
	SET;7;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

HLSRCH,	DISP;HLPLNS;TEXT '^S--';KNSRC1
	DISP;HLPLNA;TEXT '^S^S,^S PROMPTS YOU FOR THE WORD OR PHRASE'
	CMK17A;KNSRC1;CMK17B
	DISP;HLPLNB							/ M012
	TEXT 'YOU WANT TO ^S FOR.  &ENTER THE PHRASE AND PRESS !&ADVANCE (TO ^S'
	KNSRC2;KNSRC2
	DISP;HLPLNC;TEXT 'FORWARD), !&BACKUP (^S BACKWARD) OR !&CONT ^S'
	KNSRC2;KNSRC1
	DISP;-1;TEXT ' !C& !&SEL (^S FORWARD';KNSRC2
	DISP;HLPLND;TEXT 'AND SELECT THE PHRASE).'
	SET;16;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KNSRC1,	TEXT '!&SRCH'
KNSRC2,	TEXT 'SEARCH'
CMK17A,	TEXT '&WHEN YOU PRESS &GOLD '
CMK17B,	TEXT ' &D&E&CMATE'

	XTRL17=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL20=.
	X=DLHL20		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HLSUBS,	DISP;HLPLNS;TEXT '^S--';KNSUB1
	DISP;HLPLNA;TEXT '^S^S,^S INVISIBLY MARKS THE CHARACTER AT'
	CMK20A;KNSUB1;CMK20B
	DISP;HLPLNB;TEXT '^S  &WHEN YOU PRINT';KNB20A
	DISP;HLPLNC
TEXT 'THE DOCUMENT, THAT CHARACTER IS A HALF-LINE LOWER THAN THE OTHERS.'
	SET;15;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KNSUB1,	TEXT '!&SUB !&SCRIPT'

HLSUPE,	DISP;HLPLNS;TEXT '^S--';KNSUP1
	DISP;HLPLNA;TEXT '^S^S,^S INVISIBLY MARKS THE CHARACTER AT'
	CMK20A;KNSUP1;CMK20B
	DISP;HLPLNB;TEXT '^S  &WHEN YOU PRINT';KNB20A
	DISP;HLPLNC
TEXT 'THE DOCUMENT, THAT CHARACTER IS A HALF-LINE HIGHER THAN THE OTHERS.'
	SET;15;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KNSUP1,	TEXT '!&SUPER !&SCRIPT'
KNB20A,	TEXT 'THE CURSOR (THOUGH YOU CAN SEE THE MARK WITH &GOLD !&VIEW).'
CMK20A,	TEXT '&WHEN YOU PRESS &GOLD '
CMK20B,	TEXT ' &D&E&CMATE'

	XTRL20=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL21=.
	X=DLHL21		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HLCNTS,	DISP;HLPLNS;TEXT '^S!C& !&SEL--';KNSRR1
	DISP;HLPLNA;TEXT '^S^S!C& !&SEL,^S CONTINUES SEARCHING IN THE'
	CMK21A;KNSRR1;CMK21B
	DISP;HLPLNB
	TEXT 'SAME DIRECTION FOR ^S IT SEARCHED FOR LAST TIME.  &WHEN IT'
	KNSRR2
	DISP;HLPLNC
	TEXT 'FINDS ^S, IT PUTS A SELECT MARK AT THE BEGINNING AND'
	KNSRR2
	DISP;HLPLND;TEXT 'MOVES THE CURSOR TO THE END OF ^S.';KNSRR2
	SET;16;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KNSRR1,	TEXT '!&CONT !&SRCH '
KNSRR2,	TEXT 'THE WORD OR PHRASE'
CMK21A,	TEXT '&WHEN YOU PRESS &GOLD '
CMK21B,	TEXT ' &D&E&CMATE'

	XTRL21=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL22=.
	X=DLHL22		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HLHYPU,	DISP;HLPLNS;TEXT '^S--';KNPUL1
	DISP;HLPLNA;TEXT '^S^S,^S PULLS A CHARACTER DOWN FROM THE'
	CMK22A;KNPUL1;CMK22B
	DISP;HLPLNB
  TEXT 'PREVIOUS LINE TO THE LINE THE CURSOR IS ON.  &GOLD ^S HAS NO EFFECT'
	KNPUL1
	DISP;HLPLNC
	TEXT 'UNLESS THE PREVIOUS LINE ENDS WITH AN INVISIBLE HYPHEN.'
	DISP;-1;TEXT '  (&SEE &HELP FOR'
	DISP;HLPLND;TEXT '&GOLD !&SHIFT !&PRINT !&HYPH).'
	SET;10;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KNPUL1,	TEXT '!&HYPH !&PULL'

HLSWAP,	DISP;HLPLNS;TEXT '^S--';KNSWP1
	DISP;HLPLNA;TEXT '^S^S,^S SWAPS THE POSITIONS OF THE CHARACTER AT'
	CMK22A;KNSWP1;CMK22B
	DISP;HLPLNB;TEXT 'THE CURSOR AND THE CHARACTER FOLLOWING THE CURSOR.  '
	DISP;-1;TEXT '&THE CURSOR MOVES AHEAD'
	TRNSFR;-1-HLSWPA;DLHL23

KNSWP1,	TEXT '!&SWAP'

CMK22A,	IFDEF	CONDOR	<						/A010
	TEXT '&WHEN YOU PRESS &GOLD '
			>	/ END IFDEF CONDOR			/A010

	IFNDEF	CONDOR	<						/A010
	TEXT '&WHEN YOU PRESS '						/A010
			>	/ END IFNDEF CONDOR			/A010

	CMK22B,	TEXT ' &D&E&CMATE'

	XTRL22=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL23=.
	X=DLHL23		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HLSWPA,	DISP;HLPLNC;TEXT 'ONE POSITION, STAYING WITH ITS FIRST CHARACTER.'
	SET;4;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

HLDELTX,DISP;HLPLNS;TEXT '^S^S--';KNDEL1;KNDEL2
	DISP;HLPLNA;TEXT '^S^S&GOLD ^S,^S &U&NDELETES THE LAST'
	CMK23A;KNDEL1;KNDEL2;CMK23B
	DISP;HLPLNB
	TEXT 'PIECE OF TEXT YOU ERASED.  &GOLD ^S!&WORD REVERSES THE EFFECTS OF'
	KNDEL1
	DISP;HLPLNC
  TEXT 'THE !&DEL AND &RUBOUT KEYS.  &ONLY THE LAST PIECE OF TEXT ERASED CAN BE'
	DISP;HLPLND;TEXT 'RECOVERED.'
	SET;4;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KNDEL1,	TEXT '!&DEL !&CHAR OR '
KNDEL2,	TEXT '!&DEL !&WORD'

HLUPER,	DISP;HLPLNS;TEXT '^S--';KNUPP1
	DISP;HLPLNA;TEXT '^S^S,^S STARTS CHANGING TEXT INTO'
	CMK23A;KNUPP1;CMK23B
	DISP;HLPLNB;TEXT 'LOWERCASE.  &AS LONG AS YOU USE DISTANCE'
	TRNSFR;-1-HLUPPA;DLHL24

KNUPP1,	TEXT '!&UPPERCASE'
CMK23A,	TEXT '&WHEN YOU PRESS &GOLD '
CMK23B,	TEXT ' &D&E&CMATE'

	XTRL24=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL24=.
	X=DLHL24		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HLUPPA,	DISP;-1;TEXT ' KEYS TO MOVE THE CURSOR, ALL'
	DISP;HLPLNC
	TEXT 'CHARACTERS THE CURSOR MOVES OVER BECOME LOWERCASE.  &GOLD ^S'
	KNUPP2
	DISP;HLPLND;TEXT 'REVERSES ^S.';KNUPP2
	SET;6;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KNUPP2,	TEXT '!&UPPERCASE'

HLDEAD,	DISP;HLPLNS;TEXT '^S--';KNDED1
	DISP;HLPLNA
	TEXT '&USE &GOLD ^S TO PRINT ONE ^S ON TOP OF ANOTHER.  &ENTER THE'
	KNDED1;KNDED2
	DISP;HLPLNB
	TEXT 'TWO ^SS YOU WISH TO COMBINE, PLACE THE CURSOR ON THE SECOND'
	KNDED2
	DISP;HLPLNC;TEXT '^S, THEN PRESS &GOLD ^S.  &THE TWO ^SS VANISH AND THE'
	KNDED2;KNDED1;KNDED2
	DISP;HLPLND;TEXT 'SYMBOL ![(0^A![(&^S APPEARS.';KNDED3;MNLANG
	SET;15;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KNDED1,	TEXT '!&DEAD !&KEY'
KNDED2,	TEXT 'CHARACTER'
KNDED3,	141			/ GRAPHIC BOX CHAR
	0			/ END SEQ

CMK24A,	TEXT '&WHEN YOU PRESS &GOLD '
CMK24B,	TEXT ' &D&E&CMATE'

	XTRL24=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL25=.
	X=DLHL25		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HLCNTR,	DISP;HLPLNS;TEXT '^S--';KNCN1
	DISP;HLPLNA;TEXT '^S^S,^S ';CMK25A;KNCN1;CMK25B
	DISP;-1;TEXT 'MOVES THE LINE LEFT OF THE'
	DISP;HLPLNB
	TEXT 'CURSOR TO THE CENTER OF THE RULER, OR UNDERNEATH A CENTERING'
	DISP;HLPLNC
	TEXT 'MARK IN THE RULER.  &TEXT RIGHT OF THE CURSOR MOVES TO THE'
	DISP;-1;TEXT ' NEXT LINE.'
	SET;6;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KNCN1,	TEXT '!&CENTER'			/C007

HLMARK,	DISP;HLPLNS;TEXT '^S--';KNMRK1
	DISP;HLPLNA;TEXT '^S^S,^S^S A ^S IN THE TEXT.'
	CMK25A;KNMRK1;CMK25B;CMKHY1;KNMRK1
	DISP;HLPLNB
TEXT '&THIS MARK IS NOT PRINTED.  &IT FORCES THE TEXT FOLLOWING THE ^S TO '
	KNMRK1
	DISP;HLPLNC;TEXT 'THE TOP OF THE NEXT PRINTED PAGE, IF THE &A&P'
	TRNSFR;-1-HLMRKA;DLHL26

KNMRK1,	TEXT '!&PAGE !&MARKER'
CMKHY1,	TEXT ' INSERTS'
CMKHY3,	TEXT ' HYPHEN'
CMK25A,	TEXT '&WHEN YOU PRESS &GOLD '
CMK25B,	TEXT ' &D&E&CMATE'

	XTRL25=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL26=.
	X=DLHL26		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HLMRKA,	DISP;-1;TEXT ' PRINT SETTING IS SET TO !&NO.'
	SET;11;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

HLUNDE,	DISP;HLPLNS;TEXT '^S--';KNUND1
	DISP;HLPLNA;TEXT '^S^S,^S STARTS REMOVING^S.'
	CMK26A;KNUND1;CMK26B;KNUND2
	DISP;HLPLNB;TEXT '^S^S^S';CMKUN1;CMKUN2;CMKUN3
	DISP;HLPLNC;TEXT '^SLOSE^S.  ^S^S^S^S.'
	CMKUN4;KNUND2;CMKUN5;KNUND1;CMKUN6;KNUND1
	SET;6;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KNUND1,	TEXT '!&UNDERLINE'
KNUND2,	TEXT ' UNDERLINING'

HLBOLD,	DISP;HLPLNS;TEXT '^S--';KNBLD1
	DISP;HLPLNA;TEXT '^S^S,^S STARTS &U&NBOLDING TEXT.  ^S'
	CMK26A;KNBLD1;CMK26B;CMKUN1
	DISP;HLPLNB;TEXT '^S^S^S';CMKUN2;CMKUN3;CMKUN4
	DISP;HLPLNC;TEXT '^S&U&NBOLDED.  ^S^S^S^S.'
	CMKUN7;CMKUN5;KNBLD1;CMKUN6;KNBLD1
	SET;6;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KNBLD1,	TEXT '!&BOLD'
CMKUN1,	TEXT '&AS LONG AS YOU '
CMKUN2,	TEXT 'USE DISTANCE KEYS TO MOVE THE CURSOR, ALL '
CMKUN3,	TEXT 'CHARACTERS THE '
CMKUN4,	TEXT 'CURSOR MOVES OVER '
CMKUN5,	TEXT '&GOLD '
CMKUN6,	TEXT ' REVERSES '
CMKUN7,	TEXT 'BECOME '
CMK26A,	TEXT '&WHEN YOU PRESS &GOLD '
CMK26B,	TEXT ' &D&E&CMATE'

	XTRL26=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL27=.
	X=DLHL27		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HLVIEW,	DISP;HLPLNS;TEXT '^S--';KNVEW1
	DISP;HLPLNA;TEXT '^S^S,^S DISPLAYS AN EXPANDED VIEW OF THE CURRENT'
	CMK27A;KNVEW1;CMK27B
	DISP;HLPLNB
	TEXT 'TEXT.  &THIS VIEW IS DOUBLESPACED AND SHOWS THE TEXT PLUS ANY'
	DISP;-1;TEXT ' !&INVISIBLE'
	DISP;HLPLNC
	TEXT '!&CHARACTERS, SUCH AS TAB MARKS, SUPERSCRIPT AND SUBSCRIPT'
	DISP;-1;TEXT ' MARKS, AND HARD'
	DISP;HLPLND;TEXT 'RETURNS.'
	SET;17;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KNVEW1,	TEXT '!&VIEW'

HLHYPA,	DISP;HLPLNB;TEXT 'TEXT.  &IF A COMPOUND WORD CONTAINS A '
	DISP;-1;TEXT 'BREAKING HYPHEN AND CROSSES THE RIGHT'
	DISP;HLPLNC;TEXT 'MARGIN, THAT PART OF THE WORD FOLLOWING '
	DISP;-1;TEXT 'THE HYPHEN MOVES TO THE NEXT LINE.'
	SET;10;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

CMK27A,	TEXT '&WHEN YOU PRESS &GOLD '
CMK27B,	TEXT ' &D&E&CMATE'

	XTRL27=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL30=.
	X=DLHL30		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HLHALT,	DISP;HLPLNS;TEXT '^S--';KNHLT1
	DISP;HLPLNA;TEXT '^S^S,^S QUITS MANY FUNCTIONS IT WAS DOING'
	CMK30A;KNHLT1;CMK30B
	DISP;HLPLNB;TEXT 'AT THE TIME, SUCH AS^S';KNHLT2
	DISP;-1;TEXT ' !&SRCH OR^S !&ADVANCE. ^S ^S ALSO ENDS THE'
	KNHLT2;KNHLT2;KNHLT1
	DISP;HLPLNC
	TEXT 'DEFINITION OF A &USER-&DEFINED &KEY.  &IF^S IS NOT DOING A '
	CMK30B
	DISP;-1;TEXT 'FUNCTION'
	DISP;HLPLND;TEXT '(RIGHT NOW, FOR INSTANCE),^S ^S DOES NOTHING.'
	KNHLT2;KNHLT1
	SET;2;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KNHLT1,	TEXT '!&HALT'
KNHLT2,	TEXT ' &GOLD'

HLPAGE,	DISP;HLPLNS;TEXT '^S--';KNPAG1
	DISP;HLPLNA;TEXT '^S^S,^S COUNTS LINES FROM THE TOP OF THE'
	CMK30A;KNPAG1;CMK30B
	TRNSFR;-1-HLPAGA;DLHL31

KNPAG1,	TEXT '!&PAGE'
CMK30A,	TEXT '&WHEN YOU PRESS &GOLD '
CMK30B,	TEXT ' &D&E&CMATE'

	XTRL30=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL31=.
	X=DLHL31		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HLPAGA,	DISP;HLPLNB
	TEXT 'DOCUMENT OR FROM THE LAST PAGE-END MARK, UNTIL IT REACHES THE'
	DISP;HLPLNC
	TEXT 'CURRENT TEXT SIZE.  &IT THEN INSERTS A !&PAGE !&MARKER.'
	DISP;HLPLND;TEXT '&THIS INDICATES THE BREAK BETWEEN PRINTED PAGES.'
	SET;11;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

HLRUBS,	DISP;HLPLNS;TEXT '^S--';KNRUB1
	DISP;HLPLNA;TEXT '^S^S,^S ERASES ALL TEXT BETWEEN THE'
	CMK31A;KNRUB1;CMK31B
	DISP;HLPLNB;TEXT '^S AND THE ^S THE CURRENT^S.  &IF THE ^S IS'
	KNRUB3;KNRUB4;KNRUB2;KNRUB3
	DISP;HLPLNC;TEXT 'AT THE ^S A^S,^S ERASES THE PRECEEDING^S.'
	KNRUB4;KNRUB2;CMK31B;KNRUB2
	TRNSFR;-1-HLRUBA;DLHL32

KNRUB1,	IFDEF	CONDOR	<						/A010
	TEXT '!&CTRL &RUBOUT'
			>	/ END IFDEF CONDOR			/A010

	IFNDEF	CONDOR	<						/A010
	TEXT '!&RUB !&SENT'						/A010
			>	/ END IFNDEF CONDOR			/A010

KNRUB2,	TEXT ' SENTENCE'
KNRUB3,	TEXT 'CURSOR'
KNRUB4,	TEXT 'BEGINNING OF'
CMK31A,	TEXT '&WHEN YOU PRESS &GOLD '
CMK31B,	TEXT ' &D&E&CMATE'

	XTRL31=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL32=.
	X=DLHL32		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HLRUBA,	DISP;HLPLND
	TEXT '&SENTENCES END IN PERIODS, EXCLAMATION MARKS, AND QUESTION MARKS.'
	SET;4;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

HLTOPD,	DISP;HLPLNS;TEXT '^S--';KNTOP1
	DISP;HLPLNA;TEXT '^S^S,^S MOVES THE CURSOR TO^S'
	CMK32A;KNTOP1;CMK32B;CMK32C
	DISP;HLPLNB
	TEXT '^S.  &THE SCREEN SHOWS A "!&^S !&FILING" MESSAGE UNTIL^S'
	CMK32D;CMK32D;CMK32B
	DISP;HLPLNC;TEXT 'REACHES THE^S ^S.  &THE SCREEN THEN SHOWS '
	CMK32C;CMK32D
	DISP;HLPLND;TEXT 'THE^S ^S.';CMK32C;CMK32D
	SET;4;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KNTOP1,	TEXT '!&TOP !&DOCMT';CMK32C;CMK32D
CMK32A,	TEXT '&WHEN YOU PRESS &GOLD '
CMK32B,	TEXT ' &D&E&CMATE'
CMK32C,	TEXT ' TOP OF THE'
CMK32D,	TEXT 'DOCUMENT'

	XTRL32=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL33=.
	X=DLHL33		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HMADV,	DISP;HLPLNS;TEXT '^S--';KMADV1
	DISP;HLPLNA;TEXT '^S^S,^SFORWARD TO THE NEXT CHARACTER.'
	CMK33A;KMADV1;KMC331
	DISP;HLPLNB;TEXT '&IF ^S THE CURSOR';KMC332
	DISP;HLPLNC;TEXT 'MOVES FORWARD ^SADVANCE PAST THE END';KMC334
	DISP;HLPLND;TEXT 'OF ^S';KMC335
	SET;4;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KMADV1,	TEXT '!&ADVANCE'

HMBACK,	DISP;HLPLNS;TEXT '^S--';KMBAK1
	DISP;HLPLNA;TEXT '^S^S,^SBACK TO THE LAST CHARACTER.  &IF'
	CMK33A;KMBAK1;KMC331
	DISP;HLPLNB;TEXT '^S^S';KMC332;KMC331
	DISP;HLPLNC;TEXT 'BACK ^SBACK UP PAST THE BEGINNING OF';KMC334
	DISP;HLPLND;TEXT '^S';KMC335
	SET;4;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KMBAK1,	TEXT '!&BACKUP'
KMC331,	TEXT ' THE CURSOR MOVES '
KMC332,	TEXT 'YOU THEN PRESS !&WORD, !&LINE, !&PARA, OR ANOTHER DISTANCE KEY,'
KMC334,	TEXT 'THE SPECIFIED DISTANCE.  &IF YOU TRY TO '
KMC335,	TEXT 'THE DOCUMENT, THE KEYBOARD BUZZES.'
CMK33A,	TEXT '&WHEN YOU PRESS '

	XTRL33=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	FIELD 3
	*0
	ADHL34=.
	X=DLHL34		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HMBOLD,	DISP;HLPLNS;TEXT '!&BOLD--'
	DISP;HLPLNA
	TEXT '&WHEN YOU PRESS !&BOLD, &D&E&CMATE STARTS BOLDING TEXT.'
	DISP;-1;TEXT '  &AS LONG AS YOU USE'
	DISP;HLPLNB
  TEXT 'DISTANCE KEYS TO MOVE THE CURSOR, ALL CHARACTERS THE CURSOR MOVES OVER'
	DISP;HLPLNC
  TEXT 'BECOME BOLDED.  &IF YOU SELECT TEXT AND PRESS !&BOLD, THE SELECTED TEXT'
	DISP;HLPLND;TEXT 'BECOMES BOLDED.'
	SET;6;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

	XTRL34=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL35=.
	X=DLHL35		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HMDELC,	DISP;HLPLNS;TEXT '^S--';CMK354
	DISP;HLPLNA;TEXT '^S^S, ^STHE CHARACTER AT THE CURSOR.'
	CMC35A;CMK354;CMK351
	DISP;HLPLNB;TEXT '&YOU ^S ^S&GOLD ^S'
	CMK352;CMK353;CMK354
	DISP;HLPLNC;TEXT 'OR &GOLD ^S.';CMK355
	SET;4;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

HMDELW,	DISP;HLPLNS;TEXT '^S--';CMK355
	DISP;HLPLNA;TEXT '^S^S, ^SALL CHARACTERS FROM THE CURSOR TO'
	CMC35A;CMK355;CMK351
	DISP;HLPLNB;TEXT 'THE BEGINNING OF THE NEXT WORD.  &YOU ^S';CMK352
	DISP;HLPLNC;TEXT '^S&GOLD ^S OR &GOLD ^S.'
	CMK353;CMK355;CMK354
	SET;4;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

CMK351, TEXT '&D&E&CMATE DELETES '
CMK352,	TEXT 'CAN RECOVER THE LAST ITEM OF DELETED'
CMK353,	TEXT 'TEXT BY PRESSING '
CMK354,	TEXT '!&DEL !&CHAR'
CMK355,	TEXT '!&DEL !&WORD'
CMC35A,	TEXT '&WHEN YOU PRESS '

	XTRL35=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL36=.
	X=DLHL36		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HMLINE,	DISP;HLPLNS;TEXT '!&LINE--'
	DISP;HLPLNA;TEXT '^S!&LINE,^SLINE.  &THE';CMK36A;KMC360
	DISP;HLPLNB;TEXT '^S^S';KMC361;KMC362
	DISP;HLPLNC;TEXT 'OR ^S';KMC363
	SET;4;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

HMPAGE,	DISP;HLPLNS;TEXT '!&PAGE--'
	DISP;HLPLNA;TEXT '^S!&PAGE,^SPAGE-END MARK.';CMK36A;KMC360
	DISP;HLPLNB;TEXT '&THE ^S^S';KMC361;KMC362
	DISP;HLPLNC;TEXT 'OR ^S';KMC363
	SET;4;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

HMPARA,	DISP;HLPLNS;TEXT '!&PARA--'
	DISP;HLPLNA;TEXT '^S!&PARA,^SPARAGRAPH.  &THE';CMK36A;KMC360
	DISP;HLPLNB;TEXT '^S^S';KMC361;KMC362
	DISP;HLPLNC;TEXT 'OR ^S';KMC363
	SET;4;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KMC360,	TEXT ' THE CURSOR MOVES FORWARD TO THE NEXT '
KMC361,	TEXT 'CURSOR MOVES BACKWARD IF THE LAST KEYS YOU'
KMC362,	TEXT ' PRESSED WERE THE !&BACKUP KEY'
KMC363,	TEXT 'THE !&BACKUP KEY FOLLOWED BY DISTANCE KEYS.'
CMK36A,	TEXT '&WHEN YOU PRESS '

	XTRL36=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL37=.
	X=DLHL37		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HMPAST,	DISP;HLPLNS;TEXT '!&PASTE--'
	DISP;HLPLNA;TEXT '&USE THE !&PASTE KEY TO MOVE TEXT.  &FIRST, SELECT'
	DISP;-1;TEXT ' THE TEXT YOU WANT TO MOVE'
	DISP;HLPLNB;TEXT 'AND !&CUT IT INTO THE PASTE AREA.  '
	DISP;-1;TEXT '&THEN MOVE THE CURSOR TO THE PLACE YOU'
	DISP;HLPLNC;TEXT 'WANT TO PUT THE TEXT.  &PRESS !&PASTE.  &D&E&CMATE'
	DISP;-1;TEXT ' COPIES THE TEXT, BUT NOT THE'
	DISP;HLPLND
	TEXT 'RULERS, INTO THE DOCUMENT, STARTING AT THE CURSOR POSITION.'
	SET;7;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

	XTRL37=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL40=.
	X=DLHL40		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HMSENT,	DISP;HLPLNS;TEXT '!&SENT--'
	DISP;HLPLNA;TEXT '^S!&SENT^SBEGINNING OF THE NEXT';CMK40A;KMC401
	DISP;HLPLNB;TEXT 'SENTENCE.  ^S';KMC402
	DISP;HLPLNC;TEXT '!&BACKUP KEY ^S';KMC403
	SET;4;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

HMTABP,	DISP;HLPLNS;TEXT '!&TAB !&POS--'
	DISP;HLPLNA;TEXT '^S!&TAB !&POS^SNEXT TAB POSITION';CMK40A;KMC401
	DISP;HLPLNB
TEXT '-- THAT IS, THE NEXT PLACE IN THE DOCUMENT WHERE YOU PRESSED THE TAB KEY.'
	DISP;HLPLNC;TEXT '^S!&BACKUP KEY';KMC402
	DISP;HLPLND;TEXT '^S';KMC403
	SET;4;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KMC401,	TEXT ', THE CURSOR MOVES FORWARD TO THE '
KMC402,	TEXT '&THE CURSOR MOVES BACKWARD IF THE LAST KEYS YOU PRESSED WERE THE '
KMC403,	TEXT 'OR THE !&BACKUP KEY FOLLOWED BY DISTANCE KEYS.'
CMK40A,	TEXT '&WHEN YOU PRESS '

	XTRL40=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL41=.
	X=DLHL41		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HMSEL,	DISP;HLPLNS;TEXT '!&SEL--'
	DISP;HLPLNA;TEXT '^S!&SEL, A^S APPEARS AT THE CURSOR.  &THE^S'
	CMK41A;KMSEL1;KMSEL1
	DISP;HLPLNB;TEXT 'REMAINS IN PLACE WHEN YOU MOVE THE CURSOR.  '
	DISP;-1;TEXT '&TEXT BETWEEN THE MARK AND THE'
	DISP;HLPLNC
	TEXT 'CURSOR IS^S.  &TO CANCEL THE MARK, PRESS !&SEL AGAIN.  &YOU MAY'
	KMSEL2
	DISP;HLPLND;TEXT 'CHANGE^S BY PRESSING !&BOLD, !&CUT, !&UNDERLINE,'
	KMSEL2
	DISP;-1;TEXT ' OR !&UPPERCASE.'
	SET;6;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KMSEL1,	TEXT ' SELECT MARK'
KMSEL2,	TEXT ' SELECTED TEXT'
CMK41A,	TEXT '&WHEN YOU PRESS '
CMK41B,	TEXT '&D&E&CMATE '

	XTRL41=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL42=.
	X=DLHL42		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HMUPPE,	DISP;HLPLNS;TEXT '^S--';HMUPP1
	DISP;HLPLNA;TEXT '^S^S^S PUTTING TEXT IN^S LETTERS.'
	CMK42A;HMUPP1;KMC421;HMUPP2
	DISP;HLPLNB;TEXT '^S ^S';KMC422;KMC423
	DISP;HLPLNC;TEXT '^SBECOME^SIZED. ^S';KMC424;HMUPP2;KMC425
	DISP;HLPLND;TEXT '^S, THE SELECTED TEXT BECOMES^SIZED.';HMUPP1;HMUPP2
	SET;6;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

HMUPP1,	TEXT '!&UPPERCASE'
HMUPP2,	TEXT ' CAPITAL'

HMUNDE,	DISP;HLPLNS;TEXT '^S--';HMUND1
	DISP;HLPLNA;TEXT '^S^S^S^SING TEXT.  ^S'
	CMK42A;HMUND1;KMC421;HMUND2;KMC422
	DISP;HLPLNB;TEXT '^S^S';KMC423;KMC424
	DISP;HLPLNC;TEXT 'BECOME^SED. ^S^S, THE SELECTED';HMUND2;KMC425;HMUND1
	TRNSFR;-1-HLUNDA;DLHL43

HMUND1,	TEXT '!&UNDERLINE'
HMUND2,	TEXT ' UNDERLIN'
KMC421,	TEXT ', &D&E&CMATE STARTS'
KMC422,	TEXT '&AS LONG AS YOU'
KMC423,	TEXT 'USE DISTANCE KEYS TO MOVE THE CURSOR, ALL CHARACTERS THE '
KMC424,	TEXT 'CURSOR MOVES OVER '
KMC425,	TEXT ' &IF YOU SELECT TEXT AND PRESS '
CMK42A,	TEXT '&WHEN YOU PRESS '

	XTRL42=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL43=.
	X=DLHL43		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HLUNDA,	DISP;HLPLND;TEXT 'TEXT BECOMES UNDERLINED.'
	SET;6;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

HMENTE,	DISP;HLPLNS;TEXT '< >--'
	DISP;HLPLNA;TEXT '^S< >^SNEXT > CHARACTER.';CMK43A;KMC431
	DISP;HLPLNB;TEXT '^S THE';KMC432
	DISP;HLPLNC;TEXT '^S';KMC433
	SET;4;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

HMWORD,	DISP;HLPLNS;TEXT '!&WORD--'
	DISP;HLPLNA;TEXT '^S!&WORD^SBEGINNING OF THE';CMK43A;KMC431
	DISP;HLPLNB;TEXT 'NEXT WORD.  ^S';KMC432
	DISP;HLPLNC;TEXT 'THE ^S';KMC433
	SET;4;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KMC431,	TEXT ', THE CURSOR MOVES FORWARD TO THE '
KMC432,	TEXT '&THE CURSOR MOVES BACKWARD IF THE LAST KEYS YOU PRESSED WERE'
KMC433,	TEXT '!&BACKUP KEY OR THE !&BACKUP KEY FOLLOWED BY DISTANCE KEYS.'
CMK43A,	TEXT '&WHEN YOU PRESS '

	XTRL43=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL44=.
	X=DLHL44		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HLLINS,	DISP;HLPLNS;TEXT '^S--';HLK441		/ INSERT HERE
	DISP;HLPLNA;TEXT '^S^S^S^S!&PASTE.';HLK442;HLK441;HLK440;HLK442
	SET;7;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

HNINSH,	DISP;HLPLNS;TEXT '^S--';HLK441		/ INSERT HERE
	DISP;HLPLNA;TEXT '^S^S!&PASTE.';HLK441;HLK440
	SET;7;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

HLLREM,	DISP;HLPLNS;TEXT '^S--';HLK443		/ GOLD: REMOVE
	DISP;HLPLNA;TEXT '^S^S^S^S!&CUT.';HLK442;HLK443;HLK440;HLK442
	SET;7;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

HNREMV,	DISP;HLPLNS;TEXT '^S--';HLK443		/ REMOVE
	DISP;HLPLNA;TEXT '^S^S!&CUT.';HLK443;HLK440
	SET;7;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

HLLUP,	DISP;HLPLNS;TEXT '^A (^S&UP^S--';HLK444;HLK442;HLK446
	DISP;HLPLNA;TEXT '^S^A (^S&UP^S^S^S!&BACK !&UP.'
	HLK442;HLK444;HLK442;HLK446;HLK440;HLK442
	SET;4;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

HLLDN,	DISP;HLPLNS;TEXT 'V (^S&DOWN^S--';HLK442;HLK446
	DISP;HLPLNA;TEXT '^SV (^S&DOWN^S^S^S!&ADVANCE.'
	HLK442;HLK442;HLK446;HLK440;HLK442
	SET;2;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

HLK440,	TEXT ' PERFORMS THE SAME FUNCTION AS '
HLK441,	TEXT '!&INSERT !&HERE'
HLK442,	TEXT '&GOLD '
HLK443,	TEXT '!&REMOVE'
HLK444,	136;0				/ UP ARROW
HLK446,	TEXT ' &ARROW)'

	XTRL44=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL45=.
	X=DLHL45		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HLLLF,	DISP;HLPLNS;TEXT '<- (^S&LEFT^S--';HLK455;HLK456
	DISP;HLPLNA;TEXT '^S^S<- (^S&LEFT^S^S'
	CMK45A;HLK455;HLK455;HLK456;HLK458
	DISP;HLPLNB;TEXT 'ON THE FIRST^S';HLK459
	SET;4;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

HLLRT,	DISP;HLPLNS;TEXT '-> (^S&RIGHT^S--';HLK455;HLK456
	DISP;HLPLNA;TEXT '^S^S-> (^S&RIGHT^S^S'
	CMK45A;HLK455;HLK455;HLK456;HLK458
	DISP;HLPLNB;TEXT 'ON THE LAST^S';HLK459
	SET;4;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

HNFIND,	DISP;HLPLNS;TEXT '^S--';HLK457		/ FIND
	DISP;HLPLNA;TEXT '^S^S^S!&SRCH.';HLK457;HLK450;HLK455
	SET;16;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

HNSEL,	DISP;HLPLNS;TEXT '^S--';HLK452
	DISP;HLPLNA;TEXT '^S^S!&SEL';HLK452;HLK450
	SET;6;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

HLK450,	TEXT ' PERFORMS THE SAME FUNCTION AS '
HLK452,	TEXT '&S&E&L&E&C&T'
HLK455,	TEXT '&GOLD '
HLK456,	TEXT ' &ARROW)'
HLK457,	TEXT '&F&I&N&D'
HLK458,	TEXT ', &D&E&CMATE POSITIONS THE CURSOR'
HLK459,	TEXT ' EDITABLE CHARACTER ON THE LINE.'
CMK45A,	TEXT '&WHEN YOU PRESS '

	XTRL45=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL46=.
	X=DLHL46		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HNHYPP,	DISP;HLPLNS;TEXT '^S--';HLK462		/ HYPH PULL
DISP;HLPLNA;TEXT '^S^S,^S PUSHES A CHARACTER UP TO THE'
	CMK46A;HLK462;CMK46B
	DISP;HLPLNB;TEXT 'PREVIOUS LINE FROM THE LINE THE CURSOR IS ON.'
	SET;10;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

HLSPAC,	DISP;HLPLNS;TEXT '^S--';HLK465					/M011
DISP;HLPLNA;TEXT '^S^S^S,^S INSERTS A^SINTO'
	CMK46A;HLK464;HLK465;CMK46B;HLK468
	DISP;HLPLNB;TEXT 'THE DOCUMENT AT THE CURRENT CURSOR POSITION.'
	DISP;-1;TEXT '  &A^SJOINS';HLK468
	DISP;HLPLNC;TEXT 'THE TWO WORDS ON EITHER SIDE INTO ONE '
	DISP;-1;TEXT 'CONSTRUCT, TREATED AS A SINGLE WORD, '
	DISP;HLPLND;TEXT 'THAT MAY NOT BE SPLIT ACROSS A LINE ENDING.'
	SET;10;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

HLK462,	TEXT '!&HYPH !&PUSH'
HLK464,	TEXT '&GOLD '
HLK465,	TEXT '&SPACE'
HLK468,	TEXT ' NON-BREAKING SPACE '
CMK46A,	TEXT '&WHEN YOU PRESS '
CMK46B,	TEXT ' &D&E&CMATE'

	XTRL46=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL47=.
	X=DLHL47		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HNUP,	DISP;HLPLNS;TEXT '^A (&UP^S--';HLK471;HLK473
	DISP;HLPLNA;TEXT '^S^A (&UP^S^SPREVIOUS'
	CMK47A;HLK471;HLK473;HLK476
	DISP;HLPLNB;TEXT '^S^S^S'
	HLK477;HLK478;HLK479
	SET;4;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

HNDN,	DISP;HLPLNS;TEXT 'V (&DOWN^S--';HLK473
	DISP;HLPLNA;TEXT '^SV (&DOWN^S^SNEXT'
	CMK47A;HLK473;HLK476
	DISP;HLPLNB;TEXT '^S^S^S';HLK477;HLK478;HLK479
	SET;4;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

HLK471,	136;0				/= UP ARROW
HLK473,	TEXT ' &ARROW)'
HLK476,	TEXT ', &D&E&CMATE MOVES THE CURSOR TO THE '
HLK477,	TEXT 'LINE '
HLK478,	TEXT 'OF THE DOCUMENT, LEAVING IT IN '
HLK479,	TEXT 'THE CURRENT COLUMN POSITION.'
CMK47A,	TEXT '&WHEN YOU PRESS '

	XTRL47=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL50=.
	X=DLHL50		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HNPREV,	DISP;HLPLNS;TEXT '^S^S--';HLK501;HLK503
	DISP;HLPLNA;TEXT '^S^S^S^SBACKWARD^S'
	CMK50A;HLK501;HLK503;HLK504;HLK505
	DISP;HLPLNB;TEXT '^S^S';HLK506;HLK507
	DISP;HLPLNC;TEXT '^S^S';HLK508;HLK509
	DISP;HLPLND;TEXT '^S';HLK50A
	SET;4;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

HNNEXT,	DISP;HLPLNS;TEXT '^S^S--';HLK502;HLK503
	DISP;HLPLNA;TEXT '^S^S^S^SFORWARD^S'
	CMK50A;HLK502;HLK503;HLK504;HLK505
	DISP;HLPLNB;TEXT '^S^S';HLK506;HLK507
	DISP;HLPLNC;TEXT '^S^S';HLK508;HLK509
	DISP;HLPLND;TEXT '^S';HLK50A
	SET;4;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

CMK50A,	TEXT '&WHEN YOU PRESS '
HLK501,	TEXT '!&PREV '
HLK502,	TEXT '!&NEXT '
HLK503,	TEXT '!&SCREEN'
HLK504,	TEXT ', &D&E&CMATE SCROLLS '
HLK505,	TEXT ' THROUGH THE DOCUMENT'
HLK506,	TEXT 'A NUMBER OF LINES EQUAL TO THE NUMBER OF '
HLK507,	TEXT 'LINES THAT CAN CURRENTLY BE'
HLK508,	TEXT 'DISPLAYED, DEPENDING ON THE DOCUMENT VIEW '
HLK509,	TEXT 'WIDTH.  &THE CURSOR IS LEFT'
HLK50A,	TEXT 'AT THE START OF THE LINE.'

	XTRL50=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL51=.
	X=DLHL51		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HNLF,	DISP;HLPLNS;TEXT '<- (&LEFT^S--';HLK513
	DISP;HLPLNA;TEXT '<- (&LEFT^S^S!&BACKUP.';HLK513;HLK510
	SET;4;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

HNRT,	DISP;HLPLNS;TEXT '-> (&RIGHT^S--';HLK513
	DISP;HLPLNA;TEXT '-> (&RIGHT^S^S!&ADVANCE.';HLK513;HLK510
	SET;4;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

HLK510,	TEXT ' PERFORMS THE SAME FUNCTION AS '

HLK513,	TEXT ' &ARROW)'

	XTRL51=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL52=.
	X=DLHL52		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HLRUBC,	DISP;HLPLNS;TEXT '^S--';KNRBC1
	DISP;HLPLNA;TEXT '^S^S,^S ERASES THE CHARACTER BEFORE^S.'
	CMK52A;KNRBC1;CMK52B;KNRBC2
	SET;4;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KNRBC1,	IFDEF	CONDOR	<
	TEXT '&RUBOUT'
			>		/ END IFDEF CONDOR

	IFNDEF	CONDOR	<
	TEXT '!&RUB !&CHAR !&OUT'
			>		/ END IFNDEF CONDOR

KNRBC2,	TEXT ' THE CURSOR'

HLRUBW,	DISP;HLPLNS;TEXT '^S--';KNRBW1
	DISP;HLPLNA;TEXT '^S^S,^S ERASES ALL TEXT BETWEEN^S'
	CMK52A;KNRBW1;CMK52B;KNRBC2
	DISP;HLPLNB;TEXT 'AND THE ^S THE CURRENT^S.  &IF^S IS AT THE'
	KNRBW2;KNRBW3;KNRBC2
	DISP;HLPLNC;TEXT '^S A^S,^S ERASES THE PRECEEDING^S.'
	KNRBW2;KNRBW3;CMK52B;KNRBW3
	SET;4;MNTMP2
	TRNSFR;-1-HLPRET;DLHL02

KNRBW1,	IFDEF	CONDOR	<
	TEXT '!&CTRL &RUBOUT'
			>		/ END IFDEF CONDOR

	IFNDEF	CONDOR	<
	TEXT '!&RUB !&WORD !&OUT'
			>		/ END IFNDEF CONDOR

KNRBW2,	TEXT 'BEGINNING OF'
KNRBW3,	TEXT ' WORD'
CMK52A,	TEXT '&WHEN YOU PRESS '
CMK52B,	TEXT ' &D&E&CMATE'

	XTRL52=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	ADHL53=.
	X=DLHL53		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HLTAB,	DISP; HLPLNS; TEXT '^S--';WRDTAB
	DISP;HLPLNA
	TEXT '&WHEN YOU PRESS ^S, &D&E&CMATE CREATES A NEW RULER WITH A^S'
	GLDTAB;WRDWAP
	DISP;HLPLNB
	TEXT 'INDENT AT ^SPOSITION.  &ANY OLD^SSETTING IN THE RULER'
	THECUR;WRDWAP
	DISP;HLPLNC;TEXT 'BECOMES A TAB SETTING.  &NO OTHER SETTINGS CHANGE.'
	SET; 5; MNTMP2
	TRNSFR; -1-HLPRET; DLHL02

HLTABP,	DISP; HLPLNS;TEXT '^S !&POS--';WRDTAB
	DISP;HLPLNA
	TEXT '&TO REMOVE A^S IN A TABLE, PUT THE SELECT MARK AT ONE END AND'
	HLTCOL
	DISP;HLPLNB;TEXT '^SAT THE OTHER, THEN PRESS ^S !&POS, THEN !&CUT.'
	THECUR;GLDTAB
	DISP;HLPLNC;TEXT '&TO INSERT A^S, PUT ^SWHERE YOU WANT THE^S TO GO'
	HLTCOL;THECUR;HLTCOL
	DISP;HLPLND;TEXT 'AND PRESS ^S !&POS, THEN !&PASTE.'
	GLDTAB
	SET; 7; MNTMP2
	TRNSFR; -1-HLPRET; DLHL02

HLTCOL,	TEXT ' COLUMN'
THECUR,	TEXT 'THE CURSOR '
WRDWAP,	TEXT ' WORD-WRAP '
GLDTAB,	TEXT '&GOLD '
	*.-1			/ BACK UP ONE SPACE
WRDTAB,	TEXT '!&TAB'		/ CONTINUE WITH TEXT FOR GOLD TAB

	XTRL53=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO	.-401&4000 <BAD BLKLENGTH>


	RELOC
	FIELD 4
	*0
	ADHL54=.
	X=DLHL54		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0

HLALTC,	DISP;HLPLNS;TEXT '^S--';ALTCHR
	DISP;HLPLNA
	TEXT '&USED TO ENTER^SS SUCH AS &GREEK LETTERS OR MATHEMATICAL';ACHRTX
	DISP;HLPLNB
	TEXT 'SYMBOLS.  &PRESS ^S, THEN THE KEY FOR THE^S YOU';ALTCHR;ACHRTX
	DISP;HLPLNC;TEXT 'WANT.'
	SET; 23; MNTMP2
	TRNSFR; -1-HLPRET; DLHL02

HLUDK,	DISP;HLPLNS;TEXT '!&UDK--'
	DISP;HLPLNA;TEXT '&USED TO RUN A USER-DEFINED KEY.'
	DISP;-1;TEXT '  &PRESS !&UDK, ENTER THE NUMBER FOR THE KEY'
	DISP;HLPLNB;TEXT 'YOU WANT, THEN PRESS !&RETURN.  '
	DISP;-1;TEXT '&D&E&CMATE RUNS THE KEYSTROKES STORED IN THAT'
	DISP;HLPLNC;TEXT 'KEY.'
	SET; 20; MNTMP2
	TRNSFR; -1-HLPRET; DLHL02

ACHRTX,	TEXT ' ALTERNATE CHARACTER'
ALTCHR,	TEXT '!&ALT !&CHAR'

/ HLRWRD,	DISP;HLPLNS;TEXT '!&RUB !&WORD--'

/	DISP;HLPLNA
/	TEXT '&ERASES THE WORD TO THE LEFT OF THE CURSOR.'
/	SET; 2; MNTMP2
/	TRNSFR; -1-HLPRET; DLHL02

	XTRL54=400-.		/ FREE SPACE REMAINING ON PAGE

IFZERO .-401&4000 <BAD BLKLENGTH>

XXXXXX,	/ END OF MENUES