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