&23,1|:W:X:E:F:I:L::Y:: x*Y:d%:d%=1(-2,0,0):d%=-17F:I: d%<128 d%=128+2`%>0P(d%): d%=128+3@>0P(d%): d%=128+4Z: d%=128+5_: d%=128+6`: d%=128+74(): d%=160+74(): $(d%>128+10d%<144)(d%=128)a:  P(k%)::k%=128+2bc "!G:(k%<>128+2)(k%<>128+3): @d:b%(16):M$(16):f%(16):u%(16):f%(1)=0:I%:I%=116:b%(I%)=0:M$(I%)="":u%(I%)=15::`%=0:"fx 4,2":"fx 225,128":"fx 226,144":"fx 227,160":"fx 228,0":"fx 229,1":p0%=:N$="Carousel V1.00":e$="RAM:!S.":g%=0:e%=0:p%=0: `:`%=0 *e0%:e0%=2(b%(a%)):e0%=0eH(e0%,)  Ne:W$,f0%,I%,_0%:W$=3(4,25,4,5):3(0,"","",""):(W$="")(_0%=128+8)@: +f0%=(W$):(f0%<1)(f0%>@+1)1(0):@:  fI%=16f0%+1-1:f%(I%)=f%(I%-1):u%(I%)=u%(I%-1)::f%(f0%)=b%(a%):u%(f0%)=15:J:B:@:@=16(g%+4) n xH(e0%,b2%):e0%<16f f%(16)=0:J:b2%B @=06(4)  L%:=0 $ݤ@:I%:I%=1::f%(I%)=0:=I%-1 I%=I%+1:I%>16:=16 &)g(q%):I%:3-1,q%+2);" ";M$(q%);: Nh:q%:`%=0 lq%=1`%:g(q%):: B:q%:`%=0 2q%=1`%:I%=2(b%(q%)):74,q%+2);:I%<10" "; I%<=0" ";;I%; : 7ݤ7:_%,S$:S$="RAM:!S."+"ALTERED":_%=(S$):_%=0= *#_%:K(S$):= HI:a%=1:M:7:p%=0:@: 27:r%:23,1|:h:B:8:r%=25664:@>0r%=r%4 `%>0r%=r%21632 (`%>0)(`%<16)r%=r%8 r%<>g%6(r%) `%>0e%=0e%=3  NF:3(0,"Please wait while loading screen information ...","",""):i:j: L$i:I%:`%=0:I%=116:k(I%):: "DATA:")(h%)2(_%,"")  H$="TITLE:"N$=J$:q0%= H$="TIME:"G$=J$:y0%= *h%(H$="DATA:")(q0%y0%):q0%#_%: 2(N$)>=48-3N$=N$,48-3-1) < (G$)>=74-48G$=G$,74-48-1) FM`%=`%+1:M$(`%)=N$+48-3-(N$)," ")+G$+74-48-(G$)," "):b%(`%)=j1%:#_%: xAj:_%,I%,J%,J$,h%:_%=("RAM:!S."+"CAROUSEL"):_%=0f%(1)=0: 7I%=1::2(_%,","):J%=(J$):8(J%)f%(I%)=J%:I%=I%+1 +2(_%,""):h%(I%>16):(I%<=16)f%(I%)=0  #_%: Hݤ8(`0%):I%,z0%:I%=1::z0%=(b%(I%)=`0%):I%=I%+1:(I%>`%)z0%:=z0%: ^)a:d%-(128+11)m,n,o,pd%=128q r | m:  n: o:a%<`%C:a%=a%+1:8  p:a%>1C:a%=a%-1:8  q:C:a%=1:8: 8:`%=0 &!0(1):3-1,a%+2);f$;:0(0): NC:3-1,a%+2);" ";: l ݤ4:p0% _1%:d2%=@Y%:@C%= `1%:e2%=@Y%:@C%r0%:= k1%=g%:p0%=:= G:e%=0:p0% 9g%=k1%:Y%=e2%:a1%:@C%"Unable to restore context":  1Y%=d2%:r0%:@C%"Unable to restore screen": >p0%=:@:6(k1%): f_:`%=0 z5_%,I%:K(0(b%(a%))):I%=2(b%(a%)):I%>0H(I%,) a%<`%ra%=a%-1 2`%=`%-1:7:3-1,`%+1+2);74-3+3," ");:`%=0@  ;r:I%:I%=a%+1`%:b%(I%-1)=b%(I%):M$(I%-1)=M$(I%):: $K(S$):("delete "+S$): BZ:`%=0 V`%=161(1):@: `4X$,Q$,G$,s%,_0%:Q$=3(4,25,40,4):_0%=128+8@: ~e%=2:@:9s  7:@: 5ݤ9:i%,m%:s%=1::i%=(0(s%)):i%<>0#i%:s%=s%+1 "(i%=0)(s%>16):s%>161(2):=  "i%=(0(b%(a%))):i%=01(3):= #m%=(0(s%)):m%=0#i%:1(4):= 2%t:Q$<>""#m%,("TITLE:"+Q$+13); F&X$<>""#m%,("EMULATION:"+X$+13); PO23,1|:G$=$(3):#m%,("TIME:"+G$+13);:#m%,"DATA:";:#i%#m%,#i%:#i% (#i%:#m%:m%=(0(s%)):m%=01(5):=  #m%:= Bt:H$,J$,h%::2(i%,":"):H$=J$:(H$<>"DATA:")(h%)2(i%,"") H$="EMULATION:"X$=J$ h%(H$="DATA:"): "s:(Q$)>=48-3Q$=Q$,48-3-1) , (G$)>=74-48G$=G$,74-48-1) 6G`%=`%+1:M$(`%)=Q$+48-3-(Q$)," ")+G$+74-48-(G$)," "):b%(`%)=s%: ^)M:g0%,I%,m1%,a$,k0%:g0%=@:g0%<1 hI%=1g0%:k0%=A(I%):m1%=b%(I%):a$=M$(I%):b%(I%)=b%(k0%):M$(I%)=M$(k0%):b%(k0%)=m1%:M$(k0%)=a$:I%: 9ݤA(f2%):n1%,J%:n1%=f%(f2%):J%=1::b%(J%)=n1%:=J% &J%=J%+1:J%>`%: '6b:e%,p%,s0%,c%,_0%,a0%,t0%:41(6):@:k%=-1: '.2p%=1:g%=1464128:D(b%(a%)):k%<>0G:1(3): 'V:s0%=:a0%=39:(c%=2)(c%=5)a0%=19(c%=0)(c%=3)a0%=79 't&(c%=3)(c%=6)(c%=7)t0%=23t0%=31 '~u(b%(a%)):s0%v(b%(a%)) ' k%=_0%: ' ݤ0(g2%):=e$+"SCREEN"+(g2%) ':D(`0%):_%,C%,p$,H$,J$,h%:k%=-1:_%=(0(`0%)):_%=0 '4:2(_%,":"):H$=J$:(h%)(H$<>"DATA:")2(_%,"") ('h%(H$="DATA:"):H$<>"DATA:"#_%: ((C%=#_%:#_%#_%: (< c%=#_%:(c%<0)(c%>7)#_%: (P!c%:23,1|:#_%#_%:#_% (n#_%:k%=0: (%2(_%,g$):C%:J$="":h%=#_%:h% ((:C%=#_%:h%=#_%:C%>=32J$=J$+(C%) ( (C%<32)h%(g$,(C%))>0): (%v(`0%):n%:n%=(0(`0%)):n%=0 )"n#n%,("TITLE:"+M$(a%),48-3)+13);:#n%,("EMULATION:");:c%=7#n%,("VIDEOTEX"+13);#n%,("TELETYPE"+13); )@23,1|:#n%,("TIME:"+$(3)+13);:23,1,1|:#n%,("DATA:"+22+(c%));:D%!(&E0)=n%:D%!(&E0+2)=h2%:D%?(&E0+5)=32:c%=7D%?(&E0+6)=255D%?(&E0+6)=127 )4(c%=3)(c%=6)(c%=7)D%?(&E0+7)=24D%?(&E0+7)=31 )(D%?(&E0+8)=a0%+1:b1%:#n%:n%=0:@C% ) )ݤB(o1%):o1%=128+1= )o1%=128+3=(@>0) )= );u(`0%):C%,m0%,X%,Y%:N::C%=(100):C%=128+79(): *0C%=160+79(): *: C%=128+8D(`0%):N:s0%=: *DC%=12830:X%=0:Y%=0 *NC%=27m0%=m0%: *X(C%>=32)(C%<127)O(C%) *bC%=127O(&FF) *lC%=128+12w *vC%=128+13Q *C%=128+14R *C%=128+15x *C%=13X%=0 *31,X%,Y%:B(C%):_0%=C%: *&N:30:23,1,1|:X%=0:Y%=0:m0%=: + 'O(C%):(X%=a0%)(Y%=t0%)(c%<>7) + m0%m0%=:(C%&1F)&80C% +*Q:s0%=: +HQ:X%0X%=X%-1: +Y%>0X%=a0%:Y%=Y%-1 + +R:Y%0Y%=Y%-1 + +mݤ3(X%,Y%,W%,i2%):O$,C%,J%,p1%:p1%=e%:e%=i2%:@:O$="":J%=0:23,1,1|::C%=1(100,X%+J%,Y%):C%=128+74() ,LC%=160+74() ,V%C%=160+7C%=128+7X%,Y%);O$;: ,`?C%<>127J%=0O$=O$,(O$)-1):J%=J%-1:X%+J%,Y%);" ": ,j2(C%=13)(C%=128+8):_0%=C%:23,1|:e%=p1%:=O$ ,t&C%=21J%=0:O$="":X%,Y%);(W%): ,~C%<32C%>127 ,J%=W%7: ,/O$=O$+(C%):X%+J%,Y%);C%;:J%=0;(W%-1) ,J%=J%+1: ,c:@=0k%=-1: ,"M:7:p%:41(6):@:k%=-1: -p%=4:g%=164:y: -(Sy:C%,n0%,b0%,g0%,u0%,c1%,c%:u0%=:b0%=1:n0%=0:g0%=@:c1%=::u0%D(f%(b0%)) -C%=(100):C%=128+79(): -C%=160+79(): -C%=128+1k%=C%:c1%= -Bn0%=n0%+1:u0%=n0%>=u%(b0%):u0%n0%=0:b0%.z2%:LDA#17:COP:EQUB@OPWRC%:LDA&E0+9:COP:EQUB@OPWRC%:LDA#17:COP:EQUB@OPWRC%:LDA&E0+9:#&80:STA&E0+9:A#7:COP:EQUB@OPWRC%:RTS:WRD&30 ?.`1%:COP:EQUB@OPSCX%:RTL ?.a1%:COP:EQUB@OPRCX%:RTL ?._1%:COP:EQUB@OPSSC%:RTL ?.r0%:COP:EQUB@OPRSC%:RTL ? .t1%:LDA#126:COP:EQUB@OPOSB% ?/.f3%:LDA#@EVPRE%:COP:EQUB@OPAEV%:RTL:WRD&20 @$.e1%:RTL:]:r1%:`1%=`1%+@WRDAM%+@WRDXY%:a1%=a1%+@WRDAM%+@WRDXY%:_1%=_1%+@WRDAM%+@WRDXY%:r0%=r0%+@WRDAM%+@WRDXY%:t1%=t1%+@WRDAM%+@WRDXY%:b1%=b1%+@WRDXY%+@USED%:e1%=e1%+@WRDAM%:e1%:D%=@D%: N ?z:v%(4,3):w%(4):w%(0)=1:w%(1)=1:w%(2)=0:w%(3)=0:w%(4)=0 Np .v%(0,0) NzM"To select or Use the cursor keys to select a screen and" NP"change carousel sequence press F6 (Select). Type in the position you" NS" would like the screen to appear in the carousel" NP" and press RETURN. You will see the position" NS" number on the far right hand side of the screen" N"" NQ"To start the carousel Make sure you have assigned carousel positions" NL" to the screens you have saved. Press F3" N," (Start)." N"" NN"To see and/or edit a screen Position the pointer to the screen name and" N8" press F2 (See/Edit)." N"" NN"To take a screen out of a Position the pointer to the screen name and" O6"carousel sequence press F6 (Select)." O "****" O .v%(0,1) O$N"To delete a screen Position the pointer to the screen name and" O.6" press F5 (Delete)." O8"" OBQ"To print the list of Make sure the Communicator is connected to the" OLO"screen names printer and press F7 (Print) or Ctrl-F7 for" OV;" full graphics printing." O`"" Oj3"To stop the carousel and Press F1 (List)." Ot "restore the carousel menu" O~ "****" O .v%(1,0) OL"To edit text displayed Move the cursor by using the cursor keys." ON" Type new text on top of the existing text." OP" On videotex screens colour changes and other" OQ" display controls are entered by typing ESCAPE" OO" followed by a character. See documentation" OB" for a list of these characters" O"" O3"To return to the carousel Press F1 (List)." O "menu" O"" OQ"To print the screen Make sure the Communicator is connected to the" PO"displayed printer and press F7 (Print) or Ctrl-F7 for" P ;" full graphics printing." P"" P6"To restore the original Press F8 (Restore)." P("version of the screen" P2 "****" P< .v%(1,1) PFQ"To start the carousel Make sure you have assigned carousel positions" PPL" to the screens you have saved. Press F3" PZ," (Start)." Pd"" Pn "****" Px .v%(2,0) P "****" P .v%(3,0) P "****" P .v%(4,0) P6"You are running the carousel of stored screens." P"" P3"To stop the carousel and Press F1 (List)." P "restore the carousel menu" P"" PQ"To print the screen Make sure the Communicator is connected to the" PO"displayed printer and press F7 (Print) or Ctrl-F7 for" P;" full graphics printing." P"" Q "****" Q Q@0:c0%(6) Q, .c0%(0) Q6N"To select a screen Use cursor keys | To duplicate a screen F4" Q@N"To See/Edit a screen F2 | To delete a screen F5" QJN"To start Carousel F3 | To amend carousel sequence F6" QT .c0%(1) Q^ .c0%(2) Qh/"Copying to the new screen - please wait." Qr"" Q|"" Q .c0%(3) Q!"There are no saved screens" Q"" Q3"Please press STOP to return to the Main Menu" Q .c0%(4) Q4"Please enter the title for the copied screen:" Q">" Q"" Q .c0%(5) QP"Please enter the position in the carousel where this screen is to appear:" Q">" Q"" Q R.00:b$="Press SPACE to continue.":x%(15) R& .x%(0) R0Q 1,"The new carousel sequence number must be between 1 and one greater than" R:5 "the current highest carousel sequence number." RD " " RN .x%(1) RXP 1,"You cannot copy a screen because the list already contains the maximum" RbM "number of entries. Delete some other screen and then use Copy again." Rl " " Rv .x%(2) RT 1,"You cannot copy a screen because the maximum number of screens has already" RM "been stored. Delete some other screen first and then use Copy again." R " " R .x%(3) RL 1,"There has been a problem in reading the screen you have requested." R "" R " " R .x%(4) RK 1,"There has been a problem in saving the screen you have requested." R "" R " " R .x%(5) RM 1,"There was no space available to copy the screen you have requested." S? "Delete some other screen first and then use Copy again." S  " " S .x%(6) S P 1,"There is no memory available to save the list screen. In order to run" S*@ "Carousel fully, delete some other task at the main menu." S4 " " S> SH10:K$(7):K$(0)=" List ":K$(1)="See/Edit":K$(2)=" Start ":K$(3)=" Copy ":K$(4)=" Delete ":K$(5)=" Select ":K$(6)=" Print ":K$(7)="Restore ": aoE:0:19,0,4|19,1,7|:1);:0(1):"Communicator ";N$;" ";h$;" Acorn Computers Ltd 1986":0(0):1(-1,0,0) a"A(0,79,1,22):A(0,79,23,27): b (6(d0%):u1%:0(1):d0%<0d0%=g%d0% b4d0%256g%S b>2t%=1:u1%=07:(d0%t%)<>(g%t%)T(u1%,d0%t%) b\t%=2*t%::0(0):g%=d0%: bT(h0%,`3%):K$(h0%)="" bb`3%j%(h0%)+3,29);"F";h0%+1;j%(h0%),30);K$(h0%);5:16*j%(h0%),92:c$;:0,-128,-32:c$;:4 b bjS:i0%:U:g%=256:t%=1:i0%=07:K$(i0%)<>"":j%(i0%)+3,29);"F";i0%+1;j%(i0%),30);K$(i0%);:g%=g%+t% bt%=t%*2:: cvU:A(1,37,28,31):5(10,28,31):5(19,28,31):5(28,28,31):A(42,78,28,31):5(51,28,31):5(60,28,31):5(69,28,31): c~A(L%,R%,T%,B%):f1%:28,L%,B%,R%,T%,12,26:L%,T%);i$;R%-L%-1,d$);j$;:f1%=T%+1B%-1:L%,f1%);Y$;R%,f1%);Y$;::L%,B%);k$;R%-L%-1,d$);m$;: cU5(g1%,T%,B%):v1%:g1%,T%);n$;:v1%=T%+1B%-1:g1%,v1%);Y$;::g1%,B%);o$;: d(Tݤ1(y%,w1%,x1%):o%,T$::y%=-1o%=-1w1%,x1%);:y%<0o%=(100):y%=y%+1o%=(y%) dP@o%<0T$=$(3)+" ",21):58,0);:0(1):;T$;:0(0):y%=-1 dZw1%,x1%);:=o% dn@ݤ6(y%):o%,T$,y1%::y1%=:a3%:@C%o%=-1:>y1%o%=@A%&FF d@o%<0T$=$(3)+" ",21):58,0);:0(1):;T$;:0(0):y%=-1 d=o% dM1(b3%):x%(b3%):o0%,R$,U$,V$:3(o0%,R$,U$,V$+b$):L:1(100,0,0)=32: d@:e%<020: e'c0%(e%):R$,U$,V$:3(0,R$,U$,V$): e620:e%=-13(0,"","",""): eJx0%(-(e%+2)):R$:3(0,R$,"Press RETURN to leave help before using function keys","For more details refer to the User guide"): erZ3(o0%,R$,U$,V$):28,1,26,78,24:0(o0%):12,26:3,24);R$;3,25);U$;3,26);V$:0(0): e"0(o0%):o0%=01:1280:129 e eL::(0)=-1: e4(d1%):d1%v0%w0% f @C% fe3(1,"Print failed because :",$@BHA%,b$):I%::I%=6(100):I%>=@ECPHON%I%<=@ECHELP%"fx 15,1": fN(0)=32:@: fl 60: fv@HELP:h1%=h1%:h1% f z1%30: f>z%,_2%,e%:E:0(1):c3%_2%=g%:S:6(_2%)U:T(6,):0(0) fCj0%=0:V:"FX 15,1"::z%=6(100):z%>=@ECPHON%z%<=@ECHELP%: g!z%=(0):z%=32j0%=j0%+1:V: gz%=1354(): g z%=1674(): g* z%=13: g>30:!`2%=z1%:i1%: gf3V:Z$:Z$="":28,1,21,78,2,12:j0%>w%(p%)j0%=0 g]v%(p%,j0%):_$::Z$;_$;:Z$=13+10:_$:_$="****":w%(p%)=0e%=-2j0%