! @(#)plscoff.prg	17.1.1.1 (ES0-DMD) 01/25/02 17:46:15
!++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
!.IDENTIFICATION: PLSCOFF.PRG
!.PURPOSE:        MIDAS procedure reads the input scales and offset of 
!                 the plot
!                 par1 = input string with x scale, y scale, x offset, y offset
!.VERSION:        931021  RHW creation
!-------------------------------------------------------------------------
DEFINE/PARAM P1 ?
DEFINE/LOCAL RTEST/R/1/4 0.0,0.0,-999,-999               ! xsc, ysc, xoff, yoff
!
WRITE/KEYW PLRGRAP/R/13/2 {PLRSTAT(13)},{PLRSTAT(14)}    ! write the defaults
WRITE/KEYW PLRGRAP/R/29/2 {PLRSTAT(21)},{PLRSTAT(22)}        
!
WRITE/KEYW RTEST/R/1/4 {P1}                              ! copy input
IF RTEST(1) .NE. 0    PLRGRAP(13) = {RTEST(1)}           ! change of default?
IF RTEST(2) .NE. 0    PLRGRAP(14) = {RTEST(2)}
IF RTEST(3) .NE. -999 PLRGRAP(29) = {RTEST(3)}
IF RTEST(4) .NE. -999 PLRGRAP(30) = {RTEST(4)}
!
RETURN