diff --git a/adlib.c b/adlib.c
new file mode 100755
index 0000000..5547a4e
--- /dev/null
+++ b/adlib.c
@@ -0,0 +1,14 @@
+#include <dos.h>
+
+static void adlib_wait(int delay) {
+  int i;
+  for (i = 0; i < delay; i ++) inp(0x388);
+}
+
+void adlib_write(int reg, int val) {
+  int i;
+  outp(0x388, reg);
+  adlib_wait(6);
+  outp(0x389, val);
+  adlib_wait(35);
+}
diff --git a/adlib.h b/adlib.h
new file mode 100755
index 0000000..ab352f5
--- /dev/null
+++ b/adlib.h
@@ -0,0 +1 @@
+void adlib_write(int reg, int val);
\ No newline at end of file
diff --git a/boot.jim b/boot.jim
index 9cb5a8c..d20f40f 100755
Binary files a/boot.jim and b/boot.jim differ
diff --git a/defs.jim b/defs.jim
index d3c7ee0..6af2d25 100755
Binary files a/defs.jim and b/defs.jim differ
diff --git a/defs.jor b/defs.jor
index 0c3491c..027036e 100755
--- a/defs.jor
+++ b/defs.jor
@@ -5,17 +5,20 @@
 : 2dup over over ;
 : 3dup r> 2dup r@ >rot r< ;
 : 4dup r> r> 2dup r@ >rot rswap r@ >rot r< r< swap ;
+: nip swap drop ;
 
 : 2= ( a b c d -- a=c&b=d )
   r> <rot = swap r< = and ;
 
+: negate 0 swap - ;
+: abs dup 0 < if negate then ;
+
 : ~ -1 ^ ;
 : f! ( b v flag -- )
-  r> dup @ ( b v val r: flag )
-  <rot if r< | else r< ~ & then ( v newval )
-  swap ! ;
+  >rot r> r@ @ >rot ( val flag b r: v )
+  if | else ~ & then r< ! ;
 : f@ ( v flag -- ) swap @ & ;
-: fnot! 2dup f@ not f! ;
+: fnot! ( v flag -- ) over @ ^ swap ! ;
 
 : expile state if , else execute then ;
 
diff --git a/entity.jim b/entity.jim
index a54d05a..a03576f 100755
Binary files a/entity.jim and b/entity.jim differ
diff --git a/footer.jim b/footer.jim
index 88c1d82..495c985 100755
Binary files a/footer.jim and b/footer.jim differ
diff --git a/game.exe b/game.exe
index 53ffb0b..2211ecc 100755
Binary files a/game.exe and b/game.exe differ
diff --git a/game.jim b/game.jim
index eb69e54..d58ed85 100755
Binary files a/game.jim and b/game.jim differ
diff --git a/game.jor b/game.jor
index 83252cc..07826d2 100755
--- a/game.jor
+++ b/game.jor
@@ -30,15 +30,19 @@ defer player
 
 1 const MOVING
 2 const DRIVING
+4 const NOCLIP
+
+: player.driving? player.state DRIVING f@ ;
 
 : {player}
-  player.state DRIVING f@ if {car}
+  player.driving? if {car}
   else player.state MOVING f@ if {pete-walk}
   else {pete-stand} then then ;
 
-: player.driving? player.state DRIVING f@ ;
 : player.canmove? ( x y -- )
-  player.driving? if DRIVABLE else WALKABLE then mapflag? ;
+  player.state NOCLIP f@ not if
+  player.driving? if DRIVABLE else WALKABLE then mapflag?
+  else drop drop 1 then ;
 
 12 9 N ' {player} defentity player
 
@@ -111,6 +115,10 @@ player :tick
 : hello-world
   player.state DRIVING fnot! ;
 
+: reset-level
+  :| player yield 0 |; ' entities redefine
+  :| drop drop 0 |; ' player-touch redefine ;
+
 : mode-move
   entities each EVTICK entity>do more
   tick-mapedit
@@ -120,6 +128,7 @@ player :tick
   tick-debounce
   q-level @ dup if
     0 q-level !
+    reset-level
     loadlevel
     q-player.x @ q-player.y @ tile>world player entity.pos!
   else drop then ;
@@ -142,10 +151,6 @@ player :tick
   draw-screen
   draw-footer ;
 
-: reset-level
-  :| player yield 0 |; ' entities redefine
-  :| drop drop 0 |; ' player-touch redefine ;
-
 :noname
   reset-level
   MODE-MOVE @ ' tick redefine
