fix loading graphics glitches, update catalog

end.jor

@@ -2,7 +2,7 @@
 
 : line" [ ' s" , ] :| 20 center 10 texty +! |; , ; immediate
 : end-tick
-  fuck s" endep1" loadscr
+  clear-pages fuck s" endep1" loadscr
   ^ENTER wait-key
   WHITE text-color !
   35 15 2 10 box

game.jor

@@ -261,7 +261,7 @@ defer reset-level userword
     0 q-level !
     reset-level
     dup LEV_QUIT = if
-      drop title
+      drop clear-pages title
     else
       loadlevel
       party each follow more

start.jor

@@ -16,5 +16,4 @@ task :noname activate blah begin draw suspend again ; execute
 reset-level
 loadlevel
 
-draw unfuck load-footer
-
+clear-pages unfuck reloadportraits reloadtiles draw load-footer

testbed.c

@@ -459,6 +459,17 @@ void f_system() {
   kbd_init();
 }
 
+void clearPages() {
+  unsigned int offset;
+
+  setAllPlanes();
+  setWriteMode(0);
+  for (offset = 0; offset < OFF_PAGE2 + SIZE_PAGE; offset ++) {
+    VID[offset] = 0;
+  }
+}
+
+
 /* JILES */
 #define SCREEN_STRIDE 40
 
@@ -820,6 +831,7 @@ void game_f_init(char *exe, char *bootjor) {
   CDEF("scrollpos", f_scrollpos);
   CDEF("draw-screen", drawScreen);
   CDEF("split-screen", f_splitscreen);
+  CDEF("clear-pages", clearPages);
   CDEF("ticks", f_ticks);
   CDEF("ticks!", f_setticks);
   CDEF("text", f_text);