10 SCREEN 1:WIDTH 32:CLS
20 FOR I=0 TO 255:PRINT CHR$(I);:NEXT I:PRINT
30 FOR AD=1*8 TO 255*8-1:VPOKE AD-8,VPEEK(AD):NEXT AD
40 LIST
50 END