Open sub menus under items

src/manifest.tal

@@ -146,11 +146,12 @@ JMP2r
 
 	;draw-cat/sel LDA ;get-sub JSR2
 	DUP2 #0000 EQU2 ,&skip JCN
+	;draw-cat/sel LDA ;get-anchor JSR2 ,&anchor STR2
 	#01 .Screen/auto DEO
 	LDAk STH INC2 ;skip-str JSR2
 	STHr #00
 	&subcat
-		#0000 .Screen/x DEO2
+		[ LIT2 &anchor $2 ] .Screen/x DEO2
 		#00 OVR INC #30 SFT2 .Screen/y DEO2
 		SWP2 #0004 ADD2 ;draw-str JSR2 SWP2
 		INC GTHk ,&subcat JCN
@@ -188,6 +189,25 @@ JMP2r
 
 JMP2r
 
+@get-anchor ( cat -- x* )
+
+	LIT2r 0000
+	,&target STR
+	#00 ,&id STR
+	;manifest/menu
+	&cat
+		[ LIT &id 00 ] [ LIT &target $1 ] EQU ,&end JCN
+		DUP2 INC2 ;slen JSR2 INC2 INC2 STH2 ADD2r
+		;skip-sub JSR2
+		,&id LDR INC ,&id STR
+		LDAk ,&cat JCN
+	POP2
+	&end
+	STH2r
+	#30 SFT2
+
+JMP2r
+
 @draw-str ( str* -- str* )
 
 	&while