Connected arrows
This commit is contained in:
parent
797b8dc4e0
commit
c7482debc0
|
@ -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
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue