Play bell

This commit is contained in:
Devine Lu Linvega 2024-07-24 15:42:07 -07:00
parent 5a514844ff
commit cab3279ddd
1 changed files with 6 additions and 1 deletions

View File

@ -39,7 +39,8 @@
[ LIT2 40 &f $1 ] INCk ,&f STR
NEQ ?{
[ LIT2 00 _&f ] STR
DUP2 #0001 SUB2 <set-seconds> }
#0001 SUB2 DUP2 <set-seconds>
ORAk ?{ <ring> } }
POP2 BRK
@on-mouse ( -> )
@ -60,6 +61,10 @@
(
@|core )
@<ring> ( -- )
( bell ) #0718 DEO
JMP2r
@<freeze-timer> ( -- )
;on-frame-freeze .Screen/vector DEO2
#c0 ;on-frame-freeze/lock STA