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

(Source file text) 

---

.SBTTL	
SCULIN:	CURRENT LINE MANIPULATION

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

/
***** SCULIN *****
/82-06-21/JBU,16-12-82/VHE
/(L,AC,MQ)=?,?,?
/CALL SCULIN
/ASCII SIEHE KOMMENTAR
/(L,AC,MQ)=0,0,?
/
******************


/SCULIN WIRD VOM MACRO "CULINE" BENUTZT,
/AS="1 HEISST:	  CURRENT LINE TO 80 COLUMNS
/   "2		   "      "    " 132  "
/   "3		   "      "    " DOUBLE HIGH-TOP HALF
/   "4		   "      "    "   "    "   -BOTTOM HALF
/   "5		   "      "    " WIDE MODE OFF
/   "6		   "      "    " WIDE MODE ON

/SCULIN WIRD AUSSERDEM, DA GLEICHE ZEICHENFOLGE, VON DER
/ROUTINE "SSCFIL" BENUTZT !!! (DANN MIT ASCII="8)

OPEN	"SCULI","F"
.ENTRY	SCULIN


	DEFMER	HISP1$,MERK$

SCULIN,	OPNSUB	RT:SCUX$, HISP1$

	CAL
	VATAD SPHSR
	DCA MERK$
	TAD MERK$
	SNA CLA
	JMP SCU1$

	TAD HISP1$
	ZUWEIS	<"3>	,<"5>	,<"6>
	BITMUS	CTRA	,CTRB	,CTRA

	SKP
	JMP SCU1$
	TYPECL

SCU1$:	CLA
	VADCA SPHSR
	VATAD ADM3A
	SNA CLA
	JMP SCUX$		/KEIN VT100

	ESCZEI	GA
	TAD HISP1$
	TYPECL

	DCAADD VA:SPHSR,MERK$
SCUX$:	V
	JMP I SCULIN

CLOSE	"SCULI"

ENDPR

---