@@ 65,21 65,24 @@ JMP2r
#0000 DUP2 .Screen/x DEO2 .Screen/y DEO2
#01 .Screen/auto DEO
-
- #07 ;draw-chr/color STA
- ;manifest/name ;draw-str JSR2 #00 .Screen/sprite DEO
-
- #02 ;draw-chr/color STA
;manifest/menu
&cat
- LDAk STH INC2 ;draw-str JSR2 #00 .Screen/sprite DEO
+ #02 ;draw-chr/color STA
+ #0000 .Screen/y DEO2
+ .Screen/x DEI2 ,&col STR2
+ LDAk STH INC2 ;draw-str JSR2 #00 .Screen/sprite DEOk DEO
+ .Screen/x DEI2 ,&anchor STR2
+ #03 ;draw-chr/color STA
STHr #00
&subcat
+ #00 OVR INC #30 SFT2 .Screen/y DEO2
+ [ LIT2 &col $2 ] .Screen/x DEO2
SWP2
- #0004 ADD2 ;skip-str JSR2
+ #0004 ADD2 ;draw-str JSR2
SWP2
INC GTHk ,&subcat JCN
POP2
+ ( restore-x ) [ LIT2 &anchor $2 ] .Screen/x DEO2
LDAk ,&cat JCN
POP2
#00 .Screen/auto DEO
@@ 91,6 94,7 @@ JMP2r
&while
LDAk ,draw-chr JSR
INC2 LDAk ,&while JCN
+ INC2
JMP2r