8 : 9 b=826 10 reada$ 20 ifa$="**"thenend 30 a1=asc(left$(a$,1))-48 40 a2=asc(right$(a$,1))-48 50 ifa1>9thena1=a1-7 60 ifa2>9thena2=a2-7 70 a=(a1*16)+a2 80 pokeb,a 81 print;b,a 85 b=b+1 90 goto10 100 dataa9,4c,8d,fd,03,a9,01,85,f1,a9,67,85,f9,a9,03,85,fa,a9,02,85,ee,a9,02 110 data85,ee,a9,3a,85,f7,a9,03,85,f8,a9,00,85,e5,a9,20,85,e6,a2,00,20,b1,f6 120 data4c,8b,c3,53,41,56,45 63999 data**