c CAT  #  Cheshire Cat  By J.Perry  (c) The Micro User (reloc(&1300) 2 7::" at line ";: <7:23,1,0;0;0;0; F i:j:c P2:5,23,1,0;0;0;0; Z s:g d"ti=0:ti=ti+1:ti>2000 (0) n :0,1 x192,512:"Another Game ?" A=0: A<>-1 A=78  : i qu=-1:l=4:ol=4:r=4:or=4:go=0 F= k(7),lo(7),f(7) I=17:lo(I)=I +k(I)=100*(I 4)+10*((I 4) 2)+(I 2): 9N=73-1:rd=(N-1):td=lo(N):lo(N)=lo(rd):lo(rd)=td: 21,129,0,1,-1,0,1,1,127,-4,-2,-14,126,0:*FX9,8 32,1,-2,-1,-1,200,50,1,10,-1,0,-126,1,1:*FX10,8 (3,2,0,0,0,1,1,1,126,-1,0,-2,126,126 (4,3,3,0,0,4,0,0,120,-3,0,-4,100,120 )5,1,15,7,0,1,1,6,127,-1,0,-2,126,126 ",6,1,4,-3,-3,6,3,3,127,-1,-1,-20,126,126 ,+7,1,28,20,-48,1,1,1,126,-1,0,-2,126,80 6%8,1,0,0,0,0,0,0,5,-1,0,-2,100,80 @ J: Tj ^db(1,10,0,"Cheshire Cat") hdb(1,9,2,"______________") r'db(6,5,5,"Sound On : Sound Off") | db(2,0,11,"Choose level :") .db(5,3,15,"One : Two : Three : Four.") *db(4,0,20,"Press S and Q for sound.") /db(4,0,22,"Press Return to choose level.") C=0::C=C+1:C=5 C=1 -82 qu=-1 -17 qu=0 "db(4,17+qu*13,7,"__________") "db(4,3-qu*13,7," ") qu 0,1,1,4 db(4,C*8-7,17,"_______") 1 db(4,C*8-15,17," ") db(4,25,17," ")  ti=0:ti=ti+1:ti>200 -74 -74:gl=18+C*3  : 7db(c,x,y,m$):I=01:x,y+I);141;(128+c);m$:: &: 0c :D23,224,62,65,65,129,130,130,140,240,23,225,0,62,62,78,12,12,0,0 DF23,226,124,130,130,129,65,65,49,15,23,227,0,124,124,114,48,48,0,0 N#23,228,0,24,24,60,60,126,126,0 XB23,229,48,12,194,56,6,0,14,240,23,230,12,48,67,28,96,0,112,15 bH23,231,0,238,238,238,0,187,187,187,23,232,0,126,126,24,24,126,126,0 lF23,233,0,126,126,96,126,126,96,0,23,234,0,102,126,60,60,126,102,0 v>23,235,0,126,66,90,90,66,126,0,23,236,0,0,60,36,36,60,0,0 J23,237,0,126,126,126,126,126,126,0,23,238,238,132,132,228,36,36,228,0 H23,239,238,170,170,174,168,168,232,0,23,240,0,126,126,24,24,24,24,0 ?br$=5,231)+10+5,8)+231+" "+231+10+5,8)+5,231) f$=233+232+240  : s I=17:k(I) :l:r:x .I=129:box(4,1048,I*32-4,1192,I*32+28): !0,6:1064,gl*32-8:238;239  : :box(c,x,y,x1,y1):0,c:x,y:x,y1:x1,y1:x1,y:x,y:  :  k(s)  Qt=s*136:box(7,160,t+16,336,t-120):box(7,72,t-32,144,t-72):0,2:80,t-40:;s *box(5,640,t,960,t-96) 4)640,t:br$:box(7,696,t-28,896,t-64) >:k(s)>99 0,4:192,t:226;224:0,3:192,t:227;225 H)(k(s)/10) 10=1:0,1:224,t-32:228 R*k(s) 10=1:0,7:192,t-72:229;230 \ f: pl z I=01 I=0 t=ol*136 t=l*136 "box(7-I*6,160,t+16,336,t-120) : : r  I=01 I=0 t=or*136 t=r*136 box(5-I*4,640,t,960,t-96) : : x I=01:0,I 1 l=l-1:l:DLD B-66:l<7 l=l+1:l L-73:r<7 r=r+1:r:D`D V-105:r>1 r=r-1:r `or<>r ol<>l x j ol=l:or=r t -84 F= ~-74 F= F= dvD qu &11,2,255,5:&10,3,7,3 q:R=r*136-32 go=go+1:y  S=0co=2:S$=f$:qu 1,4,40,1 S=1 co=1:S$=3,234) /S=2 (C=2 C=4) co=2:S$=f$:qu 1,4,40,1 MS=2 (C=1 C=3) co=8:S$=3,235):0,15:704,R:3,236):qu 1,5,80,10 0,co:704,R:S$  ti=0:ti=ti+1:-99 ti>1000 0,0:704,R:3,237) F go=gl-2  z:m   : q ( L=lo(r) 2LC>2 V=0:LO=100-100*(L 4)+10-10*((L 4) 2)+1-(L 2):LO+k(l)=111 S=2: <;C<3 V=1:LO=100*(L 4)+10*((L 4) 2)+(L 2):l=L S=2: F"k(l) 100=V LO 100=0 S=1: P*(k(l)/10) 10=V (LO/10) 10=0 S=1: Z k(l) 10=V LO 10=0 S=1: d S=0: n: xy i=01:0,3-2*i G=4+go*32:I=i*12 1056,I+G:1184,I+G %85,1056,20-I+G:85,1184,20-I+G:  : z Ebox(7,160,l*136+16,336,l*136-120):box(7,640,r*136,960,r*136-96) $0,0:344,l*136-52:632,r*136-52 r=4:or=4:J=17 ol=J:l=J:l:x:r  -73:r<7 r=r+1:r:TNF -105:r>1 r=r-1:r  r<>or x or=r "X=0:K=17:f(K)=r X=1 , 6-74 X=0 @.f(J)=r:0,0:344,l*136-52:632,r*136-52:f J T ^: hf r I=0444 |,box(6,648+I,r*136-I-4,952-I,r*136-92+I) :0,4:648,r*136-32:;J  :  m:*FX15 "box(5,640,r*136,960,r*136-96) rig=0:I=17 J=17:lo(J)=I k=J  Ak=f(I) rig=rig+1:0,8:772,k*136-32:235:C=15:S=2 C=1:S=0 1,1,48+S*24,4 -0,C:772,k*136-32:(234+S):k=f(I) 0,4 4344,I*136-52:21,632,k*136-52:896,k*136-32:;I !ti=0:ti=ti+1:ti=500 (0)  "ti=0:ti=ti+1:ti=2000 (0) :I=0rig &1,6,50+I*5,20 0!J=07:j=16+J*160:i=(I+1)*128 :rig=7 c=(7) c=6 Dbox(c,j-4,i+4,j+128,i-108) N-0,4:j,i:226;224:0,3:j,i:227;225 X0,1:j+32,i-32:228 b0,7:j,i-72:229;230 l: vgo<10 g=32 g=0 rig=7 dZG R=rig*128+208 #0,4:64,R:"You got correct" 192,R-40:"in guesses" I=01:0,4+I*2 3576+I*8,R+I*4:;rig:384+I*8+g,R-40+I*4:;go: "ti=0:ti=ti+1:ti=2000 (0)  : I=01284 %box(0,328+I,400+I,948-I,656-I): +0,4:576,536:"in":416,448:"guesses" I=01:0,4+I*2 <320+I*8,614+I*4:"ALL RIGHT!":576+I*8+g,488+I*4:;go:  qu= T~H 0P%=0:D%=2:2,0,0,3:3,0,0,6:I%=016:E%=35  P%=(P%+E%)31 **1,7,P%*4,D%:2,8,P%*4,D%:3,8,P%*4,D% 4: >"ti=0:ti=ti+1:ti=2000 (0) H R: \reloc(Q%)::*T. fP%=:P%<=Q% p'L%=P-P%:129136"Relocating....." zM%=0L%-14 Q%!M%=P%!M%: =Q%:A%=138:X%=0:*FX15  $&100="OLD"+13+"RUN"+6+13 L%=&100&108:Y%=?L% Z%=&FFF4::21: