100 DATA 169,40,133,38,169,0,133,40,162,128,160,132,134,39,132,41
110 DATA 169,16,44,24,208,240,4,134,41,132,39,162,0,160,0
120 DATA 177,38,145,40,200,192,40,144,247,24,165,38,105,40,133,38
130 DATA 144,2,230,39,24,165,40,105,40,133,40,144,2,230,41,232
140 DATA 224,24,144,218,169,32,160,0,145,40,200,192,40,144,249
150 DATA 162,23,160,5,173,18,208,205,208,3,141,208,3,176,245
160 DATA 44,17,208,48,240,136,16,237,142,17,208,202,224,16,176,227
170 DATA 162,23,173,24,208,73,16,141,24,208,142,17,208,173,136,2
180 DATA 73,4,141,136,2,169,145,32,210,255,169,13,76,210,255
200 FOR J=828 TO 967
210 READ X
220 T=T+X
230 POKE J,X
240 NEXT J
250 IF T<>16097 THEN STOP
280 POKE 55,0:POKE 56,128:CLR
300 POKE 53265,23
310 POKE 56576,5
320 POKE 53272,4
330 POKE 648,128
340 PRINT CHR$(147)
350 FOR J=1 TO 22
360 PRINT
370 NEXT J
380 PRINT "THIS IS AN EXAMPLE";
390 SYS 828
400 PRINT "OF PIXEL SCROLLING";
410 SYS 828
420 PRINT "WITH DOUBLE BUFFERING";
430 SYS 828
440 PRINT "I HOPE YOU LIKE IT";
450 SYS 828
460 FOR J=1 TO 1000:NEXT J
800 POKE 648,4
810 PRINT "END!"
820 POKE 53272,20
830 POKE 56576,7
840 POKE 53265,27
850 REM NEXT POKE OPTIONAL
860 POKE 55,0:POKE 56,160:CLR