10 FORJ=49152TO49230:READA:CK=CK+A:POKEJ,A:NEXT
20 IF CK<>8670THENPRINT"PLEASE CHECK DATA STATEMENTS FOR AN ERROR."
30 SYS49152:LIST
100 DATA120,169,28,141,20,3,169,192,141,21,3,169
110 DATA1,141,26,208,169,27,141,17,208,169,127,141
120 DATA13,220,88,96,169,1,141,25,208,173,18,208
130 DATA170,74,74,74,74,141,32,208,74,141,33,208
140 DATA201,7,240,9,138,24,105,32,141,18,208,208
150 DATA5,169,16,141,18,208,173,13,220,41,1,240
160 DATA3,76,49,234,76,188,254