R:I:9:L:S <#@%=&100090A::G$=N$S$=""S$=G$ ZUb%=(S$,"E")<>0):m%=(S$,".")<>0):J$=8(S$):J$=""J$=N$:H$=N$:J$=""J$="0":H$="0" %n0%=:c0%=3(_%):c0%<=(X$)TU (N$=J$:G$=J$:H$=J$:_%=61V(H$):d0%=  U:c0%-(X$)W,9,X G$=J$:c0%-(X$)<>3H$=J$  *T:k$="":W$=_%:W$="="(_%>128)W$="" (H$)>15H$=J$ "?5(W$,k$,H$):(J$>1E8)(J$,"E")=0)(J$,".")=0)J$=J$+".0" 6Id0%O$="x"J$=à(N$+"*"+J$+"+0"):0(J$)J$=à(N$+O$+J$+"+0"):0(J$) @"O$=W$:3(O$):d0%=:b%=:m%=: |y9:I%=118-4:T$(I%)=""::C::y%=2:N$="0":O$="0":J$="0":G$="0":U$="":W$="":b%=:m%=:0(G$):3(U$):A:d0%=:n0%=: /L:I%=18:G(I%)=0:s%?I%=::e%=1:s%?1=:  W:n0% 0"J$=N$:G$=O$:b%=:m%=:0(J$): Xݤ0(`%):=`%>=48`%<=57 l$ݤ3(`%):R%:R%=X$:`%=127=R%+1 `%=140=R%+2 `%=37=R%+3  =X$,`%) ݤ8(S$):G$=S$:S$=""K$=N$ 8:Y:3(_%):b%t%=0G$=G$,(G$)-1):H$=H$,(H$)-1)  q%=:=G$ Y:_0%Z4 :_0%=9:_0%: 4q%=:4: R?ݤ4:J$=G$::_%=5(1):6(G$)_%<>69:(0(_%)(_%=46))= &G$=_%:H$=_%:0(G$):q%=:_0%=:= Z::_%=5(1):c%<>0c%=0 26:6(G$) (_%=69)((G$="")b%) (_%=46)(m%b%) 0(_%)b%(t%=2) $:(G$)>=15 8(0(_%)_%=46_%=69) B_%=69b%=:t%=0_%=46m%= L0(_%)b%t%=t%+1 VG$=""m%G$="0" `"G$=G$+_%:0(G$):q%H$="":q%= ~H$=""m%H$="0" H$=H$+_%: &0(M$):M$=""M$=K$:M$>15M$=ûM$ M$>15M$=ûM$ "D:13;(15-(M$)));M$;:26: D:28,32,18,48,18: _:28,2,18,19,11: '3(a$):U$=a$:D:a$=""a$=" "@(1) F15,0);a$;:@(0):26: nS:=17 &`:=22=21=20=18=24=26 3@(100,0,0)=32:1:128:26,12:j%=0:I:9:L: C:28,59,18,77,4: ;5(g$,m$,M$):C:K$:K$=m$+M$:K$,2)=".0"K$=K$,K$-2) TT$(f%)=16-(K$)," ")+K$+10+g$:1,18-4);T$(f%);:26:n$=g$:f%=f%+1:f%>18-4f%=1 @ J%V(M$):M$,2)=".0"M$=M$,M$-2) ^/P(M$):5("","",M$):P(M$):5("","",""): P(e0%):h$:e0%>16e0%=16 h$=e0%,b$):5("","",h$): u(K$):26:(K$);K$: '6:Y$,I%:_::I%=18:s%?I%=0a 0: Da:Y$=G(I%):I%=e%@(1) b315-(Y$)+2);Y$;:13;:Y$=I%+".":Y$;:I%<>8  @(0): ݤA(o0%,p0%,o$):3(o$):0("0")::D:13;15-2);:26:_%=1-48:(_%o0%)2(1,"You must type a number between "+(p0%)+" and "+(o0%),"",""):A: :d%=-1:7:3(W$):=_% *1ݤE(G$):I%:I%=0:I%=I%+1:G$,I%,1)<>"0":=I% Rݤ5(`%):`%=88`%=120 f`%=58`%=120 p`%=59`%=43 z`%=42`%=120 `%=13`%=61 =`% ݤF(G$):y%=0=G$ ""1,18-4);T$(u%);: f%=1 +u%=1f%-1:T$(u%)<>""1,18-4);T$(u%);  :26: "Df:U$=" ":U$="":q$="":G$="0":N$="0":J$="0":H$="":n$="":K$="0": @ݤ2(K$)=(-(K$)) Jݤ6(K$):K$=""K$=N$ ^*Bg,h,H,v,K,F,B(),i,B()= h 0(G$):= |ݤB:_%=167=9 _%<129_%>136=0 (_%=133)q%=0 _%=132_%=134=0 =_%-128 g:G(e%)=G(e%)+(K$):6: h:G(e%)=G(e%)-(K$):6: i:G(e%)=0:6: 00H:e%=A(8,1,"M"):U$="":s%?e%=:0(K$):6: lK:b%j: 1G$=2(G$):H$="-"+H$:H$,2)="--"H$=H$,H$-2)  j:t%=0 K$:K$=G$,G$,"E")):G$=G$,G$-G$,"E")):G$=K$+2(G$):K$=H$,H$,"E")):H$=H$,H$-H$,"E")):H$=K$+2(H$):G$>15K$=K$,K$-2)+"E":G$=G$,G$-G$,"E")):G$=K$+G$:G$<=15  "ݤ9:_%<>133_%<>132_%<>134= *q%=G$=K$ 4$_%=134H$=190+H$:G$=C(G$):b%= >_%=132G$=G(e%):H$=G$ H _%=133K R0(G$):K$=G$:= pݤC(G$):=(("SQR"+G$)) `:c%=:e:H$=G$: qX:H$="%"+H$:O$="/"O$="^"J$=((N$+O$+((J$)/100)))J$=((N$)*(J$)/100):O$="+"O$="-"J$=((N$+O$+J$)) .0(J$):3(""):_%="=":O$="":5("","",H$): k:r$=&BE:X$="-+x/^=":_0%=:q%=:b%=:t%=0:m%=:f%=1:s$="Calculator V1.00":j%=0:G(8),s%8,T$(18-4):f:I%=18:G(I%)=0:s%?I%=::e%=1:s%?1=:J$="0":c%=0:`0%=0:d%=-1:"fx 4,2":"fx 225,128":"fx 226,144":"fx 227,160":"fx 228,0":"fx 229,1": N !m:f0%(0,1),a0%(1):a0%(0)=1 N> .f0%(0,0) NHO"To enter negative numbers Enter a number and Press F5 ( +/- )","" NRS"To enter an exponent Enter a number, then EE, then the exponent" N\T" You may use F5 to make exponent negative","" NfR"To select a memory slot Press F3 ( Select ) then a digit 1 - 8","" NpO"To clear a memory slot Select it then Press F8 ( M Clear )","" NzK"To add the display to a memory Select it then Press F1 ( M + )","" NK"To subtract from a memory Select it then Press F2 ( M - )","" NO"To put a new value in a memory Select it, Clear it, then Add to it","" NO"To recall a memory to the display Select it, then Press F4 ( Recall )","" N "****" N .f0%(0,1) N:"To extract a square root Press F6 ( )","" N4"To clear the display Press AC","" N4"To clear just the last entry Press CE","" NF"To calculate percentages Use ""%"" instead of ""=""","" N;"To print any screen Press F7 ( Print )" N "****" N N n: OCo:i$=" Press to continue.":h%(8) O. .h%(0) O81,"","","" OB .h%(1) OL#1,"Number out of range.","","" OV .h%(2) O`$1,"Can't divide by zero.","","" Oj .h%(3) OtJ1,"Can't take the root of a negative number, it's too complex.","","" O~ .h%(4) O(1,"Exponential out of range.","","" O .h%(5) OG1,"Can only raise negative numbers to small integer powers.","","" O .h%(6) O1,"Silly number.","","" O .h%(7) O-1,"Expression too long to handle.","","" O .h%(8) O1,"Unknown error.","","" O Op:Q$(7):Q$(0)=" M +":Q$(1)=" M -":Q$(2)=" Select":Q$(3)=" Recall":Q$(4)=" + / -":Q$(5)=" "+r$:Q$(6)=" Print":Q$(7)="M clear": aoG:0:19,0,4|19,1,7|:1);:@(1):"Communicator ";s$;" ";t$;" Acorn Computers Ltd 1986":@(0):@(-1,0,0) a"8(0,79,1,22):8(0,79,23,27): b $J(r%):s0%:@(1):r%<0r%=j%r% b4r%256j%M b>0k%=1:s0%=07:(r%k%)<>(j%k%)N(s0%,r%k%) b\k%=2*k%::@(0):j%=r%: bN(v%,b1%):Q$(v%)="" b]b1%a%(v%)+3,29);"F";v%+1;a%(v%),30);Q$(v%);5:16*a%(v%),92:j$;:0,-128,-32:j$;:4 b bcM:w%:O:j%=256:k%=1:w%=07:Q$(w%)<>"":a%(w%)+3,29);"F";w%+1;a%(w%),30);Q$(w%);:j%=j%+k% bk%=k%*2:: cvO:8(1,37,28,31):4(10,28,31):4(19,28,31):4(28,28,31):8(42,78,28,31):4(51,28,31):4(60,28,31):4(69,28,31): c~8(L%,R%,T%,B%):g0%:28,L%,B%,R%,T%,12,26:L%,T%);u$;R%-L%-1,b$);v$;:g0%=T%+1B%-1:L%,g0%);d$;R%,g0%);d$;::L%,B%);w$;R%-L%-1,b$);x$;: cU4(h0%,T%,B%):t0%:h0%,T%);y$;:t0%=T%+1B%-1:h0%,t0%);d$;::h0%,B%);z$;: d(Tݤ@(o%,u0%,v0%):i%,Z$::o%=-1i%=-1u0%,v0%);:o%<0i%=(100):o%=o%+1i%=(o%) dP@i%<0Z$=$(3)+" ",21):58,0);:@(1):;Z$;:@(0):o%=-1 dZu0%,v0%);:=i% dn@ݤ7(o%):i%,Z$,w0%::w0%=:c1%:@C%i%=-1:>w0%i%=@A%&FF d@i%<0Z$=$(3)+" ",21):58,0);:@(1):;Z$;:@(0):o%=-1 d=i% dK1(d1%):h%(d1%):z%,V$,_$,`$:2(z%,V$,_$,`$+i$):A:@(100,0,0)=32: d7:d%<0q: e'h1%(d%):V$,_$,`$:2(0,V$,_$,`$): e6q:d%=-12(0,"","",""): eJb0%(-(d%+2)):V$:2(0,V$,"Press RETURN to leave help before using function keys","For more details refer to the User guide"): erX2(z%,V$,_$,`$):28,1,26,78,24:@(z%):12,26:3,24);V$;3,25);_$;3,26);`$:@(0): e @(z%):z%=01:1280:129 e eA::(0)=-1: eB(e1%):e1%i0%j0% f @C% fe2(1,"Print failed because :",$@BHA%,i$):I%::I%=7(100):I%>=@ECPHON%I%<=@ECHELP%"fx 15,1": fN(0)=32:7: fl F: fv@HELP:k0%=k0%:k0% f x0%r: f>p%,y0%,d%:G:@(1):f1%y0%=j%:M:J(y0%)O:N(6,):@(0) fBx%=0:Q:"FX 15,1"::p%=7(100):p%>=@ECPHON%p%<=@ECHELP%: gp%=(0):p%=32x%=x%+1:Q: gp%=135B(): g p%=167B(): g* p%=13: g>r:!z0%=x0%:m0%: gf3Q:e$:e$="":28,1,21,78,2,12:x%>a0%(`0%)x%=0 gaf0%(`0%,x%):f$::e$;f$;:e$=13+10:f$:f$="****":a0%(`0%)=0d%=-2x%