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

(Source file text) 

---

.SBTTL	
SWINDOW: SCROLLING WINDOW SETZEN

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

/
***** SWINDO *****
/82-06-21/JBU
/(L,AC,MQ)=?,?,?
/CALL SWINDO
/OBERE GRENZE
/UNTERE GRENZE
/(L,AC,MQ)=0,0,?
/
*******************


/SWINDO WIRD VOM MACRO "WINDOW" BENUTZT.
/ALS OBERE GRENZE MUSS DIE ENTSPRECHENDE ZEILEN-NR. ANGEGEBEN WERDEN,
/ALS UNTERE GRENZE DTO. .

/TELERAY ERFORDERT: ESC [ Pt ; Pb r (OHNE SPACE'S)
/MIT t=top, b=bottom


OPEN	"SWIND","F"
.ENTRY	SWINDO

	DEFMER	OBEN$, UNTEN$,MERK$

SWINDO,	OPNSUB	RT:SWINX$, OBEN$, UNTEN$

	CAL
	VATAD ADM3A
	SNA CLA
	JMP SWINX$

	VATAD SPHSR
	DCA MERK$
	VADCA SPHSR

	ESCZEI EK
	TAD OBEN$
	DECPRT A2
	TAD (";)
	TYPECL
	TAD UNTEN$
	DECPRT A2
	TAD ("r)
	TYPECL

	DCAADD VA:SPHSR,MERK$
SWINX$:	V
	JMP I SWINDO

CLOSE	"SWIND"

ENDPR

---