You should add high score saving.
DIM SCORES[0],DISPSCORES[0]
IF CHKFILE("DAT:SCORES") THEN LOAD "DAT:SCORES",SCORES,0
(game)
PUSH SCORES,score
SAVE "DAT:SCORES",SCORES
And for high score displaying;
COPY DISPSCORES,SCORES
SORT DISPSCORES
FOR I=0 to LEN(DISPSCORES)-1
PRINT DISPSCORES
NEXT