/ MN2 - SECOND PART OF THE MENU DISPLAYS
/
/121	EMcD	27-Jun-85	Add error message display for Printer
/				select in CX with Print Screen running
/120	EMcD	09-May-85	Remove currency symbol from set conventions
/				menu
/119	EMcD	15-Mar-85	Add VT228 option , move CX1 error messages
/				out to Mag card block
/118	DFB	29-OCT-84	Fix  DX trying to receive existing docs.(AS 117)
/117	DFB	12-OCT-84	Fix DX halt when trying to receive existing docs
/116	TCW	25-SEP-84	Ck FOOTNOTE Drv. & Doc. numbers
/115	WCE	18-SEP-84	Fix MNFNO problem with SC menu
/114	DFB	11-SEP-84	Insert message to prevent LOGON in Graphics mode
/113	DFB	06-SEP-84	ADDITIONAL FIXES TO GRAPHICS TEXT DISPLAYS
/112	WCE	20-AUG-84	ADDED WORD FOR AUTODIAL DIRECTORY DOCUMENT
/111	DFB	15-AUG-84	FIX TO GRAPHICS TEXT DISPLAYS
/110	AH	14-AUG-84	Fix message in global search
/109	WJY	21-JUL-84	Fix "HALT when 'ES' is changed" bug WPSV2-128.
/108	TCW	17-JUL-84	Add VT227 to SO MENU
/107	BC	16-JUL-84	Manual screen width choice in Editor menu
/106	JAC	28-JUN-84	100 UDK Integration
/105	JFS	26-JUN-84	integrate 1.6 DMIII mods
/					no PB change
/					reduced comm. baud rates
/					DECmate as terminal id.
/104	SBB	31-MAY-84	Some 1 liners for footnoting fixes
/103	WCE	26-MAY-84	Changes for BRITISH date and time
/102	TCW	21-MAY-84	INTEGRAL MODEM SUPPORT
/101	SBB	14-MAY-84	For footnoting. Handle Create error, TBO option
/100	WCE	07-MAR-84	Change CX MENU to "Press LOCAL-CMND R" for DM2
/099	WJY	16-FEB-84	Change DMI SO menu to look like DMII
/098	WJY	06-FEB-84	DECmate I compatability
/097	TCW	24-JAN-84	Limit comm. menu input to 64 chars.
/096	TCW	10-JAN-84	Move "Documents Processed:" to line 7 in AX menu.
/095	GDH	06-JAN-84	CX1 (communications) menu change.
/094	EH	06-JAN-84	LP checks result doc 'in use' prior to TBO prompt
/093	TCW	04-JAN-84	Bug fix to DX menu - long doc. name
/092	WCE	17-NOV-83	Added clear screen for EDITOR out-of-space
/091	FJL	17-NOV-83	Added comm. bug dx to ax fix, to ADMA15
/090	GDH	15-NOV-83	Bug fix to SO CT line.
/089	WCE	08-OCT-83	Changes for STATUS line display in edit menu
/088	TCW	07-OCT-83	Changed phrases for Winchester Drive.
/087	WCE	19-SEP-83	Added status message for Blocks Free & Used
/086	HLP	31-AUG-83	Added message for uninitialized diskette
/085	SBB	24-AUG-83	Added VT125 terminal to System Options' pages
/084	WCE	17-AUG-83	Added conditionals for editor STATUS line display
/083	GDH	 2-AUG-83	Fixed communications parity problem in CX3,CX5.
/082	GDH	13-JUL-83	Corrected spelling of CC option in SO menu.
/081	GDH	11-JUL-83	Conditionalized EZ-COMM option.
/080	WCE	07-JUL-83	Replaced occurances of SYS+value in case
/				statements with standard menu definitions
/079	GDH	 6-JUN-83	Rewrote some of the AX/DX menues.
/078	WCE	16-MAY-83	CHANGED L.P. MESSAGE FOR RANGE OF 4095
/077	GDH	13-APR-83	Added TM=EASYLINK for DM2
/076	GDH	13-APR-83	Moved CX "SEND" menu to DLMSO2
/				Modified DX SEND menu to default to "remembered"

/075	WCE	10-MAY-83	Allow LP to remember Result File Name
/074	WCE	20-APR-83	Fixed S.O. Menu page for DECmate I
/073	AIB	10-DEC-82	conditionalized "Rubout key" messages
/072	MJS	10-DEC-82	cosmetic "DISP" wording at "EM3NER"
/071	MJS	07-DEC-82	cosmetic "DISP" wording at "LP3S"
/070	AIB	30-NOV-82	altered index display to avoid empty page
/069	AIB	11-NOV-82	fixed up 50-char msg in global search
/068	AIB	11-NOV-82	moved Index displays up 1 line
/067	DFB	08-NOV-82	Fix cc menu so last line of BT, PB, B not
/				 deleted when key pressed
/066	AIB	21-OCT-82	corrected icon <X] in "Rubout key..."
/065	AIB	20-OCT-82	corrected SO submenus response to errors
/064	AIB	15-OCT-82	marked Rubout key msg with icon <X]
/063	EH	14-OCT-82	Delete 056
/062	AIB	13-OCT-82	changed "RUB CHAR & RUB WORD" to "Rubout key"
/061	HLP	13-OCT-82	Wrong message in CX if hit gold nonsense
/060	EH	05-OCT-82	Modify text line in SO menu
/059	EH	30-SEP-82	Fix of 054
/058	AIB	29-SEP-82	cosmetic changes to TBO menu
/057	EH	23-SEP-82	Don't erase menu header in TBO menu
/056	EH	22-SEP-82	Fix LogDoc filename parsing
/055	EH	22-SEP-82	Raised editor math error msg. one line
/054	EJL	20-SEP-82	Remove problem msg. when DX connects to AX
/053	HLP	16-SEP-82	Change KEYWRDs for DM-II TM
/052	MJS	07-SEP-82	-bug fix at "ADR3S" in AX menu
/051	AIB	 1-SEP-82	Wording changes in some more menus
/050	MJS	30-AUG-82	-bug fix at "L2PED"..list processing "result"
/				 document name cannot be in print queue
/049	AIB	23-AUG-82	Wording changes in some menus
/048	HLP	20-AUG-82	ADD \H TO CX MENU
/047	SBB	19-AUG-82	Rearranged order of SO menu selections
/046	SBB	18-AUG-82	CHANGE TO 045 Use default instead of STD or MCI
/045	SBB	15-JUL-82	Accept variable timeout delay from SO menu
/044	HLP	24-JUN-82	DM-II Changes--NEW TM Menu
/043	HLP	21-JUN-82	DM-II Changes--NEW CC Menu (Only 1 Comm. port)
/				  Correct spelling of "recieve" at SO5ONE, et al
/042	GDH	25-MAR-82	CX error message for no hardware (AD7).
/041	GDH	08-MAR-82	Fixed SO menu to erase the "CR1BR" display
/				 after CR is typed.
/040	GJP	22-FEB-82	ADDED CODE FOR RUNNING OUT OF ROOM ON DISKETTE
/039	WCE	21-JAN-82	FIXED BUG ON SO MENU DISPLAY - ERROR TRASH
/038	AIB	22-DEC-81	REMOVED 036 AND ALTERED ED MATH ERR REPORTING
/				 TO COPE WITH WIDE SCREEN AND VIEW MODE
/037	AJF/GDK	07-DEC-81	FIXED SO REPAINT ON CD BUG
/036	AIB	23-NOV-81	MODIFIED ED MATH ERR MSGS TO PUT CARET AT
/				POSNS GIVEN BY MNTMP2 AND MNTMP3 IF NEEDED
/035	WJD	20-NOV-81	TEMP. REMOVE PAGE XXX OF YYY SOURCE
/034	GDH	11-NOV-81	CX NON-EXISTANT PRINTER ERROR MSG IN AD7.
/033	EH	9-NOV-81	MODIFIED TEXT STATEMENT IN AX MENU
/034	AIB	5-NOV-81	ADJUSTED ED MATH ERR MSGS AND DISPLAY
/033	AIB	30-OCT-81	ADDED EDITOR MATH ERROR MESSAGES
/032	GDH	27-OCT-81	SO MENU ENHANCEMENT NOT TO REFRESH SO MENU
/				SCREEN UNLESS NECESSARY.
/031	EH	26-OCT-81	CORRECTED MESSAGE DISPLAYED ON ERROR IN DX
/030	GDH	23-OCT-81	LANGUAGE CHANGES AS PER THE FUNCTIONAL SPEC.
/029	GDH	23-OCT-81	ALLOW AX TO SEND THE LOG DOC.
/028	GDH	23-OCT-81	CHANGED THE LANGUAGE OF THE SO TM MENU.
/027	MJS	22-OCT-81	ADDED-YOU ARE CURRENTLY EDITING PAGE XXX OF YYY
/026	AIB	22-OCT-81	ADDED BLOCK (DLMLP8) TO LIST PROCESSING ERROR
/				HANDLING TO ACCOMODATE EDITOR MATH
/025	GDH	18-OCT-81	MADE 'W' ACCEPTABLE KEYWORD FOR VT52W.
/024	GDH	17-OCT-81	ADDED 3RD TM OPTION (DWORD).
/023	GDH	16-OCT-81	FIXED UP MY LAST SCREW UP.
/022	PHA	16-OCT-81	FIXED ENTRY TO GLOBAL SEARCH FOR IMPROVED
/				RE-ENTRY HANDLING
/021	GDH	10-OCT-81	CHANGED SO SUB MENUES TO GOLD MENU TO MAIN MENU.
/020	EH	30-SEP-81	CHECK FOR TOO MANY CHARS INPUT TO GS&R
/019	GDH	28-SEP-81	BREAK TIME SETTINGS CHANGES.
/018	GDH	14-SEP-81	COMMUNICATIONS SETTINGS (CC - CX3,4,5,6) CHANGES
/				ADDED TERMINAL MODE SO OPTION.
/017	AJF	14-SEP-81	FIXED A TRUNCATED LP PROMPT
/016	AJF	6-SEP-81	DELETED LOCK CODE FROM LIST PROCESSING MENUS
/015	JRF	2-SEP-81	ADDED ADDITIONAL MATH ERROR REPORTING
/014	PHA	25-AUG-81	ADD AUTO "GOLD PAGE" FEATURE
/013	PHA	24-AUG-81	TEXT CHANGE TO APPEASE DOC PREP
/012	JRF	19-AUG-81	ADDED ADDITIONAL MATH ERROR REPORTING
/011	JRF	18-AUG-81	CORRECTED MATH ERROR REPORTING BUG
/010	JRF	13-AUG-81	ADDED MATH ERROR
/009	GR	06-AUG-81	ADDED EDITOR MENU CHNGS. & MATH SWITCH
/008	PHA	04-AUG-81	SEMANTICS CHANGE IN GLOBAL SEARCH
/007	TT	09-JUL-81	REMOVED SUPERFLUOUS CONDITIONALS
/006	PHA	29-APR-81	ADDED GLOBAL SEARCH TO EDITOR MENU
/005	DAO	20-FEB-81	CHANGED DEFAULT STOP BITS TO 1 (WAS 2)
/004	AJF	09-DEC-80	ADDED MENU PROCESSING FOR SORT PACKAGE
/003	JRF	02-DEC-80	CHANGE TEXT FOR BUG CM016, WP278 BUG LIST FIX.
/002	WCE	28-OCT-80	MODIFICATIONS FOR UNBUNDLING OF OPTIONS
/X3.5	DAO	11-SEP-80	MERGED WITH JLZ'S X3.5
/001	DSS	10-JUL-80	MODIFIED FOR ENGLISH/FRENCH-CANADIAN
/3.0	MSB	8-AUG-78	PUT IN TD
/3.0	KEE	12-MAY-78	RELEASE VERSION 3.0
/QA3.5	LDB	19-APR-78	FIX MISC. BUGS
/QA3.3	KEE	10-APR-78	CHANGE SO MENU PROCESSING TO FIX UNCLEAR MESSAGE
/3.2	KEE	7-APR-78 	FIX SYSTEM OPTIONS BUGS -
/				 MAG CARD DOESNT SET BUFFER CONTROL AND MISSETS
/				 	PARITY
/				 ERROR MESSAGES ARE NOT CLEARED CORRECTLY
/III.D	KEE	28-MAR-78	REMOVE 'CM5' MENU AND ADD WT78 CHECKS FOR WRITES
/				TO ALTERNATE AREA
/III.C	KEE	27-MAR-78	ADD 3 SYSTEMS OPTIONS MENUS
/				ADD 2 TD MENUS (TD9 AND T10)
/III.3	KEE	3/12/78 	SEVERAL THINGS, INCLUDING -
/				-ADD MAGCRD OPTIONS MENUS 'MGS' AND 'MGR'
/				-CHANGES TO MENUS 'CX1', 'CX4', AND 'RLR',
/				 INCLUDING  CHANGIN OF THE WORDING OF THE GOLD-M
/				 OPTION IN THE COMMUNICATIONS MENU
/2.7-5	MB	2/20/78		PUT IN NEW DX/AX
/2.7-5	KEE	2/15/78 	PUT MAGCRD NOTICE INTO COMMUNICATIONS MENU
/III.1	KEE	2/11/78 	ADD TRANSFER DOCUMENT MENUS
/2.7-D	KEE	2/1/78  	SPLIT ASSEMBLY INTO 2 PARTS
/2.7-C	KEE	1/14/78		FIX MAGCRD MENU
/2.7B-1	KEE	1/5/78	 	MENU CHANGES FOR MAGCRD SUPPORT
/2.7A-2	KEE	12/22/77	ALLOW 102 DELETE TO DELETE DOCUMENT 1
/2.7A-1	LDB	11/28/77	MERGE FORM WT78 PACK
/2.5-6	RLT	11/9/77		ADD DDNM ERR HANDLING, DEFAULT
/2.5-5	RLT	11/3/77		FIX BUG IN ED1, ADD CP2
/2.5-4	LDB	11/1/77		ADD SET ALTERNATE UIC MENU
/2.5-3	RLT	10/26/77	CHANGE LOGON MENU
/2.6	KEE	11/17/77	FIX UNABLE TO XXX DISPLAY
/				AND PRINTER LOCK PROBLEMS
/2.5-2	LDB	11/11/77	FIX CX1 OVERFLOW
/2.5.1	KEE	11/10/77	FIX SL TEMP MENU USAGE CONFLICT
/2.5.1	KEE	11/7/77 	ADD CX ERROR FOR DISK OVERFLOW
/2.5.1	KEE	11/4/77 	FIX RETURN-FROM-PRINTER BUG
/2.5A	KEE	10/26/77	FIX LOCK AND UNLOCK CALLS.
/2.5-2	RLT	10/24/77	FIX SOME DRIVE MSGS FOR WT78
/2.5-1	RLT	10/21/77	ADD LOGON MENU FOR WT78
/2.4D-3	RLT	10/20/77	ADD MNPRUN LOCKS
/				SHUFFLE MAIN MENUES FOR EFFICIENCY
/2.4D-2	MB	10/18/77	ADD PROPORTIONAL STUFF
/2.4D-1	LDB	10/18/77	ALLOW PROPORTIONAL FOR ALL SYSTEMS
/2.4D	LDB	10/16/77	CHANGE VER TO 2.4D
/2.4C+	KEE	10/12/77	CHANGE CI COMMAND AND FIX LP TO PRINTER
/2.4C	LDB	10/11/77	CHANGE VERSION TO 2.4C
/2.4B	KEE	10/7/77		FIX PROBLEM WITH DELETE NOT UNLOCKING INDEX
/2.4-2	KEE	10/3/77		DISALLOW 'PI 0', AND DISALLOW PROPORTIONAL PITCH
/				FOR 100 AND WS78 SYSTEMS
/2.4-1	LDB	9/29/77		FIX 102 PRINTER LOCKS
/2.Q-1	LDB	9/25/77		PUT IN PRINTER LOCKS
/2.P-7	LDB	9/23/77		FIX BUG IN RL/SL MENU
/2.P-6	RLT	9/20/77		CHANGE PS1,PS2 FOR NEW STOP REASON (7)
/2.P-5	LDB	9/20/77		CHANGE CM1, RS1, AND LP2 FOR SL & RL
/2.P-4	KEE	9/17/77		PUT 'CX' MENUS INTO MN
/2.P-1	LDB	9/16/77		PUT IN MORE RL & SL CODE AND ASSORTED CHANGES
/2.N-5	KEE	9/15/77		MORE MENU CLEAN UP FOR 2.5
/2.N-1	RLT	9/14/77		ADD UDKPRT STUFF
/2.N	LDB	9/14/77		CHANGE CMND CALLS BECAUSE OF
/				MOVE FROM CUT TO CU2
/2.J   LB&KE	8/19/77		 ASSORTED CHANGES FOR 2.5
/2.G-3	MB	8/13/77		PUT NEW FORM OR WPCU2 IN IT IS NOW 3 OVERLAYS
/2.G-2	MB	8/11/77		PUT IN THE INDEX TO DOCUMENT CHANGE
/2.G-1	RLT	8/8/77		LA180P COMMENT IN RD MENU

/
/		 COPYRIGHT (C) 1977 BY
/	 DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
/
/ THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
/ ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH LICENSE AND WITH THE
/ INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY  OTHER
/ COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
/ OTHER PERSON.  NO TITLE TO AND OWNERSHIP TO  THE  SOFTWARE  IS HEREBY
/ TRANSFERRED.
/
/ THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT
/ NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
/ EQUIPMENT CORPORATION.
/
/ DIGITAL ASSUMES NO  RESPONSIBILITY FOR THE USE OR  RELIABILITY
/ OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
/

/ THIS FILE CONTAINS THE SECOND PART OF THE MENU ASSEMBLY - THAT PART
/ WITH MOST OF THE MENUS CALLED IN BY EXECUTING PROGRAMS.
/
/ TO ASSEMBLE THIS PART, THE 'MNCOM' COMMON MENUS MUST BE ASSEMBLED AT THE
/ FIRST PART OF THE ASSEMBLY.  IT WILL NOT, HOWEVER, BE WRITTEN OUT WITH
/ THE REST OF THE MENUS IN THIS ASSEMBLY.  THUS THE SPACE IT USES CAN BE
/ REUSED.
/
/ CARE SHOULD BE TAKEN THAT MENUS IN THIS FILE DON'T CALL MENUS CONTAINED
/ IN THE OTHER PART - WITH THE EXCEPTION OF THE MAIN MENU USING ENTRY 'MM1S'.
/
RELOC

FIELD 1		/REUSE SPACE USED BY PREVIOUS MENUS
	*0

/EDITOR MENUS - COPY DOCUMENT

RELOC
ADMEM1=.
X=DLMEM1		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0


EM1S,	CASE;MNTMP1
		1;EM1S1
		2;EM1S2
		3;EM1S3	/USE THE RUNNING OUT OF ROOM MESSAGE FROM CI
		4;EM1S4	/UNINITIALIZED DISKETTE IN INDEX		/A086
	COPY;MNFNO;MNTMP4

EM1D,	DISP;0;TEXT '!E    '
	DISP;2205;TEXT '&TYPE THE NAME OF THE DOCUMENT TO BE INSERTED'
	DISP;-1;TEXT ' AND PRESS !&RETURN'
	DISP;2405;TEXT '!&OR &JUST PRESS !&RETURN TO RESUME EDITING.'

EM1RD,	READ;MNTMP1;EM1RE
	SET;0;MNTMP3
	FILNAM;EM1RT;EM1ND
	COPY;MNFNO;MNTMP3
EM1RT,	COPY;MNTMP4;MNFNO
	FBREAK;MNFNO
	RETURN

EM1RE,	CALL;CR1BR;DLMCR1
	GOTO;EM1D

EM1ND,	CALL;CR1ND;DLMCR1
	GOTO;EM1D

EM1S3,	DISP;0;TEXT '!E'
	DISP;1405;TEXT '-- &CANNOT CONTINUE --'
	GOTO;EM1RT1

EM1S1,	DISP;0;TEXT '!E'
	DISP;1405;TEXT '-- &DO NOT ADD ANY MORE TO DOCUMENT --'		/M003

EM1RT1,
/D088	DISP;1605;TEXT '&ONLY !D BLOCKS LEFT ON DISKETTE.'
/D088		MNTMP2
	DISP; 1605; TEXT '&ONLY !D BLOCKS LEFT ON '; MNTMP2		/A088
	CALL; EM4CKW; DLMEM4	/ CK FOR WINI				/A088
	DISP; -1; TEXT '.'						/A088
	DISP;2005;TEXT '^A!E&PRESS !&RETURN'				/M051
		EM1BEL
	CASE;MNTMP1;3;FILDOC	/ ARE WE ALL OUT OF ROOM?		/A040
	GOTO;EM1RD1		/ NO, GO READ WHAT THE USER TYPED IN	/A040
FILDOC,	DISP;-1;TEXT ' TO FILE DOCUMENT'				/A040
EM1RD1,	READ;MNTMP1;EM1RT1
	ARG;EM1RTX;MNTMP1
	GOTO;EM1RT1
EM1BEL,	007;0
EM1RTX,	DISP;0;TEXT '!E'						/A092
	RETURN

			/TOO LITTLE SPACE FOR GET DOCUMENT
/D088/EM1S2,	DISP;1405;TEXT '-- &NOT ENOUGH SPACE ON DISKETTE FOR COPY --'
EM1S2,	DISP; 1405; TEXT '-- &NOT ENOUGH SPACE ON '
	CALL; EM4CKW; DLMEM4	/ CK FOR WINI				/A088
	DISP; -1; TEXT ' FOR COPY --'					/A088
	GOTO;EM1RT1

EM1S4,	TRNSFR;EM3S4;DLMEM3						/A086

XTREM1=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/MORE EDITOR MENUS

RELOC
ADMEM2=.
X=DLMEM2		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

EM2S,	SET;0;MNTMP5	/CLEAR SVAL MOD FLAG
EM2S1,	DISP;0;TEXT '!E-- !&EDITOR !&MENU --'

	CASE;LINPGH-MUBUF;0;EM2S2					/A089
	DISP;302;TEXT '&PAGE: !D!3D';LINPGH-MUBUF;LINPGL-MUBUF		/A089
	GOTO;EM2S3							/A089
EM2S2,	DISP;202;TEXT '&PAGE: !D';LINPGL-MUBUF				/A089

EM2S3,	DISP;220;TEXT '&LINE: '						/A107
	CASE;LINNUM-MUBUF;0;EM2S4					/A089
	DISP;-1;TEXT '!D';LINNUM-MUBUF				/A089	/M107
	GOTO;EM2S5							/A089
EM2S4,	DISP;-1;TEXT '&N/&A'					/A089	/M107

EM2S5,	DISP;236;TEXT '&BLOCKS AVAILABLE: !D';LINFRE-MUBUF		/A087
	DISP;270;TEXT '&BLOCKS USED: !D';LINUSD-MUBUF			/A087

	DISP;502;TEXT '&F  = &FILE DOCUMENT AND RECALL &MAIN &MENU'
	DISP;555;TEXT '&R  = &RESUME PRINTING'
	DISP;702;TEXT '!&PG = &PAGINATION (AUTOMATIC &GOLD !&PAGE)'	/M051
	DISP;755;TEXT '!&DK = &DEFINE USER KEYS'
EM2RS,	DISP;-1102;TEXT '!&MA = &MATH INTERACTIVE MODE    (!&MA '

	IFDEF	UNBUND	<
	TSTBIT;MNOPTC;MABIT;EM2RS1	/TEST IF MATH ENABLED, TRANSFER IF NOT
			>		/ENDIF UNBUND

	TSTBIT;MNMATH;1;EM2RS1		/TEST INTERACTIVE MATH, TRANSFER IF OFF
	DISP;-1;TEXT '!&YES)'		/SAY THAT WE HAVE INTERACTIVE MATH
	GOTO;EM2RS2			/NOW GOTO NEXT DISPLAY LINE
EM2RS1,	DISP;-1;TEXT '!&NO)'		/SAY NO INTERACTIVE MATH

EM2RS2,	DISP;1155;TEXT '!&GS = &GLOBAL &SEARCH AND &REPLACE'
	TRNSFR;EM2AS;DLME2A

	IFDEF	CONDOR	<					/A087	/M098
EM2ES,	ARG;EM2ESR;MNTMP1	/GET ARGUMENT FOR EDITOR STATUS SIZE	/A089
	NUMBER;MNTMP1;EM2ESR	/MAKE SURE ENTRY IS A VALID NUMBER	/A089
	RANGE;MNTMP1;0;3;EM2ESR /MAKE SURE IT IS WITHIN RANGE		/A089
	COPY;MNTMP1;MNSTAT	/IF YES, UPDATE NEW EDITOR STATUS VALUE	/A089
	SET;1;MNTMP5		/SET SYSTEM OPTIONS MODIFIED FLAG	/A089
	TRNSFR;EM2AS2;DLME2A	/GO FIX UP SCREEN DISPALAY	/A089	/M107

EM2ESR,	TRNSFR;EM4ESR;DLMEM4	/GO HANDLE ERROR BY USER		/A089
			>	/ END IFDEF CONDOR		/A087	/M098

XTREM2=400-.

IFZERO .-401&4000 <?BADPAGE LENGTH>

/MORE OF THE EDITOR MENU - EXTENSION OF ADMEM2

RELOC
ADME2A=.
X=DLME2A		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

EM2AS,	FBREAK;MNABRV	/THIS IS TO GIVE YOU THE PROPER ABREV. DOC. NUMBER
	DISP;-1302;TEXT '!&AD = &ABBREVIATION DOCUMENT    (!&AD !D.!D)'
	MNDRV;MNDOCN
	FBREAK;MNLBRY	/THIS IS TO GIVE YOU THE PROPER LIBRY. DOC. NUMBER
	DISP;-1355;TEXT '!&LD = &LIBRARY DOCUMENT (!&LD !D.!D)'
	MNDRV;MNDOCN
