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