/ DECmate II - SETUP mode

/ -------------------------------------------------------------------------
/ E_D_I_T  H_I_S_T_O_R_Y
/
/019	EMcD	25-Sep-85	Add Dutch and Spanish Xlations (conditional)
/018	EMcD	12-Sep-85	Allow DO key (its now the UDK key and causes
/				problems as entry of a discrete char !)
/017	EMcD	12-Sep-85	Add Nordic translations (conditionalised)
/016	Mart	01-aug-85	Fix ITALIAN assembly bugs
/				change ITALIAN boud to baud
/				change NERO BIANCO to NORMALE INVERSO
/015	EMcD	26-Mar-85	Two new terminal types & fix VT125 message
/014	EMcD	12-Mar-85	Set term to Lvl2 8 bit 
/013	TCW	16-JUL-84	Expand # of terminal modes
/012	JFS	19-JUN-84	DM-III changes
/011	FJL	19-JAN-84	Deleted "cursor (in)visibilty" feature
/				Removed old edit histories
/ -------------------------------------------------------------------------

/ *****ORDER*****     ***** IMP ***** ORT ***** ANT   *****

	FIELD 0
	*200
	JMP I	.+3
	JMP I	.+1
	7600
	RXLOAD
	*RXLDLS
RXEWT=4
	RXEWT
	0
RXQBLK=11
	RXQBLK
	.
	DLOSET; 100; CDF 30; -DSOSET
	0

	FIELD	3
	*100

CDFMYF=	CDF	30		/ THIS field

K0006,	6			/
K0007,	7			/
K0017,	17			/
T4,	ZBLOCK	1		/
CURSOR,	0			/ increments (always positive)
SETUVL,	0			/ THE "NON-REAL" SET-UP-VALUE

/ ----------------------------------------------------------------------------
/ NOTE: that return from a PR3 request is with the ac=???? (unknown)
/	--yes it's sloppy so we must "CLA" after each PR3 sequence
/
PR3=	6236			/ firmware "PANEL REQUEST" #3
/ ----------------------------------------------------------------------------
/ NOTE: "MNSECN" is not applicable for DECmate II
/ (because only one communications port on DECmate II)
/
/		---------------------------------
/ SET-UP-VALUE,	|   |H05| 6 | 7 | 8 | 9 | 10|H11|
/		---------------------------------
/		      |   |   |   |   |   |   |
/		      |   |   |   |   |   |   SCREEN WIDTH (0=80, 1=132)
/		      |   |   |   |   |   |
/		      |   |   |   |   |   Cursor style (0=block, 1=underline)
/		      |   |   |   |   Cursor Visibility (0=visible, 1=invis.)
/		      |   |   |   Scrolling (0=fast, 1=slow)
/		      |   |   Screen Mode (0=Normal, 1=reverse)
/		      |   keyboard keyclick (0=ON, 1=OFF)
/		      |
/		      TERMINAL MODE (0=ANSI, 1=VT52)
/
/ NOTE: that bit positions H05 and H11 are not modified within "SETUP"
/ because 132 column mode is a function of the EDITOR wide ruler
/ and terminal mode is set in the Systems Options Menu
/ they are only defined here to correspond to the hardware bit positions
/ within program location 24 of field 0 of panel memory,
/
/ program location 25 is the printer baud rate (bits 8-11),
/ program location 26 is the comm baud rate (bits 8-11).


SETUPV=MNSECN-MNABRV+CU4BF1	/ DEFINE LOCATION FOR SET-UP-VALUES


	X=.			/ INDICATE FIRST FREE LOCATION ON PAGE
/-----------
	PAGE

/ "SETUP" screen display

/line1	TERMINAL CHARACTERISTIC SETUP MENU (single height/double width)
/line2
/line3
/line4		Cursor Style		Block		Underline
/line5		Cursor Visibility	Visible		Invisible
/line6		Scrolling		Jump		Smooth
/line7		Screen Mode		Normal		Reverse
/line8		Keyclick		ON		OFF
/line9
/line10
/line11 Press ADVANCE or BACKUP to step thru the selections,
/line12 SEL to select a terminal characteristic,
/line13
/line15 RETURN to leave this menu, using characteristice until next SETUP,
/line16 ENTER to leave this menu, fixing characteristice until next ENTER,
/line17 DO to use a new system diskette.
/line18
/line19	Terminal Mode is set to a ?????? and may be changed in the
/line20 SO (System Options) menu.
/line22 The Printer is set to ???? baud.
/line23 Communications is set to ???? baud.
/line24 Baud rates may be changed in the SO CC (Communication Settings) menu,
/line24

/ ENTER here from "MAIN MENU"

SETUP,	XX			/

	AC0001			/ Set flag active 			/A018
	CDFSYS			/ Point to System field			/A018
	DCA I	(STUACF)	/ And say SETUP is active		/A018
	CDFMYF			/ now back to here			/A018


/ READ the "systems options" disk block (DLSVAL)
				/
	TAD	(RXERD)		/ "READ" the systems option block (DLSVAL)
	JMS	CU4ST		/ (into "CU4BF1")
				/
/ setup lines 19, 22, and 23	/
				/
/D013	AC6000			/
/D013	AND I	(MNPRTB-MNABRV+CU4BF1)
/D013	CLL RTL			/
/D013	RAL			/
	TAD I	(MNPRTB-MNABRV+CU4BF1)	/ FETCH PACKED WORD		/A013
	RTL				/ TM IS NOW 3 BITS		/A013
	RTL				/				/A013
	AND	(7)			/				/A013	
	TAD	(TMTABL)	/ TERMINAL MODE TABLE
	DCA	LIN19B		/
	TAD I	(MNPRTB-MNABRV+CU4BF1)
	AND	K0017		/
	TAD	(BAUDTB)	/ BAUD RATE TABLE
	DCA	LIN22B		/ PRINTER BAUD RATE FROM USER "SO CC" SELECTION
	TAD I	(MNPRIM-MNABRV+CU4BF1)
	AND	K0017		/
	TAD	(BAUDTB)	/ BAUD RATE TABLE
	DCA	LIN23B		/ COMM BAUD RATE FROM USER "SO CC" SELECTION
	JMS	INVISI		/ (make the cursor "INVISIBLE" for SETUP menu)

	CIFMNU			/ CHANGE TO MENU FIELD
	JMS I	IOACAL		/ CALL SYSTEM ROUTINE TO DISPLAY MESSAGE
	  0			/ USE DEFAULT OUTPUT ROUTINE
	  SETUPC		/ IOA "control" string
IFDEF ENGLSH <
	  ERASE		/ ^A
	  0101		/ ^P	/ (really 0102 because of "double width" text)
	  LIN1X		/ ^A	/ (ESC seq makes single height/double width)
	  LIN1		/ ^S	/ USER SELECTIONS MENU
	  0410; LIN4A	/ ^P ^S	/ Cursor Style
	  0510; LIN6A	/ ^P ^S	/ Scrolling
	  0610; LIN7A	/ ^P ^S	/ Screen Mode
	  0710; LIN8A	/ ^P ^S	/ keyclick
/ ---------------------------------------------------------------------------
	  1202; LIN11	/ ^P ^S	/ 'PRESS ADVANCE...ETC.'
	  1302; LIN12	/ ^P ^S	/ 'SEL TO SELECT...ETC.'
	  1502; LIN14	/ ^P ^S / 'PRESS:'
	  1610; LIN15	/ ^P ^S	/ 'RETURN TO LEAVE...ETC.'
	  1710; LIN16	/ ^P ^S	/ 'ENTER TO LEAVE...ETC.'
	  2010; LIN17	/ ^P ^S	/ 'DO TO USE...ETC.'
/ ---------------------------------------------------------------------------
	  2202; LIN19L	/ ^P ^S	/
	SETRVS		/ ^A	/
LIN19B, 0		/ !S	/ TERMINAL MODE user selection from "SO"
	CLRRVS		/ ^A	/
	  LIN19R	/ ^S	/
	  2302; LIN20	/ ^P^S	/
