10 OPEN "GRP:"AS#1:COLOR 1,3,4:SCREEN 7:PSET (73,63),13,XOR
20 PRINT #1,POINT(73,63)
30 GOTO 30