Starting shortcut drawing

src/manifest.tal

@@ -143,13 +143,13 @@ BRK
 
 	#0000 DUP2 .Screen/x DEO2 .Screen/y DEO2
 	#01 .Screen/auto DEO
-	#00 ,&cat-id STR
+	#00 ,&id STR
 	;manifest/menu
 	&cat
-		#0701 [ LIT &sel $1 ] [ LIT &cat-id $1 ] EQU JMP SWP POP ;draw-chr/color STA
+		#0701 [ LIT &sel $1 ] [ LIT &id $1 ] EQU JMP SWP POP ;draw-chr/color STA
 		INC2k ;draw-str JSR2 POP2 #00 .Screen/sprite DEOk DEO
 		;skip-sub JSR2
-		,&cat-id LDR INC ,&cat-id STR
+		,&id LDR INC ,&id STR
 		LDAk ,&cat JCN
 	POP2
 	#00 .Screen/auto DEO
@@ -169,7 +169,7 @@ JMP2r
 		DUP [ LIT &sel $1 ] EQU INC [ LIT &mask $1 ] AND ;draw-chr/color STA
 		[ LIT2 &anchor $2 ] .Screen/x DEO2
 		#00 OVR INC #30 SFT2 .Screen/y DEO2
-		SWP2 #0004 ADD2 ;draw-str JSR2 SWP2
+		SWP2 ;draw-label JSR2 SWP2
 		INC GTHk ,&subcat JCN
 	POP2 POP2
 	#00 .Screen/auto DEO
@@ -178,6 +178,12 @@ JMP2r
 
 JMP2r
 
+@draw-label ( label* -- next-label* )
+
+	#0004 ADD2 ;draw-str JSR2
+
+JMP2r
+
 @get-cat ( cat -- cat* )
 
 	STH