: 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

: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

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

reset-level
6 loadlevel

draw unfuck load-footer