Because of the copy bitmap 0 bug in DBP, this will only
work with DB.
+ Code Snippetrandomize timer()
sync on : sync rate 40
set display mode 800,600,16
set text font "times new roman"
set text size 18
repeat
ink 0,0 : box 0,20,799,34
for x=1 to 785 step 14
g=rnd(255)
ink rgb(0,g,0),0
t=rnd(300)
if t>200 then t=0
text x,20,chr$(t)
line x-1,20,x-1,34
next x
copy bitmap 0,0,20,799,585,0,0,34,799,599
ink rgb(255,255,255),0
text 1,1,text$
sync
until text=1
end
ToXic