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

(Source file text) 

---

.SBTTL 
SCUREL:	CURSOR RELATIV VERSCHIEBEN

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


/
***** SCUREL *****
/82-05-10/JBU,16-12-82/VHE
/(L,AC,MQ)=?,?,?
/CALL SCUREL, A, B
/(L,AC,MQ)=?,0,0
/
******************


/			MIT A: ANGABE DER VERSCHIEBUNG
/			    B: RICHTUNG		"A: HOEHER
/						"B: TIEFER
/			    			"D: LINKS
/						"C: RECHTS




OPEN	"SCURE","F"
.ENTRY	SCUREL

	DEFMER	ANZAH$, RICHT$,MERK$

SCUREL,	OPNSUB	RT:SCULX$, ANZAH$, RICHT$

	CAL
	VATAD SPHSR
	DCA MERK$
	TAD MERK$
	SNA CLA
	JMP SCUR3$
	CRLF

SCUR3$:	VADCA SPHSR
	VATAD ADM3A
	SNA CLA
	JMP SCUR1$		/KEIN VT100

	ESCZEI	EK

	TAD ANZAH$
	DECPRT A2
	TAD RICHT$
	TYPECL
	JMP SCUR2$

SCUR1$:	VERGLE ANZAH$,(1),LT:SCUR2$
	DEC ANZAH$

	TAD RICHT$

	ZUWEIS	<"A>	,<"B>	,<"C>	,<"D>
	BITMUS	CTRK	,CTRJ	,CTRL	,CTRH

	TYPECL

	JMP SCUR1$

SCUR2$:	DCAADD VA:SPHSR,MERK$
SCULX$:	V
	JMP I SCUREL

CLOSE	"SCURE"

ENDPR

---