2 REM merge with (DL4) PRDIR.BA [73216,1022] to allow output to lineprinter
2 CLEAR 2000
3 INPUT"<P>rinter or <S>creen";PS$
5 IF INSTR("Ss",PS$)<>0THEN OPEN"lcd:"FOR OUTPUT AS 1 ELSE IF INSTR("Pp",PS$)<>0THEN OPEN"lpt:"FOR OUTPUT AS 1 ELSE 3