0 REM PROGRAM 3›10 GRAPHICS 0›20 FOR LOOP=1 TO 100›30 POSITION RND(1)*30,RND(1)*20:? "*":REM FILL SCREEN WITH ASTERISKS›40 NEXT LOOP›50 PNTR=PEEK(560)+256*PEEK(561)+4:REM LOCATION OF READ POINTER›60 X=PEEK(PNTR):REM STARTING POINT OF SCREEN›70 FOR LOOP=0 TO 255›80 POKE PNTR,LOOP:REM CHANGE ADDRESS IN POINTER›90 FOR PAUSE=1 TO 10:NEXT PAUSE›100 NEXT LOOP›110 GOTO 70›