ROS.60050 !r    !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~8000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000800080008000 8000 8000 8000 8000 8000800080008000800080008000800080008000800080008000800080008000800080008000 8000!8000"8000#8000$8000%8000&8000'8000(8000)8000*8000+8000,8000-8000.8000/800008000180002800038000480005800068000780008800098000:8000;8000<8000=8000>$r08x ( ,08r50g88b10808 ( $00x "88b100r50g0b750$00x" 00@r0g25b88@&00x $x * , .k r100g50b8800P*08x (.08 00r25g75b100`*08x (. 00r50g88b10000custom6.08x & ( *,00custom7 .08x & ( *,000custom8rk,08x $ & (*00gray16 ,08x $ & (* (00gray12GGG,08x $ & (* (00gray8,08x $ & (* (00gray4-08x& (*+ (00r0g100b0/08x ( *,- 00r25g100b0@/08x ( *,- 00r50g100b0/08x ( *,- 00r75g100b0/08x ( *,- 00r88g100b0/08x ( *,- 00r100g100b0.08x' ( *, 00r0g100b50008x ( * ,. 00r25g100b50@008x ( * ,. 00r50g100b50008x ( * ,. 00r75g100b50008x ( * ,. 00r88g100b50208x * , .0 00r100g100b50.08x' ( *,00 00r0g100b75008x ( * ,.00 00r25g100b75@008x ( * ,.00 00r50g100b75008x ( * ,.00 00r75g100b75008x ( * ,.00 00r88g100b75208x * , .000 00r100g100b758.08x' ( *,00 00r0g100b888008x ( * ,.g8 00r25g100b88@008x ( * ,.5g 00r50g100b88008x ( * ,.0g 00r75g100b88008x ( * ,.5g 00r88g100b88208x * , .08g 00r100g100b88008x( * ,.8b 00r0g100b100208x * , .010 00r25g100b100@ (208x * , .0@ 00r50g100b100 208x * , .0 00r75g100b1008208x * , .0 00r88g100b100P208x * , .0 00r100g100b100 *:BFm(n rvx(((( SQL*FormsLFORM50%C:\DDG\DST\Development\CALCULATOR.fmbxf% xf% ;Copyright (c) Oracle Corporation 1990. All Rights Reserved.r (002 3BEGIN ;go_item('b_calculator.inputarea'); select_all; copy_region; END;.WHEN-BUTTON-PRESSED (B_CALCULATOR.PB_CALCCOPY)lͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""T2ͫͫͫͫͫͫͫ0D 33 &'$F&'$&'$!\$\<b_calculator.inputarea &2 *0800 +8000,8000-8000.8000/800008000180002800038000480005800068000780008800098000:8000;8000<8000=8000>x0lBD1 $"tP0_23_JUL_200214_40_18BEGIN "declare outval number; s varchar2(200); v_cursorid integer; v_dummy integer; begin s := :b_calculator.inputarea; v_cursorid := dbms_sql.open_cursor; dbms_sql.parse(v_cursorid,'begin :x :='||s||';end;',0); dbms_sql.bind_variable(v_cursorid,':x',outval); v_dummy := dbms_sql.execute(v_cursorid); dbms_sql.variable_value(v_cursorid,':x',outval); dbms_sql.close_cursor(v_cursorid); outval := round(outval,7); if outval>999999999999999999 then -- field too big s := 'ERROR!'; outval := to_number(NULL); else -- make a nice numeric result s := rtrim(rtrim(rtrim(ltrim(to_char(outval,'999,999,999,999,990.9999999')),'0'),'.')); end if; :b_calculator.result2 := :b_calculator.result1; :b_calculator.result1 := :b_calculator.inputarea||'='||s; :b_calculator.inputarea := to_char(outval); exception when others then :b_calculator.result2 := :b_calculator.result1; :b_calculator.result1 := :b_calculator.inputarea||'='; :b_calculator.inputarea := 'ERROR!'; end; END;&KEY-NEXT-ITEM (B_CALCULATOR.INPUTAREA) ͫͫͫͫͫͫͫw SYSSTANDARD DBMS_SQL p <<TOOLBOXDBMS_SQL w7PUBLICDBMS_SQLw7SYSDBMS_SQL $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08I 3"PKG INIT""OUTVAL"S"V_CURSORID"V_DUMMY""%()/234:=>?ACEG      &&LThp- ͫͫͫͫͫͫͫ0D .. 8LThpTx"{t(xh;T;(.h "{th@L "{x$h"{xph@ "{xELh"{xph&'LXL $fL` hT(L-L&'$:&' $;&' $;&'  $< T88$$;$; $T  88L((I88$$;< <88hk!4h8w7 DBMS_SQLSYSOPEN_CURSORDBDBMS_SQL& begin :x :=;end;w7DBMS_SQLSYSPARSEDBMS_SQL:xd4w7 DBMS_SQLSYSBIND_VARIABLEDBMS_SQL-w7DBMS_SQLSYSEXECUTEDBDBMS_SQL@ Ew7DBMS_SQLSYSVARIABLE_VALUEDBMDBMS_SQLw7 DBMS_SQLSYSCLOSE_CURSORDDBMS_SQL dddddddddERROR!999,999,999,999,990.99999990.=(L(T(h(p(x(((4(8P(T`dhlptx| ((@($$(8(* > g }   &-  (@X`h (0(00x!"$ &r0g0b50*00x" $& (r25g0b50@;@lBD1 $" P3_23_JUL_200214_40_18BEGIN declare c varchar2(15); begin if upper(:b_calculator.inputarea) like 'ERROR%' then :b_calculator.inputarea := NULL; -- clear out error message end if; c := get_item_property(:system.trigger_item,LABEL); if c = 'X' then -- button can be X or * c := '*'; elsif c in ('ABS','POWER','COS','SIN','LN','LOG','TAN','ROUND','MOD') then c := c ||'('; end if; if length(:b_calculator.inputarea)+length(c)>=100 then :b_calculator.inputarea := 'ERROR: Input too long!'; raise form_trigger_failure; end if; if c = 'C' then -- clear :b_calculator.inputarea := ''; elsif c = '=' then go_item('b_calculator.inputarea'); do_key('next_item'); else :b_calculator.inputarea := :b_calculator.inputarea || c; --go_item('b_calculator.inputarea'); end if; end; END;&WHEN-BUTTON-PRESSED (B_CALCULATOR.PB7)ͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 FORMS4C SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08 $"PKG INIT""C"" " 8Jͫͫͫͫͫͫͫ0D KK 8&'LL$,&'L` $=` h$&'&'$G I|| $8|88 088H 8` w8x g8 W8 G8 78 '8 8 :8 8&'$).&'8$).A.8" @h8X$ p\8; 0&'$F&'$ !;8!,ERROR%X*ABSPOWERCOSSINLNLOGTANROUNDMOD(dERROR: Input too long!C=b_calculator.inputarea next_item (8H`Ldh(`lp(ht|(((((( 8($<D_k    U cd/JJ(40<HD`LxX`hpx 8@Xp ͫͫͫͫͫͫͫw SYSSTANDARD SQLFORMS FORMS4C $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""TYͫͫͫͫͫͫͫ0D ZZ ,4&'$[   8 .&'&'&'G E(GE $4!l$lL B_CALCULATOR (1Y  0800 @0800 P0800 `0800 p0800 0800 0800 0800 r88g0b100|A4PlBD1 $" P4_23_JUL_200214_40_18BEGIN declare c varchar2(15); begin if upper(:b_calculator.inputarea) like 'ERROR%' then :b_calculator.inputarea := NULL; -- clear out error message end if; c := get_item_property(:system.trigger_item,LABEL); if c = 'X' then -- button can be X or * c := '*'; elsif c in ('ABS','POWER','COS','SIN','LN','LOG','TAN','ROUND','MOD') then c := c ||'('; end if; if length(:b_calculator.inputarea)+length(c)>=100 then :b_calculator.inputarea := 'ERROR: Input too long!'; raise form_trigger_failure; end if; if c = 'C' then -- clear :b_calculator.inputarea := ''; elsif c = '=' then go_item('b_calculator.inputarea'); do_key('next_item'); else :b_calculator.inputarea := :b_calculator.inputarea || c; --go_item('b_calculator.inputarea'); end if; end; END;&WHEN-BUTTON-PRESSED (B_CALCULATOR.PB8)ͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 FORMS4C SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08 $"PKG INIT""C"" " 8Jͫͫͫͫͫͫͫ0D KK 8&'LL$,&'L` $=` h$&'&'$G I|| $8|88 088H 8` w8x g8 W8 G8 78 '8 8 :8 8&'$).&'8$).A.8" @h8X$ p\8; 0&'$F&'$ !;8!,ERROR%X*ABSPOWERCOSSINLNLOGTANROUNDMOD(dERROR: Input too long!C=b_calculator.inputarea next_item (8H`Ldh(`lp(ht|(((((( 8($<D_k    U cd/JJ(40<HD`LxX`hpx 8@Xp QTNUQQlVWjXYZUQq)UQ~)UQwRUTP &QUQyUQjUQiUQQYVWtXYZUQvUQQUQUQUQQ Q UQVWpXYZUQQzNUQ{NUQ|NUQ}NUQQ UQRTP&Q)UQQUQUQUQUQQVWaXYZUQ|RTP &Q UQ UQ U`lBD1 $" P9_24_JUL_200217_55_33BEGIN declare c varchar2(15); begin if upper(:b_calculator.inputarea) like 'ERROR%' then :b_calculator.inputarea := NULL; -- clear out error message end if; c := get_item_property(:system.trigger_item,LABEL); if c = 'X' then -- button can be X or * c := '*'; elsif c in ('ABS','POWER','COS','SIN','LN','LOG','TAN','ROUND','MOD') then c := c ||'('; end if; if length(:b_calculator.inputarea)+length(c)>=100 then :b_calculator.inputarea := 'ERROR: Input too long!'; raise form_trigger_failure; end if; if c = 'C' then -- clear :b_calculator.inputarea := ''; elsif c = '=' then go_item('b_calculator.inputarea'); do_key('next_item'); else :b_calculator.inputarea := :b_calculator.inputarea || c; --go_item('b_calculator.inputarea'); end if; end; END;&WHEN-BUTTON-PRESSED (B_CALCULATOR.PB9)ͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 FORMS4C SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08 $"PKG INIT""C"" " 8Jͫͫͫͫͫͫͫ0D KK 8&'LL$,&'L` $=` h$&'&'$G I|| $8|88 088H 8` w8x g8 W8 G8 78 '8 8 :8 8&'$).&'8$).A.8" @h8X$ p\8; 0&'$F&'$ !;8!,ERROR%X*ABSPOWERCOSSINLNLOGTANROUNDMOD(dERROR: Input too long!C=b_calculator.inputarea next_item (8H`Ldh(`lp(ht|(((((( 8($<D_k    U cd/JJ(40<HD`LxX`hpx 8@Xp &r0g0b50*00x" $& (r25g0b50@*00x" $& (r50g0b50*00x" $& (r75g0b50*00x" $& (r88g0b50,00x$ &( * r100g0b50(00x!"$ &r0g0b75*00x" $& (r25g0b75@*00x" $& (r50g0b75*00x" $& (r75g0b75*00x" $& (r88g0b75,00x$ &( * r100g0b75(00x!"$ &r0g0b88*00x" $& (r25g0b88@*00x" $& (r50g0b88*00x" $& (r75g0b88*00x" $& (r88g0b88,00x$ &( * r100g0b88(00x"#$ & r0g0b100,00x$ &( *! r25g0b100@,00x$ &( *" r50g0b100,00x$ &( *# r75g0b100,00x$ &( *$ r88g0b100plBD1 $" P7_24_JUL_200217_55_33BEGIN declare c varchar2(15); begin if upper(:b_calculator.inputarea) like 'ERROR%' then :b_calculator.inputarea := NULL; -- clear out error message end if; c := get_item_property(:system.trigger_item,LABEL); if c = 'X' then -- button can be X or * c := '*'; elsif c in ('ABS','POWER','COS','SIN','LN','LOG','TAN','ROUND','MOD') then c := c ||'('; end if; if length(:b_calculator.inputarea)+length(c)>=100 then :b_calculator.inputarea := 'ERROR: Input too long!'; raise form_trigger_failure; end if; if c = 'C' then -- clear :b_calculator.inputarea := ''; elsif c = '=' then go_item('b_calculator.inputarea'); do_key('next_item'); else :b_calculator.inputarea := :b_calculator.inputarea || c; --go_item('b_calculator.inputarea'); end if; end; END;(WHEN-BUTTON-PRESSED (B_CALCULATOR.PBDIV)ͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 FORMS4C SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08 $"PKG INIT""C"" " 8Jͫͫͫͫͫͫͫ0D KK 8&'LL$,&'L` $=` h$&'&'$G I|| $8|88 088H 8` w8x g8 W8 G8 78 '8 8 :8 8&'$).&'8$).A.8" @h8X$ p\8; 0&'$F&'$ !;8!,ERROR%X*ABSPOWERCOSSINLNLOGTANROUNDMOD(dERROR: Input too long!C=b_calculator.inputarea next_item (8H`Ldh(`lp(ht|(((((( 8($<D_k    U cd/JJ(40<HD`LxX`hpx 8@Xp gray76p=p=p=(00x " $ &,gray72GGG(00x " $ &-gray68QQQ'00x!" $%.r0g25b0@Q)00x" $ &'/r25g25b0@@)00x" $ &'0r50g25b0@)00x" $ &'1r75g25b0@)00x" $ &'2r88g25b0@+00x$ & ()3 r100g25b0@*00x"$ & (4r0g25b50@,00x$ & ( *5 r25g25b50@@,00x$ & ( *6 r50g25b50@,00x$ & ( *7 r75g25b50@,00x$ & ( *8 r88g25b50@,00x$ & ( *9 r100g25b50@*00x"$ & (:r0g25b750@,00x$ & ( *; r25g25b75@@,00x$ & ( *< r50g25b75@,00x$ & ( *= r75g25b75@,00x$ & ( *> r88g25b75@,00x$ & ( *? r100g25b75@*00x"$ & (@r0g25b885@,00x$ & ( *A r25g25b88@@q`lBD1 $" P12_23_JUL_200214_40_18BEGIN declare c varchar2(15); begin if upper(:b_calculator.inputarea) like 'ERROR%' then :b_calculator.inputarea := NULL; -- clear out error message end if; c := get_item_property(:system.trigger_item,LABEL); if c = 'X' then -- button can be X or * c := '*'; elsif c in ('ABS','POWER','COS','SIN','LN','LOG','TAN','ROUND','MOD') then c := c ||'('; end if; if length(:b_calculator.inputarea)+length(c)>=100 then :b_calculator.inputarea := 'ERROR: Input too long!'; raise form_trigger_failure; end if; if c = 'C' then -- clear :b_calculator.inputarea := ''; elsif c = '=' then go_item('b_calculator.inputarea'); do_key('next_item'); else :b_calculator.inputarea := :b_calculator.inputarea || c; --go_item('b_calculator.inputarea'); end if; end; END;&WHEN-BUTTON-PRESSED (B_CALCULATOR.PB4)ͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 FORMS4C SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08 $"PKG INIT""C"" " 8Jͫͫͫͫͫͫͫ0D KK 8&'LL$,&'L` $=` h$&'&'$G I|| $8|88 088H 8` w8x g8 W8 G8 78 '8 8 :8 8&'$).&'8$).A.8" @h8X$ p\8; 0&'$F&'$ !;8!,ERROR%X*ABSPOWERCOSSINLNLOGTANROUNDMOD(dERROR: Input too long!C=b_calculator.inputarea next_item (8H`Ldh(`lp(ht|(((((( 8($<D_k    U cd/JJ(40<HD`LxX`hpx 8@Xp 00x" $ &'Vr50g50b0@)00x" $ &'Wr75g50b0@)00x" $ &'Xr88g50b0@+00x$ & ()Y r100g50b0@*00x"$ & (Zr0g50b50@,00x$ & ( *[ r25g50b50@,00x$ & ( *\ r50g50b50,00x$ & ( *] r75g50b50,00x$ & ( *^ r88g50b50,00x$ & ( *_ r100g50b50*00x"$ & (`r0g50b750,00x$ & ( *a r25g50b75@,00x$ & ( *b r50g50b75,00x$ & ( *c r75g50b75,00x$ & ( *d r88g50b75,00x$ & ( *e r100g50b75*00x"$ & (fr0g50b885,00x$ & ( *g r25g50b88@,00x$ & ( *h r50g50b88,00x$ & ( *i r75g50b88,00x$ & ( *j r88g50b88,00x$ & ( *k r100g50b88lBD1 $" P13_23_JUL_200214_40_18BEGIN declare c varchar2(15); begin if upper(:b_calculator.inputarea) like 'ERROR%' then :b_calculator.inputarea := NULL; -- clear out error message end if; c := get_item_property(:system.trigger_item,LABEL); if c = 'X' then -- button can be X or * c := '*'; elsif c in ('ABS','POWER','COS','SIN','LN','LOG','TAN','ROUND','MOD') then c := c ||'('; end if; if length(:b_calculator.inputarea)+length(c)>=100 then :b_calculator.inputarea := 'ERROR: Input too long!'; raise form_trigger_failure; end if; if c = 'C' then -- clear :b_calculator.inputarea := ''; elsif c = '=' then go_item('b_calculator.inputarea'); do_key('next_item'); else :b_calculator.inputarea := :b_calculator.inputarea || c; --go_item('b_calculator.inputarea'); end if; end; END;&WHEN-BUTTON-PRESSED (B_CALCULATOR.PB5)ͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 FORMS4C SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08 $"PKG INIT""C"" " 8Jͫͫͫͫͫͫͫ0D KK 8&'LL$,&'L` $=` h$&'&'$G I|| $8|88 088H 8` w8x g8 W8 G8 78 '8 8 :8 8&'$).&'8$).A.8" @h8X$ p\8; 0&'$F&'$ !;8!,ERROR%X*ABSPOWERCOSSINLNLOGTANROUNDMOD(dERROR: Input too long!C=b_calculator.inputarea next_item (8H`Ldh(`lp(ht|(((((( 8($<D_k    U cd/JJ(40<HD`LxX`hpx 8@Xp 75b0.08x&( * ,00r0g75b50#008x( * , . 00r25g75b50@008x( * , . 00r50g75b50008x( * , . 00r75g75b50008x( * , . 00r88g75b50008x( * , . 00r100g75b50.08x&( * ,00r0g75b750008x( * , . 00r25g75b75@008x( * , . 00r50g75b75008x( * , . 00r75g75b75008x( * , . 00r88g75b75008x( * , . 00r100g75b75.08x&( * ,00r0g75b885008x( * , . 00r25g75b88@008x( * , . 00r50g75b88008x( * , . 00r75g75b88008x( * , . 00r88g75b88008x( * , . 00r100g75b88.08x'( * , 00r0g75b100008x( * , . 00r25g75b100@ ?DlBD1 $" P14_23_JUL_200214_40_18BEGIN declare c varchar2(15); begin if upper(:b_calculator.inputarea) like 'ERROR%' then :b_calculator.inputarea := NULL; -- clear out error message end if; c := get_item_property(:system.trigger_item,LABEL); if c = 'X' then -- button can be X or * c := '*'; elsif c in ('ABS','POWER','COS','SIN','LN','LOG','TAN','ROUND','MOD') then c := c ||'('; end if; if length(:b_calculator.inputarea)+length(c)>=100 then :b_calculator.inputarea := 'ERROR: Input too long!'; raise form_trigger_failure; end if; if c = 'C' then -- clear :b_calculator.inputarea := ''; elsif c = '=' then go_item('b_calculator.inputarea'); do_key('next_item'); else :b_calculator.inputarea := :b_calculator.inputarea || c; --go_item('b_calculator.inputarea'); end if; end; END;&WHEN-BUTTON-PRESSED (B_CALCULATOR.PB6)ͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 FORMS4C SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08 $"PKG INIT""C"" " 8Jͫͫͫͫͫͫͫ0D KK 8&'LL$,&'L` $=` h$&'&'$G I|| $8|88 088H 8` w8x g8 W8 G8 78 '8 8 :8 8&'$).&'8$).A.8" @h8X$ p\8; 0&'$F&'$ !;8!,ERROR%X*ABSPOWERCOSSINLNLOGTANROUNDMOD(dERROR: Input too long!C=b_calculator.inputarea next_item (8H`Ldh(`lp(ht|(((((( 8($<D_k    U cd/JJ(40<HD`LxX`hpx 8@Xp 008x( * , . 00r25g88b50@008x( * , . 00r50g88b50008x( * , . 00r75g88b50008x( * , . 00r88g88b50008x( * , . 00r100g88b50.08x&( * ,00r0g88b750008x( * , . 00r25g88b75@008x( * , . 00r50g88b75008x( * , . 00r75g88b75008x( * , . 00r88g88b75008x( * , . 00r100g88b75.08x&( * ,00r0g88b885008x( * , . 00r25g88b88@008x( * , . 00r50g88b88008x( * , . 00r75g88b88008x( * , . 00r88g88b88008x( * , . 00r100g88b88.08x'( * , 00r0g88b100008x( * , . 00r25g88b100@008x( * , . 00r50g88b100x" $& (r25g0b50@ lBD1 $" P6_24_JUL_200217_55_33BEGIN declare c varchar2(15); begin if upper(:b_calculator.inputarea) like 'ERROR%' then :b_calculator.inputarea := NULL; -- clear out error message end if; c := get_item_property(:system.trigger_item,LABEL); if c = 'X' then -- button can be X or * c := '*'; elsif c in ('ABS','POWER','COS','SIN','LN','LOG','TAN','ROUND','MOD') then c := c ||'('; end if; if length(:b_calculator.inputarea)+length(c)>=100 then :b_calculator.inputarea := 'ERROR: Input too long!'; raise form_trigger_failure; end if; if c = 'C' then -- clear :b_calculator.inputarea := ''; elsif c = '=' then go_item('b_calculator.inputarea'); do_key('next_item'); else :b_calculator.inputarea := :b_calculator.inputarea || c; --go_item('b_calculator.inputarea'); end if; end; END;(WHEN-BUTTON-PRESSED (B_CALCULATOR.PBMUL)ͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 FORMS4C SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08 $"PKG INIT""C"" " 8Jͫͫͫͫͫͫͫ0D KK 8&'LL$,&'L` $=` h$&'&'$G I|| $8|88 088H 8` w8x g8 W8 G8 78 '8 8 :8 8&'$).&'8$).A.8" @h8X$ p\8; 0&'$F&'$ !;8!,ERROR%X*ABSPOWERCOSSINLNLOGTANROUNDMOD(dERROR: Input too long!C=b_calculator.inputarea next_item (8H`Ldh(`lp(ht|(((((( 8($<D_k    U cd/JJ(40<HD`LxX`hpx 8@Xp ( * , . 00r25g100b50@008x( * , . 00r50g100b50008x( * , . 00r75g100b50008x( * , . 00r88g100b50208x* , . 0 00r100g100b50.08x'( * , 00r0g100b75008x( * , . 00r25g100b75@008x( * , . 00r50g100b75008x( * , . 00r75g100b75008x( * , . 00r88g100b75208x* , . 0 00r100g100b75.08x'( * , 00r0g100b88008x( * , . 00r25g100b88@008x( * , . 00r50g100b88008x( * , . 00r75g100b88008x( * , . 00r88g100b88208x* , . 0 00r100g100b88008x(* , . 00r0g100b100208x* , . 0 00r25g100b100@208x* , . 0 00r50g100b100yq`"lBD1 $" P5_24_JUL_200217_55_33BEGIN declare c varchar2(15); begin if upper(:b_calculator.inputarea) like 'ERROR%' then :b_calculator.inputarea := NULL; -- clear out error message end if; c := get_item_property(:system.trigger_item,LABEL); if c = 'X' then -- button can be X or * c := '*'; elsif c in ('ABS','POWER','COS','SIN','LN','LOG','TAN','ROUND','MOD') then c := c ||'('; end if; if length(:b_calculator.inputarea)+length(c)>=100 then :b_calculator.inputarea := 'ERROR: Input too long!'; raise form_trigger_failure; end if; if c = 'C' then -- clear :b_calculator.inputarea := ''; elsif c = '=' then go_item('b_calculator.inputarea'); do_key('next_item'); else :b_calculator.inputarea := :b_calculator.inputarea || c; --go_item('b_calculator.inputarea'); end if; end; END;.WHEN-BUTTON-PRESSED (B_CALCULATOR.PBLEFTPAREN)ͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 FORMS4C SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08 $"PKG INIT""C"" " 8Jͫͫͫͫͫͫͫ0D KK 8&'LL$,&'L` $=` h$&'&'$G I|| $8|88 088H 8` w8x g8 W8 G8 78 '8 8 :8 8&'$).&'8$).A.8" @h8X$ p\8; 0&'$F&'$ !;8!,ERROR%X*ABSPOWERCOSSINLNLOGTANROUNDMOD(dERROR: Input too long!C=b_calculator.inputarea next_item (8H`Ldh(`lp(ht|(((((( 8($<D_k    U cd/JJ(40<HD`LxX`hpx 8@Xp CALCULATORe^+8+<PC_CALCULATOR_BUTTON1C_CALCULATORBlackGrayfE8,P,gD*,,/  u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDhZU-i L--.l!.ttDul..jik:. /ZPB2PB2jZ-k]-.(l^-.CALCULATORm^-.P<PC_CALCULATOR_BUTTON2C_CALCULATORBlackGraynE8./oD,/$/@/  u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDpZU0q L0 00!0tcul01jik:1/$lBD1 $" P4_24_JUL_200217_55_33BEGIN declare c varchar2(15); begin if upper(:b_calculator.inputarea) like 'ERROR%' then :b_calculator.inputarea := NULL; -- clear out error message end if; c := get_item_property(:system.trigger_item,LABEL); if c = 'X' then -- button can be X or * c := '*'; elsif c in ('ABS','POWER','COS','SIN','LN','LOG','TAN','ROUND','MOD') then c := c ||'('; end if; if length(:b_calculator.inputarea)+length(c)>=100 then :b_calculator.inputarea := 'ERROR: Input too long!'; raise form_trigger_failure; end if; if c = 'C' then -- clear :b_calculator.inputarea := ''; elsif c = '=' then go_item('b_calculator.inputarea'); do_key('next_item'); else :b_calculator.inputarea := :b_calculator.inputarea || c; --go_item('b_calculator.inputarea'); end if; end; END;/WHEN-BUTTON-PRESSED (B_CALCULATOR.PBRIGHTPAREN)ͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 FORMS4C SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08 $"PKG INIT""C"" " 8Jͫͫͫͫͫͫͫ0D KK 8&'LL$,&'L` $=` h$&'&'$G I|| $8|88 088H 8` w8x g8 W8 G8 78 '8 8 :8 8&'$).&'8$).A.8" @h8X$ p\8; 0&'$F&'$ !;8!,ERROR%X*ABSPOWERCOSSINLNLOGTANROUNDMOD(dERROR: Input too long!C=b_calculator.inputarea next_item (8H`Ldh(`lp(ht|(((((( 8($<D_k    U cd/JJ(40<HD`LxX`hpx 8@Xp ͫͫͫw SYSSTANDARD SQLFORMS FORMS4C $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""TYͫͫͫͫͫͫͫ0D ZZ ,4&'$[   8 .&'&'&'G E(GE $4!l$lL B_CALCULATOR (1Y  0800 @0800 P0800 `0800 p0800 0800 0800 0800 r88g0b100|A4lBD1 $" P15_23_JUL_200214_40_18BEGIN declare c varchar2(15); begin if upper(:b_calculator.inputarea) like 'ERROR%' then :b_calculator.inputarea := NULL; -- clear out error message end if; c := get_item_property(:system.trigger_item,LABEL); if c = 'X' then -- button can be X or * c := '*'; elsif c in ('ABS','POWER','COS','SIN','LN','LOG','TAN','ROUND','MOD') then c := c ||'('; end if; if length(:b_calculator.inputarea)+length(c)>=100 then :b_calculator.inputarea := 'ERROR: Input too long!'; raise form_trigger_failure; end if; if c = 'C' then -- clear :b_calculator.inputarea := ''; elsif c = '=' then go_item('b_calculator.inputarea'); do_key('next_item'); else :b_calculator.inputarea := :b_calculator.inputarea || c; --go_item('b_calculator.inputarea'); end if; end; END;&WHEN-BUTTON-PRESSED (B_CALCULATOR.PB1)ͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 FORMS4C SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08 $"PKG INIT""C"" " 8Jͫͫͫͫͫͫͫ0D KK 8&'LL$,&'L` $=` h$&'&'$G I|| $8|88 088H 8` w8x g8 W8 G8 78 '8 8 :8 8&'$).&'8$).A.8" @h8X$ p\8; 0&'$F&'$ !;8!,ERROR%X*ABSPOWERCOSSINLNLOGTANROUNDMOD(dERROR: Input too long!C=b_calculator.inputarea next_item (8H`Ldh(`lp(ht|(((((( 8($<D_k    U cd/JJ(40<HD`LxX`hpx 8@Xp  / u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED0ZU1 !t$u~ljik:/ZPB4PB42Z3]@x4^hCALCULATOR5^<PC_CALCULATOR_BUTTON4C_CALCULATORBlackGray6E8X7D@t/ u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED8ZUP9 \h ,! 4tDu~l H Tjik: ` /ZPB5PB5:Z;]<^hCALCULATlBD1 $" P16_23_JUL_200214_40_18BEGIN declare c varchar2(15); begin if upper(:b_calculator.inputarea) like 'ERROR%' then :b_calculator.inputarea := NULL; -- clear out error message end if; c := get_item_property(:system.trigger_item,LABEL); if c = 'X' then -- button can be X or * c := '*'; elsif c in ('ABS','POWER','COS','SIN','LN','LOG','TAN','ROUND','MOD') then c := c ||'('; end if; if length(:b_calculator.inputarea)+length(c)>=100 then :b_calculator.inputarea := 'ERROR: Input too long!'; raise form_trigger_failure; end if; if c = 'C' then -- clear :b_calculator.inputarea := ''; elsif c = '=' then go_item('b_calculator.inputarea'); do_key('next_item'); else :b_calculator.inputarea := :b_calculator.inputarea || c; --go_item('b_calculator.inputarea'); end if; end; END;&WHEN-BUTTON-PRESSED (B_CALCULATOR.PB2)ͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 FORMS4C SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08 $"PKG INIT""C"" " 8Jͫͫͫͫͫͫͫ0D KK 8&'LL$,&'L` $=` h$&'&'$G I|| $8|88 088H 8` w8x g8 W8 G8 78 '8 8 :8 8&'$).&'8$).A.8" @h8X$ p\8; 0&'$F&'$ !;8!,ERROR%X*ABSPOWERCOSSINLNLOGTANROUNDMOD(dERROR: Input too long!C=b_calculator.inputarea next_item (8H`Ldh(`lp(ht|(((((( 8($<D_k    U cd/JJ(40<HD`LxX`hpx 8@Xp PB1PB1bZ+c],,8d^+,(CALCULATORe^+,`<PC_CALCULATOR_BUTTON1C_CALCULATORBlackGrayfE8,-gD+-4-P/  u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDhZU.i ..(.!.tDul//jik:/ /ZPB2PB2jZ.Hk].p.l^.(.CALCULATORm^.(.<PC_CALCULATOR_BUTTON2C_CALCULATORBlackGraynE8/@/oD-p///  u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDpZlBD1 $" P17_23_JUL_200214_40_18BEGIN declare c varchar2(15); begin if upper(:b_calculator.inputarea) like 'ERROR%' then :b_calculator.inputarea := NULL; -- clear out error message end if; c := get_item_property(:system.trigger_item,LABEL); if c = 'X' then -- button can be X or * c := '*'; elsif c in ('ABS','POWER','COS','SIN','LN','LOG','TAN','ROUND','MOD') then c := c ||'('; end if; if length(:b_calculator.inputarea)+length(c)>=100 then :b_calculator.inputarea := 'ERROR: Input too long!'; raise form_trigger_failure; end if; if c = 'C' then -- clear :b_calculator.inputarea := ''; elsif c = '=' then go_item('b_calculator.inputarea'); do_key('next_item'); else :b_calculator.inputarea := :b_calculator.inputarea || c; --go_item('b_calculator.inputarea'); end if; end; END;&WHEN-BUTTON-PRESSED (B_CALCULATOR.PB3)ͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 FORMS4C SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08 $"PKG INIT""C"" " 8Jͫͫͫͫͫͫͫ0D KK 8&'LL$,&'L` $=` h$&'&'$G I|| $8|88 088H 8` w8x g8 W8 G8 78 '8 8 :8 8&'$).&'8$).A.8" @h8X$ p\8; 0&'$F&'$ !;8!,ERROR%X*ABSPOWERCOSSINLNLOGTANROUNDMOD(dERROR: Input too long!C=b_calculator.inputarea next_item (8H`Ldh(`lp(ht|(((((( 8($<D_k    U cd/JJ(40<HD`LxX`hpx 8@Xp ik:</ZPBADDPBADDZ<] >>!>tueiyl>?g? h jik|?|?4:?P-,/Z~PB_CLOSE_CALCULATORPB_CLOSE_CALCULATOROffC_CALCULATORblackwhiteArialTurn off CalculatorTurn off CalculatorE8?p?D=?/:WHEN-BUTTON-PRESSEDlBD1 $" P18_23_JUL_200214_40_18BEGIN declare c varchar2(15); begin if upper(:b_calculator.inputarea) like 'ERROR%' then :b_calculator.inputarea := NULL; -- clear out error message end if; c := get_item_property(:system.trigger_item,LABEL); if c = 'X' then -- button can be X or * c := '*'; elsif c in ('ABS','POWER','COS','SIN','LN','LOG','TAN','ROUND','MOD') then c := c ||'('; end if; if length(:b_calculator.inputarea)+length(c)>=100 then :b_calculator.inputarea := 'ERROR: Input too long!'; raise form_trigger_failure; end if; if c = 'C' then -- clear :b_calculator.inputarea := ''; elsif c = '=' then go_item('b_calculator.inputarea'); do_key('next_item'); else :b_calculator.inputarea := :b_calculator.inputarea || c; --go_item('b_calculator.inputarea'); end if; end; END;&WHEN-BUTTON-PRESSED (B_CALCULATOR.PB0)ͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 FORMS4C SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08 $"PKG INIT""C"" " 8Jͫͫͫͫͫͫͫ0D KK 8&'LL$,&'L` $=` h$&'&'$G I|| $8|88 088H 8` w8x g8 W8 G8 78 '8 8 :8 8&'$).&'8$).A.8" @h8X$ p\8; 0&'$F&'$ !;8!,ERROR%X*ABSPOWERCOSSINLNLOGTANROUNDMOD(dERROR: Input too long!C=b_calculator.inputarea next_item (8H`Ldh(`lp(ht|(((((( 8($<D_k    U cd/JJ(40<HD`LxX`hpx 8@Xp ]KK^KhKCALCULATOR^KhL<PC_CALCULATOR_BUTTONLNC_CALCULATORBlackGrayLN(x)LN(x)E8LLDJLM/ u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDZUN NN N!Ntui!lOOjik|OO,:O<453/ZPBPOWERPBPOWERZN@]NhN^N NCALCULATOR^N N<PC_CALCULATOR_BUTTONPOWERC_CALCULATORBlackGrayPOWER(x,y)POWER(x,y)E8O\ODM8OO/ u:WHEN-BUTTON- lBD1 $" P1_24_JUL_200217_55_33BEGIN declare c varchar2(15); begin if upper(:b_calculator.inputarea) like 'ERROR%' then :b_calculator.inputarea := NULL; -- clear out error message end if; c := get_item_property(:system.trigger_item,LABEL); if c = 'X' then -- button can be X or * c := '*'; elsif c in ('ABS','POWER','COS','SIN','LN','LOG','TAN','ROUND','MOD') then c := c ||'('; end if; if length(:b_calculator.inputarea)+length(c)>=100 then :b_calculator.inputarea := 'ERROR: Input too long!'; raise form_trigger_failure; end if; if c = 'C' then -- clear :b_calculator.inputarea := ''; elsif c = '=' then go_item('b_calculator.inputarea'); do_key('next_item'); else :b_calculator.inputarea := :b_calculator.inputarea || c; --go_item('b_calculator.inputarea'); end if; end; END;(WHEN-BUTTON-PRESSED (B_CALCULATOR.PBDOT)ͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 FORMS4C SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08 $"PKG INIT""C"" " 8Jͫͫͫͫͫͫͫ0D KK 8&'LL$,&'L` $=` h$&'&'$G I|| $8|88 088H 8` w8x g8 W8 G8 78 '8 8 :8 8&'$).&'8$).A.8" @h8X$ p\8; 0&'$F&'$ !;8!,ERROR%X*ABSPOWERCOSSINLNLOGTANROUNDMOD(dERROR: Input too long!C=b_calculator.inputarea next_item (8H`Ldh(`lp(ht|(((((( 8($<D_k    U cd/JJ(40<HD`LxX`hpx 8@Xp  [\]x^X_8`\` Z\p % tu iyq\\/LINE328LINE328Graysolid]@ Z]P % tu iyq]`]l/LINE329LINE329Graysolid^ Z^0 % tu iyq^@^L/LINE330LINE330Graysolid_ Z_ % tuYiyq_ _,/LINE332LINE332Graysolid_ Z_ % tuiyq`0 lBD1 $" P2_24_JUL_200217_55_33BEGIN declare c varchar2(15); begin if upper(:b_calculator.inputarea) like 'ERROR%' then :b_calculator.inputarea := NULL; -- clear out error message end if; c := get_item_property(:system.trigger_item,LABEL); if c = 'X' then -- button can be X or * c := '*'; elsif c in ('ABS','POWER','COS','SIN','LN','LOG','TAN','ROUND','MOD') then c := c ||'('; end if; if length(:b_calculator.inputarea)+length(c)>=100 then :b_calculator.inputarea := 'ERROR: Input too long!'; raise form_trigger_failure; end if; if c = 'C' then -- clear :b_calculator.inputarea := ''; elsif c = '=' then go_item('b_calculator.inputarea'); do_key('next_item'); else :b_calculator.inputarea := :b_calculator.inputarea || c; --go_item('b_calculator.inputarea'); end if; end; END;(WHEN-BUTTON-PRESSED (B_CALCULATOR.PBADD)ͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 FORMS4C SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08 $"PKG INIT""C"" " 8Jͫͫͫͫͫͫͫ0D KK 8&'LL$,&'L` $=` h$&'&'$G I|| $8|88 088H 8` w8x g8 W8 G8 78 '8 8 :8 8&'$).&'8$).A.8" @h8X$ p\8; 0&'$F&'$ !;8!,ERROR%X*ABSPOWERCOSSINLNLOGTANROUNDMOD(dERROR: Input too long!C=b_calculator.inputarea next_item (8H`Ldh(`lp(ht|(((((( 8($<D_k    U cd/JJ(40<HD`LxX`hpx 8@Xp P12_23_JUL_200214_40_18P13_23_JUL_200214_40_18P14_23_JUL_200214_40_18P15_23_JUL_200214_40_18P16_23_JUL_200214_40_18P17_23_JUL_200214_40_18P9_23_JUL_200214_40_18P5_24_JUL_200217_55_33P1_24_JUL_200217_55_33P7_24_JUL_200217_55_33P6_24_JUL_200217_55_33P2_24_JUL_200217_55_33P4_24_JUL_200217_55_33P3_24_JUL_200217_55_33P7_24_JUL_200219_29_43P1_24_JUL_200219_29_43P2_24_JUL_200219_29_43P3_24_JUL_200219_29_43P4_24_JUL_200219_29_43P5_24_JUL_200219_29_43P6_24_JUL_200219_29_43P8_24_JUL_200219_29_43P0_23_JUL_200214_40_18nPdnlCDEFGHnASYSTEM.TRIGGER_ITEMSYSTEM.TRIGGER_ITEMopoooopp p@p`pppppqq0qLqhqqqqqrr,rHP0_24_JUL_200217_55_33P18_@ lBD1 $" P1_24_JUL_200219_29_43BEGIN declare c varchar2(15); begin if upper(:b_calculator.inputarea) like 'ERROR%' then :b_calculator.inputarea := NULL; -- clear out error message end if; c := get_item_property(:system.trigger_item,LABEL); if c = 'X' then -- button can be X or * c := '*'; elsif c in ('ABS','POWER','COS','SIN','LN','LOG','TAN','ROUND','MOD') then c := c ||'('; end if; if length(:b_calculator.inputarea)+length(c)>=100 then :b_calculator.inputarea := 'ERROR: Input too long!'; raise form_trigger_failure; end if; if c = 'C' then -- clear :b_calculator.inputarea := ''; elsif c = '=' then go_item('b_calculator.inputarea'); do_key('next_item'); else :b_calculator.inputarea := :b_calculator.inputarea || c; --go_item('b_calculator.inputarea'); end if; end; END;(WHEN-BUTTON-PRESSED (B_CALCULATOR.PBSIN)ͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 FORMS4C SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08 $"PKG INIT""C"" " 8Jͫͫͫͫͫͫͫ0D KK 8&'LL$,&'L` $=` h$&'&'$G I|| $8|88 088H 8` w8x g8 W8 G8 78 '8 8 :8 8&'$).&'8$).A.8" @h8X$ p\8; 0&'$F&'$ !;8!,ERROR%X*ABSPOWERCOSSINLNLOGTANROUNDMOD(dERROR: Input too long!C=b_calculator.inputarea next_item (8H`Ldh(`lp(ht|(((((( 8($<D_k    U cd/JJ(40<HD`LxX`hpx 8@Xp ( * , . 00r25g100b50@008x( * , . 00r50g100b50008x( * , . 00r75g100b50008x( * , . 00r88g100b50208x* , . 0 00r100g100b50.08x'( * , 00r0g100b75008x( * , . 00r25g100b75@008x( * , . 00r50g100b75008x( * , . 00r75g100b75008x( * , . 00r88g100b75208x* , . 0 00r100g100b75.08x'( * , 00r0g100b88008x( * , . 00r25g100b88@008x( * , . 00r50g100b88008x( * , . 00r75g100b88008x( * , . 00r88g100b88208x* , . 0 00r100g100b88008x(* , . 00r0g100b100208x* , . 0 00r25g100b100@208x* , . 0 00r50g100b100 dd radioPlBD1 $" P2_24_JUL_200219_29_43BEGIN declare c varchar2(15); begin if upper(:b_calculator.inputarea) like 'ERROR%' then :b_calculator.inputarea := NULL; -- clear out error message end if; c := get_item_property(:system.trigger_item,LABEL); if c = 'X' then -- button can be X or * c := '*'; elsif c in ('ABS','POWER','COS','SIN','LN','LOG','TAN','ROUND','MOD') then c := c ||'('; end if; if length(:b_calculator.inputarea)+length(c)>=100 then :b_calculator.inputarea := 'ERROR: Input too long!'; raise form_trigger_failure; end if; if c = 'C' then -- clear :b_calculator.inputarea := ''; elsif c = '=' then go_item('b_calculator.inputarea'); do_key('next_item'); else :b_calculator.inputarea := :b_calculator.inputarea || c; --go_item('b_calculator.inputarea'); end if; end; END;(WHEN-BUTTON-PRESSED (B_CALCULATOR.PBCOS)ͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 FORMS4C SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08 $"PKG INIT""C"" " 8Jͫͫͫͫͫͫͫ0D KK 8&'LL$,&'L` $=` h$&'&'$G I|| $8|88 088H 8` w8x g8 W8 G8 78 '8 8 :8 8&'$).&'8$).A.8" @h8X$ p\8; 0&'$F&'$ !;8!,ERROR%X*ABSPOWERCOSSINLNLOGTANROUNDMOD(dERROR: Input too long!C=b_calculator.inputarea next_item (8H`Ldh(`lp(ht|(((((( 8($<D_k    U cd/JJ(40<HD`LxX`hpx 8@Xp ( * , . 00r25g100b50@008x( * , . 00r50g100b50008x( * , . 00r75g100b50008x( * , . 00r88g100b50208x* , . 0 00r100g100b50.08x'( * , 00r0g100b75008x( * , . 00r25g100b75@008x( * , . 00r50g100b75008x( * , . 00r75g100b75008x( * , . 00r88g100b75208x* , . 0 00r100g100b75.08x'( * , 00r0g100b88008x( * , . 00r25g100b88@008x( * , . 00r50g100b88008x( * , . 00r75g100b88008x( * , . 00r88g100b88208x* , . 0 00r100g100b88008x(* , . 00r0g100b100208x* , . 0 00r25g100b100@208x* , . 0 00r50g100b100r25g25b88@@yl`lBD1 $" P3_24_JUL_200219_29_43BEGIN declare c varchar2(15); begin if upper(:b_calculator.inputarea) like 'ERROR%' then :b_calculator.inputarea := NULL; -- clear out error message end if; c := get_item_property(:system.trigger_item,LABEL); if c = 'X' then -- button can be X or * c := '*'; elsif c in ('ABS','POWER','COS','SIN','LN','LOG','TAN','ROUND','MOD') then c := c ||'('; end if; if length(:b_calculator.inputarea)+length(c)>=100 then :b_calculator.inputarea := 'ERROR: Input too long!'; raise form_trigger_failure; end if; if c = 'C' then -- clear :b_calculator.inputarea := ''; elsif c = '=' then go_item('b_calculator.inputarea'); do_key('next_item'); else :b_calculator.inputarea := :b_calculator.inputarea || c; --go_item('b_calculator.inputarea'); end if; end; END;(WHEN-BUTTON-PRESSED (B_CALCULATOR.PBTAN)ͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 FORMS4C SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08 $"PKG INIT""C"" " 8Jͫͫͫͫͫͫͫ0D KK 8&'LL$,&'L` $=` h$&'&'$G I|| $8|88 088H 8` w8x g8 W8 G8 78 '8 8 :8 8&'$).&'8$).A.8" @h8X$ p\8; 0&'$F&'$ !;8!,ERROR%X*ABSPOWERCOSSINLNLOGTANROUNDMOD(dERROR: Input too long!C=b_calculator.inputarea next_item (8H`Ldh(`lp(ht|(((((( 8($<D_k    U cd/JJ(40<HD`LxX`hpx 8@Xp ͫͫͫͫͫͫw SYSSTANDARD SQLFORMS FORMS4C $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""TYͫͫͫͫͫͫͫ0D ZZ ,4&'$[   8 .&'&'&'G E(GE $4!l$lL B_CALCULATOR (1Y  0800 @0800 P0800 `0800 p0800 0800 0800 0800 yq`plBD1 $" P4_24_JUL_200219_29_43BEGIN declare c varchar2(15); begin if upper(:b_calculator.inputarea) like 'ERROR%' then :b_calculator.inputarea := NULL; -- clear out error message end if; c := get_item_property(:system.trigger_item,LABEL); if c = 'X' then -- button can be X or * c := '*'; elsif c in ('ABS','POWER','COS','SIN','LN','LOG','TAN','ROUND','MOD') then c := c ||'('; end if; if length(:b_calculator.inputarea)+length(c)>=100 then :b_calculator.inputarea := 'ERROR: Input too long!'; raise form_trigger_failure; end if; if c = 'C' then -- clear :b_calculator.inputarea := ''; elsif c = '=' then go_item('b_calculator.inputarea'); do_key('next_item'); else :b_calculator.inputarea := :b_calculator.inputarea || c; --go_item('b_calculator.inputarea'); end if; end; END;(WHEN-BUTTON-PRESSED (B_CALCULATOR.PBLOG)ͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 FORMS4C SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08 $"PKG INIT""C"" " 8Jͫͫͫͫͫͫͫ0D KK 8&'LL$,&'L` $=` h$&'&'$G I|| $8|88 088H 8` w8x g8 W8 G8 78 '8 8 :8 8&'$).&'8$).A.8" @h8X$ p\8; 0&'$F&'$ !;8!,ERROR%X*ABSPOWERCOSSINLNLOGTANROUNDMOD(dERROR: Input too long!C=b_calculator.inputarea next_item (8H`Ldh(`lp(ht|(((((( 8($<D_k    U cd/JJ(40<HD`LxX`hpx 8@Xp 1 <\h,!4t$u~lHTjik:`/ZPB4PB42Z3]4^hCALCULATOR5^h<PC_CALCULATOR_BUTTON4C_CALCULATORBlackGray6E87D/ u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED8ZU9 <!tDu~ljik: /ZPB5PB5:Z;] X<^HCALCULATOR=^<PC_CALCULATOR_BUTTON5C_CALCULATORBlackGray>ElBD1 $" P5_24_JUL_200219_29_43BEGIN declare c varchar2(15); begin if upper(:b_calculator.inputarea) like 'ERROR%' then :b_calculator.inputarea := NULL; -- clear out error message end if; c := get_item_property(:system.trigger_item,LABEL); if c = 'X' then -- button can be X or * c := '*'; elsif c in ('ABS','POWER','COS','SIN','LN','LOG','TAN','ROUND','MOD') then c := c ||'('; end if; if length(:b_calculator.inputarea)+length(c)>=100 then :b_calculator.inputarea := 'ERROR: Input too long!'; raise form_trigger_failure; end if; if c = 'C' then -- clear :b_calculator.inputarea := ''; elsif c = '=' then go_item('b_calculator.inputarea'); do_key('next_item'); else :b_calculator.inputarea := :b_calculator.inputarea || c; --go_item('b_calculator.inputarea'); end if; end; END;'WHEN-BUTTON-PRESSED (B_CALCULATOR.PBLN)ͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 FORMS4C SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08 $"PKG INIT""C"" " 8Jͫͫͫͫͫͫͫ0D KK 8&'LL$,&'L` $=` h$&'&'$G I|| $8|88 088H 8` w8x g8 W8 G8 78 '8 8 :8 8&'$).&'8$).A.8" @h8X$ p\8; 0&'$F&'$ !;8!,ERROR%X*ABSPOWERCOSSINLNLOGTANROUNDMOD(dERROR: Input too long!C=b_calculator.inputarea next_item (8H`Ldh(`lp(ht|(((((( 8($<D_k    U cd/JJ(40<HD`LxX`hpx 8@Xp e^+(+<PC_CALCULATOR_BUTTON1C_CALCULATORBlackGrayfE8,@,gD*p,,/  u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDhZU-i <--.\!.dtDul.x.jik:. /ZPB2PB2jZ-k]-.l^-.CALCULATORm^-.@<PC_CALCULATOR_BUTTON2C_CALCULATORBlackGraynE8..oD,//0/  u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDpZU/q </00!0tcul00jik:1/ZlBD1 $" P6_24_JUL_200219_29_43BEGIN declare c varchar2(15); begin if upper(:b_calculator.inputarea) like 'ERROR%' then :b_calculator.inputarea := NULL; -- clear out error message end if; c := get_item_property(:system.trigger_item,LABEL); if c = 'X' then -- button can be X or * c := '*'; elsif c in ('ABS','POWER','COS','SIN','LN','LOG','TAN','ROUND','MOD') then c := c ||'('; end if; if length(:b_calculator.inputarea)+length(c)>=100 then :b_calculator.inputarea := 'ERROR: Input too long!'; raise form_trigger_failure; end if; if c = 'C' then -- clear :b_calculator.inputarea := ''; elsif c = '=' then go_item('b_calculator.inputarea'); do_key('next_item'); else :b_calculator.inputarea := :b_calculator.inputarea || c; --go_item('b_calculator.inputarea'); end if; end; END;*WHEN-BUTTON-PRESSED (B_CALCULATOR.PBPOWER)ͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 FORMS4C SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08 $"PKG INIT""C"" " 8Jͫͫͫͫͫͫͫ0D KK 8&'LL$,&'L` $=` h$&'&'$G I|| $8|88 088H 8` w8x g8 W8 G8 78 '8 8 :8 8&'$).&'8$).A.8" @h8X$ p\8; 0&'$F&'$ !;8!,ERROR%X*ABSPOWERCOSSINLNLOGTANROUNDMOD(dERROR: Input too long!C=b_calculator.inputarea next_item (8H`Ldh(`lp(ht|(((((( 8($<D_k    U cd/JJ(40<HD`LxX`hpx 8@Xp stringdeumgs3stringdeumgs1stringdeuics4stringdeuics2stringdeugsc2stringdeugss4stringdeugss2stringdeubps3stringdeubke3stringdeuabs5stringdepsxe33stringdepsds3stringdepsds1stringdeppus23stringdeppus9stringzxdeppus1stringrpdeppuc2stringljdepole7stringYWdepole5stringWUdepoce8stringRPdeplvs12string@>deplvs5string97deplie31string%#deplie7stringdeplic2stringdepepe11string  depepe5string depdrs6stringdepcxe2stringlBD1 $" P7_24_JUL_200219_29_43BEGIN declare c varchar2(15); begin if upper(:b_calculator.inputarea) like 'ERROR%' then :b_calculator.inputarea := NULL; -- clear out error message end if; c := get_item_property(:system.trigger_item,LABEL); if c = 'X' then -- button can be X or * c := '*'; elsif c in ('ABS','POWER','COS','SIN','LN','LOG','TAN','ROUND','MOD') then c := c ||'('; end if; if length(:b_calculator.inputarea)+length(c)>=100 then :b_calculator.inputarea := 'ERROR: Input too long!'; raise form_trigger_failure; end if; if c = 'C' then -- clear :b_calculator.inputarea := ''; elsif c = '=' then go_item('b_calculator.inputarea'); do_key('next_item'); else :b_calculator.inputarea := :b_calculator.inputarea || c; --go_item('b_calculator.inputarea'); end if; end; END;*WHEN-BUTTON-PRESSED (B_CALCULATOR.PBROUND)ͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 FORMS4C SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08 $"PKG INIT""C"" " 8Jͫͫͫͫͫͫͫ0D KK 8&'LL$,&'L` $=` h$&'&'$G I|| $8|88 088H 8` w8x g8 W8 G8 78 '8 8 :8 8&'$).&'8$).A.8" @h8X$ p\8; 0&'$F&'$ !;8!,ERROR%X*ABSPOWERCOSSINLNLOGTANROUNDMOD(dERROR: Input too long!C=b_calculator.inputarea next_item (8H`Ldh(`lp(ht|(((((( 8($<D_k    U cd/JJ(40<HD`LxX`hpx 8@Xp  pushb*+,P-34 MS Sans Serif 1:;< box 0800X p0800Yw 0800Z 0800[ N0808L\66RESFILEUS p0LAheaderfield\B_CLOSE_CALCULATOROffC_CALCULATORblackwhiteArialTurn off CalculatorTurn off CalculatorE8>?D=$?4/:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED@ <@@(@!@t$ulA Ajik|A$A0:A<#lBD1 $" P8_24_JUL_200219_29_43BEGIN declare c varchar2(15); begin if upper(:b_calculator.inputarea) like 'ERROR%' then :b_calculator.inputarea := NULL; -- clear out error message end if; c := get_item_property(:system.trigger_item,LABEL); if c = 'X' then -- button can be X or * c := '*'; elsif c in ('ABS','POWER','COS','SIN','LN','LOG','TAN','ROUND','MOD') then c := c ||'('; end if; if length(:b_calculator.inputarea)+length(c)>=100 then :b_calculator.inputarea := 'ERROR: Input too long!'; raise form_trigger_failure; end if; if c = 'C' then -- clear :b_calculator.inputarea := ''; elsif c = '=' then go_item('b_calculator.inputarea'); do_key('next_item'); else :b_calculator.inputarea := :b_calculator.inputarea || c; --go_item('b_calculator.inputarea'); end if; end; END;(WHEN-BUTTON-PRESSED (B_CALCULATOR.PBMOD)ͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 FORMS4C SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08 $"PKG INIT""C"" " 8Jͫͫͫͫͫͫͫ0D KK 8&'LL$,&'L` $=` h$&'&'$G I|| $8|88 088H 8` w8x g8 W8 G8 78 '8 8 :8 8&'$).&'8$).A.8" @h8X$ p\8; 0&'$F&'$ !;8!,ERROR%X*ABSPOWERCOSSINLNLOGTANROUNDMOD(dERROR: Input too long!C=b_calculator.inputarea next_item (8H`Ldh(`lp(ht|(((((( 8($<D_k    U cd/JJ(40<HD`LxX`hpx 8@Xp 8004`pLNC_CALCULATORBlackGrayLN(x)LN(x)E8LLPDJLlL/ u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDZUMp <MMNT!N`tui!lNtNjik|NN:N453/ZPBPOWERPBPOWERZM]MN^MNCALCULATOR^MN8<PC_CALCULATOR_BUTTONPOWERC_CALCULATORBlackGrayPOWER(x,y)POWER(x,y)E8NODLO0OL/ u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDZUP4 <PDPTQ!Q$tui llBD1 $" P3_24_JUL_200217_55_33BEGIN declare c varchar2(15); begin if upper(:b_calculator.inputarea) like 'ERROR%' then :b_calculator.inputarea := NULL; -- clear out error message end if; c := get_item_property(:system.trigger_item,LABEL); if c = 'X' then -- button can be X or * c := '*'; elsif c in ('ABS','POWER','COS','SIN','LN','LOG','TAN','ROUND','MOD') then c := c ||'('; end if; if length(:b_calculator.inputarea)+length(c)>=100 then :b_calculator.inputarea := 'ERROR: Input too long!'; raise form_trigger_failure; end if; if c = 'C' then -- clear :b_calculator.inputarea := ''; elsif c = '=' then go_item('b_calculator.inputarea'); do_key('next_item'); else :b_calculator.inputarea := :b_calculator.inputarea || c; --go_item('b_calculator.inputarea'); end if; end; END;-WHEN-BUTTON-PRESSED (B_CALCULATOR.PBCLEARALL)ͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 FORMS4C SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08 $"PKG INIT""C"" " 8Jͫͫͫͫͫͫͫ0D KK 8&'LL$,&'L` $=` h$&'&'$G I|| $8|88 088H 8` w8x g8 W8 G8 78 '8 8 :8 8&'$).&'8$).A.8" @h8X$ p\8; 0&'$F&'$ !;8!,ERROR%X*ABSPOWERCOSSINLNLOGTANROUNDMOD(dERROR: Input too long!C=b_calculator.inputarea next_item (8H`Ldh(`lp(ht|(((((( 8($<D_k    U cd/JJ(40<HD`LxX`hpx 8@Xp !deumn_filtermenu'%deucx_errorboxalert  deumn_disablemenu%#deucx_3confirmboxalert  deuismenudeupw_unsavedalert42deutw_p4boxTR deumn_edittypemenu(&deupw_modifiedstring/-deulw_enablestring! checkbox*8+8.34 MS Sans Serif 1I%&' ("$%&'#$%&'#$%&'#$%&'#( ! deupwv12! deupwv13"#$%&'#$%&' () deupwv0 pushb*+,P-34 MS Sans Serif r0808BD1 $ P0_24_JUL_200223_19_46BEGIN 7go_item('b_calculator.inputarea'); do_key('next_item'); END;*WHEN-BUTTON-PRESSED (B_CALCULATOR.PBEQUAL)lͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""T+ͫͫͫͫͫͫͫ0D ,,!0 &'$F&'$ !d$dLb_calculator.inputarea next_item + < 0800 0 00r25g100b50@008x ( * ,. 00r50g100b50008x ( * ,. 00r75g100b50008x ( * ,. 00r88g100b50208x * , .0 00r100g100b50.08x' ( *,00 00r0g100b75008x ( * ,.00 00r25g100b75@008x ( * ,.00 00r50g100b75008x ( * ,.00 00r75g100b75008x ( * ,.00 00r88g100b75208x * , .000 00r100g100b758.08x' ( *,00 00r0g100b888008x ( * ,.g8 00r25g100b88@008x ( * ,.5g 00r50g100b88008x ( * ,.0g 00r75g100b88008x ( * ,.5g 00r88g100b88208x * , .08g 00r100g100b88008x( * ,.8b 00r0g100b100208x * , .010 00r25g100b100@ (208x * , .0@ 00r50g100b100 208x * , .0 00r75g100b1008208x * , .0 00r88g100b100P208x * , .0 00r100g100b100 *:BFm(n rvx(((( SQL*FormsLFORM50%C:\DDG\DST\Development\CALCULATOR.fmbxf% xf% ;Copyright (c) Oracle Corporation 1990. All Rights Reserved.r (002 3BEGIN ;go_item('b_calculator.inputarea'); select_all; copy_region; END;.WHEN-BUTTON-PRESSED (B_CALCULATOR.PB_CALCCOPY)lͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""T2ͫͫͫͫͫͫͫ0D 33 &'$F&'$&'$!\$\<b_calculator.inputarea &2 *0800 +8000,8000-8000.8000/800008000180002800038000480005800068000780008800098000:8000;8000<8000=8000>r<hh:FRM50_BUFFER table contains user's buffer.hh,L_ROSATTRIBSclass attributeste+hh)puROSLFDESCros lf descrip))hh'-BROSOBJMAPros name->idOR.+hh)ROSSTRINGStk2 uiStrings*hh(ROSSTRUCTSstruct types*hh(ROSTK2RESVtk2 reservedPhhNTOOL_MODULEtable contains information about different module$pp"VG_COLORVG_COLOR+pp $&'()VG_COLORITEMID@T+pp $&'()VG_COLORCELLID@-pp &()*+VG_COLORNAME_SET@ /pp (*+,-VG_COLORNAME_LENGTH D/pp (*+,-VG_COLORCOLOR_NAMEx'pp "#$%VG_COLORRED )pp "$%&'VG_COLORGREEN )pp "$%&'VG_COLORBLUE a080000800 @0800 P0800 `0800 p0800 0800 0800 0800 0800 0800 0800 0800 0800 0808nnBD1 $"VP9_23_JUL_200214_40_18BEGIN ::b_calculator.inputarea := :b_calculator.inputarea || '-'; END;(WHEN-BUTTON-PRESSED (B_CALCULATOR.PBSUB)Aͫͫͫͫͫͫͫw SYSSTANDARD $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""T)ͫͫͫͫͫͫͫ0D ** (;!PP@-) v0800 0800  \Development\CALCULATOR.fmbxf% xf% ;Copyright (c) Oracle Corporation 1990. All Rights Reserved.r (002 3BEGIN ;go_item('b_calculator.inputarea'); select_all; copy_region; END;.WHEN-BUTTON-PRESSED (B_CALCULATOR.PB_CALCCOPY)lͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""T2ͫͫͫͫͫͫͫ0D 33 &'$F&'$&'$!\$\<b_calculator.inputarea &2 *0800 +8000,8000-8000.8000/800008000180002800038000480005800068000780008800098000:8000;8000<8000=8000>#lBD1 $" P0_24_JUL_200217_55_33BEGIN declare c varchar2(15); begin if upper(:b_calculator.inputarea) like 'ERROR%' then :b_calculator.inputarea := NULL; -- clear out error message end if; c := get_item_property(:system.trigger_item,LABEL); if c = 'X' then -- button can be X or * c := '*'; elsif c in ('ABS','POWER','COS','SIN','LN','LOG','TAN','ROUND','MOD') then c := c ||'('; end if; if length(:b_calculator.inputarea)+length(c)>=100 then :b_calculator.inputarea := 'ERROR: Input too long!'; raise form_trigger_failure; end if; if c = 'C' then -- clear :b_calculator.inputarea := ''; elsif c = '=' then go_item('b_calculator.inputarea'); do_key('next_item'); else :b_calculator.inputarea := :b_calculator.inputarea || c; --go_item('b_calculator.inputarea'); end if; end; END;*WHEN-BUTTON-PRESSED (PC_CALCULATOR_BUTTON)ͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 FORMS4C SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08 $"PKG INIT""C"" " 8Jͫͫͫͫͫͫͫ0D KK 8&'LL$,&'L` $=` h$&'&'$G I|| $8|88 088H 8` w8x g8 W8 G8 78 '8 8 :8 8&'$).&'8$).A.8" @h8X$ p\8; 0&'$F&'$ !;8!,ERROR%X*ABSPOWERCOSSINLNLOGTANROUNDMOD(dERROR: Input too long!C=b_calculator.inputarea next_item (8H`Ldh(`lp(ht|(((((( 8($<D_k    U cd/JJ(40<HD`LxX`hpx 8@Xp ];;^;l;CALCULATOR^;l<<PC_CALCULATOR_BUTTON+C_CALCULATORBlackGrayE8<<D:<=/ u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDZU>  <>(>D!>Ptueiyl>d>pg>|h jik|>|>:>-,/Z~PB_CLOSE_CALCULATORPB_CLOSE_CALCULATOROffC_CALCULATORblackwhiteArialTurn off CalculatorTurn off CalculatorE8>?D=$?4/:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED@ <@@(@!@t$ulA Ajik|A$A0:A<#Xr10808/BD 1 $"P1_23_JUL_200214_40_18BEGIN _previous_block; if :system.current_block='B_CALCULATOR' then exit_form(NO_VALIDATE); end if; END;6WHEN-BUTTON-PRESSED (B_CALCULATOR.PB_CLOSE_CALCULATOR)lͫͫͫͫͫͫͫw SYSSTANDARD SQLFORMS FORMS4C $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""TYͫͫͫͫͫͫͫ0D ZZ ,4&'$[   8 .&'&'&'G E(GE $4!l$lL B_CALCULATOR (1Y  0800 @0800 P0800 `0800 p0800 0800 0800 0800 0800 -PRESSED (B_CALCULATOR.PBSUB)Aͫͫͫͫͫͫͫw SYSSTANDARD $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""T)ͫͫͫͫͫͫͫ0D ** (;!PP@-) 0800 0800  P0800 `0800 p0800 0800 0800 0800 0800 0808BD1 $ P0_24_JUL_200219_29_43BEGIN ;go_item('b_calculator.inputarea'); select_all; copy_region; END;.WHEN-BUTTON-PRESSED (B_CALCULATOR.PB_CALCCOPY)lͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""T2ͫͫͫͫͫͫͫ0D 33 &'$F&'$&'$!\$\<b_calculator.inputarea &2 *0800 +8000,8000-8000.8000/800008000180002800038000480005800068000780008800098000:8000;8000<8000=8000>r0808BD1 $ P0_24_JUL_200219_29_43BEGIN ;go_item('b_calculator.inputarea'); select_all; copy_region; END;.WHEN-BUTTON-PRESSED (B_CALCULATOR.PB_CALCCOPY)lͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""T2ͫͫͫͫͫͫͫ0D 33 &'$F&'$&'$!\$\<b_calculator.inputarea &2 R0800  0800 up$00x !"black(00x " $&white%00x "#Pgreen0)00x# $&'8 darkgreenp(00x " $&gray96 = = =(00x " $&gray92zzz(00x " $&gray88(00x " $&gray84(((%00x !"#ͫr0g0b0(00x "$%& r25g0b0@(00x "$%&ͫ r50g0b0(00x "$%& r75g0b0(00x "$%& r88g0b0(00x "$%& r100g0b0(00x!" $&r0g0b50*00x "$ &(r25g0b50@*00x "$ &(r50g0b50ͫ*00x "$ &(r75g0b50*00x "$ &(r88g0b50,00x $& (* r100g0b50(00x!" $&Pr0g0b75*00x "$ &(r25g0b75@ 0800 0800  P0800 `0800 p0800 0800 0800 0800 0800 0808BD1 $ P0_24_JUL_200219_29_43BEGIN ;go_item('b_calculator.inputarea'); select_all; copy_region; END;.WHEN-BUTTON-PRESSED (B_CALCULATOR.PB_CALCCOPY)lͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""T2ͫͫͫͫͫͫͫ0D 33 &'$F&'$&'$!\$\<b_calculator.inputarea &2 *0800 +8000,8000-8000.8000/800008000180002800038000480005800068000780008800098000:8000;8000<8000=8000> r*00x "$ &(r50g0b751*00x "$ &(P0r75g0b7543*00x "$ &(alr88g0b75);,00x $& (* r100g0b75(00x!" $&_Cr0g0b88*00x "$ &(r25g0b88@ *00x "$ &(r50g0b88*00x "$ &(r75g0b88*00x "$ &(r88g0b88,00x $& (* r100g0b88(00x"# $& r0g0b100,00x $& (*! r25g0b100@,00x $& (*" r50g0b100,00x $& (*# r75g0b100,00x $& (*$ r88g0b100,00x $& (*% r100g0b100&00x  "$&gray*00x " $ &($'darkgray&00x "$pu(cyanr*00x" $ &()darkcyan(00x " $&*gray80333333(00x " $&+gray76=p=p=p(00x " $&,gray72GGG(00x " $&-gray68QQQ'00x! "$%.r0g25b0@)00x " $&' /r25g25b0@@)00x " $&'0r50g25b0@()00x " $&'ay1r75g25b0@0)00x " $&'2r88g25b0@+00x $ &()(3 r100g25b0@ *00x" $ &(4r0g25b50@%,00x $ & (*5 r25g25b50@@,00x $ & (*06 r50g25b50@,00x $ & (*7 r75g25b50@,00x $ & (* "8 r88g25b50@,00x $ & (* $9 r100g25b50@*00x" $ &(:r0g25b750@,00x $ & (*; r25g25b75@@,00x $ & (*< r50g25b75@,00x $ & (*= r75g25b75@,00x $ & (*> r88g25b75@,00x $ & (*P? r100g25b75@*00x "$ &(r25g0b75@ 0800 0800  P0800 `0800 p0800 0800 0800 0800 0800 0808BD1 $ P0_24_JUL_200219_29_43BEGIN ;go_item('b_calculator.inputarea'); select_all; copy_region; END;.WHEN-BUTTON-PRESSED (B_CALCULATOR.PB_CALCCOPY)lͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""T2ͫͫͫͫͫͫͫ0D 33 &'$F&'$&'$!\$\<b_calculator.inputarea &2 *0800 +8000,8000-8000.8000/800008000180002800038000480005800068000780008800098000:8000;8000<8000=8000>0r*00x" $ &(@r0g25b885@1,00x $ & (*P0A r25g25b88@@,00x $ & (*alB r50g25b88@,00x $ & (*C r75g25b88@,00x $ & (*_CD r88g25b88@,00x $ & (*E r100g25b88@*00x# $ &(F r0g25b100@,00x $ & (*G r25g25b100@@,00x $ & (*H r50g25b100@,00x $ & (* I r75g25b100@,00x $ & (*J r88g25b100@.00x & ( *,5gK r100g25b100@0$00x  !"10Lred(00x "$%& Mdarkred$00x "Nblue(00x"# $& $Odarkblue(00x " $&Pgray64\(\(\((00x " $&Qgray60ffffff(00x " $&0Rgray56ppp(00x " $&0Sgray52zzz'00x! "$%Tr0g50b0$)00x " $&'Ur25g50b0@&)00x " $&'0Vr50g50b0,)00x " $&'Wr75g50b0ray)00x " $&'!Xr88g50b0b0+00x $ &()&Y r100g50b0*00x" $ &(&Zr0g50b50@,00x $ & (*&[ r25g50b50@,00x $ & (*&\ r50g50b50,00x $ & (*(] r75g50b50,00x $ & (* &^ r88g50b50,00x $ & (* (_ r100g50b50*00x" $ &( (`r0g50b750,00x $ & (* (a r25g50b75@,00x $ & (* (b r50g50b75,00x $ & (* (c r75g50b75,00x $ & (* &d r88g50b75,00x $ & (* (e r100g50b75*00x" $ &( (fr0g50b885,00x $ & (* (g r25g50b88@,00x $ & (* (h r50g50b88,00x $ & (* (i r75g50b88,00x $ & (*j r88g50b88 0800 0800  P0800 `0800 p0800 0800 0800 0800 0800 0808BD1 $ P0_24_JUL_200219_29_43BEGIN ;go_item('b_calculator.inputarea'); select_all; copy_region; END;.WHEN-BUTTON-PRESSED (B_CALCULATOR.PB_CALCCOPY)lͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""T2ͫͫͫͫͫͫͫ0D 33 &'$F&'$&'$!\$\<b_calculator.inputarea &2 *0800 +8000,8000-8000.8000/800008000180002800038000480005800068000780008800098000:8000;8000<8000=8000>@r,00x $ & (*k r100g50b88*00x# $ &(P0l r0g50b100,00x $ & (*alm r25g50b100@,00x $ & (*n r50g50b100,00x $ & (*_Co r75g50b100,00x $ & (*p r88g50b100.00x & ( *,q r100g50b100'00x "$% ryellow+00x $ &()s darkyellow*00x "$ &( tmagenta.00x &( *,u darkmagenta(00x " $& vgray48(00x " $&!wgray44\\\(00x " $& xgray40(00x " $&ygray36ףף'00x! "$%zr0g75b0)00x " $&'{r25g75b0@()00x " $&'ay|r50g75b00)00x " $&'p}r75g75b0)00x " $&'z~r88g75b0!+00x $ &() r100g75b0&.08x& ( *,00r0g75b500008x ( * ,. 00r25g75b50@008x ( * ,.0 00r50g75b50008x ( * ,. 00r75g75b50008x ( * ,." 00r88g75b50008x ( * ,. ( 00r100g75b50.08x& ( *,&00r0g75b750008x ( * ,.  00r25g75b75@008x ( * ,.8g 00r50g75b75008x ( * ,.0b 00r75g75b75008x ( * ,. 00r88g75b75008x ( * ,. 00r100g75b75.08x& ( *,00r0g75b885 (008x ( * ,. 00r25g75b88@008x ( * ,.0 00r50g75b88008x ( * ,. 00r75g75b88008x ( * ,. $ 00r88g75b88008x ( * ,. ( 00r100g75b88.08x' ( *, ( 00r0g75b100,00x $ & (*j r88g50b88 0800 0800  P0800 `0800 p0800 0800 0800 0800 0800 0808BD1 $ P0_24_JUL_200219_29_43BEGIN ;go_item('b_calculator.inputarea'); select_all; copy_region; END;.WHEN-BUTTON-PRESSED (B_CALCULATOR.PB_CALCCOPY)lͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""T2ͫͫͫͫͫͫͫ0D 33 &'$F&'$&'$!\$\<b_calculator.inputarea &2 *0800 +8000,8000-8000.8000/800008000180002800038000480005800068000780008800098000:8000;8000<8000=8000>Pr008x ( * ,. 00r25g75b100@008x ( * ,.  00r50g75b100008x ( * ,.5g 00r75g75b100008x ( * ,.b1 00r88g75b100208x * , .0 00r100g75b100 (.08x & ( *,00custom1.08x & ( *,00custom2 .08x & ( *,000custom3rk.08x & ( *,00custom4a,08x $ & (* &00gray32,08x $ & (*00gray28QQQ,08x $ & (* 00gray24,08x $ & (* $00gray20+08x% &()00r0g88b0-08x & (*+00r25g88b0@0-08x & (*+b000r50g88b0-08x & (*+00r75g88b0 "-08x & (*+00r88g88b0$&/08x ( *,- 00r100g88b0.08x& ( *,00r0g88b50008x ( * ,. 00r25g88b50@008x ( * ,. 00r50g88b50008x ( * ,. 00r75g88b50008x ( * ,. 00r88g88b50008x ( * ,. 00r100g88b50.08x& ( *,00r0g88b750008x ( * ,. 00r25g88b75@008x ( * ,. 00r50g88b75008x ( * ,. 00r75g88b75008x ( * ,. 00r88g88b75008x ( * ,. 00r100g88b75.08x& ( *,00r0g88b885008x ( * ,. 00r25g88b88@008x ( * ,. 00r50g88b88008x ( * ,. 00r75g88b88008x ( * ,. 00r88g88b88008x ( * ,. 00r100g88b88.08x' ( *, 00r0g88b100008x ( * ,.0 00r25g88b100@50b88 0800 0800  P0800 `0800 p0800 0800 0800 0800 0800 0808BD1 $ P0_24_JUL_200219_29_43BEGIN ;go_item('b_calculator.inputarea'); select_all; copy_region; END;.WHEN-BUTTON-PRESSED (B_CALCULATOR.PB_CALCCOPY)lͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""T2ͫͫͫͫͫͫͫ0D 33 &'$F&'$&'$!\$\<b_calculator.inputarea &2 *0800 +8000,8000-8000.8000/800008000180002800038000480005800068000780008800098000:8000;8000<8000=8000>` r008x ( * ,. 00r50g88b100008x ( * ,.  00r75g88b100008x ( * ,.5g 00r88g88b100208x * , .0b1 00r100g88b100.08x & ( *,00custom5 (.08x & ( *,00custom6.08x & ( *,00custom7 .08x & ( *,000custom8rk,08x $ & (*00gray16 ,08x $ & (* (00gray12GGG,08x $ & (* (00gray8,08x $ & (* (00gray4-08x& (*+ (00r0g100b0/08x ( *,- 00r25g100b0@/08x ( *,- 00r50g100b0/08x ( *,- 00r75g100b0/08x ( *,- 00r88g100b0/08x ( *,- 00r100g100b0.08x' ( *, 00r0g100b50008x ( * ,. 00r25g100b50@008x ( * ,. 00r50g100b50008x ( * ,. 00r75g100b50008x ( * ,. 00r88g100b50208x * , .0 00r100g100b50.08x' ( *,00 00r0g100b75008x ( * ,.00 00r25g100b75@008x ( * ,.00 00r50g100b75008x ( * ,.00 00r75g100b75008x ( * ,.00 00r88g100b75208x * , .000 00r100g100b758.08x' ( *,00 00r0g100b888008x ( * ,.g8 00r25g100b88@008x ( * ,.5g 00r50g100b88008x ( * ,.0g 00r75g100b88008x ( * ,.5g 00r88g100b88208x * , .08g 00r100g100b88008x( * ,.8b 00r0g100b100208x * , .010 00r25g100b100@ (208x * , .0@ 00r50g100b100 208x * , .0 00r75g100b1008208x * , .0 00r88g100b100P208x * , .0 00r100g100b100 *:BFm(n rvx(((( SQL*FormsLFORM50%C:\DDG\DST\Development\CALCULATOR.fmbxf% xf% ;Copyright (c) Oracle Corporation 1990. All Rights Reserved.r (002 3BEGIN ;go_item('b_calculator.inputarea'); select_all; copy_region; END;.WHEN-BUTTON-PRESSED (B_CALCULATOR.PB_CALCCOPY)lͫͫͫͫͫͫͫw SYSSTANDARD FORMS40 SQLFORMS $ͫͫͫͫͫͫͫͫͫͫͫͫͫͫͫ08"PKG INIT"""T2ͫͫͫͫͫͫͫ0D 33 &'$F&'$&'$!\$\<b_calculator.inputarea &2 *0800 +8000,8000-8000.8000/800008000180002800038000480005800068000780008800098000:8000;8000<8000=8000>pl  9 3 ; a  Ze8kgn/xxAhpoCALCULATORiX0 j8khpUSl88HXhpx (4@LXdp|4Pl LCalculatorCALCULATOR+=.0-321*654/987CalculatorOffC)(CopyLOG(x)LOG(x)LOGTAN(x)TAN(x)TANCOS(x)COS(x)COSSIN(x)SIN(x)SINLN(x)LN(x)LNCopy value to clipboardCopy value to clipboardClear current valueClear current valueTurn off CalculatorTurn off CalculatorCompute answerCompute answerROUND(x[,y])ROUND(x[,y])ROUNDPOWER(x,y)POWER(x,y)POWERMOD(x,y)MOD(x,y) - Remainder of x divided by yMODm8}83G3||||||||||||~8NVUSCALCULATORMathematical Calculator by Dan Bailey, Data Design Group, Inc. Copyright 2002, All Rights Reserved, Email:baileyd@ddginc-usa.comCalculatorW_CALCULATOR   D   XBA% H l | /B_CALCULATORB_CALCULATORDEFAULTgray32  @``@! #&(+-p/2P479p;D=?BE8GJM8ORUXhh  x %d!tuDiylgh jik:/Z~INPUTAREAINPUTAREAC_CALCULATORBlackGrayTahoma E8Dl,/:KEY-NEXT-ITEMKEY-NEXT-ITEM  Vd!(tu3iyl<HgTh jik/Z~RESULT1RESULT1C_CALCULATORBlackGrayTahoma( 8 Vd!Htu#iyl\hgth jik/Z~RESULT2RESULT2C_CALCULATORBlackGrayTahoma  ,8!t$uel$jik:0/ZPB7PB7ZX]^8CALCULATOR^8<PC_CALCULATOR_BUTTON7C_CALCULATORBlackGrayE8PD/ u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDZU l!ttDueljik:/ZPB8PB8Z](^CALCULATOR^P<PC_CALCULATOR_BUTTON8C_CALCULATORBlackGrayE8D$@/ u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED ZU!  !tcueljik:/ZPB9PB9"Z8#]`$^CALCULATOR%^<PC_CALCULATOR_BUTTON9C_CALCULATORBlackGray&E80x'D`/ u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED(ZUp) |L!Ttuelhtjik:/ZPBDIVPBDIV*Z+],^CALCULATOR-^0<PC_CALCULATOR_BUTTON/C_CALCULATORBlackGray.E8/D / u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED0ZU1 !t$u~ljik:/ZPB4PB42Z3]@x4^hCALCULATOR5^<PC_CALCULATOR_BUTTON4C_CALCULATORBlackGray6E8X7D@t/ u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED8ZUP9 \h ,! 4tDu~l H Tjik: ` /ZPB5PB5:Z;]<^hCALCULATlOR=^h <PC_CALCULATOR_BUTTON5C_CALCULATORBlackGray>E8  ?D !/ u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED@ZU!A !!"!"tcu~l""jik:" /ZPB6PB6BZ!C]" "XD^!"HCALCULATORE^!"<PC_CALCULATOR_BUTTON6C_CALCULATORBlackGrayFE8"#8GD! #T#p/ u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDHZU$0I $<$H% !%tu~l%(%4jik:%@ /ZPBMULPBMULJZ$hK]$$L^$H$CALCULATORM^$H$<PC_CALCULATOR_BUTTON*C_CALCULATORBlackGrayNE8%`%OD#%%/  u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDPZU&Q &&'!'tu~l''jik:'/ZPBLEFTPARENPBLEFTPARENRZ&S]''HT^&'8CALCULATORU^&'p<PC_CALCULATOR_BUTTON(C_CALCULATORBlackGrayVE8'((WD&(D(`/  u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDXZU) Y )4)H* !*tul*(*4jik:*@/ZPBRIGHTPARENPBRIGHTPARENZZ)h[]))\^)H)CALCULATOR]^)H)<PC_CALCULATOR_BUTTON)C_CALCULATORBlackGray^E8*`*_D(**/  u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED`ZU+a ++,|!,t$ul,,jik:, /ZPB1PB1bZ+c],,8d^+,(CALCULATORe^+,`<PC_CALCULATOR_BUTTON1C_CALCULATORBlackGrayfE8,-gD+-4-P/  u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDhZU.i ..(.!.tDul//jik:/ /ZPB2PB2jZ.Hk].p.l^.(.CALCULATORm^.(.<PC_CALCULATOR_BUTTON2C_CALCULATORBlackGraynE8/@/oD-p///  u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDpZlU0q 001\!1dtcul1x1jik:1/ZPB3PB3rZ0s]01t^01CALCULATORu^01@<PC_CALCULATOR_BUTTON3C_CALCULATORBlackGrayvE811wD/220/ u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDxZU2y 233!3tul33jik:4/ZPBSUBPBSUBzZ3({]3P3|^33xCALCULATOR}^33<PC_CALCULATOR_BUTTON-C_CALCULATORBlackGray~E84 4XD2P4t/n:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED50 5<5H6 !6t$ul6(64jik:6@/ZPB0PB0Z5h]55^5H5CALCULATOR^5H5<PC_CALCULATOR_BUTTON0C_CALCULATORBlackGrayE86`6D466/ u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDZU7 778|!8tDul88jik:8/ZPBDOTPBDOTZ7]888^78(CALCULATOR^78`<PC_CALCULATOR_BUTTON.C_CALCULATORBlackGrayE889D7949P/ u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDZU:8 :H:X!:`tcuiyl:t:jik|::::/./ZPBEQUALPBEQUAL=C_CALCULATORBlackGrayCompute answerCompute answerE8:; D9p;(/:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED; ;;<!<tul<<jik:</ZPBADDPBADDZ<] >>!>tueiyl>?g? h jik|?|?4:?P-,/Z~PB_CLOSE_CALCULATORPB_CLOSE_CALCULATOROffC_CALCULATORblackwhiteArialTurn off CalculatorTurn off CalculatorE8?p?D=?/:WHEN-BUTTON-PRESSEDlWHEN-BUTTON-PRESSED@ @@A|!At$ulAAjik|AA:A#$"/ZPBSINPBSINZ@]AA8^@A(CALCULATOR^@A`<PC_CALCULATOR_BUTTONSINC_CALCULATORBlackGraySIN(x)SIN(x)E8AB4D?BPBl/ u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDZUCL CXCdD(!D4tDulDHDTjik|D`Dl:Dx !/ZPBCOSPBCOSZC]CC^CdCCALCULATOR^CdD <PC_CALCULATOR_BUTTONCOSC_CALCULATORBlackGrayCOS(x)COS(x)E8DDDBDE/ u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDZUE FFF!FtculFGjik|G G:G$/ZPBTANPBTANZF0]FXF^FFCALCULATOR^FF<PC_CALCULATOR_BUTTONTANC_CALCULATORBlackGrayTAN(x)TAN(x)E8GDGDE8GG/ u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDZUH HHI!It$ulIIjik|II:I/ZPBLOGPBLOGZH]II<^HI,CALCULATOR^HId<PC_CALCULATOR_BUTTONLOGC_CALCULATORBlackGrayLOG(x)LOG(x)E8IJ8DGJTJp/ u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDZUKP K\KhL,!L4tDulLHLTjik|L`Ll:Lx&'%/ZPBLNPBLNZK]KK^KhKCALCULATOR^KhL<PC_CALCULATOR_BUTTONLNC_CALCULATORBlackGrayLN(x)LN(x)E8LLDJLM/ u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDZUN NN N!Ntui!lOOjik|OO,:O<453/ZPBPOWERPBPOWERZN@]NhN^N NCALCULATOR^N N<PC_CALCULATOR_BUTTONPOWERC_CALCULATORBlackGrayPOWER(x,y)POWER(x,y)E8O\ODM8OO/ u:WHEN-BUTTON-lPRESSEDWHEN-BUTTON-PRESSEDZUP PPQ!Qtui lQQjik|QQ:R120/ZPBROUNDPBROUNDZQ]Q,Qd^PQTCALCULATOR^PQ<PC_CALCULATOR_BUTTONROUNDC_CALCULATORBlackGrayROUND(x[,y])ROUND(x[,y])E8R(RpDORR/ u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDZUS SSTd!TptculTTjik|TT:T786/ZPBMODPBMODZS]ST ^STCALCULATOR^STH<PC_CALCULATOR_BUTTONMODC_CALCULATORBlackGrayMOD(x,y) - Remainder of x divided by yMOD(x,y)E8TU@DRU\Ux/ u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDZUVX VhVxW<!WDtulWXWdjik|WpW:W+*/ZPBCLEARALLPBCLEARALLZV]VV^VxVCALCULATOR^VxW <PC_CALCULATOR_BUTTONCC_CALCULATORBlackGrayClear current valueClear current valueE8WXDUX,XH/ u:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDZUYP YdYx!YtuEiylYYgYh jik|Y|Y:Y)(/Z~PB_CALCCOPYPB_CALCCOPYCopyC_CALCULATORblackwhiteArialCopy value to clipboardCopy value to clipboardE8ZZTDXhZp/:WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSED Z[  [0_^Zo[DiyH[X[p/]dbd C_CALCULATORC_CALCULATORW_CALCULATORVA_BLACK_ON_GRAY [\]x^X_8`\` Z\p % tu iyq\\/LINE328LINE328Graysolid]@ Z]P % tu iyq]`]l/LINE329LINE329Graysolid^ Z^0 % tu iyq^@^L/LINE330LINE330Graysolid_ Z_ % tuYiyq_ _,/LINE332LINE332Graysolid_ Z_ % tuiyq`l` /LINE331LINE331Graysolid` Z` % tIui2y [`aaa/rTEXT346TEXT346noneGraynoneUa<adT`ataCMPTXT347CMPTXT347WabVa< b,Gb<lbLgbXhjikm/Z~TEXTSTR348TEXTSTR348CALCULATORblackArialLZKq jj0ldd[dee ege,h jikUZr~  !"#$%&'()*+,-./ 0X1 23 456789:;dblackwhitetransparentblackblacktransparentArial=eXe< e9fՀǀiygfTh |f`:fp/~PC_CALCULATOR_BUTTONPC_CALCULATOR_BUTTONDefine normal appearance and behaviour of a calculator button.ArialDEFAULTE8ffDeXf/ :WHEN-BUTTON-PRESSEDWHEN-BUTTON-PRESSEDOjg gNh9h3h4rhDq+`vtuiy}[HhXn/kW_CALCULATORW_CALCULATORSupports CalculatorCalculatorC_CALCULATORVA_BLUE_ON_GRAYe@h@n@rd@s@u4idi$i@CDEFdGHiAB_CALCULATOR.INPUTAREAB_CALCULATOR.INPUTAREA]ihi^hiINPUTAREA^hiB_CALCULATORjjkk,kHkdkkkkll$l@l\lxllllmm m<mXmtmmmmP0_24_JUL_200217_55_33P18_23_JUL_200214_40_18P3_23_JUL_200214_40_18P4_23_JUL_200214_40_18P9_24_JUL_200217_55_33P12_23_JUL_200214_40_18P13_23_JUL_200214_40_18P14_23_JUL_200214_40_18P15_23_JUL_200214_40_18P16_23_JUL_200214_40_18P17_23_JUL_200214_40_18P9_23_JUL_200214_40_18P5_24_JUL_200217_55_33P1_24_JUL_200217_55_33P7_24_JUL_200217_55_33P6_24_JUL_200217_55_33P2_24_JUL_200217_55_33P4_24_JUL_200217_55_33P3_24_JUL_200217_55_33P7_24_JUL_200219_29_43P1_24_JUL_200219_29_43P2_24_JUL_200219_29_43P3_24_JUL_200219_29_43P4_24_JUL_200219_29_43P5_24_JUL_200219_29_43P6_24_JUL_200219_29_43P8_24_JUL_200219_29_43P0_23_JUL_200214_40_18nPdnlCDEFGHnASYSTEM.TRIGGER_ITEMSYSTEM.TRIGGER_ITEMopoooopp p@p`pppppqq0qLqhqqqqqrr,rHP0_24_JUL_200217_55_33P18_l23_JUL_200214_40_18P3_23_JUL_200214_40_18P4_23_JUL_200214_40_18P9_24_JUL_200217_55_33P12_23_JUL_200214_40_18P13_23_JUL_200214_40_18P14_23_JUL_200214_40_18P15_23_JUL_200214_40_18P16_23_JUL_200214_40_18P17_23_JUL_200214_40_18P5_24_JUL_200217_55_33P1_24_JUL_200217_55_33P7_24_JUL_200217_55_33P6_24_JUL_200217_55_33P2_24_JUL_200217_55_33P4_24_JUL_200217_55_33P3_24_JUL_200217_55_33P7_24_JUL_200219_29_43P1_24_JUL_200219_29_43P2_24_JUL_200219_29_43P3_24_JUL_200219_29_43P4_24_JUL_200219_29_43P5_24_JUL_200219_29_43P6_24_JUL_200219_29_43P8_24_JUL_200219_29_43rdrrCDEFdGHsAB_CALCULATOR.RESULT2B_CALCULATOR.RESULT2]ssT^rdsDRESULT2^rds|B_CALCULATOR sP0_23_JUL_200214_40_18t$ dt@t\CDEFdGHtAB_CALCULATOR.RESULT1B_CALCULATOR.RESULT1 ]tt ^stRESULT1 ^stB_CALCULATORuP0_23_JUL_200214_40_18uduC DEFGHuASYSTEM.CURRENT_BLOCKSYSTEM.CURRENT_BLOCKuP1_23_JUL_200214_40_18 h$&'&'$G I|| $8|88 088H 8` w8x g8 W8 G8 78 '8 8 :8 8&'$).&'8$).A.8" @h8X$ p\8; 0&'$F&'$ !;8!,ERROR%X*ABSPOWERCOSSINLNLOGTANROUNDMOD(dERROR: Input too long!C=b_calculator.inputarea next_item (8H`Ldh(`lp(ht|(((((( 8($<D_k    U cd/JJ(40<HD`LxX`hpx 8@Xp 75b0.08x&( * ,00r0g75b50#008x( * , . 00r25g75b50@008x( * , . 00r50g75b50008x( * , . 00r75g75b50008x( * , . 00r88g75b50008x( * , . 00r100g75b50.08x&( * ,00r0g75b750008x( * , . 00r25g75b75@008x( * , . 00r50g75b75008x( * , . 00r75g75b75008x( * , . 00r88g75b75008x( * , . 00r100g75b75.08x&( * ,00r0g75b885008x( * , . 00r25g75b88@008x( * , . 00r50g75b88008x( * , . 00r75g75b88008x( * , . 00r88g75b88008x( * , . 00r100g75b88.08x'( * , 00r0g75b100008x( * , . 00r25g75b100@ ?D