File: STYPEC.MA of Tape: Various/Decus/decus-2
(Source file text)
.TITLE L I N K - L I B R A R Y .SBTTL STYPEC:AUSDRUCK AUF TTY ODER TTY UND DRUCKER .INCLUDE SYS:MACLIB.MA /****STYPEC**** /04.09.81 PMO/20.6.83 VH /(L,AC)=?,AUSZUDRUCKENDES ZEICHEN /CALL STYPEC /(L,AC)=0,0 /************** /DAS UNTERPROGRAMM STYPEC WIRD VOM MACRO TYPECL /VERWENDET /STYPEC DRUCKT UEBER DAS DATENSICHTGERAET (TTY) UND /WAHLWEISE DEN DRUCKER (LPT) DAS IM AC STEHENDE /ZEICHEN AUS. /ANWAHL MIT/OHNE LPT ERFOLGT DURCH SPHSR. / SPHSR=0 NUR TTY / SPHSR=1 LPT + TTY / SPHSR=-1 NUR LPT OPEN "STYPEC","F" .ENTRY STYPEC DEFMER ZEICH$ STYPEC, OPNSUB RT:EXIT$,AC:ZEICH$ JMX VA:SPHSR,EQ:TYPE1$ TAD ZEICH$ TYPE LPT,0 VATAD SPHSR SPA CLA JMP EXIT$ TYPE1$: TAD ZEICH$ TYPE TTY,0 EXIT$: V JMP I STYPEC CLOSE "STYPEC" ENDPR