chapter6/CH6PRG1.LST:

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

Back to previous page