sync on
big=500
set text font "Times new roman"
do
if big=-50 then wait 2000 : ink rgb(255,0,0),0
cls
ink rgb(rnd(255)+200,rnd(255)+200,rnd(255)+200),0
set text size big
center text 320,240,"1st Bob- 203,500 Points"
big=big-10
n=n+1
if n=120 then gosub score2
sync
loop
 
score2:
cls
do
cls
ink rgb(rnd(255)+200,rnd(255)+200,rnd(255)+200),0
set text size 50
center text 320,240,"1st Bob- 203,500 Points"
set text size 40
ink rgb(rnd(200)+145,rnd(200)+155,rnd(200)+155),0
center text 320,280,"2nd Dave- 190,200 Points"
set text size 30
ink rgb(rnd(145)+90,rnd(155)+90,rnd(155)+90),0
center text 320,315,"3rd Carlos- 180,100 Points"
set text size 25
ink rgb(255,255,255),0
center text 320,340,"4th Daniel- 130,600 Points"
set text size 20
center text 320,365,"5th Max- 100,400 Points"
set text size 15
center text 320,380,"6th Carla- 80,200 Points"
set text size 15
center text 320,390,"7th Carla- 50,100 Points"
set text size 15
center text 320,400,"8th Max- 40,100 Points"
set text size 15
center text 320,410,"9th Carla- 30,900 Points"
set text size 15
center text 320,420,"10th Bill- 10,000 Points"
if spacekey()=1 then gosub end
sync
loop
end: