ZXTape! 0Created with Ramsoft MakeTZXRADIO1 j 1:1::7 J5,6;"VOLUME SET CORRECTLY";10 ,10 ;"PLEASE WAIT"  1 ( "RADIO11" *RADIO11 l/ll/n/ "RADIO11" 'a$=" "  1450 Mt()=(65536*23674z\+256*23673y\+23672x\)/502 ( 1700 c PROGRAM  d 2000 n 21004 w  INTRO  x$f=46:re=9000(#+f 1000:f &ln=10 :cm=15:1400x ps=12 :1500  COLOURS  :1200 $f=79 :re=9000(#+f 1000:f %ln=9 :cm=22:1400x ps=16:1500 re=90102#:1000 ps=18:1500 0: 2200 ps=21:1500  SOUNDS  1::1200 re=90113#:1000 re=90124#:1000 &ln=10 :cm=22:1400x  2400` ps=29:1500   SPEACH  1::1200 re=90135#:1000 re=90146#:1000 " 2500 ,94:0,0;a$:f=020:a$:f 62700 : TELETEXT  @2900T : JOKE  J3300 : HIGH-RES  T0::2 ^/6,3;"" h@f=712 :f,3;" ":f r013 ,3;"" | 6 re=9023?#:1000 re=9024@#:1000 "NEXT"    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    CLS  _0,0:255,0:0,175:-255,0:0,-175 _1,1:253,0:0,173:-253,0:0,-173  x DRAW MAN  f=010 ln+f,cm;m$(f+1) f   MAN DATA  m$(11 ,8)  1491 f=111  m$(f):f  -" "," "," ",""," " >""," "," "," "," "," "  PAUSE UNCONDITTIONAL  t()   ?""1599? J=""1610J Tk= h  ZERO TIME  f=23672x\23674z\ f,0:f   ""1800  23560\,0 ,17,19+z;1;"_":6 ,17,19+z;1;" ":6 "23560\=01815 &k=23560\: :""1850: ;23560\,0 <4#1;1,30+z;1;"_":6 =4#1;1,30+z;1;"_":6 >"23560\=01852< D 1830& l 64511 q5:5:5: v" "64512,300,  10   TITLE  0:0:6: .3,4;"Introducing Science extra" Re=9000(#:1000 re=9001)#:1000 re=9025A#:1000 re=9002*#:1000 ps=10 :1500   4 STAND BY  523560\,0 9 > 4: Hre=9003+#: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\=113q2180 cf ff=0158n k-255,f:-255,159-2*f p$23560\=113q2180 uf vf=0spn w*f,0:255-2*f,159 x$23560\=113q2180 zf 502:2130R )0:1:6::1200  1700 ps=4:1500   COLOURS  f=140-2  g=0f E10 +g-f/2,11 -f/2;f/2;a$(10 +f) g:f: `  MUSIC  j 2490 ~f=163? t:.08}# =,t f 17,16,17,-60<,5,-60<,5,-60<,12 ,10 ,9 ,12 ,17,16,17,-60< 19,18,19,-60<,7,-60<,7,-60<,14,12 ,11 ,14,19,18,19,-60< 21,22,24,22,21,19,22,21,19,17,21,19,17,15 19,17,15,14,17,15,14,12 ,15,14,12 ,10 ,9 ,8,7,6,5   EXTRA  cs=8:d$="EXTRA" f=14 Hx1=96`-20*f:y1=100d-4*f:xs=f:ys=f:1100L f &ln=10 :cm=23:1400x 2600( ps=58::1500  (  GLUM  2ln+2,cm+2;"" <'ln+3,cm;" ";ln+4,cm;" " F'ln+6,cm;"";ln+7,cm;"" P  PICTURE  1600@:1700 $k<97ak>122z2710 2800 ps=5:1500  &0:7:5::1 (f=1521:;f,0;a$:f 2830 f=19 l,c,b$ l,c;7;5;b$:f L1,4,"",2,1,"",3,1,"" Q2,25,"",3,22,"",4,22,"" G8,23,"",7,25,"",11 ,28,"" f=9 16 b$:f,0;b$ "f $o"","","",""," ","","","" ,f=017 1c,b$:f,c;b$ 6f @y13 ,"",13 ,"",13 ,"",12 ,"",11 ,"" As10 ,"",10 ,"",9 ,"",9 ,"" Ba9 ,"",8,"",8,"" Cl8,"",8,"",9 ,"" D\9 ,"",7,"",8,"" J T  JOKE  ^ 3200 he$(13 ,15) rf=113 :e$(f) |f 1600@:1700 k524#1,0,0;"You pressed the wrong key but here's the joke anyway":100d:#1,0,0;a$+a$ 0:0:2: 1f=113 :f+3,0;e$(f):f (1:7,9 ;5;" " @6:2:10 ,8;" ";11 ,8;" " ?6:0:12 ,9 ;" ";13 ,9 ;" " 0:4 'f=1719:f,0;a$:f -0:5:re=90157#:1000 re=90168#:1000 !e$(8,7):i(8) 3210 f=18:e$(f),i(f) f ps=8:1500 4f=18:f+8,21;i(f);e$(f) f )7;15,14;"" *16,13 ;7;0;"" re=90179#:1000 ps=30:1500 !+20,0;a$;21,0;a$ &$3:re=9018:#:1000 0ps=20:1500: 4" ","","","" ,"","","" .""," "," " 5" "," "," " 7" ",2," ",5," ",5 5" ",5,"",6,"",4 " ",7," ",7  HIGH-RES PATTERN  np=20:3500 ps=46.:1500  3450z  3600 *np=5:3500 /ps=90Z:1500 43450z :3600 >ps=103g:1500 H 3700t I312 ,25;1;6;1;" " Jf=18 K*8,5;a$(20):10 L28,5;"1 2 3 4 5 6 7 8 9 0":20 Mf Rps=133:1500 Sf=125 T*8,5;a$(20):10 U28,5;"1 2 3 4 5 6 7 8 9 0":20 Vf Wps=156:1500 f 4000 p z)0:1:7::1200 -1,4;"High Resolution Graphics"  z=2/np* x(np):y(np) f=1np ?x(f)=128+76L*(z*f):y(f)=80P+76L*(z*f) f  f=1np g=1f-1 $ x(f),y(f):x(g)-x(f),y(g)-y(f) .g:f 8 t KEYBOARD  ~4:4::6  0 f=216 f,3;a$(25) f (8,5;"1 2 3 4 5 6 7 8 9 0" )10 ,6;"Q W E R T Y U I O P" )12 ,7;"A S D F G H J K L " +14,5;" Z X C V B N M "   PATTERN GAME   3450z &f=1922:re=9000(#+f 1000:f (17,4;"How many dots? .. "  z=0  1800 5k<491k>579.5,1:4040 k1=k-480 17,19;k1  z=1  1800 k=13 np=k1:4110 1k=12 17,19;"..":4039 5k<480k>579.5,1:4059 k2=k-480 17,20;k2  z=2  1800 1k=12 17,20;". ":4059 *k13 .5,1:4079 np=10 *k1+k2 np>3019,1;"Number too large. Try again.":f=180P:f:19,1;a$(30):4035  3450z 3500 :3600 !np=1128,154 ";#1;1,2;"Do you want another go? y/n ." 'z=0:1850: (7k121yk110n.5,1:4135' )#1;1,30;k *ky=k ,z=1:1850: 19k=12 #1;1,30;". ":4135' 6*k13 .5,1:4140, Tky=121y4000 ^ #' LETTER DATA  #(810 ,62>,3,3,8,"USING YOUR" #)632 ,95_,3,3,8,"COMPUTER" #*A64@,155,1,2,7,"""In The Picture""" #+920,0,2,2,10 ,"STANDING BY" #,420,3,3,3,8,"HELLO " #-510 ,30,3,3,7,"I'm the" #.85,579,3,3,7,"ZX SPECTRUM" #/720,3,3,3,7,"I can show" #0340(,30,3,5,8,"EIGHT" #145,73I,3,3,7,"Colours" #2420,150,2,2,8,"Watch" #3815,20,3,3,7,"I can make" #4420,502,3,5,8,"SOUNDS" #5380P,10 ,2,3,7,"Sorry" #6:40(,40(,2,3,7,"Speech costs" #7@0,0,1,2,7,"Why did the elephant" #8=0,16,1,2,7,"cross the road ?" #9O0,160,1,2,7,"It was tied to the Chicken's leg!" #:;0,0,2,5,8," LOW RESOLUTION" #;F40(,24,1,2,7,"Decide how many dots you" #?40(,104h,1,2,7,"then press ENTER" #?E35#,60<,1,2,8,"START the software tape" #@@524,84T,1,2,8,"NOT the voice tape" #A:82R,130,1,2,7,"Broadcast 1"  ,R.![~#"[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(// PNEXT E 1:1::7 J5,6;"NEXT PROGRAM LOADING";10 ,10 ;"PLEASE WAIT"  1 ( "RADIO12" =RADIO12 0f=712 :f,3;" ":f -.13 ,3;"" 2 5 <re=9000(#:1000 Fre=9001)#:1000 P 1 Uf=115 VR7,5;0;" ";8,5;" ";9 ,5;" " X 10 ZR7,5;5;" ";8,5;" ";9 ,5;" " _.2~L,30 df i 0 n  PAUSE UNCONDITTIONAL  t()6:0: Hre=9003+#: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 21004 zf 502:2130R 1700:   TABLE  0::7 J0,5;"Numbers of TV licences";1,11 ;"in Britain" $'"Year B/W Colour" $'"197O 15,6O6,131 279,379" #"1971 15,333,221 6O9,969" #"1972 15,O23,691 1,643,76O" #"1973 13,792,623 3,331,196" #"1974 11,766,424 5,558,146" #"1975 1O,12O,493 7,58O,322" #"1976 9,148,732 8,639,252" #"1977 8,O98,386 9,957,672" #"1978 7,O99,726 11,O49,192" #"1979 6,249,716 12,131,445" #"198O 5,383,125 12,9O1,74O"  4800 ps=31:1500   GRAPH  &2450 :b(11 ):c(11 ) f=111  b(f),c(f) f  :1 D6:31,166:0,-159:191,0 ;30,166:0,-160:192,0 f=716010 31,f:-4,0 f f=3121816 f,7:0,-4 f re=9004,#:1000 $T#1;0,15;"Year";0,3;"197O";0,24;"198O" I 7 Lf=111 Vg=1b(f) `#21-g,2*f+2;"" j4g:b(f)ɺ(b(f))21-g,2*f+2;"" tf ~ 2 f=111 g=2430 $f*16+g,8:0,c(f) g:f 0  q19.5,3,19,6,18.5,16,17,33!,15,568,12.5H,76L ^11.58,86V,10 ,100d,9 ,111o,8,121y,7,129  PIXEL  7 ps=82R:1500 0:1200 99c,100d f=110 "10 ,12 ;" ":10 "10 ,12 ;"^":10 f ps=91[:1500 9 ,13 ;"Pixel" ps=101e:1500 1:7:1200  6:5,15;"K" ps=107k:1500 (d$="K" 2f=18 (k>95_k<123{)(k>64@k<91[)2680x s 2660d x-1700:5,15;(k-32 ) yps=5:1500 }d$=(k-32 ) Bf=18:x1=128-4*f:y1=90Z-4*f xs=f:ys=f:1100L f:  SPACE INVADERS  'i$="" s$=i$(2) ps=14:1500 0: 0,0;3;s$ ps=25:1500 f=06 3*f,0;3;i$ 4;i$;7;i$ f 3:i$ ps=32 :1500 &f=020:f,0;a$:f a$(30) ps=36$:1500 21,30;" " ps=38&:1500 18,6;s$ ps=40(:1500 "-18,6;" ";4,22;s$ ,ps=46.:1500 6-4,22;" ";10 ,0;s$ @ T ANIMATION  U2950 :p(30) Vf=130:p(f):f Yps=63?:1500 ^f=130 h)10 ,f-1;" ";10 ,f;s$ rp(f) |f 10 ,30;" " 30,25,20,17,14,12 ,10 ,8,6,5,4,4,3,3,3 y2,2,2,1,1,1,1,1,1,1,1,1,1,1,1  SHIP REBOUND  0:0: 1 1f=120:f,1;a$(30):f 7 _7,7:241,0:0,161:-241,0:0,-160 #l=11 :c=29:d=1 y$=" " 4 f=2300, -l(f-1),c(f-1);y$;l(f),c(f);s$ f   REBOUND ARRAY SET  l(300,):c(300,) #l=11 :c=29:d=1 f=1300, l(f)=l:c(f)=c 5l=l+(d=2)+(d=3)-(d=1)-(d=4) 5c=c+(d=4)+(d=3)-(d=2)-(d=1) 0d=1d=d+(l=1)+3*(c=1) &)d=2d=d+(c=1)-(l=20) 0*d=3d=d+(l=20)-(c=29) :1d=4d=d-(l=1)-3*(c=29) Df N  PIXEL INVADERS  1:1: k$=" "+i$(18)+" " ps=88X:1500 "l=1:f=3:3300 ps=94^:1500 /f=35:l=l+1:3300 :f 8f=41-1:l=l+1:3300 :f /f=25:l=l+1:3300 :f 8f=43-1:l=l+1:3300 :f  l-1,0;a$ d=01 $l+3*d,2+f;7;k$ *l+1+3*d,5;2;k$ ,l+2+3*d,8-f;6;k$ d .1}L,20   KEYBOARD 1   3700t f=1100d $ 8,13 ;a$(7) % 7,13 ;a$(7) . 25 8=" "3680` B8,13 ;"5 6 7 8" C&7,13 ;5;" " D 8 L=" "3680` Vf `1700: ~4:4::6  0 f=216 f,3;a$(25) f &7,13 ;5;" " (8,5;"1 2 3 4 5 6 7 8 9 0" )10 ,6;"Q W E R T Y U I O P" )12 ,7;"A S D F G H J K L " +14,5;" Z X C V B N M "   PAC MAN  0:4:1: 10 ,10 ;"" 3850 :m$(4) f=14  m$(f):f  "","","","" #l=10 :c=10 :d=1  dt=0 t()>62>4100 &dt=0ƨt()>4914000 =""3868  3875#  3868 #d=23560\-524 &d<1d>4 (Fl1=l:c1=c:l=l+(d=2)-(d=3):c=c+(d=4)-(d=1) <>c=c-(c=32 )+(c=-1):l=l-(l=22)+(l=-1) [.02{# =,30 _l1,c1;o$;l,c;m$(d) n  ROW OF DOTS   7  dt=1  l,c;" " 10 ,2;"" (f=11 14:f,9 ;"":f 15,9 ;"" 1f=149 -1:f,17;"":f 8,17;"" 19 ,24;"";10 ,24;""  4 !l=13 :c=1:l,c;""  re=9005-#:1000  h ROWS AND COLUMNS  j'c$="________________________________" m 7 n 1 q&0,175:255,0 r&f=021:f,0;c$:f w 0 |ps=84T:1500 >f=02558:f,0:0,175:f &255,0:0,175 ps=100d:1500 $1:1:1:5 "l=0:c=0:4500  7 ps=108l:1500  4550  5 #l=0:c=12 :4500  7 ps=115s:1500  4550  5 &"l=5:c=5:4500 + 0 0%40(,135:7,0 :ps=125}:1500 D :0 N  DRAW l,c  !l,0;a$;l,c;"";l,c;""  f=021:f,c;o$:f   ERRASE l,c  l,0;a$(32 )  f=021:f,c;o$:f l,c;0;0;""   GOBBLE GAME   4 !l=5:c=5:d=1  5,5;"" F#1;1,5;7;"R = 5";1,20;"C = 5"  2t()>180l=10 c=10 4700\ %t()>1954680H *=""4640  4 3875# 99#1;1,9 ;l;" ";1,24;c;" " > 4640  Hre=9005-#:1000 Mps=204:1500 R 4780 \ EXPLOSION  pf=140( za(1,f) .84T,92\:a(2,f),a(3,f) a(4,f) .03{u\,a(5,f) f  0 ps=204:1500 ?:#1;1,5;"R = 0";1,20;"C = 0" ps=234:1500  !a(5,40():4880 f=140( Ga(1,f)=(*8):a(2,f)=((*80P))*(-.5) Ga(3,f)=((*80P))*(-.5):a(4,f)=(*8) a(5,f) &f/10 =(f/10 )4880 f  [14,16,18,20,23,25,23,20,18,16 $ ALPHABET GOBBLE  ) KEYBOARD 2  . 3700t /f=18 0I8,13 ;a$(7);7,13 ;a$(7):15 1L8,13 ;"5 6 7 8";7,13 ;5;" ":25 3f 8f=122 B?8,13 ;a$(7);7,13 ;a$(7) La10 ,6;a$(19);12 ,7;a$(17);14,8;a$(13 ) V 15 `B8,13 ;"5 6 7 8";7,13 ;5;" " jq10 ,6;"Q W E R T Y U I O P";12 ,7;"A S D F G H J K L";14,8;"Z X C V B N M" t 15 ~f   DEMO  0:1::6 15,10 ;"A"  4 5,5;"" f=59 5,f;" " .02{# =,30:10 f f=513 )f,10 ;" ";f+1,10 ;"" .02{# =,30:8 f  20  .14,10 ;o$;15,10 ;"" .5,5 ps=290":1500 #  GAME  ( :4 2!l=5:c=5:d=4 7=#1;1,5;"R = 5";1,20;"C = 5" < l,c;"" Al(4):c(4) B 1700 Fq=65A91[ K l,c;m$(d) O?#1;1,5;"R = ";l;1,20;"C = ";c P$xl=(*32 ):yl=(*22) Zyl,xl;6;q dLc(1)=xl+1:c(2)=xl:c(3)=xl:c(4)=xl-1 nLl(1)=yl:l(2)=yl-1:l(3)=yl+1:l(4)=yl xl=l(d)c=c(d)5400 }t()>120x5700D  =""5250 d=-524 !d<1d>45250 Fl1=l:c1=c:l=l+(d=2)-(d=3):c=c+(d=4)-(d=1) >c=c-(c=32 )+(c=-1):l=l-(l=22)+(l=-1) .02{# =,30 (l,c)=14l=l1:c=c1 l1,c1;0;o$  l,c;m$(d) 9#1;1,9 ;l;" ";1,24;c;" "  5240x  GOBBLED  =""5400 "(q+32 )5400 ,yl,xl;m$(d);l,c;0;o$ 6.5,5 @:q | GAME WON   tm=t()  M3,5;"You took ";tm;" seconds to"," gobble all the letters"  5710N C  GAME  D :7 I`3,5;"Your time is up and you"'" didn't manage to gobble"," all the letters" N08,2;"Do you want to try again? ." O2,10 Xz=0:2000 b7k121yk110n.5,1:5720X l8,28;k qk1=k vz=1:2000 0k=12 8,28;". ":5720X *k13 .5,1:5750v k1=110n  5160( p0:0::2 z/6,3;"" @f=713 :f,3;" ":f 013 ,3;""  6 re=90102#:1000 re=90113#:1000  #(D41),60<,1,2,7,"STOP the software tape" #)B491,80P,1,2,7,"START the voice tape" #+840(,0,2,2,8,"STANDING BY" #,894^,0,1,2,7,"TV Licences" #-660<,20,2,2,7,"Time up!" #2E480,60<,1,2,7,"START the software tape" #3@62>,80P,1,2,7,"NOT the voice tape"  Xl? 0>xD|8 ~ T88T~NEXT  1:1::7 J5,6;"NEXT PROGRAM LOADING";10 ,10 ;"PLEASE WAIT"  1 ( "RADIO13" <RADIO13 b@lb@d@ "P13" 'a$=" " 'r$="________________________________" o$=" ":t$=" " #Mt()=(65536*23674z\+256*23673y\+23672x\)/502 ( 1700 d 1300 i 1450 nps=10 :1500 x1:7:1200 6 f=9000(#9002*# re=f:1000:f &ln=10 :cm=12 :1400x v=0:1650r 21004 2200 v=0:1650r 2400` 2500 2::7 2800 0:1::6 2900T  3100  3600  3800 "k1=5139999' ,k1=5024000 6k1=4915000 @ 280  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 _1,1:253,0:0,173:-253,0:0,-173   TAPE ON  0:0::4 -6,3;"" (=f=79 :f,3;" ":f -.10 ,3;"" 2 5 <re=1390n:1000 K 1 Pf=110 U0:.3,10 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" 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() 0: Hre=9003+#:1000 Rre=9004,#:1000 \f=1100d p-a(1,f),a(2,f);a(3,f);t$ z.01z# =,a(4,f) f v=0:1650r   LOW RES   :1 ,4:6,0;"I can do those" ,5:8,0;"LOW RESOLUTION" -4:10 ,0;"Graphics (not" "12 ,0;"much detail)" 6:0 3f=10 19:f,17;a$(13 ):f 0:2 g7,18;"";8,17;"";9 ,16;""  4 Kf=11 13 :f,18;a$(4);f,25;a$(4):f  3 2f=1519:f,22;a$(3):f 0:7 /5,20;"";6,20;"" *16,23;3;5;"O"  2295 f=16 l,c:l,c;"O" f  g4,20,3,19,2,19,1,18,1,17,0,16 ` HIGH RES  j1:1200 tE1,1;"But I can also";3,1;"do those fancy" ~C5,1;"HIGH RESOLUTION";7,1;"graphics..." f=080P5 O168,f+7:-f,80P-f:f,80P-f:f,f-80P:-f,f-80P f 1650r   KEYS  3700t 1:7 re=9005-#:1000 re=9006.#:1000 1650r 2700 $5:re=9007/#:1000 $6:re=90080#:1000 $5:re=90091#:1000 0:6:2000 =6,5;"1 2 3 4 5 6 7 8 9 0":1:2700 $5:re=90102#:1000 $6:re=90113#:1000 $5:re=90124#:1000 210 ,25;6;0;1;o$ 1650r:2700 !10 ,25;6;"" re=90135#:1000 $6:re=90146#:1000 "$5:re=90157#:1000 (0:6:2050 2p8,6;"Q W E R T Y U I O P";10 ,7;"A S D F G H J K L";12 ,8;"Z X C V B N M" < 1 F 2700 P$5:re=90168#:1000 R$6:re=90179#:1000 T$5:re=9018:#:1000 X23560\,0 Y-#1;1,8;"Press SPACE key" Z0:6 _1620T:k=32 dL6,13 ;"5 6 7 8";5,13 ;5;" ":10 n1620T:k=32 xI6,13 ;a$(7);5,13 ;a$(7):10 2655_ 'f=1521:f,0;a$:f )#1;1,7;a$(16)   PIXEL  1200 1700 re=9019;#:1000 re=9020<#:1000 91[,84T "11 ,12 ;"Pixel" ,5f=17:12 ,11 ;" ":10 -%12 ,11 ;"^":10 :f 6v=1:1650r @ T INVADERS  ^re=9021=#:1000 hre=9022>#:1000 r 4 |5f=11 12 :f,9 ;" ":f 7 5f=13 14:f,9 ;" ":f 1650r  6 re=9023?#:1000 re=9024@#:1000 4 f=7202 g=029 f,g;" ":g f,30;" " g=290-1 f+1,g;" ":g f+1,0;" " f 7:1650r   PAC MAN  &:6:1700 0re=9025A#:1000 :re=9026B#:1000 Dps=4:1500 N 4 Xf=015 b10 ,f;" " l.1}L,10 vf 7:1650r :6 re=9027C#:1000 re=9028D#:1000 3 re=9030F#:1000 7 'f=10 21:f,0;r$:f *15,15;1;6;"" v=0:1650r  f=02558 !f,0:0,175:f &255,0:0,175 *10 ,15;1;6;"" $3:re=9031G#:1000 1650r * 4$7:re=9032H#:1000 >re=9033I#:1000 H015,5;5;"C=9 ";6;"" R#16,5;5;"R=15" \ 1650r f%f=07:f,0;a$:f p#1;1,0;a$ zre=9034J#:1000 re=9035K#:1000 1650r f=9 30 @15,f;6;" ";15,7;5;f+1 .05|L,1:f 15,31;o$ 1650r    BYE  1200:6 $.f=9036L#9039O#:re=f:1000:f .1400x:1650r 8 t KEYBOARD  ~1:1::6  0 f=014 f,3;a$(25) f &5,13 ;5;" " (6,5;"1 2 3 4 5 6 7 8 9 0" (8,6;"Q W E R T Y U I O P" )10 ,7;"A S D F G H J K L " +12 ,5;" Z X C V B N M "    MENU  &1:0:0::6 re=9040P#:1000 re=9041Q#:1000 -9 ,7;"1) - Gobble Game" /11 ,7;"2) - Pattern Game"  &13 ,7;"3) - End" (17,7;"Your choice? ."  li=17 z=20:3900< (5k>513k<480.5,1:3870 -k1=k:17,20;k1 .z=21:3900< /1k=12 17,20;". ":3870 0*k13 .5,1:3886. 1 0: < 7 A""3905A B23560\,0 Fli,z;1;"_":7 Pli,z;1;"_":7 Z"23560\=03910F d 1620T  DOT GAME   4500 &f=502535:re=9000(#+f 1000:f (17,4;"How many dots? .. "  z=19  3900< 5k<491k>579.5,1:4040 k1=k-480 17,19;k1  z=20  3900< k=13 np=k1:4110 1k=12 17,19;"..":4039 5k<480k>579.5,1:4060 k2=k-480 17,20;k2  z=21  3900< 1k=12 17,20;". ":4059 *k13 .5,1:4079 np=10 *k1+k2 np>3019,1;"number too large. Try again.":f=180P:f:19,1;a$(30):4035 C4500:20,4;"Points";20,26;"Lines" 4600:4700\ 9np=1128,154:20,24;"0" ";#1;1,2;"Do you want another go? y/n ." 'z=0:44000 (7k121yk110n.5,1:4135' )#1;1,30;k *ky=k ,z=1:44000 19k=12 #1;1,30;". ":4135' 6*k13 .5,1:4140, Tky=121y4000 ^ 0""44000 523560\,0 :4#1;1,30+z;1;"_":7 D4#1;1,30+z;1;"_":7 N"23560\=04410: X 1620T '0:1:7:1200 -1,4;"High Resolution Graphics"  z=2/np* x(np):y(np)  f=1np ?x(f)=128+76L*(z*f):y(f)=80P+76L*(z*f)  f * \ lm=0 af=1np fg=1f-1 p x(f),y(f):x(g)-x(f),y(g)-y(f) u&lm=lm+1:20,22;lm zg:20,1;f:f   PAC MAN  5007:m$(4) f=14:m$(f):f "","","","" 0:1::4 !l=5:c=5:d=4 =#1;1,5;"R = 5";1,20;"C = 5"  l,c;"" $l(4):c(4):1700 q=65A91[  l,c;m$(d) ?#1;1,5;"R = ";l;1,20;"C = ";c $xl=(*32 ):yl=(*22) yl,xl;6;q Lc(1)=xl+1:c(2)=xl:c(3)=xl:c(4)=xl-1 Ll(1)=yl:l(2)=yl-1:l(3)=yl+1:l(4)=yl t()>120x5700D l=l(d)c=c(d)5400 =""5150 (d=-524 2!d<1d>45150 c=c-(c=32 )+(c=-1):l=l-(l=22)+(l=-1) P.01z# =,30 Z(l,c)=14l=l1:c=c1 dl1,c1;0;o$ n l,c;m$(d) x9#1;1,9 ;l;" ";1,24;c;" "  5140  GOBBLED  =""5400 "(q+32 )5400 ,yl,xl;m$(d);l,c;0;o$ 6.5,5 @:q | GAME WON   tm=t(): L3,5;"You took ";tm;" seconds to"," gobble al the letters"  5710N C GAME OVER  D :7 I`3,5;"Your time is up and you"'" didn't manage to gobble"," all the letters" N08,2;"Do you want to try again? ." O2,10 S li=8 Xz=28:3900< b7k121yk110n.5,1:5720X l8,28;k qk1=k vz=29:3900< 0k=12 8,28;". ":5720X *k13 .5,1:5750v k1=110n  5000 W #(L10 ,10 ,1,2,7,"Hi. In this program you've met" #)M10 ,34",1,2,7,"the ZX Spectrum and you've seen" #*J10 ,58:,1,2,7,"some of the things I can do." #+A60<,5,1,2,7,"I can show 8 colours" #,D524,29,1,2,7,"I can also make sounds" #-F40(,130,1,2,7,"You have discovered how" #.B502,154,1,2,7,"to use the keyboard" #/?32 ,140,1,2,7,"You've used the " #06142,140,1,2,8,"NUMBER" #14197,140,1,2,7,"keys" #2?32 ,140,1,2,7,"You've used that" #35148,140,1,2,8,"ENTER" #43193,140,1,2,7,"key" #5>32 ,140,1,2,7,"You've used the" #66141,140,1,2,8,"LETTER" #74195,140,1,2,7,"keys" #8=40(,140,1,2,7,"And also those" #95143,140,1,2,8,"ARROW" #:4190,140,1,2,7,"keys" #;N8,8,1,2,7,"I've shown you how all my graphics" #F40(,32 ,1,2,7,"the pixel invasion force" #?A502,8,1,2,7,"Which we can animate" #@?60<,32 ,1,2,7,"around the screen" #AE42*,8,1,2,7,"You controlled ANIMATION" #BC502,32 ,1,2,7,"with this little chap" #CO7,7,1,2,7,"But remember - the way we computers" #DG10 ,29,1,2,7,"think of the screen is as" #F290Z,502,2,2,8,"ROWS" #G9480,480,2,2,8,"and COLUMNS" #HM8,8,1,2,7,"We let R stand for the row number" #IO8,30,1,2,7,"and C stand for the column number." #JO8,8,1,2,7,"By changing the numbers for C and R" #KP8,30,1,2,7,"the little man seemed to move about" #LJ16,20,1,2,7,"Phew! I reckon that's enough" #MF16,42*,1,2,7,"for one session. See you" #N816,64@,1,2,7,"next time." #O216,86V,1,2,8,"BYE!" #PG40(,8,1,2,7,"You can now choose to play" #QE40(,32 ,1,2,7,"One of the games again." #ZF40(,30,1,2,7,"Decide how many dots you" #[H40(,524,1,2,7,"would like in the pattern." #\?40(,84T,1,2,7,"Type a NUMBER and" #]?40(,106j,1,2,7,"then press ENTER" '   y@d