A color changing clock that follows the mouse

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    hide mouse

do
cls

RgbForeValue=RGB(rnd(255),rnd(255),rnd(255))
RgbBackColor=RGB(rnd(255),rnd(255),rnd(255))
ink RgbForeValue, RgbBackColor
center text mousex(), mousey(), get date$()
center text mousex(), mousey()-15, get time$()

loop