/	MM1 - FIRST PART OF THE MENU DISPLAYS
/196	KMD	14-Sep-85	Stop print screen on spell, backup, copy
/195	Mart	02-aug-85	Add convert utility
/194	Mart	22-jul-85	Allow copy file on same drive DM III
/193	EMcD	13-Jul-85	Change Start up display for FAO (conditional)
/192	EMcD	04-Jul-85	Stop PRint while Print screen active
/191	EMcD	22-Apr-85	Remove Pound Currency option
/190	RCME	27-MAR-85	Insert % operator for bold options
/
/------------------ All below refer to V2.0 and earlier --------------------
/
/189	HLP	05-DEC-84	Fix bad msg always insert front sheet
/				 due to MNTMP7 confusion
/				Fix WPSV2-59 again!
/188	HLP	23-OCT-84	Fix WPSV2-335 RL bad name problem
/187	WCE	19-OCT-84	Fix to incorrect DATE problem
/186	DFB	19-OCT-84	Fix to graphics message(bug 260)
/185	DFB	12-OCT-84	Fix when loading GRAPHICS(utility) don't allow
/				......graphics on device 0
/184	HLP	09-OCT-84	Add EO to 2nd page of print menu (WPSV2-261)
/183	HLP	07-OCT-84	Fix SL from Stop Print Menu (WPSV2-192)
/182	DFB	20-SEP-84	Fix restart from F cmnd for non winnie
/181	ah	07-SEP-84	FIX EDITS 175,177
/180	DFB	06-SEP-84	Fix to graphics message
/179	WCE	20-AUG-84	CHANGES FOR AUTODIAL DOCUNEMT FILE NUMBER
/178	WCE	16-AUG-84	DELETED REFFERENCRS TO MNUSER
/177	AH	15-AUG-84	ADD VERIFY DISKETTE MESSAGE TO "MC-B" COMMAND
/176	WCE	14-AUG-84	CHANGES FOR RD MENU ADDITIONS
/175	AH	14-AUG-84	CHANGE TEXT LINE FOR "MC-S" COMMAND
/174	WCE	14-AUG-84	CHANGE TO UNBUNDLING CODE FOR DECSPELL
/173	HLP	08-AUG-84	SE Odd  and Even Support
/172	WJY	03-AUG-84	Update user dictionary support
/171	HLP	12-JUL-84	Fix N at PRINTER NOT IN USE bug WPSV2-59
/170	HLP	10-JUL-84	R1 and R2 may not be the same bug WPSV2-41
/169	WJY	10-JUL-84	Fix load personal dictionary bugs
/168	HLP	09-JUL-84	Change HOST,HPRT to CHST,CPTR in DD settings
/167	JAC	29-JUN-84	100 UDK INTEGRATION
/166	HLP	29-JUN-84	Install GDH Fix for New Page problems
/165	WCE	13-JUN-84	ADDED MULTIPLE DRIVES FOR ACTIVATE FEATURES
/164	HLP	24-MAY-84	Changing DD HOST to HPRT
/				DD HOST now for a real HOST
/163	WCE	13-MAY-84	Changes for British date and currency symbol
/162	EJL	08-MAY-84	Set DMII into level 2 firmware
/161	DFB	24-APR-84	Don't allow device 0 as dest. on backup
/				....  when booting from hard disk
/160	AH	10-APR-84	MODIFY WINCHESTER (HARD DISK)
/159	SBB	09-APR-84	Fixes to 156 (if no comm active)
/158	WJY	06-APR-84	Unbundle the Spelling Corrector
/157	TCW	28-MAR-84	Add PHONE capability & moved APU absent message
/156	SBB	28-MAR-84	Added 4th Main Menu screen
/155	SBB	23-MAR-84	Post Processor/footnoting menus
/154	DFB	08-MAR-84	Fix volume/diskette error msges
/153	DFB	01-MAR-84	Fix for VER 002. VOL/RX drive message changes
/152	DFB	20-FEB-84	Fix to fs,fd, ADMCPM to use TMP6 stead of TMP5
/151	WJY	17-FEB-84	More DM I compatability.
/150	DFB	07-FEB-84	Fix to cpydsk screens for winni ver. 2.0.0
/149	WJY	23-JAN-84	Make compatible with DM I.
/------DECMATE II VERSION 1.5 SUBMISSION -------------------
/148	WCE	19-JAN-84	Modified feature unbundling menus
/147	WJY	17-JAN-84	Moved ADMCPM block from end of CPYDSK
/146	DFB	17-JAN-84	Fix winnie maint. menu not ret to MM on cr.
/145	EH	10-JAN-84	Reset to Main Menu page 0 on Gold Menu
/144	GDH	16-DEC-83	Spelling prompt menu changes.
/143	SBB	30-NOV-83	Added ADM125 block for graphics option
/142	HLP	28-NOV-83	Add mismatched controls error message
/				(detected when print)
/141	GDH	22-NOV-83	Changed 'LU' command to 'PD'.
/140	DFB	14-NOV-83	Fix to Finnish cmnd w/o winnie
/139	GDH	14-NOV-83	Rewrote ADMSPL for better instructions re:DECSPEL
/138	HLP	13-NOV-83	Change SE YES message into messages for
/				insert front, rear or envelope
/137	TCW	08-NOV-83	MOVED "FINISHED USING SYSTEM" TEXT FROM WP2CMF
/				AND ADDED CK FOR WINCHESTER DRIVE
/136	GDH	07-NOV-83	Changed main menu SC description.
/135	DFB	03-NOV-83	Fix to Finnish cmnd w/o winnie
/134	GDH	28-OCT-83	Text changes to ADMSPL per documentation request.
/133	HLP	26-OCT-83	More changes for SL from Stop Menu
/				Make MM1S the same as MM1OK
/132	GDH	26-OCT-83	Changes to spell menu (ADMSPL).
/131	EH	25-OCT-83	Added support for LU (load user dictionary),
/				and check for APU board after SC or LU reqst.
/130	DFB	21-OCT-83	Fix to call winutl to dismount volumes
/				if WINNIE on line. And master menu or rx50 boot
/				depending on firmware in Panel Mem.
/129	WCE	17-OCT-83	Changes to UNBUNDLING to make software bundled
/				Changes to DATE & TIME menu to force field test
/				users to enter a valid (current) date.
/				Changes to Winchester menu to add menu headings
/128	HLP	17-OCT-83	Add check for documents in queue before SL
/				Add check for no docs in queue before RL
/				Make R with no documents say so insd no mean
/				Rewrite MM M logic to save space
/				Change SE ALT to SE LETTERHEAD
/127	HLP	29-SEP-83	ADD SE ENV TO PRINT MENU
/126	TCW	12-SEP-83	ADDITION OF WINCHESTER PHRASES FOR V1.5
/125	GDH	14-SEP-83	Changed Spelling Corrector CMND at ED1SEX
/				Added ADMSPL Spelling Corrector menu support.
/124	WCE	18-AUG-83	Changed PRQ??? labels to MNQ??? for prefix file
/123	WCE	17-AUG-83	Added conditionals for STATUS display in editor
/122	EPS	08-AUG-83	FINISHED EDIT 119
/121	GDH	04-AUG-83	Added "SPELLING CORRECTOR" Main Menu &
/				 "ACTIVATION MENU" options.
/120	GDH	02-AUG-83	Change LOGON to LOGON TO HOST SYSTEM msg.
/119	EPS	01-AUG-83	PUT BACK IN SOMETHING THAT SHOULDN'T HAVE
/				BEEN DELETED BY 115
/118	WCE	21-JUL-83	Corrected incorrect GOTO menu line in DU3
/117	WCE	07-JUL-83	Replaced occurances of SYS+value in case
/				statements with standard menu definitions
/116	DFB	10-JUN-83	Fix bug to allow access to drives 4,5
/115	WCE	27-MAY-83	Fix copy document - "one" message
/114	DFB	25-MAY-83	Fix bug to perform copy to multi drive system
/113	HLP	24-MAY-83	Change communicatins error msg to printer error
/112	GDH	19-MAY-83	Added LOGON menu option.
/111	WCE	16-MAY-83	CHANGE ERROR MESSAGES FOR EXPANDED 4095 RANGE
/110	HLP	13-MAY-83	Add message for communications error in PS menu
/109	GDH	13-MAY-83	Commonize filename prompt for "EDIT", "PRINT",
/				"DELETE", and now, CX/DX SEND.
/108	GDH	15-APR-83	Implemented AX/DX/CX easylink interface.
/107	HLP	29-APR-83	Remove hyphen from "half-lines"
/106	DFB	25-APR-83	Condor fixes mc-c drive selection
/105	HLP	22-APR-83	Add print menu error message (ADMPRD)
/104	WCE	21-APR-83	Correct printer error messages for "PS" & "EX"
/103	DFB	20-APR-83	Update to be compat. with DMII
/102	HLP	05-APR-83	Make List queue menu accept only return
/101	HLP	21-MAR-83	Make Error on Drive 0 a normal error
/100	DFB	01-FEB-83	Set end(>) ifdef condor conditional
/099	HLP	07-JAN-83	Delete auto-abort if PRSTTS is 0
/098	gjp	30-dec-82	fix "DRIVE NUMBERS MUST BE {867 to 2" bug
/097	HLP	30-DEC-82	Lock out resume from main menu if que empty
/096	HLP	30-DEC-82	Changes for resume non existent printer
/095	HLP	21-DEC-82	Fix problem with N not being erased if L after
/				  user stop
/094	WCE	16-DEC-82	Correct problem with illegal date & time entry
/093	HLP	14-DEC-82	Compress the holey stop menus
/092	HLP	12-DEC-82	Change LQP01 CANCEL error code to 25
/091	AIB	10-DEC-82	conditionalize "Rubout key" messages
/090	HLP	01-DEC-82	Restructure PS menus for selective options
/089	GJP	30-NOV-82	Change so that MNTMP1 is not clobbered
/				when user hits command key improperly
/088	HLP	30-NOV-82	Change nor to normal in darkness setting DA
/087	HLP	28-NOV-82	Display only S (abort) option when enter
/				stop menu with printer locked
/086	HLP	24-NOV-82	Change code sent to stop overlay to abort
/				instead of resume when printer is not in use
/085	mjs	18-nov-82	continuation of "081" (so i forgot a couple)
/084	EPS	18-NOV-82	FIX SCREENS FOR DECMATE II
/083	EPS	17-NOV-82	FIX PROBLEM WITH AX/DX AND HARDWARE PRESENT
/082	HLP	11-NOV-82	Gold or function keys hang system at FORMAT
/081	mjs	11-nov-82	Change references from "Spelling Error Detector"
/				to "External Feature Option" (generic reference)
/080	DFB	11-NOV-82	Change illegal drive printout
/079	HLP	29-OCT-82	Delete spaces in print stop menu
/078	HLP	28-OCT-82	Made Minimum Drive number=4 on FS,FD
/077	HLP	27-OCT-82	Deleted "Format in Progress Message"
/076	AIB	21-OCT-82	corrected icon <X] in "Rubout key..."
/075	GDH	20-OCT-82	Print menu changes re: printer validation
/				 (primarily for list processing).
/074	HLP	18-OCT-82	Eliminate Redundant conditionals on MDU2
/				Rewrote DU pages having to do with B,S, and D
/				Restored MNTMP1 after calling CR1BR on these
/					occasions
/				Made Maintenance Menu re-enterable by using
/					CLRRTN clear pending return function
/				Made DU menus check drive numbers and produce
/				  error messages in CPYDSK if B between different
/				  size media is attempted, or S of an 8 inch drive
/073	HLP	16-OCT-82	Changed error code for paused in PRTID from
/				  15 to 11
/072	AIB	15-OCT-82	marked Rubout key msg with icon <X]
/071	EH	12-OCT-82	Clear error msg in activate feature menu
/070	HLP	05-OCT-82	Changed code for Change doc dest to 10 from 24
/069	EPS	29-SEP-82	CHANGED DEVELOPMENT SWITCH TO ALLOW 1 CHAR COMMANDS
/068	mjs	27-sep-82	mask should have been "EDSETUP&3777" at 'mm0re'
/067	mjs	23-sep-82	added 'case' test for "EDSETUP" at 'mm0re'
/066	EPS	23-SEP-82	CHANGED DEVELOPMENT SWITCH TO ALLOW TURNOFF
/065	DFB	20-SEP-82	Add C (and other changes) to stop printer menu
/064	AIB	20-SEP-82	more cosmetic wording changes in menus
/063	EJL	17-SEP-82	Fix return from error msg in Activate
/
/062	HLP	15-SEP-82	Use some substrings to make space in PS menus
/				Use new menu commands CLRV,INCV,STOV in PS menus
/061	EH	13-SEP-82	Fix return from error msg in CI option
/060	AIB	 2-SEP-82	changed RUB CHAR and RUB WORD to Rubout key
/059	mjs	31-aug-82	bug fix--prevent sorting if documents are
/				waiting to print.
/058	AIB	30-AUG-82	Wording changes in some menus
/057	HLP	30-AUG-82	Added "The wrong printer is connected."
/056	AIB	23-AUG-82	Wording changes in some menus
/055	EPS	29-JUN-82	ADDED DEVEL SWITCH FOR ENABLE FLOPPIES
/054	GJP	05-MAY-1982	MAKE CHANGES FOR DECMATE II
/053	GJP	13-APR-82	CHNGE TITLE TO 'DECmate II'
/052	GDH	25-MAR-82	Allow CX without hardware.
/051	GDH	04-MAR-82	Added filename checking to E,C,P,D,SL,RL
/050	WCE	26-FEB-82	REMOVED UNNECESSARY LOCK CODE FROM MENU BLOCK
/049	GJP	16-FEB-82	FIXED BUG WHERE DRIVE 2 OR 3 BRING DOWN THE
/				SYSTEM ON A TWO-DRIVE SYSTEM DURING COPY
/048	WCE	27-JAN-82	REMOVED SPELLING ERROR DETECTION FROM MAIN MENU
/047	WCE	22-JAN-82	FIXED PROBLEM WITH CI ABORTING AFTER PRINT STOP
/046	DFB	01-JAN-82	CONDITIONAL (STORECPY=1) TO EXCLUDE MC "B, S"
/045	JRF	28-DEC-81	FIX BUG REPORT #DM-144
/044	DFB/GDH	23-DEC-81	FIX TO CI  WHEN DEVICE # NOT SPECCIFIED
/043	PHA	14-DEC-81	DISALLOW 0 COPIES TO BE PRINTED
/042	GDH	25-NOV-81	COMMENTED OUT ENHANCEMENTS 038,039 DUE TO
/				DOCUMENTATION CONSIDERATIONS.
/041	AJF	24-NOV-81	FIXED COVER OPENED/OUT OF PAPER PROMPTS
/040	GDH	17-NOV-81	BUG FIX TO DU1/2 TO NOT ERASE SCREEN ON ERROR.
/039	GDH	12-NOV-81	DATE/TIME MENU TO DISPLAY SYSTEM TYPE.
/038	GDH	10-NOV-81	MODIFIED MC MENU TO NOT DISPLAY FD/FS
/				FOR RX01
/037	GDH	30-OCT-81	FIXED EDITOR CLEAN UP ON FINISH ENTRY POINT.
/036	GJP	29-OCT-81	ADDED MENU DISPLAYS FOR NEW UTILITY PROGRAMS.
/035	GDH	28-OCT-81	ADDED STOP PRINTER MENU MESSAGES FOR STOP
/				CODES 20-23.
/034	AJF	26-OCT-81	ADDED MNQSP WORD IN SYSTEM VALUES BLOCK AND
/				CHANGED SHADOW PRINT AND DARK CODE ACCORDINGLY
/033	GDH	26-OCT-81	FIXED PRINT MENU ERROR MESSAGE WHEN INCORRECT
/				 OPTION SELECTED.
/				DISPLAYED SHADOW PRINT OPTION ON PRINT MENU.
/				CHANGED PRINT MENU TO DISPLAY "PRINTER MARGIN"
/				 INSTEAD OF "LEFT MARGIN".
/032	WCE	24-OCT-81	REMOVED SOFTWARE DEVELOPMENT CONDITIONAL SWITCH
/031	GDH	09-OCT-81	ELIMINATED UNNECESSARY LOCK CODE.
/				ALSO ELIMINATED INDEX LOCKING CODE.
/				(THE R/O WAS FOR COPY & THE ALTER WAS FOR
/				 DOC CREATE WHICH ISN'T NEEDED ANY MORE!)
/030	AJF	05-OCT-81	MAKE PRINTER LOCK JUST BEFORE PRINT
/028	EH	28-SEP-81	CHANGED CASE AT MM0RE SO THAT APPROPRIATE
/				ERROR MESSAGE WILL APPEAR IF TOO MANY CHARS.
/				ENTERED TO MAIN MENU
/027	GDH	23-SEP-81	ALLOW SO COMMAND REGARDLESS OF COMMUNICATION
/				PRESENTS.
/026	WCE	18-SEP-81	MODIFIED MENU TEXT TO AGREE WITH FUN. SPEC.
/025	GR	16-SEP-81	CHANGED EXAMPLE IN DATE/TIME MENU TO 1982
/024	EH	27-AUG-81	CHANGES TO CLEAR PASTE BUFFER UPON FINISHING
/				USING THE SYSTEM
/023	GR	12-AUG-81	ADDED MATH INITIALIZING CHANGES
/022	WCE	10-AUG-81	FIXED DATE & TIME BUG (ALLOW DASH FOR DATE)
/021	WCE	19-JUL-81	INSTALLED NEW UNBUNDLING CODE FOR
/				MATH AND SPELLING ERROR DETECTION
/020	WCE	11-JUL-81	MADE ROOM FOR DOUBLE DENSITY MENU'S
/				REMOVED MENU CODE THAT IS NOT NEEDED FOR 278
/				REARRANGED MENU FIELD LAYOUT
/019	TT	7-JULY-81	DELETED SUPERFLUOUS CONDITIONALS
/018	RS	3-JUNE-81	ADDED BIT HANDLING FOR SP/DA MNQOVP
/017	RS	"		ADDED SP SELECT FROM MENU2
/016	RS	"		ADDED SHADOW PRINT BIT FOR DARK    MENU2
/015	RS	"		ADDED SHADOW PRINT SETTING DISPLAY MENU2

/013	AJF	11-MAY-81	CHANGED LEFT DRIVE TO DRIVE 0 AND RIGHT DRIVE
/				TO DRIVE 1
/012	JM	27-MAR-81	CHANGED CONDITIONALS USED IN MOD 011 FROM
/				WS80 TO WS82 SINCE WS80 IS DEFINED FOR THE
/				278 AS WELL AS THE 80
/011	JM	25-MAR-81	CHANGES TO ALLOW PRINTING TO A SERIAL LQP
/				(LQP5) FOR THE WS80
/010	DIM	12-MAR-81	REMOVE SORT OPTION ON SCREEN OF WS78
/009	DIM	11-MAR-81	TEXT CHANGES FOR WS78 AND 'X' ADDED TO VERSION
/008	DAO	29-JAN-81	CHANGED DEFAULT MESSAGE IN UNRECOGNIZED SE
/				SETTING FOUND IN PRINT MENU
/007	DAO	22-DEC-80	CHANGED PRINTER "FATAL ERROR" MESSAGE TO
/				"PRINTER MALFUNCTION"
/006	DAO	13-DEC-80	CHANGED DOCUMENT DESTINATION STUFF IN THE
/				PRINTER MENU TO COINCIDE WITH TABLE OF RL
/				BASED POSSIBLE VALUES
/005	DAO	19-NOV-80	ADDED ERROR MESSAGES TO STOP PRINTER MENU
/				AND DELETED TEXT INVOLVED WITH FOREGROUND
/				PRINTING SINCE JOE ZACH'S NEW PRINTER DOESN'T
/				NEED IT
/004	WCE	28-OCT-80	MODIFICATIONS FOR UNBUNDLING OF OPTIONS
/003	DAO	20-OCT-80	CONDITIONALIZED ESCAPE SEQUENCES
/X3.5   DAO     11-SEP-80       MERGED 3.4 WITH JLZ'S X3.5
/002	DSS	10-JUL-80	MODIFIED FOR ENGLISH/FRENCH-CANADIAN
/001	GLT	23-JUN-80	MERGED 3.4 WITH FORIN SOURCES
/3.4	JLZ	14-MAY-80	REMOVED "WS81" AND "WS82"
/3.3	JLZ	23-APR-80	CHANGE TO 3.4
/QA3.5	LDB	19-APR-78	FIX MISC. BUGS
/QA3.4	LDB	17-APR-78	CHANGE PROPOTIONAL MESSAGE TO DEDICATED
/QA3.3	KEE	10-APR-78	FIX PRINT MENU 'PS' OPTION, CHANGE VERSION
/QA3.0	LDB	3-APR-78	CHANGE VER. AND ADD DOUBLE COLUMN 2 PRINT MENU
/III.D	MB	1-APR-78	ADD SYSTEM OPTION CMND CALLS
/III.D	KEE	28-MAR-78	ADD CHECKS FOR WRITES TO ALTERNATE AREA (WT78)
/				AND OTHER THINGS TO CHANGE THE FORM OF THE FILE-
/				NAME REPRESENTATION
/III.B	MB	21-MAR-78	PUT IN S1 AND S2 INTO THE PRINTER MENU
/III.B	MB	15-MAR-78	FIX THE DOUBLE RETURN PROBLEM IN DOC ERROR
/III.B	MB	13-MAR-78	ADD NEW AX/DX
/III.B	LDB	3/14/78		FIX SOME BUGS
/III.A	LDB	3/13/78		MERGE FROM WT78
/III.1	KEE	2/27/78 	CHANGES TO ADD WT'S 'TD' COMMAND
/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 THE 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 PART OF THE MENU ASSEMBLY CONTAINS THE MENU LEVEL STUFF  (THAT IS,
/ FOR THE MOST PART, THESE MENUS ARE CALLED FROM OTHER MENUS RATHER THAN FROM
/ PROGRAMS).
/
/ THE COMMON MENUS ARE ASSEMBLED **AND WRITTEN OUT** WITH THIS FILE  (WITH THE
/ OTHER PART, THEY ARE ASSEMBLED TO GET THE SYMBOL VALUES, BUT THEIR SPACE
/ IN CORE IS REUSED FOR THE OTHER MENUS.
/
/ NO MENU IN THIS GROUP SHOULD CALL ANOTHER MENU IN THE OTHER PART, WITH
/ THE FOLLOWING EXCEPTIONS -
/
/	'PP2ER', WHICH IS CALLED UNDER 'UNABLE TO CREATE' CONDITIONS.
/
/	THE COMMON MENUS
/

/*********************************************************************/A046
/
/STORECPY=1			/SURPRESS BACKUP COPY AND SYSTEM INIT	/A046
/				 TO PREVENT CREATING SYSTEM COPIES	/A046
TEST1=1				/ MASK VALUE FOR WINCHESTER		/A126
/
/************************************************************************/A046

/START UP MENU

	RELOC
	ADMSM0=.
	X=DLMSM0		/ INDICATE DISK BLOCK WHERE MENU IS LOADED
	RELOC 0

/*******************************************************************	/A179
/****								****	/A179
/****	THIS IS THE ENTRY POINT FOR WPCU2 CALLING THE RD MENU	****	/A179
/****								****	/A179
/****	    USE CAUTION WHEN MAKING CHANGES IN THIS AREA	****	/A179
/****								****	/A179
/*******************************************************************	/A179

SM0S,	TSTBIT;MNDSEP;-1;SM0SET	/ TEST SEPARATOR, IF CLEAR, SET TO SLASH

SM0S1,	TSTBIT;MNFMAT;MNFM0X!MNFM1X;SM0INI / CHECK FOR INITIAL STARTUP	/A163
SM0XIT,	CALL;CR1EEQ;DLMCR1		/ DONE, SET UP TERMINAL PRAMATERS
	TRNSFR;SM1S;DLMSM1		/ RETURN TO START UP MENU	/M179

SM0INI,	CALL;CR1EEQ;DLMCR1		/ SET UP TERMINAL PRAMATERS	/A163
SM0S2,	DISP;   0;TEXT '!E'
	DISP;   5;TEXT '![#3'		/ SELECT DOUBLE HEIGHT TOP CHARACTER
	MXDISP;-1;X01MAT;DLMX01		/ DECMATE
	MXDISP;-1;X01WPS;DLMX01		/ WORD PROCESSING SYSTEM

	DISP; 105;TEXT '![#4'		/ SELECT DOUBLE HEIGHT BOTTOM CHARACTER
	MXDISP;-1;X01MAT;DLMX01		/ DECMATE
	MXDISP;-1;X01WPS;DLMX01		/ WORD PROCESSING SYSTEM

	MXDISP; 331;X01DEC;DLMX01	/ DIGITAL EQUIPMENT CORPORATION

	DISP; 605;TEXT '&PLEASE SELECT THE FORMAT FOR YOUR SYSTEM'

	DISP;1112;TEXT '&A = '
	MXDISP;-1;X05DMY;DLMX05		/ Day/Month/Year
	MXDISP;-1;X05USD;DLMX05		/ with $ and American Dictionary

	DISP;1312;TEXT '&B = '
	MXDISP;-1;X05MDY;DLMX05		/ Month/Day/Year
	MXDISP;-1;X05USD;DLMX05		/ with $ and American Dictionary

	DISP;1512;TEXT '&C = '
	MXDISP;-1;X05YMD;DLMX05		/ Year/Month/Day
	MXDISP;-1;X05USD;DLMX05		/ with $ and American Dictionary

	DISP;1712;TEXT '&D = '
	MXDISP;-1;X05DMY;DLMX05		/ Day/Month/Year
	MXDISP;-1;X05UKD;DLMX05		/ with # and British Dictionary

	DISP;2112;TEXT '&E = '
	MXDISP;-1;X05MDY;DLMX05		/ Month/Day/Year
	MXDISP;-1;X05UKD;DLMX05		/ with # and British Dictionary


	DISP;2312;TEXT '&F = '
	MXDISP;-1;X05YMD;DLMX05		/ Year/Month/Day
	MXDISP;-1;X05UKD;DLMX05		/ with # and British Dictionary

	MXDISP;2605;X03TLR;DLMX03	/ TYPE THE LETTER AND PRESS RETURN.

	READ;MNTMP1;SM0RE		/ GET INPUT FROM USER
	ARG;SM0RE;MNTMP1		/ ERROR IF NOTHING TYPED
	KEYWRD				/ CHECK USER RESPONSE
		TEXT 'A ';SM0A		/ USER SELECTED US DMY
		TEXT 'B ';SM0B		/ USER SELECTED US MDY
		TEXT 'C ';SM0C		/ USER SELECTED US YMD
		TEXT 'D ';SM0D		/ USER SELECTED UK DMY
		TEXT 'E ';SM0E		/ USER SELECTED UK MDY
		TEXT 'F ';SM0F		/ USER SELECTED UK YMD
		TEXT 'SD ';SM0RE	/ DO NOT ALLOW SUBSETS OF "SDC"
		TEXT 'SDC ';SM0XIT	/ SKIP DATE FORMAT FOR SDC SYSTEM

SM0RE,	DISP;0;TEXT '!CG'		/ ERROR - RING THE BELL
	GOTO;SM0S2			/ GO REDISPLAY THE MENU

SM0A,	SET; 1;MNFMAT;GOTO;SM0XIT	/ SELECT AMERICAN DAY MONTH YEAR
SM0B,	SET; 2;MNFMAT;GOTO;SM0XIT	/ SELECT AMERICAN MONTH DAY YEAR
SM0C,	SET; 3;MNFMAT;GOTO;SM0XIT	/ SELECT AMERICAN YEAR MONTH DAY
SM0D,	SET;11;MNFMAT;GOTO;SM0XIT	/ SELECT BRITISH DAY MONTH YEAR	/M191
SM0E,	SET;12;MNFMAT;GOTO;SM0XIT	/ SELECT BRITISH MONTH DAY YEAR	/M191
SM0F,	SET;13;MNFMAT;GOTO;SM0XIT	/ SELECT BRITISH YEAR MONTH DAY	/M191

SM0SET,	SET;"/&77^100;MNDSEP		/ INITIALIZE THE DATE SEPARATOR
	GOTO;SM0S1			/ RETURN TO INLINE CODE

SM0CU2,	CMND;12;200;CIF CDF 20		/ CALL CU2 TO START UP RD MENU	/A179
	RETURN				/ TRANSFER TO CU2		/A179

XTRSM0=400-.

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

/D179	SM1S,	TRNSFR;SM0S;DLMSM0	/ CHECK IF INITIALIZATION IS NECESSARY
SM1S,	DISP;0;TEXT '!E-- !&DATE/!&TIME !&MENU --'			/M179
	MXDISP;0311;X01DEC;DLMX01	/ DIGITAL EQUIPMENT CORPORATION
	DISP;-1;TEXT ' !&WPS-8 '	/ WPS-8
	MXDISP;-1;X01WPS;DLMX01		/ WORD PROCESSING SYSTEM

					/ STANDARD SOFTWARE DISPLAY	/A032
	MXDISP;620;X01MAT;DLMX01	/ DECMATE

	IFDEF	FLDTST	<						/A004
	MXDISP;-1;X01FLD;DLMX01		/ FIELD TEST
			>		/ END IFDEF FLDTST		/A004

	MXDISP;-1;X01VER;DLMX01		/ SOFTWARE VERSION
	DISP;-1;TEXT '^A';SM1LST	/ DISPLAY THE VERSION NUMBER

	MXDISP;1020;X01IDV;DLMX01	/ INTERNAL DATA VERSION		/A176
	DISP;-1;TEXT '!D!D!D';MNTMP5;MNTMP6;MNTMP7 / VERSION NUMBER	/A176
	MXDISP;-1;X01NED;DLMX01		/ (NEED XXX OR HIGHER)		/A176

	MXDISP;1220;X01ROM;DLMX01	/ INTERNAL ROM VERSION		/A176
	DISP;-1;TEXT '!D&^S';MNTMP8;MNTMP9 / VERSION NUMBER		/A176

	MXDISP;1520;X01DAT;DLMX01 / PLEASE TYPE THE DATE AND TIME AS FOLLOWS:/M176

	COPY;MNFMAT;MNTMP1		/ PICK UP THE FORMAT WORD
	CLRBIT;7774;MNTMP1		/ MASK OFF THE DATE FORMAT BITS
	CASE;MNTMP1			/ GO TO THE PROPER DISPLAY
	   1;SM1B			/ 1 = DAY - MONTH - YEAR
	   2;SM1C			/ 2 = MONTH - DAY - YEAR
	   3;SM1D			/ 3 = YEAR - MONTH - DAY

SM1B,	DISP;1733;TEXT 'DD^SMM^SYY HH:MM';MNDSEP;MNDSEP			/M176
	DISP;2120;TEXT '&EXAMPLE:   !2D^S!2D^S!2D 09:25'		/M176
	SM1DY;MNDSEP;SM1MO;MNDSEP;SM1YR
	GOTO;SM1DSP			/ GO CONTINUE WITH THE DISPLAY

SM1C,	DISP;1733;TEXT 'MM^SDD^SYY HH:MM';MNDSEP;MNDSEP			/M176
	DISP;2120;TEXT '&EXAMPLE:   !2D^S!2D^S!2D 09:25'		/M176
	SM1MO;MNDSEP;SM1DY;MNDSEP;SM1YR
	GOTO;SM1DSP			/ GO CONTINUE WITH THE DISPLAY

SM1D,	DISP;1733;TEXT 'YY^SMM^SDD HH:MM';MNDSEP;MNDSEP			/M176
	DISP;2120;TEXT '&EXAMPLE:   !2D^S!2D^S!2D 09:25'		/M176
	SM1YR;MNDSEP;SM1MO;MNDSEP;SM1DY


SM1DSP,	MXDISP;2420;X01COR;DLMX01	/ CORRECT ERRORS BY PRESSING 	/A176

	IFDEF	CONDOR	<						/A091
	DISP;-1;TEXT 'THE &RUBOUT ^A KEY.';SM1BRK			/M176
			>		/ END IFDEF CONDOR		/A091

	IFNDEF	CONDOR	<						/A091
	DISP;-1;TEXT '!&RUB !&CHAR.'					/M176
			>		/ END IFNDEF CONDOR		/A091

	MXDISP;2520;X01DON;DLMX01	/ WHEN DONE, PRESS RETURN.	/M176
	DISP;2700;TEXT ''		/ PUT CURSOR ON BOTTOM LINE	/M176

	TRNSFR;SM2RD;DLMSM2		/ CONTINUE ON THE NEXT PAGE

SM1DY,	BLDDY				/ DAY SOFTWARE WAS BUILT	/A129
SM1MO,	BLDMO				/ MONTH SOFTWARE WAS BUILT	/A129
SM1YR,	BLDYR				/ YEAR SOFTWARE WAS BUILT	/A129

SM1BRK,	074;130; 135; 0						    	/M076

SM1LST,	SYSVER&177;".&177		/ SYSTEM VERSION NUMBER		/A004
	SYSBAS&177;".&177		/ SYSTEM BASE LEVEL NUMBER	/A004
	SYSREV&177			/ BASE LEVEL REVISION NUMBER	/A004
	IFDEF V30FAO <			/ FAO start up display		/A193	
	" &177;"(&177;"F&177;".&177;"A&177;".&177;"O&177;")&177		/A193
	>								/A193
	0								/M193

XTRSM1=400-.

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

RELOC
ADMSM2=.
X=DLMSM2			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

/ THIS MENU PAGE IS USED TO OBTAIN THE DATE AND TIME INFORMATION FROM THE
/ USER.  SINCE WE NOW SUPPORT THREE DATE FORMATS, D-M-Y, M-D-Y AND Y-M-D,
/ IT IS LESS DISRUPTIVE TO THE SYSTEM TO LET IT THINK THAT IT IS ALWAYS
/ DELAING WITH THE SAME FORMAT AND TO SWAP THE ACTUAL VALUES THAT THE USER
/ INPUTS INTO THE LOCATIONS THAT THE SYSTEM IS HAPPY WITH.  TO THAT END, WE
/ MAKE NO ASSUMPTIONS ABOUT THE NUMBERS THE USER ENTERES UNTIL WE SWAP THEM
/ INTO THE LOCATIONS THAT WE WANT THEM TO BE IN.  AT THAT TIME WE RANGE CHECK
/ THEM FOR VALIDITY AND REPORT THE ERROR IF THEY ARE WRONG.

/***************************************************************************
/****									****
/****				C A U T I O N				****
/****									****
/****	     DO NOT USE MNTMP5, MNTMP6, MNTMP7, MNTMP8, OR MNTMP9	****
/****	   THESE REGISTERS ARE SET BY WPCU2 FOR DATA VERSION NUMBERS	****
/****									****
/***************************************************************************

SM2RD,	READ;MNTMP1;SM2RE		/ GET INPUT FROM USER

	SET;0;SM2SEP			/ CLEAR SEPARATOR INDICATOR	/A163
/D179	SET;-1;MNDTDY			/ CLEAR DAY REGISTER		/M094
	SET;-1;MNDTHR			/ CLEAR HOUR REGISTER		/M094
	SET;0;MNDTMN			/ CLEAR MINUTE REGISTER		/M094

	ARG;SM2RTN;MNTMP1		/ GET FIRST ENTRY.		/M179
					/ RETURN IF NOTHING WAS TYPED	/M094

	NUMBER;MNTMP2;SM2BF		/ ERROR IF NOT NUMBER		/M163

	ARG;SM2BF;MNTMP1		/ GET SEPARATOR.  MUST BE VALID /M163
	KEYWRD
SM2SLA,		TEXT '/';SM2SDS		/ SLASH FOR DATE SEPARATOR	/M163
SM2DAS,		TEXT '-';SM2DDS		/ DASH FOR DATE SEPARATOR	/M163
SM2PER,		TEXT '.';SM2PDS		/ PERIOD FOR DATE SEPARATOR	/M163
		TEXT ':';SM2TYM		/ COLON FOR TIME SEPARATOR	/A022
		TEXT ';';SM2TYM		/ SEMICOLON FOR TIME SEPARATOR	/A022
	GOTO;SM2BF			/ NOT VALID DATE OR TIME FORMAT	/A022

SM2SDS,	COPY;SM2SLA;SM2SEP		/ USE SLASH FOR DATE SEPARATOR	/A163
	GOTO;SM2DAT			/ CONTINUE IN LINE		/A163

SM2DDS,	COPY;SM2DAS;SM2SEP		/ USE DASH FOR DATE SEPARATOR	/A163
	GOTO;SM2DAT			/ CONTINUE IN LINE		/A163

SM2PDS,	COPY;SM2PER;SM2SEP		/ USE PERIOD FOR DATE SEPARATOR	/A163

SM2DAT,	ARG;SM2BF;MNTMP1		/ GET SECOND ENTRY.		/A163
	NUMBER;MNTMP3;SM2BF		/ ERROR IF NOT NUMBER		/A163

	ARG;SM2BF;MNTMP1		/ PICK UP NEXT DATE SEPARATOR	/M094
	KEYWRD								/A094
SM2SEP,	    TEXT '?';SM2DT2		/ CHECK FOR SLASH DASH OR PERIOD/A163
	GOTO;SM2BF			/ NOT VALID DATE FORMAT		/A094

SM2DT2,	ARG;SM2BF;MNTMP1		/ GET THIRD ENTRY.		/A163
	NUMBER;MNTMP4;SM2BF		/ ERROR IF NOT NUMBER		/A163

	ARG;SM2DON;MNTMP1		/ GET HOUR. DONE IF NO MORE	/M094

	NUMBER;MNDTHR;SM2BF		/ GET NUMBER OR BARF		/M094
	RANGE;MNDTHR;0;27;SM2BF		/ RANGE CHECK THE HOUR (0-23.0	/M094

	ARG;SM2DON;MNTMP1		/ GET SEPARATOR, DONE IF NONE	/M094
	KEYWRD								/A094
	    TEXT ':';SM2TIM		/ COLON FOR TIME SEPARATOR	/A094
	    TEXT ';';SM2TIM		/ SEMICOLON FOR TIME SEPARATOR	/A094
	GOTO;SM2BF			/ NOT VALID TIME FORMAT		/A094

SM2TYM,	COPY;MNTMP2;MNDTHR		/ TRANSFER NUMBER TO HOUR REG.	/M163
	RANGE;MNDTHR;0;27;SM2BF		/ RANGE CHECK THE HOUR (0-23.)	/M094

SM2TIM,	ARG;SM2BF;MNTMP1		/ PICK UP THE MINUTES		/M094
	NUMBER;MNDTMN;SM2BF		/ GET NUMBER OR BARF		/M094
	RANGE;MNDTMN;0;73;SM2BF		/ RANGE CHECK MINUTES (0-59.)	/M094

SM2DON,	CASE;SM2SEP			/ CHECK FOR DATE SEPARATOR	/A163
	    0;SM2CKY			/ IF NONE, THEN NO DATE UPDATE	/A163

	COPY;MNFMAT;MNTMP1		/ PICK UP THE FORMAT WORD	/A163
	CLRBIT;7774;MNTMP1		/ MASK OFF THE DATE FORMAT BITS	/A163

	CASE;MNTMP1			/ CHECK IF WE NEED TO SWAP WORDS/A163
	    2;SM2MDY			/ IF 2 THEN SWAP DAY WITH MONTH	/A163
	    3;SM2YMD			/ IF 3 THEN SWAP DAY WITH YEAR	/A163

SM2DMY,	RANGE;MNTMP2;1;37;SM2BF		/ RANGE CHECK THE DAY (1-31.)	/A163
	RANGE;MNTMP3;1;14;SM2BF		/ RANGE CHECK THE MONTH (1-12.)	/A163
	RANGE;MNTMP4;0;143;SM2BF	/ RANGE CHECK THE YEAR (0-99.)	/A163

SM2CKY,	RANGE;MNTMP4;BLDYR;143;SM2BF	/ CHECK FOR YEAR IN RANGE	/A129
	CASE;MNTMP4;BLDYR;SM2CKM	/ GO CHECK MONTH IF BUILD YEAR	/A129
	GOTO;SM2DOK			/ CONTINUE, DATE IS OK		/A129

SM2CKM,	RANGE;MNTMP3;BLDMO;14;SM2BF	/ CHECK FOR MONTH IN RANGE	/A129
	CASE;MNTMP3;BLDMO;SM2CKD	/ GO CHECK DAY IF BUILD MONTH	/A129
	GOTO;SM2DOK			/ CONTINUE, DATE IS OK		/A129

SM2CKD,	RANGE;MNTMP2;BLDDY;37;SM2BF	/ CHECK FOR DAY IN RANGE	/A129

SM2DOK,	COPY;MNTMP2;MNDTDY		/ STORE VALUE IN DAY REGISTER	/A163
	COPY;MNTMP3;MNDTMO		/ STORE VALUE IN MONTH REGISTER	/A163
	COPY;MNTMP4;MNDTYR		/ STORE VALUE IN YEAR REGISTER	/A163
	COPY;SM2SEP;MNDSEP		/ STORE DATE SEPARATOR 		/A163

/D179	GOTO;SM2RTN			/ CONTINUE, DATE IS OK		/M179
/D179	SM2NA,	CMND;0;CMNNOP;CIF 0
SM2RTN,	SET;-1;MNTMP1
	RETURN

/D179	SM2DOK,	CMND;12;200;CIF CDF 20					/M129
/D179		GOTO;SM2RTN

SM2MDY,	COPY;MNTMP2;MNTMP1		/ SAVE VALUE FOR MONTH		/A163
	COPY;MNTMP3;MNTMP2		/ MOVE DAY VALUE INTO DAY REG	/A163
	COPY;MNTMP1;MNTMP3		/ MOVE MONTH VALUE INTO MONTH REG/A163
	GOTO;SM2DMY			/ GO TREAT AS DAY-MONTH-YEAR	/A163

SM2YMD,	COPY;MNTMP2;MNTMP1		/ SAVE VALUE FOR YEAR		/A163
	COPY;MNTMP4;MNTMP2		/ MOVE DAY VALUE INTO DAY REG	/A163
	COPY;MNTMP1;MNTMP4		/ MOVE YEAR VALUE INTO YEAR REG	/A163
	GOTO;SM2DMY			/ GO TREAT AS DAY-MONTH-YEAR	/A163

SM2RE,	CALL;CR1BR;DLMCR1
	TRNSFR;SM1S;DLMSM1

SM2BF,	DISP;-2717;TEXT ' &DATE/&TIME TYPED INCORRECTLY.  &TRY AGAIN.'
	GOTO;SM2RD


XTRSM2=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/ COMMAND DECODER FOR MAIN MENU

RELOC
ADMMM0=.
X=DLMMM0			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

MM0S,	/d172		DISP;2520;TEXT '&TYPE THE LETTER'			/A020
	CASE;MNMMSW		/ CHECK FOR FIRST MENU PAGE		/A020
		0;MM0S1		/ SKIP DISPLAY OF "(S)" FOR FIRST PAGE	/A020
	MXDISP;2520;X02TLS;DLMX02				/A020	/M172
	GOTO;MM0RD							/A172
MM0S1,	MXDISP;2520;X03TLR;DLMX03				/A020	/M172

MM0RD,	CLRV			/ CLEAR ACCUMULATOR FOR TRANSFER TESTS	/A179
	READ;MNTMP1;MM0RE	/ GET USER COMMAND SELECTION
MM0CA,	ARG;MM0RD;MNTMP1	/ CHECK FOR NULL ARGUMENT
	SET;0;MNTMP2

	KEYWRD
		TEXT 'A ';-1-DU2UNB;  DLMDU2	/ UNBUNDLING TRANSFER
		TEXT 'C '; -1-PP1S;   DLMPP1	/ CREATE DOCUMENT
		TEXT 'D '; MM0DE		/ DELETE DOCUMENT	/M179
		TEXT 'E '; MM0ED		/ EDIT DOCUMENT		/M179
		TEXT 'F '; -1-PPMM0F;	DLMPPM	/ FINISHED USING SYSTEM
		TEXT 'I '; -1-IN1S;   DLMIN1	/ INDEX OF DOCUMENTS
		TEXT 'L '; MM0NC		/ SPECIAL CASE FOR L.P.	/A004
		TEXT 'M '; -1-MM1M;   DLMMM1	/ MORE MAIN MENU
		TEXT 'N '; MM0PNP		/ PRINTER NEW PAGE	/M020
		TEXT 'P '; MM0PR		/ PRINT DOCUMENT	/M179
		TEXT 'R '; MM0RP		/ RESUME PRINTER	/M020
		TEXT 'S '; MM0SP		/ STOP PRINTER		/M020
		TEXT 'AD '; -1-ED1PH; DLMED1	/ AUTO-DIAL (PHONE)	/A157
		TEXT 'AX '; MM0AX		/ AUTO DOC TRANSMISSION	/M020
		TEXT 'CI '; -1-CI2CI; DLMCI2	/ COPY INDEX INTO DOCUMENT
		TEXT 'CX '; MM0CX		/ CHARACTER TRANSMISSION/M020
		TEXT 'DK '; -1-DK1S;  DLMDK1	/ DEFINE USER KEYS
		TEXT 'DX '; MM0DX		/ DOCUMENT TRANSMISSION	/M020
IFDEF	CONDOR	<							/A121
		TEXT 'DS '; -1-MM2SED;DLMMM2	/ DECspell spelling checker/M139
		TEXT 'FF '; -1-PPMFFF;DLMPPM	/ FOR FOOTNOTE FORMATING /A155
		>				/ END IFDEF CONDOR	/A121
		TEXT 'LG '; -1-ED1LO; DLMED1	/ LOGON invocation.	/A112
		TEXT 'LP '; -1-MM1LP; DLMMM1	/ LIST PROCESSING	/M174
		TEXT 'MC '; -1-DU1S;  DLMDU1	/ DISKETTE UTILITIES
IFDEF	CONDOR	<							/A121
		TEXT 'PD '; -1-MM2LPD;DLMMM2	/ LOAD PERSONAL DICTIONARY/M141
		>				/ END IFDEF CONDOR	/A121
		TEXT 'RD '; -1-SM0CU2;DLMSM0	/ RESET DATE & TIME	/M179
		TEXT 'RL '; -1-RS1RL; DLMRS1	/ RETRIEVE LIST OF PRINT DOCS.
		TEXT 'SL '; -1-RS1SL; DLMRS1	/ STORE LIST OF PRINT DOCUMENTS
		TEXT 'SO '; MM0SO		/ SET SYSTEM OPTIONS	/M020
		TEXT 'SR '; -1-MM2SR; DLMMM2	/ SORT PACKAGE		/A067
IFDEF	CONDOR	<							/A172
		TEXT 'UD '; MM0UPD		/ UPDATE PERSONAL DICT	/A172
		TEXT 'CU '; MMCONV		/ CONVERT UTILITY	/a195
		> 		/ END IFDEF CONDOR			/A172

MM0NC,	CALL;CR1NM;DLMCR1	/ INVALID USER INPUT ERROR MESSAGE
	GOTO;MM0RD		/ RETURN TO READ ROUTINE

MM0RE,			/ ACCUMULATOR IS CLEAR FOR PAGE 0 IF GOLD MENU	/A145
	CASE;MNSYSA	/ GOLD KEY SEQUENCE ENTERED BY USER		/M117
			/	0 MEANS TOO MANY CHARS. - ERROR MESSAGE
	    EDSETUP&3777; MM0SET		/ USER TYPED "SETUP"	/M068
	    EDMENU&3777; -1-MM1SD0;DLMMM1	/ CHECK FOR GOLD MENU

	CALL;CR1BR;DLMCR1	/ ERROR - ILLEGAL KEYPAD KEY USED
MM0CMP,	TRNSFR;MM1S;DLMMM1	/ GO REDISPLAY CURRENT MENU PAGE	/M020


MM0SET,	CMND; 23; 200; CIF CDF 10	/ READ IN "SETUP" OVERLAY	/A067
	RETURN								/A067

MM0ED,	INCV			/ EDIT DOCUMENT				/A179
MM0PR,	INCV			/ PRINT DOCUMENT			/A179
MM0DE,	STOV; MNTMP6		/ SET UP INDICATOR FOR WHICH UTILITY	/A179
	TRNSFR;ED1PRM;DLMED1	/ GO HANDLE USER SPECIFIED FILE NAME	/A179


/D155MM0F,				/ FINISHED USING THE SYSTEM
/D155	PQUEUE;MM0FNE;MM0FOK	/ CHECK FOR ANY DOCUMENTS BEING PRINTED	/M020
/D155				/ PQUEUE FALLS THROUGH IF QUEUE IS	/A128
/D155				/ NOT EMPTY AND MNFNO DOESN'T MATCH	/A128
/D155MM0FNE,	TRNSFR;MM2ERR;DLMMM2	/ ERROR - CAN'T FINISH WHILE PRINTING	/C128
/D155MM0FOK,	SET;2525;MNTMP1		/ REMEMBER WE'RE FINISHING UP		/A024
/D155	CMND;2;223;CIF 10	/ GO TO EDITOR TO CLEAR THE PASTE	/A024
/D155	RETURN			/ BUFFER				/A024

MM0F0K,	CALL; DUAFN1; DLMDUA	/ PUT FINISH MESSAGE ON SCREEN		/C137
	CMND;12;210;CIF CDF 20	/ SET UP OVERLAY CALLING INSTRUCTIONS	/M020
	RETURN			/ GO TO FINISH USING THE SYSTEM ROUTINE

MM0SP,	CMND;1;214;CIF CDF 20	/ GO TO STOP PRINTER ROUTINE		/M020
	RETURN								/M020

/ RESUME PRINTER FROM MAIN MENU - SEE IF PRINTER Q IS EMPTY		/A128
/ PQUEUE FALLS THROUGH IF QUEUE NOT EMPTY AND MUFNO IS NOT IN QUEUE	/A128

MM0RP,	PQUEUE;MM0RNE;-1-MM2NDC;DLMMM2 / TELL USER QUEUE IS EMPTY	/A128
MM0RNE,	CMND;1;224;CIF CDF 20	/ ELSE GO TO RESUME PRINTER ROUTINE	/M020
	RETURN								/M020

MM0PNP,	CMND;1;230;CIF CDF 20	/ GO TO PRINTER NEW PAGE ROUTINE	/M020
	RETURN								/M020

MM0SO,				/ SET SYSTEM OPTIONS
	CMND;24;200;CIF CDF 20	/ SET UP OVERLAY INSTRUCTIONS
	RETURN			/ GO TO SET OPTIONS ROUTINE

MMCONV,				/ CONVERT UTILITY			/a195
	CMND;32;6000;CIF CDF 40	/ SET UP OVERLAY INSTRUCTIONS		/a195	
				/ hard to beleive I know but this routine/a195
				/ acctually runs in field 6 and 2CMF adds/a195
				/ 20 to this CIDF instruction		/a195
	RETURN			/ GO TO CONVERT UTILITY ROUTINE		/a195

MM0LO,	SET;6;MNTMP1		/ 6 for LOGON.				/A112
	GOTO;MM0CK1		/ check out Comm option.		/A112

MM0PH,	SET; 7; MNTMP1		/ 7 for PHONE				/A157
	GOTO; MM0CK1		/ check out Comm. option.		/A157

MM0CX,	SET;0;MNTMP1		/ ZERO MEANS CX - SKIP HARDWARE CHECK	/M004
	GOTO; MM0CK1		/ GO CHECK VALIDITY OF CALL		/M052

MM0AX,	SET;1;MNTMP1		/ ONE MEANS AX - CHECK FOR HARDWARE	/M004
	GOTO; MM0CHK		/ GO CHECK VALIDITY OF CALL		/M129

MM0DX,	SET;2;MNTMP1		/ TWO MEANS DX - CHECK FOR HARDWARE	/M004

MM0CHK,			/ CHECK FOR VALIDITY OF COMMUNICATION CALL	/M004
	TSTBIT;MNOPTC;HWDBIT;-1-PS4NCM;DLMPS4 / HANDLE NO HARDWARE	/M129

MM0CK1,	IFDEF	UNBUND	<						/A129
	TSTBIT;MNOPTC;COMBIT;-1-UBENCM;DLMUBE / HANDLE NOT ACTIVE	/M052
	>		/ END IFDEF UNBUND				/A004

	SET;0;MNTMP6		/ Set "FROM MAIN MENU" indicator.	/A108
	CMND;20;214;CIF CDF 20	/ SET UP OVERLAY CALLING PARAMETERS	/M004
	RETURN			/ GO TO COMMUNICATIONS ROUTINES		/M004

IFDEF	CONDOR	<							/A172
MM0UPD,	TSTBIT;MNOPTC;DEVBIT;MM0NC / CHECK IF UD OPTION ENABLED		/A172
	TRNSFR;MM2UPD;DLMMM2	/ GO UPDATE PERSONAL DICT		/A172
		> 		/ END IFDEF CONDOR			/A172


XTRMM0=400-.

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

RELOC
ADMMM1=.
X=DLMMM1			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

	/*******************************************************	/A004
	/*******************************************************	/A004
	/******                                           ******	/A004
	/******               C A U T I O N               ******	/A004
	/******                                           ******	/A004
	/******    MM1S MUST BE LOCATED HERE IN OVERLAY   ******	/A004
	/******    BECAUSE OF MAIN MENU CALLS FROM MN2    ******	/A004
	/******                                           ******	/A004
	/*******************************************************	/A004
	/*******************************************************	/A004

MM1S,	GOTO;MM1OK		/MM1S IS DEFINED IN MNCOM & USED IN MN2	/A133

MM1M,	CLRV			/SELECT NEXT MAIN MENU DISPLAY		/M004
	CASE; MNMMSW		/CHECK NUMBER OF CURRENT DISPLAY	/M004
		0;MM1SD1	/IF PAGE ZERO, BUMP TO PAGE ONE		/M004
		1;MM1SD2	/IF PAGE ONE, BUMP TO PAGE TWO		/M004
		2;MM1SDA	/IF PAGE TWO, BUMP TO PAGE THREE /M156	/M004
		3;MM1SD4	/IF PAGE THREE, BUMP TO PAGE 4	/A156
		4;MM1SD0	/IF PAGE 4 RETURN TO PAGE 0		/A156

MM1SDA,/D159	IFNDEF	CONDOR	<				/M156	/A129
	IFDEF	UNBUND	<						/A129
	TSTBIT;MNOPTC;COMBIT;MM1SD4	/IF NO COMM, BACK TO PAGE ZERO	/M156/A128
			>	/END IFDEF UNBUND			/A129
/D159			>	/END IFNDEF CONDOR			/A129
	GOTO;MM1SD3							/A156

MM1SD4,	INCV			/SET TO DISPLAY PAGE 4			/A156
MM1SD3,	INCV			/SET UP TO DISPLAY PAGE 3	/M156	/A128
MM1SD2,	INCV			/SET UP TO DISPLAY PAGE 2		/A128
MM1SD1,	INCV			/SET UP TO DISPLAY PAGE 1		/A128
MM1SD0,	STOV;MNMMSW		/SET UP TO DISPLAY PAGE 0		/A128

MM1OK,	CLRRTN			/CLEAR ANY PREVIOUS RETURN!		/A128
	CASE;MNTMP1		/SET TO 2525 AT MM0FOK (FINISHING UP)	/A024
	2525;MM1WIN		/COMPLETE FINISHING TOUCHES	/A024	/C130
	2526;-1-MM0F0K;DLMMM0	/COMPLETE FINISHING TOUCHES	/A130

	CALL;CR1EEQ;DLMCR1	/CALL SYSTEM ROUTINE TO RESET TERMINAL	/A163
	CLRBIT;4000;MNPULD	/ALLOW PRINT SCREENS			/A196
	DISP;0;TEXT '!E-- !&MAIN !&MENU --'				/M163

	CASE;MNMMSW			/CHECK WHICH PAGE TO DISPLAY
		0;MM1D0		/SKIP "CONTINUE" FOR PAGE ZERO
	DISP;0015;TEXT '(CONTINUED) --'
	CASE;MNMMSW			/CHECK WHICH PAGE TO DISPLAY
		1;-1-MM2D1;DLMMM2	/GO DISPLAY MENU PAGE ONE
		2;-1-MM2D2;DLMMM2	/GO DISPLAY MENU PAGE TWO
		3;-1-MM3D3;DLMMM3	/GO DISPLAY MENU PAGE THREE	/M148
		4;-1-MM4D4;DLMMM4	/GO DISPLAY MENU PAGE FOUR	/A156

MM1D0,	DISP;505;TEXT '%C = &CREATE A NEW^S^S';MM1LET;MM1DOC/m190	/M004
	DISP;705;TEXT '%E = &EDIT AN EXISTING^S^S';MM1LET;MM1DOC/m190	/M004
	DISP;1105;TEXT '%P = &PRINT A^S^S';MM1LET;MM1DOC	/m190	/M004
	DISP;1305;TEXT '%I = &INDEX OF LETTERS AND^SS ON FILE';MM1DOC	/m190
	DISP;1505;TEXT '%D = &DELETE A^S';MM1DOC			/m190
	DISP;1705;TEXT '%F = &FINISHED USING THE SYSTEM'		/m190
MM1MS,	DISP;-1;TEXT '^A%M = &MORE MAIN MENU SELECTIONS...';MM1L2	/M148

	TRNSFR;MM0S;DLMMM0	/DISPLAY "TYPE LETTER & PRESS RETURN	/M020

MM1L2,	15;12;12;40;40;40;40;40;0	/DROP DOWN TWO LINES		/A148

MM1LET,	TEXT ' LETTER OR'						/A004
MM1DOC,	TEXT ' DOCUMENT'

/ IF WINNIE ON LINE DISMOUNT ALL VOLUMES FOR FINISH			/A130
/ ELSE SET TO MNTMP1 TO DISPLAY FINISH SCREEN				/A130

MM1WIN,							/C182
/D182	TSTBIT;MNOPTN;MNRX2X;-1-MM0F0K;DLMMM0	/WINNIE ON LINE?	/C140
	SET;2526;MNTMP1		/SET CODE				/C140
	CMND;31;202;CIF 10						/C135
	RETURN								/A130

MM1LP,	IFDEF UNBUND <							/A004
	TSTBIT;MNOPTC;LPBIT;-1-UBENLP;DLMUBE/ CHECK FOR L.P. ENABLED	/A004
	>		/END IFDEF UNBUND				/A004
	CMND;1;220;CIF CDF 20		/ SET UP OVERLAY PARAMETERS
	RETURN				/ GOTO LIST PROCESSING ROUTINES

XTRMM1=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/MAIN MENU DISPLAY PART 2

RELOC
ADMMM2=.
X=DLMMM2			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

/ED1QD,	CALL;CR2QDD;DLMCR2					/M155
/	TRNSFR;MM1S;DLMMM1					/M155

MM2D1,	DISP;505;TEXT '%S = &STOP PRINTING'			/m190
	DISP;705;TEXT '%R = &RESUME PRINTING'			/m190
	DISP;1105
	TEXT '%N = &NEW PAGE, BRING THE PRINTER TO THE TOP OF THE PAPER'/m190
	DISP;1305;TEXT '%S%L = &STORE^S';MM2LOD				/m190
	DISP;1505;TEXT '%R%L = &RETRIEVE^S';MM2LOD			/m190
	DISP;1705;TEXT '%C%I = &COPY &INDEX INTO A DOCUMENT'		/m190

MM2LET,	TRNSFR;MM1MS;DLMMM1	/DISPLAY "M = MORE SELECTIONS..."	/A148

MM2LOD,	TEXT ' LIST OF DOCUMENTS WAITING TO PRINT'			/m190



IFDEF	CONDOR	<							/A121
MM2UPD,	SET;13;MNTMP6			/ 13 FOR UPDATE PERSONAL DICT	/A172
	GOTO;MM2PDM							/A172

MM2LPD,	SET;7;MNTMP6			/ 7 FOR LOAD PERSONAL DICTIONARY/A131
					/ CHECK FOR APU/XPU NOW - THE	/A169
					/  LATER CHECK IS BYPASSED IF	/A169
					/  THERE IS A DEFAULT "PD"	/A169

MM2PDM,	COPY;MNFNO;MNUTFN		/ SET UP UTILITY FILE NUMBER	/A179
	IFDEF	UNBUND	<						/A174
	TSTBIT;MNOPTC;SEDBIT;-1-UBENSD;DLMUBE / CHECK FOR SPELLING ENABLED/A174
			>		/ END IFDEF UNBUND		/A174

	TSTBIT;MNOPTN;MNRX6X;-1-CI1NAP;DLMCI1	/ CHECK FOR APU BOARD	/M172
	TSTBIT;MNPDFN;-1;MM2SE1		/ SKIP IF NO DEFAULT FILE SET	/A163
	COPY;MNPOS;MNTMP2		/ SAVE CURRENT POSITION		/A163
	ARG;MM2PDF;MNTMP1		/ CHECK FOR A BLANK LINE	/A163
	COPY;MNTMP2;MNPOS		/ NO, RESTORE POSITION		/A163
	GOTO;MM2SE1			/ GO HANDLE USER SPECIFIED FILE	/A163

MM2PDF,	COPY;MNPDFN;MNUTFN		/ SET UP DEFAULT DICTIONARY FILE/M179
	PQUEUE;MM2ERR;-1-ED1RT;DLMED1	/ CHECK IF PRINTING DOCUMENTS	/A163
					/ FALL THROUGH IF QUEUE NOT EMPTY/A163
	GOTO;MM2ERR			/ ERROR, PRINTING IN PROGRESS	/A163

MM2SED,	SET;6;MNTMP6			/ 6 FOR SPELLING		/A131
	COPY;MNFNO;MNUTFN		/ SET UP UTILITY FILE NUMBER	/A179

	IFDEF	UNBUND	<						/A174
	TSTBIT;MNOPTC;SEDBIT;-1-UBENSD;DLMUBE / CHECK FOR SPELLING ENABLED/A174
			>		/ END IFDEF UNBUND		/A174

MM2SE1,	PQUEUE;MM2ERR;-1-ED1SC;DLMED1	/ CHECK IF PRINTING DOCUMENTS	/A131
					/ FALL THROUGH IF QUEUE NOT EMPTY/A131
		>		/ END IFDEF CONDOR			/A121

MM2ERR,	SET;0;MNQCPY		/ SET MNQCPY TO SPECIFY "DOCUMENTS"	/A128
MM2ER1,	CALL;CR2FQ;DLMCR2	/ ERROR - NO SPELLING WHILE PRINTING	/A021
	TRNSFR;MM1S;DLMMM1	/ GO REDISPLAY CURRENT MENU PAGE	/A021

MM2NDC,	SET;1;MNQCPY		/ SET MNQCPY TO SPECIFY "NO DOCUMENTS"	/A128
	GOTO;MM2ER1		/ GO DISPLAY MESSAGE			/A128

MM2SR,	IFDEF UNBUND <							/A004
	TSTBIT;MNOPTC;SRBIT;-1-UBENSR;DLMUBE / CHECK FOR SORT ENABLED	/A004
	>				/ END IFDEF UNBUND		/A004

	PQUEUE;MM2ERR;MM2OKS	/ PQUEUE FALLS THROUGH IF QUEUE NOT 	/A056
	GOTO;MM2ERR		/ EMPTY AND MUFNO IS NOT IN QUEUE	/A128

MM2OKS,	CMND;26;200;CIF CDF 10		/ SET UP OVERLAY PARAMETERS	/A004
	RETURN				/ GOTO SORT ROUTINE		/A004

MM2D2,	DISP;505; TEXT '%S%O = &SET SYSTEM &OPTIONS'			/m190
	DISP;705;TEXT '%M%C = &MAINTENANCE &COMMANDS FOR DISKETTES'	/m190


MM2NW1,	TRNSFR;MM3NW1;DLMMM3		/CONTINUE DISPLAY ON NEXT PAGE	/A148

XTRMM2=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/MAIN MENU DISPLAY PART 3

RELOC
ADMMM3=.
X=DLMMM3			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

MM3NW1,	IFDEF	CONDOR	<						/A126
	TSTBIT; MNOPTN; MNRX2X; MM3NW2					/M172
	DISP; -1; TEXT ' AND VOLUMES'					/A126
	>	/ END IFDEF CONDOR					/A126

MM3NW2,	DISP;1105;TEXT '%R%D = &RESET &DATE/&TIME'		/m190	/M172
	DISP;1305;TEXT '%D%K = &DEFINE USER KEYS'			/m190
	IFDEF UNBUND <	TSTBIT;MNOPTC;LPBIT;MM3NLP	>		/A004
	DISP;-1;TEXT '^A%L%P = &LIST PROCESSING PACKAGE';MM3L2	/m190	/M148
MM3NLP,	IFDEF UNBUND <	TSTBIT;MNOPTC;SRBIT;MM3NSR	>		/A004
	DISP;-1;TEXT '^A%S%R = &SORT PACKAGE';MM3L2		/m190	/M026
MM3NSR,	TRNSFR;MM1MS;DLMMM1	/DISPLAY "M = MORE SELECTIONS..."	/A148


MM3D3,	DISP;305;TEXT ''		/SET DISPLAY LOCATION		/A148

MN3NSD,	IFDEF UNBUND <	TSTBIT;MNOPTC;COMBIT;MM3NC	>		/M148
	DISP;-1;TEXT '^A%C%X = &CHARACTER^SPACKAGE';MM3L2;MM3TRN/m190	/M148
	DISP;-1;TEXT '^A%D%X = &DOCUMENT^SWITH A !&WP SYSTEM';MM3L2;MM3TRN/m190/M148
	DISP;-1;TEXT '^A%A%X = &AUTOMATIC DOCUMENT^S';MM3L2;MM3TRN/m190	/M148
	DISP;-1;TEXT '^A%L%G = &LOGON TO !&HOST SYSTEM';MM3L2	/m190	/M148
	DISP;-1;TEXT '^A%A%D = &AUTOMATICALLY &DIAL A &TELEPHONE &NUMBER'/m190/A157
	MM3L2								/A157
MM3NC,	TRNSFR;MM1MS;DLMMM1	/DISPLAY "M = MORE SELECTIONS..."	/A148

MM3TRN,	TEXT ' TRANSMISSION '
MM3L2,	15;12;12;40;40;40;40;40;0

XTRMM3=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/THE FOURTH MAIN MENU

RELOC
ADMMM4=.
X=DLMMM4			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

/			T H I S    M E N U    P A G E   I S

/			F O R   T H E  4 T H  MM S C R E E N		/A156

MM4D4,	DISP;505;TEXT ""						/M174

	IFDEF	CONDOR	<						/A174
	IFDEF	UNBUND	<						/A174
	TSTBIT;MNOPTC;SEDBIT;MM4FOR	/ CHECK FOR SPELLING ENABLED	/A174
			>		/ END IFDEF UNBUND		/A174
	TSTBIT;MNOPTN;MNRX6X;MM4FOR	/ CHECK FOR APU BOARD		/M174

	DISP;-1;TEXT '%D%S = &D&E&CSPELL - &SPELLING &CHECKER '	/m190	/M174
	TSTBIT;MNOPTC;SEDBIT;MM4NCO					/A158
	DISP;-1;TEXT '^C& &CORRECTOR'					/M174
MM4NCO,	DISP;-1;TEXT '^A%P%D = &LOAD &PERSONAL &DICTIONARY';MM4L2/m190	/M158

	TSTBIT;MNOPTC;DEVBIT;MM4FOR / CHECK IF UD OPTION ENABLED	/A172
	DISP;-1;TEXT '^A%U%D = &UPDATE &PERSONAL &DICTIONARY';MM4L2/m190/A172
			>	/ END IFDEF CONDOR			/A174

MM4FOR,	DISP;-1;TEXT '^A%F%F = &FORMAT FOOTNOTES';MM4L2	/m190	/M172
	DISP;-1;TEXT '^A%C%U = &CONVERT UTILITY';MM4L2			/A195
	TRNSFR;MM1MS;DLMMM1	/ AND GO WAIT FOR READ			/A156

MM4L2,	15;12;12;40;40;40;40;40;0

XTRMM4=400-.

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

RELOC
ADMMM5=.
/ X=DLMMM5			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

/			T H I S    M E N U    P A G E   I S

/		   R E S E R V E D   F O R   F U T U R E   U S E


XTRMM5=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/DELETE DOCUMENT ENTRY MENU

RELOC
ADMDL1=.
/ X=DLMDL1			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0


XTRDL1=400-.

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

RELOC
	FIELD 2
	*0

ADMPR1=.
X=DLMPR1			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0
/PRINTER OPTIONS THESE LOCATIONS ARE DEFINED IN WPRINT
/BUT ARE LOADED INTO THE MENU FIELD SYSTEM AREA				/A124

MNQINI=MNPROP		/SETTINGS NOT INITIALIZED			/M124
MNQCPY=MNQINI+1		/NUMBER OF COPIES				/M124
MNQIND=MNQCPY+1		/PRINTER MARGIN					/M124
MNQLSZ=MNQIND+1		/EXTRA HALF LINE SPACING			/M124
MNQTMG=MNQLSZ+1		/TOP MARGIN					/M124
MNQBMG=MNQTMG+1		/BOTTOM MARGIN					/M124
MNQPSZ=MNQBMG+1		/PAGE SIZE					/M124
MNQPIT=MNQPSZ+1		/PITCH LP USES THIS VALUE			/M124
MNQFRP=MNQPIT+1		/FROM						/M124
MNQTOP=MNQFRP+1		/TO						/M124
MNQPGO=MNQTOP+1		/INITIAL PAGE					/M124
MNQSP=MNQPGO+1		/SHADOW PRINT IF BIT 11 IS SET			/M124
MNQAPG=MNQSP+1		/AUTOMATIC PAGINATION				/M124
MNQJUS=MNQAPG+1		/RESERVED					/M124
MNQDBL=MNQJUS+1		/RESERVED					/M124
MNQSSM=MNQDBL+1		/STOP						/M124
MNQSTX=MNQSSM+1		/RESERVED BUT USED BY MENU CODE			/M124
MNQOVP=MNQSTX+1		/DARKNESS					/M124
MNQTW=MNQOVP+1		/TWO WHEEL					/M124
MNQPNT=MNQTW+1		/PRINTER TYPE LIST PROCESSING USES THIS VALUE ALSO /M124
MNQCM=MNQPNT+1		/COLUMN MARGIN					/M124
MNQSB1=MNQCM+1		/REPLACEMENT CHARACTER 1 LP USES THIS VALUE	/M124
MNQSB2=MNQSB1+1		/REPLACEMTNE CHARACTER 2 LP USES THIS VALUE	/M124
MNQUSD=MNQSB2+1								/M124

IFNZRO MNQUSD-MNPROP-PRSETZ <?PRSETZISWRONG>				/M124


	DISP;0;TEXT '!E'
	CASE;MNTMP1;0;PR1S	/ 0 for no more room error message.	/A112
	DISP;1305;TEXT '&INCONSISTENT MARGIN SETTINGS'
	DISP;1505;TEXT '!&TM PLUS !&BM MUST BE LESS THAN !&PS'
	GOTO;PR1DSP		/ wait for RETURN.			/A112

PR1S,	DISP;1505;TEXT '&THERE ARE ALREADY 8 DOCUMENTS WAITING TO PRINT.'
PR1DSP,	DISP;1705;TEXT '&PRESS !&RETURN TO RECALL THE '
	CASE;MNTMP1;1;PR1DS2
	DISP;-1;TEXT '&MAIN '
PR1DS2,	DISP;-1;TEXT '&MENU.'

PR1RD,	READ;MNTMP1;PR1RE
	ARG;PR1MM;MNTMP1
	GOTO;PR1RD

PR1RE,	CASE;MNSYSA							/M117
		EDMENU&3777;PR1MM
	GOTO;PR1RD

PR1MM,	RETURN

IFDEF CONDOR	<							/A131
/ APU board has been loaded once, how does the user wish to modify the	/A131
/  user dictionary area							/A131

PR1APU,	DISP;0;TEXT '!E'						/A131
	DISP;1005;TEXT '&HOW WOULD YOU LIKE^S MODIFIED?';TCUSDC		/A131
	DISP;1205;TEXT '&A = &ADD TO^S';TCUSDC				/A131
	DISP;1405;TEXT '&O = &OVERWRITE ^S';TCUSDC			/A131
	DISP;2320;TEXT '&TYPE THE LETTER AND PRESS &R&E&T&U&R&N'	/A131
	DISP;2520;TEXT '&O&R &PRESS &GOLD &M&E&N&U TO RECALL THE &MAIN &MENU'
	TRNSFR;	ED1APU;	DLMED1						/A131

TCUSDC,	TEXT ' THE CURRENT USER DICTIONARY'				/A131
		>			/END IFDEF CONDOR		/A131

XTRPR1=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/ PRINT MENU PARAMETER HANDLING

RELOC
ADMPR2=.
X=DLMPR2			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

/This menu block is entered (called) directly from WPCUT CUQPRT routine./A075

PR2S,	CASE;MNTMP1	/ the old "what to do switch".			/A075
	    1;PR2TWD	/  DD checked out ok. continue processing.	/A075
	    2;PR2PIC	/  incorrect printer attached.			/A075
	    3;PR2PNX	/  non-existent list processing printer.	/A075
			/ other wise initial call.			/A075
	SET;0;MNQSTX							/M124

PR2RDY,	DISP;0;TEXT '!E'

PR2RDN,	CASE;MNQSTX							/M124
		1;-1-PR7D1;DLMPR7
		2;-1-PR9D2;DLMPR9
	TRNSFR;PR3D0;DLMPR3

PR2CA,
PR2RD,	READ;MNTMP1;PR2RE
	TRNSFR;PR5CA;DLMPR5

PR2RE,	CASE;MNSYSA							/M117
		EDMENU&3777;PR2MM
	CALL;CR1BR;DLMCR1
	GOTO;PR2RDY

PR2MM,	SET;2;MNTMP1
	RETURN

PR2SD1,	SET;1;MNQSTX							/M124
	GOTO;PR2RDY

	/ THE 2 WHEEL CHECK IS HERE INSTEAD OF PR6 OR PR5
PR2TW,	ARG;PR2TWE;MNTMP2

	KEYWRD
		TEXT 'YES ';PR2TWY
		TEXT 'NO ';PR2TWN

PR2TWE,	DISP;-2717;TEXT '!&TW YES OR !&TW NO'				/C164
	GOTO;PR2RD

PR2TWY,	SET;1;MNQTW							/M124
	GOTO;PR2TWD

PR2TWN,	SET;0;MNQTW							/M124

SPDAXT,
PR2TWD,	DISP;-2700;TEXT ''
	GOTO;PR2RDN

PR2SP,	ARG; PR2SPN; MNTMP2						/A018

	KEYWRD
		TEXT 'YES ';PR2SP1					/A018
		TEXT 'NO ';PR2SP0					/A018

PR2SPN,	DISP;-2717;TEXT '!&SP YES OR !&SP NO'				/C164
	GOTO;PR2RD							/A018

PR2SP1,	SETBIT;0001;MNQSP	/SHADOW PRINT YES			/C173
	GOTO;SPDAXT							/A034

PR2SP0,	CLRBIT;0001;MNQSP	/SHADOW PRINT NO			/C173
	GOTO;SPDAXT							/A034

	/THIS IS THE CHECK FOR THE DOCUMENT DESTINATION

PR2PNT,	ARG;PR2PNE;MNTMP2

	KEYWRD
		TEXT 'LQP ';PR2PNQ
		TEXT 'DP ';PR2PNL
		TEXT 'CHST ';PR2DHO	/TRUE HOST			/C164
		TEXT 'CPTR ';PR2PNH	/PRINTER ON HOST PORT		/C164

PR2PNE,	DISP;-2717;TEXT '!&DD !&LQP, !&DP, !&CHST, OR !&CPTR'		/C168
	GOTO;PR2RD

/MNQPNT IS USED TO IDENTIFY THE DOCUMENT DESTINATION.  			/M124
/	POSSIBLE VALUES ARE:
/		DLQP = LQP (PARALLEL LQP)
/		DDP = DP (PARALLEL DRAFT PRINTER)
/		DHOST = CPTR	(PRINTER ON HOST PORT)			/C168
/		DHOST2 = CHST	(CONNECTION TO A TRUE HOST)		/C168
/		DDP2 = DP2 (SERIAL DRAFT PRINTER)
/		DSQ1 = SQ1 (SERIAL LQP, ONE HEAD)   /NOT AN APPROVED OPTION
/		DSQ2 = SQ2 (SERIAL LQP, TWO HEADS)  /THIS IS NOT SUPPORTED

PR2PNQ,	SET;DLQP;MNQPNT	/DD=LQP						/M124
	GOTO;PR2PCK	/ CHECK ATTACHED PRINTER.			/M075

PR2PNL,	SET;DDP;MNQPNT	/DD=DP						/M124
	GOTO;PR2PCK	/ CHECK ATTACHED PRINTER.			/M075

PR2DHO,	SET;DHOST2;MNQPNT	/DD=CHST (TRUE HOST)			/C164
	GOTO;PR2PCK	/ CHECK ATTACHED PRINTER.			/M075

PR2PNH,	SET;DHOST;MNQPNT/DD=HPTR (PRINTER ON HOST PORT)			/C168

PR2PCK,	SET;5;MNTMP1	/ RETURN TO WPCUT TO DO PRINTER VALIDATION.	/A075
	RETURN		/  ...						/A075


PR2NUM,	DISP;-2717							/M004
	TEXT '&THE SETTING MUST BE FOLLOWED BY A NUMBER BETWEEN !D AND !D.' /M111
	MNTMP4;MNTMP5							/A111
	GOTO;PR2RD

PR2PNX,	MXDISP;-2717;X05NEP;DLMX05	/NON EXISTENT PRINTER		/C173
	GOTO;PR2RDN							/A075
									/A075
PR2PIC,	DISP;-2717;TEXT 'INCORRECT PRINTER ATTACHED'			/A075
	GOTO;PR2RDN							/A075

XTRPR2=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/START OF FIRST PRINT MENU

RELOC
ADMPR3=.
X=DLMPR3			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

PR3D0,	DISP;0;TEXT '-- !&PRINT !&MENU --'

	DISP;200;TEXT '&THESE ARE THE CURRENT SETTINGS FOR PRINTING DOCUMENT:'
	DISP;404;TEXT '(!D.!D) !A';MNDRV;MNDOCN;MNFNAM

	CASE;MNQPIT							/M124
		0;PR3PPI
	DISP;-604;TEXT '!D CHARACTERS PER INCH (PITCH)';MNQPIT		/M124
	GOTO;PR3SPI

PR3PPI,	DISP;-604;TEXT 'THEME CHARACTER WIDTH'

PR3SPI,	CASE;MNQCPY							/M124
		1;PR3CP1
	DISP;-704;TEXT '!D COPIES';MNQCPY				/M124
	GOTO;PR3CPD
PR3CP1,	DISP;-704;TEXT '1 COPY'
PR3CPD,	DISP;-1;TEXT ' WILL BE PRINTED'
	DISP;-1004;TEXT '!D IS THE NUMBER ON THE FIRST PAGE';MNQPGO	/M124
	DISP;-1104;TEXT '!D IS THE FIRST PAGE PRINTED';MNQFRP		/M124
	DISP;-1204;TEXT ''
	CASE;MNQTOP							/M124
		0;PR3NTO
	DISP;-1204;TEXT '!D IS THE LAST PAGE PRINTED';MNQTOP		/M124

PR3NTO,	DISP;752;TEXT '!D LINES IN THE TOP MARGIN';MNQTMG		/M124
	DISP;1052;TEXT '!D LINES IN THE BOTTOM MARGIN';MNQBMG		/M124
	DISP;-1404;TEXT '!D EXTRA HALF LINE SPACE BETWEEN LINES';MNQLSZ	/M124
	TRNSFR;PR4D0;DLMPR4

XTRPR3=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/FIRST PRINT MENU CONTINUED

RELOC
ADMPR4=.
X=DLMPR4			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0


PR4D0,	DISP;1152;TEXT '!D SPACES IN THE LEFT PRINT MARGIN';MNQIND	/M124
	DISP;0652;TEXT '!D TOTAL LINES PER PAGE';MNQPSZ			/M124
	DISP;1252;TEXT '!D SPACES BETWEEN COLUMNS';MNQCM		/M124

	CLRV			/ INITIALIZE SE RESULT			/A127
	DISP;-1504;TEXT ''						/A127
	CASE;MNQSSM							/M124
		0;PR4SS0
		1;PR4SS1
		2;PR4SS2
		3;PR4SS3
		4;PR4SS4
		5;PR4SS5
		6;PR4SS6						/A127

/ NOTE:  AN INVALID SETTING BECOMES SE NO				/A127
/	 SHOULD WE HAVE A MESSAGE FOR AN INVALID SE SETTING?		/A127

PR4SS0,	DISP;-1;TEXT 'DO NOT '						/C127
PR4SS2,	DISP;-1;TEXT 'STOP BEFORE EACH PAGE'				/C127
	GOTO;PR4SSE
PR4SS1,	DISP;-1;TEXT 'STOP ONLY BEFORE THE FIRST PAGE'
	GOTO;PR4SSE
PR4SS3,	DISP;-1;TEXT 'FEED FIRST SHEET FROM FRONT TRAY, REST FROM REAR'
	GOTO;PR4SSE
PR4SS4,	DISP;-1;TEXT 'FEED FROM FRONT TRAY'
	GOTO;PR4SSE
PR4SS5,	DISP;-1;TEXT 'FEED FROM REAR TRAY'
	GOTO;PR4SSE							/A127
PR4SS6,	DISP;-1;TEXT 'FEED FROM ENVELOPE TRAY'				/A127

/ END OF SE DISPLAY ON FIRST PRINT MENU PAGE -- FALL THROUGH		/A173

/ BEGIN AP DISPLAY ON FIRST PRINT MENU PAGE				/A173
PR4SSE,	DISP;-1604;TEXT ''

	CASE;MNQAPG							/M124
		1;PR4APG
	DISP;-1;TEXT 'DO NOT '
PR4APG,	DISP;-1;TEXT 'AUTOMATICALLY BREAK INTO PAGES'

	DISP;-1704;TEXT ''
	CASE;MNQOVP							/M124
		0001; PR4OVP
	DISP;-1;TEXT 'DO NOT '
PR4OVP,	DISP;-1;TEXT 'PRINT EXTRA DARK'

	TRNSFR; PR4TWA;DLMIN1			/			

XTRPR4=400-.

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

RELOC
ADMPR5=.
X=DLMPR5			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

PR5CA,	SET;0;MNTMP4			/ SET UP FOR ZERO LOWER LIMIT	/A111
	SET;7777;MNTMP5			/ SET UP FOR 4095 UPPER LIMIT	/A111

	ARG;PR5RD;MNTMP1

	KEYWRD
		TEXT 'T ';PR5NC
		TEXT 'S ';PR5NC
		TEXT 'P ';PR5NC
		TEXT 'D ';PR5NC
		TEXT 'PL ';PR5PL
		TEXT 'RS ';PR5RS
		TEXT 'SS ';PR5SS
		TEXT 'CP ';PR5CP
		TEXT 'IP ';-1-PR6IP;DLMPR6				/M111
		TEXT 'FR ';-1-PR6FR;DLMPR6				/M111
		TEXT 'TO ';-1-PR6TO;DLMPR6				/M111
		TEXT 'EO ';-1-PR6EO;DLMPR6	/EVEN/ODD EVERY-OTHER	/A173
		TEXT 'NO ';-1-PR2SD1;DLMPR2				/M111
		TEXT 'PI ';-1-PR6PI;DLMPR6				/M111
		TEXT 'AP ';-1-PR6AP;DLMPR6
		TEXT 'DA ';-1-PR6DA;DLMPR6
		TEXT 'SP ';-1-PR2SP;DLMPR2				/M033
		TEXT 'OK ';PR5OK
		TEXT 'YES ';PR5YES
		TEXT 'PM ';PR5PM
		TEXT 'SE ';-1-PR6SE;DLMPR6
		TEXT 'TM ';PR5TM
		TEXT 'EX ';-1-QD1EX;DLMQD1				/M104
		TEXT 'PS ';-1-QD1PS;DLMQD1				/M104
		TEXT 'BM ';PR5BM
		TEXT 'TW ';-1-PR2TW;DLMPR2
		TEXT 'DD ';-1-PR2PNT;DLMPR2
		TEXT 'CM ';-1-QD1CM;DLMQD1
		TEXT 'R1 ';-1-PRCS1;DLMPRC
		TEXT 'R2 ';-1-PRCS2;DLMPRC

PR5NC,	CALL;CR1NM;DLMCR1
PR5NC1,	TRNSFR;PR2RD;DLMPR2
PR5RD,	CASE;MNQSTX							/M124
		2;-1-PR2SD1;DLMPR2					/M111
		1;-1-PR2S; DLMPR2
	GOTO;PR5NC1							/A111

PR5PL,	SET;2;MNQSTX							/M124
	TRNSFR;PR2RDY;DLMPR2

PR5SS,	SET;3;MNTMP1
	GOTO;PR5RDS

PR5RS,	SET;4;MNTMP1

PR5RDS,	SET;11;MNTMP5							/A111
	ARG;PR5NUM;MNTMP2						/M111
	NUMBER;MNTMP2;PR5NUM						/M111
	RANGE;MNTMP2;0;11;PR5NUM					/M111
	RETURN

PR5CP,	SET;1;MNTMP4							/A111
	SET;1747;MNTMP5							/A111
	ARG;PR5NUM;MNTMP2						/M111
	NUMBER;MNTMP2;PR5NUM		/MAKE SURE IT'S A NUMBER	/M111
	RANGE;MNTMP2;1;1747;PR5NUM	/DOES NOT ALLOW ZERO		/M111
	COPY;MNTMP2;MNQCPY		/STORE NEW RESULT		/M124
	GOTO;PR5TWD			/GOOD ARG			/M111

PR5OK,
PR5YES,	TRNSFR;PR9PST;DLMPR9						/A192
PR5AOK,	SET;1;MNTMP1
	RETURN

PR5PM,	SET;1747;MNTMP5							/A111
	ARG;PR5NUM;MNTMP2						/M111
	NUMBER;MNTMP2;PR5NUM						/A111
	RANGE;MNTMP2;0;1747;PR5NUM					/A111
	COPY;MNTMP2;MNQIND						/M124
	GOTO;PR5TWD							/A111

PR5TM,	SET;310;MNTMP5							/A111
	ARG;PR5NUM;MNTMP2						/M111
	NUMBER;MNTMP2;PR5NUM						/A111
	RANGE;MNTMP2;0;310;PR5NUM					/A111
	COPY;MNTMP2;MNQTMG						/M124
	GOTO;PR5TWD							/A111

PR5BM,	SET;310;MNTMP5							/A111
	ARG;PR5NUM;MNTMP2						/M111
	NUMBER;MNTMP2;PR5NUM						/A111
	RANGE;MNTMP2;0;310;PR5NUM					/A111
	COPY;MNTMP2;MNQBMG						/M124
PR5TWD,	TRNSFR;PR2TWD;DLMPR2						/A111

PR5NUM,	TRNSFR;PR2NUM;DLMPR2						/M111


XTRPR5=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/PRINT MENU ARGUMENT PROCESSING

RELOC
ADMPR6=.
X=DLMPR6			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

PR6NX,	TRNSFR;PR2TWD;DLMPR2						/A111

PR6IP,	ARG;PR6BN;MNTMP2						/A111
	NUMBER;MNQPGO;PR6BN						/M124
	GOTO;PR6NX

PR6FR,	ARG;PR6BN;MNTMP2						/A111
	NUMBER;MNQFRP;PR6BN						/M124
	GOTO;PR6NX

PR6TO,	ARG;PR6BN;MNTMP2						/A111
	NUMBER;MNQTOP;PR6BN						/M124
	GOTO;PR6NX

PR6AP,	ARG;PR6APN;MNTMP2
	KEYWRD
		TEXT 'YES ';PR6AP1
		TEXT 'NO ';PR6AP0

PR6APN,	DISP;-2717;TEXT ' !&AP YES OR NO'
	GOTO;PR6RD

PR6AP0,	SET;0;MNQAPG							/M124
	GOTO;PR6NX

PR6AP1,	SET;1;MNQAPG							/M124
	GOTO;PR6NX

PR6DA,	ARG;PR6DAN;MNTMP2
	KEYWRD
		TEXT 'DARK ';PR6DA1
		TEXT 'NORMAL';PR6DA0					/C088

PR6DAN,	DISP;-2717;TEXT ' !&DA DARK OR NORMAL'				/C088
	GOTO;PR6RD

PR6DA0,	SET;0000;MNQOVP			/DARKNESS NORMAL		/M124
	GOTO;PR6NX							/A034

PR6DA1,	SET;0001;MNQOVP			/DARKNESS DARK			/M124
	GOTO;PR6NX							/A034

PR6EO,	ARG;PR6EON;MNTMP2	/EVEN ODD ENTERED AT PRINT MENU		/A173
	KEYWRD								/A173
		TEXT 'O'; PR6EOO	/ODD				/A173
		TEXT 'E'; PR6EOE	/EVEN				/A173
		TEXT 'N'; PR6EOX	/NO				/A173
PR6EON,	DISP;-2710;TEXT '!&EO EVEN, ODD, OR NO'				/A173
	GOTO;PR6RD							/A173

PR6EOX,	CLRBIT;0002;MNQSP	/NO--CLEAR BOTH BITS			/A173
	GOTO;PR6EN1							/A173

PR6EOO,	SETBIT;0002;MNQSP						/A173
PR6EN1,	CLRBIT;0004;MNQSP						/A173
	GOTO;PR6NX							/A173

PR6EOE,	SETBIT;0004;MNQSP						/A173
	CLRBIT;0002;MNQSP						/A173
	GOTO;PR6NX							/A173

PR6SE,	CLRV								/A127
	ARG;PR6SEN;MNTMP2
	KEYWRD
		TEXT 'NO ';PR6SE0
		TEXT 'YES ';PR6SE2
		TEXT 'FIR';PR6SE1
		TEXT 'ALT';PR6SE3
		TEXT 'LET';PR6SE3					/A128
		TEXT 'FRO';PR6SE4
		TEXT 'REA';PR6SE5
		TEXT 'ENV';PR6SE6					/A127

PR6SEN,	DISP;-2710;TEXT ' !&SE YES, NO, FIRST, LETTER, FRONT, REAR, OR ENV'
PR6RD,	TRNSFR;PR2RD;DLMPR2

PR6SE6,	INCV								/A127
PR6SE5,	INCV								/A127
PR6SE4,	INCV								/A127
PR6SE3,	INCV								/A127
PR6SE2,	INCV								/A127
PR6SE1,	INCV								/A127
PR6SE0,	STOV;MNQSSM							/A127
	GOTO;PR6NX

PR6PI,	ARG;PR6PI2;MNTMP2						/A111
	NUMBER;MNTMP3;PR6PIC
	RANGE;MNTMP3;1;31;PR6PI2
	GOTO;PR6PIG

PR6PID,	SET;21;MNTMP3
PR6PIG,	COPY;MNTMP3;MNQPIT						/M124
	GOTO;PR6NX

PR6PIC,	SET;0;MNTMP3
	KEYWRD
		TEXT 'THEM';PR6PIG

PR6PI2,	TRNSFR;QD1PIE;DLMQD1

PR6BN,	TRNSFR;PR2NUM;DLMPR2

XTRPR6=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/START OF SECOND PRINT MENU

RELOC
ADMPR7=.
X=DLMPR7			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0


PR7D1,	DISP;0;TEXT '-- !&PRINT !&MENU (CONT.) --'
	DISP;200;TEXT '&TO CHANGE A SETTING TYPE THE LETTERS AND THE NEW SETTING '
	DISP;-1;TEXT 'AND PRESS !&RETURN.'
	DISP;400;TEXT '!&PL = &SHOW PAGE LAYOUT SETTINGS'
	DISP;-1;TEXT ' (PAGE SIZE, MARGINS, ETC.)'
	DISP;-600;TEXT '!&SE = &STOP BEFORE EACH SHEET (!&SE '

	CASE;MNQSSM		/test SE setting			/M124
		1;PR7SFI	   /SE FIRST
		2;PR7SEY	   /SE YES
		3;PR7SEL	   /SE LETTERHEAD
		4;PR7SEF	   /SE FRONT
		5;PR7SER	   /SE REAR
		6;PR7SEE	   /SE ENV

	DISP;-1;TEXT 'NO)'	/SE SETTING NOT RECOGNIZED
	GOTO;PR7PR7
									/M008

PR7SFI,	DISP;-1;TEXT 'FIRST)'
	GOTO;PR7PR7

PR7SEY,	DISP;-1;TEXT 'YES)'
	GOTO;PR7PR7

PR7SEL,	DISP;-1;TEXT 'LETTER)'
	GOTO;PR7PR7

PR7SEF,	DISP;-1;TEXT 'FRONT)'
	GOTO;PR7PR7

PR7SER,	DISP;-1;TEXT 'REAR)'
	GOTO;PR7PR7

PR7SEE,	DISP;-1;TEXT 'ENV)'

PR7PR7,	DISP;652;TEXT '!&CP = &NUMBER OF COPIES (!&CP !D)'
		MNQCPY							/M124
	DISP;-700;TEXT '!&AP = &AUTO. PAGINATE (!&AP '
	CASE;MNQAPG							/M124
		1;PR7APG
	DISP;-1;TEXT 'NO)'
	GOTO;PR7EXI

PR7APG,	DISP;-1;TEXT 'YES)'
PR7EXI,	TRNSFR;PR8D1;DLMPR8


XTRPR7=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/SECOND PRINT MENU CONTINUED

RELOC
ADMPR8=.
X=DLMPR8			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

PR8S,			/STANDARD LABEL AT MENU TOP


PR8D1,	DISP;752;TEXT '!&FR = &PRINT FROM PAGE NUMBER (!&FR !D)'
		MNQFRP							/M124

	DISP;-1000;TEXT '!&DD = &DOCUMENT DESTINATION ('

/There are several values that the Document Destination (MNQPNT) may be
/set at since this document may have been created on an RL based system
/which has destionation codes from 0 to 16 (octal) which are mapped to
/something more appropiate here and in WPRTOV.PA   If a change is made
/to this table, then a change must also be made to the way they are mapped
/in WPRTOV.PA
/The default for an unrecognized destination
/is the LQP so any values which would map to that are left out
/of the CASE statement
	CASE
	    MNQPNT							/M124
		DDP1;	PR8LP
		DDP2;	PR8LP
		DHOST1;	PR8HST
		DHOST2;	PR8DHO		/TRUE HOST			/C164
		DHOST3;	PR8HST
		DHOST4;	PR8HST
	DISP;-1;TEXT '!&LQP)'
	GOTO;PR8LND
									/A006
PR8LP,	DISP;-1;TEXT '!&DP)'
	GOTO;PR8LND

PR8DHO,	DISP;-1;TEXT '!&CHST)'						/C168
	GOTO;PR8LND

PR8HST,	DISP;-1;TEXT '!&CPTR)'						/C168

PR8LND,	DISP;1052;TEXT '!&TO = &PRINT THRU PAGE NUMBER (!&TO !D)'
		MNQTOP							/M124
	DISP;-1100;TEXT '!&DA = &DARKNESS (!&DA '
	CASE;MNQOVP							/M124
		0001; PR8OVP

	SET;PR8NRM;PR8NDK
PR8OVP,	DISP;-1;TEXT '^S)'
PR8NDK,		PR8DRK

	DISP;1152;TEXT '!&IP = &INITIAL PAGE NUMBER (!&IP !D)'
		MNQPGO							/M124
	DISP;-1200;TEXT '!&TW = &USE TWO WHEELS (!&TW '
	CASE;MNQTW							/M124
		1;PR8TWY
	DISP;-1;TEXT 'NO)'
	GOTO; PR8SHP							/A015

PR8TWY,	DISP;-1;TEXT 'YES)'
	GOTO;PR8SHP							/M015
PR8DRK,	TEXT 'DARK'
PR8NRM,	TEXT 'NORMAL'

PR8SHP,	DISP; 1300; TEXT '!&SP = &SHADOW &PRINT (!&SP ' 		/A015
	TSTBIT;MNQSP;0001;PR8SPN					/C173

	DISP; -1; TEXT 'YES)'						/C173
	TRNSFR; PR8OK; DLMQD1						/A015

PR8SPN,	DISP; -1; TEXT 'NO)'						/M124
	TRNSFR; PR8OK; DLMQD1						/A015

XTRPR8=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/START OF THIRD PRINTER MENU - THE PAGE LAYOUT SETTINGS PRETTY PICTURE

RELOC
ADMPR9=.
X=DLMPR9			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0


PR9QL,	TEXT 'QQQQQQQQQQQQQQQQQQ'

	PR94Q=PR9QL+7

PR9D2,	DISP;0;TEXT '!L  !&PM !D (SPACES)    !&CM !D (SPACES BETWEEN COLUMNS)'
		MNQIND;MNQCM						/M124
	DISP;100;TEXT '!CN+Q^S+';PR94Q
	DISP;200;TEXT 'LQ^SW^S^SK   +     +';PR94Q;PR9QL;PR9QL
	DISP;300;TEXT 'X &P &M X!P^S';PR9353;PR9X
	DISP;-400;TEXT 'X &R &A X!P!CO!&TOP !&MARGIN!CN!P X   X';PR9422;PR9453
	DISP;-1;TEXT '     X- !&TM !CO!D (LINES)!CN';MNQTMG		/M124
	DISP;500;TEXT 'X &I &R X!P^S';PR9553;PR9X
	DISP;600;TEXT 'X &N &G T^S^SU   X';PR9QL;PR9QL

	TRNSFR;PRAD2;DLMPRA
PR9353,	353
PR9453,	452
PR9422,	422
PR9553,	553
PR9X,	TEXT 'X   X     X'

PR9RT1,	PQUEUE;PR9QD;PR9QOK
				/ PQUEUE FALLS THROUGH IF		/A128
				/ QUEUE NOT EMPTY AND MUFNO		/A128
				/ IS NOT IN QUEUE			/A128
PR9QOK,				/ THIS DOC NOT ALREADY IN QUE SO	/A128
	CMND;1;210;CIF CDF 20	/ QUEUE IT UP FOR PRINTING
	RETURN

PR9QD,	CALL;CR2QDP;DLMCR2
	TRNSFR;MM1S;DLMMM1

	/THIS IS PART OF THE PR4 STUFF, MOVED HERE BECAUSE
	/IT FITS HERE, PLUS IT WINDS UP ON THIS PAGE ANYWAY.

PR2CNT,	DISP;-2504
	TEXT '&IF ALL SETTINGS ARE CORRECT TYPE !&YES, OTHERWISE TYPE !&NO,'
	DISP;-2604;TEXT 'THEN ^S.';PR9PRT				/A192
	TRNSFR;PR2CA;DLMPR2

PR9PST,	TSTBIT;MNPULD;4000;PR9AOK					/A192
	DISP;0;TEXT '!E^P&PRINTER &BUSY';PR9PRC				/A192
	DISP;1614;TEXT '&^S';PR9PRT					/A192
	READ;MNTMP1;PR9PSX						/A192
PR9PSX,	TRNSFR;PR3D0;DLMPR3						/A192

PR9PRC,	1424								/A192

PR9AOK,	TRNSFR;PR5AOK;DLMPR5						/A192
PR9PRT,	TEXT 'PRESS !&RETURN'						/M192

XTRPR9=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/THIRD PRINTER MENU CONTINUED

RELOC
ADMPRA=.
X=DLMPRA			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

PRA153,	1153
PRA353,	1353
PRA553,	1553
PRA653,	1653
PRA753,	753
PRA733,	1733

PRAD2,	DISP;-1;TEXT '     +'	/FINISH THE LINE 6 THERE IS NOT ENOUGH ROOOM ON
				/THE PREVIOUS MENU PR9 TO DISPLAY THIS

	DISP;700;TEXT 'X &T &I X!PX   X';PRA753
	DISP;1000;TEXT 'X &E &N X                          '
	DISP;-1;TEXT '          X   X     +'
	DISP;-1100
		TEXT 'X &R   X!PX   X     X- !&EX !CO!D (EXTRA HALF LINES)!CN' /M107
		PRA153;MNQLSZ						/M124
	DISP;1200;TEXT 'X     X     !CO!&THIS !&IS !&WHERE !&THE !&TEXT '
	DISP;-1;TEXT '!&OF!CN      X   X     +'
	DISP;1300;TEXT 'X     X!PX   X';PRA353
	DISP;1400;TEXT 'X     X   !CO!&THE !&DOCUMENT !&WILL !&BE '
	DISP;-1;TEXT '!&PRINTED!CN     X   X'
	DISP;-1500;TEXT 'X     X!PX   X- !&PS !CO!D (TOTAL LINES)!CN';PRA553;MNQPSZ /M124
	DISP;1600;TEXT 'X     X                     +-+!PX   X'
		PRA653
	DISP;-1700;TEXT 'X     X!P!&PI !CN';PRA733
	TRNSFR;PRBD2;DLMPRB

XTRPRA=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/THIRD PRINTER MENU CONTINUED

RELOC
ADMPRB=.
X=DLMPRB			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

PRBD2,	CASE;MNQPIT							/M124
		0;PRAPPI
	DISP;-1;TEXT '!D';MNQPIT					/M124
	DISP;2000;TEXT 'X     X!CO!P(PITCH IN CHARS/IN.)!CN'
		PRB024
	GOTO;PRASPI
PRAPPI,	DISP;-1;TEXT '!COTHEME!CN'
	DISP;-2000;TEXT 'X     X!P!CO(PITCH)!CN';PRB037
PRASPI,
	DISP;1753;TEXT 'X   X'
	DISP;2053;TEXT 'X   X'
	DISP;2100;TEXT 'X     X!PX   X';PRBA53
	DISP;2200;TEXT 'X     T^SU   X     +';PRBHL
	DISP;2300;TEXT 'X     X!PX   X     X';PRBC53
	DISP;-2400;TEXT 'X     X!CO!P!&BOTTOM !&MARGIN!CN';PRBD20
	DISP;2453;TEXT 'X   X     X- !CO!&BM !D (LINES)!CN';MNQBMG	/M124
	DISP;2500;TEXT 'X     X!PX   X     X';PRBE53
	DISP;2600;TEXT 'MQQQQQV^SJ   +     +!CO';PRBHL
	DISP;2720;TEXT '&JUST PRESS !&RETURN TO GET BACK TO THE OTHER MENU.'
	TRNSFR;PR2CA;DLMPR2

PRB024,	2024
PRB037,	2034
PRBA53,	2153
PRBHL,	TEXT 'QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ'
PRBC53,	2353
PRBD20,	2420
PRBE53,	2553

XTRPRB=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/MORE OF THE FIRST AND SECOND PRINT MENUS

RELOC
ADMPRC=.
X=DLMPRC			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC	0

	/THIS IS THE CODE THAT WILL INTERPRET WHAT IS TYPED FOR R1 & R2

PRCS1,	ARG;PRCSE1;MNTMP2
	COPY;MNQSB2;PRCRN1	/SET UP VALUES FOR RANGE CHECK		/A170
	COPY;MNQSB2;PRCRN1+1	/... 					/A170
	RANGE;MNARG		/CHECK FOR EQUALITY			/A170
PRCRN1,	XX;XX								/A170
	PRCR1S			/GO TO THIS LABEL IF DIFFERENT		/A170
PRCRCE,	DISP;-2700;TEXT '&R1 AND &R2 MUST BE DIFFERENT. &TRY AGAIN.'	/A170
	GOTO;PRCRE1							/A170

PRCR1S,	COPY;MNARG;MNQSB1						/M124

PRCRED,	DISP;-2700;TEXT ''
PRCRE1,	TRNSFR;PR2RDN;DLMPR2

PRCS2,	ARG;PRCSE2;MNTMP2
	COPY;MNQSB1;PRCRN2	/SET UP VALUES FOR RANGE CHECK		/A170
	COPY;MNQSB1;PRCRN2+1	/...					/A170

	RANGE;MNARG		/CHECK FOR EQUALITY			/A170
PRCRN2,		XX;XX		/...STORE VALUES HERE			/A170
		PRCR2S		/GO TO THIS LABEL IF DIFFERENT		/A170
	GOTO;	PRCRCE		/REPLACEMENT CHARACTERS ARE SAME	/A170

PRCR2S,	COPY;MNARG;MNQSB2						/M124
	GOTO;PRCRED

PRCSE1,	SET;0;MNQSB1							/M124
	GOTO;PRCRED

PRCSE2,	SET;0;MNQSB2							/M124
	GOTO;PRCRED

	/THE FIST PRINT MENU THE PART DEALING WITH SB1 AND 2

PRCCN2,	DISP;-2204;TEXT ''
	CASE;MNQSB1							/M124
		0;PRCSB1
	COPY;MNQSB1;PRCSTR						/M124
	DISP;-1;TEXT "'^A' IS THE FIRST REPLACEMENT CHARACTER";PRCSTR

PRCSB1,	DISP;-2304;TEXT ''
	CASE;MNQSB2							/M124
		0;PRCSB3
	COPY;MNQSB2;PRCSTR						/M124
	DISP;-1;TEXT "'^A' IS THE SECOND REPLACEMENT CHARACTER";PRCSTR

PRCSB3,	TRNSFR;PR2CNT;DLMPR9

	/THE SECOND PRINT MENU BOTTOM

PRCCNT,	DISP;2000;TEXT '!&SS = &STORE PRINT SETTINGS'
	DISP;2100;TEXT '!&RS = &RETRIEVE STORED PRINT SETTINGS'
	DISP;-2413;TEXT '&IF ALL SETTINGS ARE CORRECT, TYPE !&OK '
	MXDISP;-1;X02APR;DLMX02		/'AND PRESS RETURN'		/C170
	MXDISP;-2513;X02PGM;DLMX02	/'OR Press Gold Menu ...
	DISP;2565;TEXT ' WITHOUT PRINTING.'	/overwrite '.' in X02PGM

	TRNSFR;PR2CA;DLMPR2
PRCSTR,	ZBLOCK	2

XTRPRC=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/ PRINT QUEUE MESSAGES AND OTHER STUFF

RELOC
ADMQD1=.
X=DLMQD1			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0


QD1CM,	SET;1747;MNTMP5							/A111
	ARG;QD1NUM;MNTMP2
	NUMBER;MNTMP1;QD1NUM
	RANGE;MNTMP1;0;1747;QD1NUM					/A111
	COPY;MNTMP1;MNQCM						/M124
QD1CM1,	TRNSFR;PR2TWD;DLMPR2						/M111

QD1NUM,	TRNSFR;PR2NUM;DLMPR2

QD1PIE,	DISP;2717;TEXT '!&PI MAY BE FOLLOWED BY A NUMBER BETWEEN 1 AND 25'
	DISP;-1;TEXT ' OR THEME'
	TRNSFR;PR2RD;DLMPR2

QD1PS,	SET;1;MNTMP4							/A111
	SET;310;MNTMP5							/A111
	ARG;QD1NUM;MNTMP2	/ CHECK FOR A VALID PAGE SIZE < 200	/M111
	NUMBER;MNTMP3;QD1NUM						/M111
	RANGE;MNTMP3;1;310;QD1NUM					/M111
	COPY;MNTMP3;MNQPSZ						/M124
	GOTO;QD1CM1							/M111

QD1EX,	SET;3;MNTMP5							/A111
	ARG;QD1NUM;MNTMP2						/M111
	NUMBER;MNTMP3;QD1NUM						/M111
	RANGE;MNTMP3;0;3;QD1NUM						/M111
	COPY;MNTMP3;MNQLSZ						/M124
	GOTO;QD1CM1							/M111

PR8OK,	DISP;-1252;TEXT '&E&O = &EVERY &OTHER PAGE (&E&O '		/A184
	TSTBIT;MNQSP;6;EOPNO	/IF NEITHER BIT IS SET WE AREN'T EO	/A184
	TSTBIT;MNQSP;4;EOPODD	/IF NOT THIS BIT WE ARE ODD		/A184
	DISP;-1;TEXT 'EVEN)'	/ELSE WE ARE EVEN			/A184
	GOTO;PR8OK1		/					/A184
EOPNO,	DISP;-1;TEXT 'NO)'	/EO NO					/A184
	GOTO;PR8OK1		/					/A184
EOPODD,	DISP;-1;TEXT 'ODD)'	/EO ODD					/A184
PR8OK1,	DISP;-1500;TEXT '&R1 = &R^S1 ';PR8REP
	CASE;MNQSB1							/M124
		0;PR8SB1
	COPY;MNQSB1;PR8STR						/M124
	DISP;-1;TEXT '(&R1 ^A)';PR8STR

PR8SB1,	DISP;-1600;TEXT '&R2 = &R^S2 ';PR8REP
	CASE;MNQSB2							/M124
		0;PR8SB2
	COPY;MNQSB2;PR8STR						/M124
	DISP;-1;TEXT '(&R2 ^A)';PR8STR

PR8SB2,	TRNSFR;PRCCNT;DLMPRC	/CONTINUE DISPLAYING THE SENCOND PRINT MENU

PR8REP,	TEXT 'EPLACEMENT CHARACTER FOR EXTRA PRINT WHEEL POSITION '

PR8STR,	ZBLOCK	2

XTRQD1=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/CREATE DOCUMENT ENTRY MENU

RELOC
ADMPP1=.
X=DLMPP1			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0


PP1S,	CALL; CM2FNM; DLMCM2		/ Check out dangling filename	/A051
	CASE; MNTMP1; 0; -1-MM0RD; DLMMM0/ check for erroroneous filename/A051

PP1S1,	DISP;0;TEXT '!E    '
	FILNAM;PP1RD;PP1ND

PP1DF,	DISP; 2205; TEXT '^A'; PP1BEL					/A126
	IFDEF	CONDOR	<						/A126
	TSTBIT; MNOPTN; MNRX2X; PP1NW1  / CK FOR WINCHESTER		/A126
	CASE; MNDRV			/ YES, CK FOR AREA 1		/A126
	  0; PP1NW1			/ 0 MUST BE A DRIVE		/A126
	  1; PP1A1T			/ 1 DRIVE OR DEVICE, GO CK.	/A126
PP1DSW,	DISP; -1; TEXT '&DEVICE'					/A126
	GOTO; PP1DF1							/A126
PP1A1T,	TSTBIT; MNOPTN; MNRX3X; PP1NW1	/ CK FOR VOLUME ASSIGNED	/A126
	GOTO; PP1DSW			/ YES				/A126
		>	/ END IFDEF CONDOR				/A126
PP1NW1,	DISP; -1; TEXT '&DRIVE'						/A126
PP1DF1,	DISP; -1; TEXT ' !D ALREADY HAS A DOCUMENT NAMED !A'		/A126
		MNDRV
		MNFNAM

	DISP;2405;TEXT '&PRESS !&RETURN TO TRY ANOTHER NAME.'

	READ;MNTMP1;PP1DF
	ARG;PP1RD;MNTMP1
	GOTO;PP1DF

PP1RD,	DISP;0;TEXT '!E     '
	DISP;2105;TEXT '&TYPE THE NAME TO BE GIVEN TO THE DOCUMENT YOU WISH TO CREATE'

	DISP;2205;TEXT 'AND PRESS !&RETURN'
	DISP;2405;TEXT '!&OR &PRESS &GOLD !&MENU TO RECALL THE &MAIN &MENU.'

	READ;MNTMP1;PP1RE
	GOTO;PP1S1

PP1RE,	CASE;MNSYSA							/M117
		EDMENU&3777;PP1MM
	CALL;CR1BR;DLMCR1
	GOTO;PP1RD

PP1MM,	TRNSFR;MM1S;DLMMM1

PP1ND,	SET;0;MNTMP2
	SET;0;MNMATH		/INITIALIZE MATH FLAG
	TSTBIT;MNOPTC;MABIT;PP1EX	/CHECK IF MATH IS SET
	SET;1;MNMATH		/SET MATH FLAG

PP1EX,	CMND;1;204;CIF CDF 20
	RETURN

PP1BEL,	BELL;0

XTRPP1=400-.

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

RELOC
ADMED1=.
X=DLMED1			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0


/****** THIS CODE MUST BE AT THE START OF A BLOCK ***			/A157

/ CALLED FROM "PHONE" WHEN GOING TO "LOGON"				/A157

	SET; 11; MNTMP6		/ SHOW "PHONE" GETTING FILE FOR "LOGON" /A157
	TSTBIT;MNLGFN;-1;ED1RD	/ TRANSFER IF NO DEFAULT FILE SET	/A163
	COPY;MNLGFN;MNUTFN	/ SET UP DEFAULT LONON FILE		/M179
	RETURN			/ GO USE DEFAULT LOGON FILE		/A163

/D163 ED1PHL,	ARG; ED1RD; MNTMP1/ DRAIN FILENAME AND GO GET FILE	/A157
/D163	GOTO; ED1PHL		/ LOOP UNTIL EMPTY			/A157

/ EDIT, DELETE, PRINT, LOGON, PHONE pre-processing			/M157
/ THE FOLLOWING VALUES ARE DEFINED FOR MNTMP1 AND MNTMP6
/ 0 FOR DELETE.
/ 1 FOR PRINT.
/ 2 FOR EDIT.
/ 3 FOR SEND.
/ 4 FOR USE (LOGON MENU)
/ 5 FOR RECEIVE THE TEXT" (CX TO DOC)
/ 6 FOR SPELL CHECK.
/ 7 FOR LOAD USER DICTIONARY
/ 10 FOR USE (PHONE MENU)
/ 11 FOR USE (LOGIN FOR PHONE)
/ 12 FOR FOOTNOTING
/ 13 FOR UPDATE USER DIRECTORY

/D179	ED1DE,	SET;0;MNTMP6		/ 0 for DELETE.			/A112
/D179		GOTO;ED1PRM		/ Prompt for filename.		/A112
/D179	ED1PR,	SET;1;MNTMP6		/ 1 for PRINT.			/A112
/D179		GOTO;ED1PRM		/ Prompt for filemane.		/A112
/D179	ED1S,	SET;2;MNTMP6		/ 2 for EDIT.			/A112
/D179		GOTO;ED1PRM		/ Prompt for filename.		/A112

ED1PH,	SET; 10; MNTMP6			/ 10 for PHONE			/A157
	TSTBIT;MNADFN;-1;ED1PRM		/ SKIP IF NO DEFAULT FILE SET	/A179
	GOTO;ED1TFN			/ GO CHECK FOR A FILE NAME	/A179
/D179	GOTO; ED1PRM							/A157

ED1LO,	DISP;0;TEXT '!E'		/ CLEAR SCREEN FOR LOGON ENTRY	/A163
	SET;4;MNTMP6			/ 4 for LOGON.			/A112
	TSTBIT;MNLGFN;-1;ED1PRM		/ SKIP IF NO DEFAULT FILE SET	/A163

ED1TFN,	COPY;MNPOS;MNTMP2		/ SAVE CURRENT POSITION		/A163
	ARG;ED1BL;MNTMP1		/ CHECK FOR A BLANK LINE	/M179
	COPY;MNTMP2;MNPOS		/ NO, RESTORE POSITION		/A163
	GOTO;ED1PRM			/ GO HANDLE USER SPECIFIED FILE	/A163

ED1BL,	CASE;MNTMP6			/ CHECK WHICH DEFAULT FILE TO USE /A179
	    10;ED1PHF			/ GO SET UP PHONE FILE		/A179

ED1LGF,	COPY;MNLGFN;MNUTFN		/ SET UP DEFAULT LONON FILE	/M179
	GOTO;ED1RT			/ GO USE DEFAULT LOGON FILE	/A163

ED1PHF,	COPY;MNADFN;MNUTFN		/ SET UP DEFAULT AUTODIAL FILE	/A179
	GOTO;ED1RT			/ GO USE DEFAULT AUTODIAL FILE	/A179

IFDEF CONDOR	<							/A131
ED1SC,	
/USER WANTS SPELL, STOP HIM USING PRINT SCREEN THEN
	SETBIT;4000;MNPULD
	TSTBIT;MNOPTN;MNRX6X;-1-CI1NAP;DLMCI1	/ Check for APU board	/M157
		>			/ End ifdef condor		/A131
/D155	GOTO;ED1PRM			/ Prompt for filename.		/A121
									/A112
ED1PRM,	CALL; CM2FNM; DLMCM2		/ Check out dangling filename	/A051
	CASE; MNTMP1; 0; -1-MM0RD; DLMMM0/ check for erroroneous filename/A051
	DISP;0;TEXT '!E'

ED1PRF,	FILNAM;ED1RD;ED1ND	/ CHECK VALIDITY OF FILE NAME		/M179
ED1UFN,	COPY;MNFNO;MNUTFN	/ SET UP UTILITY FILE NUMBER IF NEEDED	/A179

ED1RT,	CASE;MNTMP6		/ Now determine which utility to startup/A112
	   0;ED1DEX		/ 0 for DELETE.				/A112
	   1;-1-PR9RT1;DLMPR9	/ 1 for PRINT.				/A112
	   4;-1-MM0LO;DLMMM0	/ 4 for LOGON.				/A112
IFDEF CONDOR	<		/ No spell on a DM I			/A149
	   6;ED1SEX		/ 6 for Spell Check.			/A121
	   7;ED1SE1		/ 7 for Load user dictionary		/A131
	  10; -1-MM0PH; DLMMM0	/ 10 for PHONE				/A157
	  11; ED1LV		/ 11 for ret. to PHONE with LOGON file  /A157
	  12;-1-PPMOKR;DLMPPM	/ FOR FOOTNOTING			/A155
	  13;ED1SEX		/ 13 for Update user dictionary		/A172
		>		/ END IFDEF CONDOR			/A149
	/  2;.+1		/ 2 for EDIT.				/A112
	SET;0;MNMATH		/INITIALIZE MATH FLAG
	TSTBIT;MNOPTC;MABIT;ED1EX	/CHECK MATH BIT;TRANSFER IF OFF
	SET;1;MNMATH		/IF ON, SET FLAG

ED1EX,				/ DELETE DOCUMENT--CHECK PRINT QUEUE
	PQUEUE;QD1QD;QD1EDR		/ PQUEUE FALLS THROUGH IF 	/A128
					/ QUEUE NOT EMPTY AND		/A128
					/ MNFNO DOESN'T MATCH		/A128
QD1EDR,	CMND;2;200;CIF 10	/ CALL DELETE DOCUMENT CU
ED1LV,	RETURN								/M157

QD1QD,	CALL;CR2QDE;DLMCR2
	TRNSFR;MM1S;DLMMM1



ED1ND,	CALL;CR1ND;DLMCR1
ED1RD,	COPY;MNTMP6;MNTMP1	/ Set for PROMPT.			/M112
	CASE; MNTMP6		/ SPECIAL CASE WHEN CALLED FROM WPLOG	/A157
	  11; ED1RD1		/ ...					/A157
	CALL;CM2DSP;DLMCM2	/  ...					/A109
	GOTO; ED1RD2		/					/A157
ED1RD1,	CALL; CM2NCS;DLMCM2	/ DON'T CLEAR SCREEN ENTRY POINT	/A157
ED1RD2,	READ;MNTMP1;ED1RE
	CASE;MNFNO
		0;ED1PRF						/M179
	FILNAM;ED1NN;ED1ND
	GOTO;ED1UFN		/ SET UP FILE NAME AND START		/M179

/D179	ED1F01,	FILNAM;ED1RD;ED1ND
/D179	GOTO;ED1RT

ED1RE,	CASE;MNSYSA							/M117
/D157		EDMENU&3777; -1-MM1S;DLMMM1
		EDMENU&3777; ED1GM					/A157
	CALL;CR1BR;DLMCR1
	GOTO;ED1RD

ED1GM,	CASE; MNTMP6	/ FORCE A RETURN TO WPLOG IF REQUIRED		/A157
	  11; ED1LV							/A157
	TRNSFR; MM1S; DLMMM1	/ NORMAL GOLD MENU RETURN		/A157

ED1NN,	CASE;MNFNO
		0;ED1ND
	GOTO;ED1UFN		/ SET UP FILE NAME AND START		/M179

/ Delete exit.

ED1DEX,	PQUEUE;ED1QD;ED1QOK
				/ PQUEUE FALLS THROUGH IF		/A128
				/ QUEUE NOT EMPTY AND MUFNO		/A128
				/ IS NOT IN QUEUE			/A128
				/ THUS WE MAY EDIT WHILE PRINTING	/A128
				/ PROVIDED THE PARTICULAR DOCUMNET	/A128
				/ IS NOT IN THE PRINT QUEUE		/A128
ED1QOK,									/A128
	CMND;20;200;CIF CDF 20
	RETURN
ED1QD,	CALL;CR2QDD;DLMCR2
	TRNSFR;MM1S;DLMMM1

IFDEF CONDOR	<							/A131
/ Load user dictionary							/A131

/D169 ED1SE1,	TSTBIT;	MNOPTN;	MNRX7X;	ED1SEX	/ Check if the APU has been loaded/A131
/D169	GOTO;	ED1SE2			/ It has been...		/A131

ED1SE1,	TSTBIT;MNFMAT;MNFM3X;ED1AMR	/ Check which dictionary req'std/A169
	TSTBIT;MNPULD;MNRX1X;ED1SEX	/  British req. Is it loaded ?	/A169
	GOTO;ED1SE2			/   Yes it is...		/A169
ED1AMR,	TSTBIT;MNPULD;MNRX0X;ED1SEX	/  American req. Is it loaded ?	/A169
	GOTO;ED1SE2			/   Yes it is...		/A169

/ APU has been loaded once, how does the user wish to modify the	/A131
/  user dictionary area.						/A131

SE2RD1,	CASE;	MNSYSA							/A131
		EDMENU&3777;	-1-MM1S;	DLMMM1			/A131

SE2RD2,	DISP;	0;	TEXT '^CG'					/M169

ED1SE2,	TRNSFR;	PR1APU;	DLMPR1	/ Display the user prompt		/A131
ED1APU,				/ Return here to read users response	/A131
SE2RD,	READ;	MNTMP1;	SE2RD1						/A131
	ARG;	SE2RD;	MNTMP1						/A131
	KEYWRD								/A131
		TEXT 'A ';SE2ADD	/ ADD to user dictionary	/A131
		TEXT 'O ';SE2OVR	/ OVERWRITE user dictionary	/A131
	GOTO;	SE2RD2			/ GARBAGE			/A131

SE2ADD,	SET;	0;	MNTMP5		/ 0 - TMP5 for ADD		/A131
	GOTO;	ED1SEX							/A131

SE2OVR,	SET;	1;	MNTMP5		/ 1 - TMP5 for OVERWRITE	/A131
/D179	GOTO;	ED1SEX							/A131

/ Spelling Corrector exit.

ED1SEX,
	SETBIT;4000;MNPULD	/ SWITH OFF PRINT SCREEN
	CMND;21;7400;CIF 10						/M132
	RETURN			/ START UP THE SPELLING CORRECTOR	/A121

/D169 ED1BEL,	7;0								/A131
		>			/END IFDEF CONDOR		/A131
XTRED1=400-.

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

RELOC
		FIELD 3							/A036
		*0							/A036
ADMDU1=.
X=DLMDU1			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

/ THE BEGINNING OF THIS PAGE IS ENTERED FROM CPYDSK			/A074
/ AND HARD DISK MENU							/A160
DU1SS,									/A160
	CLRRTN		/CLEAR THE PENDING RETURN			/A074

DU1S,	SET;1;MNTMP1		/ENTRY POINT MC FROM MAIN MENU
	PQUEUE;DU1FQ;DU1EQU
					/ PQUEUE FALLS THROUGH IF 	/A128
					/ QUEUE NOT EMPTY AND		/A128
					/ MNFNO DOESN'T MATCH		/A128
DU1FQ,	SET;0;MNQCPY		/SPECIFY "DOCUMENTS"			/A128
	CALL;CR2FQ;DLMCR2

DU1MM,	TRNSFR;MM1S;DLMMM1

DU1EQU,	DISP; 0; TEXT '!E-- '
	IFNDEF CONDOR	<						/A126
	DISP; -1; TEXT '!&DISKETTE '
	>	/ END IFNDEF CONDOR					/A126
	DISP; -1; TEXT '!&MAINTENANCE !&MENU --'			/A126

/D129	IFDEF UNBUND <							/A004
	DISP;305;TEXT '&A = &ACTIVATE OPTIONAL FEATURES'		/A004
/D129	>		/END IFDEF UNBUND				/A004

	IFNDEF CONDOR	<						/A054
	IFNDEF STORECPY <						/A046
	DISP;505;TEXT '&B = &MAKE !&BACKUP COPY OF YOUR^S';DU1DSK	/A036
		>		/END STORECPY				/A046
	>	/END IFNDEF CONDOR					/A054

	IFDEF	CONDOR	<						/A054
	DISP;505;TEXT '&B = &MAKE !&BACKUP COPY OF YOUR^S';DU1DSK	/A054
	>	/END IFDEF CONDOR					/A054

	DISP;705;TEXT '&C = &COPY^S';DU1DOC				/C181
	DISP;1105;TEXT '&D = &^S^S^S';DU1INI;DU1DOC;DU1DSK  		/C181

	IFNDEF	CONDOR	<						/A054
	IFNDEF STORECPY <						/A046
	DISP;1305;TEXT '&S = &^S^S AND COPY SYSTEM ONLY'		/C181
			DU1INI; DU1DSK;					/C181
		>		/END STORECPY				/A046
	>	/END IFNDEF CONDOR					/A054

	DISP;1305;TEXT '&S = &^S^S';DU1INI; DU1DSK			/C181

		IFDEF CONDOR <						/A181
	TSTBIT;MNOPTN;MNRX2X;DU1SMS	/TEST FOR HARD DISK		/A181
	DISP;-1;TEXT '^S';DU1VOL					/A181
		>							/A181

DU1SMS,	DISP;-1;TEXT ' AND COPY SYSTEM ONLY'				/A181

	DISP;1505;TEXT '&V = &VERIFY STRUCTURE OF^S';DU1DSK		/M004

	IFDEF	CONDOR <						/A054
	TSTBIT;MNOPTN;MNRX1X;DU1WIN					/C126
	>	/ END IFDEF CONDOR					/A126

	DISP;1704;TEXT '!&FD = &FORMAT DOUBLE DENSITY^S';DU1DSK
	DISP;2104;TEXT '!&FS = &FORMAT SINGLE DENSITY^S';DU1DSK

	IFDEF CONDOR	<						/A126

DU1WIN,	TSTBIT;MNOPTN;MNRX2X;DU1RX2					/A126

	DISP;0552;TEXT '^S';DU1VOL					/A126
	DISP;1147;TEXT '^S';DU1VOL					/A126
	DISP;1545;TEXT '^S';DU1VOL					/A126
	DISP;1705;TEXT '!&AV = &ASSIGN VOLUMES ON HARD DISK'  		/C181
		>	/END IFDEF CONDOR

DU1RX2,	SET;0;MNTMP4	/ CLEAR TEMP 4 TO ZERO				/A098

	TRNSFR;DU2RD0;DLMDU2						/A058

DU1INI,	TEXT 'INITIALIZE A'					/A004	/C065
DU1DSK,	TEXT ' DISKETTE'						/A004
DU1DOC,	TEXT ' DOCUMENT'						/A181
	IFDEF	CONDOR	<						/A126
DU1VOL,	TEXT ' OR VOLUME'						/A126
	>	/ END IFDEF CONDOR					/A126

XTRDU1=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/MORE OF INITIALIZE UTILITY
/REWROTE THIS TO MAKE IT MORE READABLE					/A074

RELOC
ADMDU2=.
X=DLMDU2			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

DU2RD0,	DISP; 2405; TEXT '&TYPE THE LETTER(S) AND PRESS !&RETURN,'

	CALL;DU8PG;DLMDU8		/ "OR PRESS GOLD ...		/A074

DU2RD1,	READ;MNTMP1;DU2RE		/ READ WHAT THE USER TYPED IN	/A036
	CLRV		/ CLEAR OUT THE VALUE				/A074
	STOV; MNTMP3	/ CLEAR OUT SIGNAL FOR TWO INPUT TRANSACTIONS	/A074
	STOV; MNTMP5	/ INITIALIZE MNTMP5				/A078

	ARG;DU2RD1;MNTMP1		/ GET ARGUMENT TYPED IN		/A036
	KEYWRD								/A036

/D129	IFDEF UNBUND <							/A036
	TEXT 'A ';-1-DU2UNB;DLMDU2					/A036
/D129	>				/ END IFDEF UNBUND		/A036

	IFNDEF STORECPY <						/A046
	TEXT 'B ';DU2BB			/ BACK UP COPY WANTED?		/A036

/D150	IFNDEF	CONDOR	<						/A126
	TEXT 'S '; DU2SC		/ SYSTEM DISKETTE INIT?		/A036
/D150		>	/ END IFNDEF CONDOR				/A126

/D150	IFDEF	CONDOR	<						/A126
/D150	TEXT 'S '; DU2SC1		/ SYSTEM DISKETTE INIT?		/C126
					/ CK FOR WINCHESTER FIRST	/A126
/D150		>	/ END IFDEF CONDOR				/A126

		>		/END STORECPY				/A046

	TEXT 'C ';-1-DU6DSP;DLMDU6	/ COPY UTILITY WANTED?		/A036
	TEXT 'D ';DU2DC			/ DOCUMENT INITIALIZATTION?	/A036
	TEXT 'V ';DU2VC			/ VERIFY A DISKETTE		/A054

	IFDEF CONDOR	<						/A054
	TSTBIT;MNOPTN;MNRX1X;DU2WT	/ IF NOT RXO2, IGNORE FD/FS	/A054
		>	/ END IFDEF CONDOR				/A054

	KEYWRD				/ ALLOW FS/FD TO FALL THRU	/A054

	TEXT	'F  ';DU2ER		/ ONLY F, ERROR			/A054
	TEXT	'FD ';DU2FD		/ GO PROCESS FORMAT DBL		/A054
	TEXT	'FS ';DU2FS		/ GO PROCESS FORMAT SNGL	/A054

	IFDEF	CONDOR	<						/A126

DU2WT,	TSTBIT;MNOPTN;MNRX2X;DU2ER					/A126
	KEYWRD								/A126
	TEXT	'AV '; DU2WUC		/ HARD DISK MAINT. MENU	/M160	/A126
	>	/ END IFDEF CONDOR

DU2ER,	CALL;CR1NM;DLMCR1		/ GO TELL HIM HE MADE A MISTAKE
	GOTO;DU2RD1			/ READ THE NEXT TRY.		/A040


DU2RE,	CASE; MNSYSA							/A036
		EDMENU&3777;DU2MM	/ CHECK FOR GOLD MENU AGAIN	/A036
	CALL;CR1BR;DLMCR1		/ ERROR-TYPE ONLY LEGAL CHAR.	/A036
	TRNSFR;DU1S;DLMDU1		/ GO DISPLAY MAIN MENU		/A036
DU2MM,	TRNSFR;DU1MM;DLMDU1		/ GOLD MENU			/A036

/DONT ALLOW PRINT SCREENS WHEN USER WANTS TO BACKUP AS IT MAY TRY	/A196
/TO BLAST FROM THE SYSTEM DISK						/A196
DU2BB,  SETBIT;4000;MNPULD		/AVOID PRINT SCREENS		/A196
        GOTO;DU2BBC

DU2FD,	INCV		/ USER TYPED	"FD"				/A074
DU2FS,	INCV		/		"FS"				/A074
DU2DC,	INCV		/		"D"				/A074
DU2SC,	INCV		/		"S"				/A074
DU2BBC,	INCV		/		"B"				/A074
DU2VC,	STOV; MNTMP1							/A074
	TRNSFR;DU5RD1;DLMDU5	/ GO GET DRIVE NUMBERS			/A054

/ "DU2SC1" NOT REFERENCED IN CREF					/A181
/ TRANSFER TO "DU2SC1" WAS DELETED BY EDIT 150				/A181
/D181	DU2SC1,	TSTBIT; MNOPTN; MNRX2X; DU2SC	/ CK FOR WINCHESTER	/A126
/D181	TRNSFR; DUACKN; DLMDUA		/ YES - GO CK DRIVE NUMBER	/A126

DU2WUC,	CMND; 31; 200; CIF 10		/ SET UP FOR OVERLAY		/A126
	RETURN								/A126

DU2VRF,	CMND;14;200;CIF 10		/ SET UP OVERLAY PARAMETERS
	RETURN				/ TRANSFER TO VERIFY PROGRAM

	IFDEF UNBUND <							/A004
DU2UNB,	SET;0;MNTMP5			/CLEAR SCREEN REFRESH FLAG	/A004
	CMND;25;204;CIF CDF 20		/UNBUNDLING OPERATIONS		/A004
	RETURN								/A004
	>				/END IFDEF UNBUND		/A004

	IFNDEF	UNBUND	<						/A129
DU2UNB,	TRNSFR;UB1AF;DLMUB1		/GO TO ACTIVATE FEATURES MENU	/A129
			>		/END IFNDEF UNBUND		/A129

DU2FDS,	DISP;0;TEXT '!E-- !&FORMAT !&^S!&UTILITY --';DU2FDM		/C177

	DISP;1505;TEXT '&INSERT THE ^STHAT IS TO BE FORMATTED '		/C177
	*.-1								/A177
	TEXT 'INTO DRIVE !D';DU2FDM;MNTMP5	/DISPLAY DRIVE NBR	/C177

	DISP;1705;TEXT '&AND WHEN READY TYPE !&FORMAT AND THEN'		/C177
	*.-1								/A177
	TEXT ' &PRESS !&RETURN'						/C177

	TRNSFR;DU3ORP;DLMDU3						/A054

/ PART OF "VERIFY DISKETTE" MESSAGE FOR MC-B				/A177

DU2MS2,	DISP;1003;TEXT "&ANY ERRORS ON THE !&SOURCE !&^SWILL BE COPIED"	/A177
	*.-1								/A177
	TEXT " TO THE DESTINATION";DU2FDM				/A177
	TRNSFR;DU4DS3;DLMDU4						/A181
/D181	RETURN								/A177

DU2FDM,	TEXT "DISKETTE "						/A177

XTRDU2=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/ MORE OF INITIALIZE UTILITY
/ THIS MENU DISPLAY IS CALLED FROM TWO PLACES.  FROM THE 'MC' MENU DISPLAY
/ AND FROM COPY DISK FORMAT ROUTINE.  THE CMND INSTRUCTIONS ARE INACTIVE
/ WHEN THE ORIGINAL MENU CALL IS FROM ASSEMBLY LANGUAGE LEVEL.

RELOC
ADMDU3=.
X=DLMDU3			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0


DU3DSP,	DISP;0;TEXT '!E  -- !&INITIALIZE '
	IFDEF	CONDOR	<						/A126
	SET; 0; MNTMP4			/ RESET DISKETTE/VOLUME FLAG	/A126
		>	/ END IFDEF CONDOR				/A126
	CASE;MNTMP1			/ CHECK FOR SYSTEM INITIALIZATION
		2;DU3SYS
	DISP;-1;TEXT '!&DOCUMENT'
	GOTO;DU3SY1			/CHECK FOR WINNIE		/A150
DU3SYS,	DISP; -1; TEXT '!&SYSTEM'					/A150
DU3SY1,								/A150
	IFNDEF	CONDOR	<						/A126
	GOTO; DU3NWN							/A126
		>	/ END IFNDEF CONDOR				/A126

	IFDEF	CONDOR	<						/A126
	TSTBIT;MNOPTN;MNRX4X;DU3SY2	/IS DRIVE 0 WINNIE?	/A153
	RANGE;MNTMP5;10;MNMXDR;DU3DSV	/IF 8 OR 9 THEN DISKETTE	/C154
	GOTO;DU3NWN						/C154
DU3SY2,								/A153
	TSTBIT;MNOPTN;MNRX2X;DU3NWN	/ CK FOR WINCHESTER		/A126
	CASE; MNTMP5							/A126
	  1;  DU3TD1			/ CK FOR DRIVE/DEVICE = 1	/A126
	GOTO; DU3DSV			/ GO DISPLAY "VOLUME		/A126
DU3TD1,	TSTBIT; MNOPTN; MNRX3X; DU3NWN	/ IS A VOLUME ASSIGNED TO DEV 1	/A126
DU3DSV,	DISP;-1;TEXT ' !&VOLUME !&MENU --'		/ YES		/A126
	SET; 1; MNTMP4			/ FLAG AS A VOLUME		/A126
	GOTO; DU3NME							/A126
		>	/ END IFDEF CONDOR				/A126

DU3NWN,	DISP; -1; TEXT ' !&^S!&MENU --';DSKMS1				/C177
	CASE;MNTMP3;	/ DON'T ASK HIM TO PUT DISK IN DRIVE 1 IF WE'RE
		1;DU3NME	/ FOLLOWING A FORMAT COMMAND
	DISP;1505;TEXT '&PUT THE ^STO BE INITIALIZED INTO ';DSKMS1	/C177
	DISP;-1;TEXT 'DRIVE !D.';MNTMP5		/DISPLAY DR NBR		/A054

DU3NME,	DISP;1705;TEXT '&TYPE A SIX CHARACTER NAME TO BE GIVEN TO THE '

	IFDEF	CONDOR	<						/A126
	TSTBIT; MNTMP4; TEST1; DU3SVL	/CK VOLUME OR DISKETTE		/A126
	DISP; -1; TEXT 'VOLUME '					/A126
	GOTO; DU3SV2							/A126
		>	/ END IFDEF CONDOR				/A126

DU3SVL,	DISP; -1; TEXT '^S';DSKMS1					/C177
DU3SV2,	DISP; -1; TEXT 'AND PRESS !&RETURN,'

	CALL;DU8PG;DLMDU8	/"OR PRESS GOLD..."			/A074

DU3RD,	READ;MNTMP4;DU3RE
DU3OVR,	TRNSFR;CPMLOD;DLMCPM	/ GET CPYDSK'S MENU BLOCK IN & LET IT	/C147
				/  DO THE "CMND" TO START CPYDSK	/A147
/D147	RETURN

DU3RE,	SET;0;MNTMP4			/ SET INDICATOR FOR GOLD MENU
	CASE; MNSYSA
		EDMENU&3777;-1-MM1S;DLMMM1
	CALL;CR1BR;DLMCR1		/CLOBBER MNTMP1			/A074
	STOV;MNTMP1			/RESTORE MNTMP1			/A074
	GOTO;DU3DSP

DU3ORP,	CALL;DU8PG;DLMDU8		/"OR PRESS GOLD..."		/A074
	CASE;MNTMP1			/ GO TO DBL/SGL DEN FORMAT	/A036
		4;-1-DU4RD;DLMDU4	/ GO DO SINGLE DEN FORMAT	/A036
		5;-1-DU4FD;DLMDU4	/ GO DO DOUBLE DEN FORMAT	/A036

/DU3PG,	DISP; -1							/A074
/	TEXT '!&OR &PRESS &GOLD !&MENU TO RECALL THE &MAIN &MENU.'
/	RETURN								/A074

DU3DS,	SET;0;MNTMP3			/ SIGNAL CALL FROM MAIN MENU	/M074
	GOTO;DU3DSP			/ JOIN CODE AT THE TOP		/A074
/DU3DKM,	TEXT ' !&DISKETTE !&MENU --'

/ PART OF "VERIFY DISKETTE" MESSAGE FOR MC-B				/A177

DU3MS1,	DISP;0703;TEXT "&REMEMBER TO VERIFY THE !&SOURCE !&^SBEFORE " 	/A177
	*.-1								/A177
	TEXT "THE COPY";DSKMS1						/A177
	TRNSFR;DU2MS2;DLMDU2						/A181
/D181	RETURN								/A177

DSKMS1,	TEXT "DISKETTE "						/A177

XTRDU3=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/MORE OF INITIALIZE UTILITY

RELOC
ADMDU4=.
X=DLMDU4			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

DU4FD,	DISP;-633;TEXT '&C &A &U &T &I &O &N'				/A036
	DISP;-1005;TEXT '!&THE !&DOUBLE !&DENSITY '			/A036
	DISP;-1;TEXT '!&DISKETTE !&THAT !&YOU !&ARE '			/A036
	DISP;-1;TEXT '!&ABOUT !&TO !&FORMAT'				/A036
	DISP;-1105;TEXT '!&WILL !&NOT !&BE !&COMPATIBLE '		/A036
	DISP;-1;TEXT '!&WITH !&OLDER !&SINGLE '				/A036
	DISP;-1;TEXT '!&DENSITY !&WPS !&SYSTEMS'			/A036

DU4RD,					/ READ WHAT USER TYPED IN	/A036
	COPY;MNTMP1;MNTMP2		/SAVE TEMP
DU4RRD,	READ;MNTMP1;DU4RE2		/ IF GOLD MENU GO CHECK IT	/A036
	ARG;DU4RRD;MNTMP1		/ SET UP FOR COMPARE		/A036
	KEYWRD								/A036
		TEXT 'FORMA ';DU4ERR	/ IF THIS MUCH THEN ERROR	/A036
		TEXT 'FORMAT ';DU4OK	/ GO PROCESS IT			/A036

DU4ERR,	CALL;CR1NM;DLMCR1		/NO MEANING MESSAGE - GO ISSUE IT
	GOTO;DU4RRD			/READ USER AGAIN

DU4OK,	DISP;100;TEXT '!E'		/ ERASE SCREEN			/A036
	COPY;MNTMP2;MNTMP1		/ RESTORE TEMP			/A036
	CMND;4;200;CIF 10		/ CALL COPY			/A036
	RETURN								/A036

DU4RE2,	CASE; MNSYSA			/ CHECK FOR GOLD MENU		/A036
	  EDMENU&3777;-1-MM1S;DLMMM1	/ IF GOLD MENU DISPLAY IT	/A082
	CALL;CR1BR;DLMCR1		/ WRONG KEYS MESSAGE		/A036
	DISP;2000;TEXT '!E'		/ ERASE SCREEN			/C082
	CALL;DU8PG;DLMDU8		/ "OR PRESS GOLD MENU ..."	/A074
	GOTO;DU4RRD			/ GO BACK FOR USER INPUT

DU4DS2,	DISP; -2717; TEXT '&DO NOT USE DRIVE'				/C126

	IFDEF	CONDOR	<						/A126
	TSTBIT; MNOPTN; MNRX2X; DU4NW1					/A126
	DISP; -1; TEXT '/DEVICE'					/A126
		>	/ END IFDEF CONDOR				/A126

DU4NW1,	DISP; -1; TEXT ' "!D". &TRY AGAIN.'; MNTMP2			/C126
	TRNSFR; DU9DSR; DLMDU9						/C126

DU4MC,	DISP; -1; TEXT 'PRESS !&RETURN TO RECALL THE '			/A160
	DISP; -1; TEXT '&MAINTENANCE &MENU,'				/A160
	RETURN								/A160

/ PART OF "VERIFY DISKETTE" MESSAGE FOR MC-B				/A177

DU4DS0,									/A177
	CASE;MNTMP1		/ TEST FOR DOING BACKUP			/A177
		1;DU4DS1	/ YES; MAY NEED MESSAGE			/A177
	GOTO;DU4DS3		/ NOT; RETURN				/A177

DU4DS1,									/A177
	CASE;MNTMP3		/ TEST FOR SOURCE DRIVE REQUEST		/A177
		1;DU4DS3	/ OUTPUT DRIVE REQUEST, SKIP MESSAGE	/A177

	TRNSFR;DU3MS1;DLMDU3	/ LINE ONE OF MESSAGE			/A181
/D181	CALL;DU2MS2;DLMDU2	/ LINE TWO				/A177

DU4DS3,				/ EXIT					/A177
	RETURN								/A181
/D181	TRNSFR;DU8DS0;DLMDU8
XTRDU4=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/	LOADPOINT/COPY UTILITY DISPLAYS

RELOC
ADMDU5=.
X=DLMDU5			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

DU5CIT,	SET;1;MNTMP3		/ SIGNAL FIRST DISPLAY DONE		/A036

DU5DS1,	DISP;0;TEXT '!E-- !&COPY !&DOCUMENT --'				/A036
	DISP; -1505; TEXT 'TO BE COPIED AND PRESS !&RETURN,'		/C126
	DISP; -1305; TEXT '&TYPE THE DRIVE'				/C126

/DON'T ALLOW PRINT SCREENS WHEN COPYING INCASE SHE IS USING DRIVE ZERO	/A196
/AS PRINT SCREEN MAY TRY TO BLAST FROM THE SYSTEM DISK !!		/A196
	SETBIT;4000;MNPULD	/THIS SHOULD MAKE P.S. BACK OFF		/A196

	IFDEF	CONDOR	<						/A126
	TSTBIT; MNOPTN; MNRX2X; DU5NW1					/A126
	DISP; -1; TEXT '/DEVICE'					/A126
		>	/ END IFDEF CONDOR				/A126

DU5NW1,	CASE;MNTMP3;1;DU5DS2						/A036
	DISP; -1; TEXT '^S TO !&RECEIVE ^S'; DU5NUM; DU5DOC		/A036
	CALL; DU8PG; DLMDU8		/ "OR PRESS GOLD MENU ..."	/A126
	TRNSFR;DU7RE3;DLMDU7			/ GO READ DRIVE NUMBER	/A036

DU5DS2,	DISP; -1; TEXT '^S THAT !&CONTAINS ^S'; DU5NUM; DU5DOC		/A036
	CALL; DU8PG; DLMDU8		/ "OR PRESS GOLD MENU ..."	/A126
	TRNSFR;DU7RE1;DLMDU7	/ GO READ THE FIRST DRIVE NUMBER	/A036

DU5RD1,	ARG;DU5NCH;MNTMP5						/A054
	NUMBER;MNTMP5;DU5NRG						/A054
	COPY;MNMXDR;DU5RNG	/ COPY MAXIMUM DRIVE NUMBER		/A054
	CASE;MNTMP1		/ SET UP MINIMUM DRIVE NUMBER		/A054
		0;DU5MV2	/ 0 ON VERIFY				/C161
		1;DU5MV0	/ 0 ON BACK UP				/A054
			/****NEXT 2 LINE WILL ALLOW DRIVE #G.T. 1	/A100
	IFDEF CONDOR	<						/A100
		4;DU5MV4	/ 4 ON FS				/A078
		5;DU5MV4	/ 4 ON FD				/A078
			>	/END IFDEF CONDOR			/A100
	SET;1;DU5RN1		/ 1 ON ALL OTHERS			/A054

DU5CPY,	COPY;DU5RN1;MNTMP4						/A054
	RANGE;MNTMP5							/A054

DU5RN1,	0								/A054
DU5RNG,	0;DU5NRG							/A054
	SET;0;MNTMP4							/A054
	CASE;MNTMP1;0;DU5SV	/ SPECIAL FOR VERIFY			/A054
		1;DU5SC		/ SPECIAL FOR BACK UP COPY		/A054
/D150		2;DU5SYS	/ SYSTEM				/A074

DU5RTN,	CASE;MNTMP1
		0;-1-DU2VRF;DLMDU2					/A054
		1;-1-DU3OVR;DLMDU3				/A054	/C074
		2;-1-DU3DS;DLMDU3				/A054	/C074
		3;-1-DU3DS;DLMDU3				/A053	/C074
		4;-1-DU2FDS;DLMDU2					/A054
		5;-1-DU2FDS;DLMDU2					/A054

	IFDEF CONDOR	<						/A161
DU5MV0,								/C161
	CASE;MNTMP3;0;DU5MV2		/SOURCE DRIVE 0 OK		/A161
	TSTBIT;MNOPTN;MNRX4X;DU5MV2	/DEST DRIVE=0 BOOTING FROM WINNIE/A161
DU5MV1,	SET;1;DU5RN1							/A161
	GOTO;DU5CPY							/A161
			>	/END IFDEF CONDOR			/A161
	IFNDEF CONDOR	<						/A161
DU5MV0,								/C161
			>	/END IFNDEF CONDOR			/A161
DU5MV2,									/A161
	SET;0;DU5RN1		/ ALLOW DRIVE 0				/A054
	GOTO;DU5CPY							/A054

DU5MV4,	SET;4;DU5RN1		/ SET MINIMUM DRIVE NO.=4		/A078
	GOTO;DU5CPY							/A078

DU5NRG,	SET;2;MNTMP3		/ SIGNAL TO RETURN HERE			/A054
	TRNSFR;DU9DSP;DLMDU9	/ GO DISPLAY THE MESSAGE		/A054

DU5RD3,	CASE; MNSYSA							/A054
		EDMENU&3777;-1-MM1S;DLMMM1				/A054

	CALL;CR1BR;DLMCR1	/CLOBBER MNTMP1				/A074
	STOV;MNTMP1		/RESTORE MNTMP1				/A074
	GOTO;DU5NRG							/A054

DU5NCH,				/ NO ARGUMENT AFTER COMMAND		/A054
	CASE;MNMXDR;1;DU5DR1	/ TWO DRIVE SYSTEM?			/A054
DU5TR1,	TRNSFR;DU8DSP;DLMDU8	/   NO					/A054
DU5DR1,	CASE;MNTMP1;		/   YES					/A054
		0;DU5SET	/ VERIFY?				/A054
		1;DU5TR1	/ BACK UP; OUTPUT "VERIFY ... "		/A181
/D181		1;DU5SET	/ BACK UP COPY?				/A054
	SET;1;MNTMP5		/ NO, SET DRIVE NUMBER TO 1		/A054
	GOTO;DU5RTN		/ CONTINUE				/A054

DU5SET,	SET;1;MNTMP2		/ DEFAULT TO DRIVE 1 AS SOURCE		/A054
	SET;0;MNTMP5		/ DEFAULT TO DRIVE 0 AS DESTINATION	/A054
	GOTO;DU5RTN		/ 					/A054

DU5SC,	TRNSFR;DU9SC;DLMDU9						/A054

DU5SV,	TRNSFR;DU9BCX;DLMDU9						/A054

/D150DU5SYS,	RANGE; MNTMP5; 1; 3; DU5NOS	/ SYSTEM INITIALIZE		/A074
/D150	GOTO; DU5RTN
/D150DU5NOS,	SET; 6; MNTMP1			/ SIGNAL OUT OF RANGE
/D150	TRNSFR; DU3OVR; DLMDU3		/ GO TELL COPYDISK

DU5DOC,	TEXT 'THE DOCUMENTS'						/A036
DU5NUM,	TEXT ' NUMBER'							/A126

XTRDU5=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/ MAIN COPY MENU						/A036
RELOC
ADMDU6=.
X=DLMDU6			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

DU6DSP,	DISP;0;TEXT '!E-- !&COPY !&DOCUMENT --'				/A036
	DISP; 0705; TEXT '&A = &COPY !&ALL^S^S'; DU6DOC; DU6FOD   /C126/M115
	DISP; 1105; TEXT '&S = &COPY !&SOME^S^S'; DU6DOC; DU6FOD  /C126/M115
	DISP; 1305; TEXT '&O = &COPY^S, !&ONE AT A TIME,^S'; DU6DOC; DU6FOD

	IFDEF	CONDOR	<						/A126
	TSTBIT; MNOPTN; MNRX2X; DU6NW1					/A126
	DISP; -0755; TEXT '^S'; DU6VOA					/A126
	DISP;  1156; TEXT '^S'; DU6VOA					/A126
	DISP;  1371; TEXT '^S'; DU6VOA					/A126
	GOTO; DU6WM1							/A126
		>	/ END IFDEF CONDOR				/A126

DU6NW1,	DISP; -0755; TEXT '^S'; DU6TAO					/A126
	DISP;  1156; TEXT '^S'; DU6TAO					/A126
	DISP;  1371; TEXT '^S'; DU6TAO					/A126
DU6WM1,	DISP;  2405; TEXT '&TYPE THE LETTER AND PRESS !&RETURN,'	/A036
	CALL;DU8PG;DLMDU8		/ "OR, PRESS GOLD ..."		/A078

DU6RD,	READ;MNTMP1;DU6RE1		/ READ SOMETHING FROM SCREEN	/A036
	ARG;DU6RD;MNTMP1		/ SET UP TO DETERMINE WHAT READ /A036
	KEYWRD				/ COMP WHAT'S READ TO FOLLOWING /A036
		TEXT 'A ';DU6ALL	/ IS IT COPY ALL DOCUMENTS?	/A036
		TEXT 'S ';DU6SOM	/ IS IT COPY SOME DOCUMENTS?	/A036
		TEXT 'O ';DU6ONE	/ OR IS IT COPY 1 DOCUMENT?	/A036

DU6ER,					/ NONE OF ABOVE MEANS ERROR	/A036
	CALL;CR1NM;DLMCR1		/ CALL ERROR MESSAGE RTNE	/A036
	GOTO;DU6RD			/ GO READ THE SCREEN AGAIN	/A036

DU6RE1,	CASE; MNSYSA			/ GOLD MENU PRESSED?		/A036
	 EDMENU&3777; -1-MM1S; DLMMM1	/ YES, GO CALLMAIN MENU		/A036
	CALL;CR1BR;DLMCR1		/ NO, USER PRESSED WRONG KEYS	/A036
	GOTO;DU6DSP			/ GO BRING UP UTITLITY MENU	/A036

DU6ALL,					/ COPY ALL DOCUMENTS		/A036
	SET;3;MNTMP1			/ TELL COPY WE WANT ALL DOCS	/A036
	GOTO;DU6OVR			/ GO CALL COPY			/A036

DU6SOM,					/ TELL COPY WE WANT SOME DOCS	/A036
	SET;2;MNTMP1			/ COPIED (NOT ALL)		/A036
	GOTO;DU6OVR			/ GO CALL COPY			/A036

DU6ONE,					/ TELL COPY WE WANT TO COPY	/A036
	SET;1;MNTMP1			/ ONLY ONE DOCUMENT AND THEN... /A036

DU6OVR,					/ DO THE CALL			/A036
	TRNSFR;DU5CIT;DLMDU5		/ GO ASK FOR DRIVE NUMBERS	/A036

DU6DS2,									/C126
	DISP; -2717; TEXT '&DO NOT USE DRIVE'			/A036	/C126

	IFDEF CONDOR	<						/A126
	TSTBIT; MNOPTN; MNRX2X; DU6DNW					/A126
	DISP; -1; TEXT '/DEVICE'					/A126
		>	/ END IFDEF CONDOR				/A126

DU6DNW,	DISP; -1; TEXT ' "!D". &TRY AGAIN.';MNTMP5			/C126
	TRNSFR;DU7RE3;DLMDU7						/A036

DU6DOC,	TEXT ' DOCUMENTS'
DU6FOD,	TEXT ' FROM ONE DISKETTE'					/M115
DU6TAO, TEXT ' TO ANOTHER'						/A126
	IFDEF	CONDOR	<						/A126
DU6VOA, TEXT '/VOLUME TO ANOTHER'					/A126
		>	/ END IFDEF CONDOR				/A126

XTRDU6=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/ INTERFACE PAGE FOR COPY FILE						/A036
RELOC
ADMDU7=.
X=DLMDU7			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0
DU7IRD,	CASE;MNTMP5							/A036
		1;DU7RDN	/ GO READ THE FILE NAME			/A036

DU7RD,			/ ENTRY POINT FROM COPY FILE			/A036
	READ;MNTMP1;DU7RE	/ READ INPUT FROM TERMINAL		/A036
	CASE;MNTMP4		/ SEE WHERE WE CAME FROM		/A036
		1;DU71AR		/ IS IT A TBO?			/A036
		2;DU72AR		/ IS IT A FILE NAME?		/A036
/  NOTE THAT THIS FALLS THRU ON ANY VALUE > 2				/A036

DU7RDN,	FILNAM;DU7RD;DU7ND	/ CHECK FILE NAME			/A036
	RETURN								/A036

DU7RE,	SET;0;MNTMP3		/ SIGNAL GOLD CHARACTER HIT		/A036
	RETURN								/A036

DU7ND,	SET;-1;MNTMP3		/ SIGNAL BAD FILE NAME			/A036
	RETURN								/A036

DU71AR,	ARG;DU7RT;MNTMP1		/ SET UP FOR CHECK		/A036
	KEYWRD;								/A036
		TEXT 'T ';DU7TOP	/ WRITE TO TOP OF DOCUMENT?	/A036
		TEXT 'B ';DU7BOT	/ WRITE TO BOTTOM OF DOC?	/A056
		TEXT 'O ';DU7OVR	/ OVERWRITE DOCUMENT?		/A036
		TEXT 'E ';DU7RNM	/ RENAME THE DOCUMENT?		/A036
	GOTO;DU7ND							/A036

DU7TOP,	SET;6;MNTMP3	/ SIGNAL A WRITE TO TOP OF DOC			/A036
	RETURN								/A036

DU7BOT,	SET;1;MNTMP3							/A036
	RETURN								/A036

/D114DU7OVR,	SET;4;MNTMP3		/ SIGNAL OVERWRITE			/A036
/D114	RETURN								/A036

DU7RNM,	SET;2;MNTMP3		/ SIGNAL A RENAME			/A036
	RETURN								/A036

DU7RT,	SET;3;MNTMP3	/ SIGNAL THAT HE HIT RETURN			/A036
	RETURN								/A036

DU7CLL,	SET;1;MNTMP2		/ SIGNAL FIRST TIME THRU		/A036
	CMND;13;200;CIF CDF 10						/A036
	RETURN								/A036

DU7OVR,									/A114
DU72AR,	SET;4;MNTMP3	/ SIGNAL IT BE SO				/A036
	RETURN								/A036

DU7RE1,	READ;MNTMP4;DU7RE2						/A036
	ARG;DU7RE1;MNTMP4		/ SET UP FOR RANGE STATEMENT	/A036
	NUMBER;MNTMP4;DU7CK		/ IS THIS A NUMBER?		/A036
	CASE;MNMXDR;		/ IS THIS A TWO DRIVE SYSTEM?		/A054
		1;DU7RA1	/ YES					/A054
DU7RH1,									/a194
	COPY;MNMXDR;DU7RG2						/A054
	RANGE;MNTMP4;0							/A054
DU7RG2,	0;DU7CK								/A054
	SET;2;MNTMP3			/ SIGNAL "TO" DRIVE IS READ/A036/M054
	GOTO;DU7DS1		/ GO GET THE 'TO' DRIVE NUMBER		/A049

DU7RA1,	CASE;MNTMP1;			/ ARE WE ONLY COPYING ONE FILE	/A194
		1;DU7RH1		/ YES THEN ALLOW A RECIEVE DEV	/A194
	COPY;MNMXDR;DU7RG3						/A054
	RANGE;MNTMP4;0							/A054
DU7RG3,	0;DU7CK2							/A054

	CASE; MNTMP4		/ 'FROM' DRIVE EQUAL 0 ?		//A126
	  0; DU7ST1		/ YES, GO SET 'TO' DRIVE TO 1		//A126
	SET; 0; MNTMP5		/ NO, SET 'TO' DRIVE TO 0		//A126
	GOTO; DU7CLL		/ GO CALL CPYFIL PROGRAM TO DO COPY	//A126
DU7ST1,	SET; 1; MNTMP5		/ SET 'TO' DRIVE TO 1			//A126
	GOTO; DU7CLL		/ GO CALL CPYFIL PROGRAM TO DO COPY	//A126

DU7RE3,	READ;MNTMP5;DU7RE2	/READ THE DRIVE NUMBER			/A036
	ARG;DU7RE3;MNTMP5	/ SET UP FOR RANGE STATEMENT		/A036
	NUMBER;MNTMP5;DU7CK	/ IF NOT A NUMBER THEN ERROR		/A036
/
/D116	RANGE;MNTMP5;0;3;DU7CK	/IS DRIVE # VALID?			/A114
/
	COPY;MNMXDR;DU7RG4						/A054
	RANGE;MNTMP5;0							/A054
DU7RG4,	0;DU7CK								/A054
	COPY;MNTMP5;DU7CS1						/A054
	CASE;MNTMP4;							/A054
DU7CS1,
	0;DU7ERR							/A054
	GOTO;DU7CLL		/ BOTH ARE DIFFERENT, OK		/A036

DU7CK,
/D114	DISP;-2717;TEXT '&DRIVE &NUMBERS MUST BE 0, 1, 2, OR 3. &TRY'	/A036
/D114	DISP;-1;TEXT ' AGAIN.'						/A036
/D125	DISP;-2717; TEXT '&DRIVE &NUMBERS MUST BE 0 TO !D. &TRY AGAIN';MNMXDR	/A054

	DISP; -2717; TEXT '&DRIVE'					/A126

	IFDEF	CONDOR	<						/A126
	TSTBIT; MNOPTN; MNRX2X; DU7NW1					/A126
	DISP; -1; TEXT '/&DEVICE'					/A126
		>	/ END IFDEF CONDOR				/A126

DU7NW1,	DISP; -1; TEXT ' NUMBERS MUST BE 0 TO !D.'; MNMXDR		/A126
	DISP; -1; TEXT ' &TRY AGAIN.'					/A126

	CASE;MNTMP3		/ ARE WE READING THE 'FROM' DRIVE NBR?	/A036
		1;DU7RE1	/ YES, GO ASK FOR 'FROM' DRIVE		/A036
	GOTO;DU7RE3		/ MUST BE READING THE 'TO' DRIVE	/A036

DU7ERR,
	CASE; MNTMP1		/ ARE WE DOING A COPY 1			/A126
	1; DU7CLL		/ YES					/A126
				/ NO, THEN ERROR BOTH DRIVES EQUAL	/A036
	TRNSFR;DU6DS2;DLMDU6	/ GO OUTPUT MESSAGE AND DO AGAIN	/A036

DU7RE2,				/ CHECK TO SEE IF GOLD MENU HIT		/C089
	COPY;MNTMP1;MNTMP2	/ SAVE WHATS IN MNTMP1			/A089
	CASE; MNSYSA							/A036
		EDMENU&3777;-1-MM1S;DLMMM1				/A036
	CALL;CR1BR;DLMCR1	/ IF HIT GO RECALL MAIN MENU		/A036
	COPY;MNTMP2;MNTMP1	/ RESTORE MNTMP1 PREVIOUSLY SAVED	/A089

DU7DS1,	TRNSFR;DU5DS1;DLMDU5		/ GO ASK FOR DRIVE NUMBER	/A036
		
DU7CK2,	DISP;-2717;TEXT '&DRIVE &NUMBERS MUST BE 0 OR 1. &TRY AGAIN.'	/A049
	GOTO;DU7RE1							/A049

XTRDU7=400-.

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

/ THIS IS THE ENTRY POINT WHEN CPYDSK DETERMINES THAT THE DISKS		/A074
/ ARE OF A DIFFERENT DIAMETER						/A074

	CLRRTN			/ CLEAR THE PENDING RETURN		/A074

DU8BCD,	SET;0;MNTMP3							/A054

DU8DSP,	SET;0;MNTMP4							/A054
	DISP;305;TEXT '!E'						/A054
	CALL;DU4DS0;DLMDU4	/ OUTPUT "VERIFY DISKETTE ... "		/C181
DU8DS0,				/ COME BACK TO HERE FROM "DU4DS0"	/A177
	DISP;1303;TEXT '&TYPE THE DRIVE'		/A054M064	/C126

	IFDEF	CONDOR	<						/A126
	TSTBIT;MNOPTN;MNRX2X;DU8NW1					/A126
	DISP;-1;TEXT '/DEVICE'						/A126
		>	/ END IFDEF CONDOR				/A126

DU8NW1,	DISP;-1;TEXT ' NUMBER THAT !&CONTAINS THE ^S';DU8DSK		/A126

	IFDEF CONDOR	<						/A126
	TSTBIT;MNOPTN;MNRX2X;DU8NW2					/A126
	DISP;-1;TEXT '^S';DU8VOL					/A126
		>	/ END IFDEF CONDOR				/A126

DU8NW2,	DISP;1503;TEXT 'YOU WANT TO '					/C126

	CASE;MNTMP1
		0;DU8VER		/ VERIFY
		1;DU8BCK		/ BACKUP			/A054
		2;DU8SYS		/ INIT SYS DISK
		3;DU8DOC		/ INIT DOC DISK			/A054
		4;DU8FS			/ FORMAT SINGLE DENSITY
		5;DU8FD			/ FORMAT DOUBLE DENSITY		/A054

DU8VER,	DISP;-1;TEXT 'VERIFY'					/A054
	GOTO;DU8BOT							/A054

DU8SYS,	DISP;-1;TEXT '^S SYSTEM ^S';DU8INT;DU8DSK		/A054
	GOTO;DU8DO2							/C150

DU8DOC,	DISP;-1;TEXT '^S DOCUMENT ^S'; DU8INT; DU8DSK		/A054

DU8DO2,								/A150
	IFDEF	CONDOR	<						/A126
	TSTBIT;MNOPTN;MNRX2X;DU8NW3					/A126
	DISP;-1;TEXT '^S'; DU8VOL					/A126
		>	/ END IFDEF CONDOR				/A126

DU8NW3,	GOTO; DU8BOT

DU8FS,	DISP;-1;TEXT 'FORMAT SINGLE ^S';DU8DEN			/A054
	GOTO;DU8BOT							/A054

DU8FD,	DISP;-1;TEXT 'FORMAT DOUBLE ^S';DU8DEN			/A054
	GOTO;DU8BOT							/A054

DU8BCK,	CASE;MNTMP3
		1;DU8TDR						/A054

	DISP;-1;TEXT 'COPY'						/M064
	GOTO;DU8BOT							/A054

DU8TDR,	DISP;-1;TEXT 'RECEIVE THE COPY'				/M064

DU8BOT,	DISP; -1;TEXT ' AND PRESS !&RETURN,'				/A054
	CALL;DU8PG;DLMDU8		/ "OR, PRESS GOLD ..."		/A078
	TRNSFR;DU9RE1;DLMDU9						/A054

DU8DSK,	TEXT 'DISKETTE'							/A054

DU8DEN,	TEXT 'DENSITY'							/A054

DU8INT,	TEXT 'INITIALIZE AS A'						/A126

	IFDEF CONDOR	<						/A126
DU8VOL,	TEXT '/VOLUME'						/A126
		>	/ END IFDEF CONDOR				/A126

DU8PG,	DISP;2605;0							/C126
	DISP;-1								/C126
	TEXT '!&OR PRESS &GOLD !&MENU TO RECALL THE &MAIN &MENU.'	/C126
	RETURN								/C126

XTRDU8=400-.

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

DU9RE1,	READ;MNTMP5;DU9GLK						/A054
	ARG;DU9BC2;MNTMP5	/ IF NONE ENTERED GO ASK AGAIN		/A054
	NUMBER;MNTMP5;DU9DSP	/ IF NOT NUMBER, GO TELL HIM		/A054
	COPY;MNMXDR;DU9RG2	/ COPY HI DRIVE NUMBER FOR COMPARE	/A054
	CASE;MNTMP1		/ SET UP MINIMUM DRIVE NUMBER		/A054
		0;DU9MV2	/ 0 ON VERIFY				/C161
		1;DU9MV0	/ 0 ON BACK UP				/A054
	IFNDEF CONDOR	<
		4;DU9MV1	/ 1 ON FS				/A103
		5;DU9MV1	/ 1 ON FD				/A103
			>	/END IFDEF CONDOR			/A103
	IFDEF CONDOR	<
		4;DU9MV4	/ 4 ON FS				/A078
		5;DU9MV4	/ 4 ON FD				/A078
			>	/END IFDEF CONDOR			/A103
	SET;1;DU9RG1		/ 1 ON ALL OTHERS			/A054

DU9RN1,	COPY;DU9RG1;MNTMP4	/ LO DR NBR, IN CASE WE DISPLAY IT	/A054
	RANGE;MNTMP5		/ CHECK DRIVE NUMBER RANGE		/A054
DU9RG1,		0		/ 	LOWEST ALLOWABLE		/A054
DU9RG2,		0		/	HIGHEST ALLOWABLE		/A054
		DU9DSP		/	GO DISPLAY IT IF NOT IN RANGE	/A054

	CASE;MNTMP1
		0;DU9BCX	/ GO DO 2ND DRIVE NBR ON VERIFY		/A054
		1;DU9BC1	/ OR BACK UP COPY			/A054
/D150		2;-1-DU5SYS;DLMDU5	/ ON SYS GO CHECK SIZE		/A074

DU9RTN,	TRNSFR;DU5RTN;DLMDU5						/A054

	IFDEF CONDOR	<						/A161
DU9MV0,
	CASE;MNTMP3;0;DU9MV2		/SOURCE DRIVE 0 OK		/A161
	TSTBIT;MNOPTN;MNRX4X;DU9MV2	/DEST DRIVE=0 BOOTING FROM WINNIE/A161
DU9MV1,	SET;1;DU9RG1	/DEST DRIVE 0 ON WINNIE BOOT NOT ALLOWED/A161
	GOTO;DU9RN1							/A161
			>	/END IFDEF CONDOR			/A161
	IFNDEF CONDOR	<						/A161
DU9MV0,
			>	/END IFNDEF CONDOR			/A161
DU9MV2,									/A161

	SET;0;DU9RG1		/ SET MINIMUM DRIVE=0			/A054
	GOTO;DU9RN1		/ GO COMPARE DRIVE NUMBERS		/A054

	IFDEF CONDOR	<
DU9MV4,	SET;4;DU9RG1		/ SET MINIMUM DRIVE=4			/A078
			>	/END IFDEF CONDOR			/A103

	IFNDEF CONDOR	<
DU9MV1,	SET;1;DU9RG1		/ SET MINIMUM DRIVE=1			/A103
			>	/END IFNDEF CONDOR			/A103

	GOTO;DU9RN1		/ GO CHECK DRIVE NUMBER RANGE		/A078

DU9GLK,	CASE; MNSYSA		/ CHECK IF GOLD KEY WAS HIT		/A054
		EDMENU&3777;-1-MM1S;DLMMM1	/ GOLD MENU HIT		/A054

	CALL;CR1BR;DLMCR1	/ GOLD JUNK--CLOBBER MNTMP1		/A074

	STOV;MNTMP1		/ RESTORE MNTMP1			/A074
	TRNSFR; DU8DSP; DLMDU8	/ GO REDISPLAY				/A074

DU9BC1,	CASE;MNTMP3;1;DU9RN3	/ HAS FIRST DRIVE BEEN READ?		/A054
	SET;1;MNTMP3	/ SHOW THAT 1ST DRV HAS BEEN READ		/A054
	COPY;MNTMP5;MNTMP2	/ 1ST DR NBR TO TEMP 2 (BY CONVENTION)	/A054
	CASE;MNMXDR;1;DU9BC3	/ IF ONLY A 2-DR SYSTEM, NEED NOT ASK	/A054

DU9BC2,	TRNSFR;DU8DSP;DLMDU8	/ GO ASK FOR OTHER DRIVE		/A054

DU9BCX,	COPY;MNTMP5;MNTMP2	/ 1ST DR NBR TO TEMP 2 (BY CONVENTION)	/A054
	CASE;MNMXDR;1;DU9BC3	/ IF ONLY A 2-DR SYSTEM, NEED NOT ASK	/A054
	GOTO;DU9RTN							/A054

DU9BC3,	CASE;MNTMP2
		0;DU9ST1	/ IF SORCE DRV=0, MOVE 1 TO OTHER	/A054
		1;DU9ST2	/ IF SOURC DRV=1, MOVE 0 TO OTHER	/A054

DU9ST1,	SET;1;MNTMP5	/ SET TEMP 5 TO OTHER DRV NBR (BY CONVENTION)	/A054
	GOTO;DU9RTN							/A054


DU9DSP,
/D126	DISP;-2717;TEXT '&DRIVE NUMBERS MUST BE !D TO !D^S'		/C074
/D126			MNTMP4;MNMXDR;DU9TRY				/C074

	DISP; -2727; TEXT '&DRIVE'					/A126

	IFDEF	CONDOR	<						/A126
	TSTBIT; MNOPTN; MNRX2X; DU9NW1					/A126
	DISP; -1; TEXT '/&DEVICE'					/A126
		>	/ END IFDEF CONDOR				/A126

DU9NW1,	DISP; -1; TEXT ' NUMBERS MUST BE !D TO !D. &TRY AGAIN.'		/C126
	MNTMP4; MNMXDR							/C126

	CASE;MNTMP3							/A054
		2;-1-DU2RD1;DLMDU2	/ DID WE GET HERE FROM DLMDU5?	/A054
	GOTO;DU9RE1	/ GO READ IT AGAIN				/A054

DU9RN3,	COPY;MNTMP5;DU9CPY	/ COPY DRV NBR RO COMPARE IT		/A054
	CASE;MNTMP2	/ WE MUST NOT PASS SAME DRV NBR ON BACK UP	/A054
DU9CPY,	0;DU9DS2	/ 'CAUSE WE'LL CONFUSE CPYDSK!!!		/A054
	GOTO;DU9RTN	/ NOT THE SAME SO RETURN			/A054

DU9DS2,
/D126	DISP;-2717;TEXT '&USE A DRIVE OTHER THAN !D" ON OUTPUT^S'	/C074
/D126					MNTMP2;	      DU9TRY		/C074

	TRNSFR; DU4DS2; DLMDU4

DU9DSR,
	CASE;MNTMP4;1;DU9CMB	/ HAVE WE COME HERE FROM DU5?		/A054
	GOTO;DU9RE1	/ NO, SO GO READ WHAT HE PUT IN			/A054

DU9CHK,	COPY;MNTMP5;DU9CK1	/ LETS SEE IF DRIVE DIFFER		/A054
	CASE;MNTMP2							/A054
DU9CK1,	0;DU9DS3	/ IF THE DRIVES DON'T DIFFER THEN A MISTAKE	/A054
	TRNSFR;DU5RTN;DLMDU5	/ THEY DIFFER				/A054

DU9DS3,	SET;1;MNTMP4	/ SIGANL TO REURN HERE				/A054
	GOTO;DU9DS2	/ GO TELL HIM OF ERRROR				/A054

DU9CMB,	SET;0;MNTMP1							/A054
	SET;0;MNTMP2							/A054
	SET;0;MNTMP3							/A054
	SET;0;MNTMP4							/A054
	SET;0;MNTMP5							/A054
	TRNSFR;DU2RD1;DLMDU2	/ GO READ IN THE VALUES			/A054

DU9SDR,	CASE;MNTMP2;0;DU9ST3	/ IF INPUT DRV NBR = 0, OUT=1		/A054
		1;DU9ST4	/ IF INPUT DRV NBR=1, OUTPUT=0		/A054

DU9ST3,	SET;1;MNTMP5		/ SET OUTPUT TO DRV 1			/A054
	GOTO;DU9RTN							/A054
DU9ST2,			/ SET TEMP 5 TO OTHER DRV NBR (BY CONVENTION)	/M161
DU9ST4,	SET;0;MNTMP5		/ SET OUTPUT TO DRV 0			/A054
	GOTO;DU9RTN							/A054

DU9SC,	CASE;MNTMP3
		1;DU9CHK	/ IF DOING BACKUP, GO CHECK DRV NBRS	/A054
	SET;1;MNTMP3		/ SIGNAL SOURCE DRIVE HAS BEEN READ	/A054
	COPY;MNTMP5;MNTMP2	/ PUT SRC IN TEMP 2 (BY CONVENTION)	/A054
	CASE;MNMXDR
		1;DU9SDR	/ TWO DRIV SYSTEM?			/A054
	TRNSFR;DU5RD1;DLMDU5						/A054

/***********************************************************************/
/									/
/	SUBSTRINGS:							/
DU9TRY,	TEXT '. &TRY AGAIN.'	/SUBSTRING				/A074
/									/
/***********************************************************************/


XTRDU9=400-.

IFZERO	.-401&4000	<?BADPAGE LENGTH>				/A054

/ ACTIVATE FEATURES MENU - THIS MENU IS CALLED FROM WPCU4 IF UNBUNDLING	/A129
/ IS DEFINED, OR FROM MAIN MENU IF UNBUNDLING IS NOT DEFINED		/A129

RELOC									/A129
ADMUB1=.
X=DLMUB1			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0									/A129

UB1AF,	DISP;0;TEXT '!E-- !&ACTIVATE !&FEATURES !&MENU --'		/A129
	DISP;204;TEXT '&THE FOLLOWING ^SAL FEATURES ';UB1OPT		/A129
	DISP;-1;TEXT 'ARE AVAILABLE ON YOUR DISKETTE:'			/A129
	DISP;420;TEXT '!&STATUS          !&FEATURE'			/A129
	DISP;620;TEXT  '^S&BASIC &WORD &PROCESSING';UB1ACT		/A129
	DISP;1020;TEXT '^S&COMMUNICATIONS &^S';UB1ACT;UB1OPT 		/A129
	DISP;1220;TEXT '^S&LIST &PROCESSING &^S';UB1ACT;UB1OPT		/A129
	DISP;1420;TEXT '^S&SORT &^S';UB1ACT;UB1OPT			/A129
	DISP;1620;TEXT '^S&MATH &^S';UB1ACT;UB1OPT			/A129

	IFDEF	CONDOR	<						/A129
	DISP;2020;TEXT '^S&D&E&CSPELL &^S';UB1ACT;UB1OPT		/M174
			>		/ END IFDEF CONDOR		/A129

	IFDEF	UNBUND	<						/A004
	SET;1;MNTMP2			/ SET TO INDICATE DRIVE 1	/A165
	TSTBIT;MNOPTN;MNRX4X;UB1NOT	/ IS SYSTEM ON WINCHESTER ?	/A165
	SET;11;MNTMP2			/ YES, SET TO INDICATE DRIVE 9	/A165
UB1NOT,	TRNSFR;UB2S;DLMUB2		/ DISPLAY POSSIBLE "NOT" WORDS	/A004
			>		/ END IFDEF UNBUND		/A004

UB1RD,	DISP;2605;TEXT '&PRESS &GOLD !&MENU TO RECALL THE &MAIN &MENU.^E'/A129

	READ;MNTMP1;UB1RE		/ GET USER INPUT FROM KEYBOARD	/A129
	ARG;UB1RTN;MNTMP1		/ CHECK FOR BLANK LINE		/A129

UB1ERR,	CALL;CR1NM;DLMCR1		/ ERROR - CHAR. HAS NO MEANING	/A129
	GOTO;UB1RD			/ NO MATCH - GO GET NEXT CHAR.	/A129

UB1RTN,	TRNSFR;MM1S;DLMMM1		/ GO BACK TO MAIN MENU		/A129

UB1RE,	CASE;MNSYSA							/A129
		EDMENU&3777;UB1RTN	/ CHECK FOR GOLD MENU		/A129
	CALL;CR1BR;DLMCR1		/ ERROR - TYPE ONLY LEGAL CHAR.	/A129
	GOTO;UB1AF							/A129

UB1ACT,	TEXT '&ACTIVE          '	/ DISPLAY "ACTIVE" WORD & SPACES/A129
UB1OPT,	TEXT 'OPTION'			/ DISPLAY "OPTION" WORD		/A129

XTRUB1=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>					/A129

/ FEATURE UNBUNDLING MENU - PROCESS USER RESPONSE			/A004

	IFDEF UNBUND <							/A004

RELOC									/A004
ADMUB2=.
X=DLMUB2			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0									/A004

UB2S,	TSTBIT;MNOPTC;COMBIT;UB2NO1	/TRANSFER IF NO COMMUNICATIONS	/A004
	GOTO;UB2OK1			/DISPLAY OPTION IS ACTIVE	/A004
UB2NO1,	DISP;1014;TEXT '&NOT'		/SET "NOT" WORD IN DISPLAY	/A004
UB2OK1,	TSTBIT;MNOPTC;LPBIT;UB2NO2	/TRANSFER IF NO LIST PROCESSING	/A004
	GOTO;UB2OK2			/DISPLAY OPTION IS ACTIVE	/A004
UB2NO2,	DISP;1214;TEXT '&NOT'		/SET "NOT" WORD IN DISPLAY	/A004
UB2OK2,	TSTBIT;MNOPTC;SRBIT;UB2NO3	/TRANSFER IF NO SORT		/A004
	GOTO;UB2OK3			/DISPLAY OPTION IS ACTIVE	/A004
UB2NO3,	DISP;1414;TEXT '&NOT'		/SET "NOT" WORD IN DISPLAY	/A004
UB2OK3,	TSTBIT;MNOPTC;MABIT;UB2NO4	/TRANSFER IF NO MATH		/A004
	GOTO;UB2OK4			/DISPLAY OPTION IS ACTIVE	/A004
UB2NO4,	DISP;1614;TEXT '&NOT'		/SET "NOT" WORD IN DISPLAY	/A004
UB2OK4,	IFDEF	CONDOR	<						/A121
	TSTBIT;MNOPTC;SEDBIT;UB2NO5	/TRANSFER IF NO SPELL CORRECTION /M158
	GOTO;UB2OK5			/DISPLAY OPTION IS ACTIVE	/A121
UB2NO5, DISP;2014;TEXT '&NOT'		/SET "NOT" WORD IN DISPLAY	/A121
UB2OK5,	>				/ END IFDEF CONDOR		/A121

	SET;0;MNTMP4			/ CLEAR ALL OPTIONS ACTIVE FLAG	/A004
	TSTBIT;MNOPTC;COMBIT;UB2TSM	/ CHECK FOR COMM OPTION		/A004
	TSTBIT;MNOPTC;LPBIT;UB2TSM	/ CHECK FOR LP OPTION		/A004
	TSTBIT;MNOPTC;SRBIT;UB2TSM	/ CHECK FOR SR OPTION		/A004
	TSTBIT;MNOPTC;MABIT;UB2TSM	/ CHECK FOR MA OPTION		/A004
	IFDEF	CONDOR	<		/				/A121
	TSTBIT;MNOPTC;SEDBIT;UB2TSM	/ CHECK FOR SED OPTION		/A121
	>				/				/A121
	SET;1;MNTMP4			/ SET ALL OPTIONS ACTIVE FLAG	/A004
	GOTO;UB2TSN			/ ALL OPTIONS PRESENT		/A004

UB2TSM,	DISP;2405;TEXT '&TO ACTIVATE AN OPTIONAL FEATURE, PLACE THE APPROPRIATE'/A004
	DISP;2505							/A004
	TEXT '!&FEATURE DISKETTE INTO &DRIVE !D AND PRESS !&RETURN, OR'	/M165
	MNTMP2				/CONTAINS DRIVE NUMBER TO USE	/A165
UB2TSN,	DISP;2605;TEXT '&PRESS &GOLD !&MENU TO RECALL THE &MAIN &MENU.^E'/A129

UB2RD,	READ;MNTMP1;UB2RE	/ GET USER INPUT FROM KEYBOARD	/A004
	COPY;MNPOS;MNTMP3	/ SAVE STRING POINTER FOR ERROR	/A115
	ARG;UB2RTN;MNTMP1	/ CHECK FOR BLANK LINE		/A004
	KEYWRD			/ CHECK STANDARD USER RESPONSE		/A004
	TEXT 'TURNOF ';UB2ERR	/ DON'T ALLOW SUBSETS OF WORD 'TURNOFF'	/A004
	TEXT 'TURNOFF ';UB2OFF	/ DEACTIVATE OPTIONS			/A004
	TEXT 'TURNON ';UB2ON0	/ INITIALIZE OPTIONS			/A004

UB2ERR,	CALL;CR1NM;DLMCR1	/ ERROR - CHARACTER HAS NO MEANING	/A004
	GOTO;UB2RD		/ NO MATCH - GO GET NEXT CHARACTER	/A004

UB2RTN,	CASE;MNTMP4		/ CHECK ALL OPTIONS ACTIVE FLAG		/A004
		1;UB2MM		/ IF SET, DON'T TRY TO INSTALL OPTION	/M032
	SET;2;MNTMP3		/ SET UP TO INSTALL NEW OPTION		/A004
	RETURN			/ GOTO WPCU4 MODULE FOR OPTIONS SETTING	/A004

UB2RE,	CASE;MNSYSA							/M117
	    EDMENU&3777;UB2MM	/ CHECK FOR GOLD MENU			/A004
	CALL;CR1BR;DLMCR1	/ ERROR - TYPE ONLY LEGAL CHAR.	/A004
	TRNSFR;UB1AF;DLMUB1						/A004

UB2MM,	SET;0;MNTMP3		/ HANDLE GOLD MENU RETURN		/A004
	RETURN			/ GO THROUGH WPCU4 TO MAIN MENU		/A004

UB2OFF,	SET;0;MNOPTC		/ DEACTIVATE DEVELOPMENT OPTIONS	/A004
	GOTO;UB2AF		/ GO PERFORM OPERATION			/A004

UB2ON0,	ARG;UB2ON1;MNTMP1	/ CHECK FOR A BLANK LINE		/A115
	KEYWRD			/ NOT BLANK, CHECK OPTION		/A115
	TEXT 'DE ';UB2ON1	/ DON'T ALLOW A SUBSET			/A115
	TEXT 'DEC ';UB2ON	/ GO PERFORM OPERATION			/A115
UB2ON1,	COPY;MNTMP3;MNPOS	/ RESTORE STRING POINTER		/A115
	ARG;UB2ERR;MNTMP1	/ MOVE UP TO FIRST TOKEN		/A115
	GOTO;UB2ERR		/ REPORT ERROR - INVALID WORD		/A115

UB2ON,	SET;1777;MNOPTC		/ INITIALIZE OPTION WORD		/A004
UB2AF,	SET;1;MNTMP3		/ SET UP TO STORE NEW OPTIONS		/A004
	RETURN			/ GO TO WPCU4 TO STORE SETTINGS		/A004

XTRUB2=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/ FEATURE UNBUNDLING ERROR MESSAGES					/A004

RELOC									/A004
ADMUBE=.
X=DLMUBE			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0									/A004

UBENCM,	SET;COMBIT;MNTMP2	/SET UP NO COMMUNICATIONS MESSAGE	/A004
	GOTO; UBEDSP							/A004
UBENLP,	SET;LPBIT;MNTMP2	/SET UP NO LIST PROCESSING MESSAGE	/A004
	GOTO; UBEDSP							/A004
/UBENMA, SET;MABIT;MNTMP2	/SET UP NO MATH MESSAGE			/A004
/	GOTO; UBEDSP							/A004
IFDEF	CONDOR	<		/					/A121
UBENSD,	SET;SEDBIT;MNTMP2	/SET UP NO SPELLING DETECTION MESSAGE	/A004
	GOTO; UBEDSP							/A004
	>			/					/A121
UBENSR,	SET;SRBIT;MNTMP2	/SET UP NO SORT MESSAGE			/A004

UBEDSP,	DISP;0;TEXT '!E-- !&FEATURE !&NOT !&ACTIVE --^A'		/A004
	UBEBEL				/CLEAR SCREEN & RING BELL	/A004

	CASE;MNTMP2		/SELECT OPTION NOT ACTIVE MESSAGE	/A004
		COMBIT;UBEMS1		/NO COMMUNICATIONS		/A004
		LPBIT;UBEMS2		/NO LIST PROCESSING		/A004
		SRBIT;UBEMS3		/NO SORT			/A004
/		MABIT;UBEMS4		/NO MATH			/A004
IFDEF	CONDOR	<							/A121
		SEDBIT;UBEMS5		/NO SPELLING ERROR DETECTION	/A004
	>								/A121

	DISP;1305;TEXT '&THE &UNDEFINED^S';UBEUNA /ERROR - UNKNOWN	/A004
	GOTO;UBEMSG							/A004

UBEMS1,	DISP;1305;TEXT '&THE &COMMUNICATION^S';UBEUNA			/A004
	GOTO;UBEMSG							/A004

UBEMS2,	DISP;1305;TEXT '&THE &LIST &PROCESSING^S';UBEUNA		/A004
	GOTO;UBEMSG							/A004

UBEMS3,	DISP;1305;TEXT '&THE &SORT^S';UBEUNA				/A004
	GOTO;UBEMSG							/A004

/UBEMS4, DISP;1305;TEXT '&THE &MATH^S';UBEUNA				/A004
/	GOTO;UBEMSG							/A004

	IFDEF	CONDOR	<						/A121
UBEMS5,	DISP;1305;TEXT '&THE &SPELLING^S';UBEUNA			/A121
	>		/ IFDEF CONDOR					/A121
	IFNDEF	CONDOR	<						/A121
UBEMS5,	DISP;1305;TEXT '&THE &EXTERNAL^S';UBEUNA			/A121
	>		/ IFNDEF CONDOR					/A121

UBEMSG,	DISP;1505							/A004
	TEXT '&TYPE &A AND &PRESS !&RETURN^S';UBEACT			/A004

	DISP;1705							/A004
	TEXT '&PRESS &GOLD !&MENU TO RECALL THE &MAIN &MENU.'		/A004

UBERD,	READ;MNTMP1;UBERE	/READ CHARACTERS FROM KEYBOARD		/A004
	ARG;UBERD;MNTMP1	/GET POINTER TO CHARACTER & XFER IF NULL /A004
	KEYWRD								/A004
	TEXT 'A ';UBEMNU	/HANDLE TRANSFER TO ACTIVATE MENU	/A004
	TEXT 'AZ ';UBEALL	/HANDLE TRANSFER TO UNBUNDLE MENU	/A004
	CALL;CR1NM;DLMCR1	/ERROR - CHARACTER HAS NO MEANING	/A004
	GOTO; UBEDSP							/A004

UBERE,	CASE;MNSYSA							/M117
		EDMENU&3777;-1-MM1S;DLMMM1	/HANDLE GOLD MENU	/A004
	CALL;CR1BR;DLMCR1	/ERROR - TYPE ONLY VALID CHARACTERS	/A004
	GOTO; UBEDSP							/A004

UBEALL,	SET;1777;MNOPTC		/ SET UP FEATURES			/A004
UBEMNU,	TRNSFR;DU2UNB;DLMDU2	/ TRANSFER TO ACTIVATE MENU		/A004

UBEBEL,	7;0								/A004
UBEACT,	TEXT ' TO ACTIVATE THE OPTIONAL FEATURE, OR'			/A004
UBEUNA,	TEXT ' FEATURE THAT YOU ARE TRYING TO USE IS NOT ACTIVE.'	/A004

XTRUBE=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>					/A004
		>		/ END IFDEF UNBUND			/A004

	/ MAINTENANCE MENU CONTINUED					/A126


RELOC
ADMDUA=.
X=DLMDUA			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0


	/ IF WE HAVE A WINCHESTER ALLOW THE "S" OPTION ON DRIVE 1 	/A126
	/ IF A VOLUME IS NOT ASSIGNED TO DEVICE 1			/A126

DUACKN,									/C149
IFDEF CONDOR	<							/A149

	ARG; DUACK1; MNTMP5		/ LOOK FOR DRIVE NUMBER		/A126
	NUMBER; MNTMP5; DUANRG		/ IS IT A NUMBER		/A126
	CASE; MNTMP5			/ YES - NOW CK FOR A 1		/A126
	  1; DUACK1			/ YES - CK DEVICE 1		/A126
					/ NO - DISPLAY MESSAGE		/A126
DUANRG,	DISP; -2727; TEXT'&DRIVE NUMBER MUST BE 1. &TRY AGAIN.'		/A126
	TRNSFR; DU2RD1; DLMDU2		/ GO BACK AND READ AGAIN	/A126
DUANCH,	SET; 1; MNTMP5			/ FORCE DRIVE 1			/A126
DUARTN,	SET; 2; MNTMP1			/ SET INIT. SYS. DISKETTE FUNC.	/A126
	TRNSFR; DU3DSP; DLMDU3		/ GO DISPLAY MENU		/A126
DUACK1,	TSTBIT; MNOPTN; MNRX3X; DUANCH		/ CK VOL ASSIGNED TO 1	/A126
	DISP; 0305; TEXT '!E-- !&ERROR --';	/ YES - ERROR		/A126
	DISP; 0505; TEXT '&A VOLUME IS ASSIGNED TO DEVICE 1';		/A126
/	DISP; 2405; TEXT '&PRESS !&RETURN TO RECALL THE';	/D160	/A126
/	DISP; -1; TEXT ' &MAINTENANCE &MENU,';			/D160	/A126
	DISP; 2405; 0			/POSITION CURSOR		/A160
	CALL; DU4MC; DLMDU4			/ MAINTENANCE MENU	/A160
	CALL; DU8PG; DLMDU8			/ "OR PRESS GOLD MENU	/A126
DUASC2,	READ; MNTMP5; -1-DU2RE; DLMDU2		/ READ INPUT		/A126
	ARG; -1-DU1S; DLMDU1; MNTMP5		/ RET TO MAINT. MENU	/A126
	CALL; CR1NM; DLMCR1			/ "NO MEANING		/A126
	GOTO; DUASC2							/A126

		>		/ END IFDEF CONDOR			/A149
/*** FINISHED USING THE SYSTEM *** MOVED HERE FROM WP2CMF ***		/A137

DUAFN1,	DISP;0;TEXT '!E^A' ; DUAFAK
	DISP;1020;TEXT '*^S^S'; DUASTS; DUASTS
	DISP;1120;TEXT '*'
	DISP;1176;TEXT '*'
	DISP;1220;TEXT '*'
	DISP;1276;TEXT '*'
	DISP;1320;TEXT '*'

	IFDEF	ENGLSH	<
	DISP;1333;TEXT '!&FINISHED !&USING !&THE !&SYSTEM'
			>	/ END IFDEF ENGLISH

	IFDEF	CANADA	<
	DISP;1332;TEXT "&FIN D'UTILISATION DU SYST]ME"
			>	/ END IFDEF CANADA

	IFDEF	FRENCH	<
	DISP;1332;TEXT "&FIN D'UTILISATION DU &SYST]ME"
			>	/ END IFDEF FRENCH

	IFDEF	DUTCH	<
	DISP;1332;TEXT "&EINDE &SYSTEEM &GEBRUIK"
			>	/ END IFDEF DUTCH

	IFDEF	GERMAN	<
	DISP;1331;TEXT "&ENDE DER &VERARBEITUNG"
			>	/ END IFDEF GERMAN

	IFDEF	NORWAY	<
	DISP;1343;TEXT "&A&V&S&L&U&T&T&E&T"
			>	/ END IFDEF NORWAY

	IFDEF	SWEDSH	<
	DISP;1333;TEXT "&SYSTEMANV[NDNING AVSLUTAD" /L.U.A
			>	/ END IFDEF SWEDSH

	IFDEF	DANISH	<
	DISP;1333;TEXT "&AFSLUTET BRUG AF SYSTEMET"
			>

	DISP;1376;TEXT '*'
	DISP;1420;TEXT '*'
	DISP;1476;TEXT '*'
	DISP;1520;TEXT '*'
	DISP;1576;TEXT '*'
	DISP;1620;TEXT '*^S^S'; DUASTS; DUASTS

	IFDEF ENGLSH	<
	IFDEF CONDOR	<						/A149
	TSTBIT; MNOPTN; MNRX2X; DUAFW1	/ CK FOR WINCHESTER DRIVE	/A137
	SET; 2111; DUASTA		/ ADJUST COLUMN POS OF STRING	/A137
	SET; DUAVOL; DUASTB		/ INCLUDE TEXT "/VOLUMES	/A137
			>	/END IFDEF CONDOR			/A149
DUAFW1,	DISP								/C137
DUASTA,	2115								/C137
	TEXT /&DON'T FORGET TO MAKE BACKUP COPIES OF YOUR DISKETTES^S/	/C137
DUASTB,	DUANUL								/A137
			>	/ END IFDEF ENGLISH

	IFDEF	CANADA	<
	DISP;2717
	TEXT "&N'OUBLIEZ PAS DE FAIRE UNE COPIE DE VOTRE DISQUETTE."
			>	/ END IFDEF CANADA

IFDEF	FRENCH	<
	DISP;2717
	TEXT " &NE PAS OUBLIER DE COPIER VOS DISQUETTES"
			>	/ END IFDEF FRENCH

IFDEF	DUTCH	<
	DISP;2715
	TEXT "    &VERGEET NIET UW DOCUMENT DISKETTE TE KOPI^ZREN."
	154	/L.U.E
			>	/ END IFDEF DUTCH

	IFDEF	GERMAN	<
	DISP;2715
	TEXT "  &VERGESSEN &SIE NICHT, &IHRE &DISKETTEN ZU KOPIEREN"
			>	/ END IFDEF GERMAN

	IFDEF	NORWAY	<
	DISP;2723
	TEXT "&GLEM IKKE ] TA KOPIER AV DINE DISKETTER^!" /L.D.A
			>	/ END IFDEF NORWAY

	IFDEF	SWEDSH	<
	DISP;2721
	TEXT "&GL\M INTE ATT G\RA KOPIOR AV DINA DISKETTER^!" /L.U.O, L.U.O
			>	/ END IFDEF SWEDSH

	IFDEF	DANISH	<
	DISP;2724
	TEXT "&HUSK AT TAGE KOPIER AF DINE DISKETTER^!"
			>	/ END IFDEF DANISH
	RETURN

DUAFAK,	ESC;76;0		/ LEAVE ALT KEYPAD MODE
DUASTS,	TEXT '***********************'
DUANUL,	TEXT ''			/ NULL STRING				/A137
DUAVOL,	TEXT '/VOLUMES'							/A137

XTRDUA=400-.

IFZERO .-401&4000 <?BADPAGE LENGTH>

	IFDEF	CONDOR	<						/A149
	/ WINCHESTER MAINTENANCE MENU					/A126

RELOC
ADMDUB=.
X=DLMDUB			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0


DUBWM,	DISP; 0; TEXT '!E-- !&HARD !&DISK !&VOLUME !&MENU --'		/M160
	DISP; 0505; TEXT '!&A = &ASSIGN A^S'; DUBVOL			/M160
	DISP; 0705; TEXT '!&D = &DEASSIGN A^S'; DUBVOL			/M160
	DISP; 1205; TEXT '!&LA = &LIST OF ASSIGNED^SS ONLY'; DUBVOL	/M160
	DISP; 1405; TEXT '!&LI = &LIST ALL^SS'; DUBVOL			/M160
	DISP; 2205; TEXT '&TYPE THE LETTERS AND PRESS !&RETURN,'	/M160
	DISP; 2405; TEXT '!&OR '					/A160
	CALL; DU4MC; DLMDU4						/A160
	CALL; DU8PG; DLMDU8		/ "OR PRESS GOLD MENU		/A126
	
/D129	DUBRD1,	CLRV							/A126
DUBRD1,	READ; MNTMP1; DUBRE		/ READ INPUT			/A126
/D160	ARG; DUBRD1; MNTMP1					/M129	/C146
	ARG; -1-DU1SS; DLMDU1; MNTMP1	/ TO CLEAR PENDING RETURN	/A160
	KEYWRD								/A126
/D129	TEXT 'A ' ; DUBER
	TEXT 'A '; DUBAV	/ ASSIGN A VOLUME		/M160	/A126
/D129	TEXT 'D ' ; DUBER
	TEXT 'D '; DUBDV	/ DEASSIGN A VOLUME		/M160	/A126
/D129	TEXT 'L ' ; DUBER
	TEXT 'LA '; DUBLV	/ LIST OF ASSIGNED VOLUMES	/M160	/M129
	TEXT 'LI '; DUBSV	/ LIST ALL VOLUMES		/M160	/M129

DUBER,	CALL; CR1NM; DLMCR1	/ NO MEANING MESSAGE			/A126
	GOTO; DUBRD1		/ TRY AGAIN				/A126

DUBRE,	CASE; MNSYSA		/ CK GOLD KEYS				/A126
	  EDMENU&3777; DUBMM	/ GOLD MENU				/A126
	CALL; CR1BR; DLMCR1	/ RING BELL				/A126
	GOTO; DUBWM		/ RECALL MAINT. MENU			/A126

DUBSV,	DISP;0;TEXT '!E-- !&LIST !&ALL !&VOLUMES --'	/LI	/M160	/M129
	SET;4;MNTMP1;RETURN						/A129
DUBLV,	DISP;0;TEXT '!E-- !&LIST !&ASSIGNED !&VOLUMES --'/LA		/M129
	SET;3;MNTMP1;RETURN						/A129
DUBDV,	DISP;0;TEXT '!E-- !&DEASSIGN !&VOLUME --'	/D		/M129
	SET;2;MNTMP1;RETURN						/A129
DUBAV,	DISP;0;TEXT '!E-- !&ASSIGN !&VOLUME --'		/A		/M129
	SET;1;MNTMP1;RETURN						/A129
DUBMM,	SET;0;MNTMP1;RETURN						/M129
	

DUBVOL,	TEXT ' VOLUME'							/A126

XTRDUB=400-.

IFZERO .-401&4000 <?BADPAGE LENGTH>
			>	/ END IFDEF CONDOR			/A126

/STORE AND RECALL PRINTER QUEUE
RELOC
	FIELD	4
	*0

RELOC
ADMRS1=.
X=DLMRS1			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC	0


RS1RL,	SET;0;MNTMP9		/INDICATE MAIN MENU CALL 		/A128
	PQUEUE;RS1RFQ;RS1REQ
					/ PQUEUE FALLS THROUGH IF 	/A128
					/ QUEUE NOT EMPTY AND		/A128
					/ MNFNO DOESN'T MATCH		/A128
RS1RFQ,		/ ERROR--RL NOT ALLOWED IF DOCS ALREADY IN QUEUE
	SET;0;MNQCPY			/ SPECIFY "DOCUMENTS"		/A128
	CALL;CR2FQ;DLMCR2
RS1MM,	TRNSFR;MM1S;DLMMM1

RS1REQ,	CALL; CM2FNM; DLMCM2		/ Check out dangling filename	/A051
	CASE; MNTMP1; 0; -1-MM0RD; DLMMM0/ check for erroroneous filename/A051
	DISP;0;TEXT '!E'
	SET;1;MNTMP3
	FILNAM;RS1RRD;RS1ND1
RS1RET,	CASE;MNTMP9;1;-1-PS6SL;DLMPS6	/ TO STOP MENU PROCESSOROP MENU	/A128
	CMND;1;200;CIF CDF 20	/ELSE CALL COMMAND UTILITY		/A128
	RETURN

RS1RND,	CALL;CR1ND;DLMCR1

RS1RRD,	DISP;0;TEXT '!E     '
	DISP;1605;TEXT '&T^SCONTAINING THE LIST TO BE';RS1TYP
	DISP;1705;TEXT 'PRINTED'
RS1RR1,	DISP;-1;TEXT ' AND PRESS !&RETURN'				/M128
	DISP;2205;TEXT '!&OR &PRESS &GOLD !&MENU TO RECALL THE &MAIN &MENU.'
	READ;MNTMP1;RS1RRE
	CASE;MNTMP3
		2;RS1SR1

	FILNAM;RS1RRD;RS1RND
	GOTO;RS1RET

RS1RRE,	CASE;MNSYSA							/M117
		EDMENU&3777;RS1MM
	CALL;CR1BR;DLMCR1
	CASE;MNTMP3
		1;RS1RRD
		2;RS1SRD

RS1ND1,	CALL;CR1ND;DLMCR1	/NO DOCUMENT
	GOTO;RS1REQ		/USER HAS ENTERED RETURN		/A188

RS1SLS,		/ SL FROM STOP MENU					/A128
	SET;10;MNTMP5			/LOAD CODE FOR SL FUNCTION	/A183
	SET;1;MNTMP9;GOTO;RS1SL1	/SET FLAG SO WE RETURN CORRECTLY/A128
RS1SL,		/ SL FROM MAIN MENU
	SET;0;MNTMP9			/SIGNAL RETURN TO COMMAND UTIL	/A128
RS1SL1,	PQUEUE;RS1SDC;-1-MM2NDC;DLMMM2	/ SEE IF ANYTHING IN QUEUE	/A128
					/ IF NOT TELL USER 		/A128

RS1SDC,					/ THERE ARE DOCUMENTS
	CALL; CM2FNM; DLMCM2		/ Check out dangling filename	/A051
	CASE; MNTMP1; 0; -1-MM0RD; DLMMM0/ check for erroroneous filename/A051
	DISP;0;TEXT '!E'
	SET;2;MNTMP3
	FILNAM;RS1SRD;RS1SND

RS1TBO,	PQUEUE;-1-PS6ERR;DLMPS6;.+1	/ DO ANY OF THE DOCUMENTS
					/ IN THE QUEUE HAVE THE SAME
					/ NAME AS THE RESULT DOCUMENT?
	SET;1;MNTMP4
	TRNSFR;CM1NX;DLMCM1		/ NO, EVERYTHING IS COOL--CHECK TBO

RS1SND,	SET;-2;MNTMP1
RS1SN1,	SET;2;MNTMP3							/M133
	GOTO;RS1RET

RS1SRD,	DISP;0;TEXT '!E      '
	DISP;1605;TEXT '&T^SINTO WHICH THE LIST WILL BE';RS1TYP
	DISP;1705;TEXT 'PLACED'
	GOTO;RS1RR1

RS1SR1,	FILNAM;RS1SRD;RS1SND
	GOTO;RS1TBO

RS1TYP,	TEXT 'YPE THE NAME OF THE DOCUMENT '

XTRRS1=400-.

IFZERO	.-401&4000 <?BADPAGELENGTH>

/STOP PRINT MENUS

/***********************************************************************/
/									/
/	EQUATES FOR STOP MENU SELECTORS					/
/		THE SELECTORS ARE BITS IN A TABLE			/
/		INDEXED BY PRSTTS IN WPCUT.				/
/		THE TABLE IS READ AND THE PROPER ENTRY IS		/
/		COPIED TO MNTMP6					/
/									/
/		EACH SELECTOR BIT DETERMINES WHETHER OR NOT		/
/		A PARTICULAR RESPONSE IS ALLOWABLE FOR THAT		/
/		PARTICULAR ERROR CONDITION.  ONLY ALLOWABLE		/
/		RESPONSES ARE DISPLAYED AND ACCEPTED.			/
/									/
/		THE SIX BITS OF EACH HALF WORD ARE ORGANIZED THUSLY:	/
			R=01	/LSB
			P=02
			B=04
			T=10
			N=20
			C=40
/		S AND L ARE ALWAYS ALLOWED				/
/									/
/***********************************************************************/



RELOC
ADMPS1=.
X=DLMPS1			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0


PS1S,	SET;1;MNTMP8		/NOT LIST QUEUE				/C189
	DISP;0;TEXT '!E-- !&STOP !&PRINTER !&MENU --'			/C171

	CASE;MNQINI		/ USE MNQINI SINCE TBO USES MNTMP4
	   0;  PS1T0		/"The printer is not in use now"	/M005
	   1;  -1-PS2C;DLMPS2	/PRINTING				/C095
	   2;  -1-PS2C;DLMPS2	/USER STOP				/C095
	   3;  -1-PS4T3;DLMPS4	/"stopped for SE first"			/M005
	   4;  -1-PS4T4;DLMPS4	/"stopped for SE yes"			/M005
	   5;  -1-PS4T5;DLMPS4	/"stopped at end of page"		/M005
	   6;  -1-PS2TW;DLMPS2	/"stopped for two wheel change"		/M005
	   7;  -1-PS2NP;DLMPS2	/"stopped for non-existent printer"	/M005
	   10; -1-PS5T24;DLMPS5	/"Document Destination does not match..	/C070

	   11; -1-PS4T15;DLMPS4 /"Pause switch is on" (at PRTID)	/A005
	   12; -1-PS4T12;DLMPS4	/"Communications line in use, try again"/M005	
	   13; -1-PS4T13;DLMPS4	/"Stopped for a printer malfunction"	/M005
	   14; -1-PS4T13;DLMPS4 /"Stopped for a printer malfunction"	/M007
	   15; -1-PS4T15;DLMPS4 /"Pause switch is on"			/A005
	   16; -1-PS4T16;DLMPS4 /"Stopped for ribbon out"		/A005
	   17; -1-PS4T17;DLMPS4 /"Stopped for sheet feeder error"	/A005
	   20; -1-PS5T20;DLMPS5	/"Printer cover is open"		/A035
	   21; -1-PS5T21;DLMPS5	/"Printer paper is out" 		/A035
	   22; -1-PS5T22;DLMPS5	/"Document read error"			/A035
	   23; -1-PS5T23;DLMPS5	/"Disk error drive 0"			/A035
	   24; -1-PS4T17;DLMPS4 /LQPSE SHEET FEEDER ERROR		/A090
	   25; -1-PS4T13;DLMPS4 /LQPSE CANCEL (FATAL) ERROR		/A092
	   26; -1-PS5T26;DLMPS5 /COMMUNICATIONS ERROR			/A110
	   27; -1-PS5T27;DLMPS5 /MISMATCHED CONTROLS			/A142

PS1T0,	SET;0;MNTMP8							/C189
	DISP;1505;TEXT '&THE PRINTER IS NOT IN USE NOW.'
	MXDISP;2205;X02PRM;DLMX02	/"PRESS RETURN ... MAIN MENU	/C171

PS1T0R,	READ;MNTMP1;PS1RE
	ARG;PS1RT0;MNTMP1
	CASE;MNTMP8							/C189
		102;PS1FLQ	/FINISHED LIST QUEUE		/A090	/C102
		000;PS1FLQ	/PRINTER BUSY OR NOT IN USE		/A166
	GOTO;PS1S		/REDISPLAY STOP PRINT MENU

PS1FLQ,	DISP;2700;TEXT '!E^A'	/CLEAR OUT ANY TEXT			/C166
			PS1BEL	/AND RING THE BELL			/A171
	GOTO;PS1T0R		/ONLY RETURN IS ALLOWED			/A102

PS1RT0,	CASE;MNQINI;0;PS1MM	/ IF PRSTTS=0 THEN PASS NO ACTION	/A099
	SET;2;MNTMP1		/ LOAD ABORT CODE			/A086
	GOTO; PS1MM1							/C065

PS1RE,	CLRV			/ CLEAR FOR PAGE 0 IF GOLD MENU		/A145
	CASE;MNSYSA							/M117
		EDMENU&3777; -1-MM1SD0;DLMMM1	/ CHECK FOR GOLD MENU	/C128
	CALL;CR1BR;DLMCR1
	GOTO;PS1S

PS1MM,	SET;0;MNTMP1		/SET NO ACTION

PS1MM1,	SET;0;MNTMP2		/SET NO VALUE
	RETURN

PS1BEL,	BELL; 0								/A166


XTRPS1=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/STOP PRINTER MENU (CONT.)

RELOC
ADMPS2=.
X=DLMPS2			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

PS2S,	/ ENTER HERE AFTER WPCUT PUTS UP DOCS IN QUEUE			/A062
	SET;102;MNTMP8		/ LOAD CODE FOR LIST QUEUE		/C189
	MXDISP;2620;X03PRR;DLMX03/"PRESS RETURN ... PREVIOUS MENU	/A171
	TRNSFR;PS1T0R;DLMPS1	/ GO READ KEYBOARD			/C171
/------------------------

PS2TW,	DISP;311;TEXT '^STHE PRINT WHEEL CHANGE'			/C062
		PS2SS4 / "THE PRINTER IS STOPPED FOR "			/C062

PS2C,	DISP;-1; TEXT '^A'; PS2LF	/ MOVE THIS DOWN A LITTLE	/A093
	TSTBIT;MNTMP6; C ;PS2D	/BRANCH IF NOT ALLOWED			/A090
	DISP;-1;TEXT '^A&C = &CHANGE THE^SDESTINATION TO '	/A065	/C093
		PS2CLF		/ASCII CR-LF-LF-SP-SP-SP-SP		/A093
		PS2SS6		/"DOCUMENT"				/

	CASE;MNTMP3						/A065	/C070
	   DDP;PS2LQP							/A065
	   DDP2;PS2LQP		/ANOTHER KIND OF DRAFT PRINTER		/A070

PS2DP,	DISP;-1;TEXT   '!&DP'						/A065
	GOTO;PS2D							/A065

PS2LQP,	DISP;-1;TEXT   '!&LQP'						/A065
	GOTO;PS2D

PS2NP,	DISP;311;TEXT '^SNON-EXISTENT^S'				/C062
		PS2SS4 / "THE PRINTER IS STOPPED FOR "			/C062
		PS2SS1 / " PRINTER "					/A062
	GOTO;PS2C		/ GO DO 1 BLANK LINE			/A093

PS2D,	TSTBIT;MNTMP6; N ;PS2R	/BRANCH IF NOT ALLOWED			/A090
	DISP;-1;TEXT '^A&N = &NEW PAGE, BRING THE^STO THE TOP OF THE PAPER'/C065
		PS2CLF		/ASCII CR-LF-LF-SP-SP-SP-SP		/A093
				PS2SS1 / " PRINTER "			/A062

PS2R,	TSTBIT;MNTMP6; R ;PS2P	/BRANCH IF NOT ALLOWED			/A090
	CASE;MNQINI;07;PS2RDD	/SPECIAL RESUME MSG FOR NON EXISTENT	/A096
	CASE;MNQINI;10;PS2RDD	/SPECIAL RESUME MSG FOR DOC DEST ERR	/A090
	DISP;-1;TEXT '^A&R = &RESUME^S^SLAST MENU'			/C065
		PS2CLF		/ASCII CR-LF-LF-SP-SP-SP-SP		/A093
				PS2SS2 / "PRINTING"			/A062
				PS2SS5 / "AND RETURN TO THE "		/A062

PS2P,	TSTBIT;MNTMP6; P ;PS2K	/BRANCH IF NOT ALLOWED			/A090
	DISP;-1;TEXT '^A&P = &CONTINUE^SUNTIL THE END OF THIS PAGE'	/C065
		PS2CLF		/ASCII CR-LF-LF-SP-SP-SP-SP		/A093
				PS2SS2	/ "PRINTING"			/A062

PS2K,	TRNSFR;PS3K;DLMPS3	/ PS2K MOVED TO PS3K			/A093

PS2RDD,	CALL;PS3RDD;DLMPS3	/ A SLIGHTLY DIFFERENT RESUME MESSAGE	/A090
	GOTO;PS2P							/A090

/ ******** SUBSTRINGS ********

PS2SS1,	TEXT ' PRINTER '
PS2SS2, TEXT ' PRINTING '
PS2SS4, TEXT '&THE PRINTER IS STOPPED FOR '
PS2SS5, TEXT 'AND RETURN TO THE '
PS2SS6,	TEXT	/ DOCUMENT /						/A065

PS2LF,	12;0				/ASCII LF			/A093
PS2CLF, 15;12;12;40;40;40;40;40;0	/ASCII CR-LF-LF-SP-SP-SP-SP	/A093

XTRPS2=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/STOP PRINTER MENU (CONT. AGAIN)

RELOC
ADMPS3=.
X=DLMPS3			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

PS3S,			/ PUT UP THE BUSY MENU FROM WPCUT		/C171
			/ THIS MESSAGE OCCURS WHEN WE DO AN N		/A128
			/ FROM MAIN MENU AND THE PRINTER IS STOPPED	/A128
			/ OR BUSY					/A128
	DISP;0;TEXT '!E'	/CLEAR SCREEN				/A171
	DISP;1505;TEXT '&THE PRINTER IS BUSY.'				/A171
	MXDISP;2205;X02PRM;DLMX02	/"PRESS RETURN ... MAIN MENU	/A171
	SET; 0; MNTMP8		/TELL READ STATEMENT WHO WE ARE		/A189
	TRNSFR;PS1T0R;DLMPS1	/GO READ KEYBOARD			/A171

/-------------------
PS3RDD,	DISP;-1								/A090
	TEXT '^A&R = &RECONNECT THE PRINTER AND RESUME^S'		/A090
		PS3CLF		/ASCII CR-LF-LF-SP-SP-SP-SP		/A093
							PS3SS1
	RETURN								/A090
/-------------------
PS3K,	DISP;-1;TEXT '^A&S = &STOP^STHIS^S AND RETURN TO THE &MAIN &MENU'
		PS3CLF		/ASCII CR-LF-LF-SP-SP-SP-SP		/A093
				PS3SS1	/ "PRINTING "			/A065
				PS3SS2	/ " DOCUMENT "			/A065
	TRNSFR;PS3D;DLMPS3

PS3D,	TSTBIT;MNTMP6; B ;PS3T	/BRANCH IF NOT ALLOWED			/A090
	DISP;-1;TEXT '^A&B = &START^STHIS^S FROM THE BEGINNING'		/C065
		PS3CLF		/ASCII CR-LF-LF-SP-SP-SP-SP		/A093
				PS3SS1	/ " PRINTING "			/A062
				PS3SS2	/  " DOCUMENT"			/A065

PS3T,	TSTBIT;MNTMP6; T ;PS3L	/BRANCH IF NOT ALLOWED			/A090
	DISP;-1;TEXT '^A&T = &GO BACK A NUMBER OF PAGES AND RESUME'
		PS3CLF		/ASCII CR-LF-LF-SP-SP-SP-SP		/A093
	DISP;-1;TEXT '^SFROM THE TOP OF THE PAGE'
				PS3SS1	/" PRINTING "			/A065

PS3L,	DISP;-1;TEXT '^A&L = &LIST THE^S^S'
		PS3CLF		/ASCII CR-LF-LF-SP-SP-SP-SP		/A093
				PS3SS2	/" DOCUMENT"			/A065
				PS3SS3	/"S WAITING TO PRINT"		/A090

	PQUEUE;PS3SL;PS378	/SEE IF THERE ARE ANY DOCUMENT TO SAVE	/A128
					/ PQUEUE FALLS THROUGH IF 	/A128
					/ QUEUE NOT EMPTY AND		/A128
					/ MNFNO DOESN'T MATCH		/A128
PS3SL,
	DISP;-1;TEXT '^A!&SL = &STORE A &LIST OF^S^S'			/A128
		PS3CLF		/NEW LINE STUFF				/A128
		PS3SS2		/" DOCUMENT"				/A128
		PS3SS3		/"S WAITING TO PRINT"			/A128
PS378,	DISP;-1;TEXT '^A           ';PS3CLF				/C171
	MXDISP;-1;X02TLS;DLMX02	/"TYPE THE LETTER(S) ... RETURN		/A171

PS3RD,	TRNSFR;PS6RD;DLMPS6						/A090

PS3SS1,	TEXT	/ PRINTING /						/A065
PS3SS2,	TEXT	/ DOCUMENT/						/A065
PS3SS3, TEXT	'S WAITING TO PRINT'					/A090

PS3CLF, 15;12;12;40;40;40;40;40;0	/ASCII CR-LF-LF-SP-SP-SP-SP	/A093

XTRPS3=400-.

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

PS4T3,	DISP;311;TEXT '^SFOR "!&SE FIRST"'
		PS4X1
	GOTO;PS4D

PS4T4,	DISP;311;TEXT '^SFOR INSERTION OF '				/C138
		PS4X1
	TRNSFR;PS5SEY;DLMPS5		/ GO DISPLAY WHAT TO INSERT	/A138


PS4T5,	DISP;311;TEXT '^SAT THE END OF THE PAGE'
		PS4X1
PS4D,	TRNSFR;PS2C;DLMPS2		/ GO DO A BLANK LINE & TRY C

PS4T12,	DISP;311
	TEXT '&THE COMMUNICATIONS LINE IS IN USE'			/C138
	GOTO;PS4D

PS4T13,	DISP;304;TEXT '&^SDUE TO A MALFUNCTION, CHECK THE PRINTER'	/M007
		PS4X1							/A005
	GOTO;PS4D

PS4T15,	DISP;311;TEXT '&THE PRINTER PAUSE SWITCH IS ON'			/A005
	GOTO;PS4D

PS4T16,	DISP;311;TEXT '&^SFOR RIBBON OUT.'				/A005
		PS4X1							/A005
	GOTO;PS4D

PS4T17,	DISP;311;TEXT '&^SFOR SHEET FEEDER ERROR'			/A005
		PS4X1							/A005
	GOTO;PS4D

PS4X1,	TEXT 'THE PRINTER IS STOPPED '					/A005

/*********FOLLOWING CODE ENTERED V100 TO MAKE DEC I DECII COMPAT	/A100
/D129	IFNDEF	CONDOR	<
PS4NCM,
PS4DSP,	DISP;0;TEXT '!E    ^A';PS4BEL
	DISP;1505;TEXT 'HARDWARE FOR THE COMMUNICATION OPTION IS NOT PRESENT'
	DISP;1705;TEXT '&PRESS &GOLD !&MENU TO RECALL THE &MAIN &MENU.'
	READ;MNTMP1;PS4RE
	GOTO; PS4DSP

PS4RE,	CASE;MNSYSA							/M117
		EDMENU&3777;-1-MM1S;DLMMM1
	GOTO; PS4DSP

PS4BEL,	7;0
/D129			>	/END IFNDEF CONDOR			/A100
/********END OF VERSION 100 ADDED CODE					/A100

XTRPS4=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/STOP THE PRINTER COMMAND

RELOC
ADMPS5=.
X=DLMPS5			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

PS5S,			/ FRIENDLY LABEL TO SEARCH FOR

PS5T11,									/A035
	MXDISP;1505;X05NEP;DLMX05	/"NON EXISTENT PRINTER		/C171
	MXDISP;2205;X02PRM;DLMX02	/"PRESS RETURN ... MAIN MENU	/A171
	TRNSFR;PS1T0R;DLMPS1		/				/C171

PS5T24,	DISP;0311
	TEXT '&THE DOCUMENT DESTINATION DOES NOT MATCH THE ATTACHED^S'	/C065
			PS5TX2		/"PRINTER"			/A090
	TRNSFR;PS2C;DLMPS2						/M065

PS5T20,	DISP;0311;TEXT '^STHE COVER IS OPEN.'; PS5TX1	/A035	/M041	/C062
	GOTO; PS5PS2						/A035	/M041

PS5T21,	DISP;0311;TEXT '^STHE PAPER IS OUT.'; PS5TX1	/A035	/M041	/C062
	GOTO; PS5PS2						/A035	/M041

PS5T22,	DISP;0311;TEXT '^S^SREADING DOCUMENT'; PS5TX1; PS5TX3		/C142
PS5PS2,	TRNSFR; PS2C; DLMPS2		/ GO DO A BLANK LINE & TRY C	/A035

PS5T23,	DISP;0311;TEXT '^S^SON DRIVE 0.'; PS5TX1; PS5TX3		/C142
	DISP;0511;TEXT '&PLEASE !&VERIFY THE SYSTEM DISKETTE.'		/C101
	GOTO;PS5PS2							/A101

PS5T26,	DISP;0311;TEXT '^SOF A PRINTER ERROR.';PS5TX1		/A110	/C113
	GOTO;PS5PS2							/A110

PS5T27, DISP;0311;TEXT '^SOF MISMATCHED START/END CONTROLS'; PS5TX1	/A142
	DISP;0411;TEXT 'IN THE DOCUMENT.'				/A142
	GOTO;PS5PS2							/A142

PS5SEY,	CASE;MNTMP7							/A138
		5;PS5REAR		/REAR SHEET			/A138
		6;PS5ENV		/ENVELOPE			/A138
	DISP;-1;TEXT 'A FRONT SHEET'	/FRONT SHEET			/A138
	GOTO;PS5PS2							/A138

PS5REAR,DISP;-1;TEXT 'A REAR SHEET'					/A138
	GOTO;PS5PS2							/A138

PS5ENV,	DISP;-1;TEXT 'AN ENVELOPE'					/A138
	GOTO;PS5PS2							/A138

PS5TX1,	TEXT '&THE PRINTER IS STOPPED BECAUSE '				/A035
PS5TX2,	TEXT ' PRINTER '						/A090
PS5TX3,	TEXT 'OF DISK ERROR '						/A142

XTRPS5=400-.

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

PS6ERR,	DISP;0;TEXT '!E    '						/A050
	DISP;2505;TEXT '&DOCUMENT (!D.!D) !A IS ALREADY IN USE.'	/A050
	MNDRV;MNDOCN;MNFNAM						/A050
	DISP;-2605;TEXT '&PRESS !&RETURN.'				/C128
	READ;MNTMP1;.+1							/A050
	TRNSFR;MM1S;DLMMM1						/A050

PS6RD,	READ;MNTMP1;PS6RE
	ARG;PS6RD;MNTMP1
	SET;0;MNTMP2
	CLRV								/A062

	KEYWRD
		TEXT 'S ';PS6SC
		TEXT 'L ';PS6LC

	PQUEUE;.+2;PS6KWB		/MAKE SURE SOMETHING IN PQUEUE	/A128
		KEYWRD; TEXT 'SL ';-1-RS1SLS;DLMRS1			/A128

PS6KWB,	TSTBIT;MNTMP6; B ;PS6KWT	/BRANCH IF OPTION NOT ALLOWED	/A090

	KEYWRD;	TEXT  'B ';PS6BC

PS6KWT,	TSTBIT;MNTMP6; T ;PS6KWR	/BRANCH IF OPTION NOT ALLOWED	/A090

	KEYWRD;  TEXT 'T ';PS6TC

PS6KWR,	TSTBIT;MNTMP6; R ;PS6KWP	/BRANCH IF OPTION NOT ALLOWED	/A090

	KEYWRD;	TEXT  'R ';PS6CC

PS6KWP,	TSTBIT;MNTMP6; P ;PS6KWC	/BRANCH IF OPTION NOT ALLOWED	/A090

	KEYWRD;	TEXT  'P ';PS6PC

PS6KWC,	TSTBIT;MNTMP6; C ;PS6KWN	/BRANCH IF OPTION NOT ALLOWED	/A090

	KEYWRD;	TEXT  'C ';PS6DC					/C065

PS6KWN,	TSTBIT;MNTMP6; N ;PS6RDC	/BRANCH IF OPTION NOT ALLOWED	/A090

	KEYWRD;	TEXT  'N ';PS6NC

PS6RDC,	CALL;CR1NM;DLMCR1
	GOTO;PS6RD

PS6RE,	TRNSFR;PS1RE;DLMPS1

PS6SL,	INCV								/A128
PS6DC,	INCV
PS6CC,	INCV
PS6TC1,	INCV
PS6BC,	INCV
PS6PC,	INCV
PS6SC,	INCV
PS6NC,	INCV
	STOV;	MNTMP5;	RETURN

PS6LC,	SET;-1;MNTMP5
	DISP;300;TEXT '!E&THE^S^S ARE:'
				PS6SS2	/" DOCUMENT"			/A065
				PS6SS3	/"S WAITING TO PRINT"		/A090
	RETURN

PS6TC,	ARG;PS6TCN;MNTMP1
	NUMBER;MNTMP2;PS6TCN
	GOTO; PS6TC1							/A062

PS6TCN,	DISP;-2717;TEXT '&THE &T COMMAND MUST BE FOLLOWED BY A NUMBER.'
	GOTO;PS6RD

PS6SS1,	TEXT	/ PRINTING /						/A065
PS6SS2,	TEXT	/ DOCUMENT/						/A065
PS6SS3, TEXT	'S WAITING TO PRINT'					/A090

XTRPS6=400-.

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

RELOC
ADMCI2=.
X=DLMCI2			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0


/THE 'CI' COMMAND (PART 1)

CI2CI1,	DISP;0;TEXT '!E '
	DISP;1005;TEXT '&TYPE THE NUMBER OF THE DISKETTE'		/C126

	IFDEF CONDOR	<						/A126
	TSTBIT; MNOPTN; MNRX2X; CI2NW1					/A126
	DISP; -1; TEXT ' OR VOLUME'					/A126
		>	/ END IFDEF CONDOR				/A126

CI2NW1,	DISP; -1; TEXT ' WHOSE INDEX YOU WISH TO COPY.'			/C126
	DISP; 1205; TEXT '&THEN TYPE THE NAME OF THE DOCUMENT INTO WHICH THE INDEX '
	DISP; -1; TEXT 'WILL BE PLACED.'				/C126
	DISP; 1405; TEXT '&THEN PRESS !&RETURN TO COPY THE INDEX.'

	IFDEF	ENGLSH	<
	IFNDEF	ENGCAN	<
	DISP;1720;TEXT '&EXAMPLE:  3 2.&OPERATOR &STATISTICS'
	>	/ END ENGCAN
	IFDEF	ENGCAN	<
	DISP;1720;TEXT '&EXAMPLE:  2.&OPERATOR &STATISTICS'
	>	/ END ENGCAN
	>	/ END ENGLSH

	DISP;2205;TEXT '!&OR PRESS &GOLD !&MENU TO RECALL THE &MAIN &MENU.'

	
	READ;MNTMP1;CI2ER
	GOTO;CI2CI


CI2ER,	CASE; MNSYSA
		3777&EDMENU;CI2RET
	CALL;CR1BR;DLMCR1
	GOTO;CI2CI1

CI2RET,	TRNSFR;MM1S;DLMMM1


/START THE CI COMMAND.  LOOK FOR EITHER A STRING OF THE FORM
/'DRNO FILENAME' OR 'FILENAME'  (WHERE 'FILENAME' CAN HAVE A SECOND DRIVE
/NUMBER AS PART OF IT)

CI2CI,	COPY;MNPOS;MNTMP2
	ARG;CI2CI1;MNTMP1

/LOOK FOR A NUMBER FOLLOWED BY A SPACE.  IF PRESENT, 'DRNO' IS GIVEN.
/IF NOT THERE, THE ARG MUST BE A FILE NAME

	NUMBER;MNTMP1;CI2DOT
	COPY;MNTMP1;MNTMP5

	COPY;MNPOS;MNTMP3
	ARG;CI2DOT;MNTMP1
	KEYWRD
		TEXT '.';CI2DOT
	COPY;MNMXDR;CI2MDR
	RANGE;MNTMP5;0
CI2MDR,	0;CI2OFL
	COPY;MNTMP3;MNPOS	/RESTORE TO THE START OF FILENAME STRING
	GOTO;CI2FN

/ANY NUMBER WAS FOLLOWED BY AN EOL OR A PERIOD, AND IS THUS PART OF A
/FILE NAME SPECIFICATION.  BACK UP AND PROCESS AS A FILE NAME.

CI2DOT,	SET;77;MNTMP5
	COPY;MNTMP2;MNPOS

/PICK UP THE NAME OF THE DOCUMENT TO RECEIVE THE INDEX AND PROCEDE.

CI2FN,	FILNAM;CI2CI1;CI2CRE
	TRNSFR;CI1DEF;DLMCI1

CI2CRE,	TRNSFR;CI1CRE;DLMCI1

CI2OFL,	TRNSFR;CI1OFL;DLMCI1


XTRCI2=400-.

IFZERO 	.-401&4000 <?BADPAGE LENGTH>

/MORE CI COMMAND

RELOC
ADMCI1=.
X=DLMCI1			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC	0


/THE FILE TO RECEIVE THE INDEX ALREADY EXISTS.

CI1DEF,	CASE;MNDOCN
		1;CI1DER
	CASE;MNTMP5
		77;CI1SAM
	GOTO;CI1DF1

CI1SAM,	COPY;MNDRV;MNTMP5	/IF NO SEPERATE DRIVE GIVEN, USE INDEX OF THE
				/DOCUMENT DRIVE

CI1DF1,	PQUEUE; CI1PER; .+1	/ SEE IF DOCUMENT IS WAITING TO PRINT.	/A031
				/ REPORT ERROR IF SO.			/A031
	SET;1;MNTMP2		/1 TELLS INDEX 'CI' RATHER THAN 'I'
	SET;0;MNTMP4		/0 TELLS OVERWRITE CODE TO DO IT	/A047
	CMND;16;200;CIF CDF 20
	TRNSFR;CM1NX;DLMCM1

/THE DOCUMENT MUST BE CREATED.  FIRST TRY TO LOCK THE INDEX TO BE ALTERED.
/THEN LOCK THE INDEX TO BE READ (IF THEY DIFFER).  FINALLY, CALL CREATE.

CI1CRE,	CASE;MNTMP5							/A044
		77;CI1CR2	/IF INDEX DRIVE NOT SPECIFIED USE DOC DRIVE/A044
				/INDEX
	GOTO;CI1CR3							/A044

CI1CR2,	COPY;MNDRV;MNTMP5						/A044

CI1CR3,	SET;-1;MNTMP1		/-1 INDICATING OVERWRITE DOCUMENT
	SET;1;MNTMP2		/FLAG INDICATING 'CI' RATHER THAN 'I' COMMAND
	CMND;1;204;CIF CDF 20
	RETURN

CI1MM,	TRNSFR;MM1S;DLMMM1

CI1PER,	CALL;CR2PER;DLMCR2	/ DISPLAY "DOC PRINTING" ERROR MESSAGE.	/M050
	GOTO;CI1RD1		/ FINISH BELOW.

CI1DER,	DISP; 0; TEXT '!E'
	DISP; 2505; TEXT '!&CI CANNOT COPY TO AN INDEX.'
CI1CNT,	DISP; -2605; TEXT '&PRESS !&RETURN TO TRY ANOTHER NAME.'
	GOTO; CI1RD

CI1OFL,	DISP; 0; TEXT '!E'
	DISP; 2505; TEXT '&A DRIVE'					/C126

	IFDEF	CONDOR	<						/A126
	TSTBIT; MNOPTN; MNRX2X; CI1NW1					/A126
	DISP; -1; TEXT '/DEVICE'					/A126
		>	/ END IFDEF CONDOR				/A126

CI1NW1,	DISP; -1; TEXT ' NUMBER MUST BE BETWEEN 0 AND !D.'		/C126
		MNMXDR							/C126
	DISP; -1; TEXT '&PRESS !&RETURN TO TRY ANOTHER NUMBER.'		/C126

CI1RD,	READ;MNTMP1;CI1GLD	/ GET USER INPUT			/M061
CI1RD1,	ARG;CI1CI1;MNTMP3	/ CHECK FOR NULL INPUT			/M061
CI1ERR,	CALL;CR1NM;DLMCR1	/ INVALID INPUT				/M061
	GOTO;CI1RD		/ TRY AGAIN				/M061
CI1GLD,	CALL;CR1BR;DLMCR1	/ ILLEGAL KEYPAD INPUT			/A061

CI1CI1,	TRNSFR;CI2CI1;DLMCI2	/ GO RE-DISPLAY PROMPT			/M061

IFDEF CONDOR <								/A131
/
/ No APU board present							/A131
/

CI1RED,	CASE;	MNSYSA							/A131
		EDMENU&3777;	-1-MM1S;	DLMMM1			/A131

CI1NAP,	DISP;0;TEXT '!E^A';CI1BEL					/A131
	DISP;1505;TEXT '&HARDWARE FOR THE SPELLING OPTION IS NOT PRESENT.'
	DISP;1705;TEXT '&PRESS &GOLD !&MENU TO RECALL THE &MAIN &MENU.'
	READ;	MNTMP1;	CI1RED						/A131
	GOTO;	CI1NAP							/A131
CI1BEL,	7;0								/A131
	>	/ END IFDEF CONDOR					/A131

XTRCI1=400-.

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

/ THE INDEX COMMAND

IN1S,	ARG;IN1NUL;MNTMP1
	NUMBER;MNTMP4;IN1CER

	COPY;MNMXDR;IN1TY
	RANGE;MNTMP4;0
IN1TY,	0;IN1OFL

	COPY;MNTMP4;MNTMP5
	GOTO;IN1CBR

IN1CER,	SET;0;MNTMP5			/SET TO INDICATE DRIVE 0	/A178
	CASE;MNARG
		133;IN1CBR		/TEST FOR SQUARE BRACKET
		173;IN1CBR		/TEST FOR CURLY BRACKET
	GOTO;IN1OFL

IN1NUL,	SET;1;MNTMP5			/SET TO INDICATE DRIVE 1
/D178	GOTO;IN1F

/D178	IN1CBR,	COPY;MNUSR2;MNTMP5

IN1CBR,	SET;0;MNTMP2							/M178
	CMND;16;200;CIF CDF 20
	RETURN

IN1RT2,	TRNSFR;MM1S;DLMMM1

IN1OFL,	DISP;0;TEXT '!E'

	IFDEF	ENGLSH	<
	IFNDEF	ENGCAN	<
	DISP;2205;TEXT '&I MAY BE FOLLOWED BY A DRIVE'			/C126

	IFDEF	CONDOR	<						/A126
	TSTBIT; MNOPTN; MNRX2X; IN1NW1					/A126
	DISP; -1; TEXT '/DEVICE'					/A126
		>	/ END IFDEF CONDOR				/A126

IN1NW1,	DISP; -1; TEXT ' NUMBER BETWEEN 0 AND !D'	/C080
		MNMXDR						/C080
	>	/ END ENGCAN
	IFDEF	ENGCAN	<
	DISP;2205;TEXT '&I MAY BE FOLLOWED BY A DRIVE NUMBER.'
	>	/ END ENGCAN
	>	/ END ENGLSH


	MXDISP;2405;X02PRM;DLMX02	/ Press Return ... Main Menu
	READ;MNTMP1;IN1RT2
	GOTO;IN1RT2


/****** FOLLOWING CODE MOVED HERE FROM PR4 BECAUSE OF NO ROOM

PR4TWA,	DISP;-2004;TEXT ''
	CASE;MNQTW							/M124
		1;PR4TWY
	DISP;-1;TEXT 'DO NOT '
PR4TWY,	DISP;-1;TEXT'PRINT WITH TWO WHEELS'
PR4TWX,	DISP;-1304;TEXT ''
	TSTBIT;MNQSP;0006;PR4DD		/ IF NO ODD/EVEN SKIP AHEAD	/A173
	DISP;1304;TEXT 'PRINT ONLY '	/				/A173
	TSTBIT;MNQSP;0004;PR4PO		/ 				/A173
	DISP;-1;TEXT 'EVEN NUMBERED PAGES'	/			/A173
	GOTO;PR4DD			/				/A173
PR4PO,	DISP;-1;TEXT 'ODD NUMBERED PAGES'	/			/A173

PR4DD,	DISP;-2104;TEXT 'DOCUMENT DESTINATION IS '

/The document destinations have been made to conform to the codes used	/A006
/in the RL based systems (defined in WPF1.PA).  Any unrecongnized	/A006
/destinations are mapped to LQP (that is why those that would normally	/A006
/map to LQP are not in the CASE statement). If this changes than it will/A006
/be necessary to change the way that WPRTOV.PA handles the destinations	/A006

	CASE
	    MNQPNT							/M124
		DDP1;PR4LP
		DDP2;PR4LP   						/M011
		DHOST1;PR4HST
		DHOST2;PR4DHO						/C164
		DHOST3;PR4HST						/A006
		DHOST4;PR4HST						/A006
	DISP;-1;TEXT '!&LQP'

/ DO SHADOW PRINT ON PAGE 1 ONLY IF DD=LQP
	DISP;-2152; TEXT 'SHADOW PRINT '
	TSTBIT;MNQSP;0001;PR4SPN					/C173
	DISP;-1;TEXT 'YES'
	GOTO;PR4CNT
PR4SPN,	DISP;-1;TEXT 'NO'
	GOTO;PR4CNT
									/D006
PR4LP,	DISP;-1;TEXT '!&DP'
	GOTO;PR4CNT
PR4HST,	DISP;-1;TEXT '!&CPTR'						/C168
	GOTO;PR4CNT


PR4DHO,	DISP;-1;TEXT '!&CHST'						/C168

PR4CNT,	TRNSFR;PRCCN2;DLMPRC

XTRIN1=400-.

IFZERO	.-401&4000 <?BAD PAGE LENGTH>

/DEFINE USER KEYS

RELOC
ADMDK1=.
X=DLMDK1			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

DK1S,	DISP;0;TEXT '!E    '
	ARG;DK1RD;MNTMP1
	NUMBER;MNTMP1;DK1ER
	RANGE;MNTMP1;0;CUUDNM-1;DK1ER	/CUUDNM-1 WAS 11 		/C166
	CMND;15;200;CIF 20
	RETURN

DK1RD,	DISP;0;TEXT '!E    '
	DISP;2205;TEXT '&TYPE THE NUMBER OF THE KEY YOU WISH TO DEFINE'
	DISP;-1;TEXT ' AND THEN PRESS !&RETURN'
	DISP;2405;TEXT '!&OR &PRESS &GOLD !&MENU TO RECALL THE &MAIN &MENU.'
	READ;MNTMP1;DK1RE
	GOTO;DK1S

DK1RE,	CASE;MNSYSA							/M117
		EDMENU&3777;DK1MM
	CALL;CR1BR;DLMCR1
	GOTO;DK1RD

DK1MM,	TRNSFR;MM1S;DLMMM1

DK1ER,	DISP;1705;TEXT '^A&THE DEFINABLE KEYS ARE IDENTIFIED BY A NUMBER '
	*.-1
	TEXT ' BETWEEN 0 AND 99.'	/ (9+90)			/C166
	DK1BEL
	DISP;2105;TEXT '&PRESS !&RETURN AND TRY AGAIN.'
	READ;MNTMP1;DK1ER1
	ARG;DK1RD;MNTMP1
	GOTO;DK1ER

DK1ER1,	CASE;MNSYSA							/M117
		EDMENU&3777;DK1MM
	GOTO;DK1ER

DK1BEL,	007;0

XTRDK1=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>


/**************  W  A  R  N  I  N  G  !!!!!  ***************************
/
/	The following menu code is loaded into memory by a TRANSFER to
/	a label at the end of the block, a CMND statement then starts up
/	CPYDSK.  The net effect is that all of the menu code that CPYDSK
/	needs will then be memory resident.  If any of the menu code is
/	moved from this block then the menu interpreter will request a
/	read of the block it is in and if the system disk is not in drive
/	0 the system will blow up in a BIG!! way.  The moral of this story:
/
/		DO NOT MOVE ANY COPY DISK RELATED CODE FROM THIS BLOCK !!!!!
/		-- --- ---- --- ---- ---- ------- ---- ---- ---- -----
/
/***********************************************************************


/***********************************************************************/
/									/
/	MENU PORTION OF CPYDSK						/
/	THIS PORTION EXISTS HERE SO THAT THE STANDARD ERROR MESSAGES	/
/	CAN BE PRODUCED FROM A SINGLE MENU PAGE WHICH CONTAINS THE	/
/	STRING PARSING FOR THE BACKUP FUNCTION.  THIS IS BECAUSE	/
/	THERE IS A POSSIBILITY THAT THE SYSTEM DISK MAY BE REMOVED	/
/	AND THEREFORE OTHER MENU PAGES ARE INACCESSIBLE			/
/									/
/	THIS CODE IS SLIGHTLY DIFFERENT FROM THE MNCOM CODE, AS		/
/	DIFFERENT BLOCK NUMBERS ARE USED.  IF CHANGES ARE MADE TO	/
/	CR1BR OR CR1NM THEY SHOULD BE DUPLICATED HERE			/
/									/
/***********************************************************************/

RELOC
ADMCPM=.
X=DLMCPM			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0



/ENTRY POINT FROM CPYDSK TO GET KEYBOARD INPUT FOR STRING "COPY"	/

	CLRV				/ INITIALIZE RESULT		/
DUCCP0,	READ; MNTMP6; DUCCPG		/ READ STRING		/C152
	CASE; MNTMP3			/ SEE WHICH CHECK WE ARE MAKING	/
		0;		DUCCPY	/ THE COPY CHECK		/
	ARG;  DUCCP0; MNTMP6		/ KEEP READING IF JUST RETURN/C152
	KEYWRD				/ ELSE WE ACCEPT		/
		TEXT 'S ';	DUCCS	/				/
		TEXT 'D ';	DUCCD	/				/
	CALL;CPMNM;DLMCPM;GOTO;DUCCP0	/ BAD INPUT			/

DUCCPY,					/ CHECKING FOR "COPY"		/
	ARG;	DUCCP0;	MNTMP6		/ KEEP READING IF JUST RETURN/C152
	KEYWRD				/ ELSE WE ACCEPT		/
		TEXT 'COPY ';	DUCCCP	/ ANY PART OF "COPY"		/
		TEXT 'NO ';	DUCCGM	/ TREAT LIKE GOLD MENU		/
	CALL;CPMNM;DLMCPM;GOTO;DUCCP0	/ BAD INPUT			/


DUCCPG, CASE;MNSYSA			/ A GOLD KEY HIT		/
		EDMENU&3777;	DUCCGM	/ GOLD MENU			/
	CALL; CPMBR; DLMCPM		/ ALL OTHERS			/
	SET;7777;MNTMP3;RETURN		/ TELL CPYDSK NEED TO PAINT SCREEN


DUCCD,	INCV				/ 3 "D"				/
DUCCS,	INCV				/ 2 "S"				/
DUCCCP,	INCV				/ 1 "COPY"			/
DUCCGM,	STOV;MNTMP3			/ 0 GOLD MEN OR NO		/
	RETURN				/ TO CPYDSK			/

/-------------------------
/ THIS PORTION LIFTED FROM MNCOM
/ THE BLOCK NUMBERS HAVE BEEN MODIFIED

CPMBEL,	007;0	/ BELL ASCIZ STRING
CPMBRK,	074; 130; 135; 0						/

	/***************************************************************
	/
	/ CPMNM IS A SUBROUTINE USED TO PRINT THE RESULTS OF A
	/ READ OPERATION FOLLOWED BY "HAS NO MEANING HERE"
	/ CALLING SEQUENCE:
	/	READ; MNTMP6; LABEL1			/C152
	/	  .
	/	  .
	/	CALL; CPMMN; LABEL2
	/ 			\--WHERE TO GO WHEN RETURN HIT
	/ PARAMETERS:
	/	MNTMP6	POINTER TO ARGUMENT BUFFER
	/		(MNTMP6 IS LOST)
	/
	/***************************************************************

CPMNM,	DISP;-2717;TEXT ' ^A&TYPING "!A" HAS NO MEANING HERE. &TRY AGAIN.'
			CPMBEL;	     MNTMP6		/C152

	CPMRT,	RETURN


	/***************************************************************
	/
	/ CPMBR IS A SUBROUTINE USED TO PRINT THE MESSAGE
	/ "USE ONLY THE ... KEYS" WHEN ERRONEOUS GOLD HAS BEEN TYPED
	/ CALLING SEQUENCE:
	/	READ; MNTMP6; LABEL			/C152
	/	  .
	/	  .
	/LABEL,	CALL; CPMMN; LABEL1
	/ 			\--WHERE TO GO WHEN RETURN HIT
	/ PARAMETERS:
	/	MNTMP6	POINTER TO ARGUMENT BUFFER
	/		(MNTMP6 IS LOST)
	/
	/***************************************************************

CPMBR,	DISP;2000;TEXT '!E^A     ';CPMBEL

	DISP;2205
TEXT '&WHEN TYPING TO THE MENU, USE NORMAL KEYS ON THE KEYBOARD ONLY.'
	DISP;2305
TEXT '&THE &RUBOUT ^A KEY CAN ALSO BE USED.  &A LINE MAY CONTAIN A'	/
	CPMBRK								/
	DISP;2405
TEXT 'MAXIMUM OF 71 CHARACTERS AND MUST END WITH &R&E&T&U&R&N.'
	DISP;2605;TEXT '&PLEASE PRESS &R&E&T&U&R&N AND TRY AGAIN.'

	READ;MNTMP6;CPMBR			/C152
	ARG;CPMRT;MNTMP6		/C152
	GOTO;CPMBR



/**************************************************************************
/
/		Do Not Even THINK of moving the following CMND & RETURN
/		statements to another block.  (See warning at start of block.)
/
/**************************************************************************

CPMLOD,	CMND;4;200;CIF 10	/NOW WE HAVE OUR MENU BLOCK, GO RUN CPYDSK
	RETURN			/BACK TO MAIN MENU WHEN FINISHED	

XTRCPM=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

/Spelling Corrector menu support.
IFDEF CONDOR	<							/A149

RELOC
ADMSPL=.
X=DLMSPL			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0

/Called from Spelling corrector startup (and finishup) code.
/when called,	MNTMP3 = drive # of the SPELLING CORRECTOR diskette.
/		MNTMP2 =  0  -	Prompt for SPELL CHECK diskette.
/			  1  -	Prompt for DICTIONARY diskette.
/			  2  -	'Density error' error message.
/
/If the system is a 2 drive system, the dictionary drive is selected to be the
/"other" drive from the file. If the system is a multi drive system, the user
/is prompted to input the drive # of the dictionary diskette.
/
	RANGE;MNTMP2;1;1;SPLS	/ If prompt for DICTIONARY diskette, change text.
	SET;SPLDD;SPLP1		/ Reset prompt string value.
	SET;SPLDD;SPLP2		/  ...
SPLS,	DISP;0;TEXT '!E'	/ Clear the screen.
	CASE;MNTMP2		/ See which call this is.
/	   0;SPLINI		/ Prompt for SPELL CHECK diskette.	/M144
/	   1;SPLINI		/ Prompt for DICTIONARY diskette.	/A144
	   2;SPLDEN		/ Density error error message.		/M144

/STOP PRINT SCREEN RUNNING UNTIL WE RETURN TO THE MAIN MENU INCASE IT	/A196
/TRIES A BLAST FROM THE POSSIBLY NONRESIDENT SYSTEM DISK		/A196
SPLINI,	SETBIT;4000;MNPULD	/ STOP PRINT SCREEN			/A196

	RANGE;MNMXDR;0;1;SPLGDR	/ Get dictionary drive # if not 2 drive system.
	SET;0;MNTMP3		/ Assume doc on drive 1.
	CASE;MNDRV;1;SPLIN1	/ Jmp if doc on drive 1. Default is set.
	SET;1;MNTMP3		/ When doc on drive 0, Dictionary goes on 1.
SPLIN1,	DISP;1005;TEXT'!E&REMOVE^SFROM DRIVE !D AND INSERT^S.'
		SPLDSK
		MNTMP3
SPLP1,		SPLSC
SPLDSP,	CALL;SPLCMN;DLMSPL	/ Display common text.
	READ;MNTMP1;SPLDS1	/ Get input character.
	ARG;SPLIRT;MNTMP1	/ Return if null.
SPLERR,	DISP;0;TEXT '^A';SPLBEL	/ BEEP at the user.
	SET;-1;MNTMP3		/ Reset MNTMP3 value.
	GOTO;SPLS		/ Re-paint the screen.

SPLDS1,	CASE;MNSYSA		/ Check for GOLD:MENU.
	     EDMENU&3777;SPLGM	/ Take Gold:Menu return if GM entered.
	GOTO;SPLERR		/ Report error.

SPLGM,	SET;4000;MNTMP2		/ 4000 for GOLD:MENU abort return.
	SET;0;MNTMP3		/ Return 0 for diskette #.
	RETURN			/ Return to caller.

SPLGDR,	RANGE;MNTMP3;-1;-1;SPLIN1/ If we've got a drive # then prompt.
	DISP;1005;TEXT '&TYPE THE DRIVE/DEVICE NUMBER THAT CONTAINS^S.'
SPLP2,		SPLSC
	CALL;SPLCMN;DLMSPL	/ Display common code.
	READ;MNTMP1;SPLDS1	/ Get input character.
	ARG;SPLERR;MNTMP1	/ Get 1st argument.
	NUMBER;MNTMP3;SPLERR	/ Convert to a #. Report error if not number.
	COPY;MNMXDR;SPLIN7	/ Copy MAX DRIVE # for range check.
	RANGE;MNTMP3;0		/ See if drive # is within range.
SPLIN7,			0;SPLERR/ Report error if not within range.
	COPY;MNDRV;SPLIN8	/ save doc drive # for comparison.
	CASE;MNTMP3		/ See if requested drive is same as doc drive.
SPLIN8,		    MNDRV;SPLERR/ If same as doc drive then error.
SPLIRT,	SET;0;MNTMP2		/ return 0 if normal return.
	RETURN			/  ...


SPLCMN,	DISP;2305;TEXT '&AND &PRESS !&RETURN'
	DISP;2505;TEXT '!&OR &PRESS &GOLD !&MENU TO RECALL THE &MAIN &MENU.'
	RETURN			/ Return to caller.


SPLDEN,	DISP;1505;TEXT '&PLEASE INSERT^SINTO DRIVE !D'
		SPLDSK
		MNTMP3
	GOTO;SPLDSP		/ Display rest of the prompt.

SPLDSK,	TEXT	' THE DISKETTE '
SPLSC,	TEXT	' THE &D&E&CSPELL DISKETTE'
SPLDD,	TEXT	' THE &DICTIONARY DISKETTE'
SPLBEL,	BELL;0


XTRSPL=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

	/THIS MENU BLOCK WAS ADDED AS  /A155
RELOC
ADMPPM=.
X=DLMPPM			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
X=DLMPPM
RELOC 0
PPMFFF,	SET;12;MNTMP6		/ 11 WILL CAUSE RETURN FROM ED1 TO THIS BLOCK/A155
	PQUEUE;PPMERR;PPMOKP

PPMERR,	SET;0;MNQCPY
	CALL;CR2FQ;DLMCR2
	TRNSFR;MM1S;DLMMM1
PPMOKP,	TRNSFR;ED1PRM;DLMED1	/USE PROMPT FOR FILE NAME		/A155
PPMOKR,	SET;4;MNTMP4		/TO FAKE LP MENU TO ASK FOR "RESULT" FILE/156
	CMND;1;234;CIF 20
	RETURN
PPMM0F,				/FINISHED USING THE SYSTEM
	PQUEUE;MM0FNE;MM0FOK	/ CHECK FOR ANY DOCUMENTS BEING PRINTED	/M020
				/ PQUEUE FALLS THROUGH IF QUEUE IS	/A128
				/ NOT EMPTY AND MNFNO DOESN'T MATCH	/A128
MM0FNE,	TRNSFR;MM2ERR;DLMMM2	/ ERROR - CAN'T FINISH WHILE PRINTING	/C128
MM0FOK,	SET;2525;MNTMP1		/ REMEMBER WE'RE FINISHING UP		/A024
	CMND;2;223;CIF 10	/ GO TO EDITOR TO CLEAR THE PASTE	/A024
	RETURN			/ BUFFER				/A024

XTRPPM=400-.

IFZERO	.-401&4000 <?BADPAGE LENGTH>

RELOC
/VT125 PROMPTS FOR 1ST TIME LOADED
ADM125=.
X=DLM125			/ INDICATE DISK BLOCK WHERE MENU IS LOADED
RELOC 0									/A143

/CALLED WHEN LOADING GRAPHIC SOFTWARE SINCE LAST POWER ON		/A143
/ALSO HANDLES ERROR MESSAGES FROM DISK DURING THE LOAD			/A143

VTST,	CASE;MNTMP2		/SEE WHICH CALL THIS IS			/A143
	   0;VTDRVE		/PROMPT TO TYPE DRIVE #			/A143
	   1;VTCFND		/ERROR MSGS				/A143
	   2;VTDONE		/IS INSTALLED CAN REMOVE DISKETTE	/A143
/	   3;VTDNSE		/DENSITY ERROR				/A143
VTDRVE,	DISP;0;TEXT '!E-- !&GRAPHICS !&INSTALLATION !&PROCEDURE --'	/A143
	DISP;1005;TEXT '&TYPE THE NUMBER OF THE DRIVE/DEVICE THAT CONTAINS'
	DISP;1105;TEXT 'THE !&WPS &UTILITY &SOFTWARE AND PRESS !&RETURN' /C186
	DISP;1305;TEXT '!&OR &PRESS &GOLD !&MENU TO RECALL THE &MAIN &MENU'
	READ;MNTMP1;VTGM						/A143
	ARG;VTNULL;MNTMP1						/A143
	NUMBER;MNTMP3;VTDERR	/DRIVE # WILL BE PASSED IN MNTMP3	/A143
	COPY;MNMXDR;VTMAX						/A143
	RANGE;MNTMP3;
		1;		/FIRST VALUE FOR RANGE TEST		/C185
VTMAX,		4;VTDERR	/2ND VALUE AND ERROR LOC		/A143

	RETURN			/GO BACK TO (CU3?) CALLING ROUTINE	/A143

/	GOTO;VTDRVE							/A143
VTGM,	CASE;MNSYSA		/CONTAINS VALUE OF KEY PRESSED		/A143
	EDMENU&3777;VTNULL	/MASK OFF SIGN				/A143
	CALL;CR1BR;DLMCR1	/STANDARD GOLD KEY ACTION		/A143
	GOTO;VTST		/MAY AS WELL START OVER			/A143
/	GOTO;	VTDRVE		/START OVER				/A143

VTDERR,	DISP;2105;TEXT '&DRIVE NUMBERS ARE 1 TO !D'			/C185
	MNMXDR								/A143
	GOTO;VTANOT							/C185
/VTERRM,	DISP;1005;TEXT '&THE DISKETTE/VOLUME IN DRIVE !D DOES'	/A143
/	MNTMP3			/TMP3 CONTAINS THE DRIVE #		/A143
/	DISP;1105;TEXT 'NOT CONTAIN THE REGIS GRAPHICS SOFTWARE'	/A143
VTCFND,	DISP;2105;TEXT '!L&CAN NOT FIND GRAPHICS SOFTWARE ON DRIVE !D'	/C185
	MNTMP3			/TMP3 CONTAINS THE DRIVE #		/A143
VTANOT,	DISP;2205;TEXT '!L&PRESS !&RETURN TO TRY ANOTHER NUMBER'	/C185
	READ;MNTMP1;VTGM	/WAIT TILL USER READ MSG AND RESPONDS	/A143
	ARG;VTDRVE;MNTMP1
	GOTO;VTDRVE		/GIVE ANOTHER CHANCE TO TYPE DRIVE #	/A143
VTDONE,	READ;MNTMP1;VTEXIT	/WILL GO BACK TO GOLD MENU NO MATTER WHAT
	ARG;VTEXIT;MNTMP1						/A143
/	DISP;1305;TEXT '&DISKETTE MAY BE REMOVED FROM DRIVE !D'		/A143
/	MNTMP3
VTEXIT,	RETURN								/A143
VTNULL,	SET;-1;MNTMP3		/WE WON'T NEED # IN THIS CASE		/A143
	RETURN			/BACK TO CU3				/A143

XTR125=400-.

IFZERO.-401&4000 <?BADPAGE LENGTH>
		>		/END IFDEF CONDOR			/A149
RELOC
XXXXX,		/END OF MENUES