diff --git a/src/manifest.tal b/src/manifest.tal index 552c9ba..b97734d 100644 --- a/src/manifest.tal +++ b/src/manifest.tal @@ -127,6 +127,10 @@ JMP2r @menu-select ( cat -- ) + ( exists ) + DUP ;get-cat JSR2 #0000 NEQ2 ,&exists JCN + POP JMP2r + &exists ( clear ) ;draw-menu/sel LDA ( unchanged ) EQUk ,menu-deselect JCN @@ -134,10 +138,11 @@ JMP2r DUP #00 ;draw-sub JSR2 &no-clear POP - ( draw application ) ;redraw-all JSR2 - ( unselect sub ) #ff ;draw-sub/sel STA - ( select cat ) DUP ;draw-menu/sel STA - ( draw sub ) #ff ;draw-sub JSR2 + ( draw ) + ;redraw-all JSR2 + #ff ;draw-sub/sel STA + DUP ;draw-menu/sel STA + #ff ;draw-sub JSR2 ;draw-menu JSR2 JMP2r