gosub Initialise
gosub DefineColours
gosub MakeCupIcon
gosub ScreenWash
 
ink colour(2),0
Text 70,30,"Name" : Text 120,30,"Score"
For y= 0 to 4
   Text 70,50+y*20,"AAA" : Text 120,50+y*20,"999"
   sprite 1+y,50,55+y*20,1
Next y
 
sync
 
END
 
`--------------------------
` Subroutines
`--------------------------
Initialise:
   set display mode 640,480,32
   hide mouse
   sync on : sync rate 0
Return
`---
DefineColours:
   rem Define some colours
   DIM colour(2)
   colour(1)= rgb(255,191,0)
   colour(2)= rgb(255,255,255)
Return
`---
MakeCupIcon:
   rem Draw Cup
   for y= 0 to 7
     for x= 0 to 8
       read col
       ink colour(col),0
       dot x,y
     next x
   next y
   rem Get Image
   get image 1,0,0,9,10
Return
`---
ScreenWash:
   for y= 0 to 480
      ink (y/480.)*255,0
      line 0,y,639,y
   next y
Return
 
`--------------------------
` Data Arrays
`--------------------------
rem Champion Cup Icon
data 0,1,1,1,1,1,1,1,0
data 1,0,1,1,1,1,1,0,1
data 1,0,1,1,1,1,1,0,1
data 0,1,1,1,1,1,1,1,0
data 0,0,0,1,1,1,0,0,0
data 0,0,0,0,1,0,0,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,1,1,1,1,1,0,0