10 CLS:X=256*PEEK(16976)-11 20 CLEAR25,X 30 X=256*PEEK(16976)-10 40 FORZ=X TOX+265 50 READY:W=W+Y:PRINTZ,Y;W 60 POKEZ,Y:NEXT 70 IFW<>29479THENPRINT"DATA ERRO R":STOP 80 EXECX:END 90 DATA 198,18,58,255,66,152,134 100 DATA 126,183,66,151,198,35 110 DATA 58,255,66,170,57,189,0 120 DATA 243,129,101,38,248,122 130 DATA 66,28,189,251,212,134 140 DATA 126,183,66,169,127,0 150 DATA 181,189,0,235,126,228 160 DATA 13,254,66,128,150,166 170 DATA 167,0,57,125,0,181,38 180 DATA 17,124,0181,236,2,147 190 DATA 165,39,1,134,57,183,66 200 DATA 169,126,226,113,134,57 210 DATA 183,66,169,206,64,0,255 220 DATA 66,128,166,0,151,166 230 DATA 189,248,104,129,9,38,10 240 DATA 141,202,140,64,127,36 250 DATA 242,8,32,232,129,21,38 260 DATA 20,254,66,128,140,64 270 DATA 128,36,7,166,1,167,0,8 280 DATA 32,244,254,66,128,32 290 DATA 211,129,10,38,12,141 300 DATA 164,140,64,96,36,204 310 DATA 198,32,58,32,192,129,8 320 DATA 38,10,141,148,140,64,0 330 DATA 39,188,9,32,178,129,19 340 DATA 38,23,206,64,127,188 350 DATA 66,128,39,7,9,166,0,167 360 DATA 1,32,244,150,166,167,1 370 DATA 134,96,32,156,129,3,39 380 DATA 136,129,13,39,11,189 390 DATA 249,201,140,64,127,39,1 400 DATA 8,32,154,206,66,177,223 410 DATA 244,8,223,181,206,64,0 420 DATA 223,183,166,0,43,34,129 430 DATA 64,37,6,129,96,37,4,139
|