retroforth/library/c-get-ext.retro
crc de7e670060 embed stack comments in various library/ files
FossilOrigin-Name: fa9205cf084acd917af13e72a932f0133285215b2f163299dbd3dc76128ab68d
2024-09-18 00:34:56 +00:00

10 lines
199 B
Forth

~~~
:keys:UP (:-n) #-300 ;
:keys:DOWN (:-n) #-301 ;
:keys:RIGHT (:-n) #-302 ;
:keys:LEFT (:-n) #-303 ;
:c:get/ext (:-c)
c:get dup #27 eq?
[ drop c:get drop c:get #235 + n:negate ] if ;
~~~