PARM DEV=LP,PRI=8,COP=1 ## PSCREEN.XEQ - PRINTS SCREEN CONTENTS ## TIM ERICSON - PSCREEN COURTESY ALLEGRO CONSULTANTS IF UPS("!DEV") = "DISC" THEN IF FINFO("FLAT",0) THEN ECHO FILE "FLAT" ALREADY EXISTS - ECHO CHECK ITS CONTENTS, PURGE IT, THEN REDO PSCREEN RETURN ENDIF RUN PSCREEN.PUB.SYS;PARM=3 ELSE FILE PRINTER;DEV=!DEV,!PRI,!COP RUN PSCREEN.PUB.SYS;PARM=1 RESET PRINTER ENDIF