Anonymous

Alias Mathedit { 
  dialog -md Mathedit Mathedit
} 
Menu * { 
  - 
  Mathedit Program made by Danny:Mathedit
  - 
} 
dialog Mathedit { 
  title "Mathedit Dialog Made by Danny" 
  size -1 -1 300 300
  option dbu 
  tab "Formulas", 2, 5 5 290 290 
  Button "Annual Interest", 3, 10 25 50 20, Center, tab 2
} 
on *:Dialog:Mathedit:sclick:*:{
  if ($did == 3) {
    dialog -x $dname
    Dialog -md Anualinterest Anualinterest
  }
}
dialog Anualinterest {
  title "Mathedit Annual Interest" 
  size -1 -1 300 200
  option dbu
  Button "Return to main page", 1, 5 5 60 20, center
  text "Time period", 2, 5 100 30 10
  edit "", 3, 5 110 60 10, center, autohs
  text "Rate (e.g 1% = 0.1)" 4, 5 120 100 10
  edit "", 5, 5 130 60 10, center, autohs
  text "Interest", 6, 5 140 30 10
  edit "", 7, 5 150 60 10, center
  text "Ammount/Principal", 8, 5 160 30 10
  edit "", 9, 5 170 60 10, center, autohs
  list 10, 100 100 150 100
  Button "Calculate", 11, 145 80 60 20
  check "Compound", 12, 5 80 60 10
  check "Depreciated", 13, 5 70 60 10
}
on *:Dialog:Anualinterest:sclick:*:{
  if ($did == 1) {
    Mathedit
  }
  if ($did == 12 && $did($dname,13).state == 1) { did -u $dname 13 }
  if ($did == 13 && $did($dname,12).state == 1) { did -u $dname 12 }
  if ($did == 11) {
    if ($did($dname,3) != $null) { var %Anualn = $calc( %Anualn + 1 ) } 
    if ($did($dname,5) != $null) { var %Anualn = $calc( %Anualn + 1 ) } 
    if ($did($dname,7) != $null) { var %Anualn = $calc( %Anualn + 1 ) } 
    if ($did($dname,9) != $null) { var %Anualn = $calc( %Anualn + 1 ) }  
    if (%Anualn == 3) {
      if ($did($dname,9) !isnum || $did($dname,3) !isnum  || $did($dname,5) !isnum) { Did -r $dname 10 | Did -a $dname 10 Error. Invalid Syntax | halt }
      if ($did($dname,7) == $null && $did($dname,12).state == 0 && $did($dname,13).state == 0) {
        Did -r $dname 10, 7
        Did -a $dname 10 Simple Interest
        Did -a $dname 10
        Did -a $dname 10 I = P x R x T     |     P = $did($dname,9)     R = $did($dname,5)     T = $did($dname,3)
        Did -a $dname 10
        Did -a $dname 10 I = $did($dname,9) x $did($dname,5) x $did($dname,3)
        Did -a $dname 10
        Did -a $dname 10 I = $calc( $did($dname,9) * $did($dname,5) * $did($dname,3) )
        halt
      }
      if ($did($dname,7) == $null && $did($dname,12).state == 1) {
        if ($did($dname,9) !isnum || $did($dname,3) !isnum  || $did($dname,5) !isnum) { Did -r $dname 10 | Did -a $dname 10 Error. Invalid Syntax | halt }
        Did -r $dname 10, 9
        Did -a $dname 10 A = P(1 + R)^n     |     P = $did($dname,9)     R = $did($dname,5)     n = $did($dname,3)
        Did -a $dname 10 
        Did -a $dname 10 $did($dname,9) $+ $chr(40) $+ 1 + $did($dname,5) $+ $chr(41) $+ $chr(94) $+ n
        Did -a $dname 10 
        Did -a $dname 10 Overall - $calc( $did($dname,9) * (1 + $did($dname,5)) ^ $did($dname,3) )
        Did -a $dname 10 Interest - $calc( $calc( $did($dname,9) * (1 + $did($dname,5)) ^ $did($dname,3) ) - $did($dname,9) )
      }
      if ($did($dname,7) == $null && $did($dname,13).state == 1) {
        if ($did($dname,9) !isnum || $did($dname,3) !isnum  || $did($dname,5) !isnum) { Did -r $dname 10 | Did -a $dname 10 Error. Invalid Syntax | halt }
        Did -r $dname 10, 9
        Did -a $dname 10 A = P(1 - R)^n     |     P = $did($dname,9)     R = $did($dname,5)     n = $did($dname,3)
        Did -a $dname 10 
        Did -a $dname 10 $did($dname,9) $+ $chr(40) $+ 1 - $did($dname,5) $+ $chr(41) $+ $chr(94) $+ n
        Did -a $dname 10 
        Did -a $dname 10 Overall - $calc( $did($dname,9) * (1 - $did($dname,5)) ^ $did($dname,3) )
        Did -a $dname 10 Loss - $remove($calc( $calc( $did($dname,9) * (1 - $did($dname,5)) ^ $did($dname,3) ) - $did($dname,9) ),-)
      }
    }
    else {
      Did -a $dname 10 Error. Invalid Syntax
    }
  }
}