30 lines
456 B
Plaintext
Executable File
30 lines
456 B
Plaintext
Executable File
'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 |