CLS
A=0
COLOR 4,15
SCREEN 1
A=INT(RND*15)
LOCATE 2,2
PRINT A
END