File: SSTATS.MA of Tape: Various/Decus/decus-2
(Source file text)
.SBTTL STATUZ: STATUS-ZEILE SCHREIBEN .INCLUDE SYS:MACLIB.MA .INCLUDE SYS:CURLIB.MA /***** STATUZ ***** /82-08-12/JBU,16-12-82/VHE /(L,AC,MQ)=?,?,? /CALL STATUZ /(L,AC,MQ)=?,0,? /****************** OPEN "STATU","F" .EXTERNAL TESTA1,TESTA2,TESTA3,TESTA4,TESTA6,TESTA7,TESTA8 .ENTRY STATUZ DEFMER MERK$ STATUZ, OPNSUB RT:STATX$ CAL VATAD SPHSR DCA MERK$ VADCA SPHSR CURPOS 1,1 CLEAR <TO END OF LINE> CUCHAR <UNDERSCORE ON> MSPACE 80. CURPOS 1,1 TEXAUS 1,TESTA1 CURPOS 1,11. TEXAUS 1,TESTA2 CURPOS 1,21. TEXAUS 1,TESTA3 CURPOS 1,31. TEXAUS 1,TESTA4 CURPOS 1,51. TEXAUS 1,TESTA6 CURPOS 1,61. TEXAUS 1,TESTA7 CURPOS 1,71. TEXAUS 1,TESTA8 CUCHAR <NORMAL> DCAADD VA:SPHSR,MERK$ STATX$: V JMP I STATUZ CLOSE "STATU" ENDPR