While 1
RanInt#(1,4->L 
1->Y 
1->P 
Locate 6,7,"F2"
Locate 10,7,"F3"
Locate 14,7,"F4"
Locate 18,7,"F5"
While P=1
If Y>7
Then Lbl 1
ClrText
"Restart"◢
ClrText
1->Y
Locate 6,7,"F2"
Locate 10,7,"F3"
Locate 14,7,"F4"
Locate 18,7,"F5"
IfEnd
Locate L*4+2,Y,"▼"
For 1->O To 20:Next
Isz Y
If Y+1=8
Then For 1->E to 10
GetKey=((6-L)*10)+19=>2->P 
Next
IfEnd
For 1->S To 5:Next 
Y-1>=1=>Locate L*4+2,Y-1," "
WhileEnd