10 clear 200,&HF000:poke&hff08,0:poke&hff09,&hf0:fori=&hf000to&hf019:reada$:pokei,val("&h"+a$):nexti:poke&hff07,&hc3
20 datacd,23,73,21,09,f0,c3,31,41,50,52,4f,55,54,20,21,20,43,41,20,47,41,5a,20,3f,0a,0d,00