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

(Source file text) 

---

.SBTTL	
SCUCHA: CURRENT CHARAKTER MANIPUL.

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

/
***** SCUCHA *****
/82-02-04/JBU
/(L,AC,MQ)=?,?,?
/CALL SCUCHA
/ASCII SIEHE KOMMENTAR
/(L,AC,MQ)=?,0,?
/
******************


/SCUCHA WIRD VOM MACRO CUCHAR BENUTZT.

/AS = ASCII	0 HEISST:	NORMAL	/DRUCKER: CTRL-B
/		1		BOLD ON	/  "    : CTRL-A
/		2		BLANK ON
/		3		OVERSCORE ON
/		4		UNDERSCORE ON
/		5		BLINK ON
/		7		INVERSE ON

/TELERAY BEFEHL LAUTET:	ESC [ Ps m  (OHNE SPACE'S)


OPEN	"SCUCH","F"
.ENTRY	SCUCHA

	DEFMER	HISP1$,MERK$

SCUCHA,	OPNSUB	RT:SCUCX$,	HISP1$

	VATAD ADM3A
	SNA CLA
	JMP SCUCX$		/KEIN VT100

	VATAD SPHSR
	DCA MERK$
	TAD MERK$
	SNA CLA
	JMP SCU1$		/KEIN DRUCKER
	TAD HISP1$
	ZUWEIS	<"0>,	<"1>
	BITMUS	CTRB,	CTRA
	 SKP
	JMP SCU1$		/NICHT RELEVANT F. DRUCKER
	TYPECL
SCU1$:	VADCA SPHSR
	ESCZEI	EK
	TAD HISP1$
	TYPECL
	TAD ("m)
	TYPECL

	DCAADD VA:SPHSR,MERK$
SCUCX$:	V
	JMP I SCUCHA

CLOSE	"SCUCH"

ENDPR

---