Dice Game update (help needed)

A simple solution might be to keep it at the top of the screen all the time as below.

Or another way might be to count how many times you can play before it hits the bottom of the screen and use a variable to keep track of it,once it reaches a certain number clear the screen and use locate 0,0 to put the cursor at the top again.

; select example 
AppTitle "Dice Roll" 

Graphics 800,600 

.start 

SeedRnd(MilliSecs()) ; Sets the random generator to get real random numbers when program is ran 

computer% = Rand(1,6) 

Select computer% 
Case 1 Print "The computer rolled a 1" 
Case 2 Print "The computer rolled a 2" 
Case 3 Print "The computer rolled a 3" 
Case 4 Print "The computer rolled a 4" 
Case 5 Print "The computer rolled a 5" 
Case 6 Print "The computer rolled a 6" 
End Select 

Print "Please press space to roll the dice!" 

;Set a varible for gameinprocess true 
GameInProcess = True 

While GameInProcess = True 
While KeyHit(57) 

player = Rand(1,6) 

Print "You rolled a "+player+" 
If player < computer% Then 
Print "Computer WINS!" 
Else 
If player > computer% Then 
Print "You WON!" 
Else 
If player = computer% Then 
Print "ITS A DRAW!" 
EndIf 
EndIf 
EndIf

;;**added code**
Delay 1500
Cls
Locate 0,0

;***************
Goto start 

Wend 

If KeyHit(1) 
;Clear screen 
Cls 
QuitAnswer$ = Input$("Really quit (Y/N)?") 
If QuitAnswer$ = "Y" Or QuitAnswer = "y" Then 
GameInProcess = False 
Else Goto start 
EndIf 
EndIf 


Wend