10clear200,&hf000:ad=&hfdcc:pokead+1,0:pokead+2,&hf0:fori=&hf000to&hf035:reada$:pokei,val("&h"+a$):next:pokead,&hc3
20data79,f5,1e,fa,3e,06,cd,2,11,1e,7,3e,7,cd,2,11,1e,10,3e,8,,cd,2,11,1e,10,3e,9,cd,2,11,1e,10,3e,a,cd,2,11,1e,2,3e,c,cd,2,11,1e,4,3e,d,cd,2,11,f1,4f,c9