File: SLIEST.MA of Tape: Various/Decus/decus-2
(Source file text) 
.TITLE	L I N K - L I B R A R Y
.SBTTL	SLIEST:ZEICHEN VON TTY LESEN MIT ECHO

.INCLUDE SYS:MACLIB.MA

/****SLIEST****
/04.09.81  PMO,15.8.83  VH
/(L,AC)=?,?
/CALL	SLIEST
/(L,AC)=0,GELESENES ZEICHEN
/**************

/DIESES UNTERPROGRAMM WIRD VOM MACRO LIESTT VERWENDET

/ES DIENT ZUR AUFNAHME EINES ZEICHENS VOM TTY
/EIN ECHO WIRD AUSSER BEI CONTROL-ZEICHEN ZURUECKGESENDET
/DAS ECHO KANN DURCH SPHSR AUCH AUF LPT GEGEBEN WERDEN.
/HIERBEI IST	SPHSR=0  ECHO AUF TTY
/		SPHSR=1  ECHO AUF TTY+LPT
/IM AC STEHT DAS GELESENE ZEICHEN

OPEN	"SLIEST","F"

.ENTRY	SLIEST

SLIEST,	OPNSUB RT:LIESR$

	LIES TTY		/WURDE ZEICHEN EINGEGEBEN
	VADCA SPTTY		/ZEICHEN SICHERN
	VATAD SPTTY
	TAD (-SPACE)
	SPA
	JMP LIES0$		/CONTROL-ZEICHEN

	TAD (SPACE-RUB)		/WENN RUBOUT, KEIN ECHO
	SNA CLA
	JMP LIES0$

	VATAD SPTTY
	TYPECL
	VAINC SPRUB
LIES0$:	CLA
	VATAD SPTTY

LIESR$:	V			/RUECKSPRUNG
	JMP I SLIEST

CLOSE	"SLIEST"

	ENDPR