ZXTape! 0Created with Ramsoft MakeTZXRADIO2 iH 1:1::7 J5,6;"VOLUME SET CORRECTLY";10 ,10 ;"PLEASE WAIT"  1 ( "RADIO21" )RADIO21 ?ecz Ae "RADIO21" 'a$=" " o$=" ":t$=" ":i$="*" Mt()=(65536*23674z\+256*23673y\+23672x\)/502 ( 1700 d2200: TITLE  i 2750 j 1450 k4st=1:fn=10 :re=1860D:1800 l 2420t nps=11 :1500 x 2500 } 1700 2600( : STAR TREK  ps=46.:1500 2800 1700 2900T ps=491:1500 :0:2 re=9002*#:1000 /ik=2:l=5:c=28:2350. ps=524:1500 $6:re=9003+#:1000 4st=1:fn=14:re=1870N:1800 " "180 1700 3400H 4650* ps=27:1500 3500 1700 4st=1:fn=19:re=1884\:1800 4190^ 4350 ps=8:1500 3600 3st=1:fn=5:re=1905q:1800 4450b ps=535:1500 44000 ps=75K:1500 &0:0::4:1 .f=90102#90146#:re=f:1000:f  0  4500 "ps=9 :1500 , 4600 -\f=6498165147{2:f,((f)-6):(f+1),((f+1)+1):f 6ps=40(:1500 @:5:2015 J4st=1:fn=17:re=1920:1800 O 5050 T 4700\ ^" "350^ c 1700 h 4900$ i\f=6498165147{2:f,((f)+6):(f+1),((f+1)-1):f mps=32 :1500 r&0:0:4:1: |re=9024@#:1000  0 ps=60<:1500  6000p  1550 "NEXT"  e=(=" ")  UPDATE  fl=(fl-20*(e=1)) #fl0fl=0:e=0 #s=s-.2~L+.4L*(e=0) h=(h-s*2) h>190h=190 ]19,21;(s*5)/5;t$;19,27;fl;o$;19,14;h;o$ !l=(20-h/10 ) &(h1-h)>9 l1=(20-h1/10 ):1;l1,4;t$;l1+1,4;t$:l,4;1;x$;l+1,4;y$:h1=h:(l1/4)w800  0h<4700 :d0900 Dfl=0510 X 490  GAME OVER  19,14;" 0 "  cr=0 s2cr=1 ~cr=119,4;6;1;t$;18,4;t$;20,4;"";21,4;2;t$ gcr=019,4;6;1;x$;20,4;y$;21,4;2;t$ f=1300,:f   w=(l1/4):2 *@f=7-w7+w:f,21-w;a$(1+2*w):f 4 0:  DEMO RUN  e=d(d)  d=d+1 d=44,  505   DATA READ  re x1,y1,xs,ys,cs,d$ L LETTER SUB  Va=23306 [ `"a,x1:a+1,y1:a+2,xs ja+3,ys:a+4,cs t a=a+4 ~i=1̱d$:a+i,d$(i):i a+i,255 64512  x DRAW MAN  f=010 ln+f,cm;m$(f+1) f   MAN DATA  m$(11 ,8)  1491 f=111  m$(f):f  /" "," "," ",""," " >""," "," "," "," "," "  UNCONDITTIONAL  t(),80P,1,2,7,"NOT the voice tape"  ZERO TIME  f=23672x\23674z\  f,0 f   CHANGE   re  f=stfn g=07 &n:(f+96`)+g,n 0g:f : D=0,0,0,0,1,255,n,1 E+0,n,1,3,255,n,n,n F'0,n,n,128,255,n,n,n G%0,n,n,n,n,255,n,0 H)7,3,1,0,n,n,n,n IN192,224,240,248,127,63?,31,15 JF14,28,568,112p,254,255,n,254 K50,n,n,n,127,255,127,7 L%0,n,n,n,255,n,n,0 M50,n,n,n,255,254,255,0 N00,n,n,n,1,3,7,15 O-3,15,63?,255,n,n,n,n P9255,n,249,240,249,255,n,n QQ128,224,240,248,252,252,252,248 R/31,63?,n,127,n,255,n,n S?254,248,224,192,128,n,0,n T#0,n,n,n,n,1,n,3 U)255,n,n,n,n,254,n,252 V0,n,n,n,n,n,n,3 W@3,7,7,15,31,63?,255,n X1252,n,248,n,240,n,224,n Y315,31,n,63?,n,n,31,7 Z?255,n,n,254,252,248,224,0 ['192,128,0,n,n,n,n,n \30,n,n,n,3,15,63?,255 ]-3,15,63?,255,n,n,n,n ^=0,1,3,n,1,7,15,27 _G0,128,192,n,128,224,240,216 `E513,3,7,6,14,12 ,28,0 aL204,192,224,96`,112p,480,568,0 b?15,63?,127,n,248,240,n,248 c>240,252,254,n,31,15,n,31 d-127,n,63?,15,0,n,n,n e/254,n,252,240,0,n,n,n fJ3,6,12 ,24,480,127,255,127 g0,n,n,n,n,255,n,n h8480,24,12 ,6,3,0,n,n i/62>,127,65A,n,n,127,n,n jF255,n,31,207,111o,46.,96`,192 kE255,n,252,249,251,250,3,1 l255,n,n,n,n,n,0,n mG255,n,7,115s,219,139,216,112p nG255,n,193,156,182,162,546,28 q)0,n,1,n,3,n,7,n r.15,n,31,n,63?,n,127,n s1128,n,192,n,224,n,240,n t1248,n,252,n,254,n,255,n u#0,n,n,n,2,n,7,n 240,n,n,0,n,n,n,n %0,n,n,240,n,0,n,n 0,n,n,n,n,240,n,n 15,n,n,0,n,n,n,n $0,n,n,15,n,0,n,n 0,n,n,n,n,15,n,n 255,n,n,0,n,n,n,n %0,n,n,255,n,0,n,n 0,n,n,n,n,255,n,n &15,n,n,0,n,255,n,n '240,n,n,0,n,255,n,n &255,n,n,0,n,15,n,n '255,n,n,0,n,240,n,n I7,15,27,513,99c,127,99c,513 R224,240,216,204,198,254,198,204  527,15,n,n,28,568,112p,n 6216,240,n,n,568,28,14,n 5:5:5:  64511 " "64512,735  10  PLANETS PIC  0:0:5: re=20993:1000  4  2090* f=11 21 p$:f,0;p$ f f=37 p$:f,22;p$ f  1  f=16 %l,c:l,c;ٺ(*2)+6;"*" f f=110  %l,c:l,c;ٺ(*2)+6;"." %f ( 0 ) *1"","","","","","" +*"","","","","" ,," ","","",""," " /i4,2,7,29,11 ,24,13 ,12 ,21,26,2,13 016,20,13 ,16,18,8,2,6,19,15,15,28,2,31,7,10 ,7,20,11 ,7 3840(,0,2,2,8,"STANDING BY"  TITLE PAGE  0:0::6 .4,3;"Introducing Science Extra" f=03 re=f+2290:1000 f  810 ,62>,3,3,8,"USING YOUR" 632 ,95_,3,3,8,"COMPUTER" :82R,130,1,2,7,"Broadcast 2" A67C,155,1,2,7,"""Does it think?"""  Q-MARK  ,d$="?":xs=1:ys=2:1100L  1 f=1no Py1/8,x1/8;0;o$;y1/8+1,x1/8;o$:10 $Py1/8,x1/8;5;o$;y1/8+1,x1/8;o$:10 )f:0: .  2 1:ik 3f=15 BBl,c;0;t$;l+1,c;t$;l+2,c;t$;l+3,c;t$ C 10 G9l,c;t$;l+1,c;t$;l+2,c;t$;l+3,c;t$ H 10 Lf Q 0: V 1:ik Wf=1no X6l,c;0;a$(lo);l+1,c;a$(lo):10 Y-l,c;a$(lo);l+1,c;a$(lo):10 Zf:0: ` COMPUTER  ef=110 jl+f,c;f$(f) kf l t"2440 :f$(10 ,8) yf=110 ~f$(f) f  A"","",f$(f-1),f$(f-1),f$(f-1) 8"","","","",""  Y/N  7 l,c;". " z=0:2490 7k121yk110n.5,1:2465 l,c;k ky=k z=1:2490 #k=12 l,c;". ":2465 *k13 .5,1:2475  ""2490 23560\,0 l,c+z;1;"_":10 l,c+z;1;"_":10 "23560\=02492 k=23560\  2000 f=11000 &13 ,12 ;" ":10 =" " /13 ,12 ;7;"* .":25 =" " f ( STAR TREK  2 3 <f=18 AH9 ,32 -f;e$(1,f);10 ,32 -f;e$(2,f) B 5 Ff Kf=2310 -1 P89 ,f;e$(1);" ";10 ,f;e$(2);" " Q 5 Uf Zps=31.5|:1500 \@9 ,10 ;a$(8);10 ,11 ;a$(5) `64813- a e$(2,8) e$(1)=" " e$(2)=" "   AM I INTELLIGENT  :6 %ln=3:cm=12 :1400x $4:re=9000(#:1000  5 "2y1=8:x1=120x:no=3:2300 ,$3:re=9001)#:1000 1&y1=8:x1=120x:no=1 223560\,0 6g=11000 ;%2300:23560\=32 @g T FUEL COMPANY  U Y1:5 Z 3200 ^1f=021:f,0;a$(16):f rf=13 wp$:f,1;p$ |f f=619 p$:f,2;p$ f ps=10 :1500 0:2 f=221 p$:f,25;p$ f !7:lg=7:3300 2f=14:f+11 ,18;b$(f):f ,9 ,5;6;1;"`O:OO" 3no=22:x1=240:y1=0:2300 f=12 17 4g=41-1:f+g,18;b$(g):g f,18;a$(7) 10 f f=31-1 g=f1-1 !21-f+g,18;b$(g):g #21-f,18;a$(7)  10 :f !21,18;a$(7) !2:lg=8:3300 &2g=15:g+11 ,17;b$(g):g +no=7:2300 0f=12 16 54g=51-1:f+g,17;b$(g):g :$f,17;a$(8):10 ?f Df=41-1 Ig=f1-1 N!21-f+g,17;b$(g):g O021-f,17;a$(8):10 :f P!21,17;a$(8) X 6 ]no=3:2300 b3f=14:c$:11 +f,17;c$:f lno=13 :2300 m 2 q*f=15:c$:f,17;c$:f v6,22;"" wno=5:2300 { D"","Fuel Company","" .""," ",p$,p$,p$,p$,p$ "","" ."","","" " ","" E" "," "," "," "," " " " 3" "," "," "," ","" 3""," ","",""," " p$,p$,p$,p$ -"","BILL ","`O:OO",""," " 8"","FINAL ","DEMAND","`O:OO ","" -"","CHEQUE","`O:OO ","" >"","COMPUTER"," ERROR! ",""," " b$(5,lg) f=15 b$(f):f  H BRICK PIC  R1:1: \ 0 f2f=9 13 :f,21;a$(10 ):f p3f=1418:f,11 ;a$(20):f z2f=1921:f,1;a$(30):f 2 1f=1618:f,2;a$(7):f $17,3;7;"BRICK" 55:1:l=3:c=12 :2400` 6:1 g6,26;"";7,26;"";8,26;"";9 ,26;"" 0 P10 ,25;"";11 ,24;"";12 ,23;""   I DO AS I'M TOLD  w$="I do as I'm told!" &0:1:0::4 f=021 f,7;w$ =" "3570 f :3530 0:  FACTORY  4:4: $pp=4:4000 .%k=1:k1=120x:4100 /$k=1:k1=80P:4100 8f=12 162 BQf,19;1;4;"";f+1,19;"" Lf V&k=81Q:k1=120x:4100 W$k=1:k1=24:4100 [ 4 `65200 e(f=12 17:f,31;o$:f j" "3690j o 1700 t&k=25:k1=120x:4100 u$k=1:k1=16:4100 ~ 4200h &k=17:k1=120x:4100 $k=1:k1=24:4100  3900<  4300 ps=46.:1500 1:1: pp=1:4000 a15,3;g$(1,1937%);16,3;g$(2,1940() 6:1 %ln=7:cm=22:1400x  <4:1 Ag=123 Ff=13 KY12 ,16;f$(1,ff+10 );13 ,16;f$(2,ff+10 ) PY15,16;f$(1,ff+10 );16,16;f$(2,ff+10 ) Zf _g ` f=1 dY12 ,16;f$(1,ff+10 );13 ,16;f$(2,ff+10 ) iY15,16;f$(1,ff+10 );16,16;f$(2,ff+10 )   0 2f=11 19:f,1;a$(14):f &f=610 :f,1;t$:f O9 ,3;0;pp;" ";10 ,3;""  2 C17,2;"";18,2;""  4090 2f=16:l,c:l,c;7;pp;"O":f  a5,2,4,2,3,3,2,4,1,4,0,5  0 g=kk18 W15,3;g$(1,gg+17);16,3;g$(2,gg+17)  7 g15,3;g$(1,g+1g+20);16,3;g$(2,g+1g+20)  7 g15,3;g$(1,g+2g+23);16,3;g$(2,g+2g+23)  7 g15,3;g$(1,g+5g+24);16,3;g$(2,g+5g+24)  7 "g ^-g$(2,144):f$(2,15) _g$(1)="                      " `g$(2)="   " af$(1)=" " bf$(2)=" " c h4:1 m 4250 rf=08 |c$:f,16;c$ f  " " " " "" " " "" "`5 " "" "" "" 4:1 g=13 f=211-1 17,16;r$(1,ff+15);18,16;r$(2,ff+15);19,16;r$(3,ff+15)  2 f g f=2115-1 17,16;r$(1,ff+15);18,16;r$(2,ff+15);19,16;r$(3,ff+15)  2:f  r$(3,36$) #r$(1)=a$(16)+" "  #r$(2)=a$(16)+""  #r$(3)=a$(16)+""  0  DUNCE  :f=15 D ln-6+f,cm+1;h$(f) Nf ON1;cm*8+12 ,175-ln*8:1;35#,0 Sln+2,cm+2;"" X b!h$(5,9 ):4490 lf=15 v h$(f):f  " " " " " "  " "  ""  MATHS SUM  " "4500  1700 an=((2**(3.02AG)+18.5*(2*)/100d)+(2.52!G)*25.3Jfff+8.5*(2.7181-Y)/25.6L+0.01z# =*2E30I/1.45E25?2*2+345.2,)*6.4L+(34"/180*)/4*((4.6333))/100d $7:re=4550:1000 d$=an "x1=96`:2:1100L Ino=10 :l=20:lo=9 :c=12 :ik=2:2390V  080P,160,1,2,8,"="  RANDOM NUMBERS   :7 f=021910 g=110  l(f+g),c(f+g);n$(g) g:f &f=021:f,0;a$:f  4 re=9020<#:1000 re=9021=#:1000   **n$(10 ):l(220):c(220) 4f=1220 >(l(f)=(*22):c(f)=(*32 ) Hf I(f=09 :n$(f+1)=f:f R \ CRASH + MISS  f 2 pe$(2,3) z&e$(1)=" ":e$(2)=" " ps=61=:1500 f=295-1 115,f;e$(1);16,f;e$(2)  3 f +15,5;t$;16,5;t$ 64813- :5:2015  2 ps=70F:1500 f=290-1 /8,f;e$(1);9 ,f;e$(2)  2 f )8,0;t$;9 ,0;t$  1 re=9023?#:1000 Fno=8:ik=2:l=8:c=0:lo=5:2390V  0  $ DARLEK  )1:1:6: .f=020 8f,11 ;b$(f+1) Bf C&21,17;"" G4#1;0,19;" " L.#1;1,23;"" Q 2 V(x$="":y$="EXTERMINATE!" [f=120 `I9 ,2;a$(14);4,7;a$(12 ):20 j<9 ,2;x$;4,7;7;y$:20 tf ~ #b$(21,24):5070 f=121:b$(f):f  " " " " " " " " " " " " " " " " " " " " "" " " " " " " " " " " " " " " " " " " " " p LANDER  z7000X:7200   6500d ps=106j:1500  7300 7000X:7200   500  6300 ky=121y6040    ANOTHER GO   0: 4:re=9030F# $cr=12:re=9031G#  1000 $5:re=9032H#:1000 re=9033I#:1000 $l=15:c=15:2450  d  DEMO  n d(45-) x 6600 f=145-:d(f):f  d=1  500 19,14;"0" f=1300,:f  d=0  ȡ0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1 ҡ0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,1,1,1 )1,1,1,1,1  X SET SCREEN  b0:0: l 1 v1f=021:f,0;a$(10 ):f {+21,1;2;" " |62,4;6;"";3,4;"" 0:5 +0,11 ;"" <f=113 :f,11 ;" ":f ,14,11 ;"" =f=1520:f,11 ;" ":f ,21,11 ;""  6 7,21;2;o$ M16,13 ;"Height Speed Fuel";17,14;"(m) (m/s) (l)" '19,14;"180 0.0 500"    SET VARIABLES  *e=0:s=0 4h=180:fl=500 9h1=h : w=0 >x$="":y$="" z  INSTRUCTIONS   0: $6:re=7390:1000 <4:f=14:re=7390+f:1000:f $2:re=7395:1000 $5:re=7396:1000 -#1;1,6;"Press SPACE key" " "7360  920,0,2,2,8,"INSTRUCTIONS" J8,30,1,2,7,"Use the SPACE key to fire the" I8,546,1,2,7,"rockets so that you land the" F8,78N,1,2,7,"lunar module at less than" B8,102f,1,2,7,"2 metres per second." P8,126~,1,2,7,"If you land faster you will CRASH!" 870F,150,1,2,7,"Good luck" @f=65100L65400x Jf;" : ";f:f T #(@70F,120x,1,2,7,"Am I intelligent?" #);82R,144,1,2,7,"Can I think?" #*>2,40(,2,4,7,"COMPUTER ERROR! ?" #+;30,90Z,2,4,7,"HUMAN ERROR !" #2K4,0,1,2,8,"((2*PI*SIN(3.O2)+18.5*COS(2*PI)" #3F4,30,1,2,8,"/1OO)+ATN(2.52)*25.3+8.5*" #4G4,60<,1,2,8,"LN(2.8181)/25.6+O.O1*2E3O/" #5L4,90Z,1,2,8,"1.45E25*LOG(1OO)+345.2)*6.4+SIN" #6K4,120x,1,2,8,"(RAD(34))/4*ATN(COS(4.6))/1OO" #<34,30,6,8,7,"NUMBER" #=74,100d,4,6,7,"CRUNCHING" #?20,64@,1,2,7,"Help!" #@818,60<,3,4,8,"SIMULATION" #FJ35#,20,1,2,7,"Well done! You landed safely" #GH502,20,1,2,7,"You crashed at "+s+" m/s!" #HA60<,60<,1,2,7,"Do you want to play" #I=60<,84T,1,2,7,"the game again?" A O T I* y DCa[~D"Does it think?" ]    nU  U ![~#"[o<&)))K6\ >2[: [2 [: [2[> 2[~#"[2[:[= 2:[= :[G: [O: [ 2 [*[2[: [G: [2 [*[ 2[: [G: [2[: [Oͤ:[<2[ :[<2[ :[0@ :\G:\G:[o:[g>Xg:\w:[G@gxgxo:[Go!xO F![F(// Pc!^!V ^~> > #V^##888(88(888((888(888(88(88(8(((((((88((88(8-Y Y.YMYXYLYnYXkYXYXOYXjYXYQY,YX YYYXrYNYKYXYhXXX+Y/YYX YYXPXYYTYYIYXXYXJYXoYXYXYY'YYYXmXXXYYY4YXXsXFYYKXXYXhYYYYNXY>!Y 6$6  # wNEXT  1:1::7 J5,6;"NEXT PROGRAM LOADING";10 ,10 ;"PLEASE WAIT"  1 ( "RADIO22" >RADIO22 6 k5C6 "RADIO22" 'a$=" " o$=" ":t$=" " (Mt()=(65536*23674z\+256*23673y\+23672x\)/502 c PROGRAM  d 1300 n 1450 s4st=1:fn=10 :re=1860D:1800 x 2350. 21004 1700 2500 1650r 1700 2800 5st=11 :fn=16:re=1870N:1800 ps=73I:1500 3300 ps=113q:1500 3500 1650r:1700 3600 ps=28:1500 3700t ps=40(:1500 3800 1700 3900<  4100  :2  1550 "NEXT"  DATA READ  re x1,y1,xs,ys,cs,d$ L LETTER SUB  Va=23306 [ `"a,x1:a+1,y1:a+2,xs ja+3,ys:a+4,cs t a=a+4 ~i=1̱d$:a+i,d$(i):i a+i,255 64512     _0,0:255,0:0,175:-255,0:0,-175   GRADUAL CLS  f=010 &f,0;a$;21-f,0;a$ g=f+120-f g,f;o$;g,31-f;o$ g:f    TAPE ON  0:0::4 -6,3;"" (>f=712 :f,3;" ":f -.13 ,3;"" 2 5 <re=1390n:1000 Fre=1391o:1000 K 1 Pf=110 U0:.3,30 ZI7,5;" ";8,5;" ";9 ,5;" " _5:15 dI7,5;" ";8,5;" ";9 ,5;" " if l 0 m nD41),60<,1,2,7,"STOP the software tape" oB491,80P,1,2,7,"START the voice tape" x DRAW MAN  f=010 ln+f,cm;m$(f+1) f   MAN DATA  m$(11 ,8)  1491 f=111  m$(f):f  /" "," "," ",""," " >""," "," "," "," "," "  UNCONDITTIONAL  t(),80P,1,2,7,"NOT the voice tape" ?   @""1600@ A23560\,0 J"23560\=01610J Tk=23560\ ^ r 1600@ |k32 1650r   ZERO TIME  f=23672x\23674z\  f,0 f   CHANGE   re  f=stfn g=07 &n:(f+96`)+g,n 0g:f : D#0,n,n,1,n,n,3,n E'31,n,63?,n,n,127,n,n F+3,7,n,n,15,n,n,31 G+0,6,n,n,15,n,n,31 H0,n,n,n,n,n,n,128 I)128,n,192,n,n,224,n,n J)240,n,n,248,n,n,252,n K)252,254,n,n,255,n,n,n L;127,31,15,n,7,135,n,7 M/15,n,31,127,255,n,n,n N7,n,n,n,n,n,n,n O568,n,n,n,n,n,n,n P224,n,n,n,n,n,n,n Q%0,n,n,255,0,n,n,n RC8,4,2,255,2,4,8,0 SI16,32 ,64@,255,64@,32 ,16,0  KURSOR  ""2010 23560\,0 #5,l;1;"_":10 #5,l;1;"_":10 "23560\=02020 k=23560\  4 STANDING BY  923560\,0 >0:4: Hre=2190:1000 R"n=((*8))/4+1 Sn=1n=4 Tsp=((*255/n))*n W$ں(*4):ٺ(*4)+4 Y&f=221:f,0;a$:f \f=sp255n a*f,0:255-2*f,159 b#23560\=32 2180 cf ff=0158n k-255,f:-255,159-2*f p#23560\=32 2180 uf vf=0spn w*f,0:255-2*f,159 x#23560\=32 2180 zf 502:2130R  840(,0,2,2,8,"STANDING BY"  EXPRESSIONS  ln+2,cm+2;""  ln+2,cm+2;""  ln+2,cm+2;""   DUNCE HAT  f=17  ln-8+f,cm+1;h$(f) f $N1;8*cm+11 ,176-8*ln:1;36$,0 ) .h$(7,5) 8 2390V Bf=17 Gh$(f) Lf Q V" " W" " X" " Y " " Z " " [ "" \ "" ` COMPUTER  jf=110 tl+f,c;f$(f) ~f  "2490 :f$(10 ,8) f=110 f$(f) f  A"","",f$(f-1),f$(f-1),f$(f-1) 8"","","","",""  INITIAL PICS  6:0: %ln=8:cm=12 :1400x 2300 2210 ps=22:1500 &:ln=8:cm=3:1400x 2300:2230 4:1 K2,13 ;"I wouldn't do that";4,13 ;"If I were you!" ps=27:1500 ( 3 2Q8,13 ;"Stop cheating or I";10 ,13 ;"won't play any more" <ps=31:1500 F 5 PS14,13 ;"What can you expect";16,13 ;"from a mere human!!" Z 0 dps=36$:1500 n2f=216:f,13 ;a$(19):f xps=63?:1500 2:6:2: =ln=8:cm=12 :1400x:2300:2210 $9 ,19;7;"Phew!" ps=73I:1500 0:0: 1400x:2300   WORDS  1:1: %ln=6:cm=21:1400x 2990 :2 f=616 c$:f,3;c$ f f=15 c$:f,21;c$ "f ,ps=21:1500 1 5 6f=79 ;c$:f,6;c$ @f J2,23;"????" T6:2210 Yps=31:1500 ^ c2xs=1:ys=2:cs=8:y1=160 d23692\,255 hf=112 i-21,31;t$;21,31;t$ mx1,i,d$:i:1100L |f ps=38&:1500 :6 re=9000(#:1000 3100  " " " 12.3 + 34 " " " " -16.5 " " " " " Bc$(2),c$(2),c$(2),c$(2),c$(2) "" " 29.8 " "" " ",c$ '"What is the","Capital of","France? " 40(,7,"APL" d100d,6,"ALGOL",200,5,"ADA",0,4,"BASIC",140,3,"BCPL" h210,5,"COBOL",160,6,"COMAL",30,4,"CORAL",190,3,"FORTH" M60<,7,"LISP",140,6,"PASCAL",0,3,"SNOBOL" 1"AAA S I C","SSSSS I C","IIIIIII C","CCCCCCCCC" _" e g i n n e r s"," l l - p u r p o s e"," y m b o l i c"," n s t r u c t i o n"," o d e " "x1=64@:3030 :1 &f=48096`16 0 y1=f:d$ : 1100L Df I 1 Jps=43+:1500 Nw=282 Xp=0w2 b:6:4+p,w+8;o$;5+p,w+8;o$ d 4 g:1:4+p,w+8;o$;5+p,w+8;o$ ip lc=w2-1 v 6 12+p,c+7;o$;3+p,c+7;o$ 1:4 12+p,c+7;o$;3+p,c+7;o$ c 66:2+p,8;o$;3+p,8;o$ w 0 "x1=72H:cs=7:5 ps=47/:1500 f=32 96`16 y1=f:d$:1100L 60< f   COMMANDS  6: $ln=8:cm=1:1400x  7 3470 f=16 l,c,c$ * l,c;c$ / 80P 1f 4ps=87W:1500 >f=14 Hl,c,c$:l,c;c$ M 80P Rf \ 1,25,"FOR",2,16,"TO",4,20,"AND",5,29,"OR",7,18,"PRINT",9 ,25,"LIST" g16,17,"INKEY",18,26,"GOSUB",19,19,"PEEK",21,23,"POKE"  RUN  2f=121:f,16;a$(15):f >10 ,13 ;"OK get on";12 ,13 ;"with it!" $4:re=9001)#:1000 6:2230 2450 ps=120x:1500 A10 ,13 ;a$(9 );12 ,13 ;a$(8) /f=57:f,3;a$(3):f #11 ,13 ;7;"RUN"  2250   BASICS   5: $$f=14:re=90091#+f .1000:f 8 t  BBC  ~ 6: $ln=3:cm=3:1400x ,5:l=3:c=21:2400` >4,14;7;"I'M";5,12 ;"POPULAR"  4 15,18;" " /16,4;"" ,17,4;" " ,18,4;" "   PROGRAM   6: re=9020<#:1000 /x$=a$(3):1:23560\,0  1 'f=9 12 :f,26;x$:f -30:23560\=32 3870  6 'f=9 12 :f,26;x$:f -30:23560\=32 3870  3840  0: < LOAD + SAVE  F3980:4: Pf=419 Zc$:f,1;c$ df i#l=4:c=18:2400` n;12 ,11 ;"";13 ,11 ;" " s 6 xre=9030F#:1000 yre=9031G#:1000  4000  "" "" " ",c$ " O O " " ",c$ "" " ",c$,c$,c$ "" " " " " ""  7 ps=61=:1500 re=9040P#:1000 f=130 #11 ,14;"":15 #11 ,14;" ":15 f $5:re=9041Q#:1000 f=113 #11 ,14;"":15 #11 ,14;" ":15 f    LOAD  &1:0:0:4: re=9050Z#:1000 ps=126~:1500 " 0: ,re=9051[#:1000 1 1 6f=119 ; 0 @:9 ,14;" ";10 ,15;" ":15 E 4 J:9 ,14;" ";10 ,15;" ":25 Tf Ups=149:1500 Y :0 ^re=9052\#:1000 h LOADING P  mps=187:1500 r :4 |@2,0;"Type LOAD""P"" and press the ENTERkey"  7  5,0;">.........." i$="" l=110  2000 2k>96`k<123{k=k-32 :4265 Al=1(k=12 k=13 ).5,5:4250 6k>122zk<12 .5,5:4250 Pk=12 i$=i$(l-2):5,l-1;".":l=l-1:4250 k=13 4300  i$=i$+k 5,1;i$ l  2000 Lk=12 l=10 :5,10 ;".":i$=i$(9 ):4250 *k13 .5,5:4285 i$"LOAD""P"""44000  0: 0 3 :48,0;"You didn't get that quite right" D=10 ,0;"You must type LOAD""P"" and press" I'12 ,0;"ENTER. Try again!" N.21,7;7;"Press SPACE key" X 1650r b 4200h #(764@,32 ,1,2,8,"B A S I C" #)/30,40(,2,3,8,"?" #2=90Z,40(,1,2,7,"Microsoft Basic" #3760<,70F,1,2,7,"BBC Basic" #4:110n,100d,1,2,7,"Tiny Basic" #5=80P,130,1,2,7,"Sinclair Basic" #<625,72H,3,4,10 ,"PROGRAM" #F523,0,1,2,7,"Recorder" #G6150,0,1,2,7,"Computer" #P4102f,130,1,2,8,"LOAD" #Q4102f,130,1,2,8,"SAVE" #Z290Z,72H,2,3,8,"LOAD" #[4112p,72H,1,2,8,"""P""" #\870F,72H,2,3,8,"LOAD ""P""" A O T  (a[ ~]    n ( D STANDING BYIk C NEXT 4 1:1::7 J5,6;"NEXT PROGRAM LOADING";10 ,10 ;"PLEASE WAIT"  1 ("P" 1P ? A "P"  d 1300 n :5 xre=9000(#:1000 4 $f=13:re=9000(#+f 1000:f 6 re=9004,#:1000 re=9005-#:1000 1605E  l=1:4 1500 4,0;"I ";l$;" "; l=2:1500 !l$>225,8;  1600@  l$''  6:l=3:1500 " 1600@ , l$;"."'' 6 3:l=4:1500 @ 1600@ J"Then ";l$', Tl=5:1500 ^ 1600@ hl$'' r l=6:5:1500 | 1600@ l$;"!"  7 %21,7;"Press SPACE key"  1605E   210   DATA READ  re x1,y1,xs,ys,cs,d$ L LETTER SUB  Va=23306 [ `"a,x1:a+1,y1:a+2,xs ja+3,ys:a+4,cs t a=a+4 ~i=1̱d$:a+i,d$(i):i a+i,255 64512   TAPE ON  0:0::4 -6,3;"" (>f=710 :f,3;" ":f -.11 ,3;"" 2 5 <re=1390n:1000 K 1 Pf=110 U0:.3,20 ZI7,5;" ";8,5;" ";9 ,5;" " _5:15 dI7,5;" ";8,5;" ";9 ,5;" " if l 0 m nD41),60<,1,2,7,"STOP the software tape" oB491,80P,1,2,7,"START the voice tape"  RANDOM CHOICE   're=8000@+10 *l+(*8) re l$  ?   @1;7;" "; E""1605E J" "1610J T 8; ^ J "wandered" K "giggled" L "blubbered" M "gargled" N "grumbled" O "juggled" P "wrestled" Q "staggered" T"lonely as a cloud" U"out behind the shed" V"in a bag of crisps" W"by the kitchen sink" X"cos my shoes were tight" Y"with the milkman's horse" Z"like a bar of soap" ["on a London bus" ^"Aboard a Viking ship" _"Until I heard a rip" `"But fell and hurt my hip" a"And cracked a circus whip" b"While balancing on a pip" c"And did a backward flip" d"Eating a sherbert dip" e"Down by the rubbish tip" h"my headmaster" i"Uncle Albert" j"six green monsters" k"three gorillas" l"all my school friends" m"Worzel Gummidge" n"my pet goldfish" o"Tom and Jerry" r"phoned and said" s"softly cooed" t"came and groaned" u"screamed at me" v"sighed with love" w"yodelled loud" x"sent this note" y"told my mum" |"YOUR EAR DESERVES A CLIP" }"YOU DON'T HALF LOOK A DRIP" ~#"PLEASE HELP -I'VE CAUGHT MY ZIP"  "GO TAKE A ONE WAY TRIP" !"THERE'S ICE-CREAM ON YOUR LIP" "HERE CAN I PINCH A CHIP" "BE CAREFUL DON'T YOU SLIP" "GO HOME AND HAVE A KIP" #(945-,0,2,3,7,"Instructions" #)P5,40(,1,2,7,"I'll show you how to make up poetry" #*O5,64@,1,2,7,"by choosing lines at RANDOM from a" #+C5,88X,1,2,7,"set of different ones." #,Q5,120x,1,2,7,"Press the SPACE bar and I'll choose" #-55,144,1,2,7,"a line." -#a[~Da line.