10 for x = 0 to 19 20 read y 30 poke 16000 + x,y 40 next x 50 poke 14340,128 60 poke 14341,62 80 for l=0 to 8192 step 32 90 poke 16005, l-(int(l/256)*256) 100 poke 16006, int(l/256) 110 A=usr(0) 120 for x = 16128 to 16159 130 print peek(x); 140 next x 150 next l 200 data 245,229,213,197,33,0,0,17,0,63 210 data 01,32,00,237,176,193,209,225,241,201