'ProgramMode:RUN
"Keybinds"->Str 5
Do
5->A
ClrText
Menu Str 5,"_#E5E8_ Left",1,"_#E5E9_ Right",2,"_#E5EA_ Up",3,"_#E5EB_ Down",4,"Continue",0,"Exit Game",X
Lbl 1
Dsz A
Lbl 2
Dsz A
Lbl 3
Dsz A
Lbl 4
Dsz A
""->Str 9
Locate 2,4,"Press new key for"
Locate 20,4,StrMid("_#E5E8__#E5E9__#E5EA__#E5EB_",A,1)
While Getkey
WhileEnd
Do
Getkey->G
LpWhile  Not G
G->List6[A
"AssignedChar!"->Str 5
LpWhile 1
Lbl 0
""->Str 9
Return
Lbl X
Stop