File: SSTATA.MA of Tape: Various/Decus/decus-2
(Source file text)
.SBTTL SSTAZE: STATUS-ZEILE AENDERN .INCLUDE SYS:MACLIB.MA .INCLUDE SYS:CURLIB.MA /***** SSTAZE ***** /82-08-20/JBU /(L,AC,MQ)=?,?,? /CALL SSTAZE /POSITION (COLUMN) /TEXT ADRESSE /ANGABE FUER CHARAKTER ATTRIBUTES /(L,AC,MQ)=?,0,? /****************** /WENN "ZEIT:" AUSGEDRUCKT WIRD, FOLGT AUTOMATISCH DER DEZIMALE /AUSDRUCK DES VERZOEGERUNGS-MERKERS VERZOE (4-STELLIG) /SSTAZE WIRD VOM MACRO "STAZEI" BENUTZT /DIE GLOBALE VARIABLE VERZOE DIENT ZUR VERZOEGERUNG DER AENDERUNG /DER STATUSZEILE OPEN "SSTAZ","F" .EXTERNAL SCUCHA, SCURPO, TESTA1, TESTA6,STEXAU .ENTRY SSTAZE DEFMER MERK$ SSTAZE, OPNSUB RT:SSTAX$, SPALT$, TEXT$, ATTRI$ CAL VATAD SPHSR DCA MERK$ VADCA SPHSR CURSOR <SAVE> CUCHAR <NORMAL> VERGLE ATTRI$,<"0>,NE:SSTA1$ CUCHAR <UNDERSCORE ON> SSTA0$: CALL SCURPO ZEILE$: 1 SPALT$: V CALL STEXAU, 1, <CDF TESTA1> TEXT$: V TAD TEXT$ CIA JMX AC+TEST6$, NE:SSTA3$ /"ZEIT:" AUSGEDRUCKT ?, NEIN CURPOS 1,56. /JA VATAD VERZOE DECPRT 4 SSTA3$: CUCHAR <NORMAL> CURSOR <RESTORE> DCAADD VA:SPHSR,MERK$ SSTAX$: V JMP I SSTAZE SSTA1$: JMP .+2/CALL SCUCHA "INVERSE ON" WIRD NUR ALS "BOLD ON" ATTRI$: V /INTERPRETIERT (BESSER BEI INVERSER DARST.) CUCHAR <BOLD ON> /SONST MUSS DAS JMP.+2 WIEDER WEG JMP SSTA0$ TEST6$: TESTA6 CLOSE "SSTAZ" ENDPR