10 COLOR15,1,1:DEFINTA-S:OPEN"grp:"AS#1:B$=CHR$(&B10000000):SCREEN3,3,0:SPRITE$(