...

Shared_Includes

@@ -1 +1 @@
-Subproject commit 18c132c6e9b507cb92d2144f5497278f021a0292
+Subproject commit bfc070c1eeb661e952fe887862754b940b43aff5

menu.asm

@@ -292,54 +292,75 @@ INIT:	XOR	A
 
 HNDMEM	DB	0
 
-CLICK
+CLICK:		CALL	M_OBJECT
-	CALL	M_OBJECT
+		JP	Z,NOEXIT
-	JP	Z,NOEXIT
+PRESS:		SUB	#11		;!HARDCODE
-PRESS	SUB	#11
+		LD	IX,MENU_TABLE
-	LD	IX,MENU_TABLE
+		JR	Z,CLICK2
-	JR	Z,CLICK2
+		LD	BC,ITEMSIZE
-	LD	BC,ITEMSIZE
+CLICK1:		ADD	IX,BC
-CLICK1	ADD	IX,BC
+		DEC	A
-	DEC	A
+		JR	NZ,CLICK1
-	JR	NZ,CLICK1
+CLICK2: 	LD	L,(IX+2)
-CLICK2	LD	L,(IX+2)
+		LD	H,(IX+3)
-	LD	H,(IX+3)
+.cont:		;PUSH	IX				; [ ] 04/07/2024 parser multi-command
-	 PUSH	HL
+		PUSH	HL
-	; PUSH	HL
+		; [ ] 04/07/2024 parser multi-command
-	CALL	WIN_BACK
+.parse:		 ;INC	HL
-	LD	A,#FF
+		 ;LD	A,(HL)
-	LD	(C_OBJECT),A
+		 ;AND	A
-	LD	(GO_TIME),A
+		 ;JR	Z,.parse_end
-;
+		 ;CP	';'
-	LD	C,2
+		 ;JR	NZ,.parse
-	RST	#30
+		 ;LD	(HL),0
+		 ;INC	HL
+.parse_end:	 ;LD	(IX+2),L
+		 ;LD	(IX+3),H
+		;
+		CALL	WIN_BACK			; [ ] 04/07/2024 parser multi-command
+		LD	A,#FF
+		LD	(C_OBJECT),A
+		LD	(GO_TIME),A
+		;
+		LD	C,2
+		RST	ToDSS.Mouse
+		;
+		POP	HL
+		LD	BC,Dss.Exec
+		RST	ToDSS		;Launch the program
+		PUSH	AF
+		; !TODO ®¦¨¢¨âì ª®£¤  ¡ã¤¥â App_EXE_Version = 1
+		; LD	HL,(WorkDirAddr)
+		;
+		LD	HL,WorkDir
+		LD	C,Dss.ChDir
+		RST	ToDSS
+		;
+		POP	AF
+		JR	NC,.OK_EXEC
+		LD	A,7
+		CALL	MESSAGE
+.OK_EXEC:	; [ ] 04/07/2024 parser multi-command
+		 ;POP	IX
+		 ;LD	L,(IX+2)
+		 ;LD	H,(IX+3)
+		 ;LD	A,(HL)
+		 ;AND	A
+		 ;JR	Z,.end
+		 ;DEC	HL
+		 ;LD	(HL),';'
+		 ;INC	HL
+		 ;JR	.cont
+		;
+.end:		;CALL	WIN_BACK			; [ ] 04/07/2024 parser multi-command	
+		LD	A,(DOEXIT)
+		LD	C,A
+		LD	A,(AEXIT)
+		OR	C
+		JP	NZ,QUIT
+		JP	RETURN_TO_MENU
 
 
-	POP	HL
-
-	LD	BC,Dss.Exec
-	RST	ToDSS		;Launch the program
-	PUSH	AF
-	; !TODO ®¦¨¢¨âì ª®£¤  ¡ã¤¥â App_EXE_Version = 1
-	; LD	HL,(WorkDirAddr)
-	;
-	LD	HL,WorkDir
-	LD	C,Dss.ChDir
-	RST	ToDSS
-	;
-	POP	AF
-	JR	NC,OK_EXEC
-	LD	A,7
-	CALL	MESSAGE
-OK_EXEC
-	LD	A,(DOEXIT)
-	LD	C,A
-
-	LD	A,(AEXIT)
-	OR	C
-	JP	NZ,QUIT
-
-	JP	RETURN_TO_MENU
 
 
 K_OBJECT
@@ -955,9 +976,9 @@ OBSOLUTE_CNT_POS
 
 MSG0	DB	0
 ;0
-	DB	"User Menu v1.01, Copyright "
+	DB	"User Menu v1.02, Copyright "
 	DB	"2002 (c) Peters Plus LTD",CR,LF
-	DB	"2023 (c) Sprinter Team",CR,LF,CR,LF,0
+	DB	"2023 - 2024 (c) Sprinter Team",CR,LF,CR,LF,0
 ;1
 	DB	"  Error: Unknown switch: %1",CR,LF,0
 ;2