/* [2,55]RS1INIT.RPL R RHODERICK MARCH 1984 */ PROCEDURE(); IF PRINTER NE 'LPT80' THEN PRINTER='LPT80'; IF PLOTTER NE 'PRINTRONIXW' THEN PLOTTER='PRINTRONIXW'; IF EMPTY(GLOBAL EDITOR_NAME) THEN GLOBAL EDITOR_NAME='EDT'; CALL RS1IND; END;