ZXTape!Red Cross 4d4i6dR:0:7:0:1::0,10 ;2;" RED CROSS " n$3000 :1000:2000 x 4000 fl120x -n=40(0-2:.01z# =,n:n .y3,x3;2;6;1;144 n=10 34"2 Sn/100d,15-n/2:n/2:n:2,-2:.1}L,40( $"Press ENTER to play again ";z$: -a$(20,32 ):b(20,32 ) n=120 2x=1+(*32 ):y=1+(*20)  a$(y,x)=1451020 a$(y,x)=145 n $n=019 .4x1=3+(*28):y1=3+(*16) 84b(y1,x1)=40(a$(y1,x1)=1451070. B2y=y1-1y1+1:x=x1-1x1+1 L b(y,x)=b(y,x)+(b(y,x)<6) Vx:y `2y=y1-2y1+2:x=x1-2x1+2 j b(y,x)=b(y,x)+(b(y,x)<6) tx:y ~b(y1,x1)=40( .1}L,2*n:n  (n=120:m=132 `a$(n,m)=(145)n,m-1;2;7;145:.1}L,2*n+m/16 m:n >x3=0:y3=1:1,0;5;144 cnt=0:.6,0   J0,568,63?,568,126~,255,126~,0 I24,24,255,255,24,24,0,0 I0,42*,124|,63?,124|,63?,84T,0 &m=02:n=07 a:((97a+m))+n,a n:m  1:""4010 "1:z$=:z$=""4020 .2~L,30:fl=0 -dx=(z$="8"x3<31)-(z$="5"x3>0) -dy=(z$="6"y3<20)-(z$="7"y3>1) &a$(y3+dy,x3+1+dx)=145 "y3+dy,x3+dx;5;144 4dxdyy3,x3;1+b(y3,x3+1);146 y3=y3+dy:x3=x3+dx 0(dxdy)cnt=cnt+1:0,0;cnt ,z$="0""Press ENTER to play again ";z$: ")b(y3,x3+1)=40(fl=1: ,