HPADÿÿ0|o Jå4Regular calculator3šƒ…6Scientific calculator –C¥‡n„vhandler cancel; begin go to pad "calc"; end; handler help; begin go to page id 4 of pad "calc.hlp"; end;6„ï7calc *7calc.hlp“4’*JMZJ ÿÿø)ÕΖ!#'*>PXjU‹ìƒìWVÇFúƒ~téÄF‰FîŒVðƒFîÄ^î&Ä_ü&‹&‹W‰Fü‰VþƒFîÄ^î&Ä_ü&‹&‹W‰Fê‰Vì‹vò‹Fü‹Vþ‰Fö‰VøÄ~üë&€=,tG&€=uó‰~üŒFþ‹ß&Š*ä‹ð öt&ˆ'ÿvìÿvêÿvøÿvöšƒÄ‰Fô ötÄ^ü&Æ,ƒ~ôu‰vòë ötÿFüÿFúë’ÇFúëèÿvúš RPš¸^_‹å]ËËË´/Í!ŒÂ‹ÃËU‹ì´ÅVÍ!]ÊU‹ì´N¹1ÅVÍ!r3Àë¸]Ê´OÍ!r3Àë¸Ë° ét° éoì:T¸ŽØº8´ Í!¸LÍ!VW¸ŽØ¾Z¿Zè#_^šàËVW¸ŽØ¾Z¿Zè _^šâË;÷sƒï‹ EtòÿëîÃ2ä.ÿ.U‹ì‹ÖÅv Ä^°ÿ Àt-¬&Š'C:àtó,A<É€á ÁA†à,A<É€á ÁA:ÄtÓÀÿ˜‹ò]ËwhichitemFFFFFFFFThis program requires HyperPAD. $WITEM˜#P`  display!!ppÿU+;3Handler Select; Begin operator 1; End; Òž;71  operator;:*Há  äžÓ +w Buttonl š 1 È _ 1oopÿO'7/Handler Select; Begin addnum 7; End;Òž777  addnum;:*H  àžt 7w Button€ß€‡‡‡‡ß€ß€ß€ß€ß€ß€1€00pÿ€O'7/Handler Select; Begin addnum 8; End;Òž778  addnum;:*H Dž 8w Button€ß€‡‡‡‡ß€ß€ß€ß€ß€ß€1€00pÿ€O'7/Handler Select; Begin addnum 9; End;Òž779  addnum;:*H  žª 9w Button€ß€‡‡‡‡ß€ß€ß€ß€ß€ß€1€00pÿ€U+;3Handler Select; Begin operator 3; End; Òž;73  operator;:*HáPžE xw Buttonl š 1 È _ 1oopÿû­¥Handler Select; Begin global state,n1,savedop; put 0 into state; put empty into n1; put empty into savedop; put empty into field "display"; End; Òž­70stateXXXn1XXXsavedopXXXXdisplay&X X*Há \žæ CLRButtonl š 1 È _ 1GGpÿO'7/Handler Select; Begin addnum 4; End;Òž774  addnum;:*H 0ž-4w Button€ß€‡‡‡‡ß€ß€ß€ß€ß€ß€1€00pÿ€O'7/Handler Select; Begin addnum 5; End;Òž775  addnum;:*H   <žÈ5w Button€ß€‡‡‡‡ß€ß€ß€ß€ß€ß€1€00pÿ€O'7/Handler Select; Begin addnum 6; End;Òž776  addnum;:*H Pžc6w Button€ß€‡‡‡‡ß€ß€ß€ß€ß€ß€1€00pÿ€U+;3Handler Select; Begin operator 2; End; Òž;72  operator;:*Há °žþ-w Buttonl š 1 È _ 1oopÿU+;3Handler Select; Begin operator 6; End; Òž;76  operator;:*HáXžŸ=w Buttonl š 1 È _ 1oopÿO'7/Handler Select; Begin addnum 0; End;Òž770  addnum;:*H \ž@0w Button€ß€‡‡‡‡ß€ß€ß€ß€ß€ß€1€00pÿ€Q)91Handler Select; Begin addnum "."; End;Òž97.  addnum;:*HdžÛ.w Button€ß€‡‡‡‡ß€ß€ß€ß€ß€ß€1€00pÿ€U+;3Handler Select; Begin operator 4; End; Òž;74  operator;:*HáÔžxöw Buttonl š 1 È _ 1oopÿs;KCHandler Select; Begin unary -field "display","-"; End; Ò7K7Xdisplay&##[-  unary;:*Há  ðž-/+Buttonl š 1 È _ 1oopÿO'7/Handler Select; Begin addnum 1; End;Òž771  addnum;:*H(žØ1w Button€ß€‡‡‡‡ß€ß€ß€ß€ß€ß€1€00pÿ€O'7/Handler Select; Begin addnum 2; End;Òž772  addnum;:*H  hžs2w Button€ß€‡‡‡‡ß€ß€ß€ß€ß€ß€1€00pÿ€O'7/Handler Select; Begin addnum 3; End;Òž773  addnum;:*Hž3w Button€ß€‡‡‡‡ß€ß€ß€ß€ß€ß€1€00pÿ€P0:Tape‡±‡±‡±‡±‡‡‡‡‡‡‡‡‡‡‡¡pÿ‡pÿ‡ 6ªº²Handler Select; Begin answer "Ok to print tape?"; if it is not "Ok" then exit; set the printer to on; print fld "Tape" & return; set the printer to off; End; Òžº7Ok to print tape?XXUOkX.*X Ñ ‚à P XTape&##,}X Ñ ‚ß P*Hs ”žû1-Print TapeˆÂ7ftog@[hE31 p1x>(80Handler Select; Begin go home; End; Ò787‹*H0IOˆÂ7RHomeutton‡±‡‡‡‡‡‡‡‡‡‡‡1‡GGpÿ‡D'7/Handler Select; Begin cancel; End; Òž77X  :*H0 CG€žÜ¼eutton‡±‡‡‡‡‡‡‡‡‡‡‡1‡GGpÿ‡æ6 Handler Select; Begin get field "format"; delete char 1 to offset(".",it) of it; ask "Number of decimal places:" with length(it); if it & "X" is "X" then exit; put "0." into f; for i = 1 to it do put "0" after f; put f into field "format"; End; Òž7Xformat&##XXXXXX.X   :1 WX   :Number of decimal places: XTXXX,+*0. XXX1 XXXX 6#0 XX 1  XXX$Óÿ Xformat&X X*Hs pžl2-Precisionl Placesftog@[hE31 p2yP0!H%7format‡±‡±‡±‡‡‡‡‡‡‡‡‡‡‡1p‡Â7ÿ‡P0"@Poperators±‡±‡±‡±‡‡‡‡‡‡‡‡‡!p‡DÂ7pÿ‡€HXPHandler Select; Begin put field "display" into field "memory"; End; Ò7X7Xdisplay&##Xmemory&X X*Há#hžBSTOButtonl š 1 È _ 1oopÿ펞–Handler Select; Begin global state; get field "memory"; if it is empty then exit; put empty into field "display"; addnum it; End; Ò7ž7Xmemory&##XXXXX+*Xdisplay&X XX  addnum;:*Há$ОRCLButtonl š 1 È _ 1oopÿP‡%`! 8 Memory±‡±‡±‡±‡±‡‡‡‡‡‡‡‡‡1p‡ÿ‡U,<4Handler Select; Begin addnum "BS"; End; Ò7<7BS  addnum;:*Há&äž™RButtonl š 1 È _ 1GGpÿB%5-Handler Select; Begin help; End; Ò757X  ï:*H‡'FN´ž:F1=Helpls‡‡‡‡‡‡‡‡‡‡‡1‡GGpÿ‡4{e6<LDHandler Select; Begin put empty into field "Tape"; End; ÒžL7XTape&X X*Hs('XžÈ3-Clear Tape Placesftog@[hE31 p3z“‡Ë A Ó handler totape(s); begin put s after the last line of field "tape"; get the rect of field "tape"; put item 4 of it - item 2 of it into h; put the number of lines of field "tape" into n; if n > h then set the startline of field "Tape" to n - h; end; handler todisplay(n); begin global n1; set the numberformat to field "format"; put n + 0 into n1; put n1 into field "display"; end; handler openpage; begin global ops; put field "operators" into ops; send "select" to button "CLR"; put empty into field "memory"; end; handler _add(n); begin if n is "BS" then delete the last character of field "display" else put n after the last char of field "display"; end; handler _clear; begin put empty into field "display"; end; handler addnum(n); begin global state; case state of 0 : begin _add n; put 1 into state; end; 1 : _add n; 2 : begin _clear; _add n; put 3 into state; end; 3 : _add n; 4 : begin _clear; _add n; put 1 into state; end; end; end; handler plus(a1,a2); begin todisplay a1 + a2; end; handler multiply(a1,a2); begin todisplay a1 * a2; end; handler power(a1,a2); begin todisplay a1^a2; end; handler divide(a1,a2); begin todisplay a1/a2; end; handler equal(a1,a2); begin end; handler minus(a1,a2); begin todisplay a1-a2; end; handler _calc; begin global n1,savedop,ops; put n1 into a1; put field "display" into a2; send item 1 of line savedop of ops a1,a2 to this page; totape a1 && item 2 of line savedop of ops && (a2 + 0) && "=" && n1; end; handler _saveop(opnum); begin global savedop; put opnum into savedop; end; handler _savenum; begin global n1; put field "display" * 1 into n1; end; handler operator(opnum); begin global state,savedop; case state of 0 : ; 1 : begin todisplay field "display"; _saveop opnum; put 2 into state; end; 2 : _saveop opnum; 3 : begin _calc; if opnum is 6 then begin put 4 into state; end else begin _saveop opnum; put 2 into state; end; end; 4 : begin _saveop opnum; put 2 into state; end; end; end; handler unary(n,op); begin global state; put field "display" into a1; todisplay n; totape op & "(" & a1 & ")" && "=" && n * 1; put 2 into state; end; handler keypress(k); begin get whichitem("1,2,3,4,5,6,7,8,9,0,BIGMINUS,-,CTRL+BACKSPACE,BACKSPACE,+,BIGPLUS,*,SLASH,/,=,PERIOD",key(k)); if it is 0 then pass; get item it of "20,21,22,10,11,12,5,6,7,15,13,13,9,38,3,3,8,18,18,14,16"; set the focus to button id it; send "select" to button id it; end;D€žA E€ñ éH F€– G€ù H€ I€žÚFJ€hÙ”K€ÿ¶L€ÈM€ôN€—O€ž½P€îQ€æ–$totape87XXtape&Xl——A  Xtape&  )c XXX X2 X4 XXXXtape&##A XXX  3XTape&  Ë   P*$ todisplay87X #Xformat&## P0Xn1XXXn1Xdisplay&X X*7Xoperators&##opsXXXselectXCLRM ‰Xmemory&X X*$_add87BSX+#Xdisplay&Xl——> W$%XXdisplay&Xl——>  *$_clear7Xdisplay&X X*$addnum87state$$Ù0+$X  _add;:1stateXXX$Ñÿ1+X  _add;:$¶ÿ2+2X _clear;:X  _add;:3stateXXX$|ÿ3+X  _add;:$aÿ4+2X _clear;:X  _add;:1stateXXX$'ÿ*$plus87 X  todisplay;:*87 X!  todisplay;:*$power87 Xn  todisplay;:*87 X"  todisplay;:*$equal87*$minus87 X  todisplay;:*$_calc7n1 XXXXdisplay&## XXX  opsXsavedop1` ‰n1=0 opsXsavedop2 ----  totape;:*$ _saveop87XsavedopXXX*$ _savenum71Xdisplay&##!n1XXX*$ operator87state$$0+$òÿ1+JXdisplay&##  todisplay;:X  _saveop;:2stateXXX$ ÿ2+X  _saveop;:$‚ÿ3+QX _calc;:6X+4stateXXX$$X  _saveop;:2stateXXX$)ÿ4+'X  _saveop;:2stateXXX$úþ*$unary87Xdisplay&## XXXX  todisplay;:1X!=) ( ,,,--  totape;:2stateXXX*871,2,3,4,5,6,7,8,9,0,BIGMINUS,-,CTRL+BACKSPACE,BACKSPACE,+,BIGPLUS,*,SLASH,/,=,PERIODX   W:  whichitem;: XXX0 +/20,21,22,10,11,12,5,6,7,15,13,13,9,38,3,3,8,18,18,14,16X  XXXX O hselectX O ‰*ÕQ€‚ HyperPAD 2.2¨ Brightbi‚l-Roberts & Co.‚бÑÚ·Ä¿Ü–³·³Û–³·³Û–³·³Û–³·³Û–÷Ä´Û–³·³Û–ÜĚĴۖ³œ³š³Û–³œ³š³Û–³œ³š³Û–³œ³š³Û–³œ³š³Û–³œ³š³Û–³œ³š³Û–³œ³š³Û–³œ³š³Û–³œ³š³Û–ÀœÄÁšÄÙÛ—¹ßå> Use the numeric keypad to enter numbers, ENTER to calculate. ’Ðpÿ‡¢‡¹€–‡¹€–‡¹€–‡¹€–‡¹€–‡¹€–‡¹€–‡¹€–‡¹€–‡¹€–‡¹€–‡¹€–‡¹€–‡¹€–‡¹€–‡¹€–‡¹€–‡¹€–‡¹€—‡¹€•‡ÐÐ0‘@y 3 ) * Å ` û œ ã~´Uö‘.ÏŽ)Ä_©’"TžðÄýGð~/ q€hq €HV!€H‡\ž0.00G"€HTÂ7322plus,+ minus,- multiply,* divide,ö power,^ equal,=%€h[5"Ò Regular Calculator ÿÿÿÿÿÿÿÿÿÿÿÿÿÿøÒ”0ÿÿÿÿÿÿÿÿÿÿÿÿÿÿø% 6(6x5Ž5¤5¿56€H €H!€HPÂ70.00G"€HxÂ7322plus,+ minus,- multiply,* divide,ö power,^ equal,=%€Hq}?OGHandler Select; Begin unary field "display" ^ 2,"POW2"; End;ÒžO72Xdisplay&##nPOW2  unary;:*HP"'`žR7XýTutton¤Ä7ù01 pÿ„ AQIHandler Select; Begin unary sin(field "display"),"SIN"; End; Ò7Q7Xdisplay&##   F:SIN  unary;:*H‡" ' Øž8SINButton‡±‡±‡±‡‡‡‡‡‡‡‡‡1‡ pÿ‡U+;3Handler Select; Begin operator 5; End; Òž;75  operator;:*Há*/Äžë8XüButtonl š 1 È _ 1 pÿ‡CSKHandler Select; Begin unary sqrt(field "display"),"SQRT"; End; Ò7S7Xdisplay&##   G:SQRT  unary;:*HP"'ˆžŒ9ûRTutton¤Ä7ù01 pÿ‡ CSKHandler Select; Begin unary asin(field "display"),"ASIN"; End; Ò7S7Xdisplay&##   K:ASIN  unary;:*H‡"'Lž_:ASINutton‡±‡±‡±‡‡‡‡‡‡‡‡‡1‡ pÿ‡„ AQIHandler Select; Begin unary cos(field "display"),"COS"; End; Ò7Q7Xdisplay&##   ?:COS  unary;:*H‡* / |ž2;COSutton‡±‡±‡±‡‡‡‡‡‡‡‡‡1‡ pÿ‡‡ CSKHandler Select; Begin unary acos(field "display"),"ACOS"; End; Ò7S7Xdisplay&##   J:ACOS  unary;:*H‡*/Œž<ACOSutton‡±‡±‡±‡‡‡‡‡‡‡‡‡1‡ pÿ‡„ AQIHandler Select; Begin unary tan(field "display"),"TAN"; End; Ò7Q7Xdisplay&##   H:TAN  unary;:*H‡2 7 ˜žÕ<TANutton‡±‡±‡±‡‡‡‡‡‡‡‡‡1‡ pÿ‡‡ CSKHandler Select; Begin unary atan(field "display"),"ATAN"; End; Ò7S7Xdisplay&##   =:ATAN  unary;:*H‡ 27 ž¥=ATANutton‡±‡±‡±‡‡‡‡‡‡‡‡‡1‡ pÿ‡ ?OGHandler Select; Begin unary ln(field "display"),"LN"; End; Ò7O7Xdisplay&##   C:LN  unary;:*H‡ 27¨žx>LNNutton‡±‡±‡±‡‡‡‡‡‡‡‡‡1‡ pÿ‡ AQIHandler Select; Begin unary 1 / field "display","1 / "; End; Ò7Q7Xdisplay&##1"1 /  unary;:*H‡ */°žE?1/xutton‡±‡±‡±‡‡‡‡‡‡‡‡‡1‡ pÿ‡Y .>6Handler Select; Begin unary pi,"PI"; End; Ò7>7PI  unary;:*H‡ 27Äž@PIutton‡±‡±‡±‡‡‡‡‡‡‡‡‡1‡ pÿ‡AQIHandler Select; Begin unary 10^field "display","POW10"; End; Ò7Q7Xdisplay&##10nPOW10  unary;:*Há */Ìžµ@10üButtonl š 1 È _ 1 pÿ› IYQHandler Select; Begin unary ln(field "display") / ln(10),"LOG"; End; Ò7Y710   C:Xdisplay&##   C:"LOG  unary;:*H‡27Ôž‚ALOGutton‡±‡±‡±‡‡‡‡‡‡‡‡‡1‡ pÿ‡ @PHHandler Select; Begin unary fact(field "display"),"!"; End; ÒžP7Xdisplay&##   .:!  unary;:*H‡"'ÜžiB!xutton‡±‡±‡±‡‡‡‡‡‡‡‡‡1‡ pÿ‡^8"Ò Scientific Calculator ÿÿÿÿÿÿÿÿÿÿÿÿÿÿõÒ—0ÿÿÿÿÿÿÿÿÿÿÿÿÿÿõa 6C ¬6Â6Ø6ó6<7Ñ7¡8B9:è:¸;‹<[=.>û>Æ?k@8ABìB