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