: blah ' seremit task-emit ! ;
blah

0 const DEV

: devon 1 ' DEV redefine ;

s" game.log" open seekend fdeactivate const LOGFILE
: emit-log ' fputc LOGFILE withfp ;
: atexit LOGFILE factivate close ;

: start-repl activate blah ' emit-log task-echo !
  s" .:: J O R T H ( jean forth) ::." type cr
  begin receive loadstring s" ok" type cr again ;
task const REPL
REPL start-repl

defer tick
defer draw
defer loadlevel

task :noname activate blah begin tick suspend again ; execute

:noname
s" input.jor" loadfile
s" timer.jor" loadfile
s" entity.jor" loadfile
s" footer.jor" loadfile
s" map.jor" loadfile
s" state.jor" loadfile
s" jiles.jor" loadfile
s" job.jor" loadfile
s" level.jor" loadfile
s" game.jor" loadfile
s" debug.jor" loadfile
; execute

task :noname activate blah begin draw suspend again ; execute

' load-new-level checkpoint _loadlevel
' _loadlevel ' loadlevel redefine

reset-level
6 loadlevel

draw unfuck load-footer