10 CLS : GRAPHICS &h27 20 GOSUB 10020 30 BLOAD "FBALLOON.SPR", &h100000 40 MEMCOPY LINEAR &h100001,1024 TO LINEAR &hB00000,1024 50 SPRITE 0, 0, &hB00000 : SPRITESHOW 0, 1 60 FOR N% = 0 TO 200 : SPRITEAT 0, N%, N% : NEXT : GOTO 60 10020 FOR c%=0 TO 255 10030 READ r%,g%,b% 10040 SETCOLOR 0,c%,r%,g%,b% 10050 NEXT : RETURN 20000 DATA 0,0,0,0,0,0,34,35,35,67,69,73,98,104,113,130,139,152 20010 DATA 166,174,186,200,200,200,98,93,84,133,117,101 20020 DATA 158,140,121,174,161,137,187,175,164,204,195,177,234,219,201 20030 DATA 255,243,214,088,49,38,115,61,59,136,80,65,154,98,76 20040 DATA 173,110,81,213,141,107,251,170,132,255,206,127,00,39,53 20050 DATA 0,56,80,0,77,94,11,102,127,0,111,137,50,140,167 20060 DATA 36,174,214,136,214,255,102,43,41,148,54,58,182,77,70 20070 DATA 205,94,70,227,120,64,249,155,78,255,188,78,255,233,73 20080 DATA 40,43,74,58,69,104,97,95,132,122,119,153,134,144,178 20090 DATA 150,178,217,199,214,255,198,236,255,000,34,25,0,50,33 20100 DATA 23,74,27,34,89,24,47,105,12,81,136,34,125,164,45 20110 DATA 166,204,52,024,31,47,35,50,77,37,70,107,54,107,138 20120 DATA 049,142,184,65,178,227,82,210,255,116,245,253,26,51,44 20130 DATA 47,63,56,56,81,64,50,92,64,65,116,85,73,137,96 20140 DATA 85,182,125,145,218,161,94,7,17,130,33,29,182,60,53 20150 DATA 228,92,95,255,118,118,255,155,168,255,187,199,255,219,255 20160 DATA 45,49,54,72,71,77,91,92,105,115,115,127,132,135,149 20170 DATA 171,174,190,186,199,219,235,240,246,59,48,60,90,60,69 20180 DATA 138,82,88,174,107,96,199,130,108,216,159,117,236,197,129 20190 DATA 255,250,171,49,34,42,74,53,60,94,70,70,114,90,81 20200 DATA 126,108,84,158,138,110,192,165,136,221,191,154,46,16,38 20210 DATA 73,40,61,102,54,89,151,84,117,185,109,145,193,120,170 20220 DATA 219,153,191,248,198,218,0,46,73,0,64,81,0,81,98 20230 DATA 0,107,109,0,130,121,0,160,135,0,191,163,0,222,218 20240 DATA 69,49,37,97,74,60,126,97,68,153,121,81,178,144,98 20250 DATA 204,169,110,232,203,130,251,234,163,95,9,38,110,36,52 20260 DATA 144,70,71,167,96,87,189,125,100,206,151,112,237,182,124 20270 DATA 237,212,147,50,53,88,74,82,128,100,101,157,120,119,193 20280 DATA 142,140,226,156,155,239,184,174,255,220,212,255,67,23,41 20290 DATA 113,43,59,159,59,82,217,74,105,248,93,128,255,125,175 20300 DATA 255,166,197,255,205,255,73,37,28,99,52,50,124,75,71 20310 DATA 152,89,90,172,111,110,193,126,122,210,141,122,229,154,124 20320 DATA 032,41,0,047,79,8,73,93,0,97,115,8,124,131,30 20330 DATA 150,154,38,180,170,51,208,204,50,98,42,0,117,59,9 20340 DATA 133,79,18,158,101,32,186,136,46,209,170,57,232,210,75 20350 DATA 255,246,79,38,35,61,59,56,85,86,80,111,117,104,110 20360 DATA 145,122,123,179,151,131,207,175,142,254,223,177,29,44,67 20370 DATA 46,61,71,57,77,60,76,95,51,88,113,44,107,132,45 20380 DATA 120,158,36,127,189,57,55,36,35,83,57,58,120,76,73 20390 DATA 148,93,79,169,109,88,191,126,99,215,147,116,244,163,128 20400 DATA 45,75,71,71,101,90,91,123,105,113,149,125,135,174,142 20410 DATA 138,193,150,169,209,193,224,250,235,0,27,64,3,49,95 20420 DATA 7,72,124,16,93,162,20,118,192,64,151,234,85,177,241 20430 DATA 109,204,255,85,71,105,118,93,115,151,116,136,185,140,147 20440 DATA 213,163,154,235,189,157,255,213,155,253,247,134,29,29,33 20450 DATA 60,49,81,88,74,127,121,100,186,149,133,241,169,150,236 20460 DATA 186,171,247,209,189,254,38,36,80,40,51,93,45,61,114 20470 DATA 61,80,131,81,101,174,82,116,197,108,130,196,131,147,195 20480 DATA 73,33,41,94,65,74,119,83,91,145,96,106,173,121,132 20490 DATA 181,139,148,212,174,170,255,226,207,114,28,3,156,51,39 20500 DATA 191,90,62,233,134,39,255,177,8,255,207,5,255,240,43 20510 DATA 255,255,255