10 lines
236 B
Plaintext
10 lines
236 B
Plaintext
|
import text.jrt
|
||
|
import keys.jrt
|
||
|
import random.jrt
|
||
|
|
||
|
: !+ ( v p -- ) dup @ <rot + swap ! ;
|
||
|
: b!+ ( v p -- ) dup b@ <rot + swap b! ;
|
||
|
: b!| ( f p -- ) dup b@ <rot | swap b! ;
|
||
|
: b!^ ( f p -- ) dup b@ <rot ^ swap b! ;
|
||
|
: ~ 0xffff ^ ;
|