File: SRUBOU.MA of Tape: Various/Decus/decus-2
(Source file text)
.TITLE L I N K - L I B R A R Y .SBTTL SRUBOU:EIN ZEICHEN AUF TTY LOESCHEN .INCLUDE SYS:MACLIB.MA /**** SRUBOU **** /04.09.81 PMO,17.8.83 VH /(L,AC)=?,? /CALL SRUBOU /(L,AC)=?,0 /SPRUB=SPRUB-1 /************** /DIESES UNTERPROGRAMM WIRD VOM MACRO RUBOUT VERWENDET /SRUBOU DIENT ZUM LOESCHEN EINES ZEICHENS AUF DEM SICHTGERAET /ES IST DARAUF ZU ACHTEN, DASS NICHT UEBER DIE ZEILE /GELOESCHT WERDEN KANN! /DER ALLVA SPRUB WIRD MIT JEDEM AUFRUF VON SRUBOU DECREMENTIERT OPEN "SRUBOU","F" .ENTRY SRUBOU SRUBOU, OPNSUB RT:SRUB1$ VADEC SPRUB TYPE TTY,0,<^"H> TAD (SPACE) TYPE TTY TYPE TTY,0,<^"H> VADCA SPTTY SRUB1$: V JMP I SRUBOU CLOSE "SRUBOU" ENDPR