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

(Source file text) 

---

.SBTTL	
SMOD1: LINE-FEED UND NEW-LINE

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

/
***** SMOD1 *****
/82-01-28/JBU
/(L,AC,MQ)=?,?,?
/CALL SMOD1
/"h ODER "l FUER LINE-FEED ODER NEW-LINE (AUTOMATIK-LF)
/(L,AC,MQ)=?,0,?
/
*****************



/SMOD1 WIRD VOM MACRO MODE BENUTZT
/"h HEISST: TASTE "LINE FEED" SENDET NUR LINE FEED
/"l HEISST:   "      "     "     "   CRLF

OPEN	"SMOD1","F"
.ENTRY	SMOD1

	DEFMER	HISP1$,MERK$

SMOD1,	OPNSUB	RT:SMOX$, HISP1$
	VATAD SPHSR
	DCA MERK$
	VADCA SPHSR
	VATAD ADM3A
	SNA CLA
	JMP SMO1$
	ESCZEI	EK
	PRINT	"?20"
	TAD HISP1$
	TYPECL
SMO1$:	DCAADD VA:SPHSR,MERK$
SMOX$:	V
	JMP I SMOD1

CLOSE	"SMOD1"

ENDPR

---