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