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

(Source file text) 

---

.SBTTL 
SSCFIL: SCREEN FILL AUF ZEIT

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


/
***** SSCFIL *****
/17-09-82/JBU,17-12-82/VHE
/(L,AC,MQ)=?,?,?
/CALL SSCFIL
/ZEITANGABE IN ZEHNTEL-SEC.
/(L,AC,MQ)=?,0,?
/
******************


OPEN	"SSCFI","F"
.EXTERNAL SCULIN
.ENTRY	SSCFIL

	DEFMER	ZEIT$,COUNT$,MERK$

SSCFIL,	OPNSUB	RT:SSCFX$,ZEIT$

	CAL
	VATAD SPHSR
	DCA MERK$
	VADCA SPHSR
	VATAD ADM3A
	SNA CLA
	JMP SSCFX$		/KEIN VT100

	CALL SCULIN		/BENUTZUNG VON SCULIN
	 "8

	CLA
	TAD ZEIT$	/VERZOEGERUNG VON 1/10 SEK. * ZEIT$
	CMA
	DCA ZEIT$
SSCF1$:	ISZ ZEIT$
	SKP
	JMP SSCF2$
	TAD (1000)
	DCA COUNT$
	CAL
	ISZ COUNT$
	JMP .-2
	JMP SSCF1$

SSCF2$:	CLEAR <ENTIRE SCREEN>
	DCAADD VA:SPHSR,MERK$
SSCFX$:	V
	JMP I SSCFIL

CLOSE	"SSCFI"

ENDPR

---