*d:Q:e:f::g:(q%=-1)(o%4)0(4) P `0%I Z0: n&g:c%:4:c%=0(100,0,0):c%<128 c%=1356(): c%=1676(): c%=130c%=131C: c%<>132h%=3h:C: h%=3 c%>138c%<144L: c%=133:C: c%=128L: c%=134i: c%=163C: c%=136a1%I:  C:c%=132a%=1 ,c%=130a%=0 6!f%::c%-(129)j,D,R,Rk Tf%=-1f%=129m:: ^c%=f%:c%=130c%=132`0%P r `0%I |0 m:P:q%=-10(o%4)  n:d%(60):b%(60):q%=-1:a0%(5):r%(5):w0%(5):j2%20:I%:I%=05:a0%(I%)=0:r%(I%)=-1:w0%(I%)=0::m1%=@CO%+@WRDAM%+@WRDXY%:o3%=@CCO%+@WRDAM%+@WRDXY%:k2%=@MM%+@WRDAM%+@WRDXY%:b1%(2):b1%(0)=5:b1%(1)=30:b1%(2)=55:x0%=:"fx 4,2":"fx 225,128" "fx 226,144":"fx 227,160":"fx 228,0":"fx 229,1":G$(13),U$(13):R$=9:d$=13:e$=1:f$=R$+d$+e$:o:p:h%=0:x%=0:a%=0:`0%=0:j$="Phone V1.00":Y$="RAM:!P.DIRECTORY":q: i:g%<2+2@(17):2: Ni%,c1%:c1%=o%:0(256+64):h%=5:2:W$=4(4,25,25,2):h%=0:W$=""2:0(c1%): ;i%=2-1:b%=1(0,W$,b0%,0)::b%=-1:@(16):2:0(c1%): )i%=i%+1:b%=b%(i%):d%(i%)1S: (.b%=1(0,W$,b0%,0):i%=2g%:b%=b%(i%)Sr F:a1%=:d%(a%)1T d2:0(c1%128): /S:b%=@(4,0,b%,0):b%<>-1b%=1(0,W$,b%,2)  'r:M$="":9(i%):d%(i%)=d%(i%)-2: M9(i%):X%,Y%:E(i%):d%(i%)4:1(1):X%-2,Y%);"D":1(0)X%-2,Y%);" " X%,Y%);M$;(20-M$): *I:g%=25,4);"No Directory entries" "7:g%>2s 6a1%=:`0%>0a%=`0%a%=0 J`0%=:0(128):5: rOs:i%:i%=2g%-1:G(b%(i%),2):9(i%):d%(i%)=d%(i%)1::g%<60M$="":9(g%)  ̊f:g%=2:23,1|:5,2);"MANUAL VOICE CALL";5,3);"NEW ENTRY";5,4);:d%(0)=1:d%(1)=1:b%=@(7,0,b0%,2):b%=-1;"No Directory entries"t 9a%=0:h%=0:x%=0:2:a1%=:0(256+8+16+32+64):5:p3%=: lTt::9(g%):b%(g%)=b%:d%(g%)=1&80000000:b%=@(4,0,b%,2):g%=g%+1:b%=-1g%=60: se:3(0,"Please wait while loading directory ...","",""):o0%=C:X%=@MMALA%:Y%=@HDMMT%:A%=o0%:k2%:@C%@(14): 9j%=@BHA%:b0%=j%+47:n5%=@Y%:p3%=:m2%=D:m2%=-1@(20) >m2%<1u: Hi0%=:z%=@(6,0,b0%,0): f4ݤC:Y%=@HDMMC%:X%=@MMLEN%:k2%:@BHA%>9999:=6144  =2048 (ݤD:("LOAD "+Y$+" "+~j%):@ERC%=0  E=-1 =o0% 'ݤE:A%,Y%:A%=j%:Y%=o0%-2:d1%:=@C% _u:i0%=:j%!17=-1:$(j%+21)="":z%=b0%:q3%:I%,H$:G$(0)::e%=(G$(0)):G$(0)="V"t%=8t%=13 jbH$=G$(0):I%=1t%:G$(I%):H$=H$+G$(I%)+R$::$z%=H$:z%=z%+1+H$:G$(0):G$(0)="****":?z%=1:F: .q3% N D,"Teletype serial",TTY,,300,full,originate,no,7,1,even,RS423,rts/cts,"" S D,"Videotex Modem",VIDEOTEX,,1200/75,full,originate,no,7,1,even,PHONE,none,"" O D,"VT100 serial",VT100,,9600,full,originate,no,7,1,even,RS423,xon/xoff,""  "****" &L:c%-(139)v,w,x,yc%=128T ( 2)v:7::a%=(a%+40)60:d%(a%)1:5: x)w:7::a%=(a%+20)60:d%(a%)1:5:  x:7::a%=a%+1:a%>=g%a%=0 d%(a%)1:5: !y:7::a%=a%-1:a%<0a%=g%-1 @d%(a%)1:5: ^T:7:a%=0:5: :5:X%,Y%,y%:E(a%):1(1):X%-1,Y%);k$:1(0):h%<>0 !y%=o%:a%=0y%=y%(2)y%=y%2 a%=1y%=y%(8)y%=y%8 o%<>y%0(y%)  &7:X%,Y%:E(a%):X%-1,Y%);" ": :)E(n2%):X%=b1%(n2%20):Y%=2+n2%20: bݤ3:x0%:= vn1%:@C%@(0):= /o1%=@Y%:p1%:@C%@(0):Y%=o1%:q1%:o1%=0:= r3%=@Y%:s3%=o%:x0%=:= P:h%>3h%=0  x0%2: 5o%=s3%:Y%=r3%:r1%:@C%"Can't restore context": -Y%=o1%:s1%:@C%"Can't restore screen": 4x0%=:2: ''j:h%,x%:h%=1:x%=1:a%=1zU(a%) '8b%=-1f%=-1: 'B3f%=-1: 'L)q%=-10(256+1+8+64)0(256+1+4+8+64) 'V@0:00::10:e%=32F 'e%<>32G$(1)=""I ' e%=6820 ' LP 'F:f%=k%: 'z:g%=60@(9):b%=-1: '3b%=-1: 'Uh%,x%:h%=2:x%=2:2:4:0(256+2):c%,a%:a%=1::4:c%=0(100,0,0):c%>138c%<144L (PTc%=130:o2%=(a%=0)(a%=1):o2%G$(0)="DATA":e%=68:I%:I%=113:G$(I%)="":U(a%) (no2%b%=-1 (x b%=0: (!U(t3%):b%=@(7,t3%-2,0,1): (30:y0% (3_%:G$(0)=U$(0)U$(0)="DATA"e%=68:Ae%=86:A (0_%=0t%:G$(_%)=U$(_%)::y0%=:H:0(128): )400:_%:_%=0t%:U$(_%)=G$(_%)::y0%=:e1%=e%: )h@0:B(0,79,1,22):A:H: )"A:e%=68t%=13:s%=1t%=8:s%=0 )28,1,21,78,2,12,26:_%,X%,Y%,W%:_%=0t%:X%=p%(s%,_%,0):Y%=p%(s%,_%,1):W%=p%(s%,_%,2):X%-15,Y%);Z$(s%,_%);X%+W%+1,Y%);">"::p%(s%,0,0),p%(s%,0,1));:e%=68;"DATA ";"VOICE" * *SH:_%:_%=1t%:p%(s%,_%,0),p%(s%,_%,1));:G$(_%);(p%(s%,_%,2)-G$(_%)):: *b610:_%:_%=0:2::4:k%=G(_%):k%=13630:_%=0:0 *+k%=13k%=141k%=142_%=(_%+1)(t%+1):0 *&k%=140k%=143_%=(_%+t%)(t%+1):0 *k%=128_%=0:0 *k%=02:0 *k%=129k%=131k%=132 * *ݤG(_%):X%,Y%,W%,k%,G$:X%=p%(s%,_%,0):Y%=p%(s%,_%,1):W%=p%(s%,_%,2):X%-2,Y%);:1(1):;"<";X%+W%+1,Y%);">";:1(0):G$=4(X%,Y%,W%,0):_%=3Ve%=6840 +R5G$<>""G$(_%)=G$:G$<>U$(_%)y0%y0%=:0(o%+128) +\_%=0H:=k% +fG_%<>0G$(_%),1)=" ":G$(_%)=G$(_%),(G$(_%))-1):G$(_%),1)<>" " +p2X%-2,Y%);"< ";G$(_%)+W%," "),W%);" >";:=k% +Vݤ4(X%,Y%,W%,f1%):H$,C%,J%:H$="":J%=0:23,1,1|::C%=0(100,X%+J%,Y%):C%=1356() +C%=1676() +!C%=167C%=135X%,Y%);H$;: +?C%<>127J%=00H$=H$,(H$)-1):J%=J%-1:X%+J%,Y%);" ":0 +1笤J(C%,f1%):k%=C%:23,1,0|:C%=27=""=H$ +&C%=21J%=0:H$="":X%,Y%);(W%):0 +C%<32C%>1270 +J%=W%1,-15,200,5:0 ,/H$=H$+(C%):X%+J%,Y%);C%;:J%=0;(W%-1) ,$J%=J%+1:0 ,8ݤJ(C%,f1%):C%=13:= ,L C%=27:= ,V f1%>1:= ,`C%=136:= ,j f1%>0:= ,tC%>139C%<=143:= ,~C%=128:= ,C%=129:= ,C%=131:= ,C%=132:= ,y0%C%=136:= ,= ,(ݤH:T%:T%=(G$(0)):T%>32:T%=T%&5F ,#T%<>68T%<>86T%<>32J:k%=0:= ,;T%=68G$(0)="DATA ":e%=86(e%=32e1%=86)e%=68:A:W:= ,;T%=86G$(0)="VOICE":e%=68(e%=32e1%=68)e%=86:A:W:= ,'T%=32e%<>32G$(0)=" ":e1%=e%:e%=32 ,= -.W:_%:G$(2)="":_%=413:G$(_%)=""::H: -PY20:I%:G$="":I%=1G$(2):G$=G$+(5(G$(2),I%))::G$(2)=G$:G$(11)=""G$(11)="PHONE" -?G$(6)<>""G$(4)="75/1200"G$(6)="answer"G$(6)="originate" - -J:e%=32e%=e1% -%e%=68G$(0)="DATA "G$(0)="VOICE" -$p%(s%,0,0),p%(s%,0,1));G$(0): - ݤF:d%(a%)(2+4)@(8):J:= -b%=0u3%v3% .6 f%=k%:= . J:= .".u3% .,"You cannot create an entry with a blank TYPE field - do you want to","abandon this entry ? Press 'Y' to abandon it, press 'N' to continue","editing it." .6.v3% .@"DO YOU REALLY WANT TO DELETE THIS ENTRY ?","If you do, press 'Y' to confirm. If not, press 'N', and the entry","will remain unchanged." .JݤI:b%<>0@(15):= .^w3%:笤6= .re%=32:f%=k%:= ..w3% ."You cannot create an entry with a blank name field - do you want to","abandon this entry ? Press 'Y' to abandon it, press 'N' to continue" ."editing it." .ݤP:x3%:=6 ..x3% ."There is insufficient space in your directory to make this update - do you","want to abandon the changes or try to make it smaller ? Press 'Y' to","leave directory unchanged, press 'N' to continue editing." .Mݤ6:C%:N$,S$,T$:3(1,N$,S$,T$):4:C%="YyNn",0(100,0,0)):C%>0:=C%<3 /&40:G$="" /: _%<4 /D _%>12 /N,G$,1)=" "G$=G$,(G$)-1):G$,1)<>" " /XG$=""G$=" ": /b_%=45060 /l /v(60:I%,N%,H$:c0%(_%-5):H$:H$=0 /%N%=G$:N%>"z"N%<"a"N%=N%&5F / N%=H$,N%):N%=070:G$="": /I%=1N%:G$:: /;70:O$:N%=H$:O$:N%>1I%=2N%:H$:O$=O$+" or "+H$: 0 3(1,G$+" is an invalid value for this parameter, please use : ",O$+" or type a blank to let the computer","choose a default. "+_$):0(100,0,0)=32:k%=0: 0HV:G$="" 0\kI%:I%=1G$:"0123456789-.()/ ",G$,I%,1))<>0I%=1"Ee",G$,I%,1))<>0@(10):I%=G$:G$="":k%=0: 0z 0J50:I%,g1%:g1%=:I%=G$,"/"):I%K(G$,1,I%-1)):K(G$,I%+1))K(G$) 0g1%@(11):G$="":k%=0 0 0K(H$):g1% 0-O$:y3%::O$:O$="****"O$=H$: 1 g1%=: 1 o:_%:p%(1,13,2),Z$(1,13) 18.z3% 1B! 20, 5, 5 ,"TYPE: <" 1L! 20, 7,20 ,"SURNAME: <" 1V! 20, 9,20 ,"INITIALS: <" 1`! 20,11,25 ,"PHONE: <" 1j! 20,13, 5 ,"EXTN: <" 1t! 20,15,20 ,"ADDRESS: <" 1~! 20,16,20 ," <" 1! 20,17,20 ," <" 1! 20,18,20 ," <" 1._4% 1! 20, 4, 5 ,"TYPE: <" 1! 20, 6,20 ,"NAME: <" 1! 20, 8,30 ,"TERMINAL: <" 1! 20,10,25 ,"PHONE: <" 1! 20,12,10 ,"SPEED: <" 1! 63,12, 4 ,"DUPLEX: <" 1! 20,14, 9 ,"MODEM MODE: <" 1! 63,14, 3 ,"EQUALISATION:<" 1! 20,16, 1 ,"DATA BITS: <" 2! 42,16, 1 ,"STOP BITS: <" 2 ! 63,16, 4 ,"PARITY: <" 2! 20,18, 6 ,"PORT: <" 2! 63,18, 8 ,"PROTOCOL: <" 2(! 20,20,20 ,"LOGON: <" 22z3%:_%=08:p%(0,_%,0):p%(0,_%,1):p%(0,_%,2):Z$(0,_%)::_4%:_%=013:p%(1,_%,0):p%(1,_%,1):p%(1,_%,2):Z$(1,_%):: 2p:c0%(7) 2 .c0%(0) 2"F","full" 2 .c0%(1) 2"OA","originate","answer" 3 .c0%(2) 3"YN","yes","no" 3 .c0%(3) 3""78","7","8" 3, .c0%(4) 36"12","1","2" 3@ .c0%(5) 3J"OEN","odd","even","none" 3T .c0%(6) 3^-"RP12","RS423","PHONE","PHONE1","PHONE2" 3h .c0%(7) 3r-"NXRD","none","xon/xoff","rts/cts","dtr" 3|.y3% 3n"50","75","110","134.5","150","300","600","1200","1800","2400","3600","4800","7200","9600","19200","****" 3 :ݤL:e%=32b%=0:i0%=:= :4i0%=:t1%,p2%,q2%,h1%:h1%=-1:e%=32X:`0%=-1:= :Gd0%,u1%:80:u1%=j%+o0%-2-z%-d0%:b%<>0u1%<0i0%=:=`0%=7(0):= :t1%=:u1%+($b%)<0i0%=:= ;X:G$(1)=U$(1)a%=7(b%):= ;$`0%=7(0):= ;8ݤ7(n%):u%,I%:n%=090 ;V0n%>b%(g%-1)u%=g%u%=2-1:u%=u%+1:b%(u%)=n% ;`mA0(n%,d0%):B0(n%):I%=g%u%-1:b%(I%+1)=b%(I%)+d0%:d%(I%+1)=d%(I%)::I%=05:r%(I%)>=u%r%(I%)=r%(I%)+1 ;:h1%>-1r%(h1%)=u% ;-q2%=a%j%!17=u%j%!17>=u%j%!17=(j%!17)+1 ;5g%=g%+1:b%(u%)=n%:t1%d%(u%)=p2%d%(u%)=&80000000 ;=u% ;280:_%:d0%=t%+2:_%=1t%:d0%=d0%+G$(_%):: <<)X:r2%,i%:r2%=K(b%):t1%p2%=d%(a%) a%j%!17=(j%!17)-1 a%r%(I%)=r%(I%)-1 <r%(I%)=a%h1%=I% <:d%(g%)=0: <=90:C%:C%=&5F(G$(1)):n%=1(3,C%,b0%,2):n%=-1C0D0 = ="-1C%="Z" =6n%=-1n%=@(6,0,b0%,0) =@ =JD0:8(G$(1),M$) =^=s2%::s2%=n%:n%=@(4,0,n%,2):n%=-1:n%=@(6,0,s2%,0): =8(G$(1),M$): =0ݤ8(`$,X$):I%,L%,S%,F%:L%=`$:X$F%I%>L%:S%<>F%:=S% =X$>`$ ><ݤ5(M$,`4%):C%:C%=M$,`4%,1):C%>"`"C%<"{"C%=C%&5F >D=C% >NF:I%:i0% >lH$(j%)=$(0):E0:("SAVE "+Y$+" "+~(j%)+" +"+~(o0%)):@ERC%@(18): >I%=(Y$):I%#I%@(19) > >AE0:A%,Y%:A%=j%:Y%=o0%-2:d1%:A%?Y%=@A%:A%?(Y%+1)=@A%256: ?"ݤ1(z0%,g$,v1%,_1%):z0%>3=-1 ?g$=""o5%=-1:=i1% ? =9 ?*&ݤ@(z0%,a4%,v1%,_1%):z0%=7v1%=b0% ?>=9 ?H:ݤ9:$`%=f$:`%!3=v1%:`%!6=z0%:z0%<4$(`%+7)=g$`%?7=a4% ?z*b4%:i1%=!`%:i1%<>-1_1%>0G(i1%,_1%) ?=i1% ?ݤK(t2%):t2%=-1 ?'$`%=f$:`%!3=t2%:c4%:z%=z%-!`%:=!`% ?AA0(d4%,d0%):$`%=R$+d$+e$:`%!3=d4%:`%?6=d0%:e4%:z%=z%+d0%: @.BG(u2%,_1%):Q$,I%,J%:Q$=$(u2%+1):_1%=2M$=Q$,1,Q$,R$)-1): @V7e%=?u2%:e%=68G$(0)="DATA":J%=13G$(0)="VOICE":J%=8 @j:I%=1J%:G$(I%)=Q$,1,Q$,R$)-1):Q$=Q$,Q$,R$)+1):: @]B0(n%):H$,_%,w1%:H$=e%:_%=1t%:H$=H$+G$(_%)+R$::w1%=?n%:$n%=H$:w1%=1n%?(1+H$)=w1% @ ADq:v2%A(1023):`%=v2%+960:w2%1,p5%1:x2%=022:P%=v2%:[OPTx2% AFz.b4%PHK:PLB:LDA`%+3:STA&E0:LDA`%+4:STA&E1:LDA`%+5:STA&E2:LDY#0:LDAL(&E0),Y:CMP`%+2:BEQp0%:LDX`%+1:LDA`%+6:BEQf4%:LDX`% AY.f4%:STXw2%:LDA`%+6:CMP#4:BCCy2%:CMP#4:BEQg4%:CMP#5:BEQh4%:CMP#7:BEQi4%:BCSp0%:JMPj4% B^.i4%:LDX`%+7 Br).k4%:BEQq0%:JSRLx1%:BCSp0%:DEX:BRAk4% B.g4%:JSRLx1%:BCSp0%:BCCq0% B.h4%:JSRLm4%:BCSp0%:BCCq0% BG.p0%:LDA`%+6:CMP#6:BEQq0%:LDA#&FF:STA`%:STA`%+1:STA`%+2:STA`%+3:RTL CbE.q0%:LDA&E0:STA`%:LDA&E1:STA`%+1:LDA&E2:STA`%+2:LDA#0:STA`%+3:RTL C.y2%:LDX#7 C9.n4%:LDA`%,X:CMP#13:BEQo4%:JSRLy1%:STA`%,X:INX:BRAn4% D*.o4%:LDY#1 D>(.z2%:LDX#7:LDAL(&E0),Y:CMPw2%:BNEp4% Dp.q4%:JSRLx1%:BCSp0%:BCCy2% D?.p4%:JSRLy1%:INY:CMP`%,X:BEQ_3%:LDA`%+6:CMP#3:BEQq4%:BNEz2% DQ._3%:INX:LDA`%,X:CMP#&0D:BEQq0%:LDAL(&E0),Y:JSRLy1%:CMP`%,X:BNEz2%:INY:BRA_3% E`0.y1%:CMP#"a":BCC`3%:CMP#1+"z":BCS`3%:#&5F E .`3%:RTL E.x1%PHK:PLB:LDY#0 E'.r4%:LDAL(&E0),Y:INY:CMP`%+1:BNEr4% EW.s4%:CLC:TYA:ADC&E0:STA&E0:LDA#0:ADC&E1:STA&E1:LDY#0:LDAL(&E0),Y:CMP`%+2:BEQt4%:CLC Fx .t4%:RTL F7.m4%PHK:PLB:LDY#254:DEC&E1:LDAL(&E0),Y:CMP`%:BNEu4% FB.v4%:LDAL(&E0),Y:DEY:CMP`%+1:BNEv4%:LDAL(&E0),Y:INY:INY:BNEs4% G".u4%:SEC:RTL G@.j4%PHK:PLB:LDY#0 GTe.a3%:LDAL(&E0),Y:CMP`%+2:BEQw4%:CLC:LDA#1:ADC&E0:STA&E0:BCCa3%:LDA#0:ADC&E1:STA&E1:BCCa3%:SEC:RTL G.w4%:CLC:JMPq0% HB.c4%PHK:PLB:LDY#0:LDA`%+3:STA&E3:LDA`%+4:STA&E4:LDA`%+5:STA&E5 HXs.x4%:LDAL(&E3),Y:INY:CMP`%+1:BNEx4%:CLC:TYA:PHA:ADC&E3:STA&E0:LDA#0:ADC&E4:STA&E1:LDA#0:ADC&E5:STA&E2:LDY#0:SEI I O.b3%:LDAL(&E0),Y:STAL(&E3),Y:CMP`%+2:BEQy4%:INY:BNEb3%:INC&E1:INC&E4:BNEb3% Ip8.y4%:PLA:STA`%:LDA#0:STA`%+1:STA`%+2:STA`%+3:CLI:RTL IB.e4%PHK:PLB:LDA`%+3:STA&E0:LDA`%+4:STA&E1:LDA`%+5:STA&E2:LDY#0 JJ.z1%:LDAL(&E0),Y:CMP`%+2:BEQz4%:INY:BNEz1%:INC&E1:BNEz1%:INC&E2:BNEz1% J~.z4%:TYA:CLC:ADC&E0:STA&E0:LDA#0:ADC&E1:STA&E1:LDA#0:ADC&E2:STA&E2:LDA`%+6:ADC&E0:STA&E3:LDA#0:ADC&E1:STA&E4:LDA#0:ADC&E2:STA&E5:LDY#0:SEI KZb._5%:LDAL(&E0),Y:STAL(&E3),Y:LDA&E0:CMP`%+3:BNEc3%:LDA&E1:CMP`%+4:BNEc3%:LDA&E2:CMP`%+5:BEQ`5% KI.c3%:DEC&E0:LDA&E0:CMP#255:BNEd3%:DEC&E1:LDA&E1:CMP#255:BNEd3%:DEC&E2 L6I.d3%:DEC&E3:LDA&E3:CMP#255:BNEe3%:DEC&E4:LDA&E4:CMP#255:BNEe3%:DEC&E5 L.e3%:JMP_5% L.`5%:CLI:RTL:WRD&30 L.p1%:COP:EQUB@OPSCX%:RTL L.r1%:COP:EQUB@OPRCX%:RTL L.n1%:COP:EQUB@OPSSC%:RTL M.s1%:COP:EQUB@OPRSC%:RTL M&.q1%:COP:EQUB@OPFSC%:RTL M:._2%:PERa5%:BRAb5% MX.`2%:PERc5% Ml3.b5%PLA:PHK:PLB:LDY#0:LDX#0:COP:EQUB@OPRMI%:RTL M.a5%:EQUS"BASIC":EQUB0 M.c5%:EQUS"TSHELL":EQUB0 M .a2%:LDA#126:COP:EQUB@OPOSB% N(.q5%:LDA#@EVPRE%:COP:EQUB@OPAEV%:RTL N*.d1%:WRD&30:COP:EQUB@OPSUM%:RTL:]:x2%:p1%=p1%+@WRDAM%+@WRDXY%:r1%=r1%+@WRDAM%+@WRDXY%:n1%=n1%+@WRDAM%+@WRDXY%:s1%=s1%+@WRDAM%+@WRDXY%:q1%=q1%+@WRDAM%+@WRDXY%:`2%=`2%+@WRDAM%+@WRDXY%:_2%=_2%+@WRDAM%+@WRDXY%:a2%=a2%+@WRDAM%+@WRDXY% NFd1%=d1%+@WRDAM%+@WRDXY%:`2%:d5%=@BHA%+@MHNAME%+9:_2%:e5%=@BHA%: RDR:v%,I%:h%=4:2:c%<>133v%=a%j%!17=-1@(7):f%=-1:v%=j%!17 R:d%(v%)(42)@(2):f%=-1: RD v%=0Y: RNG(b%(v%),1):e%=86Y: RX1G$(11)="RS423"J$="null"G$(3)=""MJ$=G$(3) RbJ$=""f%=129: Rl$I%=0:r%(I%)=-1I%=I%+1:I%>5 RvI%>5@(6):f%=-1: RF0:f%=-1 R3I0:Z: RF:o%:0(256+8):D: RI0:C%=1:Y%=a0%(I%):2<>0 RN(I%,):f%=-1: SHF0:A%=e5%:D%=@SMSTK%:X%=@COCRE%:C%=0:m1%+@USED%:@C%@(4):f%=-1: S Ja0%(I%)=@Y%:$j2%="W=&4000 P=&"+~d5%:A%=j2%:Y%=a0%(I%):X%=@ENINIT%:2 SH@C%@(4):N(I%,):f%=-1: SRKq%=I%:r%(I%)=v%:d%(v%)=d%(v%)4:M$=G$(1):9(v%):L0:Y%=a0%(q%):X%=0:2 S@C%O:f%=-1 S_: SL0:Y%=a0%(q%):X%=0:2 S@C%O:f%=-1 SI%,J%,K%:I%=-1:K%=-1:J%=13-1::I%=I%+1:K%=K%+1:I%?@BHA%=K%?b%(v%):I%?@BHA%=9::I%=I%+1:$(I%+@BHA%)=J$:I%=I%+J$:K%=K%+1+G$(3):I%?@BHA%=9::I%=I%+1:K%=K%+1:I%?@BHA%=K%?b%(v%):I%?@BHA%=13: T`k:I%:x0%@(12):f%=-1: T~q%=-1a%=r%(q%)D: T$I%=0:r%(I%)=a%I%=I%+1:I%>5 TI%>5@(1):f%=-1: Tq%=I%:D: TD:q%=-1f%=-1: T3f%=-1: T6w0%(q%)=:Y%=a0%(q%):j1%=Y%:f%=2&FF:j1%=0:@C%O U  U#M:c%=133J$=$(j%+21):J$<>"" U(/:h%=6:2:G$=4(4,25,25,2):G$="":J$="": UZV:G$=""0 Un:J$=G$: U2_:j%!17=v%:J$<>G$(3)$(j%+21)=J$$(j%+21)="" U i0%=: UO:@X%=4@(3) U@X%=6@(13) U@X%>0f%=-1 UI%,b2%:N(q%,):P:Z: V{Z:I%=r%(q%):d%(I%)=d%(I%)-7:X%,Y%:E(I%):X%-2,Y%);" ":r%(q%)=-1:q%=-1:b2%=0:I%=05:w0%(I%)>b2%q%=I%:b2%=w0%(I%) V: V1N(c2%,f5%):Y%=a0%(c2%):f5%X%=@COKILL%:m1% V+X%=@CODEL%:m1%:a0%(c2%)=0:w0%(c2%)=0: V:Y:j0%:r0%="MODEM: Jvoice;Roff":r0%=0@(5):f%=-1: W v%=0MG$(3)=""MJ$=G$(3) WJ$=""#r0%:r0%=0:f%=129: W&"v%=0G$(1)="your manual entry" W03(0,"Please wait - dialling "+G$(1)," on "+J$,""):#(r0%+1),("C"+J$):h%=3:x%=3:f%=129:j0%=o%(32+128):_:F:0(j0%): Wh:h%<>3 W;j0%:#r0%:r0%=0:h%=0:x%=0:2:j0%=o%32:a1%j0%=j0%128 W 0(j0%): X Q0:a2%: X*{ݤ2:k0%::o3%:k0%=@BHA%&FFFF:k0%=@ECHELP%k0%=@ECPHON%k0%=@ECCOMP%k0%=@ECCALC%k0%=@ECSTOP%:4:A%=@BHA%:X%=@X%: Xf :=k0%: aoQ:0:19,0,4|19,1,7|:1);:1(1):"Communicator ";j$;" ";m$;" Acorn Computers Ltd 1986":1(0):0(-1,0,0) a"B(0,79,1,22):B(0,79,23,27): b (0(m0%):f3%:1(1):m0%<0m0%=o%m0% b4m0%256o%` b>6e0%=1:f3%=07:(m0%e0%)<>(o%e0%)a(f3%,m0%e0%) b\e0%=2*e0%::1(0):o%=m0%: ba(s0%,g5%):K$(s0%)="" bbg5%w%(s0%)+3,29);"F";s0%+1;w%(s0%),30);K$(s0%);5:16*w%(s0%),92:h$;:0,-128,-32:h$;:4 b bl`:t0%:b:o%=256:e0%=1:t0%=07:K$(t0%)<>"":w%(t0%)+3,29);"F";t0%+1;w%(t0%),30);K$(t0%);:o%=o%+e0% be0%=e0%*2:: cvb:B(1,37,28,31):8(10,28,31):8(19,28,31):8(28,28,31):B(42,78,28,31):8(51,28,31):8(60,28,31):8(69,28,31): c~B(L%,R%,T%,B%):d2%:28,L%,B%,R%,T%,12,26:L%,T%);n$;R%-L%-1,i$);o$;:d2%=T%+1B%-1:L%,d2%);a$;R%,d2%);a$;::L%,B%);p$;R%-L%-1,i$);q$;: cU8(e2%,T%,B%):g3%:e2%,T%);r$;:g3%=T%+1B%-1:e2%,g3%);a$;::e2%,B%);s$;: d(^ݤ0(f0%,h3%,i3%):_0%,V$::f0%=-1_0%=-1h3%,i3%);:f0%<0_0%=(100):f0%=f0%+1_0%=(f0%) dPB_0%<0V$=$(3)+" ",21):58,0);:1(1):;V$;:1(0):f0%=-1 dZh3%,i3%);:=_0% dnDݤB(f0%):_0%,V$,j3%::j3%=:h5%:@C%_0%=-1:>j3%_0%=@A%&FF dB_0%<0V$=$(3)+" ",21):58,0);:1(1):;V$;:1(0):f0%=-1 d=_0% dM@(i5%):m%(i5%):`1%,N$,S$,T$:3(`1%,N$,S$,T$+_$):4:0(100,0,0)=32: d2:h%<0P0: e'g0%(h%):N$,S$,T$:3(0,N$,S$,T$): e6P0:h%=-13(0,"","",""): eJk1%(-(h%+2)):N$:3(0,N$,"Press RETURN to leave help before using function keys","For more details refer to the User guide"): erZ3(`1%,N$,S$,T$):28,1,26,78,24:1(`1%):12,26:3,24);N$;3,25);S$;3,26);T$:1(0): e"1(`1%):`1%=01:1280:129 e e4::(0)=-1: e6(j5%):j5%f2%g2% f @C% fe3(1,"Print failed because :",$@BHA%,_$):I%::I%=B(100):I%>=@ECPHON%I%<=@ECHELP%"fx 15,1": fN(0)=32:2: fl R0: fv@HELP:h2%=h2%:h2% f j1%G0: f?h0%,k3%,h%:Q:1(1):k5%k3%=o%:`:0(k3%)b:a(6,):1(0) fFu0%=0:c:"FX 15,1"::h0%=B(100):h0%>=@ECPHON%h0%<=@ECHELP%: g#h0%=(0):h0%=32u0%=u0%+1:c: gh0%=1356(): g h0%=1676(): g* h0%=13: g>G0:!m3%=j1%:i2%: gf4c:b$:b$="":28,1,21,78,2,12:u0%>n0%(x%)u0%=0 g`v0%(x%,u0%):c$::b$;c$;:b$=13+10:c$:c$="****":n0%(x%)=0h%=-2u0%","" p .g0%(6) p;"Please enter the number that you wish to dial",">","" p p/M0:_$=" Press SPACE to continue.":m%(20) p .m%(0) p1,"Unable to save the list context screen due to lack of memory.","Please kill one or more other tasks to free enough memory so you can","enter See/Edit or Terminal " q .m%(1) q 1,"Please ensure that pointer is selecting an active terminal before using","ctrl/TERMINAL. To start a new call use CONNECT. To get to the default","active terminal, use TERMINAL on its own." q .m%(2) q 1,"There is already an active call to the entry you have selected to CONNECT","Please use TERMINAL or ctrl/TERMINAL to resume the call"," " q* .m%(3) q41,"The terminal task has a serious error, and could not issue a more","detailed error message. It should however, have freed resources and","so its worth trying again. " q> .m%(4) qH1,"There is insufficient free memory to start up a terminal task. Please","release some memory by stopping unwanted tasks and try again."," " qR .m%(5) q\1,"The phone line for this call is unavailable or not working. Please ensure","no other voice or data calls are using the line, and check that the phone","line is connected before trying again. " qf .m%(6) qp1,"Cannot start a further call, since too many are active already.","Please finish one or more of the other calls and try again."," " qz .m%(7) q1,"The directory has no record of a last number dialled.","Please choose an existing entry from the directory list or use","manual dial. " q .m%(8) q1,"You cannot delete an entry which is in use - this entry has an active","call associated with it and you need to hang up before you can delete it."," " q .m%(9) q1,"There is no room for further entries in your directory display - please","either delete an existing entry to make room, or use manual dial to call","your new number. " q .m%(10) q1,"The phone number you have entered contains an invalid character or","characters. Only ""0""-""9"", ""."", ""-"", ""("", "")"", ""/"" or "" ""","are valid. " q .m%(11) qԷ1,"You entered an invalid speed - this must be one of : 50, 75, 110, 134.5","300, 600, 1200, 1800, 2400, 3600, 4800, 7200, 9600, 19200 ( or 1200/75,","75/1200 for viewdata ). " q .m%(12) q1,"An unexpected system error has occurred - no information is available.","It is recommended that you switch off the machine and start again before","doing anything with terminals. " q .m%(13) q1,"A serious error occurred in terminal, followed by a fatal error while","trying to free resources : please turn machine off to restart."," " r .m%(14) r1,"Unable to allocate enough memory to store the directory","You will need to STOP, KILL and delete some other tasks to continue."," " r .m%(15) r$1,"You cannot have an entry with a blank name field - it would be invisible in","the directory listing. Set the type field to blank to delete the entry or","fill in the name to keep it." r. .m%(16) r81,"None of the entries currently displayed match this search.","Press F8 to restore the full list if not all are currently displayed."," " rB .m%(17) rLP1,"There are too few entries for a search.",""," " rV .m%(18) r`1,"Failed to save directory data - possibly the file is held open by a","different program. If you can clear the fault, all changes you have made","will be saved next time. " rj .m%(19) rt1,"The non-volatile ram file system cannot hold the directory. There may not","be enough room. If you can clear the fault, all changes will be saved next","time. If not, your directory will be lost. " r~ .m%(20) r1,"Your directory file has become corrupted, and will be replaced with a","default one. Occasional backup to the network is recommended to","avoid this problem. " r rN0:K$(7):K$(0)=" List":K$(1)="See/Edit":K$(2)="Terminal":K$(3)=" Connect":K$(4)=" Redial":K$(5)=" Search":K$(6)=" Print":K$(7)="Restore":o%=0: T