diff --git a/game.prj b/game.prj
index 9a79db0..892a749 100755
Binary files a/game.prj and b/game.prj differ
diff --git a/gameboot.jor b/gameboot.jor
index f4660c6..8fd38bc 100755
--- a/gameboot.jor
+++ b/gameboot.jor
@@ -18,12 +18,14 @@ s" timer.jor" loadfile
 s" footer.jor" loadfile
 s" map.jor" loadfile
 s" game.jor" loadfile
+s" state.jor" loadfile
 ; execute
 
 intern pete.jor
 intern petehous.jor
 intern road.jor
 intern jeanne.jor
+intern trail1.jor
 
 :noname loadfile ; checkpoint _loadlevel
 ' _loadlevel ' loadlevel redefine
diff --git a/input.jim b/input.jim
index 80ccb2e..6b942a2 100755
Binary files a/input.jim and b/input.jim differ
diff --git a/jeanne.jim b/jeanne.jim
index e375245..64854b2 100755
Binary files a/jeanne.jim and b/jeanne.jim differ
diff --git a/jeanne.jor b/jeanne.jor
index f623628..8bdb685 100755
--- a/jeanne.jor
+++ b/jeanne.jor
@@ -13,10 +13,9 @@ car :touch
 ;entity
 
 :noname
-  reset-level
   0 player.state DRIVING f!
 :| player yield
-   e_chuck yield
+   chuck.state @ CHUCK-HOME = if e_chuck yield then
    player.driving? not if car yield then
    0 |; ' entities redefine
 
