...

Shared_Includes

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

menu.asm

@@ -292,31 +292,40 @@ INIT:	XOR	A
 
 HNDMEM	DB	0
 
-CLICK
+CLICK:		CALL	M_OBJECT
-	CALL	M_OBJECT
 		JP	Z,NOEXIT
-PRESS	SUB	#11
+PRESS:		SUB	#11		;!HARDCODE
 		LD	IX,MENU_TABLE
 		JR	Z,CLICK2
 		LD	BC,ITEMSIZE
-CLICK1	ADD	IX,BC
+CLICK1:		ADD	IX,BC
 		DEC	A
 		JR	NZ,CLICK1
-CLICK2	LD	L,(IX+2)
+CLICK2: 	LD	L,(IX+2)
 		LD	H,(IX+3)
+.cont:		;PUSH	IX				; [ ] 04/07/2024 parser multi-command
 		PUSH	HL
-	; PUSH	HL
+		; [ ] 04/07/2024 parser multi-command
-	CALL	WIN_BACK
+.parse:		 ;INC	HL
+		 ;LD	A,(HL)
+		 ;AND	A
+		 ;JR	Z,.parse_end
+		 ;CP	';'
+		 ;JR	NZ,.parse
+		 ;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	#30
+		RST	ToDSS.Mouse
-
+		;
-
 		POP	HL
-
 		LD	BC,Dss.Exec
 		RST	ToDSS		;Launch the program
 		PUSH	AF
@@ -328,20 +337,32 @@ CLICK2	LD	L,(IX+2)
 		RST	ToDSS
 		;
 		POP	AF
-	JR	NC,OK_EXEC
+		JR	NC,.OK_EXEC
 		LD	A,7
 		CALL	MESSAGE
-OK_EXEC
+.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
 
 
+
+
 K_OBJECT
 	LD	C,Dss.ScanKey
 	RST	ToDSS
@@ -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