CALL SCTEST(ITEST) IF(ITEST .eq. 0)STOP 'ERROR -- Terminal has no graphics' CALL PLTOLP END