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

(Source file text) 

---

.TITLE	
L I N K - L I B R A R Y
.SBTTL	
SRUBOU:EIN ZEICHEN AUF TTY LOESCHEN

.INCLUDE SYS:MACLIB.MA


/
**** SRUBOU ****
/04.09.81  PMO,17.8.83  VH
/(L,AC)=?,?
/CALL	SRUBOU
/(L,AC)=?,0
/SPRUB=SPRUB-1
/
**************


/DIESES UNTERPROGRAMM WIRD VOM MACRO RUBOUT VERWENDET


/SRUBOU DIENT ZUM LOESCHEN EINES ZEICHENS AUF DEM SICHTGERAET

/ES IST DARAUF ZU ACHTEN, DASS NICHT UEBER DIE ZEILE
/GELOESCHT WERDEN KANN!

/DER ALLVA SPRUB WIRD MIT JEDEM AUFRUF VON SRUBOU DECREMENTIERT


OPEN	"SRUBOU","F"


.ENTRY 	SRUBOU

SRUBOU,	OPNSUB RT:SRUB1$

	VADEC SPRUB
	TYPE TTY,0,<^"H>
	TAD (SPACE)
	TYPE TTY
	TYPE TTY,0,<^"H>
	VADCA SPTTY

SRUB1$:	V
	JMP I SRUBOU


CLOSE 	"SRUBOU"

	ENDPR

---