/* REXX: Convert xxxDV and xxxDH space units to xxx.xxMM for NX lines*/
/* author: David McRitchie, "The REXX Macros Toolbox"          Jan 17, 1992 */
/* FDM updated 1992/01/21 19:03 */
Address "ISREDIT"
"MACRO (TOKEN)"
numeric digits(16)
If token = "" then token = 2
do forever
   "F first suffix p'#dv' nx"
   if rc /= 0 then leave
   call common;
end
do forever
   "F first suffix p'#dh' nx"
   if rc /= 0 then leave
   call common;
end
do forever
   "F first word p'#dv' nx"
   if rc /= 0 then leave
   call common;
end
do forever
   "F first word p'#dh' nx"
   if rc /= 0 then leave
   call common;
end
return
common: procedure expose token;
   "(LN,PO2) = CURSOR"
   "f 'd' next nx"
   "F prev  prefix p'#' nx"
   "(LN,PO1) = CURSOR"
   "(LINE) = LINE .ZCSR"
   from = substr(line,po1,po2-po1+1)
   if token = 0 then to =trunc(from * .105833333  + .5)
   else if token = 1 then to =trunc(from * 105833333   + .05,1)
   else to =trunc(from * .105833333   + .005,2)
   to=to; tox=to
   linex = substr(line,1,po1-1)||TOX||"mm"||substr(line,po2+3)
   "LINE .zcsr = (linex)"
   /* optional  "c 1 p'=' p'=' .zcsr .zcsr all"*/
return
/*********************************************************************/
/* to convert xxxDH to xxxMM multiply by .105833333                  */
/*      (= 25.40 mm/in divided by 240 dh/in  )                       */
/*      (= 25.40 / 240, round to 2 decimal places or as in TOKEN     */
/* 240 DH/IN on 3800-3, do not use this clist for PostScript         */
/* by law US inch = 2.54 cm,  or 1 yard = .9144 meters               */
/*********************************************************************/