2F*
Quick Calculator(QuickCalc) version 1.4
Made by foshizzle
How To use:
type QuickCalc or QC to open it.
then in the little text box type your equasion and hit solve
-Clear clears the text in the text box
-Cancel closes the Dialog
-Solve solves the equasion in the text box
*/
--
alias QuickCalc /dialog -am qCalc qCalc
alias QC /dialog -am qCalc qCalc
dialog qCalc {
  title "Simple Calclator"
  size -1 -1 100 38
  icon C:\WINDOWS\system32\calc.exe, 0
  option dbu
  button "Solve", 1, 0 22 40 16, flat disable
  button "Cancel", 2, 60 22 40 16, default cancel
  button "Clear", 4, 40 22 20 16, flat
  edit "", 3, 1 11 98 10, autohs
  button "Previous", 5, 0 0 35 10, flat disable
  button "Next", 6, 65 0 35 10, flat disable
  button "Clear His.", 7, 35 0 30 10, disable
}
on *:DIALOG:qCalc:edit:3: {
  if ($did(3).text) /did -et qCalc 1  
}
on *:DIALOG:qCalc:sclick:1: {
  if (!$did(3).text) /did -ra qCalc 3 You have to put an operation in first!
  else { /did -ra qCalc 3 The answer is: $comma($calc($replace($did(3).text,k,*1000,m,*1000000,b,*1000000000,t,*1000000000000)))
    /did -t qCalc 4 | inc %num | /did -e qCalc 7 | /set %curpos %num | /did -b qCalc 6 | /did -t qCalc 5
    /writeini calcsave.ini [Numbers] %num $did(3).text | /did -e qCalc 5
  }
}
on *:DIALOG:qCalc:sclick:4: {
  /did -r qCalc 3
  /did -t qCalc 3
  /did -t qcalc 2
}
on *:DIALOG:qCalc:init:0: {
  /set %num 0
}
on *:DIALOG:qCalc:sclick:7: {
  if ($?!="Are you sure you want to clear the history?" == $true) { /unset %num | /unset %curpos
    $iif($file(calcsave.ini) == $null, halt, /remove calcsave.ini) /did -b qCalc 5-7)
  }
  else halt
}
on *:DIALOG:qCalc:close:0: {
  $iif($file(calcsave.ini) == $null, halt, /remove calcsave.ini)
  /unset %num | /unset %curpos
}
on *:DIALOG:qCalc:sclick:5: {
  /dec %curpos
  /did -ra qCalc 3 $readini(calcsave.ini, [Numbers], %curpos)
  /did -e qCalc 6
}
on *:DIALOG:qCalc:sclick:6: {
  /inc %curpos
  /did -ra $readini(calcsave.ini, [Numbers], %curpos)
}