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

(Source file text) 

---

.TITLE
	L I N K - L I B R A R Y
.SBTTL	
SJANEI:JA ODER NEIN GEDRUECKT?


.INCLUDE SYS:MACLIB.MA


/****SJANEI****
/81-10-08/JBU
/(L,AC)=?,?
/CIF SJANEI
/JMS SJANEI
/RUECKSPRUNG-ADR. BEI "N" AUF TASTATUR GEDRUECKT
/(L,AC)=0,0
/**************




/WENN AUF DER TASTATUR "J" FUER "JA" GEDRUECKT WIRD, WIRD AUF DEM DEM
/AUFRUF FOLGENDEN SPEICHERPLATZ WEITERGEMACHT,
/WENN "N" FUER "NEIN" GEDRUECKT WIRD, AUF DER ALS PARAMETER ANGEGEBENEN
/ADRESSE



OPEN	"SJANEI","F"

.ENTRY	SJANEI



SJANEI,	OPNSUB RT:SJAN3$
SJAN0$:	LIESTT		/ZEICHEN MIT ECHO EINLESEN
	TAD (-"J)
	SZA
	JMP SJAN1$	/KEIN JA
	INC SJANEI
	PRINT "A_"
	JMP SJAN3$	/RUECKSPRUNG
SJAN1$:	TAD (-"N+"J)
	SZA CLA		/AUCH KEIN NEIN ?
	JMP SJAN2$	/JA
	PRINT "EIN_"
SJAN3$:	V
	JMP I SJANEI
SJAN2$:	PRINT "_ANTWORTE BITTE MIT JA ODER NEIN ! (J/N): "
	JMP SJAN0$

CLOSE	"SJANEI"

	ENDPR

---