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