10 COLOR 1,15,4:SCREEN 2:Z=VDP(7) 20 SCREEN 0:PRINT Z