Flower 2 24WFlower Power by Ian D. Birdsey from Sinclair User, Oct'85 A0:0:0:0:0:0:0: @31765|:h=0::"FPgraph""a":"FPcode"31766| (y100d:4:7,72H:241,0:0,-9 :-241,0:0,8:0 26;7,2;"";8,2;"";7,28;"";8,28;"";5;16,14;1;"KEYS";0;18,12 ;"q...Left";19,12 ;"e..Right";20,12 ;"p.....Up";21,12 ;"k...Down" <a$=" Herbert must collect the flowers on each screen to rescue Wilma. The problem is that he must avoid the nasties which roam the screen. Press any key to begin." F#p:p<0100d:70F PX3;13 ,1;a$(30):a$=a$(2)+a$(1):""100d Z.1}L,p:70F d 0,0,0,0,4,4,4,4,5,7,7,7,7,7,7,9 ,11 ,12 ,12 ,7,7,7,9 ,7,5,4,4,0,0,0,0,0,0 nA5,5,9 ,9 ,9 ,9 ,7,5,4,4,7,7,7,7,7,7,2,2,5,5,5,5,4,2,4,4,7,7,7,7,7,7,5,5,9 ,9 ,9 ,9 ,7,5 x4,4,7,7,7,7,9 ,11 ,12 ,12 ,7,7,7,9 ,7,5,4,4,0,0,0,0,0,0,-1 !s=0:l=3:b=1 =a$=""::23560\,0:l=020 b=14b=1 Gn=15:2;n+4,n+10 ;a$(n11 -n):n :5;11 ,12 ;"";12 ,12 ;"" :7;11 ,18;"";12 ,18;"" :6;11 ,15;"";12 ,15;"" j3;14,1;"Can you win the heart of Wilma";15,5;"on screen number: ";b;"?" 1210:n=130:p:.1}L,p:n 0,-2,-3,-3,0,0,0,0,0,0,2,2,0,0,0,0,-2,-2,-3,-3,0,0,5,5,5,7,9 ,9 ,9 ,9 ,9 @31804<|,4*b+14:31897|,4*b+14 a=32080P}:f=1b Px=(*3)-1:y=(*3)-1:x=0y=0240 mn=03010 :a+n,144+n/10 :a+1+n,2:a+3+n,x:a+7+n,y:n 2x=(*12 )+3:y=(*20)+3 |n=010 10 :a+2+n,x:a+22+n,x+1:a+6+n*2,y:a+16+n*2,y+1: Xa+4+n,2:a+24+n,3:a+5+n,16:a+25+n,17 "{a+8+n*2,2:a+18+n*2,3:a+9 +n*2,23:a+19+n*2,24:n ,a=a+40(:f: 66;0,0;"";1,0;"";18,0;"";19,0;"";0,25;"";1,25;"";18,25;"";19,25;"" @n=0183:4;n,28;"";n+1,28;"":n:4;3,1;"";4,1;"";15,1;"";16,1;"" J,x=9 :y=0:d=0:f=0 T ox=x:oy=y ^!0,0;:31766| hk=23560\-101e r3x=x+(k=6x<18)-(k=11 x>0) |3y=y+(k=0y<30)-(k=12 y>0) !440:d=1140 Fox,oy;" ";ox+1,oy;" ";5;x,y;"";x+1,y;"" b6;20,0;"SCORE:";s;20,25;"LIVES:";l;20,13 ;"HIGH:";h  340T ((x,y)=0ū(x,y)=5)((x,y+1)=0ū(x,y+1)=5)((x+1,y)=0ū(x+1,y)=5)((x+1,y+1)=0ū(x+1,y+1)=5) h(x,y)=7ū(x,y+1)=7ū(x+1,y)=7ū(x+1,y+1)=7540 h(x,y)=6ū(x,y+1)=6ū(x+1,y)=6ū(x+1,y+1)=6490 h(x,y)<5ū(x,y+1)<5ū(x+1,y)<5ū(x+1,y+1)<55600  2u=(x>16)*18:i=(y>23)*25 Un=60-1:n;u,i;"";u+1,i;"":.01z# =,20-n:n (s=s+10 :f=f+1:f<4 V9 ,28;" ";10 ,28;" ":.1}L,-20:.01z# =,502  %n=020:.005y# =,n:n &'s=s+100d:b=b+1:140 0Fox,oy;" ";ox+1,oy;" ";7;x,y;"";x+1,y;"" :.4L,0:.4L,0:.2~L,0:.4L,0:.4L,2:.2~L,1:.4L,1:.2~L,0:.4L,0:.2~L,-1:.8L,0 N%l=l-1:l>0d=1: X s>hh=s b d=1: FPgraph X֪$##g $ɑ7O'u@;}~~ܾ~~};'C>>BB<2 $#0L$  qI1C}¾6>>>~O#~O#~ +6 #~ ++6+++q####~O> #~O#~ +6 #~ ++6+++q####!|>#~>#~####~++++++~##########ɣFlower   wFlower Power UDG & m/code setup by Ian D. Birdsey from Sinclair User, Oct'85 N0:7:0:0:0:0:0::31765| rh(a$dJ)=16*(a$(n)-480-(39'a$(n)>"9"))+a$(n+1)-480-(39'a$(n+1)>"9") ?l=80P22010 :"Line: ";l;:a,c,a$:t=0 (n=1̱a$2 2&a,h(a$):t=t+h(a$):a=a+1:n