(ATCScript "MaxAxisVal Script"
  (Arg "NumberScale" 0)
  (' 0=arithmetic, 1=log)

  (If (> (instr curMaxAxisVal ".") 0)
    (Set DecPosSearch 1)
    (While (<> (Mid curMaxAxisVal DecPosSearch 1) ".")
      (Increment DecPosSearch)
    )
    (Else (Set DecPosSearch 0))
  )

  (If (AND (< 1 curMaxAxisVal) (> -1 curMaxAxisVal))
    (If (>= curMaxAxisVal 0)
      (Set curMaxAxisVal (Round curMaxAxisVal (- (Len curMaxAxisVal) DecPosSearch 1) "Up"))
      (Else 
        (Set curMaxAxisVal (Round curMaxAxisVal (- (Len curMaxAxisVal) DecPosSearch 1) "Down"))
      )
    )
    (Else 
      (If (= DecPosSearch 0)
        (Set DecPosSearch (+ (Len curMaxAxisVal) 1))
      )
      (If (>= curMaxAxisVal 0)
        (Set curMaxAxisVal (Round curMaxAxisVal (- 1 DecPosSearch NumberScale) "Up"))
        (Else 
          (Set curMaxAxisVal (Round curMaxAxisVal (- 1 DecPosSearch NumberScale) "Down"))
        )
      )
    )
  )
)