diff --git a/Shared_Includes b/Shared_Includes
index 68681fb..18c132c 160000
--- a/Shared_Includes
+++ b/Shared_Includes
@@ -1 +1 @@
-Subproject commit 68681fbc50da463f1debae860e6db64603886d39
+Subproject commit 18c132c6e9b507cb92d2144f5497278f021a0292
diff --git a/menu.asm b/menu.asm
index 8802a19..0a39d32 100755
--- a/menu.asm
+++ b/menu.asm
@@ -239,7 +239,8 @@ NO_TO_CORR
; Initialization variables
-INIT XOR A
+INIT: XOR A
+ LD D,A
LD (QUITMODE),A
LD (ITEMCOUNT),A
LD (AEXIT),A
@@ -249,9 +250,30 @@ INIT XOR A
LD (DEFAULT_ITEM),A
LD (RUN_TIME),A
LD (CMD_MENU),A
-
DEC A
LD (GO_TIME),A
+ ;
+ LD A,(IX+0)
+ ADD A,3
+ LD E,A
+ EX DE,HL
+ LD D,XH
+ LD E,XL
+ EX DE,HL
+ ADD HL,DE
+ LD (WorkDirAddr),HL
+ ;
+ XOR A
+ LD BC,128 ;!HARDCODE длина CL
+ CPIR
+ DEC HL
+ LD BC,128 ;!HARDCODE длина CL
+ LD A,'\' ;
+ CPDR
+ INC HL
+ XOR A
+ LD (HL),A
+ ;
RET
;
@@ -278,38 +300,19 @@ CLICK2 LD L,(IX+2)
;
LD C,2
RST #30
-;
- ; POP HL
- ; LD C,Dss.PCHARS
- ; RST ToDSS
-;
- ;push bc
- ; ld c,Dss.CurDisk
- ; rst #10
- ; add a,'A'
- ; ld (cwd),a
- ; ld a,':'
- ; ld (cwd+1),a
- ; ld c,Dss.CurDir
- ; ld hl,cwd+2
- ; rst #10
-;
POP HL
-;
- ld bc,Dss.Exec
-;
- RST ToDSS ;Launch the program
-;
- ; push af
- ; ld hl,cwd
- ; ld c,Dss.ChDir
- ; rst #10
- ; pop af
- ;pop bc
-;
+ LD BC,Dss.Exec
+ RST ToDSS ;Launch the program
+ PUSH AF
+ ;
+ LD HL,(WorkDirAddr)
+ LD C,Dss.ChDir
+ RST ToDSS
+ ;
+ POP AF
JR NC,OK_EXEC
LD A,7
CALL MESSAGE
@@ -931,10 +934,7 @@ CH_L6 LD (WIN_Y),A
LD (OBSOLUTE_CNT_POS),HL
RET
-;
-;cwd: ds 256
-;
-
+WorkDirAddr: WORD 0
OBSOLUTE_CNT_POS
DW 0