diff --git a/jorth.c b/jorth.c
index 8526c8c..4e649d0 100755
--- a/jorth.c
+++ b/jorth.c
@@ -525,7 +525,10 @@ void f_lit_() {
 
 void f_number() { // str -- (num 1 | str 0)
   int num = 0, result;
-  result = sscanf(TOP().s, "%d", &num);
+  result = sscanf(TOP().s, "0x%x", &num);
+  if (result != 1) {
+    result = sscanf(TOP().s, "%d", &num);
+  }
   if (result == 1) {
     TOP().i = num;
     PUSHI(result == 1);
diff --git a/jorts.map b/jorts.map
deleted file mode 100755
index f099756..0000000
Binary files a/jorts.map and /dev/null differ
diff --git a/map.jim b/map.jim
index cc4b58a..81329f3 100755
Binary files a/map.jim and b/map.jim differ
diff --git a/map.jor b/map.jor
index fb8c1e4..d71e645 100755
--- a/map.jor
+++ b/map.jor
@@ -66,6 +66,25 @@ here tileflags - 1 - const MAXTILE
   for 2dup i copy-mapseg next
   drop swap mapsize! ;
 
+: mapw mapsize drop ;
+: maph mapsize nip ;
+
+: offset-map ( p d -- p ) dup 0 < if drop else + then ;
+
+: shift-map ( dx dy -- )
+  maph over abs - r> ( dx dy r: h )
+  swap mapw over abs - >rot ( w dy dx r: h )
+  2dup map swap offset-map
+    swap mapw * offset-map >rot ( w end dy dx r: h )
+  map swap negate offset-map
+    swap mapw * negate offset-map ( w end start r: h )
+  2dup > if r@ mapw * + swap r@ mapw * + swap then
+  r< 0 for
+    3dup <rot memmove
+    2dup < if mapw + swap mapw + swap
+	   else mapw - swap mapw - swap then
+  next drop drop drop invalidate-map ;
+
 : save-map ( filename -- )
   fdeactivate swap overwrite
   mapsize swap fput fput
diff --git a/pete.jim b/pete.jim
index 7590dca..0b99ebc 100755
Binary files a/pete.jim and b/pete.jim differ
diff --git a/petehous.jim b/petehous.jim
index de2aa26..bfca453 100755
Binary files a/petehous.jim and b/petehous.jim differ
diff --git a/repl.jim b/repl.jim
index 1757e50..bd663f3 100755
Binary files a/repl.jim and b/repl.jim differ
diff --git a/repl.jor b/repl.jor
index 35dee6b..ef77d9f 100755
--- a/repl.jor
+++ b/repl.jor
@@ -3,3 +3,4 @@
   begin receive loadstring s" ok" type cr again ;
 task const REPL
 REPL start-repl
+
diff --git a/road.jim b/road.jim
index 47a1341..8abf566 100755
Binary files a/road.jim and b/road.jim differ
diff --git a/road.jor b/road.jor
index 17d08aa..03dce2a 100755
--- a/road.jor
+++ b/road.jor
@@ -3,7 +3,6 @@
 24 4 N ' {horse} defentity chuck
 
 :noname
-  reset-level
   1 player.state DRIVING f!
   :| player yield chuck yield 0 |; ' entities redefine
   :|
@@ -12,7 +11,7 @@ touch-begin E leaving? dup
 touch-next 5 9 2= dup
   if player move-entity 13 12 pete.jor queue-level then
 touch-next 13 6 2= dup
-  if pete say" Old hiking trail." then
+  if player move-entity 38 71 trail1.jor queue-level then
 touch-next 24 6 2= dup
   if player move-entity 13 22 jeanne.jor queue-level then
 touch-next 39 33 2= dup
diff --git a/state.jim b/state.jim
new file mode 100755
index 0000000..6462f1b
Binary files /dev/null and b/state.jim differ
diff --git a/state.jor b/state.jor
new file mode 100755
index 0000000..1078e4d
--- /dev/null
+++ b/state.jor
@@ -0,0 +1,4 @@
+0 const CHUCK-LOST
+1 const CHUCK-FOLLOW
+2 const CHUCK-HOME
+var chuck.state
diff --git a/testbed.c b/testbed.c
index 9eef18f..725b527 100755
--- a/testbed.c
+++ b/testbed.c
@@ -11,6 +11,7 @@
 #include "timer.h"
 #include "jorth.h"
 #include "egamap.h"
+#include "adlib.h"
 
 /*** T E X T ***/
 char far *font = NULL;
@@ -193,6 +194,11 @@ void f_drawportrait() {
   DROP(1);
 }
 
+void f_adlib() {
+  adlib_write(ST1().u, TOP().u);
+  DROP(2);
+}
+
 void game_f_init() {
   f_init();
   CDEF("seremit", f_seremit);
@@ -217,7 +223,7 @@ void game_f_init() {
 }
 
 void f_poll() {
-  static char line[256] = { 0 };
+  static char line[128] = { 0 };
 
   int i = strlen(line);
   int value;
@@ -248,10 +254,11 @@ static void f_quit() {
   DONE = 1;
 }
 void do_repl() {
-  char buf[256];
+  char buf[128];
 
   f_init();
   CDEF("quit", f_quit);
+  CDEF("adlib", f_adlib);
 
   f_loadfile("repl.jor");
   f_taskloop();
diff --git a/timer.jim b/timer.jim
index 71eb984..6a5cce7 100755
Binary files a/timer.jim and b/timer.jim differ
diff --git a/trail1.jim b/trail1.jim
new file mode 100755
index 0000000..6d2d743
Binary files /dev/null and b/trail1.jim differ
diff --git a/trail1.jor b/trail1.jor
new file mode 100755
index 0000000..717555b
--- /dev/null
+++ b/trail1.jor
@@ -0,0 +1,42 @@
+( T R A I L 1 )
+
+38 60 E ' {horse} defentity e_chuck
+39 71 N ' {car} defentity car
+
+car :touch
+ player move-entity 1 player.state DRIVING f!
+;entity
+
+:noname
+0 player.state DRIVING f!
+
+:| player yield
+   chuck.state @ CHUCK-LOST = if e_chuck yield then
+   player.driving? not if car yield then
+   0 |; ' entities redefine
+
+:|
+touch-begin S leaving? dup
+  if player.driving? not
+    if   pete say" I'm not walking."
+    else player move-entity 13 7 road.jor queue-level
+    then
+  then
+chuck.state @ CHUCK-LOST = if
+  touch-next 37 60 2= dup
+    if
+      pete say" Oh for the love of..."
+      say" Chuck! How on Earth did you\end up over there!?"
+      W e_chuck entity.dir !
+      chuck say" * n e i g h *\(Help me Pete, I'm lost!)"
+    then
+then
+touch-next 3 56 2= dup
+  if
+    pete say" This is where I buried it."
+    say" All those years ago."
+  then
+touch-last |; ' player-touch redefine
+
+s" trail1.map" load-map
+; ' onload redefine
diff --git a/trail1.map b/trail1.map
new file mode 100755
index 0000000..ca9af50
Binary files /dev/null and b/trail1.map differ