pangolins ]!K p_! pangolins /nq=100d:number of questions and animals -q$(nq,502):a(nq,2):r$(1)  qf=8 n=1qf/2-1 (#q$(n):a(n,1):a(n,2) 2n <n=nqf-1 Fq$(n):n dStart playing n4"Think of an animal.","Press any key to continue." x 0 $c=1:start with 1st question !a(c,1)=0300, p$=q$(c):910 "?":1000 in=1:r$="y"210 r$="Y"210 in=2:r$="n"210 r$"N"150 )c=a(c,in):140  ,animal 6"Are you thinking of" @p$=q$(c):900:"?" J 1000 Tr$="y"400 ^r$="Y"400 hr$="n"500 rr$="N"500 |Z"Answer me properly when I'm","talking to you.":300 ,  guessed it 9"I thought as much":800    new animal rqf>nq-1"I'm sure your animal is very","interesting, but I don't have","room for it just now.":800  q$(qf)=q$(c):move old animal $"What is it then?":q$(qf+1) 6"Tell me a question that dist-","inguishes between " &p$=q$(qf):900:" and" 0#p$=q$(qf+1):900:" " : s$:b=s$ Ds$(b)="?"b=b-1 Nq$(c)=s$(b):insert question X"What is the answer for" b#p$=q$(qf+1):900:"?" l 1000 v8in=1:io=2:answer for new and old animals r$="y"700 r$="Y"700 in=2:io=1 r$="n"700 r$="N"700 ;"That's no good":600 X update answers  a(c,in)=qf+1:a(c,io)=qf 'qf=qf+2:next free animal space "That fooled me."  again? *'"Do you want another go?":1000 4r$="y"100d >r$="Y"100d H print without trailing spaces " "; n=5021-1 p$(n)" "940 n p$(n);:  get reply  r$:r$="" r$=r$(1): initial animals +"Does it live in the sea",4,2 "Is it scaly",3,5 $"Does it eat ants",6,7 0"a whale","a blancmange","a pangolin","an ant" dэd2Does it live in the sea Is it scaly Does it eat ants a whale Does it have a long neck a pangolin an ant a blancmange a giraffe d n cSDoes it have a long neckbP2a giraffe E