19 lines
443 B
Plaintext
Executable file
19 lines
443 B
Plaintext
Executable file
import text.jrt
|
|
import keys.jrt
|
|
import random.jrt
|
|
import file.jrt
|
|
import task.jrt
|
|
import timer.jrt
|
|
import beep.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 ^ ;
|
|
|
|
: !save ( v p -- ) openself >r dup >rot !
|
|
r@ if dup 0x100 - r@ seekto cell swap r@ fwrite <r close
|
|
else rdrop drop then ;
|
|
|