simple but effective

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    hide mouse
INK RGB(150,150,150),0
set text font "comic sans"
set text size 60
text 90,1,"Random die program"

wait key
do
text 90,1,"Random die program"
fcolor = RGB(RND(250),rnd(250),rnd(250))
ink fcolor,0
if fcolor = RGB(0,0,0)
ink RGB(100,100,100),0
endif 
  a = RND(5)

if a=0
text 250,200,"1"
endif
if a=1
text 250,200,"2"
endif
if a=2
text 250,200,"3"
endif
if a=3
text 250,200,"4"
endif
if a=4
text 250,200,"5"
endif
if a=5
text 250,200,"6"
endif

  wait key
  cls
loop