10 DLIST=PEEK(560)+256*PEEK(561):REM Find display list›20 LMSLOW=DLIST+4:REM Get low address of LMS operand›30 LMSHIGH=DLIST+5:REM Get high address of LMS operand›40 FOR I=0 TO 255:REM Outer loop›50 POKE LMSHIGH,I›60 FOR J=O TO 255:REM Inner loop›70 POKE LMSLOW,J›80 FOR Y=1 TO 50:NEXT Y:REM Delay loop›90 NEXT J›100 NEXT I›