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

(Source file text) 

---

.SBTTL	
SSTAZE: STATUS-ZEILE AENDERN

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

/
***** SSTAZE *****
/82-08-20/JBU
/(L,AC,MQ)=?,?,?
/CALL SSTAZE
/POSITION (COLUMN)
/TEXT ADRESSE
/ANGABE FUER CHARAKTER ATTRIBUTES
/(L,AC,MQ)=?,0,?
/
******************

/WENN "ZEIT:" AUSGEDRUCKT WIRD, FOLGT AUTOMATISCH DER DEZIMALE
/AUSDRUCK DES VERZOEGERUNGS-MERKERS VERZOE (4-STELLIG)

/SSTAZE WIRD VOM MACRO "STAZEI" BENUTZT
/DIE GLOBALE VARIABLE VERZOE DIENT ZUR VERZOEGERUNG DER AENDERUNG
/DER STATUSZEILE


OPEN	"SSTAZ","F"
.EXTERNAL  SCUCHA, SCURPO, TESTA1, TESTA6,STEXAU
.ENTRY	SSTAZE

DEFMER MERK$

SSTAZE,	OPNSUB	RT:SSTAX$, SPALT$, TEXT$, ATTRI$

	CAL
	VATAD SPHSR
	DCA MERK$
	VADCA SPHSR

	CURSOR	<SAVE>
	CUCHAR	<NORMAL>
	VERGLE	ATTRI$,<"0>,NE:SSTA1$
	CUCHAR	<UNDERSCORE ON>
SSTA0$:	CALL SCURPO
ZEILE$:	1
SPALT$:	V
	CALL STEXAU, 1, <CDF TESTA1>
TEXT$:	V
	TAD TEXT$
	CIA
	JMX AC+TEST6$, NE:SSTA3$	/"ZEIT:" AUSGEDRUCKT ?, NEIN
	CURPOS	1,56.		/JA
	VATAD VERZOE
	DECPRT 4
SSTA3$:	CUCHAR	<NORMAL>
	CURSOR	<RESTORE>
	DCAADD VA:SPHSR,MERK$
SSTAX$:	V
	JMP I SSTAZE

SSTA1$:	JMP .+2/CALL SCUCHA	"INVERSE ON" WIRD NUR ALS "BOLD ON"
ATTRI$:	V	/INTERPRETIERT (BESSER BEI INVERSER DARST.)
	CUCHAR <BOLD ON>	/SONST MUSS DAS JMP.+2 WIEDER WEG
	JMP SSTA0$

TEST6$:	TESTA6

CLOSE	"SSTAZ"

ENDPR

---