EM2AS1,	DISP;-1502;TEXT '!&CT = &CURRENT TEXT LINES/PAGE  (!&CT !D)'
	MNTMP3
	IFDEF	CONDOR	<					/A087	/M098
EM2AS2,	DISP;-1555;TEXT '!&ES = &EDITOR STATUS    (!&ES !D)'		/A089
	MNSTAT								/A089
			>	/ END IFDEF CONDOR		/A087	/M098
	DISP;-1702;TEXT '!&ST = &STANDARD TEXT LINES/PAGE (!&ST !D)'
	MNPGSZ
EM2AS5,	DISP;-1755;TEXT '!&SW = &SCREEN &WIDTH     (!&SW '		/A107
	TSTBIT;MNTMP8;1;EM2AS3		/SCREEN WIDE? TRANSFER IF SO	/A107
	DISP;-1;TEXT '!&NARROW)'	/SAY SCREEN IS NARROW		/A107
	GOTO;EM2AS4			/NOW GOTO NEXT DISPLAY LINE	/A107
EM2AS3,	DISP;-1;TEXT '!&WIDE)'		/SAY THAT WE HAVE WIDE SCREEN	/A107
EM2AS4,	FBREAK;MNFNO
	DISP;2312;TEXT '&TYPE THE LETTER(S) AND THEN PRESS !&RETURN'
	DISP;2412;TEXT '!&OR &JUST PRESS !&RETURN TO RESUME EDITING'
	DISP;2512;TEXT '!&OR &PRESS &GOLD !&MENU TO FILE DOCUMENT AND '
	*.-1		/** CAREFUL IF YOU CHANGE ABOVE LINE **		/A107
	TEXT 'RECALL &MAIN !&MENU.!E'	/CLEAR TO BOTTOM LINE OF SCREEN	/M107
/D107	DISP;-2700;TEXT ''	/CLEAR BOTTOM LINE OF SCREEN

	TRNSFR;EM3RD;DLMEM3

XTRE2A=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/MORE OF THE EDITOR MENU

RELOC
ADMEM3=.
X=DLMEM3		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

EM3RD,	READ;MNTMP1;EM3RE1	/GET USER INPUT, CHECK FOR GOLD KEY
	ARG;EM3RC;MNTMP1	/GET NEXT ARGUMENT, CHECK FOR BLANK LINE

	KEYWRD			/CHECK USER INPUT AGAINST LIST
	TEXT 'AD ';EM3ADC	/CHECK FOR ABBREVIATION DOCUMENT
	TEXT 'CT ';EM3PSC	/CHECK FOR CURRENT TEXT SIZE
	TEXT 'DK ';-1-EM4S;DLMEM4	/CHECK FOR DEFINE USER KEYS
	IFDEF	CONDOR	<					/A087	/M098
	TEXT 'ES ';-1-EM2ES;DLMEM2	/CHECK FOR EDIT STATUS 	/A089	/M109
			>	/ END IFDEF CONDOR		/A087	/M098
	TEXT 'F ';EM3FC		/CHECK FOR FILE DOCUMENT
	TEXT 'GS ';EM3GSC	/CHECK FOR GLOBAL SEARCH		/A006
	TEXT 'LD ';EM3LDC	/CHECK FOR LIBRARY DOCUMENT
	TEXT 'MA ';-1-EM5S;DLMEM5	/CHECK FOR ENABLING MATH
	TEXT 'PG ';EM3PAG	/CHECK FOR AUTO GOLD PAGE
	TEXT 'R ';EM3CC		/CHECK FOR RESUME PRINTER
	TEXT 'ST ';EM3DPC	/CHECK FOR STANDARD TEXT SIZE
	TEXT 'SW ';-1-EM5SW;DLMEM5	/CHECK FOR MANUAL SCREEN WIDTH	/A107

EM3MAC,	CALL;CR1NM;DLMCR1	/ERROR MESSAGE - "TYPING .... HAS NO MEANING"
	GOTO;EM3RD		/GO GET FRESH USER INPUT

EM3RE1,	CASE;MNSYSA		/CHECK GOLD KEY RESPONSE		/M080
		EDMENU&3777;EM3FC	/CHECK FOR GOLD MENU
	CALL;CR1BR;DLMCR1	/ERROR MESSAGE - "WHEN TYPING TO ...."
	TRNSFR;EM2S;DLMEM2	/GO REDISPLAY THE EDIT MENU PAGE

EM3DPC,	ARG;EM3NER;MNTMP1	/GET ARGUMENT FOR STANDARD TEXT SIZE
	NUMBER;MNTMP1;EM3NER	/MAKE SURE ENTRY IS A VALID NUMBER
	RANGE;MNTMP1;1;1747;EM3NER /MAKE SURE IT IS WITHIN RANGE	/M078
	COPY;MNTMP1;MNPGSZ	/IF YES, UPDATE NEW STANDARD TEXT SIZE VALUE
	GOTO;EM3AD2

EM3PSC,	ARG;EM3NER;MNTMP1	/GET ARGUMENT FOR CURRENT TEXT SIZE
	NUMBER;MNTMP1;EM3NER	/MAKE SURE ENTRY IS A VALID NUMBER
	RANGE;MNTMP1;1;1747;EM3NER /MAKE SURE IT IS WITHIN RANGE	/M078
	COPY;MNTMP1;MNTMP3	/IF YES, UPDATE NEW CURRENT TEXT SIZE VALUE
	GOTO;EM3AD3

EM3NER,	DISP;	-2713							/m072
	  TEXT ' &FOLLOW THE COMMAND WITH A NUMBER BETWEEN 1 AND 999.'	/M078
	GOTO;	EM3RD		/GO BACK AND TRY AGAIN

EM3LDC,	COPY;MNFNO;MNTMP2	/SAVE CURRENT FILE NUMBER
	FILNAM;EM3FER;EM3FND	/CHECK USER INPUT FOR VALID FILE NAME
	COPY;MNFNO;MNLBRY	/IF YES, UPDATE LIBRARY DOCUMENT NUMBER
	GOTO;EM3AD1

EM3ADC,	COPY;MNFNO;MNTMP2	/SAVE CURRENT FILE NUMBER
	FILNAM;EM3FER;EM3FND	/CHECK USER INPUT FOR VALID FILE NAME
	COPY;MNFNO;MNABRV	/IF YES, UPDATE ABBREVIATION DOCUMENT NUMBER
EM3AD1,	COPY;MNTMP2;MNFNO	/RESTORE THE CURRENT FILE NUMBER
EM3AD2,	SET;1;MNTMP5		/SET SYSTEM OPTIONS MODIFIED FLAG
EM3AD3,	FBREAK;MNFNO		/RESTORE FILE NAME PARAMETERS
	TRNSFR;EM2AS;DLME2A	/GO BACK AND UPDATE SCREEN VALUES

EM3FER,	DISP;-2717;TEXT ' &FOLLOW THE COMMAND WITH A DOCUMENT NAME.'
	COPY;MNTMP2;MNFNO	/RESTORE CURRENT FILE NUMBER
	FBREAK;MNFNO		/RESTORE FILE NAME PARAMETERS
	GOTO;EM3RD		/GO BACK AND TRY AGAIN

EM3FND,	CALL;CR1ND;DLMCR1	/ERROR MESSAGE - "DRIVE X DOES NOT HAVE ..."
	COPY;MNTMP2;MNFNO	/RESTORE CURRENT FILE NUMBER
	TRNSFR;EM2S;DLMEM2	/GO REDISPLAY EDIT MENU PAGE

EM3RC,	SET;0;MNTMP4		/SET RESUME EDITING INDICATOR
	RETURN			/GO BACK TO EDITOR TO RESUME EDITING

EM3CC,	SET;3;MNTMP4		/SET RESUME PRINTER INDICATOR
	RETURN			/GO BACK TO EDITOR TO PERFORM RESUME FUNCTION

EM3FC,	SET;4;MNTMP4		/SET FILE DOCUMENT INDICATOR
	RETURN			/GO BACK TO EDITOR TO FILE DOCUMENT AND EXIT

EM3GSC,	SET;5;MNTMP4		/SET INDICATOR FOR GLOBAL SEARCH	/A006
	RETURN			/GO BACK TO EDITOR TO PERFORM SEARCH	/A006

EM3PAG,	/	DISP;-2717;TEXT'FEATURE NOT READY, TRY AGAIN'		/D014
	/	GOTO;EM3RD		/GO BACK AND TRY AGAIN		/D014
	SET;6;MNTMP4		/INDICATE AUTO GOLD PAGE REQUEST
	RETURN			/GO BACK TO EDITOR AND DO IT

EM3S4,	DISP;0;TEXT '!E'	/ CLEAR SCREEN				/A086
/D088	DISP;1505;TEXT '&THE DISKETTE IS NOT AN INITIALIZED !&WPS'	/A086
/D088	DISP;-1;TEXT ' DISKETTE.'					/A086
	DISP; 1505; TEXT '&THE '					/A088
	CALL; EM4CKW; DLMEM4		/ CK FOR WINI			/A088
	DISP; -1; TEXT ' IS NOT AN INITIALIZED !&WPS '			/A088
	CALL; EM4CKW; DLMEM4		/ CK FOR WINI			/A088
	DISP; -1; TEXT '.'						/A088
	TRNSFR;PP2ERT;DLMPP2						/A086

XTREM3=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/UDK MENU FOR EDITOR

RELOC
ADMEM4=.
X=DLMEM4		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

EM4S,	DISP;0;TEXT '!E    '
	ARG;EM4RD;MNTMP1
	NUMBER;MNTMP1;EM4ER
	RANGE;MNTMP1;0;CUUDNM-1;EM4ER					/C106
	SET;1;MNTMP4
	RETURN

EM4RD,	DISP;0;TEXT '!E    '
	DISP;2205;TEXT '&TYPE THE NUMBER OF THE KEY YOU WISH TO DEFINE'
	DISP;-1;TEXT ' AND THEN PRESS !&RETURN'
	MXDISP;2405;X03GME;DLMX03 / OR PRESS GOLD MENU TO RECALL THE EDITOR MENU
	READ;MNTMP1;EM4RE
	GOTO;EM4S
EM4RE,	CASE;MNSYSA							/M080
		EDMENU&3777;EM4MM
	CALL;CR1BR;DLMCR1
	GOTO;EM4RD
EM4MM,	TRNSFR;EM2S1;DLMEM2


EM4ER,	DISP;1705;TEXT '^A&THE DEFINABLE KEYS ARE IDENTIFIED BY A NUMBER '
	*.-1
	TEXT ' BETWEEN 0 AND 99.'					/C106
	EM4BEL
	DISP;2105;TEXT '&PRESS !&RETURN AND TRY AGAIN.'
	READ;MNTMP1;EM4ER1
	ARG;EM4RD;MNTMP1
	GOTO;EM4ER
EM4ER1,	CASE;MNSYSA							/M080
		EDMENU&3777;EM4MM
	GOTO;EM4ER

EM4BEL,	007;0

EM4CKW,	TSTBIT; MNOPTN; MNRX2X; EM4DSK		/ CK FOR WINI INST	/A088
	CASE; MNTMP5				/ YES - CK NUMBER	/A088
	  0; EM4DSK				/ 0 - A DISKETTE	/A088
	  1; EM4CD1				/ 1 - DISKETTE OR VOL	/A088
EM4VOL,	DISP; -1; TEXT 'VOLUME'						/A088
	GOTO; EM4CKR				/ BRANCH TO EXIT	/A088
EM4CD1,	TSTBIT; MNOPTN; MNRX3X; EM4DSK		/ CK 1 = DRIVE		/A088
	GOTO; EM4VOL				/ NO - DISP "VOLUME	/A088
EM4DSK,	DISP; -1; TEXT 'DISKETTE'					/A088
EM4CKR,	RETURN								/A088

	IFDEF	CONDOR	<					/A087	/M098
EM4ESR,	DISP;-2717;TEXT "!&ES 0, 1, 2, OR 3 PLEASE"  			/A089
	TRNSFR;EM3RD;DLMEM3	/GO BACK TO KEYWORD STATEMENTS		/A089
			>	/ END IFDEF CONDOR		/A087	/M098

XTREM4=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/EDITOR MENU 5

RELOC
ADMEM5=.
X=DLMEM5		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

EM5S,	ARG;EM5RD;MNTMP1	/TEST MA ANSWER HERE FOR YES OR NO

	KEYWRD
		TEXT 'YES ';EM5YES
		TEXT 'NO ';EM5NO

EM5RD,	DISP;-2717;TEXT "!&MA YES OR NO, PLEASE"  /IF MA GARBAGE, THEN MESSAGE

		TRNSFR;EM3RD;DLMEM3	/GO BACK TO KEYWORD STATEMENTS

EM5YES,	IFDEF UNBUND <
	TSTBIT;MNOPTC;MABIT;EM5ERR	/CHECK TO SEE IF MATH BIT SET
	>	/ENDIF UNBUNDLE
	SET;1;MNMATH

EM5GO,	TRNSFR;EM2RS;DLMEM2	/IF SET, PUT YES ON SCREEN;IF NO, PUT NO
EM5NO,	SET;0;MNMATH		/IF MATH NOT ENABLED, PUT NO ON SCREEN
	GOTO;EM5GO

EM5ERR,	DISP;0;TEXT '!E-- !&FEATURE !&NOT !&ACTIVE --'
	DISP;1514;TEXT "&THE &MATH FEATURE THAT YOU ARE TRYING TO USE "
	DISP;-1;TEXT "IS NOT ACTIVE."
	DISP;2525;TEXT '&PRESS !&RETURN TO RECALL THE &EDITOR &MENU.' /M051

EM5ER1,	READ;MNTMP1;EM5ER1	/THIS IS A WAIT LOOP IF THE PERSON TYPES
	ARG;EM5MM;MNTMP1	/ANYTHING BUT RETURN
	GOTO;EM5ER1

EM5SW,	ARG;EM5SD;MNTMP1	/TEST SW ANSWER HERE FOR WIDE OR NARROW	/A107
	KEYWRD								/A107
		TEXT 'WIDE ';EM5WID					/A107
		TEXT 'NARROW ';EM5NAR					/A107
EM5SD,	DISP;-2717;TEXT "!&SW WIDE OR NARROW, PLEASE"/IF SW BAD THEN MSG/A107
		TRNSFR;EM3RD;DLMEM3	/GO BACK TO KEYWORD STATEMENTS	/A107
EM5WID,	SET;0;MNTMP8							/A107
EM5WN,	TRNSFR;EM2AS5;DLME2A	/GO PUT WIDE OR NARROW ON SCREEN	/A107
EM5NAR,	SET;1;MNTMP8		/IF SW SET NARROW, PUT NARROW ON SCREEN	/A107
	GOTO;EM5WN							/A107

EM5MM,	TRNSFR;EM2S1;DLMEM2	/FINALLY WE GO BACK TO THE EDITOR MENU


XTREM5=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/CREATE DOCUMENT COMMAND ERROR MESSAGES

RELOC
ADMPP2=.
X=DLMPP2		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0


PP2ER,	COPY; MNTMP2; PP2HLD

	DISP;0;TEXT '!E  ^A';PP2BEL
	CASE;MNTMP1							/A101
		4;PP2ZER	/REPORT SIZE ERROR			/A101
	DISP;1505;TEXT '&UNABLE TO CREATE DOCUMENT.'

	CASE;MNTMP6		/TMP6 IS 12 FOR FOOTNOTING		/A101
		12;PP2FFF	/GO HANDLE FOOTNOTE CASE		/A101
	CASE;MNTMP1
		1;PP2OOR
		2;PP2OON
		3;PP2LPD
	GOTO;PP2ERT

PP2BEL,	7;0

PP2OOR,	DISP;1705;TEXT '&DOCUMENT NUMBERS MUST BE FROM 1 TO 200.'
	GOTO;PP2ERT

PP2OON,	DISP;1705;TEXT '&THERE ARE NO MORE DOCUMENTS AVAILABLE.'

PP2ERT,	DISP;2105;TEXT '!E&'
	MXDISP;-1;X02PRM;DLMX02		/ PRESS RETURN TO RECALL THE MAIN MENU

PP2RD,	READ;MNTMP2;PP2RE
	ARG;PP2MM;MNTMP2
	GOTO;PP2ERT							/C086

PP2RE,	CASE;MNSYSA							/M080
		EDMENU&3777;PP2MM
	CALL;CR1BR;DLMCR1
	GOTO;PP2ERT							/C086


PP2ZER,	DISP;1705;TEXT '&NOT ENOUGH ROOM ON DRIVE/DEVICE.'		/A101

PP2FFF,	DISP;2105;TEXT '&PRESS !&RETURN TO TRY ANOTHER NAME.'		/A101
	SET;4;MNTMP4		/GOT CLEARED LEAVING LP2. NEED AGAIN	/A104
	MXDISP;2305;X02PGM;DLMX02 / OR PRESS GOLD MENU TO RECALL THE MAIN MENU.
	READ;MNTMP2;PP2GM	/GOLD MENU LEADS BACK TO MM		/A101
	ARG;PP2MM;MNTMP2	/RETURN TO WPCUT TO TRY AGAIN		/A101
	GOTO;PP2FFF		/TO REPEAT ABOVE MESSAGE		/A101
PP2GM,	SET;0;MNTMP6		/WPCUT CHECKS HERE TO RETURN TO MM	/A101

PP2MM,	RETURN
PP2LPD,	TRNSFR;LP4LPD;DLMLP4


PP2HLD,	0		/ENTRY VALUE OF MNTMP2


XTRPP2=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/LIST PROCESSING MENUS

RELOC
ADMLP1=.
X=DLMLP1		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

LP1S,	SET;0;MNTMP6		/CLEAR PRIOR FOOTNOTING FLAG		/A104
	DISP;0;TEXT '!E-- !&LIST !&PROCESSING !&MENU --'
	DISP;705;TEXT '&P = &MERGE LIST WITH A FORM AND PRINT THE RESULT'
	DISP;1105;TEXT '&D = &MERGE LIST WITH A FORM AND PUT RESULT INTO A DOCUMENT'
	DISP;1305;TEXT '&T = &TEST A SELECTION SPECIFICATION FOR ERRORS'

	MXDISP;2020;X03TLR;DLMX03 / TYPE THE LETTER AND PRESS RETURN
	MXDISP;2220;X02PGM;DLMX02 / OR PRESS GOLD MENU TO RECALL THE MAIN MENU.

LP1RD,	READ;MNTMP1;LP1RE
	ARG;LP1RD;MNTMP1
	KEYWRD
		TEXT 'P ';LP1PC
		TEXT 'D ';LP1DC
		TEXT 'T ';LP1TC
	CALL;CR1NM;DLMCR1
	GOTO;LP1RD

LP1RE,	CASE;MNSYSA							/M080
		EDMENU&3777;LP1MM
	CALL;CR1BR;DLMCR1
	GOTO;LP1S

LP1MM,	SET;0;MNTMP3
	RETURN

LP1PC,	SET;2;MNTMP3
	RETURN

LP1PER,	SET;0;MNTMP3		/RETURN A GOLD-M FOR THIS ERROR
	TRNSFR;LP4PER;DLMLP4

LP1DC,	SET;3;MNTMP3
	RETURN

LP1TC,	SET;1;MNTMP3
	RETURN

LP1FF,	DISP; 0; TEXT '!E  ' 	/ REPORT ERROR				/A116
	DISP; 2505; TEXT '!&FOOTNOTE AND !&RESULT DOCUMENTS MUST '	/A116
	DISP; -1; TEXT 'BE ON THE SAME DRIVE.'				/A116
	MXDISP; -2605; X02NAM; DLMX02 / PRESS RETURN TO TRY ANOTHER NAME/A116
	READ; MNTMP1; .+1						/A116
	RETURN								/A116

XTRLP1=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/ -------------------------------------
/ |LOTS OF SHORT LIST PROCESSING MENUS|
/ -------------------------------------

RELOC
ADMLP2=.
X=DLMLP2		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0


LP2S,	DISP;0;TEXT '!E     '	/ ERASE THE SCREEN
	CASE;MNTMP4							/A094
		5;LP2ED1	/ to TBO screen				/A094
	DISP;1505;TEXT '&TYPE THE NAME OF THE '
	CASE;MNTMP4
		2;LP2DS		/ 'selection specification'
		3;LP2DF		/ 'form'
		4;LP2DR		/ 'result'
				/ 'list'

LP2DL,	DISP;-1;	TEXT '!&LIST DOCUMENT TO BE USED'
	GOTO;LP2RD

LP2DS,	DISP;-1;TEXT '!&SELECTION !&SPECIFICATION TO BE USED'
	GOTO;LP2RD

LP2DF,	DISP;-1; TEXT '!&FORM WITH WHICH YOU WISH TO MERGE THE LIST'
	GOTO;LP2RD

LP2DR,	DISP;-1; TEXT 'DOCUMENT INTO WHICH THE !&RESULT WILL BE PLACED'

LP2RD,	MXDISP;1605;X02APR;DLMX02 / AND PRESS RETURN
	MXDISP;2005;X02PGM;DLMX02 / OR PRESS GOLD MENU TO RECALL THE MAIN MENU.
	SET;1;MNTMP3
	SET;0;MNFNO		/TO AVOID ERROR MESSAGE IN FOOTNOTING	/A104
				/WHEN GOLD MENU INSTEAD OF RESULT NAME	/A104
	READ;MNTMP1;LP2RE
	FILNAM;LP2RD;LP2ND
	CASE;MNTMP4
		4;LP2ED
LP2RT,	RETURN
/
/LP2LER,CALL;LCKER1;	DLMLCK					/D017
/	GOTO;LP2S						/D017

LP2RE,	CASE;MNSYSA							/M080
		EDMENU&3777;LP2MM
	CALL;CR1BR;DLMCR1
	GOTO;LP2S

LP2MM,	SET;0;MNTMP3
	RETURN

LP2ND,	CASE;MNTMP4
		4;LP2CD
	CALL;CR1ND;DLMCR1
	GOTO;LP2S

LP2CD,	SET;-1;MNTMP3
	GOTO;LP2RT
/
/ go to "lp2ed2" if result doc name in print queue			/a050
/

LP2ED,	PQUEUE;LP2ED2;LP2EFF

	CASE; MNTMP6		/ CK FOR FOOTNOTE CALL			/A116
	12; LP2FF		/ GO CK DRV. & DOC. NUMBERS		/A116

/
/ display T,B,O menu and do a return from cm1nx
/
LP2ED1,	SET;0;MNTMP4
	TRNSFR;CM1NX;DLMCM1

/
/ list processing "result" document name is in print queue		/a050
/ --get another name--							/a050
/
LP2ED2,	CALL;CR2PER;DLMCR2						/a050
	GOTO;LP2S							/a050

LP2EFF,	CASE;MNTMP6			/IF FOOTNOTING			/A101
	12; LP2FF			/ CK DRV. & DOC. NUMBERS	/M116
	GOTO;LP2RT			/OTHERWISE RETURN FIRST		/A101

LP2FF,	
	CASE; MNMXDR		/ CK FOR 2 - DRV SYS			/A116
	  1; LP22DS		/ YES - GO CK DRIVE NUMBERS		/A116
	GOTO; LP2ED1		/ NO - GO ASK T,B,O			/A116

LP22DS,	
	COPY; MNDRV; LP2FF2	/ RESULT DRV NUMBER			/A116
	COPY; MNUTFN; MNTMP9	/ FOOTNOTE FILENAME			/A116
	CLRBIT; 0377; MNTMP9	/ LEAVE DRIVE NUMBER			/A116
	SHFBIT; 10; MNTMP9	/					/A116
	CASE; MNTMP9		/ DRIVE NUMBERS MUST BE THE SAME	/A116
LP2FF2,	  0; LP2ED1		/ YES - GO ASK T,B,O			/A116
	CALL; LP1FF; DLMLP1	/ NO - GO REPORT ERROR			/A116
	GOTO; LP2S		/ TRY AGAIN				/A116

XTRLP2=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/LIST PROCESSING START MENU - THE ONE YOU VERIFY AND START IT WITH

RELOC
ADMLP3=.
X=DLMLP3		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

LP3S,
/D075	SET;0;MNFNO	/DELETED SO LP RESULT FILE NUMBER CAN BE REMEMBERED
	DISP;0;TEXT '-- !&LIST !&PROCESSING !&START !&MENU --'
	DISP;1405;TEXT '!&FR = &START PROCESSING FROM THIS RECORD (!&FR !L!D)'
		MNTMP2

	DISP;1605
	TEXT '!&TO = &PROCESS UP TO AND INCLUDING THIS RECORD (!&TO !L!D)'
		MNTMP3

	DISP;2005;TEXT '!&GO = &PROCESS THE LIST'
	DISP;2320;TEXT '&TYPE THE LETTERS AND PRESS !&RETURN'		/m071
	MXDISP;2520;X02PGM;DLMX02 / OR PRESS GOLD MENU TO RECALL THE MAIN MENU.

LP3RD,	READ;MNTMP1;LP3RE
	ARG;LP3RD;MNTMP1

	KEYWRD
		TEXT 'FR ';LP3FR
		TEXT 'TO ';LP3TO
		TEXT 'GO ';LP3GO

	CALL;CR1NM;DLMCR1
	GOTO;LP3RD

LP3RE,	CASE;MNSYSA							/M080
		EDMENU&3777;LP3MM
	CALL;CR1BR;DLMCR1
	SET;1;MNTMP1
	RETURN

LP3MM,	SET;0;MNTMP1
	RETURN

LP3GO,	SET;2;MNTMP1
	RETURN

LP3FR,	ARG;LP3ER;MNTMP1
	NUMBER;MNTMP1;LP3ER
	COPY;MNTMP1;MNTMP2
	GOTO;LP3ZAP							/a071
LP3TO,	ARG;LP3ER;MNTMP1
	NUMBER;MNTMP1;LP3ER
	COPY;MNTMP1;MNTMP3
LP3ZAP,	DISP;-2700;TEXT ''
	GOTO;LP3S


LP3ER,	DISP;-2717
	TEXT ' &FOLLOW THE COMMAND WITH A NUMBER FROM 0 TO 4095.'	/M078
	GOTO;LP3RD

XTRLP3=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>/HELP MENU

/LIST PROCESSING - MISCELLANIOUS MENU HELPERS

RELOC
ADMLP4=.
X=DLMLP4		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0


LP4LPR,	DISP;0;TEXT '!E   '
	/THE FOLLOWING IS A KLUDGE BECAUSE I'M NOT POSITIVE THAT PRINTER
	/NOT AVAILABLE MESSAGE IS NEVER USED.  SO WE CHECK TMP2 FOR A SPECIAL
	/VALUE AND IF IT'S NOT THEN FALL THROUGH.

	CASE;MNTMP2
		3777;LP4PBS
		3776;LP4DED
	SET;1;MNTMP2
	DISP;2205;TEXT '&THE PRINTER IS NOT AVAILABLE.'
	GOTO;LP4CNT

LP4PER,	SET;2;MNTMP2
	DISP;0;TEXT '!E   '
	DISP;2205;TEXT '&THE PRINTER CANNOT BE USED WITH &USER &KEYS ACTIVE'
	DISP;-1;TEXT ' (!&AK !&YES).'
LP4CNT,	MXDISP;2405;X03PGM;DLMX03 / PRESS GOLD MENU TO RECALL THE MAIN MENU
	READ;MNTMP1;LP4RER
	GOTO;LP4BEP

LP4RER,	CASE;MNSYSA							/M080
		EDMENU&3777;LP4RTN
LP4BEP,	DISP;2717;TEXT '^A';LP4BEL
	CASE;MNTMP2
		2;LP4PER
	GOTO;LP4LPR

LP4RTN,	RETURN

LP4BEL,	007;0

LP4LPD,	DISP;2105;TEXT '&PRESS !&RETURN TO TRY ANOTHER NAME.'
	READ;MNTMP2;LP4LPC
	ARG;LP4LRT;MNTMP2
LP4LPC,	SET;3;MNTMP1
	TRNSFR;PP2ER;DLMPP2

LP4LRT,	TRNSFR;LP2S;DLMLP2

LP4DED,	DISP;2005;TEXT '&PRINTER SETTINGS THAT REQUIRE DEDICATED PRINTING'
	DISP;2205;TEXT 'MAY NOT BE USED WITH LIST PROCESSING.'
	GOTO;LP4CNT

LP4PBS,	
DISP;2205;TEXT '&LIST PROCESSING IS NOT ALLOWED WHILE THE PRINTER IS BUSY.'
	GOTO;LP4CNT


XTRLP4=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>/HELP MENU


/ERROR MESSAGES FOR LIST PROCESSING LIST PROCESSING MATH

RELOC
ADMLP5=.
X=DLMLP5		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

/ ENTER WITH:

/ MNTMP1= 0 FOR LIST PROCESSING, 1 FOR EDITOR MATH
/ MNTMP2= ACTUAL # OF RECORDS PROCESSED (LIST PROCESSING)
/ MNTMP3= RECORDS SELECTED (LIST PROCESSING)
/ MNTMP4= CURRENT RECORD NUMBER (LIST PROCESSING)
/D084	(NOT USED WITH STATUS)	  SQUAT SCREEN FLAG (EDITOR MATH)	 A038
/ MNTMP5= ERROR NUMBER (BOTH LIST PROCESSING AND EDITOR MATH)
/	  0 = no error -- completion report only
/	  1 = continue report after error display

	CASE; MNTMP1
		0; LPLPE

	CASE; MNTMP5
		1; -1-ED5CNT; DLMLP8
	DISP; 2700; TEXT "^A^A"; EDSCRL; EDSCRL

	CASE; MNSTAT			/ TEST NUMBER OF STATUS LINES	/A084
		0; LP5ZRO		/ SET UP FOR NO STATUS LINES	/A084
		1; LP5ONE		/ SET UP FOR ONE STATUS LINE	/A084
		2; LP5TWO		/ SET UP FOR TWO STATUS LINES	/A084
					/ FALL THROUGH TO THREE LINES	/A084
LP5TRE,	DISP; 1600; TEXT "" 		/ START POSITION FOR 3 LINES	/A084
	GOTO; LP5SQU			/ GO CONTINUE DISPLAY		/A084
LP5TWO,	DISP; 1700; TEXT "" 		/ START POSITION FOR 2 LINES	/A084
	GOTO; LP5SQU			/ GO CONTINUE DISPLAY		/A084
LP5ONE,	DISP; 2000; TEXT "" 		/ START POSITION FOR 1 LINE	/A084
	GOTO; LP5SQU			/ GO CONTINUE DISPLAY		/A084
LP5ZRO,	DISP; 2100; TEXT "" 		/ START POSITION FOR 0 LINES	/A084


LP5SQU,	DISP; -1; TEXT "!&ERROR -- "					/M038
	GOTO; LPELST

LPLPE,	CASE; MNTMP5							/R038
		1; -1-LP5CNT; DLMLP8					/R038
	DISP; 0; TEXT "!E-- !&LIST !&PROCESSING --"			/R038
	CASE; MNTMP5							/R038
		0; -1-LP5CNT; DLMLP8					/R038
	DISP; 234; TEXT "* * * &E &R &R &O &R * * *"			/R038
	DISP; 405; TEXT "&RECORD &NUMBER: !D"; MNTMP4			/R038
	DISP; 505; TEXT ""						/R038

/ RANGES FOR ERROR MESSAGES ARE AS FOLLOWS:
/ 0-7 MENU INIT STUFF
/ 10-77 LIST PROCESSING ERRORS			SLPERB=10
/ 100-177 SYNTAX ERRORS				MSEBEN=100
/ 200-277 DATA STRUCTURE OVERFLOW ERRORS	DSOBEN=200
/ 300-377 FORMULA ERRORS			MLABEN=300
/ 400-477 FORMAT ERRORS				FSEBEN=400
/ 500-577 CONTROL BLOCK NUMERIC SYNTAX		NSEBEN=500
/ 600-677 NUMERIC SYNTAX			NSEBE1=600
/ 700-777 MATH EXECUTION			MEEBEN=700

/ SPECIFIC ERROR MESSAGES
LPELST,	CASE; MNTMP5
	EVLGRC; -1-ERR10; DLMLP6	/RECORD EXCEEDS 2500 CHARS.
	EVPEOF; -1-ERR11; DLMLP6	/RECORD NOT TERMINATED WITH <>
	EVCRBR; ERR12			/TEXT BETWEN RECORDS		 M036
	EVLBFN; -1-ERR13; DLMLP6	/< WITHIN A FIELD NAME		 M033
	EVLGFN; -1-ERR14; DLMLP6	/FIELD NAME EXCEEDS 30 CHARS.
	EVRBFD; -1-ERR15; DLMLP6	/> WITHIN A FIELD VALUE
	EVFULL; -1-ERR16; DLMLP6	/RESULT DOCUMENT DISKETTE FULL
	EVLGNM; -1-ERR17; DLMLP7	/FIELD VALUE # EXCEEDS 30 CHARS.	/M015
	EVFLW1; -1-ERR100; DLMLP7	/FORMULA CONTAINS TOO MANY OPERATIONS
	EVFLW2; -1-ERR101; DLMLP7	/TOO MANY FIELD NAMES SPECIFIED (SEE	/M010
				/ NOTE AT ERR101)			/A010
	EVFLW3; -1-ERR102; DLMLP7	/NO ROOM LEFT TO STORE THIS FIELD NAME
	EVFLW4; -1-ERR103; DLMLP7	/CONTROL BLOCK EQUATIONS CONTAIN TOO	/A010
				/ MANY TERMS				/A010
	EVFLW5; -1-ERR104; DLMLP7	/TOO MANY FORMULAS SPECIFIED		/A010
	EVFLW6; -1-ERR105; DLMLP7	/LINE HAS EXCEEDED 200 CHARS.		/M010
	EVFLW7; -1-ERR106; DLMLP7	/UNDEFINED COMMAND AT THIS POSITION	/M010
	ERRUB;  ERR301			/UNMATCHED ANGLE BRACKETS	 M036
	ERRLOF; ERR302			/FIELD NAME TOO LONG
	ERROVF; -1-ERR700; DLMLP7	/FORMULA CONTAINS TOO MANY OPERATIONS	/M012
	ERRDB0; ERR701			/DIVIDE BY ZERO ERROR		 M036
	ERNOSP; -1-ERR702; DLMLP7	/NO ROOM IN DOCUMENT FOR RESULT
	ERNSP2; -1-ERR703; DLMLP7	/NO ROOM FOR THESE RESULTS	 A033
	EVSYN3; -1-ERRSY3; DLMLP8	/MATH AREA ALREADY BEGUN	 A033
	EVSYN4; -1-ERRSY4; DLMLP8	/BEGIN NOT SECOND COMMAND	 A033
	EVSYN5; -1-ERRSY5; DLMLP8	/END NOT SECOND COMMAND		 A033
	EVSYN6; -1-ERRSY6; DLMLP8	/TEXT IN BLOCK FOLLOWING END	 A033
	EREXTR; -1-ERR710; DLMLP6	/NUMBER IN LINE IS IN ERROR	 A033
	TRNSFR; LPNXT; DLMLP6

EDSCRL,	12; 12; 12; 12; 0

ERR12,	DISP; -1; TEXT "&TEXT BETWEEN RECORDS"				/R036
	GOTO; LP5DEX							/R036

ERR301,	DISP; -1; TEXT "&UNMATCHED ANGLE BRACKETS"			/R036
	RETURN								/R036

ERR302,	DISP;-1;TEXT "&FIELD NAME TOO LONG"
	RETURN		/DISPLAY MESSAGE AND THEN ERROR LINE

ERR701,	DISP; -1; TEXT "&DIVIDED BY ZERO"				/R036
LP5DEX,	TRNSFR; LPEDEX; DLMLP8						/R036

XTRLP5=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/ERROR MESSAGES AND HANDLING FOR LIST PROCESSING AND LIST PROCESSING MATH

RELOC
ADMLP6=.
X=DLMLP6		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0


	/THESE RANGE STATEMENTS WERE TRANSFERED HERE FROM PREVIOUS PAGE
	/CAUSE THERE WAS NOT ENOUGH ROOM TO KEEP THEM WITH THE CASE STATEMENT
	/ THESE ARE SHARED ERROR MESSAGES (DIFFERENT TYPES OF ERRORS SHARE
	/  THE SAME MESSAGES.)

LPNXT,	RANGE;MNTMP5;DSOBEN;MLABEN+77;LPNXT2			   	/M012
	DISP;-1;TEXT "&FORMULA^S^S";LPIE;LPTAG				/M012
	CASE;MNTMP5		/ APPEND RETURN ERROR MESSAGE		/A015
		EYNR11;LPNXT4						/A015
		ERRFTW;LPNXT4						/A015
	RETURN			/DSO AND LEXIC-ASCBCD ERROR MESSAGES

LPNXT4,	DISP;-1;TEXT " (UNEXPECTED RETURN)"				/A015
	RETURN								/A015

LPNXT2,	RANGE;MNTMP5;FSEBEN;FSEBEN+77;LPNXT1				/A012
	DISP;-1;TEXT "&FORMAT^S^S";LPIE;LPTAG				/A012
	RETURN								/A012

	/HANDLE CONTROL BLOCK NUMERIC SYNTAX ERRORS			/M012
LPNXT1,	RANGE;MNTMP5;NSEBEN;NSEBEN+77;LPNXT3				/A012
	DISP;-1;TEXT "&NUMBER^S^S";LPIE;LPTAG				/M034
	RETURN
									/D012
	/HANDLE NUMERIC SYNTAX ERRORS OUTSIDE OF CONTROL BLOCK		/A012
LPNXT3,	DISP;-1;TEXT "&NUMBER WITHIN RECORD IS^S";LPIE			/M034
	GOTO;LPRTN							/A012

ERR710,	DISP;-1;TEXT "&NUMBER IN LINE IS^S";LPIE			/M038
	RETURN								/M038

LPIE,	TEXT " IN ERROR"						/A012
LPTAG,	TEXT " AT THIS POSITION"

ERR10,	DISP;-1;TEXT "&RECORD EXCEEDS 2500 CHARACTERS"
	GOTO;LPRTN	/GO BACK TO LP CODE CAUSE NO ERROR DISPLAY

ERR11,	DISP;-1;TEXT "&RECORD NOT TERMINATED WITH ^S^S";LP5ALB;LP5ARB
	GOTO;LPRTN	/GO BACK TO LP CODE CAUSE NO ERROR DISPLAY

ERR13,	DISP;-1;TEXT "^S'^SNAME";LP5ALB;LP6WAF				/M034
	GOTO;LPRTN	/GO BACK TO LP CODE CAUSE NO ERROR DISPLAY

ERR14,	DISP;-1;TEXT "&FIELD NAME EXCEEDS 30 CHARACTERS"
	GOTO;LPRTN	/GO BACK TO LP CODE CAUSE NO ERROR DISPLAY

ERR15,	DISP;-1;TEXT "'^S^SVALUE";LP5ARB;LP6WAF				/M034
	GOTO;LPRTN	/GO BACK TO LP CODE CAUSE NO ERROR DISPLAY

LP6WAF,	TEXT " WITHIN A FIELD "						/A034

/D088/ERR16,	DISP;-1;TEXT "&RESULT DOCUMENT DISKETTE FULL"
ERR16,	DISP; -1; TEXT '&RESULT DOCUMENT '				/A088
	CALL; EM4CKW; DLMEM4	/ CK FOR WINI				/A088
	DISP; -1; TEXT ' FULL'						/A088
									/D015
LPRTN,	TRNSFR;LPEDEX;DLMLP8	/RETURNS TO CODE IFNOT DISP. ERROR LINE  A033

LP5ALB,	4774;0		/ "'<"
LP5ARB, 7647;0		/ ">'"


XTRLP6=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/ ERROR HANDLING FOR LIST PROCESSING AND LIST PROCESSING MATH

RELOC
ADMLP7=.
X=DLMLP7		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0



ERR17,	DISP;-1;TEXT "&FIELD VALUE NUMBER EXCEEDS 30 CHARACTERS"	/M015
ERR70A,	TRNSFR;LPEDEX;DLMLP8	/DISPLAY MESSAGE ONLY			/M012

ERR700,
ERR100,	DISP;-1;TEXT "&FORMULA CONTAINS T^SOPERATIONS";LP7OMN		/M034
	CASE; MNTMP5
		700; ERR70A
	RETURN		/DISPLAY MESSAGE AND THEN ERROR LINE

/ NOTE - DUE TO CURRENT MATH BUFFER ALLOCATION, ERROR 101 CAN NOT BE	/A010
/  GENERATED.  SEE NOTES IN WPF1 AND EMATH.				/A010
ERR101,	DISP;-1;TEXT "&T^SFIELD NAMES SPECIFIED";LP7OMN			/M034
	RETURN		/DISPLAY MESSAGE AND THEN ERROR LINE

ERR102,	DISP;-1;TEXT "&NO ROOM LEFT TO STORE THIS FIELD NAME"		/M034
	RETURN		/DISPLAY MESSAGE AND THEN ERROR LINE

ERR103,	DISP;-1;TEXT "&CONTROL BLOCK EQUATIONS CONTAIN T^STERMS";LP7OMN	/M034
	RETURN		/DISPLAY MESSAGE AND THEN ERROR LINE		/A010

ERR104,	DISP;-1;TEXT "&T^SFORMULAS SPECIFIED";LP7OMN			/M034
	RETURN		/DISPLAY MESSAGE AND THEN ERROR LINE		/A010

ERR105,	DISP;-1;TEXT "&LINE HAS EXCEEDED 200 CHARACTERS"		/M010
	RETURN		/DISPLAY MESSAGE AND THEN ERROR LINE

ERR106,	DISP;-1;TEXT "&UNDEFINED COMMAND AT THIS POSITION"		/M010
	RETURN		/DISPLAY MESSAGE AND THEN ERROR LINE

ERR702,	DISP;-1;TEXT "&NO ROOM FOR THIS RESULT:"			/M038
	RETURN		/DISPLAY MESSAGE AND THEN ERROR LINE

ERR703,	DISP;-1;TEXT "&NO ROOM FOR THESE RESULTS:"			/M038

	CASE; MNSTAT			/ TEST NUMBER OF STATUS LINES	/A084
		0; LP7ZRO		/ SET UP FOR NO STATUS LINES	/A084
		1; LP7ONE		/ SET UP FOR ONE STATUS LINE	/A084
		2; LP7TWO		/ SET UP FOR TWO STATUS LINES	/A084
					/ FALL THROUGH TO THREE LINES	/A084
LP7TRE,	DISP; 1737; TEXT "AND:"; RETURN	/ START POSITION FOR 3 LINES	/A084
LP7TWO,	DISP; 2037; TEXT "AND:"; RETURN	/ START POSITION FOR 2 LINES	/A084
LP7ONE,	DISP; 2137; TEXT "AND:"; RETURN	/ START POSITION FOR 1 LINE	/A084
LP7ZRO,	DISP; 2237; TEXT "AND:"; RETURN	/ START POSITION FOR 0 LINES	/A084


LP7OMN,	TEXT "OO MANY "							/A034

XTRLP7=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>					/A004

/ LIST PROCESSING AND EDITOR MATH ERROR HANDLING

RELOC
ADMLP8=.
X=DLMLP8		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0


ERRSY3,	DISP; -1; TEXT "&SECOND !&BEGIN COMMAND IN &MATH AREA"		/M034
	GOTO; LPEDEX							/A033

ERRSY4,	DISP; -1; TEXT "!&BEGIN^S!&WPSMATH"; CNSWIC			/M034
	GOTO; LPEDEX							/A033

ERRSY5,	DISP; -1; TEXT "!&END^S!&WPSMATH"; CNSWIC			/M034
	GOTO; LPEDEX							/A033

CNSWIC,	TEXT " COMMAND DOES NOT FOLLOW "				/M036

ERRSY6,	DISP; -1; TEXT "&TEXT IN CONTROL BLOCK AFTER !&END COMMAND"	/A033

LPEDEX,	CASE; MNTMP1
		0; LP5CNT



ED5CNT,	CASE; MNSTAT			/ TEST NUMBER OF STATUS LINES	/A084
		0; LP8ZRO		/ SET UP FOR NO STATUS LINES	/A084
		1; LP8ONE		/ SET UP FOR ONE STATUS LINE	/A084
		2; LP8TWO		/ SET UP FOR TWO STATUS LINES	/A084
					/ FALL THROUGH TO THREE LINES	/A084
LP8TRE,	DISP; 2305; TEXT "" 		/ START POSITION FOR 3 LINES	/A084
	GOTO; LP8SQU			/ GO CONTINUE DISPLAY		/A084
LP8TWO,	DISP; 2405; TEXT "" 		/ START POSITION FOR 2 LINES	/A084
	GOTO; LP8SQU			/ GO CONTINUE DISPLAY		/A084
LP8ONE,	DISP; 2505; TEXT "" 		/ START POSITION FOR 1 LINE	/A084
	GOTO; LP8SQU			/ GO CONTINUE DISPLAY		/A084
LP8ZRO,	DISP; 2605; TEXT "" 		/ START POSITION FOR 0 LINES	/A084
LP8SQU,	DISP; -1							/A084
	TEXT "&TO CONTINUE: &PRESS !&RETURN AND CORRECT THE ERROR"	/A084
	DISP; 2700; TEXT ""						/A084


ED5RD,	PREAD; -1; MNTMP1; ED5BP					/M034
	ARG; LP5RE1; MNTMP1						/M034
ED5BP,	DISP; -2700; TEXT "^A"; LP5BEL
	GOTO; ED5CNT

LP5CNT,	DISP; 1434; TEXT "&RECORDS &SELECTED:  !D"; MNTMP3		/R038
	DISP; 1634; TEXT "&RECORDS &PROCESSED: !D"; MNTMP2		/R038
	MXDISP;2505;X03PGM;DLMX03 / PRESS GOLD MENU TO RECALL THE MAIN MENU
LP5RD,	READ; MNTMP1; LP5RE	/WAIT FOR GOLD MENU RESPONSE		/R038
	ARG; LP5RE1; MNTMP1	/ALLOW RETURN TO ALSO MEAN EXIT 	/M078
LP5BP,	DISP; -2700; TEXT "^A"; LP5BEL    /BLEEP FOR ANY NON-GOLD ENTRY	/R038
	GOTO; LP5RD							/R038
LP5RE,	CASE;MNSYSA		/CHECK FOR GOLD KEY			/M080
		EDMENU&3777; LP5RE1		/RETURN TO CALLER	/R038
	GOTO; LP5BP		/BLEEP FOR ODD RESPONSE			/R038

LP5RE1,	SET; 0; MNTMP5		/ SET MNTMP5 TO FLAG CALLER IT SHOULD NOT
	RETURN			/  RETURN TO PRINT ANY MORE

LP5BEL,	BELL; 0


XTRLP8=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/INDEX MENU COMMAND PROCESSOR

RELOC
	FIELD	2
	*	0

ADMIN2=.
X=DLMIN2		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

IN2S,	COPY;MNTMP1;IN2CNT
	SET;0;MNTMP1							/M070

IN2D,	CASE;IN2CNT
		0;IN2ZC0						/M070
	DISP;600;TEXT '*'						/M068
	SET;1;MNTMP1							/A070
IN2ZC0,	CASE;MNTMP2							/M070
		0;IN2FUL						/M070
	DISP;2540;TEXT '&PRESS !&RETURN TO DISPLAY MORE ENTRIES'	/M070
	GOTO;IN2CMN

IN2FUL,	DISP;2540;TEXT '&EITHER PRESS !&RETURN'		    		/M070
IN2CMN,	MXDISP;2640;X02PGM;DLMX02 / OR PRESS GOLD MENU TO RECALL THE MAIN MENU.

IN2S2,	READ;MNTMP3;IN2RE						/M070
	ARG;IN2RT;MNTMP3						/M070

IN2ER,	DISP;2700;TEXT '^A';IN2BEL
	GOTO;IN2ZC0

IN2RT,	SET;0;MNTMP1

IN2RT1,	DISP;600;TEXT '!E'						/M068
	RETURN

IN2RE,	CASE;MNSYSA							/M080
		3777&EDADVN;IN2ADV
		3777&EDBKUP;IN2BKU
		3777&EDMENU;IN2RT1					/M070
	GOTO;IN2ER

IN2ADV,	CASE;MNTMP1							/M070
		1;IN2AD2
		2;IN2AD3
		3;IN2AD4
		4;IN2AD5
		5;IN2RT							/A070
	GOTO;IN2ER							/M070

IN2BKU,	CASE;MNTMP1							/M070
		2;IN2AD1						/R070
		3;IN2AD2						/R070
		4;IN2AD3						/R070
		5;IN2AD4						/R070
	GOTO;IN2ER							/R070

IN2AD1,	SET;1;MNTMP1							/M070
	DISP;1100;TEXT ' '						/M068
	DISP;600;TEXT '*'						/M068
	GOTO;IN2CK

IN2AD2,	SET;2;MNTMP1							/M070
	DISP;600;TEXT ' '						/M068
	DISP;1100;TEXT '*'						/M068
	DISP;1400;TEXT ' '						/M068
	GOTO;IN2CK

IN2AD3,	SET;3;MNTMP1							/M070
	DISP;1100;TEXT ' '						/M068
	DISP;1400;TEXT '*'						/M068
	DISP;1700;TEXT ' '						/M068
	GOTO;IN2CK

IN2AD4,	SET;4;MNTMP1							/M070
	DISP;1400;TEXT ' '						/M068
	DISP;1700;TEXT '*'						/M068
	DISP;2200;TEXT ' '						/M068
	GOTO;IN2CK

IN2AD5,	SET;5;MNTMP1							/M070
	DISP;1700;TEXT ' '						/M068
	DISP;2200;TEXT '*'						/M068

IN2CK,	RANGE;MNTMP1;0							/M070
IN2CNT,	0;IN2RT
	DISP;-2700;TEXT ''
	GOTO;IN2ZC0

IN2BEL,	7;0

XTRIN2=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/DELETE DOCUMENT COMMAND PROCESSOR

RELOC
ADMDL2=.
X=DLMDL2		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

	DISP;2400;TEXT '!E'

DL2S,	CASE;MNTMP2
		0;DL2D0
		1;DL2D1
		2;DL2D2
		3;DL2D3

DL2D0,	DISP;2500;TEXT '-- &IS THIS THE DOCUMENT YOU WISH TO DELETE? '
DL2D01,	DISP;-1;TEXT '(YES OR NO) --'

DL2RD0,	READ;MNTMP1;DL2RE0
	ARG;DL2RE1;MNTMP1
	KEYWRD
		TEXT 'YES ';DL2YS0
		TEXT 'NO ';DL2NO0
	GOTO;DL2RE1

DL2RE0,	CASE;MNSYSA							/M080
		EDMENU&3777;DL2NO0

DL2RE1,	DISP;-2700;TEXT '^A';DL2BEL
	GOTO;DL2S

DL2BEL,	7;0

DL2YS0,	SET;0;MNFNO
	SET;1;MNTMP1
DL2RT0,	RETURN

DL2NO0,	SET;0;MNTMP1
	RETURN

DL2D1,	DISP;2500;TEXT '-- &INDEX DOCUMENT IMPROPERLY FORMATTED --'
DL2D1D,	DISP;2600;TEXT '-- &DO YOU STILL WISH TO DELETE DOCUMENT (!D.!D)? '
		MNDRV;MNDOCN
	GOTO;DL2D01

DL2D2,	DISP;2500;TEXT '-- &THERE IS A DISK ERROR IN DOCUMENT (!D.!D), ';MNDRV
		MNDOCN
	DISP;-1;TEXT 'THEREFORE IT CANNOT BE DELETED --'
	DISP;2600;TEXT '-- &PRESS &GOLD !&MENU TO RECALL THE &MAIN &MENU --'

	READ;MNTMP1;DL2RE0
	GOTO;DL2RE1

DL2D3,	DISP;2500;TEXT '-- &DISK ERROR IN INDEX DOCUMENT --'
	GOTO;DL2D1D

XTRDL2=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>


/AX MENU PROCESSOR

/THE AX MENU THAT TAKES OF ALL PROMPTS THAT NEED A DOCUMENT FOR A RESPONSE
/THAT IS LOG DOCUMENT, THE TEST LIST AND DEFAULT LIST

RELOC
ADMAD3=.
X=DLMAD3		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

ADR3ST,
ADR3S,	SET;3;MNTMP1							/a052
	DISP;100;TEXT '!E     '
	DISP;1220;TEXT '!&PREPARATION'
	DISP;2205;TEXT '&TYPE THE NAME OF THE LOG DOCUMENT'
	DISP;2305;TEXT 'IF ONE IS DESIRED; THEN PRESS !&RETURN'
	MXDISP;2505;X03GMM;DLMX03 / OR PRESS GOLD MENU TO RECALL THE MENU
ADR3R,	READ;MNTMP2;ADR3E	/GET DOCUMENT NAME
	FILNAM;ADR3CR;ADR3ND	/CHECK IF DOCUMENT EXISTS
	SET;1;MNTMP2
	SET;MUBUF+MNIBUF;MNPOS	/SET THE POINTER TO BEGINING OF TEXT	/M080
	RETURN

ADR3GM,	SET;7;MNTMP1
	RETURN
ADR3E,	CASE;MNSYSA			/TEST FOR "GOLD MENU" KEY	/M080
		EDMENU&3777;ADR3GM
/D097	CALL; CR1BR; DLMCR1		/ERROR - TYPE ONLY VALID KEYS
	CALL; A18BR; DLMA18		/ "WHEN TYPING TO THE MENU	/A097
	GOTO;ADR3S			/GO BACK AND TRY AGAIN FOR DOC NAME

ADR3CR,	SET;-1;MNTMP2
	RETURN

ADR3ND,	SET;MUBUF+MNIBUF;MNPOS	/RESET TO BEGINNING OF TEST FOR THE COPY IN AX/M080
	SET;0;MNTMP2
	RETURN

XTRAD3=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/THE OTHER PROMPTS FOR AX SETUP

RELOC
ADMAD4=.
X=DLMAD4		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

ADR4ST,	COPY;MNTMP1;MNTMP5  /SAVE THE CALLING VALUE TO MAKE SURE IT IS RETURNED
ADR4S,	COPY ;MNTMP5;MNTMP1
	DISP;100;TEXT '!E     '
	DISP;1220;TEXT '!&PREPARATION'

	CASE;MNTMP1
		2;ADR4ID
		4;ADR4WP
		5;ADR4BP
ADR4ID,	DISP;2205;TEXT '&TYPE THE IDENTIFICATION MESSAGE'		/M051
	GOTO;ADR4C
ADR4WP,	DISP;2205;TEXT '&TYPE THE PASSWORD FOR SEND ONLY PROTECTION'
	GOTO;ADR4C
ADR4BP,	DISP;2205;TEXT '&TYPE THE PASSWORD FOR SEND AND RECEIVE PROTECTION'
ADR4C,
ADR4CN,	DISP;2305;TEXT 'IF ONE IS DESIRED; THEN PRESS !&RETURN'
	MXDISP;2505;X03GMM;DLMX03 / OR PRESS GOLD MENU TO RECALL THE MENU
ADR4SR,	READ;MNTMP2;ADR4E
ADR4CR,	RETURN
ADR4E,	CASE;MNSYSA							/M080
		EDMENU&3777;ADR4GM

/D097	CALL;CR1BR;DLMCR1
	CALL; A18BR; DLMA18	/ "WHEN TYPING TO THE MENU		/A097
	GOTO;ADR4S
ADR4GM,	SET;7;MNTMP1
	RETURN

XTRAD4=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/THIS IS MORE OF THE SEND TO AUTOMATIC RECEIVE STATION

RELOC
ADMAD5=.
X=DLMAD5		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

/THE PROMPT

	DISP;1300;TEXT '!E      '
	DISP;2205;TEXT '&TYPE'
	DISP;2305;TEXT 'THEN PRESS !&RETURN'
	MXDISP;2505;X02PGM;DLMX02 / OR PRESS GOLD MENU TO RECALL THE MAIN MENU
	RETURN

/THIS IS THE SECOND HALF OF THE MENU ADMAD5 WITH THE TBO OPTIONS

ADR5RX,	READ;MNTMP1;ADR51X
	ARG;ADR5RX;MNTMP1
	KEYWRD
		TEXT 'T ';ADR5T
		TEXT 'B ';ADR5A						/M049
		TEXT 'O ';ADR5O

	CALL;CR1NM;DLMCR1
	GOTO;ADR5RX
ADR51X,	CASE;MNSYSA							/M080
		EDMENU&3777;ADR5GM
/D097	CALL;CR1BR;DLMCR1
	CALL; A18BR; DLMA18		/ "WHEN TYPING TO THE MENU	/A097
	TRNSFR;ADR6R;DLMAD6
ADR5T,	SET;0;MNTMP2
	GOTO;ADR5G
ADR5A,	SET;1;MNTMP2
	GOTO;ADR5G
ADR5O,	SET;-1;MNTMP2
ADR5G,	SET;1;MNTMP1
	RETURN
ADR5GM,	SET;2;MNTMP1
	RETURN

XTRAD5=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/DOCUMENT MODIFICATION MENU - TOP, BOTTOM, OVERWRITE

/THE MENU FOR ADR TO SEE IF THE FILE HAS TO BE CREATED

RELOC
ADMAD6=.
X=DLMAD6		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

	CASE;MNTMP1
		2;ADR6R		/IF 2 THEN WANT THE SECOND MENU

	FILNAM;ADR6NO;ADR6BD

	CASE;MNTMP1
		1;ADR6NL
	CASE;MNTMP2		/ SEE IF SEND OR RECEIVE		/A029
	     1;ADR6NL		/ IF SEND THEN OK. ELSE CANNOT RECEIVE	/A029
				/    IF LOG DOC OR IN PRINT QUEUE!!!!	/A029
/D118	COPY;MNFNO;ADR6LK	/ SEE IF DOC IS THE LOG DOC.		/A021
/D118	CASE;MNLOCK		/  ...					/A021
/D118ADR6LK,		0;ADR6NN	/ IF IT IS THEN TREAT AS IF LOCKED.	/A021
	RANGE;MNLOCK;MNFNO;MNFNO;ADR6LK	/LOCKED?			/A118
	GOTO;ADR6NN		/THIS CHECK TO CHECK DEV 8-9 H/O BIT	/A118
ADR6LK,									/A118
	PQUEUE;ADR6NN;.+1	/ ALSO, IF IN PRT QUEUE THEN LOCKED.	/A021
ADR6NL,	SET;1;MNTMP1
	RETURN

ADR6NN,	SET;2;MNTMP1
	RETURN

ADR6NO,	SET;-1;MNTMP1
	RETURN

ADR6BD,	CASE;MNTMP1
		1;ADR6NO
	SET;0;MNTMP1
	RETURN

ADR6R,	DISP;200; TEXT '!E'
	MXDISP;205;X03DNE;DLMX03  / DOCUMENT NAME ALREADY EXISTS,
	MXDISP;305;X03HMD;DLMX03  / HOW WOULD YOU LIKE TO MODIFY THIS DOCUMENT?
	MXDISP;605;X03TOP;DLMX03  / T = ADD TEXT AT THE TOP
	MXDISP;1005;X03BOT;DLMX03 / B = ADD TEXT TO THE BOTTOM
	MXDISP;1205;X03OVR;DLMX03 / O = OVERWRITE THE DOCUMENT
	MXDISP;2205;X03TLR;DLMX03 / TYPE THE LETTER AND PRESS RETURN,
	MXDISP;2405;X02PGM;DLMX02 / OR PRESS GOLD MENU TO RECALL THE MAIN MENU
	TRNSFR;ADR5RX;DLMAD5

XTRAD6=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/COMMUNICATIONS ERROR MESSAGES

RELOC
ADMAD7=.
X=DLMAD7		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

ADR7E,	DISP;0;TEXT '!E     '

	CASE;MNTMP1
		4;ADR7CE	/SPECIAL FOR A CREATE ERROR
		6;ADR7LG	/LOGON PROCESSOR IN GRAPHICS MODE	/A114
		7;ADR7PS	/ Print with Print screen		/A121

	DISP;2205;TEXT '&CANNOT CONNECT, '
	CASE;MNTMP1
		2;ADR7PT
		3;ADR7NP	/ NON-EXISTANT PRINTER.			/A034
		5;ADR7NH	/ NO COMM HARDWARE PRESENT.		/A042

ADR7NH,	DISP;-1;TEXT '&COMMUNICATION &HARDWARE NOT PRESENT'		/A042
	GOTO;ADR7DL							/A042

ADR7NP,	DISP;-1;TEXT '&NON-EXISTENT PRINTER.'			/A034M058
	GOTO;ADR7DL							/A034

ADR7PS,	DISP;2205;TEXT '&YOU MAY NOT USE THE PRINTER WHILE &PRINT'	/A121
	DISP;2305;TEXT '&SCREEN IS RUNNING'				/A121
	GOTO;ADR7DL							/A121

ADR7PT,	DISP;-1;TEXT 'PRINTER IN USE.'
ADR7DL,	MXDISP;2505;X03PGM;DLMX03 / PRESS GOLD MENU TO RECALL THE MAIN MENU
	COPY;MNTMP1;MNTMP2	/ERR MSG ROUTINES USE MNTMP1		/A061
ADR72R,	READ;MNTMP1;ADR72X
	ARG;ADR72R;MNTMP1
	CALL;CR1NM;DLMCR1	/"...HAS NO MEANING HERE"
	GOTO;ADR72R

ADR72X,	CASE;MNSYSA							/M080
		EDMENU&3777;ADR7RT	/GOLD MENU
/D097	CALL;CR1BR;DLMCR1		/"WHEN TYPING..."
	CALL; A18BR; DLMA18		/ "WHEN TYPING TO THE MENU	/A097
	COPY;MNTMP2;MNTMP1		/RESTORE MNTMP1			/A061
	GOTO;ADR7E

ADR7RT,	RETURN

ADR7LG,	DISP;2205;TEXT '&CANNOT CALL !&LOGON PROCESSOR WHILE &T&M=!&GRAPHICS.'
	GOTO;ADR7DL							/A114
ADR7CE,	DISP;2205;TEXT '&CANNOT CREATE THE DOCUMENT !A'
	MNFNAM

	GOTO;ADR7DL

XTRAD7=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/COMMUNICATIONS ERROR MESSAGES CONTINUED
/DX SCREEN INFORMATION

RELOC
ADMA10=.
X=DLMA10		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

A10S,	DISP;305;TEXT '!L&STATUS: '

	CASE;MNTMP1
		0;A10S0
		1;A10S1
		2;A10S2
		3;A10S3
		4;A10S4
		5;A10S5
		6;A10S6
		7;A10S7		/TEMP1 = STATUS
A10S0,	DISP;-1;TEXT '!&TRANSFER !&CANCELLED'				/M049
	GOTO;A10J1
A10S1,	DISP;-1;TEXT '*** !&ERROR ***'
	GOTO;A10J1
A10S2,	DISP;-1;TEXT '&TRANSFER COMPLETE'
	GOTO;A10J1
A10S3,	DISP;0;TEXT '!E-- !&DOCUMENT !&TRANSFER --'
	DISP;305;TEXT '&STATUS: &TRYING TO CONNECT'
	DISP;2410;TEXT '&WAIT FOR CONNECTION'
	MXDISP;2610;X02PGM;DLMX02 / OR PRESS GOLD MENU TO RECALL THE MAIN MENU
	RETURN
A10S4,	DISP;-1;TEXT '&CONNECTION ESTABLISHED'
	CASE;MNTMP2							/A059
	     1700;A10S41	/ INITIAL PAINT OF AX SCREEN		/A059
	GOTO;A10S42							/A059
A10S41,	DISP;400;TEXT '!E'		/ ERASE SCREEN			/A059
A10S42,	GOTO;A10J1							/M059
A10S5,
A10S6,	DISP;-1;TEXT '&WAITING FOR A RESPONSE'
	GOTO;A10J1
A10S7,	DISP;-1;TEXT '&TRANSFER IN PROGRESS'
A10J1,	TRNSFR;A11S;DLMA11

XTRA10=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/DX OPTIONS MENU - COMMUNICATION STATISTICS

RELOC
ADMA11=.
X=DLMA11		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC	0

A11S,	DISP;1000;TEXT '!E  '			/M054/M059

	CASE;MNTMP5
		0;A11AX
	DISP; 0767; TEXT '&DOCUMENTS PROCESSED:!L  !D'; MNTMP5		/C096
A11AX,	CASE;MNTMP1
		2;A11D2
		3;A11D3
		7;A11D7
	GOTO;A11S3
A11D7,	DISP;1405;TEXT '(&APPROXIMATE) PACKETS IN^S:';A11DOC		/M031

	DISP;1460;TEXT '!D';MNTMP4
	RANGE;MNTMP3;0;200;A11PX1
	GOTO;A11D2
A11PX1,	DISP;-1;TEXT '0'
A11D2,	DISP;1205;TEXT '&PACKETS IN^S TRANSFERRED:';A11DOC		/M031
A11S3,	DISP;1005;TEXT '&PACKETS RE-SENT BECAUSE OF LINE ERRORS:'

	CASE;MNTMP2
		0;A11O1B
	DISP;-1;TEXT '!P!&OPTIONS: ';MNTMP2
A11D3,	CASE;MNTMP2
		2100;A11O1
		1700;A11O2
		1500;A11O3
		1300;A11O4
						/TEMP2 = OPTIONS
A11O4,	DISP;1505;TEXT '&R = &RECEIVE A^S';A11DOC			/M031
A11O3,	DISP;1705;TEXT '&S = &SEND A^S';A11DOC				/M031
A11O2,	DISP;2105;TEXT '&M = &SEND A MESSAGE'
A11O1,	DISP;2305;TEXT '&B = &BYE, CANCEL TRANSFER'			/M049

	DISP;2510;TEXT'&TYPE THE OPTION DESIRED AND PRESS !&RETURN'	/M031
	DISP;2610;TEXT'!&OR '						/M031
	GOTO;A11O1C							/A031
A11O1B,	DISP;2610;TEXT''						/A031
A11O1C,	MXDISP;-1;X03PGM;DLMX03 / PRESS GOLD MENU TO RECALL THE MAIN MENU

	RETURN

A11DOC,	TEXT' DOCUMENT'							/A031

XTRA11=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

RELOC
ADMA12=.
X=DLMA12		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC	0

	DISP; 0405; TEXT '!L&PROBLEM: '

	CASE;MNTMP1
		1;A12E1
		2;A12E2
		3;A12E3
		4;A12E4
		5;A12E5
		6;A12E6
		7;A12E7
		10;A12E8
		11;A12E9

/D088/A12E1,	DISP;-1;TEXT '&NOT ENOUGH ROOM ON DISKETTE TO RECEIVE DOCUMENT'
A12E1,	DISP; -1; TEXT '&NOT ENOUGH ROOM ON '				/C088
	CALL; EM4CKW; DLMEM4			/ CK FOR WINI		/A088
	DISP; -1; TEXT ' TO RECEIVE DOCUMENT'				/C088
	RETURN
A12E2,	DISP;-1;TEXT '&BAD CONNECTION, TRY AGAIN'
	RETURN
A12E3,	DISP;-1;TEXT '&COULD NOT CREATE THE DOCUMENT'
	RETURN
A12E4,	DISP;-1;TEXT '&CANNOT CONTINUE, DISK ERROR'
	RETURN
A12E5,	DISP;-1;TEXT '&OTHER SYSTEM CANNOT TO RECEIVE THE DOCUMENT'
	RETURN
A12E6,	DISP;-1;TEXT '&HAD TO REINITALIZE SINCE OTHER SYSTEM RESTARTED'
	RETURN
A12E7,	DISP;-1;TEXT '&CANNOT CONNECT, OTHER SYSTEM HAS A DIFFERENT VERSION'
	RETURN
A12E8,	DISP;-1;TEXT '&OTHER SYSTEM IS IN THE SAME STATE'
	RETURN
A12E9,	DISP;-1;TEXT '&OTHER USER RETURNED TO &MAIN &MENU'
	RETURN

XTRA12=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/THE ERROR MESSAGES FOR TEST LIST DOCUMENT

RELOC
ADMA13=.
X=DLMA13		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0


/THESE MESSAGES ARE FOR THE TEST LIST DOCUMENT ERROR ROUTINE

A13S,	DISP;-1;TEXT '^A';A13BEL
	CASE;MNTMP2
		2;A13RED
	DISP;0;TEXT '!E   '

	CASE;MNTMP2
		0;A13E0
		1;A13E1
		3;A13E3
		4;A13E4
		5;A13E5
		6;A13E6

A13E0,	DISP;2205;TEXT '&CANNOT READ THE DOCUMENT !A'
	MNFNAM

	GOTO;A13RED
A13E1,	DISP;2205;TEXT '&ILLEGAL FORMATTED RECORD IN LIST DOCUMENT !A'
	MNFNAM
	DISP;2405;TEXT '&FORMAT: ^AN>NAME ^A>';A13BRK;A13BRK

	GOTO;A13RED
A13E3,	DISP;2205;TEXT '&DOCUMENT !A CONTAINS AN EMPTY LIST'
	MNFNAM

	GOTO;A13RED
A13E4,	DISP;2205;TEXT '&LOG DOCUMENT'
	GOTO;A13RE2
A13E5,	DISP;2205;TEXT '&DEFAULT LIST DOCUMENT'
	GOTO;A13RE2
A13E6,	DISP;2205;TEXT '&A LIST CAN HAVE ONLY 8 ENTRYS.'
A13RE2,	DISP;-1;TEXT 'IN USE, CANNOT CONTINUE'
A13RED,	DISP;2505;TEXT '&PRESS !&RETURN FOR THE MENU.'

	READ;MNTMP3;A13S
	RETURN
A13BRK,	73;0	/PUT UP THE ANGLE BRACKET
A13BEL,	0007;0	/CODE FOR A BELL


XTRA13=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/THIS IS THE TYPE MESSAGE FOR OTHER SYSTEM PROMPT

RELOC
ADMA14=.
X=DLMA14		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

/ Called from WPTRNS.
/ INPUTS:	MNTMP1, MNTMP2, MNTMP3 are set to certain WPTRNS values
/			as a side effect of using the common menu caller DOMENU.
/			We ignore the inputs of these MNTMPs.
/		MNTMP4 - 0 for Message prompt.
/			 1 for error display (has no meaning).
/		MNIBUF - prior input string passed here.
/
/ OUTPUTS:	MNTMP1 - no change
/		MNTMP2 - ditto.
/		MNTMP3 - OUTPUT value defined as follows:
/			 2 Gold:Menu return
/			 3 normal return.
/
	CASE;MNTMP4		/ See which menu to display.
	   0;A14ST		/ 0 --> prompt for Message.
	DISP;2715;TEXT '!L&TYPING "^A" HAS NO MEANING HERE.  &TRY AGAIN.'
	     MNIBUF
	GOTO;A14OK		/ Take the OK return.

A14ST,	ARG;A14NG;MNTMP1
A14OK,	SET;3;MNTMP3		/ Take OK return
	RETURN

A14NG,	DISP;1300;TEXT '!E'
	DISP;2305;TEXT '&TYPE IN THE MESSAGE TO BE SENT TO THE OTHER SYSTEM'
	DISP;2405;TEXT 'THEN PRESS !&RETURN'
	MXDISP;2605;X03GMM;DLMX03 / OR PRESS GOLD MENU TO RECALL THE MENU
A14RED,	READ;MNTMP1;A14GLD
	GOTO;A14ST		/Try again.

A14GLD,	CASE;MNSYSA							/M080
		EDMENU&3777;A14GM	/ Gold menu return
	DISP;-1;TEXT '^A';A14BEL
	GOTO;A14RED		/ Loop again.

A14GM,	SET;2;MNTMP3		/ Take GOLD MENU return.
	RETURN			/  ...

A14BEL,	007;0

XTRA14=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/DX FILE ALREADY EXISTS MENU

RELOC
ADMA15=.
X=DLMA15		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

	GOTO;A15DSP		/REQUIRED FOR ASSM. LANG. CALL		/A091
A15AGN,	ARG;A15DSP;MNTMP1
	KEYWRD;	TEXT 'T ';A15TOP
		TEXT 'B ';A15BOT					/M051
	CASE;MNTMP3
	   1;A15NOV		/IF = 1 THEN TURN OFF OVERPRINT
	KEYWRD;	TEXT 'O ';A15OVR
A15NOV,	CALL;CR1NM;DLMCR1
A15DSP,	DISP;1300;TEXT '!E'
	DISP;1405;TEXT '&DOCUMENT NAME ALREADY EXISTS,'
	DISP;1505;TEXT 'WOULD YOU LIKE TO MODIFY THIS DOCUMENT?'
	DISP;1705;TEXT '&T = &ADD TEXT TO THE TOP'
	DISP;2105;TEXT '&B = &ADD TEXT TO THE BOTTOM'			/M051
	CASE;MNTMP3
	   1;A15NO2
	DISP;2305;TEXT '&O = &OVERWRITE THE DOCUMENT'
A15NO2,	MXDISP;2520;X03TLR;DLMX03 / TYPE THE LETTER AND PRESS RETURN
	MXDISP;2620;X03GMM;DLMX03 / OR PRESS GOLD MENU TO RECALL THE MENU

A15RD1,	READ;MNTMP1;A15GCK
	GOTO;A15AGN

A15GCK,	CASE;MNSYSA		/ Check for				/M080
	     EDMENU&3777;A15GM	/  GOLD:MENU
	DISP;-1;TEXT '^A';A15BEL/ Ring the bell,
	GOTO;A15RD1		/  and try again.

A15GM,	SET;0;MNTMP1		/ Return 0 for GOLD:MENU
	RETURN

A15OVR,	SET;1;MNTMP1		/ Return 1 for OVERWRITE
	RETURN

A15TOP,	SET;2;MNTMP1		/ Return 2 for TOP
	RETURN

A15BOT,	SET;3;MNTMP1		/ Return 3 for BOTTOM
	RETURN

A15BEL,	007;0

XTRA15=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/DX RECEIVE MENU

RELOC
ADMA16=.
X=DLMA16		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

/ Called from WPTRNS.
/ INPUTS:	MNTMP1 - PMTTMP value
/		MNTMP2 - AXPMT value (set if prompting for AX side info).
/		MNTMP3 - Pass indicator as follows:
/			 0 initialization call. Check input for filename.
/			 1 display prompt(s) & process input.
/		MNIBUF - filename passed as input here.
/
/ OUTPUTS:	MNTMP1 - no change
/		MNTMP2 - ditto.
/		MNTMP3 - OUTPUT value defined as follows:
/			 0 default filename accepted. process it in step 0.
/			 1 use default filename in prompt displays.
/			 2 Gold:Menu return
/			 3 normal return. filename is accepted.
/			 4 normal return. file needs to be created.
/

A16,	CASE;MNTMP3		/ See which pass to process.
/	   0;A16FNM		/ Check out the filename.
	   1;A16DSP		/ Display prompt(s).

A16FNM,	CASE;MNTMP2
		0;A16S2		/ Jmp if NOT AX prompt.
	ARG;A16NAR;MNTMP4	/ See if there's something typed in.
A16OK,	SET;3;MNTMP3		/ Yes! Return & accept it.
	RETURN			/  ...

A16S2,	COPY;MNPOS;MNTMP5	/ Save current position pointer.
	ARG;A16NAR;MNTMP4	/ See if there's anything there.
A16FIL,	COPY;MNTMP5;MNPOS	/ Restore filename pointer.
	FILNAM;A16NAR;A16ND	/ Parse filename.
	RANGE;MNLOCK;MNFNO;MNFNO;AD16LK	/LOCKED			/A117
	GOTO;-1-A18LKE;DLMA18	/YES-TREAT IT AS LOCKED		/A117
/D117	COPY;MNFNO;AD16LK	/ See if DOC is the LOG doc.
/D117	CASE;MNLOCK		/  ...
/D117AD16LK,    0;-1-A18LKE;DLMA18	/ If yes, then treat as if it's locked.
AD16LK,								/A117
	PQUEUE;-1-A18LKE;DLMA18;.+1/ Also, if DOC in PRINT QUE then it's locked.
	SET;3;MNTMP3		/ Return FILE OK prompt.
	RETURN

A16ND,	SET;4;MNTMP3		/ File needs to be created return.
	RETURN

A16NAR,	SET;1;MNTMP3		/ Take "NO ARG PRESENT" return.
	RETURN			/  ...

A16DSP,	DISP;1300;TEXT '!E'
	DISP;2005;TEXT '&TYPE THE NAME OF THE DOCUMENT TO RECEIVE'	/M049
	DISP;-1;TEXT ' THE DOCUMENT BEING SENT'				/M049
	DISP;2105;TEXT 'THEN PRESS !&RETURN'				/M051
A16S1,	CASE;MNIBUF		/ See if there's a default filename prompt.
	   0;A16SR		/ Skip outputting prompt if no.
	DISP;2305;TEXT '!&OR JUST PRESS !&RETURN TO USE THE DOCUMENT NAME'
	DISP;-1;TEXT ' GIVEN ON THE NEXT LINE'
	DISP;2405;TEXT '^A';MNIBUF
A16SR,	DISP;2605;TEXT '!&OR &PRESS &GOLD !&MENU TO RECALL THE'
	CASE;MNTMP1
		0;A16S3
	DISP;-1;TEXT ' &MAIN'
A16S3,	DISP;-1;TEXT ' &MENU'

A16RD1,	READ;MNTMP3;A16GCK
	COPY;MNPOS;MNTMP5	/ Save posn of filename (if present).
	ARG;A16NA1;MNTMP3	/ See if anything entered.
	CASE;MNTMP2		/ See if AX prompt.
	   0;A16FIL		/ JMP if NO. Go check out filename.
	GOTO;A16OK		/ JMP if yes. Accept the entered filename.

A16GCK,	CASE;MNSYSA		/ Check for				/M080
	     EDMENU&3777;A16GM	/  GOLD:MENU
/D093	DISP;-1;TEXT '^A';A16BEL/ Ring bell for error.

	CALL; A18BR; DLMA18	/ DISPLAY "WHEN TYPING TO THE KEY...	/A093

	GOTO; A16NAR		/  and try again.

A16NA1,	SET;0;MNTMP3		/ No filename entered. Return to process
	RETURN			/ the default filename.

A16GM,	SET;2;MNTMP3		/ Take GOLD:MENU return.
	RETURN			/  ...

A16BEL,	007;000			/ Text string to ring bell.

XTRA16=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/DX SEND MENU

RELOC
ADMA17=.
X=DLMA17		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

/ Called from WPTRNS.
/ INPUTS:	MNTMP1 - PMTTMP value
/		MNTMP2 - AXPMT value (set if prompting for AX side info).
/		MNTMP3 - Pass indicator as follows:
/			 0 initialization call. Check input for filename.
/			 1 display prompt(s) & process input.
/		MNIBUF - filename passed as input here.
/
/ OUTPUTS:	MNTMP1 - no change
/		MNTMP2 - ditto.
/		MNTMP3 - OUTPUT value defined as follows:
/			 0 default filename accepted. process it in step 0.
/			 1 use default filename in prompt displays.
/			 2 Gold:Menu return
/			 3 normal return. filename is accepted.
/

A17,	CASE;MNTMP3		/ See which pass to process.
/	   0;A17FNM		/ Check out the filename.
	   1;A17DSP		/ Display prompt(s).

A17FNM,	CASE;MNTMP2
		0;A17S2		/ Jmp if NOT AX prompt.
	ARG;A17NAR;MNTMP4	/ See if there's something already typed.
A17OK,	SET;3;MNTMP3		/ Yes! return & accept it.
	RETURN			/  ...

A17S2,	COPY;MNPOS;MNTMP5	/ Save current position.
	ARG;A17NAR;MNTMP4	/ See if possible filename present.
A17FIL,	COPY;MNTMP5;MNPOS	/ Restore pointer to start of filename.
	FILNAM;A17NAR;-1-A18ND;DLMA18	/ Parse filename.
	GOTO;A17OK		/ Filename parsed. Accept it.

A17NAR,	SET;1;MNTMP3		/ Take "NO ARG PRESENT" return.
	RETURN			/  ...


A17DSP,	DISP;1300;TEXT '!E'
	DISP;2005;TEXT '&TYPE THE NAME OF THE DOCUMENT YOU WISH TO '
	CASE;MNTMP2
	   0;A17SS		/IF AX SAY RECEIVE IF DX SAY SEND
	DISP;-1;TEXT 'RECEIVE FROM THE SYSTEM IN !&AX'
	GOTO;A17S1B

A17SS,	DISP;-1;TEXT 'SEND'
A17S1B,	DISP;2105;TEXT 'THEN PRESS !&RETURN'				/M051
	CASE;MNIBUF		/ See if default filename prompt.
	   0;A17SR		/ Skip prompt if no.
	DISP;2305;TEXT '!&OR JUST PRESS !&RETURN TO USE THE DOCUMENT NAME'
	DISP;-1;TEXT ' GIVEN ON THE NEXT LINE'
	DISP;2405;TEXT '^A';MNIBUF
A17SR,	DISP;2605;TEXT '!&OR &PRESS &GOLD !&MENU TO RECALL THE'
	CASE;MNTMP1
		0;A17S3
	DISP;-1;TEXT ' &MAIN'
A17S3,	DISP;-1;TEXT ' &MENU'

A17RD1,	READ;MNTMP3;A17GCK
	COPY;MNPOS;MNTMP5	/ Save ptr to start of filename.
	ARG;A17NA1;MNTMP3	/ See if anything typed. Process if no.
	CASE;MNTMP2		/ AX PROMPT?
	   0;A17FIL		/ Jmp if NO.
	GOTO;A17OK		/ AX prompt. Accept whwatever we have.
	GOTO;A17FIL		/ Check out the user entered filename.

A17GCK,	CASE;MNSYSA		/ Check for				/M080
	     EDMENU&3777;A17GM	/  GOLD:MENU
/D093	DISP;-1;TEXT '^A';A17BEL/ Ring bell

	CALL; A18BR; DLMA18	/ DISPLAY "WHEN TYPING TO THE KEY..."	/A093

	GOTO; A17NAR		/ and try again.

A17NA1,	SET;0;MNTMP3		/ Return to do FILNAM on default file name.
	RETURN			/  ...

A17GM,	SET;2;MNTMP3		/ Gold Menu return.
	RETURN

A17BEL,	007;000			/ Text string to ring the bell.


XTRA17=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/DX - CANNED ROUTINES

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

/THE CANNED MESSAGES

A18BR,	DISP; 2100; TEXT '!E^A';A18BEL

	DISP;2205
TEXT '&WHEN TYPING TO THIS MENU, USE NORMAL KEYS ON THE KEYBOARD ONLY.'
	DISP;2305
IFDEF CONDOR <								/A073
TEXT '&THE &RUBOUT ^A KEY CAN ALSO BE USED.'				/M073
	A18BRK								/A064
> / END IFDEF CONDOR							/A073
IFNDEF CONDOR <								/A073
TEXT '!&RUB !&CHAR AND !&RUB !&WORD CAN ALSO BE USED.'			/A073
> / END IFNDEF CONDOR							/A073
	DISP; -1; TEXT '  &A LINE MAY CONTAIN A'			/A073
	DISP;2405
TEXT 'MAXIMUM OF 64 CHARACTERS AND MUST END WITH !&RETURN.'

	GOTO;A18CN

A18ND,	DISP;1300;TEXT '!E^A';A18BEL
	TSTBIT; MNOPTN; MNRX2X;	A18DRV		/ CK FOR WINI INST	/A088
	CASE; MNDRV				/ YES - CK NUMBER	/A088
	  0; A18DRV				/ 0 - DRIVE		/A088
	  1; A18CD1				/ 1 - DRIVE OR DEVICE ?	/A088
A18DEV,	DISP; -1; TEXT '&DEVICE'					/A088
	GOTO; A18CKD				/ FINISH STRING		/A088
A18CD1,	TSTBIT; MNOPTN; MNRX3X; A18DRV		/ CK 1 = DRIVE		/A088
	GOTO; A18DEV				/ NO - DISP "DEVICE...	/A088
A18DRV,	DISP; -1; TEXT '&DRIVE'						/A088
A18CKD,	DISP; -1; TEXT ' !D DOES NOT HAVE A DOCUMENT NAMED !A'		/C088

/D088	DISP;2205;TEXT '&^S !D DOES NOT HAVE A DOCUMENT NAMED !A'
/D088		A18DOA
		MNDRV
		MNFNAM
	GOTO;A18CN

A18LKE,	DISP;1300;TEXT '!E'
	DISP;2505;TEXT '&DOCUMENT (!D.!D) !A IS ALREADY IN USE.'
		MNDRV;MNDOCN;MNFNAM
A18CN,	DISP;2605;TEXT '&PLEASE PRESS !&RETURN AND TRY AGAIN.'
A18RD1,	READ; MNTMP9; A18BR	/ TAKE ONLY A RETURN			/M097
	ARG; A18RT; MNTMP9	/					/M097
	GOTO; A18BR		/ Something present. beep.		/M097

A18RT,	SET; 1; MNTMP3		/ No ARG present.
	RETURN

A18BAD,	CASE;MNSYSA							/M080
		EDMENU&3777;A18GM
A18BA2,	DISP;-1;TEXT '^A';A18BEL
	GOTO;A18RD1

A18GM,	SET;2;MNTMP3		/ Take GOLD:MENU return.
	RETURN

A18BEL,	007;0
/A18DOA,	TEXT 'DRIVE'
A18BRK,	074; 130; 135; 0					    /A064M066

XTRA18=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/THE MAIN MENU FOR THE DEFAULT COMMUNICATIONS DISPLAY
/ALL THE DX AND AX MENUS USE TEMP 1 FOR ACTION VALUE TEMP 2 FOR DOCUMENT
/STATUS AND TEMP5 FOR VALUES KEPT OVETR MENU CALLS

RELOC
ADMA19=.
X=DLMA19		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

A19S,	DISP;0;TEXT '-- !&AUTOMATIC !&TRANSFER !&MENU --'
	DISP;2205
	TEXT '&IF THE SETTINGS ARE CORRECT, TYPE !&YES, OTHERWISE TYPE !&NO'
	DISP;2305;TEXT 'THEN PRESS !&RETURN.'
	MXDISP;2505;X03PGM;DLMX03 / OR PRESS GOLD MENU TO RECALL THE MAIN MENU
A19RED,	READ;MNTMP1;A19RER
	ARG;A19ERT;MNTMP1

	KEYWRD
		TEXT 'YES ';A19YES
		TEXT 'NO ';A19NO
		TEXT 'ID ';A19ID
		TEXT 'LD ';A19LD
		TEXT 'SP ';A19SP
		TEXT 'BP ';A19BP
	CALL;CR1NM;DLMCR1
	GOTO;A19RED

A19YES,	SET;0;MNTMP1
	RETURN

A19NO,	SET;11;MNTMP1
	RETURN

A19RER,	CASE;MNSYSA							/M080
		EDMENU&3777;A19MM
	CALL; A18BR; DLMA18
/	CALL;CR1BR;DLMCR1
A19ERT,	SET;7;MNTMP1
	RETURN

A19ID,	SET;2;MNTMP1
	GOTO;A19AG

A19LD,	SET;3;MNTMP1
	COPY;MNPOS;MNTMP5						/M080
	FILNAM;A19TR1;A19ND
	COPY;MNTMP5;MNPOS						/M080
	SET;1;MNTMP2
	RETURN

A19SP,	SET;4;MNTMP1
	GOTO;A19AG

A19BP,	SET;5;MNTMP1
A19AG,	COPY;MNPOS;MNTMP5						/M080
	ARG;A19TRN;MNTMP2
	COPY;MNTMP5;MNPOS						/M080
	RETURN

A19TRN,	TRNSFR;ADR4ST;DLMAD4

A19TR1,	TRNSFR;ADR3ST;DLMAD3

A19ND,	COPY;MNTMP5;MNPOS						/M080
	SET;0;MNTMP2
	RETURN

A19MM,	SET;10;MNTMP1
	RETURN

XTRA19=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/HOW TO CHANGE THE SETTINGS FOR ADR

RELOC
ADMA20=.
X=DLMA20		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

A20S,	DISP;100;TEXT '!E      '
	DISP;505;TEXT '!&ID = &IDENTIFICATION MESSAGE'			/M051
	DISP;705;TEXT '!&LD = &LOG DOCUMENT'
	DISP;1105;TEXT '!&SP = &SEND ONLY PASSWORD'
	DISP;1305;TEXT '!&BP = &BOTH SEND AND RECEIVE PASSWORD'
	MXDISP;2405;X02TLS;DLMX02 / TYPE THE LETTER(S) AND THEN PRESS RETURN
	MXDISP;2505;X03GMM;DLMX03 / OR PRESS GOLD MENU TO RECALL THE MENU

	TRNSFR;A19RED;DLMA19

XTRA20=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/THIS IS THE MENU FOR THE CX ROUTINE THAT WILL TEST A DOCUMENT FOR VALID CX
/PRINT CONTROLS FOR THE CX PROGRAM

RELOC
ADMCX0=.
X=DLMCX0		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

	CASE;MNTMP1
		0;CX0D0
		1;CX0D1
		2;CX0D2

CX0FER,	CALL;CR1ND;DLMCR1
CX0D0,	DISP;0;TEXT '!E     '
	DISP;1505;TEXT '&TYPE THE NAME OF THE DOCUMENT TO BE TESTED'
	DISP;-1;TEXT ' THEN PRESS !&RETURN'
	DISP;1705
	TEXT '!&OR &PRESS &GOLD !&MENU TO RECALL THE &COMMUNICATIONS &MENU.'

	READ;MNTMP2;CX0ER
	FILNAM;CX0D0;CX0FER
	SET;0;MNTMP1
	DISP;0;TEXT '!E     ^P';1500	/CLEAR THE SCREEN AND POSTION THE CURSER
				/FOR ANY ERROR MESSAGES
	RETURN
CX0D1,	DISP;0;TEXT '!E     '
	DISP;1505;TEXT '&THERE ARE NO ERRORS IN DOCUMENT (!D.!D) !A'
			MNDRV;MNDOCN;MNFNAM
	MXDISP;1705;X03PRR;DLMX03	/ PRESS RETURN TO RECALL THE MENU.
CX0D2A,	READ;MNTMP2;CX0ER3
	SET;0;MNTMP1
	RETURN
CX0D2,	DISP;-1;TEXT ' IN DOCUMENT (!D.!D) !A^A';MNDRV;MNDOCN;MNFNAM;CX0NLN
	MXDISP;-1;X03PRR;DLMX03		/ PRESS RETURN TO RECALL THE MENU.
	DISP;-1;TEXT '^A';CX0NL2
	GOTO;CX0D2A
CX0ER,	CASE;MNSYSA							/M080
		EDMENU&3777;CX0ER2
	CALL;CR1BR;DLMCR1
	GOTO;CX0D0
CX0ER2,	SET;1;MNTMP1
	RETURN
CX0ER3,	DISP;-2700;TEXT '^A';CX0BEL
	GOTO;CX0D2A

CX0BEL,	7;0
CX0NL2,	15;12
CX0NLN,	15;12;15;12;40;40;40;40;40;0

XTRCX0=400-.

IFZERO .-401&4000 <?BADPAGE LENGTH>

/CX ERROR MESSAGES

RELOC
ADMCX1=.
X=DLMCX1		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

/THIS IS CALLED FROM WITHIN CX

	CASE;MNTMP1	
		1;CX1CRE		/CREATE ERROR
		2;CX1INT		/FILE ERROR (BAD BLOCK)
		3;-1-CX2OFL;DLMCX2	/DISK OVERFLOW ON WRITE TO DISK
		4;-1-MGRNOH;DLMMGR	/MAGCRD - MUST HAVE HOST IN OPTIONS/M119
		5;-1-MGRONE;DLMMGR	/MAGCRD - CANT HAVE 'DH HD'	/M119

/ ATTEMPT TO READ AND WRITE THE SAME FILE
	DISP;0;TEXT '!E   '
	DISP;2205;TEXT '&IT IS ILLEGAL TO READ FROM AND WRITE TO THE SAME '
	DISP;-1;TEXT 'DOCUMENT.'
	GOTO;CX1RT

CX1INT,	DISP;0;TEXT '!E   '
	DISP;2205;TEXT '&THE DOCUMENT CONTAINS A BAD BLOCK.'
	GOTO;CX1RT

CX1CRE,	DISP;0;TEXT '!E   '
	DISP;2205;TEXT '&COULD NOT CREATE DOCUMENT !A';MNFNAM

CX1RT,	DISP;2405;TEXT '&PRESS !&RETURN^S'				/C048
		CX1REC							/A048
	READ;MNTMP1;CX1ER
	ARG;CX1RTN;MNTMP1
CX1ER,	CALL;CR1NM;DLMCR1
	GOTO;CX1RT
CX1RTN,	RETURN

CX1BOT,	CASE;MNCMTP
		1;CX1DSP

	DISP; 2105; TEXT '^S&R^SOR'					/M100
		CX1TYP							/A048
		CX1REC							/A048
	DISP; 2205; TEXT '^S&H^SAND HANG UP THE MODEM'			/M100
		CX1TYP							/A048
		CX1REC							/A048

CX1DSP,	DISP;2305;TEXT '&PRESS &GOLD !&MENU TO RECALL THE'
	CASE;MNCMTP
		1;CX1DS2

	DISP; -1; TEXT ' &MAIN'
CX1DS2,	DISP; -1; TEXT ' &MENU.'

CX1COM,	DISP;2505;TEXT '&SPECIFY OPTIONS THEN PRESS !&RETURN.'
	DISP;2700;TEXT ''
	RETURN

	IFDEF	CONDOR	<						/A099
CX1TYP,	TEXT '&PRESS !&LOCAL-!&CMND '					/M100
	>	/ END IFDEF CONDOR					/A099

	IFNDEF	CONDOR	<						/A099
CX1TYP,	TEXT '&TYPE &\'							/M100
	>	/ END IFNDEF CONDOR					/A099

CX1REC, TEXT ' TO RECALL THIS MENU '			/A048		/M095

XTRCX1=400-.

IFZERO .-401&4000 <?BADPAGE LENGTH>



/THE COMMUNICATIONS MENU
RELOC
ADMCX2=.
X=DLMCX2		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

/THIS IS CALLED FROM WITHIN CX

	DISP;0;TEXT '!E   '
	DISP;0005;TEXT '-- '
	CASE; MNCMTP
		 0; CX2RCX

	DISP; -1; TEXT '!&MAG !&CARD '

CX2RCX,	DISP; -1; TEXT '!&COMMUNICATIONS !&MENU --'
	DISP;0205;TEXT '!&KS = &^S&^S';CX2KT;CX2SC
	DISP;0305;TEXT '!&KP = &^S&^S';CX2KT;CX2PR
	DISP;0405;TEXT '!&KH = &^S&^S';CX2KT;CX2HO
	CASE; MNCMTP
		 1; CX2RC2
	DISP;0505;TEXT '!&KD = &^S&^S';CX2KT;CX2DO
CX2RC2,	DISP;0705;TEXT '!&HS = &^S&^S';CX2HT;CX2SC
	DISP;1005;TEXT '!&HP = &^S&^S';CX2HT;CX2PR
	DISP;1105;TEXT '!&HD = &^S&^S';CX2HT;CX2DO

	DISP;1305;TEXT '!&DS = &^S&^S';CX2DT;CX2SC
	DISP;1405;TEXT '!&DP = &^S&^S';CX2DT;CX2PR
	DISP;1505;TEXT '!&DH = &^S&^S';CX2DT;CX2HO

	CASE;MNCMTP
		1;CX2DSP
	DISP;1705;TEXT '!&TD = &TEST DOCUMENT'
CX2DSP,	TRNSFR;CX1BOT;DLMCX1

CX2KT,	TEXT 'KEYBOARD TO '
CX2HT,	TEXT 'HOST TO '
CX2DT,	TEXT 'DOCUMENT TO '

CX2SC,	TEXT 'SCREEN'
CX2PR,	TEXT 'PRINTER'
CX2HO,	TEXT 'HOST'
CX2DO,	TEXT 'DOCUMENT'

CX2OFL,	DISP;0;TEXT '!E   '
/D088	DISP;2205;TEXT '&THE DISKETTE BEING WRITTEN TO IS FULL.'
	DISP; 2205; TEXT '&THE '					/C088
	CALL; EM4CKW; DLMEM4				/ CK FOR WINI	/A088
	DISP; -1; TEXT ' BEING WRITTEN TO IS FULL.'			/C088
	TRNSFR;CX1RT;DLMCX1


XTRCX2=400-.

IFZERO .-401&4000 <?BADPAGE LENGTH>

/ SO 0 - FIRST PAGE OF THE SYSTEMS OPTIONS MENU

RELOC
ADMSO0=.
X=DLMSO0		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC	0

SO0S,	CASE; MNTMP4		/ DON'T REFRESH SCREEN UNLESS WE NEED TO./A032
	      0;SO0SOK		/ JMP IF SCREEN DOESN'T NEED REFRESHING. /A032
	DISP;0000; TEXT '!E-- !&SYSTEM !&OPTIONS !&MENU --'
	DISP;0305; TEXT '!&CC = &CHANGE CHARACTERISTICS OF COMMUNICATION' /M060/A105
	TSTBIT;	MNOPTN;	MNRXAX;	SO0S20  /CANNOT CHANGE DMIII PRINTER PORT	/A105
	DISP;	-1;	TEXT ' PORT'    /DMIII				/A105
		GOTO;	SO0S30						/A105
SO0S20,					/DMII				/A105
	DISP;-1;   TEXT ' AND PRINTER PORTS'				/M060/A105
SO0S30,									/A105
	DISP;0505; TEXT '!&BC = &BUFFER CONTROL (!&BC'
	DISP;0705; TEXT '!&CD = &DOCUMENT WITH !&CX TRANSFER FORMAT'
	DISP;1205; TEXT '!&TM = &TERMINAL MODE (!&TM ='			/M047
	DISP;1405; TEXT '!&CT = &CONNECTION TIMEOUT DELAYS FOR !&AX/!&DX'/M047
	DISP;1605; TEXT '!&SC = &SET &SYSTEM &CONVENTIONS'		/AWCE

SO0SOK,	DISP;-1456; TEXT '(!&CT !D)'					/M047
	MNXDLY								/A045
SO0CPE,	TSTBIT; MNXONF; 1; SO0TS2					/M081
	DISP;	-0535;	TEXT	'NO)'					/A105
		GOTO;	SO0TS3						/A105
SO0TS2,	DISP;-0535; TEXT 'YES)'						/A105
SO0TS3,									/A105
	CASE; MNCXP
		 0;SO0CD1
	GOTO; SO0CD2
SO0CD1,	DISP;-1012; TEXT '&NONE'
SO0CD2,	CASE; CXTMOD		/DM-I	DM-II			/A018	/C044
		0; SO0TM0	/VT52	VT52			/A018	/C044
		1; SO0TM1	/VT278	VT100			/A024	/C044
	IFDEF CONDOR	<						/A085
		2; SO0TM2	/	DECMATE				/A108
		3; SO0TM3	/        VT125				/A085
/		4; SO0TM4	/ Vt227					/A119
/	DISP;-1236;   TEXT '228)'	/VT227				/A108
/		4; SO0TM4; DLMSO1	/ VT227 - CONTINUE ON NEXT PAGE	/A108
/	DISP;-1236;   TEXT '&D&E&CMATE)'			/M047	/A105
			>		/END IFDEF CONDOR		/A085
/	IFNDEF CONDOR <	DISP;-1236;   TEXT '&SPECIAL)'>	/DECWORD	/C099
/	GOTO; SO0CTM			/ CONTINUE BELOW.		/A024
	TRNSFR; SO1TM4; DLMSO1		/ HAndle others in next block	/A119
SO0TM4,	DISP;-1236; TEXT '228)'		/VT228
	GOTO; SO0CTM
SO0TM2,
	IFDEF CONDOR <TRNSFR; SO1TM2; DLMSO1 > / CONTINUE NEXT PAGE	/A108
SO0TM0,
	DISP;-1236;   TEXT '52)'	/VT52				/M074
	GOTO; SO0CTM			/ CONTINUE BELOW		/A024
SO0TM3,								/A085
IFDEF  CONDOR	< DISP;-1236;   TEXT '!&GRAPHICS)'	/GRAPHICS	/C111
	GOTO; SO0CTM		/CONTINUE BELOW				/A085
		>		/END IFDEF CONDOR			/A085
SO0TM1,
	IFDEF CONDOR <	DISP;-1236;   TEXT '100)'> /VT100		/M047
	IFNDEF CONDOR <	DISP;-1236;   TEXT '278)'> /VT278		/C099
SO0CTM,
	TRNSFR;	SO0FIN;	DLMSO1	/"TYPE...OR GOLD MENU" AND RETURN	/A105

XTRSO0=400-.

IFZERO .-401&4000  <BADSO0, ?BADBLKLENGTH>


/ SO 1 - FIRST PAGE OF THE SYSTEMS OPTIONS MENU

RELOC
ADMSO1=.
X=DLMSO1		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC	0

SO1RDA,	SET;1;MNTMP3	/MNTMP3 IS USED FOR THE SUBMENUS TO TELL IF FIRST TIME
			/THROUGH THE MENU SO SET BEFORE CALLING
	SET;0;MNTMP4	/ SAY SO MENU DOESN'T NEED REFRESHING.		/A033
	SET;0; MNCMTP	/ALWAYS SET STANDARD PROTOCALL			/A046
	READ; MNTMP1; SO1ERR
	ARG; SO1RDA; MNTMP1

	KEYWRD
		TEXT 'BC '; SO1BC
		TEXT 'CC '; SO1CC
		TEXT 'CD '; -1-SO4S1;DLMSO4
		TEXT 'CT '; SO1TO					/M045
		TEXT 'SC '; SO1SC					/A103
		TEXT 'TM '; SO1TM
	CALL; CR1NM; DLMCR1
	GOTO; SO1RDB							/M065


SO1ERR,	SET; 2; MNTMP2		/ SET UP TO TELL CU4 THIS IS GOLD MENU
	CASE;MNSYSA							/M080
	    EDMENU&3777;SO1MM	/ GOTO CU4 IF THIS IS GOLD MENU
	CALL;CR1BR;DLMCR1
	DISP;2000;TEXT '!E'	/ ERASE THE "CR1BR" ERROR MESSAGE.	/A041
SO1RDB,	MXDISP;2120;X02TLS;DLMX02 / TYPE THE LETTER(S) AND PRESS RETURN
	MXDISP;2320;X02PGM;DLMX02 / OR PRESS GOLD MENU TO RECALL THE MAIN MENU
	GOTO; SO1RDA		/ DO ANOTHER READ...			/A041

SO1TO,	CALL; SOSUBD; DLMSO1		/ CHECK FOR ARG & DO MENU.	/M045
	CASE; MNTMP2
	      1; -1-SO2AR2; DLMSO2	/ ARG PRESENT.
	TRNSFR; SO2S; DLMSO2		/ ARG NOT PRESENT.

SO1BC,	CALL; SOSUBD; DLMSO1		/ CHECK FOR ARG & DO MENU.
	CASE; MNTMP2
	      1; -1-SO3AR2; DLMSO3	/ ARG PRESENT.
	TRNSFR; SO3S; DLMSO3		/ ARG NOT PRESENT.

SO1CC,	SET; 4;	MNTMP2			/ "CC" MENU SELECTED		/A102
	RETURN				/ TELL CU4			/A102

SO1TM,	CALL; SOSUBD; DLMSO1		/ CHECK FOR ARG & DO MENU.
	CASE; MNTMP2
	      1; -1-SO6AR2; DLMSO6	/ ARG PRESENT.
	TRNSFR; SO6S; DLMSO6		/ ARG NOT PRESENT.

SO1SC,	CALL; SO1NOA; DLMSO1		/ DISPLAY COMMON MENU TEXT
	TRNSFR; SO5S; DLMSO5

SOSUBD,	ARG; SO1NOA; MNTMP1		/ SEE IF ARG PRESENT.		/A021
	SET; 1; MNTMP2			/ SET ARG PRESENT FLAG.		/A021
SO1MM,	RETURN				/ RETURN TO PICK UP ARG.	/A021
SO1NOA,	SET; 0; MNTMP2			/ SET ARG NOT PRESENT FLAG.	/A021
SOSUB1,	SET; 1; MNTMP4		/ SAY SO MENU WILL NEED REFRESHING.	/A033
	DISP; 0; TEXT '!E'		/ SET UP COMMON MENU.		/A021
SOSUB2,	DISP; 2200; TEXT '!E'	/ CLEAR POSSIBLE "CR1BR" ERROR MESSAGE
	DISP; 2220; TEXT '&TYPE THE DESIRED OPTION AND PRESS !&RETURN'	/M085
	DISP; 2420
	TEXT '!&OR &PRESS !&RETURN TO RECALL THE &SYSTEM &OPTIONS &MENU' /M085
	MXDISP;2620;X02PGM;DLMX02 / OR PRESS GOLD MENU TO RECALL THE MAIN MENU
	RETURN
/---------------------------------------------------------------------------/

SO1TM4,	CASE; CXTMOD							/A119
		4;SO1TM7						/A119
		5;SO1TM8						/A119

SO1TMF,	DISP;-1236; TEXT '22&F) '					/A119
	GOTO; SO0FIN							/A119
SO1TM8,	DISP;-1236; TEXT '228) '					/A119
	GOTO; SO0FIN							/A119
SO1TM7,	DISP;-1236; TEXT '227) '					/A119
	GOTO; SO0FIN							/A119

SO1TM2,									/A108
	IFDEF CONDOR	< DISP;-1236; TEXT '&D&E&CMATE)' > / DECMATE	/A108

SO0FIN,		/EXIT FROM SO0						/A105
	MXDISP;	2120;	X02TLS;	DLMX02	/TYPE THE LETTER(S) AND PRESS RETURN
	MXDISP;	2320;	X02PGM;	DLMX02	/OR PRESS GOLD MENU TO RECALL THE MAIN MENU
	DISP;	-2700;	TEXT ''		/ ERASE LAST LINE		/A032
	RETURN

XTRSO1=400-.

IFZERO .-401&4000  <BADSO1, ?BADBLKLENGTH>

/ PROMPT FOR TYPE OF PROTOCOL

RELOC
ADMSO2=.
X=DLMSO2		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC	0


/CM2S,		/ CALLED FROM "WPCX" MUST BE AT START OF BLOCK!!!!	/A076

SO2RD,	SET;3;MNTMP1		/ 3 FOR "SEND"				/A076
	CALL;CM2DSP;DLMCM2	/ PROMPT FOR FILE NAME.			/A076
	READ;MNTMP1;SO2RE	/					/A076
	CASE;MNFNO		/ IS THERE A DEFAULT FILE NAME?		/A076
		0;SO2FN		/ JMP IF NO. TEST WHAT WAS JUST ENTERED./A076
	FILNAM;SO2RT;SO2ND	/ CHECK OUT FILENAME.			/A076
	GOTO;SO2RT		/ RETURN.				/A076
				/					/A076
SO2FN,	FILNAM;SO2RD;SO2ND	/ CHECK OUT FILENAME.			/A076
SO2RT,	SET;2700;MNTMP3		/ POSN CURSOR TO BOTTOM LINE.		/A076
	DISP;0;TEXT '!E     !P';MNTMP3	/				/A076
	SET;0;MNTMP1		/ SET FLAG THAT SAYS FILENAME.		/A076
	RETURN			/ RETURN TO CALLER (WPCX).		/A076
				/					/A076
SO2RE,	CASE;MNSYSA		/					/M080
		EDMENU&3777;SO2GMR	/				/A076
	CALL;CR1BR;DLMCR1	/					/A076
	GOTO;SO2RD		/					/A076
				/					/A076
SO2ND,	CALL;CR1ND;DLMCR1	/ NO DOCUMENT.				/A076
	GOTO;SO2RD		/ TRY AGAIN.				/A076
				/					/A076
SO2GMR,	SET;2;MNTMP1		/ GOLD:MENU RETURN.			/A076
	RETURN			/ RETURN TO CALLER (WPCX).		/A076




SO2S,	DISP; 0000; TEXT '-- !&CONNECTION !&TIMEOUT !&MENU --'		/A046
	DISP;1405
	TEXT '&ENTER CONNECTION TIMEOUT DELAY IN SECONDS (1 TO 90)'	/M045

SO2ARG,	ARG; SO2RDA; MNTMP1

SO2AR2,	NUMBER; MNTMP5; SO2NUM						/A045
	RANGE;	MNTMP5; 1; 132; SO2NUM					/A045
	COPY;MNTMP5;MNXDLY						/A045
	GOTO; SO2MM							/A045
SO2NUM,	DISP;-2710;TEXT'&MUST BE A NUMBER FROM 1 TO 90'			/A045
	CASE; MNTMP3
		 1; SO2SMR
	GOTO; SO2RDB							/A021

SO2RDA,	CASE; MNTMP3		/ 1ST TIME THRU?			/A021
	      0; SO2MM		/ IF NOT THEN RETURN TO SO MENU.	/A021
SO2RDB,	SET;  0; MNTMP3
	READ; MNTMP1; SO2ERR
	GOTO; SO2ARG


SO2MM,	SET; 1; MNTMP2
	RETURN

SO2GM,	SET; 2; MNTMP2		/ GOLD MENU RETURN TO MAIN MENU.	/A021
	RETURN			/ TELL "CU4"				/A021

SO2ERR,	CASE;MNSYSA							/M080
		 EDMENU&3777; SO2GM
	CALL; CR1BR; DLMCR1
	SET; 1; MNTMP3							/A065
	TRNSFR; SO1TO; DLMSO1						/M065

SO2SMR,	TRNSFR; SO1RDA; DLMSO1

/-----------------------------------------------------------------------
/		CONTINUATION OF CONVENTIONS MENU COMMAND PARSING
/-----------------------------------------------------------------------

SO2CSR,	ARG;SO2CER;MNTMP1		/ CHECK IF USER HAS ENTERED ANYTHING
	KEYWRD				/ YES, NOW CHECK IF IT IS VALID
	    TEXT '$';SO2DOL		/ AMERICAN DOLLAR SIGN REQUESTED
	    TEXT '#';SO2PND		/ BRITISH POUND SIGN REQUESTED

SO2CER,	MXDISP;2710;X04CER;DLMX04	/ C  MAY BE  $, OR #
SO2XIT,	TRNSFR;SO5RD;DLMSO5		/ GO BACK AND TRY AGAIN

SO2DOL,	CLRBIT;4;MNFMAT			/ CLEAR CURRENCY BIT
	GOTO;SO2CEX			/ GO REDISPLAY MENU ENTRY

SO2PND,	SETBIT;4;MNFMAT			/ SET CURRENCY BIT
SO2CEX,	TRNSFR;SO5CSR;DLMSO5		/ GO REDISPLAY MENU ENTRY


SO2ADD, INCV				/ SET SWITCH TO INDICATE DIRECTORY /A112
SO2PDD,	INCV				/ SET SWITCH TO INDICATE DICTIONARY

SO2ELD,
/D115	COPY;MNFNO;MNTMP2		/ SAVE THE CURRENT FILE NUMBER
	SET;0;MNFNO			/ SET UP TO INDICATE "NONE"
	FILNAM;SO2SET;SO2FND		/ CHECK FOR VALID FILE NAME

SO2SET,	CASE;MNMUTM			/ NAME VALID, CHECK COMMAND TYPE
	   1;SO2PDF			/ GO HANDLE DICTIONARY FILE NAME
	   2;SO2ADF			/ GO HANDLE DIRECTORY FILE NAME

	COPY;MNFNO;MNLGFN		/ EASYCOMM LOGON FILE NUMBER
	GOTO;SO2MNU			/ GO REDISPLAY THE MENU

SO2PDF,	COPY;MNFNO;MNPDFN		/ PERSONAL DICTIONARY FILE NUMBER
	GOTO;SO2MNU			/ GO REDISPLAY THE MENU

SO2ADF,	COPY;MNFNO;MNADFN		/ AUTODIAL DIRECTORY FILE NUMBER
SO2MNU,
/D115	COPY;MNTMP2;MNFNO		/ RESTORE FILE NUMBER
	TRNSFR;SO5S;DLMSO5		/ GO BACK TO REDISPLAY THE MENU

SO2FND,
/D115	COPY;MNTMP2;MNFNO		/ RESTORE FILE NUMBER
	CALL;CR1ND;DLMCR1		/ ERROR "DRIVE X DOES NOT HAVE ..."
	TRNSFR;SO5CLR;DLMSO5		/ CLEAR MESSAGE & REDISPLAY THE MENU

XTRSO2=400-.

IFZERO .-401&4000  <?BADBLKLENGTH>

/ SO3 - PROMPT FOR BUFFER CONTROL AND OTHER SO STUFF

RELOC
ADMSO3=.
X=DLMSO3		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC	0

SO3S,	DISP; 0000; TEXT '-- !&BUFFER !&CONTROL !&MENU --'
	DISP; 1205
	TEXT '&YES = &USE !&XOF (23 OCTAL) TO PAUSE TRANSMISSION AND'
	DISP; 1313; TEXT '!&XON (21 OCTAL) TO RESTART TRANSMISSION'
	DISP; 1505
	TEXT '&NO  = !&XON AND !&XOF ARE SENT AND RECEIVED AS NORMAL'
	DISP; 1613; TEXT 'CHARACTERS'


SO3ARG,	ARG; SO3RDA; MNTMP1

SO3AR2,	KEYWRD
		TEXT 'YES '; SO3BCY
		TEXT 'NO '; SO3BCN

	CALL; CR1NM; DLMCR1
	CASE; MNTMP3
		 1; -1-SO1RDA;DLMSO1
	GOTO; SO3RDB							/A021
									/A021
SO3RDA,	CASE; MNTMP3		/ 1ST TIME THRU?			/A021
		0; SO3MM	/ IF NOT THEN RETURN TO SO MEMU.	/A021
SO3RDB,	SET; 0; MNTMP3
	READ; MNTMP1; SO3ERR
	GOTO; SO3ARG

SO3BCY,	SET; 0; MNXONF
	GOTO; SO3MM

SO3BCN,	SET; 1; MNXONF
SO3MM,	SET; 1; MNTMP2
	RETURN

SO3GM,	SET; 2; MNTMP2		/ GOLD MENU RETURN TO MAIN MENU.	/A021
	RETURN			/ TELL "CU4"				/A021

SO3ERR,	CASE;MNSYSA							/M080
		 EDMENU&3777; SO3GM
	CALL;CR1BR;DLMCR1
	SET; 1; MNTMP3							/A065
	TRNSFR; SO1BC; DLMSO1						/M065


	/
	/ BECAUSE OF ROOM PROBLEMS THIS PART OF THE "CC" MENU
	/ DISPLAY IS ON THIS PAGE.
	/
SO3CCD,
	IFNDEF CONDOR <
	DISP;0405; TEXT '&B = &B^S';SO3BRT				/M018
	DISP;0452; TEXT '!&BA = &B^S';SO3BRT				/A018
	DISP;1005; TEXT '&D = &DATA BITS'
	DISP;1205; TEXT '&S = &STOP BITS'
	DISP;1404; TEXT '!&PS = &PORT &SELECT'				/M074
	DISP;1604; TEXT '!&PB = &PRINTER &B^S';SO3BRT			/M074
	>	/ END IFNDEF CONDOR					/A043

	IFDEF CONDOR	<						/A043
	DISP;0205;TEXT '!&PB = &PRINTER &B^S';SO3BRT
	DISP;0402;TEXT '&COMMUNICATIONS &PORT:'				/A043
	DISP;0605; TEXT '&B = &B^S';SO3BRT				/
	DISP;1205; TEXT '&D = &DATA BITS'
	DISP;1405; TEXT '&S = &STOP BITS'
	>	/ END IFDEF CONDOR					/A043

	TRNSFR; CX3S; DLMCX3						/A021

SO3BRT,	TEXT	'AUD RATE'


XTRSO3=400-.

IFZERO .-401&4000  <?BADBLKLENGTH>



RELOC
ADMSO4=.
X=DLMSO4		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC	0

/ SO4CC IS CALLED FROM WPCU4, MUST BE AT START OF BLOCK			/A102

SO4CC,	CALL; SOSUB1; DLMSO1		/ CHECK FOR ARG & DO MENU.
	DISP;0;TEXT '-- !&COMMUNICATION !&SETTINGS !&MENU --'
IFNDEF	CONDOR	<							/A043
	DISP;0210; TEXT '&PRIMARY &PORT (0)'				/M018
	DISP;0255; TEXT '&SECONDARY &PORT (1)'				/A018
		>	/NDEF CONDOR					/A043
	TRNSFR; SO3CCD; DLMSO3

/THIS MENU IS CALLED BY SO WHEN MODIFING THE CX DOCUMENT TRANSFER FORMAT

SO4S1,	FILNAM;SO4S3;SO4ND
	GOTO;SO4SM2

SO4S2,	FILNAM;SO4CLA;SO4ND		/SECOND TIME THROUGH IF NOTHING THEN
					/ERASE THE DOCUMENT
SO4SM2,	COPY;MNFNO;MNCXP

SO4SM,	SET; 3; MNTMP2
	SET; 1;	MNTMP4		/SET TEMP4 SO SO MENU WILL BE REPAINTED  /A037
	RETURN

SO4S,	CASE;MNTMP3
		1;SO4SM3

SO4S3,	SET; 1; MNTMP4		/ SAY THAT THE SO MENU NEEDS REFRESHING./A033
	DISP;0000;TEXT '!E-- !&CX !&DOCUMENT !&NAME !&MENU --'
	DISP;1210
	TEXT '&ENTER THE NAME OF THE DOCUMENT THAT CONTAINS THE FORMAT'
	DISP;1310;TEXT 'FOR !&CX TO USE WHEN TRANSFERRING A DOCUMENT, THEN'
	DISP;1410;TEXT '&PRESS !&RETURN'
	DISP;2320
	TEXT '!&OR JUST &PRESS !&RETURN TO USE THE SYSTEM DEFAULT FORMAT'
	MXDISP;2520;X02PGM;DLMX02 / OR PRESS GOLD MENU TO RECALL THE MAIN MENU

SO4RD,	SET;0;MNTMP3
	READ;MNTMP1;SO4ERR
	GOTO;SO4S2

SO4ERR,	CASE;MNSYSA							/M080
		EDMENU&3777;SO4GM	/ GOLD MENU TO MAIN MENU.	/M021
	CALL;CR1BR;DLMCR1
	GOTO;SO4S

SO4SM3,	SET; 1; MNTMP2
	RETURN
									/A021
SO4GM,	SET; 2; MNTMP2		/ GOLD MENU RETURN TO MAIN MENU.	/A021
	RETURN			/ GO TELL "CU4".			/A021

SO4ND,	CALL;CR1ND;DLMCR1
	DISP;2000;TEXT '!E   '	/ CLEAR ERROR MESSAGE FROM SCREEN	/A039
	GOTO;SO4S

SO4CLA,	SET;0;MNCXP
	GOTO;SO4SM

XTRSO4=400-.

IFZERO .-401&4000  <?BADBLKLENGTH>


/ SO5 - SET CONVENTIONS MENU
RELOC
ADMSO5=.
X=DLMSO5		/ INDICATE DISK BLOCK WHERE MENU IS LOADED

RELOC	0

SO5S,	MXDISP;   0;X04SCM;DLMX04 / -- SET CONVENTIONS MENU --

SO5ADD,	MXDISP; 214;X04ADD;DLMX04 / A = AUTODIAL DIRECTORY DOCUMENT	/A112
	DISP;270;TEXT '(&A '						/A112
	FBREAK;MNADFN		  / SEPARATE THE FILE NUMBER COMPONENTS	/A112
	CALL;SO5CFN;DLMSO5	  / GO DISPLAY FILE NUMBER OR "NONE"	/A112
	
SO5CSR,
/d120	MXDISP; 414;X04SYM;DLMX04 / C = CURRENCY SYMBOL			/M112
/d120	DISP;470;TEXT '(&C $)'	  / DISPLAY AMERICAN DOLLAR SIGN	/M112
/d120	TSTBIT;MNFMAT;MNFM2X;SO5DDN / TRANSFER IF DOLLAR SIGN		/M112
/d120	DISP;-1;TEXT '^CH^CH#'	  / DISPLAY BRITISH POUND SIGN		/M112

SO5DDN,	MXDISP; 414;X04DDN;DLMX04 / D = DICTIONARY DRIVE NUMBER	/M120	/M112
	DISP;470;TEXT '(&D '					/M120	/M112
	COPY;MNSDRV;MNTMP1	  / PICK UP COPY OF MENU DRIVE SELECTION
	SHFBIT;10;MNTMP1	  / MASK OFF DICTIONARY BITS
	CASE;MNTMP1;0;SO5DNO	  / CHECK FOR NULL DRIVE NUMBER
	DISP;-1;TEXT '!D)';MNTMP1 / DISPLAY THE DRIVE NUMBER
	GOTO;SO5ELD		  / CONTINUE DISPLAY
SO5DNO,	MXDISP;-1;X04NON;DLMX04   / DISPLAY NO DRIVE SELECTED		NONE)

SO5ELD,	MXDISP;0614;X04ELD;DLMX04 / E = EASYCOM LOGON DOCUMENT	/M120	/M112
	DISP;0670;TEXT '(&E '					/M120	/M112
	FBREAK;MNLGFN		  / SEPARATE THE FILE NUMBER COMPONENTS
	CALL;SO5CFN;DLMSO5	  / GO DISPLAY FILE NUMBER OR "NONE"	/A112

SO5FOR,	MXDISP;1014;X04FOR;DLMX04 / F = DATE FORMAT		/M120	/M112
	DISP;1070;TEXT '(&F '					/M120	/M112
	COPY;MNFMAT;MNTMP1	  / PICK UP COPY OF MENU FORMAT WORD
	CLRBIT;7774;MNTMP1	  / MASK OFF DATE FORMAT BITS
	CASE;MNTMP1		  / CHECK WHICH FORMAT IS DESIRED
	   2;SO5MON		  / GO HANDLE MONTH-DAY-YEAR FORMAT
	   3;SO5YER		  / GO HANDLE YEAR-MONTH-DAY FORMAT
				  / 0 AND 1 DEFAULT TO DAY-MONTH-YEAR
SO5DAY,	DISP;-1;TEXT '!&DMY)'	  / DISPLAY DAY FORMAT SELECTED
	GOTO;SO5MDT		  / CONTINUE IN LINE
SO5MON,	DISP;-1;TEXT '!&MDY)'	  / DISPLAY MONTH FORMAT SELECTED
	GOTO;SO5MDT		  / CONTINUE IN LINE
SO5YER,	DISP;-1;TEXT '!&YMD)'	  / DISPLAY YEAR FORMAT SELECTED

SO5MDT,	MXDISP;1214;X04MDT;DLMX04 / M = MAIN DICTIONARY TYPE	/M120	/M112
	DISP;1270;TEXT '(&M '					/M120	/M112
	TSTBIT;MNFMAT;MNFM3X;SO5USA / IF CLEAR, THEN IT'S AMERICAN
	MXDISP;-1;X04BRT;DLMX04   / DISPLAY DICTIONARY TYPE	     BRITISH)
	GOTO;SO5PDD		  / CONTINUE DISPLAY
SO5USA,	MXDISP;-1;X04USA;DLMX04   / DISPLAY DICTIONARY TYPE	     AMERICAN)

SO5PDD,	MXDISP;1414;X04PDD;DLMX04 / P = PERSONAL DICTIONARY DOCUMENT/M120/M112
	DISP;1470;TEXT '(&P '					/M120	/M112
	FBREAK;MNPDFN		  / SEPARATE THE FILE NUMBER COMPONENTS
	CALL;SO5CFN;DLMSO5	  / GO DISPLAY FILE NUMBER OR "NONE"	/A112

SO5UDN,	MXDISP;1614;X04UDN;DLMX04 / U = UTILITY SOFTWARE DRIVE NUMBER/M120/M112
	DISP;1670;TEXT '(&U '					/M120	/M112
	COPY;MNSDRV;MNTMP1	  / PICK UP COPY OF MENU DRIVE SELECTION
	CLRBIT;7760;MNTMP1	  / MASK OFF UTILITY SOFTWARE BITS
	CASE;MNTMP1;0;SO5UNO	  / CHECK FOR NULL DRIVE NUMBER
	DISP;-1;TEXT '!D)';MNTMP1 / DISPLAY THE DRIVE NUMBER
	GOTO;SO5FIN		  / CONTINUE DISPLAY
SO5UNO,	MXDISP;-1;X04NON;DLMX04   / DISPLAY NO DRIVE SELECTED		NONE)

SO5FIN,	FBREAK;MNFNO		  / RESTORE FILE NAME PARAMETERS
	DISP;-2700;TEXT ""	  / CLEAR TEXT FROM BOTTOM LINE

SO5RD,	CLRV			  / CLEAR ACCUMULATOR FOR DOCUMENT TESTS
	SET;0;MNTMP3
	READ;MNTMP1;SO5ERR
	ARG; SO5MM; MNTMP1

	TRNSFR;SO7KEY;DLMSO7	/ GO CHECK USER RESPONSE

SO5NOM,	CALL;CR1NM;DLMCR1	/ TYPING "..." HAS NO MEANING HERE
	GOTO;SO5RD		/ GO TRY AGAIN

SO5ERR,	CASE;MNSYSA
	    EDMENU&3777;SO5GM	/ GOLD MENU TO MAIN MENU.
	CALL;CR1BR;DLMCR1	/ DISPLAY ERROR MESSAGE "WHEN TYPING....
SO5CLR,	CALL;SOSUB2;DLMSO1	/ CLEAR CR1BR ERROR MESSAGE
	GOTO;SO5S

SO5MM,	SET; 1; MNTMP2		/ "RETURN" FOR REDISPLAY OF SO MENU
	RETURN			/ GO TELL "CU4" TO DO IT

SO5GM,	SET; 2; MNTMP2		/ GOLD MENU RETURN TO MAIN MENU.
	RETURN			/ GO TELL "CU4" TO DO IT

SO5CFN,	CASE;MNDOCN;0;SO5NFN	/ CHECK FOR NULL FILE NUMBER		/A112
	DISP;-1;TEXT '!D.!D)';MNDRV;MNDOCN / DISPLAY FILE NUMBER	/A112
	RETURN			/ CONTINUE DISPLAY			/A112
SO5NFN,	MXDISP;-1;X04NON;DLMX04 / DISPLAY NO DRIVE SELECTED	NONE)	/A112
	RETURN			/ CONTINUE DISPLAY			/A112

XTRSO5=400-.

IFZERO .-401&4000  <?BADBLKLENGTH>

/	SO6 - PROMPT FOR TERMINAL MODE.
RELOC
ADMSO6=.
X=DLMSO6			/INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC	0

SO6S,
	DISP;0000;TEXT '-- !&TERMINAL !&MODE !&MENU --'
	IFNDEF CONDOR <							/A044
	DISP;0604;TEXT '52      = &SIMULATE A !&VT52^S';SO6BSM
	DISP;1004;TEXT '278     = &ACT AS A &D&E&CMATE !&VT278^S';SO6BSM  /C044
	DISP;1204;TEXT '!&SPECIAL = &ACT AS A &D&E&CWORD TERMINAL^S';SO6BSM/C044
		>	/ END IFNDEF CONDOR				/A044
	IFDEF CONDOR <							/A044
	DISP;0414;TEXT '52^S!&VT52^S';	SO6AAA;SO6BSM		/C113
	DISP;0613;TEXT '100^S!&VT100^S';	SO6AAA;SO6BSM		/C113
	DISP;1013;TEXT '227^S!&VT220(7-BIT)^S';SO6AAA;SO6BSM		/C113
	DISP;1213;TEXT '22&F^S!&VT220(7-BIT &FALLBACK)^S';SO6AAA;SO6BSM	/A119
	DISP;1413;TEXT '228^S!&VT220(8-BIT)^S';SO6AAA;SO6BSM		/A119
	DISP;1606						/C113
	TEXT '!&^S^CH^S!&^S&TERMINAL^S';SO6GRA;SO6AAA;SO6GRA;SO6BSM	/C113
	DISP;2007;TEXT '^S^S^S^S'; SO6DMT; SO6AAA; SO6DMT; SO6BSM	/C113

		>	/DECMATE	/ END IFDEF CONDOR		/A044
SO6ARG,	ARG; SO6RDA; MNTMP1
SO6AR2,
	CLRV								/A105
	KEYWRD
		TEXT '52 ';	SO6V52
			IFNDEF CONDOR <					/A044
		TEXT '278 ';	SO6278
		TEXT 'SPECIAL ';SO6DWD	>	/ END IFNDEF CONDOR A044 A024
			IFDEF CONDOR <					/A044
		TEXT '100 ';	SO6100					/A044
SO6GRA,		TEXT 'GRAPHICS ';	SO6125				/C111
		TEXT 'DECMATE ';SO6DM2			/ A044 M077	/A105
		TEXT '227 ';	SO6227
		TEXT '228 ';	SO6228					/A119
		TEXT '22F ';    SO622F					/A119
		>	/ END CONDOR		/A108

	CALL; CR1NM; DLMCR1
	CASE; MNTMP3
		 1; -1-SO1RDA; DLMSO1
	GOTO; SO6RDB							/A021
SO6RDA,	CASE; MNTMP3		/ 1ST TIME THRU?			/A021
		0; SO6MM	/ IF NOT THEN RETURN TO SO MENU.	/A021
SO6RDB,	SET; 0; MNTMP3
	READ; MNTMP1; SO6ERR
	GOTO; SO6ARG
		IFNDEF CONDOR <				/A085
SO6DWD,	INCV		/SELECT DECWORD OPTION				/A105
SO6278,	INCV								/A105
		>		/END IFNDEF CONDOR			/A085
		IFDEF CONDOR <						/A085
SO622F,	INCV		/ SELECT VT-220 MODE 7 BIT FALLBACK		/A119
SO6228,	INCV		/ SELECT VT-228 MODE				/A108
SO6227,	INCV		/ SELECT VT-227 MODE				/A108
SO6125,	INCV		/ SELECT VT-125 MODE			/A085	/A105
SO6DM2,	INCV		/ SELECT DECMATE-II MODE		/A044	/A105
SO6100,	INCV		/ SELECT VT-100 MODE			/A044	/A105
		>		/END IFDEF CONDOR			/A085
SO6V52,	STOV; CXTMOD							/A105
SO6MM,	SET; 1; MNTMP2
	RETURN

SO6GM,	SET; 2; MNTMP2		/ GOLD MENU RETURN TO MAIN MENU.	/A021
	RETURN			/ TELL "CU4".				/A021

SO6ERR,	CASE;MNSYSA							/M080
		 EDMENU&3777; SO6GM
	CALL;CR1BR;DLMCR1
	SET; 1; MNTMP3							/A065
	TRNSFR; SO1TM; DLMSO1						/M065
/******		COMMON STRINGS		******
SO6AAA,									/A085
	TEXT ' = &ACT AS A '						/C113
SO6BSM,			/MODIFIED SUBSTRING TO CONTAIN MORE OF COMMON STRING /A044
	TEXT ' WHEN IN !&CX BLANK SCREEN MODE.'
SO6DMT,	TEXT	'&D&E&CMATE'						/C113
/-----


XTRSO6=400-.

IFZERO .-401&4000  <?BADBLKLENGTH>


/ SO7 - SET CONVENTIONS MENU CONT.

RELOC
ADMSO7=.
X=DLMSO7			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC	0

SO7KEY,	KEYWRD				/ CHECK USER RESPONSE
	    TEXT 'A ';-1-SO2ADD;DLMSO2	/ HANDLE AUTODIAL DIRECTORY DOCUMENT
/D120	    TEXT 'C ';-1-SO2CSR;DLMSO2	/ HANDLE CURRENCY SYMBOL REQUEST
	    TEXT 'D ';SO7DDN		/ HANDLE DICTIONARY DRIVE REQUEST
	    TEXT 'E ';-1-SO2ELD;DLMSO2	/ HANDLE EASY COMM LOGON DOCUMENT
	    TEXT 'F ';SO7FOR		/ HANDLE DATE FORMAT REQUEST
	    TEXT 'M ';SO7MDT		/ HANDLE DICTIONARY TYPE REQUEST
	    TEXT 'P ';-1-SO2PDD;DLMSO2	/ HANDLE PERSONAL DICTIONARY DOCUMENT
	    TEXT 'U ';SO7UDN		/ HANDLE UTILITY DRIVE REQUEST

SO7ERR,	TRNSFR;SO5NOM;DLMSO5		/ GO REPORT "TYPING ... HAS NO MEANING"

SO7DDN,	SET;0;SO7DDD			/ CLEAR THE BIT VALUE
	ARG;SO7DER;MNTMP1		/ CHECK IF USER HAS ENTERED ANYTHING
	KEYWRD				/ YES, NOW CHECK IF IT IS VALID
	    TEXT 'NONE ';SO7DDC		/ USER OPTS FOR NO DRIVE SELECTION
	NUMBER;SO7DDD;SO7DER		/ ELSE, MAKE SURE IT IS A NUMBER
	RANGE;SO7DDD;1;11;SO7DER	/ MAX DRIVE IS NINE
SO7DDC,	CLRBIT;7400;MNSDRV		/ CLEAR DICTIONARY DRIVE NUMBER
	SHFBIT;-10;SO7DDD		/ MOVE THE DRIVE NUMBER TO POSITION
	SETBIT
SO7DDD,	0;MNSDRV			/ SET THE DICTIONARY DRIVE NUMBER
	TRNSFR;SO5DDN;DLMSO5		/ GO REDISPLAY MENU ENTRY

SO7DER,	DISP;2710;TEXT ' &D'
	GOTO;SO7MAY			/ GO DISPLAY "MAY BE 1 TO 9, OR NONE"


SO7FOR,	ARG;SO7FER;MNTMP1		/ CHECK IF USER HAS ENTERED ANYTHING
	KEYWRD				/ YES, NOW CHECK IF IT IS VALID
	    TEXT 'DMY ';SO7DAY		/ DAY - MONTH - YEAR FORMAT REQUESTED
	    TEXT 'MDY ';SO7MON		/ MONTH - DAY - YEAR FORMAT REQUESTED
	    TEXT 'YMD ';SO7YER		/ YEAR - MONTH - DAY FORMAT REQUESTED
	    TEXT 'SD ';SO7FER		/ DO NOT ALLOW SUBSET OF "SDC" WORD
	    TEXT 'SDC ';SO7SDC		/ HANDLE SETUP FOR SDC SUBMISSION

SO7FER,	DISP;2710;TEXT ' &F'
	MXDISP;-1;X05ERD;DLMX05		/ "  DMY = "
	MXDISP;-1;X05DMY;DLMX05		/ DAY/MONTH/YEAR
	MXDISP;-1;X05ERM;DLMX05		/ ", MDY = "
	MXDISP;-1;X05MDY;DLMX05		/ MONTH/DAY/YEAR
	MXDISP;-1;X05ERY;DLMX05		/ ", YMD = "
	MXDISP;-1;X05YMD;DLMX05		/ YEAR/MONTH/DAY
	GOTO;SO7XIT			/ GO BACK AND TRY IT AGAIN

SO7DAY,	CLRBIT;3;MNFMAT			/ CLEAR DATE FORMAT BITS
	SETBIT;1;MNFMAT			/ SET BIT FOR DAY - MONTH - YEAR FORMAT
	GOTO;SO7DXT			/ GO REDISPLAY MENU ENTRY

SO7MON,	CLRBIT;3;MNFMAT			/ CLEAR DATE FORMAT BITS
	SETBIT;2;MNFMAT			/ SET BIT FOR MONTH - DAY - YEAR FORMAT
	GOTO;SO7DXT			/ GO REDISPLAY MENU ENTRY

SO7YER,	SETBIT;3;MNFMAT			/ SET BITS FOR YEAR - MONTH - DAY FORMAT
	GOTO;SO7DXT			/ GO REDISPLAY MENU ENTRY

SO7SDC,	SET;0;MNFMAT			/ CLEAR FORMAT WORD FOR SDC SUBMISSION
SO7DXT,	TRNSFR;SO5FOR;DLMSO5		/ GO REDISPLAY MENU ENTRY


SO7MDT,	ARG;SO7MER;MNTMP1		/ CHECK IF USER HAS ENTERED ANYTHING
	KEYWRD				/ YES, NOW CHECK IF IT IS VALID
SO7MTA,	    TEXT 'AMERICAN ';SO7USA	/ AMERICAN DICTIONARY REQUESTED
SO7MTB,	    TEXT 'BRITISH ';SO7BRT	/ BRITISH DICTIONARY REQUESTED

SO7MER,	DISP;2710;TEXT ' &M  &MAY BE  &^S^R, OR &^S';SO7MTA;SO7MTB
	GOTO;SO7XIT			/ GO BACK AND TRY IT AGAIN

SO7USA,	CLRBIT;10;MNFMAT		/ CLEAR DICTIONARY BIT
	GOTO;SO7MTC			/ GO REDISPLAY MENU ENTRY

SO7BRT,	SETBIT;10;MNFMAT		/ SET DICTIONARY BIT
SO7MTC,	TRNSFR;SO5MDT;DLMSO5		/ GO REDISPLAY MENU ENTRY

SO7UDN,	SET;0;SO7UUU			/ CLEAR BIT VALUE
	ARG;SO7UER;MNTMP1		/ CHECK IF USER HAS ENTERED ANYTHING
	KEYWRD				/ YES, NOW CHECK IF IT IS VALID
	    TEXT 'NONE ';SO7UDC		/ USER OPTS FOR NO DRIVE SELECTION
	NUMBER;SO7UUU;SO7UER		/ ELSE, MAKE SURE IT IS A NUMBER
	RANGE;SO7UUU;1;11;SO7UER	/ MAX DRIVE IS NINE
SO7UDC,	CLRBIT;17;MNSDRV		/ CLEAR UTILITY DRIVE NUMBER
	SETBIT
SO7UUU,	0;MNSDRV			/ SET THE UTILITY DRIVE NUMBER
	TRNSFR;SO5UDN;DLMSO5		/ GO REDISPLAY MENU ENTRY

SO7UER,	DISP;2710;TEXT ' &U'
SO7MAY,	MXDISP;-1;X04MAY;DLMX04		/ MAY BE 1 TO 9, OR NONE
SO7XIT,	TRNSFR;SO5RD;DLMSO5		/ GO BACK AND TRY AGAIN

XTRSO7=400-.

IFZERO .-401&4000	<?BADBLKLENGTH>


/CX3  SET COMMUNICATIONS SETTINGS MENU

RELOC
ADMCX3=.
X=DLMCX3		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

CX3S,
	IFNDEF CONDOR <							/A043
	DISP;0605; TEXT '&P = &PARITY'
	DISP;0652; TEXT '!&PA = &PARITY'
	DISP;1052; TEXT '!&DA = &DATA BITS'
	DISP;1252; TEXT '!&SA = &STOP BITS'
	DISP;1452; TEXT '!&BT = &BREAK &TIME'				/M074
	>	/ END IFNDEF CONDOR					/A043

	IFDEF CONDOR <							/A043
	DISP;1005; TEXT '&P = &PARITY'
	DISP;1605; TEXT '!&BT = &BREAK &TIME'
	DISP;2005; TEXT '!&I = &INTEGRAL MODEM'				/A102
	>	/ END IFDEF CONDOR					/A043


CX3AGN,	

	IFDEF CONDOR <
	TSTBIT; MNFMAT; MNFM4X; CX3IMN	/ CK FOR INTEGRAL MODEM		/A102
	SET; CX3IEN; CX3IM	/ YES - SAY ENABLED			/A102
	GOTO; CX3IMD		/ SKIP					/A102
CX3IMN,	SET; CX3IDS; CX3IM	/  NO  - SAY DISABLED			/A102
CX3IMD,	DISP; 2031; TEXT '(!&I ^S)'					/A102
CX3IM,	0								/A102
	>	/ END IFDEF CONDOR

	/ DETERMINE THE BREAK TIME TO BE DISPLAYED.

	CALL; CX3BT; DLMCX3

	IFNDEF CONDOR <DISP;1473;TEXT '(!&BT ^S) '>			/M074

	IFDEF  CONDOR <DISP;1625;TEXT '(!&BT ^S) '>			/A043
	
CX3BTY,				0


/ NEXT, DETERMINE PARITY TO DISPLAY

	COPY; CX0PAR; MNTMP2
	CALL; CX3PAR; DLMCX3
	COPY; MNTMP4; CX3PT0
	IFNDEF CONDOR <	DISP;0625; TEXT '(&P ^S)  ' >			/C043
	IFDEF  CONDOR <	DISP;1025; TEXT '(&P ^S)  ' >		/C043	/C099
CX3PT0,		.-.		/ SUBSTRING POINTER

	IFNDEF CONDOR <		/ DON'T DISPLAY SECONDARY PORT PARITY	/A043
	COPY; CX1PAR; MNTMP2
	CALL; CX3PAR; DLMCX3
	COPY; MNTMP4; CX3PT1
	DISP;0673; TEXT '(!&PA ^S)  '
CX3PT1,		.-.
	> / NDEF CONDOR		/ ON DM-II				/A043

	TRNSFR;CX4CNT;DLMCX4


CX3BT,	CASE; CXBRTM
		01; BRTM01
		02; BRTM02
		03; BRTM03
		04; BRTM04
		05; BRTM05
		06; BRTM06
		07; BRTM07
		10; BRTM08
		11; BRTM09
		12; BRTM10
		13; BRTM11
		14; BRTM12
		15; BRTM13
		16; BRTM14
//		17; BRTM15

BRTM15,	SET; BR15TM; CX3BTY; RETURN
BRTM01,	SET; BR01TM; CX3BTY; RETURN
BRTM02,	SET; BR02TM; CX3BTY; RETURN
BRTM03,	SET; BR03TM; CX3BTY; RETURN
BRTM04,	SET; BR04TM; CX3BTY; RETURN
BRTM05,	SET; BR05TM; CX3BTY; RETURN
BRTM06,	SET; BR06TM; CX3BTY; RETURN
BRTM07,	SET; BR07TM; CX3BTY; RETURN
BRTM08,	SET; BR08TM; CX3BTY; RETURN
BRTM09,	SET; BR09TM; CX3BTY; RETURN
BRTM10,	SET; BR10TM; CX3BTY; RETURN
BRTM11,	SET; BR11TM; CX3BTY; RETURN
BRTM12,	SET; BR12TM; CX3BTY; RETURN
BRTM13,	SET; BR13TM; CX3BTY; RETURN
BRTM14,	SET; BR14TM; CX3BTY; RETURN

BR01TM,	TEXT  '.1'
BR02TM,	TEXT  '.2'
BR03TM,	TEXT  '.3'
BR04TM,	TEXT  '.4'
BR05TM,	TEXT  '.5'
BR06TM,	TEXT  '.6'
BR07TM,	TEXT  '.7'
BR08TM,	TEXT  '.8'
BR09TM,	TEXT  '.9'
BR10TM,	TEXT '1.0'
BR11TM,	TEXT '1.1'
BR12TM,	TEXT '1.2'
BR13TM,	TEXT '1.3'
BR14TM,	TEXT '1.4'
BR15TM,	TEXT '1.5'


CX3PAR,	SET;  PEVEN; MNTMP4
	CASE; MNTMP2
		PEVNVL; CX3PR	/ Even parity selected.			/A083
		PODDVL; CX3ODD	/ Odd parity selected.			/A083
				/ No parity selected.			/A083
	SET;  PNO;  MNTMP4
	RETURN

CX3ODD,	SET;  PODD; MNTMP4
CX3PR,	RETURN

IFDEF	CONDOR	<PEVNVL=3;PODDVL=1;PNOVAL=0>				/A083
IFNDEF	CONDOR	<PEVNVL=1;PODDVL=0;PNOVAL=2>				/A083

PEVEN,	TEXT	'EVEN'
PODD,	TEXT	'ODD'
PNO,	TEXT	'NO'
IFDEF	CONDOR	<
CX3IDS,	TEXT	'DISABLED'						/A102
CX3IEN,	TEXT	' ENABLED'						/A102
	>	/ END IFDEF CONDOR

XTRCX3=400-.

IFZERO .-401&4000 <?BADPAGE LENGTH>

/MORE DISPLAY COMMUNICATIONS SETTINGS

RELOC
ADMCX4=.
X=DLMCX4		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

/ NEXT, DISPLAY THE DATA BITS.

CX4CNT,
	IFDEF CONDOR <	DISP;1225;TEXT '(&D !D)';   CX0DBT >		/C043
	IFNDEF CONDOR <							/A043
	DISP;1025;TEXT '(&D !D)';   CX0DBT
	DISP;1073;TEXT '(!&DA !D)'; CX1DBT	>			/C043

/ AND THEN DISPLAY STOP BITS.

	IFDEF CONDOR <DISP;1425;TEXT '(&S !D)';   CX0SBT >		/C043
	IFNDEF CONDOR <							/A043
	DISP;1225;TEXT '(&S !D)';   CX0SBT
	DISP;1273;TEXT '(!&SA !D)'; CX1SBT	>			/C043

/ NEXT, DETERMINE THE BAUD RATE TO BE DISPLAYED.

	COPY; CX0BAU; MNTMP2						/M018
	CALL; CX4BDR; DLMCX4						/M018
	COPY; MNTMP4; CX4BD0						/M018
	IFDEF  CONDOR < DISP;0625;TEXT '(&B ^S)   ' >		/C043	/M018
	IFNDEF CONDOR < DISP;0425;TEXT '(&B ^S)   ' >		/C043	/M018
CX4BD0,		0							/M018

	IFNDEF CONDOR <							/A043
	COPY; CX1BAU; MNTMP2						/A018
	CALL; CX4BDR; DLMCX4						/A018
	COPY; MNTMP4; CX4BD1
	DISP;0473;TEXT '(!&BA ^S)   '					/A018
CX4BD1,		0				>			/C043


				/ DISPLAY PRINTER BAUD RATE		/A043
	COPY; CXPBAU; MNTMP2
	CALL; CX4BDR; DLMCX4
	COPY; MNTMP4; CX4BDP

	IFDEF CONDOR < DISP;0235;TEXT '(!&PB ^S)   ' >			/C043
	IFNDEF CONDOR < DISP;1633;TEXT '(!&PB ^S)   ' >			/M074
CX4BDP,		0

	IFNDEF CONDOR <							/A043
/ AND FINALLY DISPLAY PORT SELECTION.

	CASE; CXPORT; 0; CX4CN2
	SET;  CX4SEC; CX4POR
CX4CN2,	DISP;1425;TEXT '(!&PS ^S)  '
CX4POR,	CX4PRI			>	/ END IFNDEF CONDOR		/C043

	TRNSFR; CX5RD; DLMCX5

	IFNDEF CONDOR <							/A043
CX4PRI,	TEXT	'PRIMARY'
CX4SEC,	TEXT	'SECONDARY'	>	/ END IFNDEF CONDOR		/C043


CX4BDR,	SET;BD0;MNTMP4
	CASE;MNTMP2
		0;CX4RT
		1;BAUD1
		2;BAUD2
		3;BAUD3
		4;BAUD4
		5;BAUD5
		6;BAUD6
		7;BAUD7
		10;BAUD10
		11;BAUD11
		12;BAUD12
		13;BAUD13
		14;BAUD14
		15;BAUD15
		16;BAUD16

	SET;BD17;MNTMP4
CX4RT,	RETURN
BAUD16,	SET;BD16;MNTMP4
	RETURN
BAUD15,	SET;BD15;MNTMP4
	RETURN

BAUD14,	SET;BD14;MNTMP4
	RETURN

BAUD13,	SET;BD13;MNTMP4
	RETURN

BAUD12,	SET;BD12;MNTMP4
	RETURN

BAUD11,	SET;BD11;MNTMP4
	RETURN

BAUD10,	SET;BD10;MNTMP4
	RETURN

BAUD7,	SET;BD7;MNTMP4
	RETURN

BAUD6,	SET;BD6;MNTMP4
	RETURN

BAUD5,	SET;BD5;MNTMP4
	RETURN

BAUD4,	SET;BD4;MNTMP4
	RETURN

BAUD3,	SET;BD3;MNTMP4
	RETURN

BAUD2,	SET;BD2;MNTMP4
	RETURN

BAUD1,	SET;BD1;MNTMP4
	RETURN


BD0,		TEXT '50'
BD1,		TEXT '75'
BD2,		TEXT '110'
BD3,		TEXT '134.5'
BD4,		TEXT '150'
BD5,		TEXT '300'
BD6,		TEXT '600'
BD7,		TEXT '1200'
BD10,		TEXT '1800'
BD11,		TEXT '2000'
BD12,		TEXT '2400'
BD13,		TEXT '3600'
BD14,		TEXT '4800'
BD15,		TEXT '7200'
BD16,		TEXT '9600'
BD17,		TEXT '19200'

/*****************************************************************************

/ INTEGRAL MODEM SUPPORT						/A102

IFDEF CONDOR <								/A102

CX4CIM,									/A102
	ARG; CX4SOP; MNTMP1		/ IF NULL SHOW ARGS.		/A102
	KEYWRD								/A102
		TEXT 'ENABLED '; CX4ENA					/A102
		TEXT 'DISABLED '; CX4DIS				/A102
CX4SOP,	DISP; 2617; TEXT '!&I MAY BE ^S OR ^S'				/A102
	CX4IEN								/A102
	CX4IDS								/A102
	TRNSFR; CX5RD; DLMCX5		/ GO BACK AND READ AGAIN	/A102
CX4ENA,	SETBIT; MNFM4X; MNFMAT		/ ENABLE FUNCTION		/A102
	GOTO; CX4IMC			/ 				/A102
CX4DIS,	CLRBIT; MNFM4X; MNFMAT		/ DISABLE FUNCTION		/A102

CX4IMC,	TRNSFR; CX3AGN; DLMCX3		/ DISP "CC" MENU		/A102

CX4IEN,	TEXT 'ENABLED'							/A102
CX4IDS,	TEXT 'DISABLED'							/A102
	> 	/ END IFDEF CONDOR					/A102

XTRCX4=400-.

IFZERO .-401&4000 <?BADPAGE LENGTH>

/	INPUT PROCESSING FOR COMMUNICATIONS SETTINGS MENU
RELOC
	FIELD 4
*0
ADMCX5=.
X=DLMCX5		/INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

CX5RD,	READ;MNTMP1;CX5RDE
	DISP;2500;TEXT '!E'
CX5CNT,	ARG;CX5RET;MNTMP1
	KEYWRD		/REARRANGED ORDER				/A043
		TEXT 'P '; CX5P
		TEXT 'D '; CX5D
		TEXT 'S '; CX5S
		TEXT 'B '; -1-CX7B;   DLMCX7
		TEXT 'I '; -1-CX4CIM; DLMCX4				/A102
		TEXT 'BT ';-1-CX6BT;  DLMCX6				/A018
	IFDEF	CONDOR	<						/A105
		TEXT 'PB '; CX5PB					/A105
		TEXT 'DP2 ';CX5PB					/A105
			>	/END CONDOR				/A105
	IFNDEF	CONDOR	<						/A043
		TEXT 'PB '; -1-CX7PR; DLMCX7				/A018
		TEXT 'DP2 ';-1-CX7PR; DLMCX7
		TEXT 'PA ';CX5PA					/A018
		TEXT 'DA ';CX5DA					/A018
		TEXT 'SA ';CX5SA					/A018
		TEXT 'BA ';-1-CX7BA;DLMCX7				/A018
		TEXT 'PS ';-1-CX6PS;DLMCX6				/A018
		>	/NDEF	CONDOR					/A043
	CALL; CR1NM; DLMCR1
	GOTO; CX5RD
CX5RET,	SET; 1; MNTMP2	/SO MENU RETURN
	RETURN
		IFDEF CONDOR	<					/A105
CX5PB,	/CHANGE PB UNLESS NOT DMII					/A105
	TSTBIT; MNOPTN; MNRX9X+MNRXAX; -1-CX7PR; DLMCX7			/A105
	DISP; 2617							/A105
		TEXT '&YOU CANNOT CHANGE THE &PRINTER &BAUD RATE.'	/A105
	GOTO; CX5RD							/A105
				>  /	END CONDOR			/A105
CX5P,
		IFNDEF CONDOR <						/A105
	SET;  CX0PAR; CX5PAR						/M018
	SET;  CX5AA;  CX5TYP
	GOTO; CX5PB							/A018
CX5PA,	SET;  CX1PAR; CX5PAR						/A018
	SET;  CX5BB;  CX5TYP
CX5PB,				>  /	END NDEF CONDOR			/A105
	ARG;  CX5PER; MNTMP1
	SET; PNOVAL; MNTMP2						/A105
	KEYWRD
		TEXT 'ODD ';  CX5POD
		TEXT 'EVEN '; CX5PEV
		TEXT 'NO ';   CX5PC					/A105
CX5PER,	DISP;2617;TEXT '&P^A MAY BE &EVEN, &ODD, OR &NO.'		/C067
CX5TYP,	CX5AA		/MAY CHANGE IFF DMI				/A105
	GOTO;CX5RD
CX5POD,	SET;  PODDVL; MNTMP2						/M083
	GOTO; CX5PC
CX5PEV,	SET;  PEVNVL; MNTMP2						/M083
CX5PC,	COPY; MNTMP2
CX5PAR,	CX0PAR		/MAY CHANGE IFF DMI				/A105
CX5CX3,	TRNSFR;CX3AGN;DLMCX3
CX5D,
		IFNDEF CONDOR <						/A105
	SET;  CX0DBT; CX5DBT
	SET;  CX5AA;  CX5TYD
	GOTO; CX5DB
CX5DA,	SET;  CX1DBT; CX5DBT
	SET;  CX5BB;  CX5TYD
CX5DB,					>  /	END NDEF CONDOR		/A105
	ARG;CX5DER;MNTMP1
	NUMBER;MNTMP4;CX5DER
	RANGE;MNTMP4;5;10;CX5DER
	COPY;MNTMP4
CX5DBT,	CX0DBT		/MAY CHANGE IFF DMI				/A105
	GOTO; CX5CX3
CX5DER,	DISP;2617;TEXT '&D^A MUST BE A NUMBER FROM 5 TO 8.'		/C067
CX5TYD,	CX5AA		/MAY CHANGE IFF DMI				/A105
	GOTO;CX5RD
CX5S,
		IFNDEF	CONDOR	<					/A105
	SET;  CX0SBT; CX5SBT
	SET;  CX5AA;  CX5TYS
	GOTO; CX5SB
CX5SA,	SET;  CX1SBT; CX5SBT
	SET;  CX5BB;  CX5TYS
CX5SB,					>				/A105
	ARG;  CX5SER; MNTMP1
	NUMBER;MNTMP4;CX5SER
	RANGE; MNTMP4; 1;2; CX5SER
	COPY; MNTMP4
CX5SBT,	CX0SBT		/MAY CHANGE IFF DMI				/A105
	GOTO; CX5CX3
CX5SER,	DISP;2617;TEXT '&S^A MAY BE 1 OR 2.'				/C067
CX5TYS,	CX5AA		/MAY CHANGE IFF DMI				/A105
	GOTO; CX5RD
CX5RDE,	CASE; MNSYSA							/M080
		EDMENU&3777;  CX5GM	/GOLD MENU PRESSED
	CALL; CR1BR; DLMCR1
	TRNSFR; SO1CC; DLMSO1						/M065
CX5GM,	SET; 2; MNTMP2			/GOLD MENU EXIT
	RETURN

CX5BB,	"A&177
CX5AA,	0


XTRCX5=400-.


/ INPUT PROCESSING FOR COMMUNICATIONS SETTINGS MENU

RELOC
ADMCX6=.
X=DLMCX6		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0


CX6PS,	ARG; CX6PER; MNTMP1
	KEYWRD
		TEXT 'PRIMARY ';  CX6P0
		TEXT 'SECONDARY'; CX6P1
		TEXT '0 ';        CX6P0
		TEXT '1 ';        CX6P1

CX6PER,	DISP;2717		/ REPORT ERROR.
	TEXT '!&PS MUST BE FOLLOWED BY &PRIMARY, &SECONDARY, 0 OR 1.'
	TRNSFR; CX5RD; DLMCX5


CX6P0,	SET; 0; CXPORT
	GOTO;   CX6CX3
CX6P1,	SET; 1; CXPORT
CX6CX3,	TRNSFR; CX3AGN; DLMCX3


CX6BT,	ARG;CX6BER;MNTMP1
	KEYWRD
		TEXT '.';  CX6OK1
		TEXT '1 '; CX6OK2
		GOTO;CX6BER

CX6OK1,	ARG;  CX6BER; MNTMP1
	CALL; CX6SU1; DLMCX6
	GOTO; CX6CX3

CX6OK2,	ARG;  CX6BER; MNTMP1		/ '1' ENTERED. '.' MUST FOLLOW.
	KEYWRD; TEXT '.'; CX6OK3	/ CHECK FOR '.'
	GOTO; CX6BER			/ ERROR IF NOT '1.'
CX6OK3,	ARG;  CX6BER; MNTMP1		/ ERROR IF NOT '1.' SOMETHING.
	CALL; CX6SU2; DLMCX6
	GOTO; CX6CX3


CX6SU1,	CLRV				/ CLEAR THE ACCUMULATOR
	KEYWRD
		TEXT '1 ';  BTIM01
		TEXT '2 ';  BTIM02
		TEXT '3 ';  BTIM03
		TEXT '4 ';  BTIM04
		TEXT '5 ';  BTIM05
		TEXT '6 ';  BTIM06
		TEXT '7 ';  BTIM07
		TEXT '8 ';  BTIM08
		TEXT '9 ';  BTIM09
	GOTO; CX6BER

CX6SU2,	CLRV				/ CLEAR THE ACCUMULATOR
	KEYWRD
		TEXT '0 '; BTIM10
		TEXT '1 '; BTIM11
		TEXT '2 '; BTIM12
		TEXT '3 '; BTIM13
		TEXT '4 '; BTIM14
		TEXT '5 '; BTIM15

CX6BER,	DISP;2516; TEXT '!&BT MAY BE .1,  .2,  .3,  .4,  .5,  .6,  .7,  .8,'	/C067
	DISP;2623; TEXT '.9, 1.0, 1.1, 1.2, 1.3, 1.4, OR 1.5'	/C067
	TRNSFR; CX5RD; DLMCX5


BTIM15,	INCV		/ SET TO 17
BTIM14,	INCV		/ SET TO 16
BTIM13,	INCV		/ SET TO 15
BTIM12,	INCV		/ SET TO 14
BTIM11,	INCV		/ SET TO 13
BTIM10,	INCV		/ SET TO 12
BTIM09,	INCV		/ SET TO 11
BTIM08,	INCV		/ SET TO 10
BTIM07,	INCV		/ SET TO 07
BTIM06,	INCV		/ SET TO 06
BTIM05,	INCV		/ SET TO 05
BTIM04,	INCV		/ SET TO 04
BTIM03,	INCV		/ SET TO 03
BTIM02,	INCV		/ SET TO 02
BTIM01,	INCV		/ SET TO 01
	STOV; CXBRTM; RETURN


XTRCX6=400-.

IFZERO .-401&4000 <?BADPAGE LENGTH>

/	THE LAST BLOCK OF THE COMMUNICATIONS SETTINGS MENU
RELOC
ADMCX7=.
X=DLMCX7			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

CX7B,	SET;  CX0BAU; CX7BAU
	SET;  CX7BB;  CX7TYP
	GOTO; CX7C
	IFNDEF CONDOR	<						/A105
CX7BA,	SET;  CX1BAU; CX7BAU
	SET;  CX7BBA; CX7TYP
	GOTO; CX7C
	>		/END NCONDOR					/A105
CX7PR,	SET;  CXPBAU; CX7BAU
	SET;  CX7BBP; CX7TYP
CX7C,
	ARG;CX7BER;MNTMP1
	CLRV			/INIT BAUD RATE INDEX TO 0		/A105
	KEYWRD
		TEXT '300 ';B7D5
		TEXT '1200 ';B7D7
		TEXT '2400 ';B7D12
		TEXT '4800 ';B7D14
		TEXT '9600 ';B7D16
	IFDEF	CONDOR	<	/DONE IF NOT DMII			/A105
	TSTBIT;	MNOPTN;	MNRX8X;	CX7T3E	/				/A105
	KEYWRD				/KEEP TESTING IF DMII		/A105
		>		/END CONDOR				/A105
		TEXT '50 ';B7D0
		TEXT '75 ';B7D1
		TEXT '110 ';B7D2
		TEXT '134 ';B7D3
		TEXT '150 ';B7D4
		TEXT '600 ';B7D6
		TEXT '1800 ';B7D10
		TEXT '2000 ';B7D11
		TEXT '3600 ';B7D13
		TEXT '7200 ';B7D15
		TEXT '19200 ';B7D17
CX7BER,	
	IFDEF	CONDOR	<						/A105
	TSTBIT;	MNOPTN;	MNRX8X;	CX7T3E >	/JUST IN CASE NULL INPUT /A105
	DISP;2510;TEXT '^A MAY BE 50, 75, 110, 134.5, 150, 300, 600, 1200, 1800,' /C067
CX7TYP,		XX	/CHANGED TO POINT TO STRING CONTAINING TYPE
	DISP;2615;TEXT '2000, 2400, 3600, 4800, 7200, 9600 OR 19200.'	/C067
	IFDEF CONDOR	<		/				/A105
	GOTO;	CX7TEX			/				/A105
CX7T3E,			/DISPLAY IV,III ALLOWED BAUD RATES		/A105
	DISP;	2510			/				/A105
	TEXT	'&B   MAY BE 300, 1200, 2400, 4800 OR 9600.'/		/A105
CX7TEX,		>		/END CONDOR				/A105
	TRNSFR;	CX5RD;	DLMCX5	/ERRONEOUS INPUT			/A105
B7D17,	INCV		/increment baud rate index			/A105
B7D16,	INCV								/A105
B7D15,	INCV								/A105
B7D14,	INCV								/A105
B7D13,	INCV								/A105
B7D12,	INCV								/A105
B7D11,	INCV								/A105
B7D10,	INCV								/A105
B7D7,	INCV								/A105
B7D6,	INCV								/A105
B7D5,	INCV								/A105
B7D4,	INCV								/A105
B7D3,	INCV								/A105
B7D2,	INCV								/A105
B7D1,	INCV								/A105
B7D0,									/A105
	STOV		/STORE COUNT					/A105
CX7BAU,	0			/into previously set var.		/A105
	TRNSFR; CX3AGN; DLMCX3
CX7BB,	"B&177;0
	 IFNDEF	CONDOR	<
CX7BBA,	"B&177;  "A&177;  0	>					/A105
CX7BBP,	"P&177;  "B&177;  0

XTRCX7=400-.


RELOC
ADMRLR=.
X=DLMRLR		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

/THIS MENU IS CALLED FROM WITHIN CX-MAGCRD
/
/	WHEN CALLED -
/		MNTMP1 = 1; DISPLAY THE MESSAGE FOR A DOCUMENT TO BE SENT
/		MNTMP1 .GE. 2; DISPLAY THE DOCUMENT TO BE RECEIVED MESSAGE.  WHEN
/			THIS VALUE IS .GT. 80, THIS WILL BE THE COLUMN THAT THE
/			RIGHT MARGINS IN.


	DISP;00;TEXT '!E   '
	CASE; MNTMP1
		 1; RLRRCV		

/ MESSAGE THAT GOES WITH SENDING A DOCUMENT

	DISP; 1305 ; TEXT '&THE OPERATOR RECEIVING THIS DOCUMENT NEEDS TO KNOW '
	DISP; -1; TEXT 'THE POSITIONS OF'

	GOTO; RLRCOM

/ MESSAGE FOR A DOCUMENT TO BE RECEIVED

RLRRCV,	DISP; 1305; TEXT '&PLEASE SET THE RULER FOR THE DOCUMENT YOU WILL '
	DISP; -1; TEXT 'RECEIVE.  &MARK '

/ COMMON DISPLAY

RLRCOM,	DISP; 1405; TEXT 'THE LEFT AND RIGHT MARGINS AND ANY TABS. '
	DISP; 1605; TEXT '&WHEN YOU ARE READY TO CONTINUE, PRESS !&RETURN.'


	RANGE; MNTMP1; 0; 120; RLRRMR		/IF THE RIGHT MARGIN IS BEYOND
						/COLUMN 80, SAY SO.
	GOTO; RLRBOT

RLRRMR,	DISP; 2105; TEXT '&THE RIGHT MARGIN IS AT COLUMN !D'; MNTMP1

RLRBOT,	DISP;2511;TEXT '1^S2^S3^S4^S5^S6^S7';RLRSP;RLRSP;RLRSP;RLRSP;RLRSP
			RLRSP
	DISP;-1;TEXT '^S8';RLRSP
	DISP;2600;TEXT '^S^S^S^S^S^S';RLR0;RLR0;RLR0;RLR0;RLR0;RLR0
	DISP;-1;TEXT '^S^S';RLR0;RLR0
	DISP;2700;TEXT ''
	RETURN

RLRSP,	TEXT '         '
RLR0,	TEXT '....:....0'

XTRRLR=400-.

IFZERO .-401&4000 <?BADPAGE LENGTH>

RELOC
ADMMGS=.
X=DLMMGS		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

/ MAG CARD DOCUMENT TRANSMISSION OPTION MENUS
/	- SEND A DOCUMENT
/
/ WHEN DONE -
/	MNTMP1	RETURNED VALUE
/		2 - GOLD-M TYPED
/		1 - SEND ONLY INDEX CARRIAGE RETURNS OVER THE LINE
/		0 - SEND CARRIAGE RETURNS AS IS (HARD AND SOFT)
/

	DISP; 00; TEXT '!E   '

	DISP; 1005; TEXT '&WHAT TYPE OF CARRIAGE RETURNS WOULD YOU LIKE IN THE '
	DISP; -1; TEXT 'DOCUMENT BEING SENT?'
	DISP; 1310; TEXT '&I = &END ALL LINES WITH INDEX CARRIAGE RETURNS'
	DISP; 1510; TEXT '&N = &END ALL LINES WITH CARRIAGE RETURNS LIKE THOSE '
	DISP; -1; TEXT 'IN THE DOCUMENT'



	MXDISP;2120;X03TLR;DLMX03 / TYPE THE LETTER AND PRESS RETURN
	MXDISP;2320;X03GMM;DLMX03 / OR PRESS GOLD MENU TO RECALL THE MENU

MGSRD,	READ; MNTMP1; MGSERR

	ARG; MGSRD; MNTMP1

	SET; 0; MNTMP1
	KEYWRD
		TEXT 'I '; MGSNOR
		TEXT 'N '; MGSRTN

	CALL; CR1NM; DLMCR1
	GOTO; MGSRD

MGSNOR,	SET; 1; MNTMP1
MGSRTN,	RETURN


MGSERR,	CASE;MNSYSA							/M080
		 EDMENU&3777; MGSMM
	DISP; 2700; TEXT '^A'; MGSBEL
	GOTO; MGSRD

MGSMM,	SET; 2; MNTMP1
	RETURN

MGSBEL,	BELL; 0

XTRMGS=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>


RELOC
ADMMGR=.
X=DLMMGR		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

/ MAG CARD DOCUMENT TRANSMISSION OPTION MENUS
/	- RECEIVE AQ DOCUMENT
/
/ WHEN DONE -
/	MNTMP1	RETURNED VALUE
/		2 - GOLD-M TYPED
/		1 - TRANSFORM CARRIAGE RETURNS TO HARD AND SOFT CARRIAGE RETURNS
/		0 - RECORD THE DOCUMENT VERBATIM
/

	DISP; 00; TEXT '!E   '

	DISP; 1005; TEXT '&HOW WOULD YOU LIKE TO RECORD THE DOCUMENT BEING '
	DISP; -1; TEXT 'RECEIVED?'
	DISP; 1310; TEXT '&A = &ALTER CARRIAGE RETURNS TO MAKE THE DOCUMENT '
	DISP; -1; TEXT 'EASIER TO EDIT'
	DISP; 1510; TEXT '&R = &RECORD CARRIAGE RETURNS AS RECEIVED'


	MXDISP;2120;X03TLR;DLMX03 / TYPE THE LETTER AND PRESS RETURN
	MXDISP;2320;X03GMM;DLMX03 / OR PRESS GOLD MENU TO RECALL THE MENU

MGRRD,	READ; MNTMP1; MGRERR

	ARG; MGRRD; MNTMP1
	SET; 0; MNTMP1
	KEYWRD
		TEXT 'A '; MGRALT
		TEXT 'R '; MGRRTN

	CALL; CR1NM; DLMCR1
	GOTO; MGRRD

MGRALT,	SET; 1; MNTMP1
MGRRTN,	RETURN


MGRERR,	CASE;MNSYSA							/M080
		 EDMENU&3777; MGRMM
	DISP; 2700; TEXT '^A'; MGRBEL
	GOTO; MGRRD

MGRMM,	SET; 2; MNTMP1
	RETURN

MGRBEL,	BELL; 0

/ERROR MESSAGE FROM CX1 MENU - HERE TO MAKE ROOM.			/M119
MGRNOH,	SET;MGRMES;MGRTXT
/ ERROR MESSAGE - CANT BOTH READ AND WRITE
MGRONE,	DISP; 0000; TEXT '!E!P^S'
		2205
MGRTXT,		MGRMS2
	TRNSFR; CX1RT; DLMCX1
MGRMES,	TEXT '&ONE OPTION MUST INCLUDE THE HOST.'
MGRMS2,	TEXT '&CANNOT BOTH SEND AND RECEIVE A DOCUMENT SIMULTANEOUSLY.'	/A105

XTRMGR=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>


/ -------------------------
/ |ONE BLOCK OF SORT MENUS| ------ C  A  U  T  I  O  N  ------		/A004
/ -------------------------

RELOC									/A004
ADMSR1=.
X=DLMSR1		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0									/A004

/-----------------------------------------------------------------------/a050
/ sort allows the user the option of REMOVING THE SYSTEM DISKETTE	/a050
/ therefore this is the only block of sort menu because...		/a050
/									/a050
/ ...IT IS ILLEGAL TO "CALL" OR "TRNSFR" OUT OF THIS BLOCK...		/a050
/ (because the SYSTEM DISKETTE might no longer be in DRIVE 0)		/a050
/-----------------------------------------------------------------------/a050
/									/a050
SR1S,
/ .................................................
/ enter here from WPSTPR with AC determining action			/A004
/ .................................................
/
/ "MNTMP4" - how to ENTER (PROCESS) menu:				/A004
/
/    0 = READ RESPONSE TO SPEC, LIST AND RESULT PROMPTS			/A004
/    1 = PROCESS RESPONSE TO "TAO" PROMPT				/A004
/    2 = PROCESS RESPONSE TO "GO" PROMPT				/A004
/
/ "MNTMP3" - how to EXIT menu:						/A004
/
/    0 "GOLD" KEY							/A004
/    1 NOT GOLD KEY							/A004
/   -1 NON-EXTISTENT DOC OR INVALID RESPONSE TO "TOA" OR "GO" PROMPTS	/A004
/
/ "MNTMP1" - CONTAINS THE USER INPUT:					/A004
/
/	   - TOKEN IS EITHER DRIVE AND DOC NUMBER WITH DOC PROMPTS, 	/A004
/	   - (MNTMP1 token not applicable for "GO" prompt),		/A004
/	   - OR WITH "TOA" PROMPT:	"TOP" = 0			/A004
/					"BOT" = 1			/A004
/					"OVERWRITE" = 3			/A004
/
	SET;	1;	MNTMP3	/ default to (O.K.) "not gold key exit"	/A004
/
/ read and store user input in "MNTMP1"					/A004
/
SR1RD,	READ;	MNTMP1;	SR1RE	/ GOTO "SR1RE" IF INPUT IS "GOLD" KEY	/A004
	CASE;	MNTMP4		/ test "TYPE OF PROCESS" flag		/A004
		1;	SR1AR	/ if (MNTMP4)=1 process test for "TAO"	/A004
		2;	SR1AR	/ if (MNTMP4)=2 process test for "GO"
/
/ fall through case (0) to read user input in response			/A004
/ to "specification", "list" and "result" prompts			/A004
/
/ goto "SR1RD" when there was no input string typed in (read again),	/a004
/ goto "SR1ND" when string is not a name of an existing file		/A004
/
	FILNAM;	SR1RD;	SR1ND	/ process user response for a FILE NAME	/A004
SR1RT,	RETURN			/ O.K. EXIT "ADMSR1"

/ ........................................
/ came here because "GOLD" key was pressed
/ ........................................
/
SR1RE,	SET;	0;	MNTMP3	/
	RETURN			/ ERROR EXIT
/
/ .....................................................
/ came here because the document name typed by the user
/ is not the name of an existing file
/ .....................................................
/
SR1ND,	SET;	-1;	MNTMP3	/ SET TO -1				 /A004
	RETURN			/ ERROR EXIT				 /A004
/
/ ..........................
/ came here to process "TBO"						/M058
/ ..........................
/
/ goto "SR1RD" if no input (token) from user, or
/ save the input within "MNTMP1" and test for "T", "B", "O"		/M058
/
SR1AR,	ARG;	SR1RD;	MNTMP1	/ read user input (save in mntmp1)	/A004
	CASE;	MNTMP4		/ TEST PROCESS FLAG
		2;	SR1GO	/ process user response to "GO" prompt	/A004
/
/ fall thru cause mntmp4=0 to process user response to "TBO" prompt	/M058
/
	KEYWRD			/ user input should be "T", "B", "O"	/M058
	  TEXT 'T ';	SR1TOP	/ user typed "T" (for TOP)		/A004
	  TEXT 'B ';	SR1BOT	/ user typed "B" (for BOTTOM)		/M058
	  TEXT 'O ';	SR1OVR	/ user typed "O" (for OVERWRITE)	/A004
	GOTO;	SR1ND		/ ERROR - user typed none of the above	/A004
/ .................................................................
/ came here while processing "TBO" because user typed "T" (for TOP) 	/M058
/ .................................................................
SR1TOP,	SET;	0;	MNTMP1	/					/A004
	RETURN			/ EXIT					/A004
/ .................................................................
/ came here while processing "TBO" because user typed "B" (for BOTTOM) 	/M058
/ .................................................................
SR1BOT,	SET;	1;	MNTMP1	/					/A004
	RETURN			/ EXIT					/A004
/ .......................................................................
/ came here while processing "TBO" because user typed "O" (for OVERWRITE)M058
/ .......................................................................
SR1OVR,	SET;	3;	MNTMP1	/
	RETURN			/ EXIT
/ .................................................
/ came here to process user response to "GO" prompt
/ .................................................
SR1GO,	KEYWRD			/
	  TEXT 'GO '; SR1OK	/
	GOTO;	SR1ND		/ error - user didn't type "GO"		/A004
SR1OK,	RETURN			/ o.k. exit (user typed "GO")
/ ................................................
/ came here to process a test of the printer queue
/ ................................................


XTRSR1=400-.

IFZERO .-401&4000 <?BADPAGE LENGTH>					/A004


RELOC
ADMSR2=.
/ X=DLMSR2		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0									/A004
/SORT MENUS 								/A004

XTRSR2=400-.

IFZERO .-401&4000 <?BADPAGE LENGTH>					/A004

/GLOBAL SEARCH AND REPLACE MENU	PHA 5-MAY-81				/A006
	RELOC								/A006
ADMGS1=.
X=DLMGS1		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC	0							/A006

GS1,	CALL;GS999;DLMGS1	/DISPLAY MENU HEADER			/A006

/- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/ 	TMP2=0 	NO PREVIOUS GS HAS BEEN PERFORMED,			/A006
/		PROMPT FOR INITIAL SEARCH STRING.			/A006
/	TMP2=1	ENTER FOR SEARCH PROMPT WHERE A PREVIOUS 		/A006
/		GS HAS BEEN PERFORMED.					/A006
/	TMP2=2	ENTER TO PROMPT FOR A REPLACEMENT STRING.		/A006
/- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
	CASE;MNTMP2							/A006
		1;-1-GS100;DLMGS3					/A006
		2;-1-GS20;DLMGS2					/A006


/- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/  If TMP2 = 0.  No previous GS performed by user.
/
/  Display Message, return to get argument.
/- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
GS10,	DISP;1605;TEXT '&TYPE THE WORD OR PHRASE TO BE !&SEARCHED, '
	DISP;-1;TEXT 'THEN PRESS !&ADVANCE'
	DISP;2005;TEXT '!&OR JUST &PRESS !&ADVANCE TO RESUME EDITING'
	DISP;2205;TEXT '!&OR &PRESS &GOLD !&MENU TO RECALL THE &EDITOR &MENU.'
	DISP;-2700;TEXT''
	SET;2;MNTMP2		/Set Return Address
	RETURN

/- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/  Display Major Header in GS.
/- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
GS999,	DISP;0;TEXT '!E-- !&GLOBAL !&SEARCH !&MENU --'			/A006
	RETURN								/A006

IFZERO	.-401&4000	<?BADBBLKLENGTH>				/A006


/GLOBAL SEARCH AND REPLACE MENU CONTINUED

	RELOC								/A006
	ADMGS2=.							/A006
	RELOC	0							/A006

/- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/  If TMP2 = 1.  If there is a previous GS call by user.
/- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
GS20,	CALL;GS999;DLMGS1	/DISPLAY MENU HEADER			/A006

GS25,	DISP;1405;TEXT '&TYPE THE !&REPLACEMENT WORD OR PHRASE, '
	DISP;-1;TEXT 'THEN PRESS !&ADVANCE,'				/M008
	DISP;1605;TEXT '!&OR JUST &PRESS !&ADVANCE TO REMOVE (DELETE) THE '
	DISP;-1;TEXT 'SEARCHED PHRASE IN TEXT,'				/A006
	DISP;2005;TEXT '!&OR &PRESS THE !&PASTE KEY TO USE THE CURRENT '
	DISP;-1;TEXT 'CONTENTS'						/A006
	DISP;2110;TEXT 'OF THE PASTE AREA AS THE REPLACEMENT PHRASE,'	/M013
	DISP;2305
	TEXT '!&OR &PRESS &GOLD !&MENU TO RECALL THE &EDITOR &MENU.'
	DISP;-2700;TEXT''
GS30,	SET;1;MNTMP2	/SET UP FOR RE-ENTER NEXT TIME AROUND		/A006
	RETURN		/RETURN TO THE EDITOR TO START THE GLOBAL SEARCH/A006

	IFZERO  .-401&4000	<?BADBBLKLENGTH>			/A006

/GLOBAL SEARCH AND REPLACE MENU CONTINUED

	RELOC
	ADMGS3=.							/A006
	RELOC	0

/- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
/THE FOLLOWING CODE IS EXECUTED IF THERE HAS BEEN A PREVIOUS 		/A006
/GS OPERATION BY THE USER.....						/A006
/- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
GS100,	CALL;GS999;DLMGS1	/DISPLAY MENU HEADER			/A006
DISP;1405;TEXT '&TYPE THE WORD OR PHRASE TO BE !&SEARCHED, THEN PRESS !&ADVANCE'
	DISP;1605;TEXT 'OR JUST PRESS !&ADVANCE TO CONTINUE THE PREVIOUS '
	DISP;-1;TEXT 'SEARCH'	/D110 TO THE END OF THE DOCUMENT'	/A006
	DISP;2005;TEXT '!&OR &PRESS &GOLD !&MENU TO RECALL THE EDITOR MENU.'/A006
	DISP;-2700;TEXT''
	SET;2;MNTMP2	/ELSE,SET FLAG TO REQUEST REPLACEMENT STRING.	/A006
	RETURN		/RETURN TO EDITOR TO SAVE SEARCH STRING.	/A006

IFZERO .-401&4000 <?BADBBLKLENGTH>					/A006

RELOC
XXXXXX,		/END OF MENUES