sync on
 
gosub images
 
set cursor 50,0
ink rgb(180,180,250),0
print "Lee: 1,000,000"
set cursor 50,50
print "TDK: 9,990,275"
set cursor 50,100
print "Latch: 9,870,200"
set cursor 50,150
print "OBese87: 9,400,321"
set cursor 50,200
print "Sinani: 9,201,532"
set cursor 50,250
print "Fred: 7,600,000"
set cursor 50,300
print "Bob: 5,000,240"
set cursor 50,350
print "Jim: 800,067"
set cursor 50,400
print "Joe: 10,000"
set cursor 50,450
print "INH: 10"
wait 10
for t=0 to 480
sprite 1,0,t,1
sync
next t
 
 
`======
`IMAGES
`======
Images:
for t=0 to 250 step 20
ink rgb(f,f,t),0
line 0,f,639,f
inc f,1
next t
 
for t=250 to 0 step -20
ink rgb(0,0,t),0
line 0,f,639,f
inc f,1
next t
ink rgb(5,5,5),0
box 0,26,639,479
get image 1,0,0,639,479
cls
return