/ ---------------------------------------------------------------------------
	  2502; LIN22L	/ ^P ^S	/
	SETRVS		/ ^A	/
LIN22B, 0		/ !S	/ PRINTER BAUD RATE user selection from "SO CC"
	CLRRVS		/ ^A	/
	  LIN22R	/ ^S	/
/ ---------------------------------------------------------------------------
	  2602; LIN23L	/ ^P ^S	/
	SETRVS		/ ^A	/
LIN23B, 0		/ !S	/ COMM BAUD RATE user selection from "SO CC"
	CLRRVS		/ ^A	/
	  LIN23R	/ ^S	/
	  2702; LIN24	/ ^P ^S	/
 >

IFDEF ITALIAN <
	  ERASE		/ ^A
	  0105		/ ^P	/ (really 0102 because of "double width" text)
	  LIN1X		/ ^A	/ (ESC seq makes single height/double width)
	  LIN1		/ ^S	/ USER SELECTIONS MENU
	  0310; LIN3A	/ ^P ^S	/ Cursor Style
	  0410; LIN4A	/ ^P ^S	/ Scrolling
	  0510; LIN5A	/ ^P ^S	/ Screen Mode
	  0610; LIN6A	/ ^P ^S	/ keyclick
/ ---------------------------------------------------------------------------
	  1001; LIN8	/ ^P ^S	/ 'PREMERE:'
	  1110; LIN9	/ ^P ^S	/ 'AVANTI O INDIETRO...ETC.'
	  1210; LIN10	/ ^P ^S / 'DESIDERATA.'
	  1310; LIN11	/ ^P NS)MENU
	  0310; LIN3A	/ ^P ^S	/ Cursor Style
	  0410; LIN4A	/ ^P ^S	/ Scrolling
	  0510; LIN5A	/ ^P ^S	/ Screen Mode
	  0610; LIN6A	/ ^P ^S	/ keyclick
/ ---------------------------------------------------------------------------
	  1001; LIN8	/ ^P ^S	/ 'PREMERE:'
	  1110; LIN9	/ ^P ^S	/ 'AVANTI O INDIETRO...E----------
	  2101; LIN17L	/ ^P ^S	/
	SETRVS		/ ^A	/
LIN19B, 0		/ !S	/ TERMINAL MODE user selection from "SO"
	CLRRVS		/ ^A	/
	  LIN17R	/ ^S	/
/ ---------------------------------------------------------------------------
	  2201; LIN18L	/ ^P ^S	/
	SETRVS		/ ^A	/
LIN22B, 0		/ !S	/ PRINTER BAUD RATE user selection from "SO CC"
	CLRRVS		/ ^A	/
	  LIN18R	/ ^S	/
/ ---------------------------------------------------------------------------
	  2301; LIN19L	/ ^P ^S	/
	SETRVS		/ ^A	/
LIN23B, 0		/ !S	/ COMM BAUD RATE user selection from "SO CC"
	CLRRVS		/ ^A	/
	  LIN19R	/ ^S	/
