: 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 ;