10 DATA#78,#86,#0,#AE,#9,#2,#E0,#A5,#F0,3,#A6,0,#40,#20,#CE,#CC,#A6,0,#40 
20 FORF=#400TO#412:READA:POKEF,A:NEXT:DOKE#24A,#004C:POKE#24C,#04