ZXTape! 0Created with Ramsoft MakeTZX2]Brainstorm (Micromega) Micromega1983EnglishPuzzle6.95 UKPNoneOriginal ReleaseBRAINSTORMN T"Brain Storm by S.Brooks  Jan 83  vers 5#3  1: 31600@:24,158:200,0 4,3;"Welcome to ";1;1;"BRAIN STORM";0;0;" ....";6,3;"You will be shown a pattern";3;"of small numbered rectangles,";3;"behind each of which a number";3;"is concealed" ("11 ,3;"You must find all the numbers";3;1;1;"in the correct order";0;0;" in the";3;"fewest goes. Each number you";3;"select will reveal the hidden";3;"number for a short time - you";3;"must remember it's location" 2.18,3;"Enter difficulty (1 - 5)" <%i$=:i$=""i$<"1"i$>"5"60< Fc=i$ HQm=2060<:.01z# =,m:.01z# =,m-15:.01z# =,m-30:m Kd=c*5+5 Mf(d) P?k=1:g=100d:l$=" " Z n(d):a(d) d i=1d n a(i)=i:i i=d1-1 x=(*i)+1 n(i)=a(x):a(x)=a(i) i  1600@ z=(c+1)*16 #i=152152-z-16 "64@,i:119w,0:i i=64@18424  i,152:0,-z i i=1d .01z# =,i i$=i:i<10 i$="0"+i$ xc=(i/5.1#333)*2+3:yc=(i-(i/5.1#333)*5)*3+5:xc,yc;1;4;" ";i$;xc+1,yc;" " i u16,1;"You must find the hidden ";x;1;"Which rectangle would you like to open? Enter 2 digits" 520,18;"Goes Left:";1;1;g 6@18,25;" ":i$=:i$=""i$<"0"i$>"3"3106 8.05|L,10 ;!18,25;4;i$; @i=1502:i J&j$=:j$=""j$<"0"j$>"9"330J L.05|L,12 O 4;j$ T&v=(i$+j$):v=0v>d3106 V f(v)=-13106 ^xc=(v/5.1#333)*2+3:yc=(v-(v/5.1#333)*5)*3+5:n$=((n(v)+" ")(2)):xc,yc;1;1;6;" ";0;n$;xc+1,yc;1;" " hn(v)=k500 rRi=15:1:12 :.01z# =,i:2:12 :i:1 |xc=(v/5.1#333)*2+3:yc=(v-(v/5.1#333)*5)*3+5:xc,yc;4;1;" ";0;i$+j$;1;xc+1,yc;" " eg=g-1:20,28;" ";20,28;1;1;g:g=01500  300, Ca=04:n=300-6:.01z# =,n:n:a  k=k+1 Zxc,yc;2;1;" ";0;7;n$;1;0;xc+1,yc;" " B16,0;l$;16,1;"You now have to find ";k f(v)=-1  k=d1000  300, 916,0;l$;l$;l$;l$;l$:1000+10 *c 16,2;"Well done !!"::2;"I bet you thought that was";2;"pretty clever .."::2;"well, now it gets harder":c=c+1:72H 16,2;"Yes, you're pretty smart .."::2;"but I've still got a bit up my sleeve - try this for size":c=c+1:72H 16,2;"Don't get too ambitious .. I can still make it tougher"::2;"careful you don't strain your brain - see if you can manage ";1;"this";0;" in ";100d-g;" goes":c=c+1:72H 16,2;"OK, you managed that, I admit, yes it impresses me"::2;"But ";100d-g;" goes really wasn't that smart .. try this one !!":c=c+1:72H Q16,2;"You're the ";1;1;1;"CHAMP";0;0;0;" !!"::2;"Now challenge your family and friends, and see if you can remain CHAMP":t=.01z# =:i=1100d:t=t*-1::.03{u\,(i/12 +.5):.05|L+t,(2*i/6)+(i/4)*t:i:1510 16,0;l$;l$;l$;l$;l$;16,1;"Oh dear ...."::2;"You really haven't got a very good memory":i=1502:.09}8Q,1:.05|L,(((i/4)-((i/5)*(i>30)))):i P16,0;l$;l$;l$;l$;l$;18,4;"Fancy another game? (y/n)" !i$=:i$"y"i$"n"1520  i$="y" :n=115:.1}L,n/2:.07}\(,n:10 ,6;"Thanks for the game";20,5;"Press ENTER to finish":13 n:1540  @u1,3;1;1;6;"%%%%%% ";7;1;"BRAIN STORM";1;6;" %%%%%%": c=<Hd kgd32@xz v tz# =5 L 5   5  J0N1 I BRAINSTORMNuz"Brain Storm by S.Brooks  Jan 83  vers 5#3  1: 31600@:24,158:200,0 4,3;"Welcome to ";1;1;"BRAIN STORM";0;0;" ....";6,3;"You will be shown a pattern";3;"of small numbered rectangles,";3;"behind each of which a number";3;"is concealed" ("11 ,3;"You must find all the numbers";3;1;1;"in the correct order";0;0;" in the";3;"fewest goes. Each number you";3;"select will reveal the hidden";3;"number for a short time - you";3;"must remember it's location" 2.18,3;"Enter difficulty (1 - 5)" <%i$=:i$=""i$<"1"i$>"5"60< Fc=i$ HQm=2060<:.01z# =,m:.01z# =,m-15:.01z# =,m-30:m Kd=c*5+5 Mf(d) P?k=1:g=100d:l$=" " Z n(d):a(d) d i=1d n a(i)=i:i i=d1-1 x=(*i)+1 n(i)=a(x):a(x)=a(i) i  1600@ z=(c+1)*16 #i=152152-z-16 "64@,i:119w,0:i i=64@18424  i,152:0,-z i i=1d .01z# =,i i$=i:i<10 i$="0"+i$ xc=(i/5.1#333)*2+3:yc=(i-(i/5.1#333)*5)*3+5:xc,yc;1;4;" ";i$;xc+1,yc;" " i u16,1;"You must find the hidden ";x;1;"Which rectangle would you like to open? Enter 2 digits" 520,18;"Goes Left:";1;1;g 6@18,25;" ":i$=:i$=""i$<"0"i$>"3"3106 8.05|L,10 ;!18,25;4;i$; @i=1502:i J&j$=:j$=""j$<"0"j$>"9"330J L.05|L,12 O 4;j$ T&v=(i$+j$):v=0v>d3106 V f(v)=-13106 ^xc=(v/5.1#333)*2+3:yc=(v-(v/5.1#333)*5)*3+5:n$=((n(v)+" ")(2)):xc,yc;1;1;6;" ";0;n$;xc+1,yc;1;" " hn(v)=k500 rRi=15:1:12 :.01z# =,i:2:12 :i:1 |xc=(v/5.1#333)*2+3:yc=(v-(v/5.1#333)*5)*3+5:xc,yc;4;1;" ";0;i$+j$;1;xc+1,yc;" " eg=g-1:20,28;" ";20,28;1;1;g:g=01500  300, Ca=04:n=300-6:.01z# =,n:n:a  k=k+1 Zxc,yc;2;1;" ";0;7;n$;1;0;xc+1,yc;" " B16,0;l$;16,1;"You now have to find ";k f(v)=-1  k=d1000  300, 916,0;l$;l$;l$;l$;l$:1000+10 *c 16,2;"Well done !!"::2;"I bet you thought that was";2;"pretty clever .."::2;"well, now it gets harder":c=c+1:72H 16,2;"Yes, you're pretty smart .."::2;"but I've still got a bit up my sleeve - try this for size":c=c+1:72H 16,2;"Don't get too ambitious .. I can still make it tougher"::2;"careful you don't strain your brain - see if you can manage ";1;"this";0;" in ";100d-g;" goes":c=c+1:72H 16,2;"OK, you managed that, I admit, yes it impresses me"::2;"But ";100d-g;" goes really wasn't that smart .. try this one !!":c=c+1:72H Q16,2;"You're the ";1;1;1;"CHAMP";0;0;0;" !!"::2;"Now challenge your family and friends, and see if you can remain CHAMP":t=.01z# =:i=1100d:t=t*-1::.03{u\,(i/12 +.5):.05|L+t,(2*i/6)+(i/4)*t:i:1510 16,0;l$;l$;l$;l$;l$;16,1;"Oh dear ...."::2;"You really haven't got a very good memory":i=1502:.09}8Q,1:.05|L,(((i/4)-((i/5)*(i>30)))):i P16,0;l$;l$;l$;l$;l$;18,4;"Fancy another game? (y/n)" !i$=:i$"y"i$"n"1520  i$="y" :n=115:.1}L,n/2:.07}\(,n:10 ,6;"Thanks for the game";20,5;"Press ENTER to finish":13 n:1540  @u1,3;1;1;6;"%%%%%% ";7;1;"BRAIN STORM";1;6;" %%%%%%": c=<Hd kgd32@xz v tz# =5 L 5   5  J0N1 I