Quick Basic in Application

DEFINT A-Z
TYPE highscores              ‘type for highscores
 rank AS STRING * 3         ‘rank
 dat  AS STRING * 8         ‘date
 nam  AS STRING * 25        ‘name
 lines  AS STRING * 4       ‘lines cleared
 num  AS STRING * 6         ‘Score
END TYPE
TYPE hues                    ‘define the type for hues
 red AS INTEGER             ‘red component
 grn AS INTEGER             ‘green component
 blu AS INTEGER             ‘blue component
END TYPE
DECLARE SUB P3×5Num (x, [...]