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