Drawing sub

src/manifest.tal

@@ -88,7 +88,7 @@ JMP2r
 
 @menu-select ( cat -- )
 
-	DUP ;draw-cat/sel STA
+	;draw-cat/sel STA
 	;draw-cat JSR2
 	;draw-sub JSR2
 
@@ -142,7 +142,41 @@ JMP2r
 
 JMP2r
 
-@draw-sub ( cat -- )
+@draw-sub ( -- )
+
+	#01 .Screen/auto DEO
+	;manifest/menu
+	LDAk STH INC2 ;skip-str JSR2
+	STHr #00
+	&subcat
+		#0000 .Screen/x DEO2
+		#00 OVR INC #30 SFT2 .Screen/y DEO2
+		SWP2 #0004 ADD2 ;draw-str JSR2 SWP2
+		INC GTHk ,&subcat JCN
+	POP2 POP2
+
+JMP2r
+
+@get-sub ( cat -- )
+
+	( STH
+	;manifest/menu
+	&cat
+		LDAk STH INC2 ;draw-str JSR2 #00 .Screen/sprite DEOk DEO
+		STHr #00
+		&subcat
+			SWP2 #0004 ADD2 ;skip-str JSR2 SWP2
+			INC GTHk ,&subcat JCN
+		POP2
+		,&cat-id LDR INC ,&cat-id STR
+		LDAk ,&cat JCN
+	POP2 )
+
+JMP2r
+
+@next-sub ( sub* -- sub* )
+
+	
 
 JMP2r