File: SMODE.MA of Tape: Various/Decus/decus-2

(Source file text) 

---

.SBTTL 
SMODE:	TERMINAL-MODE SETZEN

.INCLUDE SYS:MACLIB.MA
.INCLUDE SYS:CURLIB.MA

/
***** SMODE *****
/83-01-28/JBU
/(L,AC,MQ)=?,?,?
/CALL SMODE
/1.ASCII-ZEICHEN (ZIFFER)
/2.ASCII-ZEICHEN (h ODER l)
/(L,AC,MQ)=?,0,?
/
******************

/MODE-SETZEN ERFORDERT: ESC [ ? X Y
/MIT	X=ZIFFER
/	Y=h ODER l

/NICHT FUER ADM3A


OPEN	"SMODE","F"
.ENTRY	SMODE

	DEFMER	ZIFF$, ASC$, MERK$

SMODE,	OPNSUB	RT:SMODX$, ZIFF$, ASC$
	VATAD SPHSR
	DCA MERK$
	VADCA SPHSR
	VATAD ADM3A
	SNA CLA
	JMP SMOD1$		/KEIN VT100
	ESCZEI	EK
	TYPECL	<"?>
	TAD ZIFF$
	TYPECL
	TAD ASC$
	TYPECL 
SMOD1$:	DCAADD VA:SPHSR,MERK$
SMODX$:	V
	JMP I SMODE

CLOSE	"SMODE"

ENDPR

---