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

(Source file text) 

---

.TITLE
	L I N K - L I B R A R Y
.SBTTL	
STYPEC:AUSDRUCK AUF TTY ODER TTY UND DRUCKER

.INCLUDE SYS:MACLIB.MA


/
****STYPEC****
/04.09.81  PMO/20.6.83  VH
/(L,AC)=?,AUSZUDRUCKENDES ZEICHEN
/CALL	STYPEC
/(L,AC)=0,0
/
**************


/DAS UNTERPROGRAMM STYPEC WIRD VOM MACRO TYPECL
/VERWENDET


/STYPEC DRUCKT UEBER DAS DATENSICHTGERAET (TTY) UND
/WAHLWEISE DEN DRUCKER (LPT) DAS IM AC STEHENDE
/ZEICHEN AUS.

/ANWAHL MIT/OHNE LPT ERFOLGT DURCH SPHSR.
/				   SPHSR=0  NUR TTY
/				   SPHSR=1  LPT + TTY
/				   SPHSR=-1 NUR LPT


OPEN	"STYPEC","F"


.ENTRY	STYPEC
DEFMER ZEICH$

STYPEC,	OPNSUB RT:EXIT$,AC:ZEICH$

	JMX VA:SPHSR,EQ:TYPE1$

	TAD ZEICH$
	TYPE LPT,0

	VATAD SPHSR
	SPA CLA
	JMP EXIT$

TYPE1$:	TAD ZEICH$
	TYPE TTY,0

EXIT$:	V
	JMP I STYPEC

CLOSE	"STYPEC"

	ENDPR

---