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