File: SSCFIL.MA of Tape: Various/Decus/decus-2
(Source file text)
.SBTTL SSCFIL: SCREEN FILL AUF ZEIT .INCLUDE SYS:MACLIB.MA .INCLUDE SYS:CURLIB.MA /***** SSCFIL ***** /17-09-82/JBU,17-12-82/VHE /(L,AC,MQ)=?,?,? /CALL SSCFIL /ZEITANGABE IN ZEHNTEL-SEC. /(L,AC,MQ)=?,0,? /****************** OPEN "SSCFI","F" .EXTERNAL SCULIN .ENTRY SSCFIL DEFMER ZEIT$,COUNT$,MERK$ SSCFIL, OPNSUB RT:SSCFX$,ZEIT$ CAL VATAD SPHSR DCA MERK$ VADCA SPHSR VATAD ADM3A SNA CLA JMP SSCFX$ /KEIN VT100 CALL SCULIN /BENUTZUNG VON SCULIN "8 CLA TAD ZEIT$ /VERZOEGERUNG VON 1/10 SEK. * ZEIT$ CMA DCA ZEIT$ SSCF1$: ISZ ZEIT$ SKP JMP SSCF2$ TAD (1000) DCA COUNT$ CAL ISZ COUNT$ JMP .-2 JMP SSCF1$ SSCF2$: CLEAR <ENTIRE SCREEN> DCAADD VA:SPHSR,MERK$ SSCFX$: V JMP I SSCFIL CLOSE "SSCFI" ENDPR