YCalc=1.10 B0=\4'\y\nSetButton(11)\y\nCallSub( GetButtonData ) B1= B2= B3= B4= B5= B6= B7= B8= B9= B10= B11=\1G\2ffffff\300d0d0\4'global memory, subroutine set\y\nnew\y\nglobal a, b, c, d, e, f, x, y, pi\y\npi = 3.141592653589793\y\nsub kback(n){\y\n while(n){\y\n KeyDown(0x25) KeyUp(0x25)\y\n n = n - 1\y\n }\y\n}\y\nsub fact(n){\y\n dim a\y\n if(n < 0)+(n > 170)+(mod(n, 1) > 0){ return(0) }\y\n a = 1\y\n while(n){\y\n a = a * n\y\n n = n - 1\y\n }\y\n return(a)\y\n}\y\nsub func{\y\n dim a$, n\y\n a$ = GetButtonLabel\y\n if(a$ == "hex"){ print "hex( )" kback(2) }\y\n if(a$ == "log"){ print "log( )" kback(2) }\y\n if(a$ == "exp"){ print "exp( )" kback(2) }\y\n if(a$ == "fact"){ print "fact( )" kback(2) }\y\n if(a$ == "sin"){ print "sin( )" kback(2) }\y\n if(a$ == "cos"){ print "cos( )" kback(2) }\y\n if(a$ == "tan"){ print "tan( )" kback(2) }\y\n if(a$ == "atan"){ print "atan( )" kback(2) }\y\n if(a$ == "√"){ print "sqr( )" kback(2) }\y\n if(a$ == "3√"){ print "pow( , 1/3)" kback(7) }\y\n if(a$ == "^2"){ print "pow( , 2)" kback(5) }\y\n if(a$ == "^3"){ print "pow( , 3)" kback(5) }\y\n if(a$ == "pow"){ print "pow( , )" kback(5) }\y\n if(a$ == "pi"){ print "pi" }\y\n if(a$ == "deg"){ print "*pi/180" }\y\n if(a$ == "a"){ print "a" }\y\n if(a$ == "b"){ print "b" }\y\n if(a$ == "c"){ print "c" }\y\n if(a$ == "d"){ print "d" }\y\n if(a$ == "e"){ print "e" }\y\n if(a$ == "f"){ print "f" }\y\n if(a$ == "x"){ print "x" }\y\n if(a$ == "y"){ print "y" }\y\n if(a$ == ","){ print "," }\y\n if(a$ == "="){ print "=" }\y\n if(a$ == "int"){ n = int(Calc(GetCurrentLine)) SetNextLine print n }\y\n if(a$ == "r0"){ n = round(Calc(GetCurrentLine), 0) SetNextLine print n }\y\n if(a$ == "r2"){ n = round(Calc(GetCurrentLine), 2) SetNextLine print n }\y\n}\y\n B12= B13=\1MC\2ffffff\4'Memory Clear\y\nSetButton(12)\y\nSetButtonData("") B14=\1M-\2ffffff\4'Memory Sub\y\ndim n, a$\y\nSetButton(12)\y\nn = Val(GetButtonData)\y\nn = n - Calc(GetCurrentLine)\y\na$ = Str(n)\y\nSetButtonData(a$)\y\nSetNextLine\y\n B15=\1M+\2ffffff\4'Memory Add\y\ndim n, a$\y\nSetButton(12)\y\nn = Val(GetButtonData)\y\nn = n + Calc(GetCurrentLine)\y\na$ = Str(n)\y\nSetButtonData(a$)\y\nSetNextLine\y\n B16= B17= B18= B19= B20= B21= B22= B23= B24= B25= B26= B27= B28= B29= B30= B31=\1hex\2ffffff\4'\y\nfunc B32=\1log\2ffffff\4'\y\nfunc B33=\1exp\2ffffff\4'\y\nfunc B34=\1fact\2ffffff\4'\y\nfunc B35=\1pi\2ffffff\4'\y\nfunc B36=\1sin\2ffffff\4'\y\nfunc B37=\1cos\2ffffff\4'\y\nfunc B38=\1tan\2ffffff\4'\y\nfunc B39=\1atan\2ffffff\4'\y\nfunc B40=\1deg\2ffffff\4'\y\nfunc B41=\1√\2ffffff\4'\y\nfunc B42=\13√\2ffffff\4'\y\nfunc B43=\1^2\2ffffff\4'\y\nfunc B44=\1^3\2ffffff\4'\y\nfunc B45=\1pow\2ffffff\4'\y\nfunc B46=\1F1\2ffffff\300d0d0\4'\y\ndim a$\y\na$ = GetButtonLabel\y\nif(a$ == "F1"){\y\n SetButtonLabel("F2")\y\n SetButton(31) SetButtonLabel("a")\y\n SetButton(32) SetButtonLabel("b")\y\n SetButton(33) SetButtonLabel("c")\y\n SetButton(34) SetButtonLabel("d")\y\n SetButton(35) SetButtonLabel("e")\y\n SetButton(36) SetButtonLabel("f")\y\n SetButton(37) SetButtonLabel("x")\y\n SetButton(38) SetButtonLabel("y")\y\n SetButton(39) SetButtonLabel(",")\y\n SetButton(40) SetButtonLabel("=")\y\n SetButton(41) SetButtonLabel("int")\y\n SetButton(42) SetButtonLabel("r0")\y\n SetButton(43) SetButtonLabel("r2")\y\n SetButton(44) SetButtonLabel(" ")\y\n SetButton(45) SetButtonLabel(" ")\y\n}\y\nelse{\y\n SetButtonLabel("F1")\y\n SetButton(31) SetButtonLabel("hex")\y\n SetButton(32) SetButtonLabel("log")\y\n SetButton(33) SetButtonLabel("exp")\y\n SetButton(34) SetButtonLabel("fact")\y\n SetButton(35) SetButtonLabel("pi")\y\n SetButton(36) SetButtonLabel("sin")\y\n SetButton(37) SetButtonLabel("cos")\y\n SetButton(38) SetButtonLabel("tan")\y\n SetButton(39) SetButtonLabel("atan")\y\n SetButton(40) SetButtonLabel("deg")\y\n SetButton(41) SetButtonLabel("√")\y\n SetButton(42) SetButtonLabel("3√")\y\n SetButton(43) SetButtonLabel("^2")\y\n SetButton(44) SetButtonLabel("^3")\y\n SetButton(45) SetButtonLabel("pow")\y\n} B47=\1CP\2ffffff\3b0b0b0\4'Copy\y\nSetClipboard(Str(Calc(GetCurrentLine))) B48=\1PS\2ffffff\3b0b0b0\4'Paste\y\nprint GetClipboard B49=\1DEL\2ffffff\3b0b0b0\4'\y\nKeyDown(0x2e)\y\nKeyUp(0x2e) B50=\1⇒\2ffffff\3b0b0b0\4'\y\nKeyDown(0x23)\y\nKeyUp(0x23) B51=\2ffffff\3909090\47 B52=\2ffffff\3909090\48 B53=\2ffffff\3909090\49 B54=\2ffffff\3b0b0b0\4/ B55=\1AC\2ffffff\30000b0\4'All Clear\y\ncls B56=\2ffffff\3909090\44 B57=\2ffffff\3909090\45 B58=\2ffffff\3909090\46 B59=\2ffffff\3b0b0b0\4* B60=\2ffffff\3b0b0b0\4( B61=\2ffffff\3909090\41 B62=\2ffffff\3909090\42 B63=\2ffffff\3909090\43 B64=\2ffffff\3b0b0b0\4- B65=\2ffffff\3b0b0b0\4) B66=\2ffffff\3909090\40 B67=\1.\2ffffff\3909090\4. B68=\1←\2ffffff\3909090\4'BackSpace\y\nKeyDown(0x08)\y\nKeyUp(0x08) B69=\2ffffff\3b0b0b0\4+ B70=\1EXE\2ffffff\3b0b0b0\4ExecLine ButtonDispLine1=0 ButtonDispLine2=1 ButtonDispLine3=4 ButtonDispLine4=4 ButtonEditMode=1 DispWidth=250 DispHeight=57 FormColor=8404992 48=\1PS\2ffffff\3b0b0b0\4'Paste\y\nprint GetClipboard 49=\1DEL\2ffffff\3b0b0b0\4'\y\nKeyDown(0x2e)\y\nKeyUp(0x2e) 50=\1⇒\2ffffff\3b0b0b0\4'\y\nKeyDown(0x23)\y\nKeyUp(0x23) 51=\2ffffff\3909090\47 52=\2ffffff\3909090\48 53=\2ffffff\3909090\49 54=\2ffffff\3b0b0b0\4/ 55=\1AC\2ffffff\30000b0\4'All Clear\y\ncls 56=\2ffffff\3909090\44 57=\2ffffff\3909090\45 10= 11=\1G\2ffffff\300d0d0\4'global memory, subroutine set\y\nnew\y\nglobal a, b, c, d, e, f, x, y, pi\y\npi = 3.141592653589793\y\nsub kback(n){\y\n while(n){\y\n KeyDown(0x25) KeyUp(0x25)\y\n n = n - 1\y\n }\y\n}\y\nsub fact(n){\y\n dim a\y\n if(n < 0)+(n > 170)+(mod(n, 1) > 0){ return(0) }\y\n a = 1\y\n while(n){\y\n a = a * n\y\n n = n - 1\y\n }\y\n return(a)\y\n}\y\nsub func{\y\n dim a$, n\y\n a$ = GetButtonLabel\y\n if(a$ == "hex"){ print "hex( )" kback(2) }\y\n if(a$ == "log"){ print "log( )" kback(2) }\y\n if(a$ == "exp"){ print "exp( )" kback(2) }\y\n if(a$ == "fact"){ print "fact( )" kback(2) }\y\n if(a$ == "sin"){ print "sin( )" kback(2) }\y\n if(a$ == "cos"){ print "cos( )" kback(2) }\y\n if(a$ == "tan"){ print "tan( )" kback(2) }\y\n if(a$ == "atan"){ print "atan( )" kback(2) }\y\n if(a$ == "√"){ print "sqr( )" kback(2) }\y\n if(a$ == "3√"){ print "pow( , 1/3)" kback(7) }\y\n if(a$ == "^2"){ print "pow( , 2)" kback(5) }\y\n if(a$ == "^3"){ print "pow( , 3)" kback(5) }\y\n if(a$ == "pow"){ print "pow( , )" kback(5) }\y\n if(a$ == "pi"){ print "pi" }\y\n if(a$ == "deg"){ print "*pi/180" }\y\n if(a$ == "a"){ print "a" }\y\n if(a$ == "b"){ print "b" }\y\n if(a$ == "c"){ print "c" }\y\n if(a$ == "d"){ print "d" }\y\n if(a$ == "e"){ print "e" }\y\n if(a$ == "f"){ print "f" }\y\n if(a$ == "x"){ print "x" }\y\n if(a$ == "y"){ print "y" }\y\n if(a$ == ","){ print "," }\y\n if(a$ == "="){ print "=" }\y\n if(a$ == "int"){ n = int(Calc(GetCurrentLine)) SetNextLine print n }\y\n if(a$ == "r0"){ n = round(Calc(GetCurrentLine), 0) SetNextLine print n }\y\n if(a$ == "r2"){ n = round(Calc(GetCurrentLine), 2) SetNextLine print n }\y\n}\y\n 12= 13=\1MC\2ffffff\4'Memory Clear\y\nSetButton(12)\y\nSetButtonData("") 14=\1M-\2ffffff\4'Memory Sub\y\ndim n, a$\y\nSetButton(12)\y\nn = Val(GetButtonData)\y\nn = n - Calc(GetCurrentLine)\y\na$ = Str(n)\y\nSetButtonData(a$)\y\nSetNextLine\y\n 15=\1M+\2ffffff\4'Memory Add\y\ndim n, a$\y\nSetButton(12)\y\nn = Val(GetButtonData)\y\nn = n + Calc(GetCurrentLine)\y\na$ = Str(n)\y\nSetButtonData(a$)\y\nSetNextLine\y\n 16= 17= 18= 19= 20= 21= 22= 23= 24= 25= 26= 27= 28= 29= 30= 31=\1hex\2ffffff\4'\y\nfunc 32=\1log\2ffffff\4'\y\nfunc 33=\1exp\2ffffff\4'\y\nfunc 34=\1fact\2ffffff\4'\y\nfunc 35=\1pi\2ffffff\4'\y\nfunc 36=\1sin\2ffffff\4'\y\nfunc 37=\1cos\2ffffff\4'\y\nfunc 38=\1tan\2ffffff\4'\y\nfunc 39=\1atan\2ffffff\4'\y\nfunc 40=\1deg\2ffffff\4'\y\nfunc 41=\1√\2ffffff\4'\y\nfunc 42=\13√\2ffffff\4'\y\nfunc 43=\1^2\2ffffff\4'\y\nfunc 44=\1^3\2ffffff\4'\y\nfunc 45=\1pow\2ffffff\4'\y\nfunc 46=\1F1\2ffffff\300d0d0\4'\y\ndim a$\y\na$ = GetButtonLabel\y\nif(a$ == "F1"){\y\n SetButtonLabel("F2")\y\n SetButton(31) SetButtonLabel("a")\y\n SetButton(32) SetButtonLabel("b")\y\n SetButton(33) SetButtonLabel("c")\y\n SetButton(34) SetButtonLabel("d")\y\n SetButton(35) SetButtonLabel("e")\y\n SetButton(36) SetButtonLabel("f")\y\n SetButton(37) SetButtonLabel("x")\y\n SetButton(38) SetButtonLabel("y")\y\n SetButton(39) SetButtonLabel(",")\y\n SetButton(40) SetButtonLabel("=")\y\n SetButton(41) SetButtonLabel("int")\y\n SetButton(42) SetButtonLabel("r0")\y\n SetButton(43) SetButtonLabel("r2")\y\n SetButton(44) SetButtonLabel(" ")\y\n SetButton(45) SetButtonLabel(" ")\y\n}\y\nelse{\y\n SetButtonLabel("F1")\y\n SetButton(31) SetButtonLabel("hex")\y\n SetButton(32) SetButtonLabel("log")\y\n SetButton(33) SetButtonLabel("exp")\y\n SetButton(34) SetButtonLabel("fact")\y\n SetButton(35) SetButtonLabel("pi")\y\n SetButton(36) SetButtonLabel("sin")\y\n SetButton(37) SetButtonLabel("cos")\y\n SetButton(38) SetButtonLabel("tan")\y\n SetButton(39) SetButtonLabel("atan")\y\n SetButton(40) SetButtonLabel("deg")\y\n SetButton(41) SetButtonLabel("√")\y\n SetButton(42) SetButtonLabel("3√")\y\n SetButton(43) SetButtonLabel("^2")\y\n SetButton(44) SetButtonLabel("^3")\y\n SetButton(45) SetButtonLabel("pow")\y\n} 47=\1CP\2ffffff\3b0b0b0\4'Copy\y\nSetClipboard(Str(Calc(GetCurrentLine))) 58=\2ffffff\3909090\46 59=\2ffffff\3b0b0b0\4* 60=\2ffffff\3b0b0b0\4( 61=\2ffffff\3909090\41 62=\2ffffff\3909090\42 63=\2ffffff\3909090\43 64=\2ffffff\3b0b0b0\4- 65=\2ffffff\3b0b0b0\4) 66=\2ffffff\3909090\40 67=\1.\2ffffff\3909090\4. 68=\1←\2ffffff\3909090\4'BackSpace\y\nKeyDown(0x08)\y\nKeyUp(0x08) 69=\2ffffff\3b0b0b0\4+ 70=\1EXE\2ffffff\3b0b0b0\4ExecLine 0 1 4 4 1 250 57 8404992