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

(Source file text) 

---

.SBTTL	
SCLEAR:	CLEAR LINE + SCREEN

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

/
***** SCLEAR *****
/82-06-21/JBU,28-12-82/VHE
/(L,AC,MQ)=?,?,?
/CALL SCLEAR
/1.ZEICHEN
/2.ZEICHEN
/(L,AC,MQ)=0,0,?
/
******************


/SCLEAR WIRD VOM MACRO  "CLEAR" BENUTZT.
/ERLAUETERUNGEN SIEHE DORT.


OPEN	"SCLEA","F"
.ENTRY	SCLEAR

	DEFMER	HISP1$, HISP2$,MERK$

SCLEAR,	OPNSUB	RT:SCLEX$, HISP1$, HISP2$

	CAL
	VATAD SPHSR
	DCA MERK$
	TAD MERK$
	SNA CLA
	JMP SCL4$
	TAD (CTRL)		/FORM FEED
	TYPECL
SCL4$:	VADCA SPHSR

	VATAD ADM3A
	SNA CLA
	JMP SCL1$		/KEIN VT100

	ESCZEI	EK
	TAD HISP1$
	TYPECL
	TAD HISP2$
	TYPECL
	JMP SCL2$

SCL1$:	VERGLE HISP2$,("K),EQ:SCL3$
	CAL
	TYPECL (CTRZ)		/CLEAR SCREEN
	TYPECL (CTRHO)		/HOME POSITION
	JMP SCL2$

SCL3$:	TYPECL (CR)		/CLEAR LINE
	MSPACE 71.
	TYPECL (CR)

SCL2$:	DCAADD VA:SPHSR,MERK$
SCLEX$:	V
	JMP I SCLEAR

CLOSE	"SCLEA"

ENDPR

---