ZXTape! 0Created with Ramsoft MakeTZXRADIO3 h5 1:1::7 J5,6;"VOLUME SET CORRECTLY";10 ,10 ;"PLEASE WAIT"  1 ( "RADIO31" (RADIO31 LlK,L "RADIO31" 'a$=" "  o$=" ":t$=" " (Mt()=(65536*23674z\+256*23673y\+23672x\)/502 2 1700 c PROGRAM  d 2200 i 1450 nps=11 :1500 21004 1700 2500 0:4: 2600( 3050 ps=21:1500 2700 ps=40(:1500 3100 1700 3200 ps=28:1500 7:1200 $6:re=9001)#:1000 ps=39':1500 3300 ps=128:1500 3600 4st=1:fn=20:re=1860D:1800  3800 1650r:1700  3900< 3s1=1:fn=7:re=1880X:1800  4000 ps=29:1500  4110 ps=47/:1500 " 4200h 'ps=69E:1500 , 4300 1ps=149:1500 6 4600 @4re=1860D:st=1:fn=20:1800 J1650r:1700 T 4900$ Yps=513:1500 ^ 1550 h"NEXT" re=re+1  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  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:4: Hre=2190:1000 R8n=((*8))/4+1:n=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"  TITLE PAGE  0:0::6 .4,3;"Introducing Science Extra" f=03 re=f+2290:1000 f  810 ,62>,3,3,8,"USING YOUR" 634",95_,3,3,8,"COMPUTER" :88X,130,1,2,7,"Broadcast 3" E58:,155,1,2,7,"""Basically speaking"""  PATTERN  1 0::2590 6:2: f=02553.5` -f,0:255-2*f,175:f f=01753.5` 0255,f:-255,175-2*f:f 0  (f=0120x30 2<x1=0:xs=1:ys=2:cs=8:2690 <f=0120x30 Fy1=f:d$:1100L Pf Z$7:re=2695 :1000 d22:x1=96`:d$="2OO65.814":1100L x #"((2*PI*SIN(3.O2)+18.5*COS(2*PI)" "/1OO)+ATN(2.52)*25.3+8.5*" "LN(2.8181)/25.6+O.O1*2E3O/" #"1.45E25*LOG(1OO)+345.2)*6.4+SIN" !"(RAD(34))/4*ATN(COS(4.6))/1OO" 080P,160,1,2,8,"="  MOON LANDER  0: 28706 f=021:c$ f,14;c$:f -3,6;"";4,6;"" 21,2;"" -64813-,63?:64814.,249 64815/ 6 2900T  6"" 7=" ",c$,c$,c$,c$,c$,c$,c$,c$,c$,c$,c$,c$,c$ 8"" 9" " :" Height Speed " ;" (m) (m/s) " <" 170 0 " =" " @"" TFe=0:s=0:h=170:h1=h:w=0:x$="":y$="" ^d=140( h#s=s-.2~L+.4L*(e=0) rh=(h-s*2) |D19,26;(s*5)/5;t$;19,17;h;o$ l=(20-h/10 ) (h1-h)>9 l1=(20-h1/10 ):1;l1,6;t$;l1+1,6;t$;l,6;x$;l+1,6;y$:h1=h:(l1/4)w3000 e=d(d) d 19,17;" 0 " f=1200:f  w=(l1/4):2 @f=7-w7+w:f,23-w;a$(1+2*w):f 0: d(45-):3090 f=141):d(f):f  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  PROGRAM  !1:7:1200 #$6:re=9000(#:1000 & 1650r 0  PAC MAN  1:6: 10 ,5;"" ps=9 :1500 $#1;1,5;"R = 10" ps=12.5H:1500 $#1;1,20;"C = 5" ps=21:1500 bf=528:10 ,f;" ";#1;1,24;f+1:.04|# =,10 :f xf=10 20:f,29;o$;f+1,29;"";#1;1,9 ;f+1:.04|# =,10 :f f=2810 -1 F21,f;" ";#1;1,24;f:.04|# =,10 :f f=205-1 _f+1,10 ;o$;f,10 ;"";#1;1,9 ;f;" ":.04|# =,10 :f 85,10 ;" ";#1;1,24;"11"   VARIABLES  0:4: re=9002*#:1000 0:999 ps=41):1500 7:1 f=17212 +5,f;t$;6,f;t$;7,f;t$ 30:f % 0 *ps=502:1500 41:5:1: >"l=4:c=2:2000 H7:c$="A = 147 " M010 ,25;c$:ps=557:1500 R:f=2514-1:10 ,f;c$:5:f \:f=28:10 ,14;c$(f):5:f aps=69E:1500 f0:4:0: pre=9004,#:1000 z0:999 O4,5,71G,2,71.5,9 ,72H,6,76L 3455 :5 "l=5:c=9 :1950 $4:re=9006.#:1000 ps=99c:1500 6:999 d$="S" ps=106j:1500 f=2440(8 4(f/8)-1,5;" ":y1=f:1100L 5 f ;1:4:5,5;o$;6,5;o$ ps=110n:1500 F0:2,6;a$(5);3,6;a$(5) -4:0:re=90080#:1000    N/S  :re=90091#:1000  3700t 1:1::6 $(k=110nre=90113#:1000 )+5:l=3:c=2:2000 .-7:c$="F$ = ""Fred Napoleon Harris""" 3"10 ,22;c$(10 ) 8ps=5:1500 =>f=12 18:10 ,32 -f;c$(f):5:f BDf=29 :10 ,14;c$(ff+17):5:f G@f=10 27:10 ,14;c$(f);" ":5:f L10 ,14;o$ Mps=15:1500 Q0:0::4 Rre=90124#:1000 S 3700t T :4 V(k=115sre=90135#:1000 [re=90146#:1000 \$0:re=90157#:1000 ]ps=1.5@:1500 `8l=9 :c=16:7:3695o:1950 e oo6,1,2,1,2.5 ,1,3,1,3.5`,1,4,1,4.5 t$0:re=90102#:1000 ~)c$="    " 411 ,4;1;c$;12 ,4;c$  1600@ %k110nk115s3730  1700  f$=" " g$=" " h$=" " i$=" " e$=" "   f=14 l,c;f$;l+1,c;g$  30 l,c;h$;l+1,c;i$  30 f ( <  EYES  A 4: B710 ,18;h$;11 ,18;i$:40( F$l=10 :c=18:3850  PG2,7;e$;3,7;f$;4,7;g$:40( Z"l=3:c=7:3850  dG2,7;e$;3,7;f$;4,7;g$:20 e!e$=" "+e$:f$=" "+f$:g$=" "+g$ fh$=" "+h$:i$=" "+i$ nf=713 o52,f;e$;3,f;f$;4,f;g$:20 xf f=1822 )10 ,f;f$;11 ,f;g$:20 f f=1418 52,f;e$;3,f;f$;4,f;g$:20 f A10 ,23;a$(9 );11 ,23;a$(9 ) f=1922 52,f;e$;3,f;f$;4,f;g$:20 f 0::4 @2,22;e$;3,22;f$;4,22;g$  'j$="" l$="":n$="" 'k$=""  0  4170J )0,0;k$;1,0;j$ f=242 ;f,0;k$(23);f+1,0;j$(23) f 5,0;j$ f=6182 Kf,0;n$;f,24;n$;f+1,0;l$;f+1,24;l$ f @19,0;j$;20,0;k$;21,0;j$ re=4100:1000 #13 ,10 ;"" x=88X102f7 y=45-5796 Rx,y:3,0:x,y+1:3,0:x,y+2:3,0 y:x re=4101  >568,16,1,2,8," FAGIN'S BANK pl" 1184,16,1,2,8,"c " a2,23;k$(24);3,23;j$(24);4,23;k$(24)  1000 ".64813-,126~:64814.,246 ,64815/ ^ h PASWORD  r :4 |re=9020<#:1000 -6:ln=7:cm=3:1400x $0:re=9021=#:1000 #4290:l=3:c=20 ps=51.5N:1500 7:1950 6:999  —8,1,524,1,52.5R,1,535,1,53.5V,1,546,1,54.5Z,1,557,1,568  FLOW DIAG  7:1: z#1;0,0;" ";1,0;"______________________________" K0,0:0,175:255,0:0,-175 (124|,175:0,-12 $x=58::y=24:4500 C2,9 ;"Computer asks";3,10 ;"for password" 4124|,138:0,-14:4530  ps=76L:1500 $x=480:y=24:4500 =7,10 ;"Human puts";8,12 ;"in word" !3124|,99c:0,-14:4530 $ps=83S:1500 &P44,,-22:-44,,-22:-44,,22:44,,22 +813 ,13 ;"Is it";14,13 ;"right?" ,17,16;"Yes" .3124|,40(:0,-11 :4530 /ps=89Y:1500 0%75K,0:0,-28 55#1;0,6;"_________________" 66480,0:0,28:76L,0 :k19,8;"Computer Prints";20,7;"""Correct. Welcome";21,12 ;"Comrade""" Dps=128:1500 NK80P,62>:-502,0:0,107k:93],0 O7-3,3:3,-3:-3,-3 S13 ,8;"No" X Ax,0:0,-y:-2*x,0:0,y:x,0  Z4,4:-4,-4:-4,4:4,-4:0,-1   SIMPLE PROGRAM  0:7: 1:1  re=9030F#:1000 f=135#  =0:1,8;o$;1,30;o$:15 !=7:1,8;o$;1,30;o$:15 *f 41650r:1700 >l=1:4800 Cps=14:1500 H 999 Ips=31:1500 M 999 P$ps=38&:1500:999 R1650r:1700 Wl=4:4800 \ps=14:1500 f999:999 pps=34":1500 z/l=7:4800:l=10 :4800 ps=36$:1500 999:999 ps=480:1500 0:999  1 f=115 @0:13 ,15;t$;14,15;t$:15 @7:13 ,15;t$;14,15;t$:15 f 416,0;0;a$;17,0;a$  999 $ps=76L:1500:999 ps=92\:1500 l=13 :4800 0:0  7l,0;0;5;a$;l+1,0;a$  $ EYES 2  .&5::re=9041Q#:1000 8 4 B=7,0;e$;8,0;f$;9 ,0;g$ Lf=112 V57,f;e$;8,f;f$;9 ,f;g$:15 `f j#l=8:c=12 :3850  t #(540(,65A,3,4,8,"PROGRAM" #)718,65A,3,4,8,"VARIABLES" #*272H,40(,2,3,7,"Age?" #+2136,40(,2,3,8,"147" #,58,40(,1,2,7,"Address?" #-F72H,40(,1,2,8,"""Flat 8 Gasworks Lane""" #.58,40(,1,2,8," H = " #/440(,16,1,2,8,"String" #0/40(,40(,1,2,8,"$" #1388X,40(,2,3,7,"Name?" #2F32 ,88X,1,2,8,"Number (N) or String (S)" #3E40(,0,1,2,7,"Actually it was a string" #4580P,40(,2,3,7,"Height?" #5F40(,0,1,2,7,"Actually it was a number!" #6196`,72H,1,2,8,"N =" #75128,72H,1,2,8,"649632" #F0,152,1,2,7,"Correct. Welcome Comrade" #FM0,8,1,2,8,"1 PRINT ""WHAT IS THE PASSWORD?""" #G40,32 ,1,2,8,"2 INPUT" #H/64@,32 ,1,2,8,"W" #I/72H,32 ,1,2,8,"$" #JN0,568,1,2,8,"3 IF W$ = ""SAUSAGES"" THEN PRINT" #KK0,80P,1,2,8," ""CORRECT. WELCOME COMRADE""" #LE0,104h,1,2,8,"4 IF W$ IS NOT EQUAL TO" #MG0,128,1,2,8," ""SAUSAGES"" THEN ....." #N>64@,104h,1,2,8," <> " #OJ568,104h,1,2,8,"<>""SAUSAGES"" THEN ......." #P7200,104h,1,2,8,"GO TO 1" #Q565A,0,2,3,8,"BE A SPY" A O T :a[~D"Basically speaking"]    ~000000000000000000000000000000000000(((((((((((((((((((((((((((((555(((((((((((((((((                        ![~#"[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(// P?*-X  PX T'R>xD|83cc38pp83NEXT  1:1::7 J5,6;"NEXT PROGRAM LOADING";10 ,10 ;"PLEASE WAIT"  1 ( "RADIO32" ?RADIO32 cl"e "RADIO32" 'a$=" " o$=" " ( 0 d 1300 i 21004 n 2500 x 2700 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 _1,1:253,0:0,173:-253,0:0,-173   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"  TAPE OFF   2: /6,3;"" @f=712 :f,3;"":f "013 ,3;"" ' 6 ,re=15906:1000 1re=15917:1000 4 6E480,60<,1,2,7,"START the software tape" 7@62>,80P,1,2,7,"NOT the voice tape" ?   @""1600@ E23560\,0 J"23560\=01610J Tk=23560\ ^ r-#1;1,7;"Press SPACE key" | 1600@ k32 1660| )#1;1,7;a$(15)  l5:5:5: " ""a",136  10   GUN   2080   b$=" " f=817 c$:f,16;c$ f  20 13 ,24;" " ,f=110 :.002xn,20:f 9 ,14;"" f=13 0-1 9 ,f;b$ f  9 ,0;" " 13 ,24;" " f=17 l,c:l,c;"":1 f  2090* f=17 l,c:l,c;" ":1 f Z#1;0,9 ;"Press SPACE key";1,4;"(If you are still alive!)"  1660|   "_________ _" !" " ""_____ " #" " $" ____ " %" " &" " '" __ " (" " )" " *x9 ,15,8,14,7,14,6,15,5,14,4,13 ,3,12 4 WORDS DATA  >"j$(60<,5):2170z Hf=160< Rj$(f) \f f zQ"TRAIN","MOTOR","SMILE","PLAIN","BRING","CHEER","PLATE","BRAIN","FLOOR","SAUCE" |Q"EIGHT","FLOOD","TRAMP","LIGHT","HORSE","LEAVE","RIGHT","GREEN","QUIET","POINT" ~Q"GREAT","QUITE","RADIO","LARGE","BREAD","CHILD","TODAY","STALL","PIANO","SUGAR" Q"STORE","CLEAR","SMALL","BLOOD","WITCH","AFTER","ALIEN","RIVER","SHORT","RULER" Q"APPLE","SHEET","SMOKE","TIGER","SHEEP","EARLY","MUSIC","VOICE","TRUTH","NOBLE" Q"CYCLE","SHAPE","BEAST","RANGE","FLUTE","SHAME","NORTH","THUMB","SCALE","SPINE"  Y/N  l-1,c;". " z=0:2490 7k121yk110n.5,1:2465 l-1,c;k ky=k z=1:2490 +k=12 l-1,c;". ":2465 *k13 .5,1:2475  ""2490 23560\,0 l,c+z;1;"":10 l,c+z;1;"":10 "23560\=02492 k=23560\   INTRO  5: re=2590 :1000 4 &'''''"The password is a five letter" $'"word. You have only ten guesses" #'"but to help you I will fill in" %'"any letters you get right. (Even" !'"if they are not in the right" '"place)." 1650r ,5:'"If you fail you will be shot -" '"sorry about that."  1650r  >557,0,1,2,7,"Greetings Comrade"  THE GAME  2:7:1200 /2,3;"ABCDEFGHIJKLMNOPQRSTUVWXYZ" 6 +5,5;"You have 10 lives left" (15,4;"Enter the password" 119,2;"Don't forget to press ENTER" 0 $10 ,11 ;" " 11 ,11 ;" " 15,23;"....." w(5) 3200 v=10 1-1 !5,14;6;v;o$ %15,23;0;"....." z=04 7:2490 0 >(k>96`k<123{)(k>64@k<91[)2860, z=02820 ,k=12 z=z-1:15,c+z;"." "k=13 3000 ' 2820 ,k>96`k=k-32 615,c+z;k ;w(z+1)=k @z J7:2490 T6k=12 z=4:15,c+z;".":2820 ^k13 2890J 0 x=1z $2,w(x)-62>;1;o$ f=15 9s$(f)=w(x)10 ,9 +f*2;0;w(x) f x q=11 192 (10 ,q)=17v v=03300 q ;19,2;6;"Correct.... Welcome, Comrade"  1650r &0:4: 045,0;"You worked out the password. Do" :#'"you think you can do it again?" D+''6;" Type ""Y"" for another go." N#'6;" Type ""N"" to stop." X''"Your choice? ." ]-5:l=16:c=13 :2450 bky=121y110n l  INITIALISE  no=0 l=16:c=23  s$=j$((*60<)+1)  !19,2;a$(28) 1650r 0:4: #'" You have had your chance. You" $'" will now be shot as a counter-" #'" spy. But before you die I can" #'" reveal that the true password" * '" was: "; 4 5;s$ >'" Easy wasn't it!" H 1650r R 7: \ 2000 f 6: p35,0;" If another spy wishes to try," z$'" type ""Y"". But be warned, the" #'" password may have changed! If" #'" you have finished type ""N""." -5:l=12 :c=29:2450 ky=121y110n  A O  Pn)<DSTOP the software tapea[~ Xl)@  @UUUUUU@ UUU@PTUTP@??ANEXT G 1:1::7 J5,6;"NEXT PROGRAM LOADING";10 ,10 ;"PLEASE WAIT"  1 ( "RADIO33" >RADIO33 @ ?{過@ "RADIO33" 'a$=" " o$=" ":t$=" " (Mt()=(65536*23674z\+256*23673y\+23672x\)/502 c PROGRAM  n 1300 s4st=1:fn=18:re=1860D:1800 t 2200 x 21004 } 1700 2500 re=9000(#:1000 999 3st=1:fn=5:re=1880X:1800 2950 ps=10 :1500 7:0::1200 $6:re=9002*#:1000 ps=21:1500 2700 2800 1650r:1700 7:1200 $6:re=9003+#:1000 4st=1:fn=20:re=1860D:1800 -64838F,200:64841I,64@ ps=24:1500 1:1: 64836D ps=28:1500  3000  3st=1:fn=7:re=1890b:1800 1650r:1700  3100 "ps=179:1500 , 3500  9999' re=re+1  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=712 :f,3;" ":f -.13 ,3;"" 2 5 <re=1390n:1000 Fre=1391o: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"  UNCONDITTIONAL  t()0:4: Hre=2190:1000 R#n=((*12 ))/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"  2250 f=64813-64847O n:f,n f  30,224,33!,0,88X,1,0,3,126~,131,119w,35#,11 ,62>,0,184,32 ,246,185,32 ,243,201 r0,33!,0,0,17,0,0,1,0,27,237,176,201  NO INPUT  y1=l*8-8 l,c;".." z=0:2490 5k>579k<491.5,1:2320 !d$=k:x1=c*8:1100L k1=k $z=1:2490 )3k=12 l,c;"..";l-1,c;t$:2320 .(k=13 no=k1-480:2390V 35k>579k<480.5,1:2340$ 8)d$=k:x1=8*c+8:1100L =k2=k Bz=2:2490 GCk=12 l,c+1;". ";l-1,c+1;t$:2340$ L*k13 .5,1:2370B Q'no=10 *(k1-480)+k2-480 V  Y/N  $x1=c*8:y1=l*8-8 l,c;". " z=0:2490 )kk1kk2.5,1:2465 d$=(k-32 ):1100L ky=k z=1:2490 3k=12 l,c;". ";l-1,c;t$:2465 *k13 .5,1:2475  ""2490 23560\,0 l,c+z;1;"_":10 l,c+z;1;"_":10 "23560\=02492 k=23560\   QUESTION MARK  )1:6:1::2585 f=415 c$:f,0;c$ f f=216 c$:f,8;c$ f -64838F,64@:64841I,200 64836D   ""  ""  ""  " "  " "  " "  " " " " "" " #" " $ " " %" " ("TRAIN MOTOR SMILE PLAIN" )"BRING CHEER PLATE BRAIN" *"FLOOR SAUCE EIGHT FLOOD" +"TRAMP LIGHT HORSE LEAVE" ,"RIGHT GREEN QUIET POINT" -"GREAT QUITE RADIO LARGE" ."BREAD CHILD TODAY STALL" /"PIANO SUGAR STORE CLEAR" 0"SMALL BLOOD WHICH AFTER" 1"ALIEN RIVER SHORT RULER" 2"APPLE SHEET SMOKE TIGER" 3"SHEEP EARLY MUSIC VOICE" 4"TRUTH NOBLE CYCLE SHAPE" 5"BEAST RANGE FLUTE SHAME" 6"NORTH THUMB SCALE SPINE"  RANDOM NOS  1:0: 23560\,0 t()>60<2780 #23560\32 2745 M(*22),(*32 );(*5)+3;((*26)+65A) 2740 f=1270 N(*22),(*32 );ٺ(*5)+3;((*26)+65A) f 0   DICE  1 k=13  2900T f=16 l,c g=15 "c$:l+g,c;c$ ,g 6 10 @f Jk O T 3,4,e$,f$,h$,f$,n$ U!3,13 ,e$,g$,f$,i$,n$ V!3,22,e$,g$,h$,i$,n$ W!12 ,4,e$,k$,f$,k$,n$ X"12 ,13 ,e$,k$,h$,k$,n$ Y"12 ,22,e$,j$,f$,j$,n$ e$="" f$=" " g$=" " h$=" " i$=" " j$="" k$=" " n$=""   PAC MAN  #:6:12 ,16;"A" 5:0 f=015 $3,f;" ":.1}L,10 f f=310 ;f,16;o$;f+1,16;"":.1}L,10 f  20 A11 ,16;o$;12 ,16;"":1,-10   INTRO TO GAME  &m$="":f$=" " 01:7: :c=0:3300 D 3 Nps=10 :1500 Xc=18:3300 ]ps=25:1500 b$6:re=9004,#:1000 gps=32 :1500 vf=113 K(*10 )*2+3,(*5)*3;t$:.1}L,10 15 S(*10 )*2+3,(*5)*3+18;t$:.1}L,0 15 f ps=63?:1500 )0,0;a$;1,0;a$ -64814.,40(:64813-:6 ps=78N:1500 .64814.,224:64813-:2  (f=3212:f,c;f$:f  H SET MODEL  M>r$(2,5):r$(1)="dark":r$(2)="light" R0:0::4 \&re=90102#:1000:999 ]5:999 f?k1=108l:k2=100d:l=4:c=26:2450 k"b=2+4*(ky=108l) p4:999 u6d$=r$(1+(b=6)):x1=203:1100L z999:5:999 $l=12 :c=20:2300 *no>10 l-1,c;t$:3460 fr=no (4:999:5:999 $l=20:c=18:2300 5no>98bno<2l-1,c;t$:3475 dm=no:lm=100d-dm SL=lm:sd=dm   THE GAME  3400H 3900< 3800 &1:1+5*(b=2) f=16 ?2,6;a$(20);3,6;a$(20) 25 B2,6;b;a$(20);3,6;a$(20) 10 f 0  n=0  0 f=1dm >f(1)8+((f-1)/16),(f-16*((f-1)/16))*2-2;3;v$:.1}L,10 :n=n+1:6,7;6*(b=2);dm-n;" ":12 $f & dm=dm-n )j=((f-2)/16) * n=0 .f=1lm 8>f(2)15+j+((f-1)/16),(f-16*((f-1)/16))*2-2;7;v$:.1}L,22:n=n+1:13 +j,7;6*(b=2);lm-n;" ":12 Bf D lm=lm-n G 502 H#lm=0dm=04000 Lre=9021=#:1000 V 150 X%lm=1dm=99c:3691k Y%dm=1lm=99c:3691k `p=(lm+dm)/100d elm=((lm+.5)/p) jdm=100d-lm kg>32 3700t o<l(g+1)=(lm/2.1fff):d(g+1)=(dm/2.1fff) t g=g+1  3510  SET SCREEN  b:b::6*(b=2) #0,10 ;"GENERATION ";g (6,1;"TOTAL ";dm;" DARK "; b=2" (hard to see)" b=6" (easy to see)" 3'z$(dm*2)  ''''" TOTAL ";lm;" LIGHT "; b=2" (easy to see)" b=6" (hard to see)" 7'z$(lm*2) b:re=9020<#:1000 2 < INITIALISE  Fz$="" G v$="" P g=1 Z f(2) d!f(1+(b=6))=.8L n9f(1+(b=2))=.8L/(fr*.6+1.1 ) xl(32 ):d(32 ) 2l(1)=lm/2.1fff:d(1)=dm/2.1fff  re=9022>#:1000 9lm=0l(g+1)=0:d(g+1)=47/ 9dm=0d(g+1)=0:l(g+1)=47/  120x 0:0::4 &re=9025A#:1000:999 5:999 @l=10 :c=29:k1=121y:k2=110n:2450 ky=121y4100 0:0::4 re=9030F#:1000 5:999 @l=10 :c=21:k1=121y:k2=110n:2450 ky=110n  3500  GRAPH OF RESULTS   'l$="" 1:1:6: '"You chose to start with ";sd;" dark" %'"and ";SL;" light. The dark moths" "!'"were better camouflaged by a" ''"factor of ";fr ,g>32 g=32 6#g<844000:4300 @6#1;0,2;"" Js16,491:160,0:16,63?:160,0:16,113q:160,0 T610 ,24;"DARK";18,24;"LIGHT" ^hs=(160/(g+1)) d 7 hf=1g+1 rl(f)=04250 wx=17+hs*(f-1) |h=0hs-2 x+h,0:0,l(f) h f  3 f=1g+1 d(f)=04300 x=17+hs*(f-1) h=0hs-2 x+h,64@:0,d(f) h f -#1;1,7;"Press SPACE key"  1650r  0x=g*8+8 :9#1;0,10 -g;"";l$(2*g);"" Dx1=8*(10 -g) N x1,491:2*x,0 P x1,63?:2*x,0 R!x1,113q:2*x,0 X:10 ,14+g;"DARK";18,14+g;"LIGHT" ] 7 bf=1g+1 gl(f)=04485 lh=013 v0x1+16*f-15+h,0:0,l(f) h f  3 f=1g+1 d(f)=04540 h=013 1x1+16*f-15+h,64@:0,d(f) h f  6#1;0,2;"" $s16,491:160,0:16,63?:160,0:16,113q:160,0 .?7:f=16176:f,0:0,47/:f /@3:f=16176:f,64@:0,47/:f  10000' #(9491,142,3,3,7,"Choose one" #)770F,168,3,3,7,"password" #*430,65A,4,5,8,"RANDOM" #+178N,60<,4,5,8,"RND" #,A35#,0,1,2,10 ,"HERE COME THE BIRDS" #2L0,0,1,2,7,"Choose whether you want the bark" #3;0,24,1,2,7,"light or dark." #4<105i,24,1,2,7,"ENTER L or D?" #5I0,64@,1,2,7,"How many times safer are the" #630,88X,1,2,7,"moths." #7=491,88X,1,2,7,"ENTER 1 to 1O ?" #8B0,128,1,2,7,"There are 1OO moths." #9A0,152,1,2,7,"How many are dark ?" #F32 ,16,1,2,8,"ONE SPECIES HAS DIED OUT" #AJ8,40(,1,2,7,"Would you like a graph of the" #BC8,72H,1,2,7,"generations (Max 32)? " #C8162,72H,1,2,7,"Enter Y/N" #FH40(,40(,1,2,7,"Would you like another go?" #G796`,72H,1,2,7,"Enter Y/N" ' A O T Po1Pa[~DSTART the voice tape