start tok64 d64-DBxhkE 0 REM dmz #12/89 10 m=49152 20 READa:IFa>-1THENPOKEm,a:m=m+1:GOTO20 29 INPUT"colour ?";c:POKE49296,c 30 SYS49152 100 DATA120,169,130,141,20,3,169,192,141,21,3,169,127,141,13,220,45,17 101 DATA208,141,17,208,169,1,141,25,208,141,26,208,169,51,133,1,162,0 102 DATA160,4,169,48,32,63,192,162,4,160,8,169,56,32,63,192,169,0 103 DATA141,255,63,169,55,133,1,88,96,140,103,192,133,251,169,0,133,250 104 DATA133,252,169,208,133,253,134,2,169,0,133,254,164,2,177,252,230,2 105 DATA164,254,145,250,200,145,250,200,132,254,164,2,192,8,208,236,24,165 106 DATA250,105,8,133,250,133,252,144,217,230,251,230,253,165,253,201,216,208 107 DATA207,96,88,96,173,33,208,72,174,149,192,202,236,18,208,208,251,169 108 DATA1,141,33,208,162,112,160,29,169,24,236,18,208,208,251,141,17,208 109 DATA140,24,208,162,118,160,31,169,23,236,18,208,208,251,162,10,202,208 110 DATA253,141,17,208,140,24,208,162,126,160,21,169,24,236,18,208,208,251 111 DATA140,24,208,141,17,208,165,214,10,10,10,24,105,45,141,18,208,238 112 DATA25,208,105,3,141,149,192,105,6,141,166,192,105,8,141,188,192,104 113 DATA141,33,208,76,49,234 63999 DATA-1 stop tok64 (bastext 1.0)