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

(Source file text) 

---

.SBTTL	
STATUZ: STATUS-ZEILE  SCHREIBEN

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

/
***** STATUZ *****
/82-08-12/JBU,16-12-82/VHE
/(L,AC,MQ)=?,?,?
/CALL STATUZ
/(L,AC,MQ)=?,0,?
/
******************


OPEN	"STATU","F"
.EXTERNAL TESTA1,TESTA2,TESTA3,TESTA4,TESTA6,TESTA7,TESTA8
.ENTRY	STATUZ

DEFMER MERK$

STATUZ,	OPNSUB	RT:STATX$

	CAL
	VATAD SPHSR
	DCA MERK$
	VADCA SPHSR
	CURPOS	1,1
	CLEAR	<TO END OF LINE>
	CUCHAR	<UNDERSCORE ON>
	MSPACE	80.
	CURPOS	1,1
	TEXAUS	1,TESTA1
	CURPOS	1,11.
	TEXAUS	1,TESTA2
	CURPOS	1,21.
	TEXAUS	1,TESTA3
	CURPOS	1,31.
	TEXAUS	1,TESTA4
	CURPOS	1,51.
	TEXAUS	1,TESTA6
	CURPOS	1,61.
	TEXAUS	1,TESTA7
	CURPOS	1,71.
	TEXAUS	1,TESTA8
	CUCHAR	<NORMAL>

	DCAADD VA:SPHSR,MERK$
STATX$:	V
	JMP I STATUZ

CLOSE	"STATU"

ENDPR

---