10 REM first set up the display list›20 POKE 1536,112:REM 8 blank lines›30 POKE 1537,112:REM 8 blank lines›40 POKE 1538,112:REM 8 blank lines›50 FOR I=1 TO 12:REM Loop to put in display list›60 POKE 1536+3*I,71:REM BASIC mode 2 with LMS set›70 POKE 1536+3*I+1,0:REM Low byte of LMS operand›80 POKE 1536+3*I+2,I:REM High byte of LMS operand›90 NEXT I›100 POKE 1575,65:REM ANTIC JVB instruction›110 POKE 1576,0:REM Display list starts at $0600›120 POKE 1577,6›130 REM tell ANTIC where display list is›140 POKE 560,0›150 POKE 561,6›160 REM now scroll horizontally›170 FOR I=0 TO 235:REM Loop through LMS low bytes›175 REM we use 235 --- not 255 --- because screen width is 20 characters›180 FOR J=1 TO 12:REM for each mode line›190 POKE 1536+3*J+1,I:REM Put in new LMS low byte›200 NEXT J›210 NEXT I›220 GOTO 170:REM Endless loop›