/ ---------------------------------------------------------------------------
	  2401;	LIN20	/ ^P ^S	/ IL TIPO TERMINALE...ETC.
	  2501;	LIN21	/ ^P ^S	/ IS (IMPOSTAZIONE SISTEMA)...ETC.
	  2601;	LIN22	/ ^P ^S	/ LE AELOCITA'...ETC.
	  2701;	LIN23	/ ^P ^S	/ IS CS (PARAMETRI...ETC.
>
/ -- end --order -- important --/

IFDEF V30NOR <
	  ERASE		/ ^A
	  0101		/ ^P	/ (really 0102 because of "double width" text)
	  LIN1X		/ ^A	/ (ESC seq makes single height/double width)
	  LIN1		/ ^S	/ USER SELECTIONS MENU
	  0410; LIN4A	/ ^P ^S	/ Cursor Style
	  0510; LIN6A	/ ^P ^S	/ Scrolling
	  0610; LIN7A	/ ^P ^S	/ Screen Mode
	  0710; LIN8A	/ ^P ^S	/ keyclick
/ ---------------------------------------------------------------------------
	  1202; LIN11	/ ^P ^S	/ 'PRESS ADVANCE...ETC.'
	  1302; LIN12	/ ^P ^S	/ 'SEL TO SELECT...ETC.'
	  1502; LIN14	/ ^P ^S / 'PRESS:'
	  1610; LIN15	/ ^P ^S	/ 'RETURN TO LEAVE...ETC.'
	  1710; LIN16	/ ^P ^S	/ 'ENTER TO LEAVE...ETC.'
	  2010; LIN17	/ ^P ^S	/ 'DO TO USE...ETC.'
/ ---------------------------------------------------------------------------
	  2202; LIN19L	/ ^P ^S	/
	SETRVS		/ ^A	/
LIN19B, 0		/ !S	/ TERMINAL MODE user selection from "SO"
	CLRRVS		/ ^A	/
	  LIN19R	/ ^S	/
	  2302; LIN20	/ ^P^S	/
/ ---------------------------------------------------------------------------
	  2502; LIN22L	/ ^P ^S	/
	SETRVS		/ ^A	/
LIN22B, 0		/ !S	/ PRINTER BAUD RATE user selection from "SO CC"
	CLRRVS		/ ^A	/
	  LIN22R	/ ^S	/
/ ---------------------------------------------------------------------------
	  2602; LIN23L	/ ^P ^S	/
	SETRVS		/ ^A	/
LIN23B, 0		/ !S	/ COMM BAUD RATE user selection from "SO CC"
	CLRRVS		/ ^A	/
	  LIN23R	/ ^S	/
	  2702; LIN24	/ ^P ^S	/
>

IFDEF V30SWE <
	  ERASE		/ ^A
	  0101		/ ^P	/ (really 0102 because of "double width" text)
	  LIN1X		/ ^A	/ (ESC seq makes single height/double width)
	  LIN1		/ ^S	/ USER SELECTIONS MENU
	  0410; LIN4A	/ ^P ^S	/ Cursor Style
	  0510; LIN6A	/ ^P ^S	/ Scrolling
	  0610; LIN7A	/ ^P ^S	/ Screen Mode
	  0710; LIN8A	/ ^P ^S	/ keyclick
/ ---------------------------------------------------------------------------
	  1202; LIN11	/ ^P ^S	/ 'PRESS ADVANCE...ETC.'
	  1302; LIN12	/ ^P ^S	/ 'SEL TO SELECT...ETC.'
	  1502; LIN14	/ ^P ^S / 'PRESS:'
	  1610; LIN15	/ ^P ^S	/ 'RETURN TO LEAVE...ETC.'
	  1710; LIN16	/ ^P ^S	/ 'ENTER TO LEAVE...ETC.'
	  2010; LIN17	/ ^P ^S	/ 'DO TO USE...ETC.'
/ ---------------------------------------------------------------------------
	  2202; LIN19L	/ ^P ^S	/
	SETRVS		/ ^A	/
LIN19B, 0		/ !S	/ TERMINAL MODE user selection from "SO"
	CLRRVS		/ ^A	/
	  LIN19R	/ ^S	/
	  2302; LIN20	/ ^P^S	/
/ ---------------------------------------------------------------------------
	  2502; LIN22L	/ ^P ^S	/
	SETRVS		/ ^A	/
LIN22B, 0		/ !S	/ PRINTER BAUD RATE user selection from "SO CC"
	CLRRVS		/ ^A	/
	  LIN22R	/ ^S	/
/ ---------------------------------------------------------------------------
	  2602; LIN23L	/ ^P ^S	/
	SETRVS		/ ^A	/
LIN23B, 0		/ !S	/ COMM BAUD RATE user selection from "SO CC"
	CLRRVS		/ ^A	/
	  LIN23R	/ ^S	/
	  2702; LIN24	/ ^P ^S	/
>       / END IFDEF V30SWE

IFDEF SPANISH <
	  ERASE		/ ^A
	  0101		/ ^P	/ (really 0102 because of "double width" text)
	  LIN1X		/ ^A	/ (ESC seq makes single height/double width)
	  LIN1		/ ^S	/ USER SELECTIONS MENU
	  0410; LIN4A	/ ^P ^S	/ Cursor Style
	  0510; LIN6A	/ ^P ^S	/ Scrolling
	  0610; LIN7A	/ ^P ^S	/ Screen Mode
	  0710; LIN8A	/ ^P ^S	/ keyclick
/ ---------------------------------------------------------------------------
	  1202; LIN11	/ ^P ^S	/ 'PRESS ADVANCE...ETC.'
	  1302; LIN12	/ ^P ^S	/ 'SEL TO SELECT...ETC.'
	  1502; LIN14	/ ^P ^S / 'PRESS:'
	  1610; LIN15	/ ^P ^S	/ 'RETURN TO LEAVE...ETC.'
	  1710; LIN16	/ ^P ^S	/ 'ENTER TO LEAVE...ETC.'
	  2010; LIN17	/ ^P ^S	/ 'DO TO USE...ETC.'
/ ---------------------------------------------------------------------------
	  2202; LIN19L	/ ^P ^S	/
	SETRVS		/ ^A	/
LIN19B, 0		/ !S	/ TERMINAL MODE user selection from  "SO"
	CLRRVS		/ ^A	/
	  LIN19R	/ ^S	/
	  2302; LIN20	/ ^P^S	/
/ ---------------------------------------------------------------------------
	  2502; LIN22L	/ ^P ^S	/
	SETRVS		/ ^A	/
LIN22B, 0		/ !S	/ PRINTER BAUD RATE user selection from "SO CC"
	CLRRVS		/ ^A	/
	  LIN22R	/ ^S	/
/ ---------------------------------------------------------------------------
	  2602; LIN23L/ ^P ^S	/
	SETRVS		/ ^A	/
LIN23B, 0		/ !S	/ COMM BAUD RATE user selection from "SO CC"
	CLRRVS		/ ^A	/
	  LIN23R	/ ^S	/
	  2702; LIN24	/ ^P ^S	/
 >

IFDEF FRENCH <
	  ERASE		/ ^A
	  0101		/ ^P	/ (really 0102 because of "double width" text)
	  LIN1X		/ ^A	/ (ESC seq makes single height/double width)
	  LIN1		/ ^S	/ USER SELECTIONS MENU
	  0410; LIN4A	/ ^P ^S	/ Cursor Style
	  0510; LIN6A	/ ^P ^S	/ Scrolling
	  0610; LIN7A	/ ^P ^S	/ Screen Mode
	  0710; LIN8A	/ ^P ^S	/ keyclick
/ ---------------------------------------------------------------------------
	  1202; LIN11	/ ^P ^S	/ 'PRESS ADVANCE...ETC.'
	  1302; LIN12	/ ^P ^S	/ 'SEL TO SELECT...ETC.'
	  1502; LIN14	/ ^P ^S / 'PRESS:'
	  1610; LIN15	/ ^P ^S	/ 'RETURN TO LEAVE...ETC.'
	  1710; LIN16	/ ^P ^S	/ 'ENTER TO LEAVE...ETC.'
	  2010; LIN17	/ ^P ^S	/ 'DO TO USE...ETC.'
/ ---------------------------------------------------------------------------
	  2202; LIN19L	/ ^P ^S	/
	SETRVS		/ ^A	/
LIN19B, 0		/ !S	/ TERMINAL MODE user selection from "SO"
	CLRRVS		/ ^A	/
	  LIN19R	/ ^S	/
	  2302; LIN20	/ ^P^S	/
/ ---------------------------------------------------------------------------
	  2502; LIN22L	/ ^P ^S	/
	SETRVS		/ ^A	/
LIN22B, 0		/ !S	/ PRINTER BAUD RATE user selection from "SO CC"
	CLRRVS		/ ^A	/
	  LIN22R	/ ^S	/
/ ---------------------------------------------------------------------------
	  2602; LIN23L	/ ^P ^S	/
	SETRVS		/ ^A	/
LIN23B, 0		/ !S	/ COMM BAUD RATE user selection from "SO CC"
	CLRRVS		/ ^A	/
	  LIN23R	/ ^S	/
	  2702; LIN24	/ ^P ^S	/
 >

IFDEF DUTCH <
	  ERASE		/ ^A
	  0101		/ ^P	/ (really 0102 because of "double width" text)
	  LIN1X		/ ^A	/ (ESC seq makes single height/double width)
	  LIN1		/ ^S	/ USER SELECTIONS MENU
	  0410; LIN4A	/ ^P ^S	/ Cursor Style
	  0510; LIN6A	/ ^P ^S	/ Scrolling
	  0610; LIN7A	/ ^P ^S	/ Screen Mode
	  0710; LIN8A	/ ^P ^S	/ keyclick
/ ---------------------------------------------------------------------------
	  1202; LIN11	/ ^P ^S	/ 'PRESS ADVANCE...ETC.'
	  1302; LIN12	/ ^P ^S	/ 'SEL TO SELECT...ETC.'
	  1502; LIN14	/ ^P ^S / 'PRESS:'
	  1610; LIN15	/ ^P ^S	/ 'RETURN TO LEAVE...ETC.'
	  1710; LIN16	/ ^P ^S	/ 'ENTER TO LEAVE...ETC.'
	  2010; LIN17	/ ^P ^S	/ 'DO TO USE...ETC.'
/ ---------------------------------------------------------------------------
	  2202; LIN19L	/ ^P ^S	/
	SETRVS		/ ^A	/
LIN19B, 0		/ !S	/ TERMINAL MODE user selection from "SO"
	CLRRVS		/ ^A	/
	  LIN19R	/ ^S	/
	  2302; LIN20	/ ^P^S	/
/ ---------------------------------------------------------------------------
	  2502; LIN22L	/ ^P ^S	/
	SETRVS		/ ^A	/
LIN22B, 0		/ !S	/ PRINTER BAUD RATE user selection from "SO CC"
	CLRRVS		/ ^A	/
	  LIN22R	/ ^S	/
/ ---------------------------------------------------------------------------
	  2602; LIN23L	/ ^P ^S	/
	SETRVS		/ ^A	/
LIN23B, 0		/ !S	/ COMM BAUD RATE user selection from "SO CC"
	CLRRVS		/ ^A	/
	  LIN23R	/ ^S	/
	  2702; LIN24	/ ^P ^S	/
 >

	TAD	SETUPV		/ GET "GLOBAL" VALUE
	AND	(7703)		/ SAVE BITS
	DCA	T4		/
	TAD	SETUPV		/
	AND	(0070)		/ GET "SETUP" BITS
	RAR			/ MOVE TO ALIGN WITH DISPLAY
	TAD	T4		/ RESTORE OTHER BITS
	DCA	SETUVL		/ STORE FOR THIS ROUTINE "LOCAL"
	JMP	LOOP		/

/  E  X  I  T  terminal characteristics "SETUP" mode

EXIT,	CLA			/ Get rid of the crap			/A018
	CDFSYS			/ Point to system field			/A018
	DCA I 	(STUACF)	/ Clear SETUP busy flag			/A018

	CDIMNU			/ CHANGE DATA AND INSTRUCTION FIELD
	JMP I	SETUP		/ BACK TO MAIN MENU

	X=.			/ INDICATE FIRST FREE LOCATION ON PAGE
/-----------
	PAGE

/ Fill in the "BLANKS" of the screen display
LOOP,	TAD	CURSOR		/
	CMA			/
	DCA	T4		/
	TAD	(BLANKT)	/ BLANK TABLE
	DCA	BLANKP		/ BLANK POSSITION
	TAD	BLANKP		/
	IAC			/
	DCA	BLANKL		/ BLANK LINE NUMBER
	TAD	SETUVL		/ LOCAL SET-UP-VALUES WORD
	DCA	T1		/
	TAD  (ENDBLA-BLANKT%4)	/
	CIA			/
	DCA	T2		/ -6 /-4
LOOPA,	TAD	(-2)		/
	DCA	T3		/
	AC0002			/
	AND	T1		/
	SNA CLA			/
	JMS	SETRV		/ Force only "REVERSE VIDEO" attribute
 	JMP	.+5		/

LOOPB,	AC0002			/
	AND	T1		/
	SZA CLA			/
	JMS	SETRV		/ Force only "REVERSE VIDEO" attribute
	ISZ	T4		/
	SKP CLA			/
	JMS	SETBLI		/ Append "BLINK" to active cursor position

	CIFMNU			/ CHANGE TO MENU FIELD
	  JMS I	IOACAL		/ CALL SYSTEM DISPLAY ROUTINE
	  0			/ USE DEFAULT OUTPUT ROUTINE
	  BLANKC		/ (Control string for blank lines)
BLANKP,	ZBLOCK 1	/ !P	/ ADDRESS OF "^P" POSITION
BLANKL,	ZBLOCK 1	/ !S	/ "ADDRESS OF ADDRESS" OF STRING
	JMS	CLRRV		/ Set video to NORMAL
	AC0002			/
	TAD	BLANKP		/
	DCA	BLANKP		/
	AC0002			/
	TAD	BLANKL		/
	DCA	BLANKL		/
	ISZ	T3		/
	JMP	LOOPB		/
	JMS	T1DIV2		/
	ISZ	T2		/
	JMP	LOOPA		/
	JMP	LOOPC		/

	CIFSYS
	JWAIT			/
LOOPC,	CIFSYS
	XLTIN			/
	JMP	.-4		/

	TAD	(-EDNWLN)	/
	SNA			/
	JMP	KEYRET		/ User pressed "RETURN"
	TAD	(EDNWLN-EDUDKY)	/ Fixed DO key to be USK key while I was
				/ here					/M017
	SNA			/
	JMP	KEYDO		/ User pressed "DO"
	TAD	(EDUDKY-EDSLCT)	/
	SNA			/
	JMP	KEYSEL		/ User pressed "SELECT"
	TAD	(EDSLCT-EDENTR)	/
	SNA			/
	JMP	KEYENT		/ User pressed "ENTER"
	TAD	(EDENTR-EDADVN)	/
	SNA			/
	JMP	.+5		/ User pressed "ADVANCE" (or "right arrow")
	TAD	(EDADVN-EDBKUP)	/
	SZA CLA			/
	JMP	LOOPC		/ User pressed an unknown key
	AC7776		/ -2	/ User pressed "BACKUP"
	IAC		/ +1	/ AC =  +1 OR -1 now
	TAD	CURSOR		/
	SPA			/
	TAD  (ENDBLA-BLANKT%2)	/
	DCA	CURSOR		/
	TAD  (ENDBLA-BLANKT%2-1)/
	CIA			/
	TAD	CURSOR		/
	SMA SZA CLA		/
	DCA	CURSOR		/ "Cursor position" = 0 now
	JMP	LOOP		/

/ The user pressed key "ENTER"

KEYENT,	TAD	(RXEWT)		/ "WRITE" SYSTEM OPTION BLOCK (DLSVAL)
	JMS	CU4ST		/

/ Put the "setupvalues" into program location "mubuf+mnsecn"
/ (else when the user goes into the "SO" menu it will be clobbered)

/ The user pressed key "RETURN"

KEYRET,	JMP	SETTC		/ Set the terminal characteristics

/ The user typed "SELECT"

/	IF the cursorposition is ODD then clear left column
/	ELSE the cursor position is EVEN to clear right column

KEYSEL,	TAD	CURSOR		/
	CLL RAR			/ (Divide by 2 gets "line #")
	CMA			/
	DCA	T4		/
	STL			/
	RAL			/
	RAL			/
	ISZ	T4		/
	JMP	.-2		/
	DCA	T4		/
	TAD	CURSOR		/
	CLL RAR			/ (Link is used)
	CLA			/
	TAD	T4		/
	CMA			/
	AND	SETUVL		/ LOCAL SET-UP-VALUES
	SZL			/
	TAD	T4		/
	DCA	SETUVL		/
	JMP	REMAP		/


/ ROTATE THE CONTENTS OF PROGRAM LOCATION "T1" ONCE TO THE RIGHT

T1DIV2,	XX			/
	TAD	T1		/
	CLL RAR			/
	DCA	T1		/
	JMP I	T1DIV2		/


	X=.			/ INDICATE FIRST FREE LOCATION ON PAGE
/-----------
	PAGE

				/ REMAP BITS FROM SETUPV,TO CONFORM WITH
				/ NEW DISPLAY (NO 'CURSOR VISIBILITY')
REMAP,	CLL CLA			/ BE SURE
	TAD	SETUVL		/
	AND (7703)		/ M7703 SAVE ALL BITS BUT B7-B9
	DCA	T4		/ STORE
	TAD	SETUVL		/
	AND (0034)		/ M0034, CAPTURE B7-B9
	RAL			/ REPOSITION TO MATCH NEW DISPLAY
	TAD	T4		/ ADD IN UNCHANGED BITS
	DCA	SETUPV		/ SAVE REMAPPED BITS IN THE "REAL" SETUPVALUE
	JMP	LOOP		/ RETURN FROM 'SELECT' ROUTINE


BLANKC,	TEXT	\!P!S\		/ CONTROL STRING TO BLANK LINES

BLANKT,
IFDEF ITALIAN <							/a016

	  0340; LIN3B		/ Block
	  0360; LIN3C		/ Underline
	  0440; LIN4B		/ Jump
	  0460; LIN4C		/ Smooth
	  0540; LIN5B		/ Normal
	  0560; LIN5C		/ Reverse
	  0640; LIN6B		/ ON
	  0660; LIN6C		/ OFF
	>							/a016

IFDEF ENGLSH <							/a016
	  0440; LIN4B		/ Block				/a016
	  0460; LIN4C		/ Underline			/a016
	  0540; LIN6B		/ Jump				/a016
	  0560; LIN6C		/ Smooth			/a016
	  0640; LIN7B		/ Normal			/a016
	  0660; LIN7C		/ Reverse			/a016
	  0740; LIN8B		/ ON				/a016
	  0760; LIN8C		/ OFF				/a016

>
IFDEF V30NOR <
	  0440; LIN4B		/ Block				/a016
	  0460; LIN4C		/ Underline			/a016
	  0540; LIN6B		/ Jump				/a016
	  0560; LIN6C		/ Smooth			/a016
	  0640; LIN7B		/ Normal			/a016
	  0660; LIN7C		/ Reverse			/a016
	  0740; LIN8B		/ ON				/a016
	  0760; LIN8C		/ OFF				/a016
>

IFDEF V30SWE <
	  0440; LIN4B		/ Block				/a016
	  0460; LIN4C		/ Underline			/a016
	  0540; LIN6B		/ Jump				/a016
	  0560; LIN6C		/ Smooth			/a016
	  0640; LIN7B		/ Normal			/a016
	  0660; LIN7C		/ Reverse			/a016
	  0740; LIN8B		/ ON				/a016
	  0760; LIN8C		/ OFF				/a016
>   /  END IFDEF V30SWE

IFDEF DUTCH <
	  0440; LIN4B		/ Block				/a016
	  0460; LIN4C		/ Underline			/a016
	  0540; LIN6B		/ Jump				/a016
	  0560; LIN6C		/ Smooth			/a016
	  0640; LIN7B		/ Normal			/a016
	  0660; LIN7C		/ Reverse			/a016
	  0740; LIN8B		/ ON				/a016
	  0760; LIN8C		/ OFF				/a016
>   /  END IFDEF V30SWE

IFDEF SPANISH <
	  0440; LIN4B		/ Block				/a016
	  0460; LIN4C		/ Underline			/a016
	  0540; LIN6B		/ Jump				/a016
	  0560; LIN6C		/ Smooth			/a016
	  0640; LIN7B		/ Normal			/a016
	  0660; LIN7C		/ Reverse			/a016
	  0740; LIN8B		/ ON				/a016
	  0760; LIN8C		/ OFF				/a016
>   /  END IFDEF V30SWE

ENDBLA=.			/ END OF BLANK TABLE

BAUDTB,	B50;	B75;	B110;	B134;	B150;	B300;	B600;	B1200
	B1800;	B2000;	B2400;	B3600;	B4800;	B7200;	B9600;	B19200

B50,	TEXT	\50\
B75,	TEXT	\75\
B110,	TEXT	\110\
B134,	TEXT	\134.5\
B150,	TEXT	\150\
B300,	TEXT	\300\
B600,	TEXT	\600\
B1200,	TEXT	\1200\
B1800,	TEXT	\1800\
B2000,	TEXT	\2000\
B2400,	TEXT	\2400\
B3600,	TEXT	\3600\
B4800,	TEXT	\4800\
B7200,	TEXT	\7200\
B9600,	TEXT	\9600\
B19200,	TEXT	\19200\


	PAGE

CU4ST,	XX
	DCA	QUQBLK+RXQFNC 	/ SET THE FUNCTION

	CDFMYF
	TAD	.-1 		/ SET THE DATA FIELD TO THIS FIELD
	DCA	QUQBLK+RXQBFD
	DCA	QUQBLK+RXQDRV 	/ SET THE DRIVE TO ZERO

	TAD	(DLSVAL) 	/ SET THE BLOCK TO READ
	DCA	QUQBLK+RXQBLK

	TAD	(CU4BF1) 	/ SET THE BUFFER TO READ INTO
	DCA	QUQBLK+RXQBAD

	JMS	QURX 		/ GET THE BLOCK
	CLA
	JMP I	CU4ST

/	THIS IS THE QUEUE ROUTINE TO RXHAN.  THE REQUEST IS IN QUQBLK
/	USED BY DELETE AND SYSTEM OPTIONS

QURX,	XX
	CIFSYS 			/ ++++
	ENQUE 			/ ++++
	QUBLK
	CIFSYS 			/ ++++
	JWAIT
	TAD	QUQBLK+RXQCOD
	SNA 			/ ++++
	JMP	.-4
	JMP I	QURX

QUBLK,	DSKQUE 			/ ++++
	0 			/ ++++
	0
QUQBLK,	ZBLOCK 17

/ This code issues a PR3 request to panel memory to set the WPS user
/ defined terminal characteristics into panel memory program locations
/ 24, 25, and 26 thereby powering up to the WPS characteristics

/d016PR3=	6236			/ PANEL MEMORY REQUEST SEQUENCE #3

/ set the wps defined terminal characteristice into the terminal

/ REMEMBERING THAT SCREEN WIDTH IS FORCED TO 80 COLUMNS
/ AND TERMINAL MODE IS FORCED TO ANSI


SETTC,	TAD	SETUPV		/ GET THE REMAPPED BITS
	CDFMNU
	DCA I	(MUBUF+MNSECN)	/
	TAD I	(MUBUF+MNSECN)	/ Terminal characterics from "SETUP"
	TAD	(1200)		/ Set to Lvl 2 , 8 bit			/A014
	DCA	PRQBLK		/ TERMINAL CHARACTERISTICS
	TAD I	(MUBUF+MNPRTB)	/ Printer baud rate
	AND	K0017		/
	DCA	PRQBLK+1	/ PRINTER BAUD RATE
	TAD I	(MUBUF+MNPRIM)	/ Communications baud rate
	AND	K0017		/
	DCA	PRQBLK+2	/ COMMUNICATIONS BAUD RATE
	CDFMYF
	PRQ3			/ EXECUTE PANEL REQUEST			/a016
	  4003			/ 40 (dest field 0) (src field 3)
	  PRQBLK		/ Source starting address
	  24			/ Destination starting address
	  -3			/ Three words to move
	  7777			/ PR3 terminator
	CLA			/ (Just in case ac dirty after prq)

/ issue the escape sequence "ESC c" to the terminal
/ which will 'reset the terminal characteristics'

	CIFMNU			/ CHANGE TO MENU FIELD
	JMS I	IOACAL		/ CALL SYSTEM OUTPUT ROUTINE
	  0			/ USE DEFAULT OUTPUT ROUTINE
	  CONTRL		/
	  RESTOR		/
	JMP	EXIT		/ EXIT setup mode

RESTOR,	ESC; "c&177; 0		/ RESTORE TERMINAL CHARACTERISTIC SEQ

PRQBLK,	ZBLOCK	3

/ The user pressed key "DO"

/ (Issue a PRQ3 request to the firmware to reboot the system		/m016

KEYDO,	AC0000; 6750		/ Select diskette drive pair 0
	AC0000			/
	  PRQ3			/					/m016
	  5			/
	  7777			/ Terminator
	HLT			/ SHOULD NEVER HALT HERE


	X=.			/ INDICATE FIRST FREE LOCATION ON PAGE
/-----------
	PAGE

/ SET REVERSE VIDEO for active cursor position

SETRV,	XX			/
	CIFMNU			/
	  JMS I	IOACAL		/
	  0			/
	  CONTRL		/
	  SETRVS		/
	JMP I	SETRV		/
				/
CONTRL,	TEXT	\^A\		/
SETRVS,	ESC; "[&177; "0&177; ";&177; "7&177; "m&177; 0

/ CLEAR ALL ATTRIBUTES for active cursor position

CLRRV,	XX			/
	CIFMNU			/
	  JMS I	IOACAL		/
	  0			/
	  CONTRL		/
	  CLRRVS		/
	JMP I	CLRRV		/
				/
CLRRVS,	ESC; "[&177; "0&177; "m&177; 0

/ SET CURSOR INVISIBLE

INVISI,	XX			
	CIFMNU			
	  JMS I	IOACAL		
	  0			
	  CONTRL		
	  CURS0R	
	JMP I	INVISIBLE	
				/
CURS0R,	ESC; "[&177; "?&177; "2&177; "5&177; "l&177; 0

/ SET CURSOR VISIBLE

VISIBL,	XX			/
	CIFMNU			/
	  JMS I	IOACAL		/
	  0			/
	  CONTRL		/
	  CURS1R		/
	JMP I	VISIBLE		/
				/
CURS1R,	ESC; "[&177; "?&177; "2&177; "5&177; "h&177; 0

/ APPEND "BLINK" and "BOLD" attributes for the active cursor position

SETBLI,	XX			/
	CIFMNU			/
	  JMS I	IOACAL		/
	  0			/
	  CONTRL		/
	  SETSEQ		/
	JMP I	SETBLINK	/
				/
SETSEQ,	/		(bold)		(blink)
	ESC;	"[&177;	"1&177;	";&177;	"5&177;	"m&177;	0

SETCHA,	XX			/
	DCA	.+5		/
	CIFMNU			/
	  JMS I	IOACAL		/
	  0			/
	  CONTRL	/ ^A	/
	  ZBLOCK 1		/
	JMP I	SETCHA

/ ------
/ |NOTE| - 80 COLUMN is forced cause 132 column is a function of "wide ruler"
/ ------
COL80S,				/ Screen width
				/ 80
	ESC; "[&177; "?&177; "3&177; "l&177; 0

/ -------- ORDER IMPORTANT --------
/
VSEQUE,				/ Cursor visibility
				/ Visible
	ESC; "[&177; "?&177; "2&177; "5&177; "h&177; 0
				/ Invisible
	ESC; "[&177; "?&177; "2&177; "5&177; "l&177; 0

SCRLSE,				/ Scroll mode
				/ Fast
	ESC; "[&177; "?&177; "4&177; "l&177; 0
				/ Slow
	ESC; "[&177; "?&177; "4&177; "h&177; 0

MODESE,				/ Video
				/ Normal
	ESC; "[&177; "?&177; "5&177; "l&177; 0
				/ Reverse
	ESC; "[&177; "?&177; "5&177; "h&177; 0

/ ---- END ORDER IMPORTANT ----

IFDEF ENGLSH <

SETUPC,				/
	TEXT	\^A\		/ CONTROL for erase screen
    *.-1
	TEXT	\^P^A^S\	/ CONTROL for single H/double W
    *.-1
	TEXT	\^P^S\		/ CONTROL for line 4
    *.-1
	TEXT	\^P^S\		/ CONTROL for lines 5 and 6 /D011
    *.-1
	TEXT	\^P^S^P^S\	/ CONTROL for lines 7 and 8
    *.-1
	TEXT	\^P^S^P^S^P^S^P^S^P^S^P^S\	/ CONTROL for 11,12,14,15,16,17
    *.-1
	TEXT	\^P^S^A!S^A^S^P^S\/ CONTROL for line 19 (L and R) and 20
    *.-1
	TEXT	\^P^S^A!S^A^S\	/ CONTROL for line 22 (L AND R)
    *.-1
	TEXT	\^P^S^A!S^A^S\	/ CONTROL for line 23 (L AND R)
    *.-1
	TEXT	\^P^S\		/ CONTROL for line 24
ERASE,	ESC; 74		/ Set VT100 (ANSI) mode
	ESC; "[&177; "2&177; "J&177; 0		/ ERASE entire screen
LIN1X,	ESC; "#&177; "6&177; 0	/ (Text is single H/double W)
LIN1,
TEXT \&T&E&R&M&I&N&A&L &C&H&A&R&A&C&T&E&R&I&S&T&I&C&S &S&E&T&U&P &M&E&N&U\
LIN4A,	TEXT	\&CURSOR &STYLE\
LIN4B,	TEXT	\&BLOCK\
LIN4C,	TEXT	\&UNDERLINE\
LIN6A,	TEXT	\&SCROLLING\
LIN6B,	TEXT	\&JUMP\
LIN6C,	TEXT	\&SMOOTH\
LIN7A,	TEXT	\&SCREEN &BACKGROUND\
LIN7B,	TEXT	\&BLACK\
LIN7C,	TEXT	\&WHITE\
LIN8A,	TEXT	\&KEYCLICK\
LIN8B,	TEXT	\&ON\
LIN8C,	TEXT	\&OFF\

LIN11,	TEXT \&PRESS &A&D&V&A&N&C&E OR &B&A&C&K&U&P TO\
	*.-1
	TEXT \ STEP THRU THE SELECTIONS, AND PRESS\

LIN12,	TEXT \&S&E&L TO SELECT A TERMINAL CHARACTERISTIC.\

LIN14,	TEXT \&PRESS:\

LIN15,	TEXT \&R&E&T&U&R&N TO LEAVE THIS MENU \
	*.-1
	TEXT \(USING CHARACTERISTICS FOR THIS SESSION).\

LIN16,	TEXT \&E&N&T&E&R TO LEAVE THIS MENU \
	*.-1
	TEXT \(STORING CHARACTERISTICS). \

LIN17,	TEXT \&D&O TO USE A NEW SYSTEM DISKETTE.\

LIN19L,	TEXT \&TERMINAL &MODE IS SET TO TYPE \		/M015

LIN19R,	TEXT \ AND MAY BE CHANGED IN THE\

LIN20,	TEXT \&S&O (&SYSTEM &OPTIONS) MENU.\

LIN22L,	TEXT \&THE PRINTER IS SET TO \

LIN23R,		/
LIN22R,	TEXT \ BAUD.\

LIN23L,	TEXT \&COMMUNICATION IS SET TO \

LIN24,	TEXT \&BAUD RATES MAY BE CHANGED IN THE &S&O &C&C \
	*.-1
 	TEXT \(&COMMUNICATION &SETTINGS) &SUBMENU.\
LIN23,					/ replaced 		edit	/a016
	>

IFDEF ITALIAN <

SETUPC,				/
	TEXT	\^A\		/ CONTROL for erase screen
    *.-1
	TEXT	\^P^A^S\	/ CONTROL for single H/double W
    *.-1
	TEXT	\^P^S\		/ CONTROL for line 1
    *.-1
	TEXT	\^P^S\		/ CONTROL for lines 3 and 4 /D011
    *.-1
	TEXT	\^P^S^P^S\	/ CONTROL for lines 5 and 6
    *.-1
	TEXT	\^P^S^P^S^P^S^P^S^P^S^P^S\	/ CONTROL for 8,9,10,11,12,13
    *.-1
	TEXT	\^P^S^P^S\	/ CONTROL for lines 14 and 15
    *.-1
	TEXT	\^P^S^A!S^A^S\/ CONTROL for line 17 (L and R)
    *.-1
	TEXT	\^P^S^A!S^A^S\	/ CONTROL for line 18 (L AND R)
    *.-1
	TEXT	\^P^S^A!S^A^S\	/ CONTROL for line 19 (L AND R)
    *.-1
	TEXT	\^P^S\		/ CONTROL for line 21
    *.-1
	TEXT	\^P^S\		/ CONTROL for line 22
    *.-1
	TEXT	\^P^S^P^S\	/ CONTROL for line 23,24

ERASE,	ESC; 74		/ Set VT100 (ANSI) mode
	ESC; "[&177; "2&177; "J&177; 0		/ ERASE entire screen
LIN1X,	0	/ (Text is single H/double W)
LIN1,
TEXT \-- !&MENU !&DI !&IMPOSTAZIONE !&CARATTERISTICHE !&TERMINALE --\
LIN3A,	TEXT	\&TIPO CURSORE\		/ cursor style			/a016
LIN3B,	TEXT	\&BLOCCO\               / block				/a016
LIN3C,	TEXT	\&TRATTINO\		/ Underline			/a016
LIN4A,	TEXT	\&SCORRIMENTO IMMAGINE\	/ Scroll			/a016
LIN4B,	TEXT	\&VELOCE\		/ jump				/a016
LIN4C,	TEXT	\&LENTO\		/ smooth			/a016
LIN5A,	TEXT	\&SFONDO VIDEO\		/ screen background		/a016
LIN5B,	TEXT	\&NORMALE\		/ black/normal			/a016
LIN5C,	TEXT	\&INVERSO\		/ white/inverse			/a016
LIN6A,	TEXT	\&RUMORE DEI TASTI\	/ keyclick			/a016	
LIN6B,	TEXT	\&ABILITATO\		/ on				/a016
LIN6C,	TEXT	\&DISABILITATO\		/ off				/a016

LIN8,	TEXT \&PREMERE:\

LIN9,	
TEXT /!&AVANTI O !&INDIETRO PER POSIZIONARE IL CURSORE SULLA CARATTERISTICA/

LIN10,	TEXT /DESIDERATA./

LIN11,	TEXT \!&SELEZ PER RENDERE EFFETTIVA LA SCELTA FATTA.\

LIN12,	
TEXT \!&RITORNO PER USCIRE DAL MENU, UTILIZZANDO LE CARATTERISTICHE SCELTE\

LIN13,	TEXT \PER LA SESSIONE DI LAVORO CORRENTE.\

LIN14,	
TEXT \!&INVIO PER USCIRE DAL MENU MEMORIZZANDO LE CARATTERISTICHE SELEZIONATE.\

LIN15,	TEXT \!&ESECUZIONE PER UTILIZZARE UN NUOVO DISCHETTO SISTEMA.\

LIN17L,	TEXT \&TIPO &TERMINALE : \		/M015

LIN17R,	TEXT \.\

LIN18L,	TEXT /&VELOCIT\@ DELLA STAMPANTE: /

LIN19R,		/
LIN18R,	TEXT \ BAUD.\						/m016

LIN19L,	TEXT /&VELOCIT\@ DI TRASMISSIONE: /

LIN20,	
TEXT /&IL &TIPO &TERMINALE PU\R ESSERE MODIFICATO UTILIZZANDO L'OPZIONE /

LIN21,	TEXT \!&IS (&IMPOSTAZIONE &SISTEMA) DEL &MENU &PRINCIPALE.\

LIN22,	TEXT /&LE VELOCIT\@ POSSONO ESSERE MODIFICATE UTILIZZANDO L'OPZIONE/

LIN23,	TEXT /!&IS !&CS (&PARAMETRI DI &COMUNICAZIONE E &STAMPA)./
	>

	IFDEF V30NOR <
SETUPC,				/
	TEXT	\^A\		/ CONTROL for erase screen
    *.-1
	TEXT	\^P^A^S\	/ CONTROL for single H/double W
    *.-1
	TEXT	\^P^S\		/ CONTROL for line 4
    *.-1
	TEXT	\^P^S\		/ CONTROL for lines 5 and 6 /D011
    *.-1
	TEXT	\^P^S^P^S\	/ CONTROL for lines 7 and 8
    *.-1
	TEXT	\^P^S^P^S^P^S^P^S^P^S^P^S\	/ CONTROL for 11,12,14,15,16,17
    *.-1
	TEXT	\^P^S^A!S^A^S^P^S\/ CONTROL for line 19 (L and R) and 20
    *.-1
	TEXT	\^P^S^A!S^A^S\	/ CONTROL for line 22 (L AND R)
    *.-1
	TEXT	\^P^S^A!S^A^S\	/ CONTROL for line 23 (L AND R)
    *.-1
	TEXT	\^P^S\		/ CONTROL for line 24
ERASE,	ESC; 74		/ Set VT100 (ANSI) mode
	ESC; "[&177; "2&177; "J&177; 0		/ ERASE entire screen
LIN1X,	ESC; "#&177; "6&177; 0	/ (Text is single H/double W)
LIN1,	TEXT '!&TERMINAL-!&OPPSETT'
LIN4A,	TEXT	'&MARK\XTYPE'
LIN4B,	TEXT	'&BLOKK'
LIN4C,	TEXT	'&UNDERSTREK'
LIN6A,	TEXT	'&RULLING'
LIN6B,	TEXT	'&RYKK'
LIN6C,	TEXT	'&JEVN'
LIN7A,	TEXT	'&BAKGRUNN'
LIN7B,	TEXT	'&M\XRK'
LIN7C,	TEXT	'&LYS'
LIN8A,	TEXT	'&TASTEKLIKK'
LIN8B,	TEXT	'&P\E'
LIN8C,	TEXT	'&AV'

LIN11,	TEXT '&TRYKK P\E !&FREM EL. !&TILBAKE FOR \E'
	*.-1
	TEXT ' FLYTTE DEG MELLOM ALTERNATIVENE. &TRYKK P\E'

LIN12,	TEXT '!&VELG FOR \E VELGE ET ALTERNATIV.'

LIN14,	TEXT '&TRYKK P\E:'

LIN15,	TEXT '!&RETUR FOR \E G\E UT AV MENYEN '
	*.-1
	TEXT '(OG BRUKE OPPSETTET MIDLERTIDIG).'

LIN16,	TEXT '!&LEGG !&INN FOR \E G\E UT AV MENYEN '
	*.-1
	TEXT '(OG LAGRE OPPSETTET). '

LIN17,	TEXT '!&UTF\XR HVIS DU HARR SATT INN EN NY SYSTEMDISKETT.'

LIN19L,	TEXT '&TERMINALMODUS ER SATT TIL'		/M015

LIN19R,	TEXT ' OG  KAN ENDRES I MENYN '

LIN20,	TEXT '&&ENDRE SYSTEMVERDIER (!&ES).'

LIN22L,	TEXT '&SKRIVER: '

LIN23R,		/
LIN22R,	TEXT ' BAUD.'

LIN23L,	TEXT '&KOMMUNIKASJON: ' 

LIN24,	TEXT '&OVERF\XRINGSHASTIGHETENE KAN ENDRES MED !&ES/!&EK I'
	*.-1
 	TEXT ' MENYEN &ENDRE KOMMUNIKASJONSVERDIER.'
LIN23,					/ replaced 		edit	/a016
	>

IFDEF V30SWE <
SETUPC,				/
	TEXT	\^A\		/ CONTROL for erase screen
    *.-1
	TEXT	\^P^A^S\	/ CONTROL for single H/double W
    *.-1
	TEXT	\^P^S\		/ CONTROL for line 4
    *.-1
	TEXT	\^P^S\		/ CONTROL for lines 5 and 6 /D011
    *.-1
	TEXT	\^P^S^P^S\	/ CONTROL for lines 7 and 8
    *.-1
	TEXT	\^P^S^P^S^P^S^P^S^P^S^P^S\	/ CONTROL for 11,12,14,15,16,17
    *.-1
	TEXT	\^P^S^A!S^A^S^P^S\/ CONTROL for line 19 (L and R) and 20
    *.-1
	TEXT	\^P^S^A!S^A^S\	/ CONTROL for line 22 (L AND R)
    *.-1
	TEXT	\^P^S^A!S^A^S\	/ CONTROL for line 23 (L AND R)
    *.-1
	TEXT	\^P^S\		/ CONTROL for line 24
ERASE,	ESC; 74		/ Set VT100 (ANSI) mode
	ESC; "[&177; "2&177; "J&177; 0		/ ERASE entire screen
LIN1X,	ESC; "#&177; "6&177; 0	/ (Text is single H/double W)
LIN1,   TEXT	'- !&VAL !&AV !&TERMINALINST\DLLNING -'
LIN4A,	TEXT	'&MARK\VRENS UTSEENDE'
LIN4B,	TEXT	'&BLOCK'
LIN4C,	TEXT	'&UNDERSTRYKNING'
LIN6A,	TEXT	'&BILDRULLNING'
LIN6B,	TEXT	'&HOPPA'
LIN6C,	TEXT	'&J\EMN'
LIN7A,	TEXT	'&SK\DRMBILDENS BAKGRUNDSF\DRG'
LIN7B,	TEXT	'&SVART'
LIN7C,	TEXT	'&VIT'
LIN8A,	TEXT	'TANGENTBORDSSIGNAL'
LIN8B,	TEXT	'&P\E'
LIN8C,	TEXT	'&AV'

LIN11,	TEXT 	'&TRYCK P\E FRAM\ET ELLER BAK\ET F\VR ATT'
	*.-1
	TEXT	'PLACERA MARK\VREN VID VALET, TRCK SEDAN P\E'

LIN12,	TEXT 	'MARK F\VR ATT V\DLJA INST\DLLNING'

LIN14,	TEXT 	'&TRYCK P\E'

LIN15,	TEXT 	'RETUR F\VR ATT \ETERGE TILL MENYN '
	*.-1
	TEXT	'ANV\DND G\DLLANDE INST\DLLNINGAR' 

LIN16,	TEXT 	'ENTER F\VR ATT KOMMA TILLBAKA TILL F\VRRA MENYN '
	*.-1
	TEXT 	'(LAGRA INST\DLLNINGAR)'

LIN17,	TEXT 	'UTF\VR OM DU VILL ANV\DNDA EN NY SYSTEMDISKETT'

LIN19L,	TEXT 	'&TERMINALL\DGETS INST\DLLNING \DR'		/M015

LIN19R,	TEXT 	'OCH KAN \DNDRAS'

LIN20,	TEXT 	'I HUVUDMENYN UNDER !&SV (SYSTEMVAL)'

LIN22L,	TEXT 	'&SKRIVARENS INST\DLLNING \DR'

LIN23R,		/
LIN22R,	TEXT 	' BAUD.'

LIN23L,	TEXT 	'&KOMMUNIKTIONSINST\DLLNINGEN \DR'

LIN24,	TEXT 	'&BAUDV\DRDET KAN \DNDRAS I HUVUDMENYN UNDER !&SV - !&IK '
	*.-1
 	TEXT 	'(!&SYSTEMVAL -!&KOMMUNIKATIONS/ OCH SKRIVARUTG\ENGAR)'
LIN23,					/ replaced 		edit	/a016

>

IFDEF DUTCH <

SETUPC,				/
	TEXT	\^A\		/ CONTROL for erase screen
    *.-1
	TEXT	\^P^A^S\	/ CONTROL for single H/double W
    *.-1
	TEXT	\^P^S\		/ CONTROL for line 4
    *.-1
	TEXT	\^P^S\		/ CONTROL for lines 5 and 6 /D011
    *.-1
	TEXT	\^P^S^P^S\	/ CONTROL for lines 7 and 8
    *.-1
	TEXT	\^P^S^P^S^P^S^P^S^P^S^P^S\	/ CONTROL for 11,12,14,15,16,17
    *.-1
	TEXT	\^P^S^A!S^A^S^P^S\/ CONTROL for line 19 (L and R) and 20
    *.-1
	TEXT	\^P^S^A!S^A^S\	/ CONTROL for line 22 (L AND R)
    *.-1
	TEXT	\^P^S^A!S^A^S\	/ CONTROL for line 23 (L AND R)
    *.-1
	TEXT	\^P^S\		/ CONTROL for line 24
ERASE,	ESC; 74		/ Set VT100 (ANSI) mode
	ESC; "[&177; "2&177; "J&177; 0		/ ERASE entire screen
LIN1X,	ESC; "#&177; "6&177; 0	/ (Text is single H/double W)
LIN1,
TEXT \!&INSTELLINGEN !&VOOR &D&E !&TERMINAL\
LIN4A,	TEXT	\&CURSOR\
LIN4B,	TEXT	\&BLOKJE\
LIN4C,	TEXT	\&STREEPJE\
LIN6A,	TEXT	\&SCROLLEN\
LIN6B,	TEXT	\&SPRONGSGEWIJS\
LIN6C,	TEXT	\&GELIJKMATIG\
LIN7A,	TEXT	\&SCHERM \
LIN7B,	TEXT	\&ZWART\
LIN7C,	TEXT	\&WIT\
LIN8A,	TEXT	\&TOETSKLIK\
LIN8B,	TEXT	\&AAN\
LIN8C,	TEXT	\&UIT\

LIN11,	TEXT \&DRUK OP !&VOORUIT OF !&TERUG OM LANGS DE OPTIES TE GAAN. \


LIN12,	TEXT \&DRUK OP !&SELECT OM TE SELECTEREN.\

LIN14,	TEXT \&DRUK OP:\

LIN15,	TEXT \!&RETURN OM DE AFGEBEELD INSTELLINGEN TE GEBRUIKEN \

LIN16,	TEXT \!&VOER !&IN OM DE AFGEBEELDE INSTELLINGEN TE GEBRUIKEN.\

LIN17,	TEXT \!&VOER !&OPDR !&UIT OM &D&E&CMATE OPNIEUW TE STARTEN.\

LIN19L,	TEXT \&TERMINAL-INSTELLING IS \		/M015

LIN19R,	TEXT \ ,DEZE KAN WORDEN GEWIJZIGD MET\

LIN20,	TEXT \&T&I IN HET &OPTIE-MENU (&B&S).\

LIN22L,	TEXT \&DE PRINTERSNELHEID IS \

LIN23R,		/
LIN22R,	TEXT \.\

LIN23L,	TEXT \&COMMUNICATIESNELHEID IS \

LIN24,	TEXT \&SNELHEDEN KUNNEN WORDEN GEWIJZIGD MET\
	*.-1
 	TEXT \ &B&S &W&I (&COMMUNICATIE-INSTELLINGEN).\	

LIN23,
	>

	IFDEF SPANISH <


SETUPC,				/
	TEXT	\^A\		/ CONTROL for erase screen
    *.-1
	TEXT	\^P^A^S\	/ CONTROL for single H/double W
    *.-1
	TEXT	\^P^S\		/ CONTROL for line 4
    *.-1
	TEXT	\^P^S\		/ CONTROL for lines 5 and 6 /D011
    *.-1
	TEXT	\^P^S^P^S\	/ CONTROL for lines 7 and 8
    *.-1
	TEXT	\^P^S^P^S^P^S^P^S^P^S^P^S\	/ CONTROL for 11,12,14,15,16,17
    *.-1
	TEXT	\^P^S^A!S^A^S^P^S\/ CONTROL for line 19 (L and R) and 20
    *.-1
	TEXT	\^P^S^A!S^A^S\	/ CONTROL for line 22 (L AND R)
    *.-1
	TEXT	\^P^S^A!S^A^S\	/ CONTROL for line 23 (L AND R)
    *.-1
	TEXT	\^P^S\		/ CONTROL for line 24
ERASE,	ESC; 74		/ Set VT100 (ANSI) mode
	ESC; "[&177; "2&177; "J&177; 0		/ ERASE entire screen
LIN1X,	ESC; "#&177; "6&177; 0	/ (Text is single H/double W)
LIN1, TEXT \!&MENU !&DE !&CARACTERISTICAS !&DE !&TERMINAL\
LIN4A,	TEXT	\&TIPO &CURSOR \
LIN4B,	TEXT	\&BLOQUE\
LIN4C,	TEXT	\&RAYA\
LIN6A,	TEXT	\&DESPLAZAMIENTO\
LIN6B,	TEXT	\&INCREMEN.\
LIN6C,	TEXT	\&CONTINUO\
LIN7A,	TEXT	\&FONDO &PANTALLA\
LIN7B,	TEXT	\&NEGRO\
LIN7C,	TEXT	\&BLANCO\
LIN8A,	TEXT	\&CLIC DE TECLAS\
LIN8B,	TEXT	'&S\M'
LIN8C,	TEXT	\&NO\

LIN11,	TEXT \&PULSE !&ADELANTE O !&ATRAS PARA\
	*.-1
	TEXT \ MOVERSE ENTRE LAS OPCIONES, Y PULSE\

LIN12,	TEXT '!&SEL PARA SELECCIONAR LAS CARACTER\MSTICAS DE TERMINAL.\'

LIN14,	TEXT \&PULSE:\

LIN15,	TEXT '!&RETORNO PARA ABANDONAR ESTE MEN\Z '
	*.-1
	TEXT '(USANDO CARACTER\MSTICAS PARA ESTA SESI\SN).'

LIN16,	TEXT '!&VALIDAR PARA ABANDONAR ESTE MEN\ZMENU '
	*.-1
	TEXT '(ALMACENANDO LAS CARACTER\MSTICAS).'

LIN17,	TEXT \!&EJECUTAR PARA USAR UN DISKETTE SISTEMA NUEVO.\

LIN19L,	TEXT '&EL &MODO DEL &TERMINAL EST\A ESTABLECIDO PARA UN '	/M015

LIN19R,	TEXT ' Y SE PUEDE CAMBIAR EN EL MEN\Z'

LIN20,	TEXT \&O&S (&OPCIONES DEL SISTEMA) MENU.\

LIN22L,	TEXT '&LA IMPRESORA EST\A AJUSTADA EN '

LIN23R,		/
LIN22R,	TEXT \ BAUDIOS.\

LIN23L,	TEXT '&COMUNICACIONES EST\A AJUSTADA EN \

LIN24,	TEXT \&LA VELOCIDAD EN BAUDIOS SE PUEDE CAMBIAR EN &S&O &C&C\
	*.-1
 	TEXT ' &SUBMEN\ZU (&VALORES DE &COMUNICACI\SN).'
LIN23,					/ replaced 		edit	/a016
	>

/
/	Moved here on edit 015 for space reasons			/A015
/
/ TERMINAL MODE TABLE
/
TMTABL,	VT52;	VT100;	DMII;	VT125;	VT227	;VT228 ;VT22F	/A015	/M013

VT52,	TEXT	\&V&T52\
VT100,	TEXT	\&V&T100\
DMII,	TEXT	\&D&E&CMATE\
VT125,	TEXT	\&GRAPHICS\						/M015
VT227,	TEXT	\&V&T227\						/A013
VT228,	TEXT	\&V&T228\						/A015
VT22F,	TEXT	\&V&T22&F\						/A015


	X=.			/ INDICATE FIRST FREE LOCATION ON PAGE
/-----------
	PAGE

CU4BF1=.			/\zblock 400




