(ATCScript "MaxAxisVal"
  (Arg aCurMaxAxisVal "1000")
  (Arg "aNumberScale" 0)

  (' 0=arithmetic, 1=log)

  (If (> (InStr aCurMaxAxisVal ".") 0)
    (Set lSciNotMarker (InStr aCurMaxAxisVal "E"))
    (If (= lSciNotMarker 0)
      (Set lDecPosSearch 1)
      (While (<> (Mid aCurMaxAxisVal lDecPosSearch 1) ".")
        (Increment lDecPosSearch)
      )
      (Else (Set lDecPosSearch 0))
    )
    (Else (Set lDecPosSearch 0))
  )

  (If (AND (< 1 aCurMaxAxisVal) (> -1 aCurMaxAxisVal))
    (If (>= aCurMaxAxisVal 0)
      (Set aCurMaxAxisVal (Round aCurMaxAxisVal (- (Len aCurMaxAxisVal) lDecPosSearch 1) "Up"))
      (Else 
        (Set aCurMaxAxisVal (Round aCurMaxAxisVal (- (Len aCurMaxAxisVal) lDecPosSearch 1) "Down"))
      )
    )
    (Else 
      (If (= lDecPosSearch 0)
        (If (= lSciNotMarker 0)
          (Set lDecPosSearch (+ (Len aCurMaxAxisVal) 1))
          (Else 
            (Set lDecPosSearch (+ (Len aCurMaxAxisVal) lSciNotMarker))
          )
        )
      )
      (If (>= aCurMaxAxisVal 0)
        (Set aCurMaxAxisVal (Round aCurMaxAxisVal (- 1 lDecPosSearch aNumberScale) "Up"))
        (Else 
          (Set aCurMaxAxisVal (Round aCurMaxAxisVal (- 1 lDecPosSearch aNumberScale) "Down"))
        )
      )
    )
  )
  (Return aCurMaxAxisVal)
)