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

(Source file text) 

---

.SBTTL 
SCURPO:	CURSOR IN X+Y POSITION.

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

/
***** SCURPO *****
/82-06-21/JBU,16-12-82/VHE
/(L,AC,MQ)=?,?,?
/CALL SCURPO
/Y-POSITION (=ZEILEN-NR., DEZIMAL)
/X-POSITION (=COLUMN-NR., DEZIMAL)
/(L,AC,MQ)=?,0,?
/
******************

/CURSOR-POSITIONIERUNG ERFORDERT: ESC [ Pn ; Pn H (OHNE SPACE'S!)
/FUER ADM3A: ESCPnPn
/MIT 1.Pn= ZEILE, 2.Pn= COLUMN


OPEN	"SCURP","F"
.ENTRY	SCURPO

	DEFMER	YPOSI$, XPOSI$,MERK$

SCURPO,	OPNSUB	RT:SCURX$, YPOSI$, XPOSI$

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

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

	ESCZEI	EK
	TAD YPOSI$
	DECPRT A2
	TAD (";)
	TYPECL 

	TAD XPOSI$
	DECPRT A2
	TYPECL <"H>
	JMP SCUR2$

SCUR1$:	ESCZEI GL
	TAD XPOSI$
	DECPRT 2
	TAD YPOSI$
	DECPRT 2

SCUR2$:	DCAADD VA:SPHSR,MERK$
SCURX$:	V
	JMP I SCURPO

CLOSE	"SCURP"

ENDPR

---