10 FORI=0TO255
20 POKE 53281,I
30 PRINT I
40 GET A$:IFA$=""THEN40
50 NEXT