#
# APPC.KSH - A Kornshell script, win32 implementation of bc(1) using dlg(1).
#
# Operation: -See the man page for appc(1).
#
# Assumptions: -lib.b last default line includes the word "bessel".
#
# Todo:
# -change output to listbox or combobox.
# -Work on parse_lib() -USE CUSLIB.B new file.
# -on base change, convert entire output list.
# -max count output list.
# -replace hotkeys w/o underscore.
#
# -Combine .rc files into appc.rc.
# -Icon needs work.
# -LAST: Final arrangement of pushbuttons and tab order.
# -LAST: Use "set list" for tidy tabs.
#
# Bugs:
# -In function errfunc(), long error messages are clipped.
# -In bc and I have not posted it yet: Modulo w/precision:
# bc
# 3%2
# 1 -ok
# scale=2
# 3%2
# 0 -s/b "1" or "1.00"
# quit
#
# Programming notes:
# 1) -Generally keep the focus on the "=" key then pressing
# the Enter key while in an editbox works something like
# like a calculator should.
# -Then just keep building/displaying the input line until
# the "=", any function key or the Enter key in the editbox.
# -Display/keep the result until a numeric input which is
# not preceded by an operator.
debug=0 # Set to 1 to preserve temp files.
# Need to remove the trailing slash (if any) from ROOTDIR.
export ROOTDIR="${ROOTDIR:=c:}"; ROOTDIR="${ROOTDIR%/}"
# Remove all temporary files on ctrl-c exit.
if [ debug -eq 0 ]
then
trap 'rm -f "$TMPDIR/appc.err" "$TMPDIR/*out" "$TMPDIR/temp.b"; exit' EXIT
fi
APPC_CID=1210 # Help context id.
BC_CID=1010 # Help context id.
# appc.rc
IDI_ICON1=150
ID_CLEAR=1100
ID_MR=1500
ID_LROUNDBRACKET=1101; ID_RROUNDBRACKET=1102
ID_COMMA=1103
ID_NOT=1104
ID0=1000; ID1=1001; ID2=1002; ID3=1003; ID4=1004; ID5=1005; ID6=1006; ID7=1007
ID8=1008; ID9=1009; IDA=1010; IDB=1011; IDC=1012; IDD=1013; IDE=1014; IDF=1015
ID_DOT=1110; ID_EQUAL=1111; ID_ADD=1112; ID_SUBTRACT=1113
ID_MULTIPLY=1114; ID_DIVIDE=1115; ID_MODULO=1116; ID_POWER=1117
ID_EXP=1120; ID_LOG=1121; ID_LN=1122; ID_ATAN=1123
ID_ARCTAN=1124; ID_COS=1125; ID_SIN=1126; ID_JN=1127; ID_BESSEL=1128
ID_PROGRAM=3000
ID_CLOSE=2
ID_HLP=3
ID_f1=1201; ID_f2=1202; ID_f3=1203; ID_f4=1204; ID_f5=1205; ID_f6=1206
ID_f7=1207; ID_f8=1208; ID_f9=1209; ID_f10=1210; ID_f11=1211; ID_f12=1212
ID_BASE16=1300; ID_BASE10=1301; ID_BASE8=1302; ID_BASE2=1303
IDC_SCALE=2002
IDC_INPUT=2100
IDC_LISTOUT=2101
# Initialize variables.
logic_char[0]="("; logic_char[1]=")"; logic_char[2]=","; logic_char[3]="!"
op_char[0]="+"; op_char[1]="-"; op_char[2]="*"
op_char[3]="/"; op_char[4]="%"; op_char[5]="^"
lib_op[0]="exp"; lib_op[1]="log"; lib_op[2]="ln"; lib_op[3]="atan"
lib_op[4]="arctan"; lib_op[5]="cos"; lib_op[6]="sin"; lib_op[7]="jn"
lib_op[8]="bessel"
bc_str="" # Number/operation string to feed bc.
bc_result="" # Calculator result.
ibase="10"
obase="10"
precision="20" # Default 20 decimal places.
clear_entry_flag=0 # 1: to clear input string when next entry begins.
# i.e. if next keypress is a number.
clear_button_count=0 # Clear button clear input string immediately.
# Flag is set to indicate clear output list
# If next button pressed is again Clear.
hexstr="A B C D E F"; decstr="8 9 "; octstr="2 3 4 5 6 7 "
next=0 # Keep track of custom function displayed in progfunc().
reload=0 # Flag to reload fn button function names.
number=0 # Last custom function key pressed.
#
# Append an output list entry to the input line.
#
function list_to_input {
clear_button_count=0
dlg getcursel -c $IDC_LISTOUT index
if [ index -ne -1 ]
then
dlg gettext -c $IDC_LISTOUT -i $index mr_str
bc_str=$bc_str$mr_str
fi
dlg settext -c $IDC_INPUT -- "$bc_str"
dlg setfocus -c $ID_EQUAL
}
#
# ERROR message function.
#
function errfunc {
# appcerr.rc
IDC_ERRMESS=9000
ID_ERROK=9001
ID_ERRHELP=9002
# Get current window coordinates.
dlg getpos -x xpos -y ypos -w width -h height
#Load the ERRMESS function dialog.
if ! dlg load -m IDD_CALC -x -1 -y -1 -r err "$ResFile" IDD_ERRMESS
then
exit #dlg will have given an error in a message box!
fi
# Size popup for error message. Build minimum width into it.
# Assumes: fixedsys font where characters are 8 pixels wide.
errmess=$(grep -v "bc" "$TMPDIR/appc.err") # Retrieve error message.
# Set error message box min width to allow for "Ok" and "Help" buttons.
char_count=$[$(echo $errmess | wc -m) +17]
if [ $char_count -gt 85 ]
then
char_count=85 # Limit window width.
fi
dlg setpos -x $[$xpos+$width/2-($char_count*8)/2] -y $[$ypos+19*8] -w $[$char_count*8] -h 125
# Center the OK button
dlg getpos -x xpos -y ypos -w width -h height
dlg setpos -c $ID_ERROK -x $[($width/2)-100] -y 60 -w 90 -h 30
dlg setpos -c $ID_ERRHELP -x $[($width/2)] -y 60 -w 90 -h 30
dlg settext -c $IDC_ERRMESS "$errmess" # Display the error message.
while :
do
dlg event emsg econtrol
case "$emsg" in
command) # Got a push button.
case "$econtrol" in
"$ID_ERROK" | "2") # Handle the CANCEL or ESCAPE button.
break
;;
"$ID_ERRHELP") # Bring up bc(1) help.
dlg winhelp -C $BC_CID "$ROOTDIR/etc/toolkit.hlp"
continue
;;
*) # Ignore any other control input.
continue
;;
esac
;;
close)
break
;;
*) # Ignore other windows messages.
continue
;;
esac
done
if [ debug -eq 0 ]
then
rm -f "$TMPDIR/appc.err"
fi
dlg winhelp -q "$ROOTDIR/etc/toolkit.hlp"
dlg close -d $err
}
#
# Auto load fn editboxes with user defined function names from lib.b.
#
function autoload {
# Reset custom function button names.
for i in 1 2 3 4 5 6 7 8 9 10 11 12
do
dlg settext -c $[ID_f$i] -- ""
done
i=1; count=1
cat "$ROOTDIR/etc/lib.b" | awk '
BEGIN { # Predefined lib.b functions.
x["e"]++
x["l"]++
x["a"]++
x["c"]++
x["s"]++
x["j"]++
x["exp"]++
x["log"]++
x["ln"]++
x["atan"]++
x["arctan"]++
x["cos"]++
x["sin"]++
x["jn"]++
x["bessel"]++
}
/^define / { # Isolate "define" lines.
sub(/^define /, ""); # Parse for function name.
sub(/\(.*$/, "")
if (!($1 in x)) # Skip predefined lib.b functions.
print
} ' | while read bc_f[$i]
do
# Display custom function name in an editbox.
dlg settext -c $[ID_f$i] -- "${bc_f[$i]}"
i=$[$i+1]
done
count=$i # Count user defined functions.
# Load array with custom function names from function buttons.
for i in 1 2 3 4 5 6 7 8 9 10 11 12
do
dlg gettext -c $[ID_f$i] -- bc_f[$i]
if [ "${bc_f[$i]}" = "" ]
then
break
fi
done
count=$[$i-1]
}
#
# PROGRAM button function.
#
function progfunc {
# appcprog.rc
IDC_PROG=4000
IDCAN=100
IDSAVE=101
IDDEL=102
IDPHELP=103
IDPREV=110
IDNEXT=111
delete_func=0
default_name="function_name"
skeleton_func="/*\r\n * Sample function format.\r\n */\r\ndefine $default_name(x,y){\r\n /* Body of function. */\r\n return(0)\r\n}"
#Load the PROGRAM function dialog.
if ! dlg load -m IDD_CALC -x -1 -y -1 -r prog "$ResFile" IDD_PROG
then
exit #dlg will have given an error in a message box!
fi
parse_lib
# The last custom function button pressed is the function to display.
if [ "${bc_f[$number]}" != "" ]
then
next=$number # Function to view this time.
fi
# Load default skeleton function into editbox first time
# else display the last function viewed.
if [ next -eq 0 ]
then
dlg settext -c $IDC_PROG "$(echo "$skeleton_func")"
else
find_name="${bc_f[$next]}" # Array was loaded in autoload()
lookup
fi
while :
do
dlg event pmsg pcontrol
case "$pmsg" in
edit) # Process edit box.
case "$pcontrol" in
*) # Ignore any other windows edit messages.
continue
;;
esac
;;
command) # Got a push button.
case "$pcontrol" in
"$IDSAVE") # Handle the SAVE button.
# Get the user defined function.
dlg gettext -c $IDC_PROG -- lib_str
# Get and test whether function name has changed
find_name=$(echo "$lib_str" | grep "^define " | cut -f2 -d " " | cut -f1 -d"(")
# Don't save sample function.
if [ "$find_name" = "$default_name" ]
then
break
fi
for i in 1 2 3 4 5 6 7 8 9 10 11 12
do
if [ "$find_name" = "${bc_f[$i]}" ]
then
delete_func=1
lookup # Delete old function.
break
fi
done
# Convert the CRs to newlines then to CR/LFs and
# append function to lib.b.
# bc only looks 1 place for lib.b.
echo "$lib_str" | tr -s "\r" "\n" | flip -d >> "$ROOTDIR/etc/lib.b"
count=$[$count+1]
next=$count # View this function next time.
reload=1
break
;;
"$IDDEL") # Handle the DELETE button.
delete_func=1
lookup
reload=1
break
;;
"$IDPHELP") # Handle the HELP button.
dlg winhelp -C $BC_CID "$ROOTDIR/etc/toolkit.hlp"
continue
;;
"$IDPREV")
next=$[$next-1]
if [ $next -le 0 ]
then
next=1
dlg enabled -c $IDPREV 0
fi
if [ $next -ge $count ]
then
dlg enabled -c $IDNEXT 0
fi
if [ $next -lt $count ]
then
dlg enabled -c $IDNEXT 1
fi
if [ $count -gt 0 ]
then
find_name="${bc_f[$next]}"
lookup
fi
continue
;;
"$IDNEXT")
next=$[$next+1]
if [ $next -gt $count ]
then
next=$count
dlg enabled -c $IDNEXT 0
fi
if [ $next -le 1 ]
then
next=1
dlg enabled -c $IDPREV 0
fi
if [ $next -gt 1 ]
then
dlg enabled -c $IDPREV 1
fi
if [ $count -gt 0 ]
then
find_name="${bc_f[$next]}"
lookup
fi
continue
;;
"$IDCAN" | "2") # Handle the CANCEL or ESCAPE button.
break
;;
*) # Ignore any other control input.
continue
;;
esac
;;
close) # For win95/nt 'X' button.
break
;;
*) # Ignore other windows messages.
continue
;;
esac
done
number=$next # Function to view next time.
dlg winhelp -q "$ROOTDIR/etc/toolkit.hlp"
dlg close -d $prog
if [ reload -ne 0 ]
then
reload=0
autoload
fi
# Clean up temp files generated by this function.
if [ debug -eq 0 ]
then
rm -f "$TMPDIR/*.out" 2> NUL
fi
}
#
# Parse lib.b for progfunc.
#
function parse_lib {
cat "$ROOTDIR/etc/lib.b" | awk -v tmpdir="$TMPDIR" '
/bessel/, NR==10000 { # All lines from "bessel" to EOF.
if (!("bessel(" == $2)) { # Skip "bessel" line.
# Parse lib.b custom functions into separate files.
# Allow a comment before the define statement.
# The comment and define must begin in column one.
if ($0 ~ "^\/\*") { # Comment preceding functon.
funcs=funcs+1
flag_comment=1
}
if ($0 ~ "^define ") { # Function define line.
flag_define=1
if (flag_comment==0)
funcs=funcs+1
}
if (flag_define==1) {
flag_comment=0
flag_define=0
}
# Output to numbered temp file.
print $0 > tmpdir"/"funcs".out"
}
} '
}
#
# Lookup custom function for progfunc().
# Delete or display the lib.b function.
#
function lookup {
if [ delete_func -ne 0 ]
then
# Rebuild lib.b without current custom function.
count=$[$count-1]
cat "$ROOTDIR/etc/lib.b" | awk -v tmpdir="$TMPDIR" '
NR==1, /bessel/ { # Keep default lib.b lines.
print $0 > tmpdir"/temp.b"
}'
# Build temp lib without function to delete.
for i in 1 2 3 4 5 6 7 8 9 10 11 12
do
if [ $i -ne $number ]
then
cat "$TMPDIR/$i.out" 2>NUL >> "$TMPDIR/temp.b"
fi
done
mv "$TMPDIR/temp.b" "$ROOTDIR/etc/lib.b" # Replace lib.b.
else
# Display custom function. Format to make line breaks
# in multi-line editbox.
xstr=$(cat "$TMPDIR/$next.out" | awk ' {
allstr=allstr $0"\r\n"
}
END {
print substr(allstr, 1, length(allstr)-2)
}')
dlg settext -c $IDC_PROG "$(echo "$xstr")"
fi
}
#
#
# MAIN bc calculator script.
#
#
ResFile=$(whence "$0") # Tell dlg the .res file is located in the current file.
set -o guierror # Specify gui error messages.
#Load and center the dialog.
if ! dlg load -x -1 -y -1 -r appc "$ResFile" IDD_CALC
then
exit #dlg will have given an error in a message box!
fi
dlg settext -c $IDC_SCALE $precision
dlg setfocus -c $ID_EQUAL
for i in $hexstr # Default is base 10 so disable hex entry digits.
do
dlg enabled -c $[ID$i] 0
done
dlg checkbutton -c $ID_BASE10 1 # Set radio button to default base 10.
autoload
#Note the loop does not terminate on failure status from dlg
while :
do
dlg event msg control # Get a button press.
case "$msg" in
edit) # Process edit boxes.
clear_button_count=0
case "$control" in
"$IDC_SCALE")
dlg gettext -c $IDC_SCALE -- precision
continue
;;
"$IDC_INPUT")
dlg gettext -c $IDC_INPUT -- bc_str
continue
;;
*) # Ignore any other windows edit messages.
continue
;;
esac
;;
command) # Got a push button.
# Build and display the input string as each digit is entered.
if [ "$control" -ge "$ID0" -a "$control" -le "$IDF" ]
then
clear_button_count=0
# Reset the entire input string.
if [ "$clear_entry_flag" -ne 0 ]
then
bc_str=""
clear_entry_flag=0
fi
if [ "$control" -le "$ID9" ]
then
tempstr=$[$control-1000]
else
case "$control" in
"$IDA")
tempstr="A"
;;
"$IDB")
tempstr="B"
;;
"$IDC")
tempstr="C"
;;
"$IDD")
tempstr="D"
;;
"$IDE")
tempstr="E"
;;
"$IDF")
tempstr="F"
;;
esac
fi
# Append 0-F to input string and display it.
bc_str=$bc_str$tempstr
dlg settext -c $IDC_INPUT -- "$bc_str"
dlg setfocus -c $ID_EQUAL
continue
fi
# Process math operator buttons.
# Unless continue, FALL THROUGH to bc.
case "$control" in
"$ID_CLOSE") # Handle the CLOSE button.
break # TO END OF PROGRAM
;;
"$ID_HLP") # Handle the HELP button.
dlg winhelp -C $APPC_CID "$ROOTDIR/etc/toolkit.hlp"
dlg setfocus -c $ID_EQUAL
continue
;;
"$ID_CLEAR")
# Effectively, double click clears list
# else clear input line.
if [ clear_button_count -ne 0 ]
then
clear_button_count=0
dlg clear -c $IDC_LISTOUT
else
clear_button_count=1
bc_str=""
bc_result=""
fi
dlg setfocus -c $ID_EQUAL
;;
"$ID_LROUNDBRACKET" |
"$ID_RROUNDBRACKET" |
"$ID_COMMA" |
"$ID_NOT")
clear_button_count=0
number=$[$control-$ID_LROUNDBRACKET]
bc_str=$bc_str${logic_char[$number]}
dlg settext -c $IDC_INPUT -- "$bc_str"
clear_entry_flag=0
dlg setfocus -c $ID_EQUAL
continue
;;
"$ID_DOT")
clear_button_count=0
bc_str=$bc_str"."
clear_entry_flag=0
dlg setfocus -c $ID_EQUAL
continue
;;
"$ID_ADD" |
"$ID_SUBTRACT" |
"$ID_MULTIPLY" |
"$ID_DIVIDE" |
"$ID_MODULO" |
"$ID_POWER")
clear_button_count=0
number=$[$control-$ID_ADD]
bc_str=$bc_str${op_char[$number]}
dlg settext -c $IDC_INPUT -- "$bc_str"
clear_entry_flag=0
dlg setfocus -c $ID_EQUAL
continue
;;
"$ID_EQUAL")
clear_button_count=0
;;
# Process user defined function buttons.
# Wrap function around what ever has been entered
# and feed it to bc(1).
"$ID_f1" | "$ID_f2" | "$ID_f3" | "$ID_f4" |
"$ID_f5" | "$ID_f6" | "$ID_f7" | "$ID_f8" |
"$ID_f9" | "$ID_f10" | "$ID_f11" | "$ID_f12")
clear_button_count=0
number=$[$control-$ID_f1+1]
func_name="${bc_f[$number]}"
if [ "$func_name" != "" ]
then
bc_str=$func_name"("$bc_str")"
dlg settext -c $IDC_INPUT -- "$bc_str"
fi
clear_entry_flag=0
dlg setfocus -c $ID_EQUAL
if [ "$func_name" = "" ]
then
continue # Do not do bc now.
fi
;;
# Process functions built in to $ROOTDIR/etc/lib.b.
"$ID_EXP" | "$ID_LOG" | "$ID_LN" |
"$ID_ATAN" | "$ID_ARCTAN" | "$ID_COS" |
"$ID_SIN" | "$ID_JN" | "$ID_BESSEL")
clear_button_count=0
number=$[$control-$ID_EXP]
func_name="${lib_op[$number]}"
bc_str=$func_name"("$bc_str")"
dlg settext -c $IDC_INPUT -- "$bc_str"
clear_entry_flag=0
dlg setfocus -c $ID_EQUAL
;;
"$ID_PROGRAM")
clear_button_count=0
progfunc
dlg setfocus -c $ID_EQUAL
continue
;;
# Base radio controls FALL THROUGH to show change.
# Set output base for input line base conversion.
# Enable/disable number buttons.
"$ID_BASE16")
clear_button_count=0
obase="16"
for i in $octstr$decstr$hexstr
do
dlg enabled -c $[ID$i] 1
done
;;
"$ID_BASE10")
clear_button_count=0
obase="10"
for i in $octstr$decstr
do
dlg enabled -c $[ID$i] 1
done
for i in $hexstr
do
dlg enabled -c $[ID$i] 0
done
;;
"$ID_BASE8")
clear_button_count=0
obase="8"
for i in $octstr
do
dlg enabled -c $[ID$i] 1
done
for i in $decstr$hexstr
do
dlg enabled -c $[ID$i] 0
done
;;
"$ID_BASE2")
clear_button_count=0
obase="2"
for i in $octstr$decstr$hexstr
do
dlg enabled -c $[ID$i] 0
done
;;
"$ID_MR") # Append list item to input string.
list_to_input
continue
;;
"1") # 1 is the Enter key.
clear_button_count=0
dlg setfocus -c $ID_EQUAL
;;
*) # Ignore any other control input.
clear_button_count=0
continue
;;
esac
;;
double) # Process mouse double click.
clear_button_count=0
case "$control" in
"$IDC_LISTOUT") # Append list item to input string.
list_to_input
;;
esac
continue
;;
close) # For win95/nt 'X' button.
break
;;
*) # Ignore other windows messages.
clear_button_count=0
continue
;;
esac #$msg
# Change dialog title while waiting for bc.
dlg settext -d $appc "APPC - Input submitted to bc(1)"
# Call bc and display the result.
bc_result=$(echo "scale=$precision\nobase=$obase\nibase=$ibase\n $bc_str" | bc -l 2>"$TMPDIR/appc.err")
if [ $? != "0" ] # Report any bc error.
then # Show the error message then allow user to re-edit the input.
errfunc
# Here's a trick. The next keypress after setfocus blanks
# the editbox field unless settext is used.
dlg setfocus -c $IDC_INPUT
dlg settext -c $IDC_INPUT -- "$bc_str"
else # Display bc(1) results.
# Strip '\' line break noise from large numbers.
bc_result=$(echo $bc_result | tr -d "\\ ")
if [ "$bc_result" != "" ] # Add to list.
then
dlg inserttext -c $IDC_LISTOUT -- "$bc_result"
clear_entry_flag=1
fi
# Output result to input line.
dlg settext -c $IDC_INPUT -- "$bc_result"
fi
# Restore dialog title after waiting for bc.
dlg settext -d $appc "Arbitrary Precision Programmable Calculator"
if [ $ibase != $obase ]
then
ibase=$obase
fi
done
dlg winhelp -q "$ROOTDIR/etc/toolkit.hlp"
dlg close -d $appc
#[]mks internal resource : dialog : IDD_CALC
#[ ]begin : size 2102
#[ ]M0 #.D ^ V :\ $$ <@!B &D = !R &$ <@!Y " 4 !R
#[ ]M &4 8P!I ', :0!O &X ( !0 '( ;P!G '( 80!M &T 80!B &P 90 @ $,
#[ ]M80!L &, =0!L &$ = !O '( ( $8 :0!X &4 9 !S 'D <P !
#[ ]M4 % % % / $P$__^ $, 10 O $, !4 % %\
#[ ]M% / -P%__^ $T )@!2 %0 4 ;@ 4 \ 303__X )@ H
#[ ]M 5 !0!] !0 #P!.!/__@ F "D !4
#[ ]M % (P % / $\$__^ "8 + %0 4 FP 4 \ 4 3_
#[ ]M_X )@ A 5 &0"; !0 #P#H ___@ F #
#[ ]M !4 9 (P % / .D#__^ "8 ,0 %0 "T C 4
#[ ]M \ Z@/__X )@ R 5 00", !0 #P#K ___@ F #,
#[ ]M !4 9 'T % / .P#__^ "8 - %0
#[ ]M "T ?0 4 \ [0/__X )@ U 5 00!] !0 #P#N ___
#[ ]M@ F #8 !4 9 &X % / .\#__^ "8 -P
#[ ]M %0 "T ;@ 4 \ \ /__X )@ X 5 00!N !0
#[ ]M#P#Q ___@ F #D !4 9 %\ % / /(#__^ "8 00
#[ ]M %0 "T 7P 4 \ \P/__X )@!" 5
#[ ]M00!? !0 #P#T ___@ F $, !4 9 % % / /4#__^
#[ ]M "8 1 %0 "T 4 4 \ ]@/__X )@!%
#[ ]M 5 00!0 !0 #P#W ___@ F $8 !4 M )L % /
#[ ]M %8$__^ "8 +@ %0 $$ FP 4 \ 5P3__X )@ ]
#[ ]M 5 50!0 !0 #P!8!/__@ F "L !4 !5
#[ ]M %\ % / %D$__^ "8 +0 %0 %4 ;@ 4 \ 6@3__X
#[ ]M)@ J 5 50!] !0 #P!;!/__@ F "\ !
#[ ]M4 !5 (P % / %P$__^ "8 )0 %0 %4 FP 4 \
#[ ]M703__X )@!> 5 ;@!0 !X #P!@!/__@ !E '@ <
#[ ]M !4 !N %\ '@ / &$$__^ &P ;P!G %0 &X
#[ ]M;@ > \ 8@3__X ; !N 5 ;@!] !X #P!C!/__@ !A
#[ ]M '0 80!N 5 ;@", !X #P!D!/__@ !A '( 8P!T &$
#[ ]M;@ %0 (P 4 > \ 903__X 8P!O ', 5
#[ ]M C !? !X #P!F!/__@ !S &D ;@ !4 ", &X '@ / &<$
#[ ]M__^ &H ;@ %0 (P ?0 > \ : 3__X 8@!E ', <P!E
#[ ]M &P !4 ", (P '@ / +@+__^ % <@!O &< <@!A &T
#[ ]M 5 " %# "@ #0 " /__@ !# &P ;P!S &4 5
#[ ]M X !# "@ #0 # /__@ !( &4 ; !P " 5 K@!0 $$
#[ ]M#P"Q!/__@ %0 *X 7P!! \ L@3__X !
#[ ]M4 "N &X 00 / +,$__^ 5 K@!] $$ #P"T!/__
#[ ]M@ %0 *X C !! \ M03__X !4 "N
#[ ]M )L 00 / +8$__^ 5 [P!0 $$ #P"W!/__@
#[ ]M %0 .\ 7P!! \ N 3__X !4 #O &X 00 /
#[ ]M +D$__^ 5 [P!] $$ #P"Z!/__@ %0
#[ ]M .\ C !! \ NP3__X !4 #O )L 00 / +P$__^
#[ ]M D E !0!& !D " 4!?__@ !( &4 > "0 4
#[ ]M > $8 &0 ( !4%__^ $0 90!C ) !0 #< 1@ 9 @ %@7_
#[ ]M_X 3P!C '0 D % 4 !& !D " 7!?__@ !" &D ;@
#[ ]M "4 "4 $8 &0 ( /____^" "8 4P!# $$ 3 !% @0@5
#[ ]M ;@!$ ", "@#2!___@0 ""$(%0 4 -P K 0P - C__X$
#[ ]@ 0"A4 % , *P$T #4(__^#
#[ ]end
#[]mks internal resource : dialog : IDD_PROG
#[ ]begin : size 334
#[ ]MP #(@ ' H ,@ = 6X % <@!O &< <@!A &T ( !! % 4 !#
#[ ]M " !& &D > !E &0 <P!Y ', %0 / !0 H \ 9 #__X
#[ ]M)@!# &$ ;@!C &4 ; 0 !4 #P !D * / &4 __^ "8 4P!A
#[ ]M '8 90 !4 #P "T * / &8 __^ "8 1 !E &P 90!T &4
#[ ]M 5 \ !! "@ #P!G /__@ F $@ 90!L ' 5
#[ ]M 00!: "@ #P!N /__@ \ #P ( F % <@!E '8 !4
#[ ]M !S %H * / &\ __^ "8 3@!E '@ = @ #X /@ #$$(%0
#[ ]3 4 !0#F % H ___X$
#[ ]end
#[]mks internal resource : dialog : IDD_ERRMESS
#[ ]begin : size 162
#[ ]MP #(@ # $$ 4 !0 $, ( M " 10!R '( ;P!R
#[ ]M " !& &D > !E &0 <P!Y ', " )0 4 !0! 1D *"/__X(
#[ ]M( !4 !X +0 - "DC__^ $\ :P %0
#[ ]; &0 '@ M T *B/__X 2 !E &P <
#[ ]end
#[]mks internal resource : icon : \0 : width 32 height 32 colors 16
#[ ]begin : size 744
#[ ]M* " ! 0 $ " @
#[ ]M ( ( " @ " @ " (" # P, @(" _P _P /__ /\
#[ ]M #_ /\ __\ /___P $B(B(B(B(B(B(@
#[ ]M ! =W=W=W=W=W=X 0'B(B(AXB'B(> $!P=W=X<'AP>'
#[ ]M@ ! < "' (<'AX 0'=W=W=W=W!X> $!XB'B(>(
#[ ]MAP>'@ ! <'AP>'!X<'AX 0' (< AP"' (> $!W=W
#[ ]M=W=W=W=W@ ! >(AXB'B(>(AX 0'!X<'AP>'!X> $
#[ ]M!P"' (< AP"'@ ! =W=W=W=W=W=X 0'B(>(AXB'B(>
#[ ]M $!P>'!X<'AP>'@ ! < AP"' (< AX 0'=W=W=W=W=W>
#[ ]M $!XB'B(>(AXB'@ ! <'AP>'!X<'AX 0' (< AP"'
#[ ]M (> $!W=W=W=W=W=W@ ! =$1$1$1$1$1X 0'0 X.
#[ ]M#@X.#D> $!T#@X.#@X.!'@ ! = #@X.#@X.1X 0'
#[ ]M0 $> $!T1$1$1$1$1'@ ! =W=W=W=W=W=X
#[ ]M 0 1$1$1$1$1$1$0 /P '_X _^@ /_H
#[ ]M #_Z@(@_^OS(/_H "#_Z @_^HB(/_K,S#_Z _^@ /_J(B#_ZS,P_^@
#[ ]M/_H #_ZB(@_^LS,/_H #_Z _^HB(/_K,S#_Z _^@ /_IJJ#_Z550_
#[ ]8^FJH/_I__#_Z _^@ /_O__[_\ !_
#[ ]end
#[]mks internal resource : icon : \1 : width 16 height 16 colors 16
#[ ]begin : size 296
#[ ]M* ! @ 0 $ #
#[ ]M ( ( " @ " @ " (" # P, @(" _P _P /__ /\
#[ ]M #_ /\ __\ /___P "(>'AX> (!'1T=' @ <'!P@
#[ ]M " 1T='1P ( '!P<( @$='1T< " !P<'" (!'1T=' @ <'
#[ ]M!P@ " =W=W=P ( (B(B( @ #@X(< " " (
#[ ]M"(B(B(@ . / # !P T < -JG #0!P VJ< - ' #:IP T < -JG
#[ ]: #0!P T < -5' #0!P W_< . /
#[ ]end
