dim mystrings_code1={"20 century fox";"20c fox";"20century fox";"20ｆｏｘ";"20th centuary fox";"20thfox";"20세기 fox";"20세기 폭스";"20세기폭스사";"20世紀ｆｏｘ";"２０世紀fox";"20世紀フォクス";"２０世紀ふぉっく";"이십세기폭스";"20th";"20th century";"20th century fox";"20th fox";"20세기 폭스사";"20세기폭스";"20센츄리스";"20世紀fox";"20世紀フォックス";"２０世紀フォックス";"twentieth century fox";"twenty century fox";"二十世紀フォックス"}
dim mystrings_code2={"accer";"acel";"acer";"azer"}
dim mystrings_code3={"actvision";"aktivison";"アクティビジョン";"액티비젼";"엑티비전";"activision";"액티비전";"activision blizzard"}
dim mystrings_code4={"addidas";"adidas";"아디다스";"adida";"adidass"}
dim i
dim j
dim k
dim l
dim counter1=0
dim counter2=0
dim counter3=0
dim counter4=0


for i=1 to mystrings_code1.count
  if mystrings_code1[i]=q1 then
    counter1=counter1+1
  endif  
Next i  

for j=1 to mystrings_code2.count
  if mystrings_code2[j]=q1 then
    counter2=counter2+1
  endif  
Next j 

for k=1 to mystrings_code3.count
  if mystrings_code3[k]=q1 then
    counter3=counter3+1
  endif  
Next k  

for l=1 to mystrings_code4.count
  if mystrings_code4[l]=q1 then
    counter4=counter4+1
  endif  
Next l  

if (counter1>0)=(q2 hasnone {1}) then
  Assert.Check(False,"20th not coded as 1 or coded as 1 but not 20th text")
Endif 

if (counter2>0)=(q2 hasnone {2}) then
  Assert.Check(False,"acer not coded as 1 or coded as 1 but not acer text")
Endif 


if (counter3>0)=(q2 hasnone {3}) then
  Assert.Check(False,"activision not coded as 1 or coded as 1 but not activision text")
Endif 


if (counter4>0)=(q2 hasnone {4}) then
  Assert.Check(False,"adidas not coded as 1 or coded as 1 but not adidas text")
Endif