0 REM ******* PROGRAM1 *******›10 GRAPHICS 0›20 SCR1=PEEK(88)+256*PEEK(89)›30 PNTR=PEEK(560)+256*PEEK(561)+4›35 SCR2=PEEK(PNTR)+256*PEEK(PNTR+1)›40 ? SCR1,SCR2›45 FOR PAUSE=1 TO 500:NEXT PAUSE›50 FOR LOOP=0 TO 255›60 POKE SCR2+LOOP,LOOP›70 NEXT LOOP›80 GOTO 80›