59000 FOR J=40960 TO 49151:POKEJ,PEEK(J):NEXT
59010 POKE42231,56:POKE42288,96:POKE42585,96
59020 FOR J=830 TO 900:READ V:POKEJ,V:NEXT
60000 DATA 162,8,32,198,255,32,207,255,32,207,255,165
60010 DATA 1,41,254,133,1,160,0,32,207,255,32,207
60020 DATA 255,240,32,32,207,255,133,20,32,207,255,133
60030 DATA 21,32,207,255,153,0,2,240,3,200,208,245
60040 DATA 152,24,105,5,168,32,162,164,76,79,3,165
60050 DATA 1,9,1,133,1,32,89,166,76,128,164