HPAD0|]JY3n3#j337~DProgrammer's calculatorEYjrfunction _frombase(n); begin return frombase(n,field "base"); end; function _tobase(n); begin return tobase(n,field "base"); end; handler cancel; begin go to pad "calc"; end; handler keypress(k); begin get whichitem("1,2,3,4,5,6,7,8,9,0,BIGMINUS,-,CTRL+BACKSPACE,BACKSPACE,+,BIGPLUS,*,SLASH,/,=,PERIOD,a,A,b,B,c,C,d,D,e,E,f,F",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,48,3,3,8,18,18,14,16,40,40,41,41,42,42,43,43,44,44,36,36"; set the focus to button id it; send "select" to button id it; end; handler help; begin go to page id 15 of pad "calc.hlp"; end; C$ _frombase87XXbase&##  frombase;:9*$ _tobase87XXbase&##  tobase;:9*7calc *871,2,3,4,5,6,7,8,9,0,BIGMINUS,-,CTRL+BACKSPACE,BACKSPACE,+,BIGPLUS,*,SLASH,/,=,PERIOD,a,A,b,B,c,C,d,D,e,E,f,FX   W:  whichitem;: XXX0 +/20,21,22,10,11,12,5,6,7,15,13,13,9,48,3,3,8,18,18,14,16,40,40,41,41,42,42,43,43,44,44,36,36X  XXXX O hselectX O *7calc.hlp15*8MZ8 A9,=(= ==nX6cM)-137:N`hzF(U~ ~F7F0&]U;Vw3r;Fw,RPvv(RPRPvv(RPvv]U~t]ːFFVF^&w&wFVF^&w&w pvvM&pPRPU~A| F-7]F-0]U V+FFFFvv(1vv^&*PRPX(FVRPFP0(N uɉvFV^]U ~t]ːFFVF^&G&WFVF^&w&w ^&w&78FVRPRPːː  z up=Jd="=غF !L!VW=ؾhh#_^VW=ؾhh _^;s Et2..#U~3I]U^v v &w&7X(^&&W]UF^ ؋^ u F]ȋFf ȋFы]USVF uN F3؋F8ȋ^ VF uf F r ;Vwr;FvN3Җ^[]USF uN F3F3Eȋ^ VF uf f r ;Vwr ;Fv+F V +FV؃[]ToBaseFromBase =z=FFFFFFFFThis program requires HyperPAD. $JMZJ )!#'*>PXjUWVF~tFFVF^&_&&WFVF^&_&&WFVvFVFV~&=,tG&=u~F&* t&'vvvvF t^&,~uv tFFFv RP^_]ːː/!‹UV!]UN1V!r3]O!r3 t o:Tغ8 !L!VWؾZZ#_^VWؾZZ _^;s Et2..Uv ^ t-&'C:t,A<ɀ A,A<ɀ A:t]whichitemFFFFFFFFThis program requires HyperPAD. $BASE WITEM P0:TapeppP@  display!!ppU+;3Handler Select; Begin operator 1; End; ;71  operator;:*H  !+w Buttonl 1 _ 1oopO'7/Handler Select; Begin addnum 7; End;777  addnum;:*H  7w Button߀߀߀߀߀߀߀100pO'7/Handler Select; Begin addnum 8; End;778  addnum;:*H  ]8w Button߀߀߀߀߀߀߀100pO'7/Handler Select; Begin addnum 9; End;779  addnum;:*H  9w Button߀߀߀߀߀߀߀100pU+;3Handler Select; Begin operator 3; End; ;73  operator;:*Hxw Buttonl 1 _ 1oopHandler 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 4CLRButtonl 1 _ 1GGpO'7/Handler Select; Begin addnum 4; End;774  addnum;:*H  {4w Button߀߀߀߀߀߀߀100pO'7/Handler Select; Begin addnum 5; End;775  addnum;:*H 5w Button߀߀߀߀߀߀߀100pO'7/Handler Select; Begin addnum 6; End;776  addnum;:*H 6w Button߀߀߀߀߀߀߀100pU+;3Handler Select; Begin operator 2; End; ;72  operator;:*H L-w Buttonl 1 _ 1oopU+;3Handler Select; Begin operator 6; End; ;76  operator;:*H=w Buttonl 1 _ 1oopO'7/Handler Select; Begin addnum 0; End;770  addnum;:*H0w Button߀߀߀߀߀߀߀100pU+;3Handler Select; Begin operator 4; End; ;74  operator;:*H)w Buttonl 1 _ 1oopFVNHandler Select; Begin unary -_frombase(field "display"),"-"; End; 7V7Xdisplay&##  _frombase;:[-  unary;:*H!$-/+Buttonl 1 _ 1oopO'7/Handler Select; Begin addnum 1; End;771  addnum;:*H  1w Button߀߀߀߀߀߀߀100pO'7/Handler Select; Begin addnum 2; End;772  addnum;:*HlB2w Button߀߀߀߀߀߀߀100pO'7/Handler Select; Begin addnum 3; End;773  addnum;:*H3w Button߀߀߀߀߀߀߀100pU+;3Handler Select; Begin operator 5; End; ;75  operator;:*H! $ x XButtonl 1 _ 1oopN^VHandler Select; Begin unary sqrt(_frombase(field "display")),"SQRT"; End; 7^7Xdisplay&##  _frombase;:   G:SQRT  unary;:*HP!$<!RTutton701oopJZRHandler Select; Begin unary _frombase(field "display") ^ 2,"POW2"; End;7Z72Xdisplay&##  _frombase;:nPOW2  unary;:*HP!$ "XTutton701oop 6Handler 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 L"1-Print Tape7ftog@[hE31 p1x>(80Handler Select; Begin go home; End; 787*H0IO7H$Homeutton1GGpD'7/Handler Select; Begin cancel; End; 777X  :*H0CG7$eutton1GGpP0"@Poperators!ppP#@/ 8 Base1pQ)91Handler Select; Begin addnum "F"; End;797F  addnum;:*H$ &Fw Button߀߀߀߀߀߀߀100pjzrHandler Select; Begin get _frombase(field "display"); put 2 into field "base"; unary it,"BIN"; End;7z7Xdisplay&##  _frombase;:XXXX2Xbase&X XXBIN  unary;:*H%/ 4 ,&BinButton6  operator;:1 pB0/k{sHandler Select; Begin get _frombase(field "display"); put 10 into field "base"; unary it,"DEC"; End;7{7Xdisplay&##  _frombase;:XXXX10Xbase&X XXDEC  unary;:*H&/4$'DecButton6  operator;:1 pD /k{sHandler Select; Begin get _frombase(field "display"); put 16 into field "base"; unary it,"HEX"; End;7{7Xdisplay&##  _frombase;:XXXX16Xbase&X XXHEX  unary;:*H'/4(HexButton6  operator;:1 pH#/Q)91Handler Select; Begin addnum "A"; End;797A  addnum;:*H(  8*Aw Button߀߀߀߀߀߀߀100pQ)91Handler Select; Begin addnum "B"; End;797B  addnum;:*H) @*Bw Button߀߀߀߀߀߀߀100pQ)91Handler Select; Begin addnum "C"; End;797C  addnum;:*H*HA+Cw Button߀߀߀߀߀߀߀100pQ)91Handler Select; Begin addnum "D"; End;797D  addnum;:*H+ P+Dw Button߀߀߀߀߀߀߀100pQ)91Handler Select; Begin addnum "E"; End;797E  addnum;:*H,X{,Ew Button߀߀߀߀߀߀߀100pHandler Select; Begin put field "display" & "," & field "base" into field "Memory"; unary _frombase(field "display"),"STO"; End; 77Xbase&##,Xdisplay&##,,XMemory&X XXdisplay&##  _frombase;:STO  unary;:*HP-&)`-STOutton701oophHandler Select; Begin get field "Memory"; if it is empty then exit; get frombase(item 1 of it,item 2 of it); put empty into field "display"; addnum tobase(it,field "base"); End; 77XMemory&##XXXXX+*XX1XX2  frombase;:XXXXXdisplay&X XXXbase&##  tobase;:  addnum;:*HP.& ) hl.RCLutton701oopP0/` - Memoryl0a0t01pDU,<4Handler Select; Begin addnum "BS"; End; 7<7BS  addnum;:*H0!$tr0RButtonl 1 _ 1GGpB%5-Handler Select; Begin help; End; 757X  :*H1FN1F1=Helpls1GGp4{e6<LDHandler Select; Begin put empty into field "Tape"; End; L7XTape&X X*Hs2@12-Clear Tape7ftog@[hE31 p2y.g o 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; get _tobase(n); put it into n1; put it into field "display"; end; handler openpage; begin global ops; put field "operators" into ops; send "select" to button "CLR"; end; handler _add(n); begin if n is "BS" then delete the last char 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 global n1; 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 _frombase(a1),_frombase(a2) to this page; totape a1 && item 2 of line savedop of ops && a2 && "=" && n1; end; handler _saveop(opnum); begin global savedop; put opnum into savedop; end; handler _savenum; begin global n1; put field "display" into n1; end; handler operator(opnum); begin global state,savedop; case state of 0 : ; 1 : begin _savenum; _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 & ")" && "=" && field "display"; put 2 into state; end;D E  F G| H I  J  K9 LK Mw N<ObPQ$totape87XXtape&XlA  Xtape&  )c XXX X2 X4 XXXXtape&##A XXX  3XTape&    P*$ todisplay87X  _tobase;: XXX n1XXX Xdisplay&X X*7Xoperators&##opsXXXselectXCLRM *$_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;:$a4+2X _clear;:X  _add;:1stateXXX$'*$plus87 X  todisplay;:*87 X!  todisplay;:*$power87 Xn  todisplay;:*87 X"  todisplay;:*$equal87*$minus87 X  todisplay;:*$_calc7n1 XXXXdisplay&## XXX   _frombase;:   _frombase;:opsXsavedop1` n1= opsXsavedop2 ----  totape;:*$ _saveop87XsavedopXXX*$ _savenum7Xdisplay&##n1XXX*$ operator87state$$0+$1+7X _savenum;:X  _saveop;:2stateXXX$2+X  _saveop;:$3+QX _calc;:6X+4stateXXX$$X  _saveop;:2stateXXX$<4+'X  _saveop;:2stateXXX$ *$unary87Xdisplay&## XXXX  todisplay;:Xdisplay&##=) ( ,,,--  totape;:2stateXXX*n HyperPAD 2.2 Brightbil-Roberts & Co. Programer's Calculator ڷܖۖۖۖۖۖ÷ۖۖ÷ۖ ۖ ۖ ۖ ۖ ۖ ۖ ۖ ۖ ۖ ۖۗ> Use the numeric keypad to enter numbers, ENTER to calculate. p00@R2B*3}xI1gD]. !"#$%b%%Y&y'()Z**+1,,"./ 00W12HH"G"H732plus,+ minus,- multiply,* divide, power,^ equal,=#Hh10/H% E9EOEeEEE