10 REM Lines 20 and 30 are just a demonstration. Change the value of SC and see what happens!›20 DL=PEEK(88)+256*PEEK(89):SC=DL:MODE=4:WIDE=40:GOSUB 100›30 FOR I=0 TO 1000:NEXT I:SC=0:MODE=2:GOSUB 100:FOR I=0 TO 1000:NEXT I:GOTO 20›90 REM This ANTIC 2 or 4 display list can be horizontally scrolled. Just set the values of SC,DL,MODE, and WIDE.›100 FOR I=0 TO 2:POKE DL+I,112:NEXT I:N=0:M=MODE+64›110 FOR I=DL+3 TO DL+72 STEP 3:C=SC+N:POKE I,M:POKE I+2,INT(C/256):POKE I+1,C-256*PEEK(I+2):N=N+WIDE:NEXT I›120 POKE I,65:DLHI=INT(DL/256):DLLO=DL-DLHI*256:POKE I+1,DLLO:POKE I+2,DLHI:POKE 561,DLHI:POKE 560,DLLO:RETURN ›