10 POKE 54286,0:GRAPHICS 8:POKE 87,11:POKE 623,192:POKE PEEK(560)+256*PEEK(561)+166,143›20 ADDRES=1536:POKE 54286,64:FOR K=0 TO 18:READ P:POKE ADDRES+K,P:NEXT K:P=INT(ADDRES/256):POKE 513,P›30 POKE 512,ADDRES-256*P:POKE 54286,192:DATA 72,173,111,2,41,63,141,10,212,141,27,208,169,0,141,26,208,104,64›40 FOR K=0 TO 159:COLOR K/10:PLOT 0,K:DRAWTO 79,K:NEXT K:POKE 712,6:STOP ›