Connected arrows

This commit is contained in:
Devine Lu Linvega 2024-02-11 12:10:38 -08:00
parent 797b8dc4e0
commit c7482debc0
1 changed files with 8 additions and 2 deletions

View File

@ -93,10 +93,16 @@
DUP [ LIT ". ] NEQ ?{ #001e <set-press> } DUP [ LIT ". ] NEQ ?{ #001e <set-press> }
POP BRK POP BRK
&on-button ( button -> ) &on-button ( button -> )
DUP [ LIT 40 ] NEQ ?{
#0018 <set-press>
POP BRK }
DUP [ LIT 80 ] NEQ ?{
#0019 <set-press>
POP BRK }
#02 SFT #01 AND .layer STZ #02 SFT #01 AND .layer STZ
<draw-keyboard> <draw-keyboard>
BRK BRK
( (
@|core ) @|core )
@ -285,6 +291,6 @@
&c ( -- ) &c ( -- )
#0f AND DUP #09 GTH #27 MUL ADD [ LIT "0 ] ADD #18 DEO #0f AND DUP #09 GTH #27 MUL ADD [ LIT "0 ] ADD #18 DEO
JMP2r JMP2r
~assets.tal ~assets.tal