plese help me on this tdl auto backup on Esc

In this tdl auto backup is working but quit is not working on Esc please help

[#Menu: Gateway of Tally]
Add : Top Button : At End : Backup

[Key : Backup]
Key:ESC
Action List:Auto Backup
[Key:Auto Backup]
Action:Call:Backup Function
[Function: Backup Function]

Variable : Backup Det Var: String

00 : IF : ##EnableAutoBackup
10 : IF : ##AutoBackupPrompt
20 : Query Box : "Backup Company ?" : Yes : No
30 : IF : $$LastResult
40 : CALL : Backup Company
50 : ENDIF
60 : ELSE :
70 : CALL : Backup Company
80 : ENDIF
90 : ENDIF

[Function: Backup Company]

10 : SET : BackupDetVar : @@DestPath + ", " + ##SVCurrentPath + ", " + ##SVCurrentCompany + +
", " + @@CoNumber
20 : BACKUP COMPANY : "," : ##BackupDetVar
30 : SET : SVBackupPath : @@DestPath

[System: Formula]

DestPath : ##DestinationPath + "\" + @@DateForm + "\" + @@TimeForm
CoNumber : $$String$CompanyNumber:Company:##SVCurrentCompany):5
DateForm : $$String:$$MachineDate
TimeForm : @@HrsForm +"-"+ @@MtsForm

HrsForm : If $$StringPart:$$MachineTime:0:2 CONTAINS ":" +
Then $$StringPart:$$MachineTime:0:1 +
Else $$StringPart:$$MachineTime:0:2

MtsForm : if $$StringPart:$$MachineTime:0:2 CONTAINS ":" +
Then $$StringPart:$$MachineTime:2:2 +
Else $$StringPart:$$MachineTime:3:2

;; Enable configuration options - used in General of F12 Configuration

[#Menu: Configuration]
;; Adding a Menu Item to Configure My Backup - F12 -> My Backup

Add : Key Item : After @locEMailing: "Auto Backup" : K : Execute : TSPL FFE UCB Config

Control : "My Backup" : NOT $$IsRemoteCompany AND ##SVQuitFromRemoteLogout != 1

[Report: TSPL FFE UCB Config]

Title : $$LocaleString:"Backup Configuration"
Object : BackCmpList

[Form: TSPL FFE UCB Config]

Use : System Configuration
width : 40% Screen
height: 20% Screen
Delete : Parts
Add : Parts : Form SubTitle, TSPL FFE Enable UCB
Local: Field: Form SubTitle : Info : "Auto Backup Configuration"

;; On saving the Form, calling a function to update the selected companies to the persistent List Variables
On : Form Accept : #TSPLFFEUCBData = "Selected Companies" : CALL : TSPL FFE Update List Variables
[Part:TSPL FFE Enable UCB]
Add : Lines : Enable Auto Backup, Auto Backup Path, Auto Backup Path Info, Auto Backup Prompt

[Line: Enable Auto Backup]

Field: Long Prompt, Enable Auto Backup
Local: Field: Long Prompt : Info : $$LocaleString:"Enable Automatic Backup Feature?"

[Field: Enable Auto Backup]

Use : Logical Field
Modifies : EnableAutoBackup

[Line: Auto Backup Path]

Field: Long Prompt, Auto Backup Path
Local: Field: Long Prompt : Info : $$LocaleString:"Destination Path?"
Local: Field: Long Prompt : Inactive: NOT #EnableAutoBackup
Local: Field: Long Prompt : Indent : 2

[Field: Auto Backup Path]

Use : Name Field
Modifies : DestinationPath
Inactive : NOT #EnableAutoBackup
Set As : If $$IsEmpty:##DestinationPath Then "C:\TallyDataBackup" else ##DestinationPath

[Line: Auto Backup Path Info]

Field: Simple Field
Local: Field: Simple Field : Info : $$LocaleString:"(Subfolders for System Date and Time will be created within)"
Local: Field: Simple Field : Inactive: NOT #EnableAutoBackup
Local: Field: Simple Field : Style : Small Italic
Indent: 1

[Line: Auto Backup Prompt]

Field: Long Prompt, Auto Backup Prompt
Local: Field: Long Prompt : Info : $$LocaleString:"Confirmation from user?"
Local: Field: Long Prompt : Inactive: NOT #EnableAutoBackup
Local: Field: Long Prompt : Indent : 2

[Field: Auto Backup Prompt]

Use : Logical Field
Modifies : AutoBackupPrompt
Inactive : NOT #EnableAutoBackup
Set As : If $$IsEmpty:##AutoBackupPrompt Then Yes else ##AutoBackupPrompt

;; Variable Definition

[Variable: EnableAutoBackup]

Type : Logical
Persistent : Yes

[Variable: DestinationPath]

Type : String
Persistent : Yes

[Variable: AutoBackupPrompt]

Type : Logical
Persistent : Yes

[System: Variable]

EnableAutoBackup: Yes
DestinationPath : "C:\TallyDataBackup"
AutoBackupPrompt: Yes



;; End-of-File

 

thank you sir