37 lines
829 B
Plaintext
37 lines
829 B
Plaintext
SUBROUTINE MET_CONV(ConvType, DataIo, Parms, ReturnedValue)
|
|
*
|
|
|
|
$INSERT LOGICAL
|
|
|
|
equ valid$ to 0 ;* successful
|
|
equ invalid_msg$ to 1 ;* bad data - print error message window
|
|
equ invalid_conv$ to 2 ;* bad conversion - " "
|
|
equ invalid_nomsg$ to 3 ;* bad but do not print the error message window
|
|
|
|
Status() = Valid$
|
|
|
|
DEBUG
|
|
|
|
BEGIN CASE
|
|
CASE ConvType = 'ICONV'
|
|
MetProp = Parms[1,',']
|
|
BEGIN CASE
|
|
CASE MetProp = 'THICK'
|
|
CASE MetProp = 'RES'
|
|
CASE MetProp = 'CRES'
|
|
END CASE
|
|
|
|
|
|
CASE ConvType = 'OCONV'
|
|
Precision = Parms[1,',']
|
|
ReturnedValue = OCONV(DataIO,'MD5')
|
|
ReturnedValue = ICONV(ReturnedValue,'MD':Precision)
|
|
ReturnedValue = OCONV(ReturnedValue,'MD':Precision)
|
|
|
|
CASE Otherwise$
|
|
Status() = invalid_msg$
|
|
|
|
END CASE
|
|
|
|
RETURN
|