5 PRINT "{CLEAR}"
10 X=INT(RND(1)*24)
20 Y=INT(RND(1)*24)
25 C=32+128*INT(RND(1)*2)
26 IF RND(1)>.33 GOTO30
28 C=166+64
30 POKE32768+X+Y*40,C
35 POKE32768+Y+X*40,C
40 POKE32768+23-X+Y*40,C
45 POKE32768+23-Y+X*40,C
50 POKE32768+X+(23-Y)*40,C
55 POKE32768+Y+(23-X)*40,C
60 POKE32768+23-X+(23-Y)*40,C
65 POKE32768+23-Y+(23-X)*40,C
70 GOTO10