File: SMOD1.MA of Tape: Various/Decus/decus-2
(Source file text)
.SBTTL SMOD1: LINE-FEED UND NEW-LINE .INCLUDE SYS:MACLIB.MA .INCLUDE SYS:CURLIB.MA /***** SMOD1 ***** /82-01-28/JBU /(L,AC,MQ)=?,?,? /CALL SMOD1 /"h ODER "l FUER LINE-FEED ODER NEW-LINE (AUTOMATIK-LF) /(L,AC,MQ)=?,0,? /***************** /SMOD1 WIRD VOM MACRO MODE BENUTZT /"h HEISST: TASTE "LINE FEED" SENDET NUR LINE FEED /"l HEISST: " " " " CRLF OPEN "SMOD1","F" .ENTRY SMOD1 DEFMER HISP1$,MERK$ SMOD1, OPNSUB RT:SMOX$, HISP1$ VATAD SPHSR DCA MERK$ VADCA SPHSR VATAD ADM3A SNA CLA JMP SMO1$ ESCZEI EK PRINT "?20" TAD HISP1$ TYPECL SMO1$: DCAADD VA:SPHSR,MERK$ SMOX$: V JMP I SMOD1 CLOSE "SMOD1" ENDPR