L/DEMO-B (C)1985 Acorn Computer E&T `H | ~h`h`H0 |LOI) LeI)`SEP*DEMO-B*!BOOT))+) )`*| *BASIC CHAIN"INIT" t*JUGOBJ* H4Hp rrɿqirsLirs ݭ4I4@35@8:@=?@BD@GI@LN@QS@VX@[]@`b@eLLݩ 4I4ssL?pLh4h0`W*TEXTAD+c  B 8,S% 500  129 1 (Vc=1:S$="Press Space Bar to hold this page":C$="Use cursor keys to change clock":5 2I M$(11),DM(11),D$(6),CX(6),CY(6),SP(6),V(6),SC(6),SL(6),MV(6),SI(75) < *FX4,1 FOI=015:S=((I*6)):SI(I)=S:SI(30-I)=S:SI(30+I)=-S:S@#I(60-I)=-S:SI(60+I)=S: P TpB Z I=0 11 d M$(I),DM(I) n I x I=0 6 ) D$(I),CX(I),CY(I),SP(I),MV(I),SL(I) SC(I)=2  I p(1,6) init *FX112,2 init *FX112,1 w(2) ܆ti:V(4)=V(4)-1:I=06:V(I)=V(I)MV(I):I:V(4)=#V(4)+1:$=D$(V(3))+","+p(4)+" "+M$(V(5))+" 19"+p(6)+"."+p(0)+":"+p(1)+":"+p(2) TP=0:SC(0)=1:L$="":SF= *FX138,0,32 ! G=(0):G>0=0:L$=""D@A SF ME2(C$):w(2):SF=  *FX15 'G=137SC(TP)=2:TP=(TP+1)7:SC(TP)=1 "'G=136SC(TP)=2:TP=(#TP+6)7:SC(TP)=1 ,G=139i(1) 6G=138i(-1) @ti J$<>L$:L$=T$:cl T">T1 SF:ME2(S$):w(2):SF= ^ >T2 h ME2("") r "CUBES" | i(d) ti TP<>4txA DM(1)=28-(V(6)4=0) MV(4)=DM(V(5)) 'V(4)=(V(4)+MV(4)+d-1)MV(4)+1:dBA #!V(TP)=(V(TP)+MV(TP)+d)MV(TP) CTP=3A$=D$(V(TP))TP=5A$=M$(V(TP))A$=(V(TP)):A$=1A$="0"+A$ *T$=T$,SP(TP)-1)+A$+T$,SP(TP)+SL(TP)) TP>2 T$=T$,15)  $=T$  =ti:T$=$:i=06:i=3 rd i=5rm V(i)=(T$,SP(i),2)) : )rd:A$=:#T$,3):J=06:A$=D$(J)V(3)=J : ,rm:A$=T$,8,3):J=011:A$=M$(J)V(5)=J &: 0Y Jan,31,Feb,28,Mar,31,Apr,30,May,31,Jun,30,Jul,31,Aug,31,Sep,30,Oct,31,Nov,30,Dec,31 : Sun,1,20,17,24,2 D Mon,4,20,20,60,2 N Tue,7,20,23,60,2 X Wed,3,21, N#1,7,3 b Thu,2,22,5,31,2 l Fri,5,22,8,12,3 v Sat,5,23,14,100,2 *ݤp(x):t$=(V(x)):t$=2 =t$ ="0"+t$  init  29,0;0; CO T1=1000:T2=1800  0,1  I=0 3  w(I) X=("FN"+(I+65))  I =0   ME2(M$)  5:i=1F#2  c=c 3:A%=112:X%=c:&FFF4  ME(M$)  :4:CO * 4LME(M$)29,0;0;:0,0:4,500:101,1279,528:640-(M$)*16,528:0,3:M$;: >CO 23,1,0;0;0;0;: H w(I) R&29,I 2*640+12;(2-(I 2))*264+12; \ f"p(A,B):19,1,A;0;19,2,B;0;: pnD(#A$):t$="":b$="":J=1A$:K=(A$,J,1)):t$=t$+(K+74):b$=b$+(K+132)::A$=t$+ĩA$,8)+10+b$+11:A$;: z J=1 A$ ?B=A$,J,1) A%=10:X%=B 256:Y%=B 256  &FFF1 , 23,224,B?1,B?1,B?2,B?2,B?3,B?3,B?4,B?4 , 23,225,B?5,B?5,B?6,B?6,B?7,B?7,B?>#8,B?8  224,8,10,225,11  J   T(A$) 60,1:-12,-4:1,628,0:1,0,484:1,-628,0:1,0,-484 0,1:36,468:D(A$) 32,472:0,2 D(A$,1)) 0,3 D(A$,2))  $CD:X%=0:Y%=Y%-1:C: .C:X%*32,Y%*36: 8F(A$,Y%) B X%=1:CfU# L C%=3:0,3 V $S%=A$ ` L%=A$ jI%=0 t ~ J%=S%?I% (J%=32K%=(X%):32*K%:X%=X%+K%:tzD !J%=33 C%=C%1:18,0,C%:tzD J%<47 J%:X%=X%+1:tzD 3K%=I%:I%=I%+1:S%?I%<47I%>=L%:X%+I%-K%>19CD 'A$,K%+1,I%-K%);:X%=X%+I%-K%:dDD  I%=#I%+1  X%>18CD  I%=L%  ݤA T("ADFS") wF("The !A!dvanced !D!isc !F!iling !S!ystem allows you to use hierarchical files on both floppy and hard discs.",6) 20,3:272,450:"$":80,354:"Games Business"  $0,2:16,258:"RACE TREK MEM#O" #0,1:160,358:288,418:464,358 /80,262:160,322:240,262:464,262:464,322 (= 2ݤB <T("BBC_BASIC") F\F("An enhanced version of !BBC BASIC!, the de facto standard in education, is used.",5) Pr0,2:32,372:"LIST IF DEF":64,332:"100 DE#F PROCinit":64,292:"500 DEF PROChelp":64,252:"700 DEF FNin(X)" Z= dݤC nT("Clock") xHO=V(0)12*5+V(1)12:13*32,9*32:1,80*SI(HO),80*SI(HO+15) /13*32,9*32:1,120*SI(V(1)),120*SI(V(1)+15) 0,1 /13*32,9*32:1,120*SI(V(2)),120*SI(V(2)+15) Ci=06:SC(i):CX(i),CY(i))T$,SP(i),SL(i));::2:3,2/*TEXTAD+c'3)"19";  "= ,ݤD 6T("Disc_interface") @OF("A !disc interface!, but not the disc drives, is fitted as standard.",4) J0,3:192,192:101,384,384 TT0,1:288,288:153,24,0:288,216:153,12,0:276,216:97,24,24:288,240:153,12,0 ^= }*TEXTEH+Z [B 8,S%500:129:S$="Press Space Bar to hold this page":5,23,2,&FAF5;&FAF5;&FAF5;&FAF5;  p(4,3) i ( "MILL" 2Ii:29,0;0;23,1,0;0;0;0;:0,3:I=03:w(I):X=("FN"+(I+69))::=0: =L%:X%+I%-K%>19 CD 'A$,K%+1,I%-K%);:X%=X%+I%-K%:dH@ I%=I%+1 X%>18CD I%=L%: ܰݤE:T("EDIT"):F("A powerful text editor, !EDIT!, is always present and can easily be used to edit #BASIC programs.",6):0,2:332,232:412,272:85,372,312:0,1:117,532,472 /0,3:544,460:384,300:564,440:404,280:= ݤF:T("Filing_Systems"):F("Tape, disk, and ROM !filing systems! are all standard. ECONET ( a local area network ) can be added.",6)#:BF(64,"IN"):BF(320,"OUT"):= BF(X,A$):Y=236:0,1:X,Y:0,128,0:113,64,96:0,3:97,-128,64:0,2:0,-64,-96:117,X,Y:0,192,160:0,-64,-96:113,0,-64:0,3:97,-128,64:0,1:X+64-(A$)*16,Y+48:A$;: ݤG:T("Graphics"):F("The many new !graphics! c#commands include circles, block move/copy and flood fills.",5):0,3:64,248:145,52,0:236,340:101,340,380:400,248:430,208:173,430,288 0,2:64,360:153,52,0:176,248:146,248:197,136,300:400,360:430,320:181,370,320:23,6,&E4;0;0;0;:460,300:21pM#,564,196:0,1:176,360:210,360:205,200,396 D236,196:318,248:117,340,300:512,360:512,412:165,564,360:= "ݤH ,T("Hardware") 6>F("Extensive use is made of the new HCmos technology.",3) @ 16,0 J 150,250 T 101,450,314 ^ 466,282 hS*TEXTEH+l 153,64,0 r 134,282 | 153,64,0  0,0  458,250  97,72,64  142,250  97,-72,64 = *TEXTIL+q [B 8,S%500:129:S$="Press Space Bar to hold this page":5,23,2,&FAF5;&FAF5;&FAF5;&FAF5; p(5,2) i  "TITLE" (Ii:29,0;0;23,1,0;0;0;0;:0,3:I=03:w(I):X=("FN"+(I+73))::=0: 2LME(M$)29,0;0;:0,0:4,500:101,1279,528:640-(M$)*16,52'#8:0,3:M$;: =L%:X%+I%-K%>19 CD 'A$,K%+1,I%-K%);:X%=X%+I%-K%:t~@ I%=I%+1 X%>18CD I%=L%: ݤI T("Interfaces") F("RGB, video, UHF, disk, cassette, parallel printer, RS423, user port,0# cartridge slots, phono, A to D, Tube, 1 MHz bus.",7) 0,3:64,300:97,28,92 .i=015:0,i 22+1:96,316+i*4:1,444,0: = ݤJ T("Joysticks") "UF("Two !joysticks! can be used with the A to D ( analogue to digital ) port.",4) ,%0,2:256,#176:0,60,0:113,32,124 616,0:0,16,0:97,-92,60 @"0,2:0,44,4:0,4,0:113,32,60 J= TݤK ^T("Keyboard") hfF("The !keyboard! has a numeric key pad, ten user definable keys, and BREAK can be protected.",5) r?23,128,&C0FF;&90AF;&A0A0;&A0A0;23z9#,129,&3FF;&9F5;&505;&505; |A23,130,&A0A0;&A0A0;&AF90;&FFC0;23,131,&505;&505;&F509;&FF03; Ck("QWERTYUI",8,396):k("ASDFGHJK",24,328):k("ZXCVBNM",56,260) = k(A$,X,Y) i=1A$:0,2:X+(i-1)*68,Y 128,129,8,8,10,130,131,11 0,3:X+(i-1)ɐ#*68+16,Y-16 A$,i,1); i  ݤL T("Larger_Memory") `F("There is 128K of !memory!. Internal coprocessors can be added if this is not enough.",5)  R(252) = _R(Y):0,1:48,Y:97,480,92:0,3:i=013:72+i*32,Y-8:97,16,8:72+i*32,*TEXTIL+ CY+92:97,16,8:i: s*TEXTMP+e  6::;" @ ";: [B 8,S%500:129:S$="Press Space Bar to hold this page":5,23,2,&FAF5;&FAF5;&FAF5;&FAF5; F p(1,3) i "RECURSE" Ii:29,0;0;23,1,0;0;0;0;:0,3:I=03:w(I):X=("FN"+(I+77))::=0: LME(M$)29,0;0;:0,0:4,500:101P#,1279,528:640-(M$)*16,528:0,3:M$;: /w(I):29,I 2*640+12;(2-(I 2))*264+12;:  "p(A,B):19,1,A;0;19,2,B;0;: nD(A$):T$="":B$="":J=1A$:K=(A$,J,1)):T$=T$+(K+74):B$=B$+(K+132)::A$=T$+ĩA$,8)+10+B$+11:A$;: x|T(A$):0,1:-12,-4:|#1,628,0:1,0,484:1,-628,0:1,0,-484:0,1:36,468:D(A$):32,472:0,2:D(A$,1)):0,3:D(A$,2)): CD:X%=0:Y%=Y%-1:C: C:X%*32,Y%*36: 3F(A$,Y%):X%=1:C:C%=3:0,3:$S%=A$:L%=A$:I%=0 3:J%=S%?I%:J%=32K%=(X%):32*K%:X%=X%+K%:TXF  J%=bp#33C%=C%1:18,0,C%:TXF J%<47 J%:X%=X%+1:TXF 4K%=I%:I%=I%+1:S%?I%<47I%>=L%:X%+I%-K%>19 CD 'A$,K%+1,I%-K%);:X%=X%+I%-K%:T]F  I%=I%+1  X%>18CD  I%=L%: ݤM T("Modem") tF("A !modem! can be fitted internally to allow exc#hange of data with other computers along telephone lines.",6) F16,0:32,236:97,100,60:0,0:44,244:97,48,16:104,244:97,16,16 s0,1:i=0300100:200+i,268:1,0,96:0,-20,20:1,40,-40::0,3:i=-161616:572,364+i:200-i,364+i::120,300 = :(#ݤN T("Non`volatile_RAM") F("Some memory is not wiped when you switch off. This remembers !twenty default settings! ready for when you next switch on.",7) O0,1:64,260:97,12,144:0,3:80,268:97,4,128:84,332:88,268:181,116,276 '0,2:124,3!#96:"On":124,300:"Off" = (ݤO 2T("Operating_system") 3aF("The !operating system! is 35K in size and allows easy access to low level facilities.",5) 40,2:CG(128,300,92) 50,1:CG(352,300,92) <= =sCG(X,Y,R):r=R*1.25:X,Y:153,R,0:N=R #*2* 48*2:i=0N-1:A=2**i/N:C=r*A:S=r*A:i 285,X+C,Y+S X,Y:0,C,S >:0,0:X,Y:153,R/4,0: FݤP PT("Phono_output") QRF("This allows you to connect the !sound output! to your audio equipment.",4) R]i=0288288:16,0:96+i,188:97,96,192: ,*TEXTMP+eu0,1:144+i,236:153,40,0:144+i,332:153,16,0:i S\16,0:224,188:97,128,40:224,236:97,128,40:0,0:244,208:153,0,12:244,256:97,88,12 Z= *TEXTQT+3,  6::;" @ ";: 4B 8,S%500:129:5,23,2,&FAF5;&FAF5;&FAF5;&FAF5;  p(4,2) (i 2"FOUNTAIN" < ("SRREAD "+~B+"+8 BFF8 4") F6$B="JUGGLER" (3)>1 "JUGGLER""CHAIN"FOUNTAIN" PIi:29,0;0;23,1,0;0;0;0;:0,3:I=03:w(I):X=("FN"+(I4F#+81))::=0: ZLME(M$)29,0;0;:0,0:4,500:101,1279,528:640-(M$)*16,528:0,3:M$;: d/w(I):29,I 2*640+12;(2-(I 2))*264+12;: n"p(A,B):19,1,A;0;19,2,B;0;: xnD(A$):T$="":B$="":J=1A$:K=(A$,J,1)):T$=T$+(K+74):B$=B$+(K+132)::A$=T$+ĩ#A$,8)+10+B$+11:A$;: |T(A$):0,1:-12,-4:1,628,0:1,0,484:1,-628,0:1,0,-484:0,1:36,468:D(A$):32,472:0,2:D(A$,1)):0,3:D(A$,2)): CD:X%=0:Y%=Y%-1:C: C:X%*32,Y%*36: 3F(A$,Y%):X%=1:C:C%=3:0,3:$S%=A$:L%=A$:I%=0 3:J%=#S%?I%:J%=32K%=(X%):32*K%:X%=X%+K%:d\@ J%=33C%=C%1:18,0,C%:d\@ J%<47 J%:X%=X%+1:d\@ 4K%=I%:I%=I%+1:S%?I%<47I%>=L%:X%+I%-K%>19 CD 'A$,K%+1,I%-K%);:X%=X%+I%-K%:df@ I%=I%+1 X%>18CD I%=L%: _R(Y):0,1:48,Y:97,4Y#80,92:0,3:i=013:72+i*32,Y-8:97,16,8:72+i*32,Y+92:97,16,8:i: ݤQ:T("Quick") j0,2:i=08016:j=i i+44:32+j,248:64+j,280:32+j,312:,:500,248:512,280:85,572,280:85,500,312 0,3:60,276:101,508,284 "GF("The BASIC interpreter and #operating system are !very fast!.",4) ,= 6ݤR:T("ROM") @|F("The 128K !read only memory! contains the operating system, ADFS, BASIC, DFS, EDIT, TERMINAL, VIEW and VIEWSHEET.",6) J R(272) T= ^ݤS:T("Shadow_memory") hF("A second '!shadow!' k#screen memory lets you use any of the 8 screen styles at no cost to program length and allows smooth animation.",7) r23,3,&A0;&50;&A0;&50; |632,0:264,300:97,116,92:0,3:224,268:97,116,92 = ݤT:T("Terminal") F("This software lets the ma*TEXTQT+nchine act as a !terminal!, usually to large or distant computers, via the RS423 port or third party modem.",7) r0,2:296,280:101,512,304:16,0:296,304:85,472,344:85,336,344:0,3:101,472,456:0,1:344,352:101,464,448 = (*TEXTUX+  6::;" @ ";: [B 8,S%500:129:S$="Press Space Bar to hold this page":5,23,2,&FAF5;&FAF5;&FAF5;&FAF5;  p(5,6) (i 2 "TITLE" =L%:X%+I%-K%>19 CD 'A$,K%+1,I%-K%);:X%=X%+I%-K%:dR@ I%=I%+1 X%>18CD I%=L%: ݤU:T("Upwards_compatible") F("Great care has been taken to ensure tha##t !nearly all! software and peripherals for the first BBC micro !can be used unmodified!.",7) *P(320,1):332,332:153,24,0:P(120,2) = SP(X,C):0,C:X,268:97,128,128:0,16,-64:153,24,0:0,0:X+64,384:153,24,0: ݤV:T("Viewsheet") "sF("T#his resident !spreadsheet! program can manipulate numerical data such as price lists or stock figures.",6) ,_23,3,&E;&E;&E;&E;23,4,&E0;&E0;&E0;&E0;:32,0:48,224:97,256,176:48,0:144,288:97,128,80 6U0,3:0,-16,-4:97,16,8:368,416:97,196,-128:0,-1(#92,80:0,0:;(899999)+100000; @= JݤW:T("Wordprocessor") TF("A !wordprocessor! called !VIEW! is in the ROM. VIEW is more suitable for documents than EDIT, which is better for program texts.",7) ^A$="VIEW":i=14:j=480-12:i*128-60+j,256+j:0^#,0:97,68,100:0,3:0,-4,-4:97,-60,-92::i*128-40,336:0,1:D(A$,i,1)): h= rݤX:T("Xpansion") |+i=044:0,i 2+1:4-i,468+i:D("e"): F("!Coprocessors!, !Econet!, and third party !modems! fit internally. !Prestel! or !Teletext!, and !secon*TEXTUX+d processors! fit externally.",7) X%=048:Y%=(X%*2/96*)*60+336:U%=672-Y%:V%=648696:0,1:69,V%+X%,Y%:1,20,0:69,V%+96-X%,U%:1,20,0:0,3:V%+X%+4,Y%:1,12,0:V%+100-X%,U%:1,12,0:, = 8+