BDOS	EQU	05H
CR	EQU	0DH	;carriage return
LF	EQU	0AH	;line feed
ESCAPE	EQU	1BH
	EXTRN	SNDESC,BD009
	PUBLIC	SCRN1
SCRN1:	MVI	E,1AH	;letter z, to clear screen
	CALL	SNDESC
	LXI	D,OP1
	CALL	BD009
	RET
;the 9's are for tabs
OP1	DB	9,9,'Osborne Executive Screen Command',CR,LF,CR,LF
	DB	'BACKGROUNDS',9,9,'  '
	DB	'CURSOR',CR,LF,CR,LF
	DB	'A = normal',9,9,'  '
	DB	'R = invisible',9,9,'   '
	DB	'8 = start dim',CR,LF
	DB	'B = dim',9,9,9,'  '
	DB	'S = blinking',9,9,'   '
	DB	'9 = end dim',CR,LF
	DB	'C = blinking',9,9,'  '
	DB	'T = steady',9,9,'   '
	DB	'( = start blink',CR,LF
	DB	'D = dim blink',9,9,'  '
	DB	'U = blink under',9,'   '
	DB	') = end blink',CR,Lf
	DB	'E = reverse',9,9,'  '
	DB	'V = underline',9,9,'   '
	DB	'/ = start underline',CR,LF
	DB	'F = rev dim',9,9,9,9,9,'   '
	DB	'\ = end underline',CR,LF
	DB	'G = rev blink',9,9,'  '
	DB	'MISCELLANEOUS',9,9,'   '
	DB	'{ = start inverse',CR,LF
	DB	'H = rev dim blink',9,9,9,9,'   '
	DB	'} = end inverse',CR,LF
	DB	'I = underline',9,9,'  '
	DB	'X = key click on',9,'   '
	DB	'& = start reverse',CR,LF
	DB	'J = under dim',9,9,'  '
	DB	'Y = key click off',9,'   '
	DB	'% = end reverse',CR,LF
	DB	'K = under blink',9,9,'  '
	DB	'0 = cpm keys',CR,LF
	DB	'L = under dim blink',9,'  '
	DB	'1 = wordstar keys',CR,LF
	DB	'M = under rev',9,9,'  '
	DB	'2 = key translate enable',CR,LF
	DB	'N = under rev dim',9,'  '
	DB	'3 = key translate disable',CR,LF
	DB	'O = under rev blink',9,'  '
	DB	'4 = graphics on',CR,LF
	DB	'P = under rev dim blink',9,'  '
	DB	'5 = graphics off',CR,LF
	DB	'Q = quit program',9,'  '
	DB	'6 = alternate characters',CR,LF
	DB	'Z = unscrewup screen',9,'  '
	DB	'7 = primary characters',CR,LF
	DB	9,9,' Screen Selection: ','$'
	END
