==== animation fram walk ==== i polished the shit out of it and it works MUCH better...

diff --git a/DEBUG.16W b/DEBUG.16W
new file mode 100755 (executable)
index 0000000..061cbf7
--- /dev/null
+++ b/DEBUG.16W
@@ -0,0 +1,210 @@
+\e[0mSeg:0      Size:9956       Owner:0x0\r
+\e[41;31m+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\e[0m\e[42;32m000\r
+\e[0m\e[0mSeg:27ab       Size:44 Owner:0x0\r
+\e[41;31m++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:27d7       Size:256        Owner:0x1974\r
+\e[44;34m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:28d7       Size:256        Owner:0x1766\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:29d7       Size:256        Owner:0x1768\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:2ad7       Size:256        Owner:0x176a\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:2bd7       Size:256        Owner:0x176c\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:2cd7       Size:256        Owner:0x176e\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:2dd7       Size:256        Owner:0x1770\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:2ed7       Size:256        Owner:0x1772\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:2fd7       Size:256        Owner:0x1774\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:30d7       Size:256        Owner:0x1776\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:31d7       Size:256        Owner:0x1778\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:32d7       Size:256        Owner:0x177a\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:33d7       Size:256        Owner:0x177c\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:34d7       Size:256        Owner:0x177e\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:35d7       Size:256        Owner:0x1780\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:36d7       Size:256        Owner:0x1782\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:37d7       Size:256        Owner:0x1784\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:38d7       Size:256        Owner:0x1786\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:39d7       Size:256        Owner:0x1788\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:3ad7       Size:256        Owner:0x178a\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:3bd7       Size:256        Owner:0x178c\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:3cd7       Size:256        Owner:0x178e\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:3dd7       Size:256        Owner:0x1790\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:3ed7       Size:256        Owner:0x1792\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:3fd7       Size:256        Owner:0x1794\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:40d7       Size:256        Owner:0x1796\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:41d7       Size:256        Owner:0x1798\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:42d7       Size:256        Owner:0x179a\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:43d7       Size:256        Owner:0x179c\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:44d7       Size:256        Owner:0x179e\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:45d7       Size:256        Owner:0x17a0\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:46d7       Size:256        Owner:0x17a2\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:47d7       Size:256        Owner:0x17a4\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:48d7       Size:256        Owner:0x17a6\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:49d7       Size:256        Owner:0x17a8\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:4ad7       Size:256        Owner:0x17aa\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:4bd7       Size:256        Owner:0x17ac\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:4cd7       Size:256        Owner:0x17ae\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:4dd7       Size:256        Owner:0x17b0\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:4ed7       Size:256        Owner:0x17b2\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:4fd7       Size:256        Owner:0x17b4\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:50d7       Size:256        Owner:0x17b6\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:51d7       Size:256        Owner:0x17b8\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:52d7       Size:256        Owner:0x17ba\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:53d7       Size:256        Owner:0x17bc\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:54d7       Size:256        Owner:0x17be\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:55d7       Size:256        Owner:0x17c0\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:56d7       Size:256        Owner:0x17c2\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:57d7       Size:256        Owner:0x17c4\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:58d7       Size:256        Owner:0x17c6\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:59d7       Size:256        Owner:0x17c8\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:5ad7       Size:256        Owner:0x17ca\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:5bd7       Size:256        Owner:0x17cc\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:5cd7       Size:256        Owner:0x17ce\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:5dd7       Size:256        Owner:0x17d0\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:5ed7       Size:256        Owner:0x17d2\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:5fd7       Size:256        Owner:0x17d4\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:60d7       Size:256        Owner:0x17d6\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:61d7       Size:256        Owner:0x17d8\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:62d7       Size:256        Owner:0x17da\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:63d7       Size:256        Owner:0x17dc\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:64d7       Size:256        Owner:0x17de\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:65d7       Size:256        Owner:0x17e0\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:66d7       Size:256        Owner:0x17e2\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:67d7       Size:256        Owner:0x17e4\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:68d7       Size:256        Owner:0x17e6\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:69d7       Size:256        Owner:0x17e8\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:6ad7       Size:256        Owner:0x17ea\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:6bd7       Size:256        Owner:0x17ec\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:6cd7       Size:256        Owner:0x17ee\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:6dd7       Size:256        Owner:0x17f0\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:6ed7       Size:256        Owner:0x17f2\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:6fd7       Size:256        Owner:0x17f4\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:70d7       Size:256        Owner:0x17f6\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:71d7       Size:256        Owner:0x17f8\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:72d7       Size:256        Owner:0x17fa\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:73d7       Size:256        Owner:0x17fc\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:74d7       Size:256        Owner:0x17fe\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:75d7       Size:256        Owner:0x1800\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:76d7       Size:256        Owner:0x1802\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:77d7       Size:256        Owner:0x1804\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:78d7       Size:256        Owner:0x1806\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:79d7       Size:256        Owner:0x1808\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:7ad7       Size:256        Owner:0x180a\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:7bd7       Size:256        Owner:0x180c\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:7cd7       Size:256        Owner:0x180e\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:7dd7       Size:256        Owner:0x1810\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:7ed7       Size:256        Owner:0x1812\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:7fd7       Size:256        Owner:0x1814\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:80d7       Size:256        Owner:0x1816\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:81d7       Size:256        Owner:0x1818\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:82d7       Size:256        Owner:0x181a\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:83d7       Size:256        Owner:0x181c\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:84d7       Size:256        Owner:0x181e\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:85d7       Size:256        Owner:0x1820\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:86d7       Size:256        Owner:0x1822\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:87d7       Size:256        Owner:0x1824\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:88d7       Size:256        Owner:0x1826\r
+\e[45;35m+++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:89d7       Size:256        Owner:0x1828\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:8ad7       Size:256        Owner:0x182a\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:8bd7       Size:256        Owner:0x182c\r
+\e[45;35m++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:8cd7       Size:401        Owner:0xef40\r
+\e[44;34m++++++\e[0m\e[42;32m\r
+\e[0m\e[0mSeg:b7d7       Size:18472      Owner:0x0\r
+\e[41;31m++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++\e[0m
\ No newline at end of file

diff --git a/HEAP.16W b/HEAP.16W
new file mode 100755 (executable)
index 0000000..62e678d
--- /dev/null
+++ b/HEAP.16W
@@ -0,0 +1,69 @@
+\r
+       == default ==\r
+\r
+  USED block at 27cd0016 of size 136\r
+  FREE block at 27cd009e of size 68\r
+  USED block at 27cd00e2 of size 50\r
+  USED block at 27cd0114 of size 50\r
+  USED block at 27cd0146 of size 50\r
+  USED block at 27cd0178 of size 50\r
+  USED block at 27cd01aa of size 50\r
+  USED block at 27cd01dc of size 50\r
+  USED block at 27cd020e of size 50\r
+  USED block at 27cd0240 of size 50\r
+  USED block at 27cd0272 of size 50\r
+  USED block at 27cd02a4 of size 50\r
+  USED block at 27cd02d6 of size 50\r
+  USED block at 27cd0308 of size 50\r
+  FREE block at 27cd033a of size 14\r
+  USED block at 27cd0348 of size 20\r
+  FREE block at 27cd035c of size 7328\r
+OK - end of heap\r
+\r
+       == near ==\r
+\r
+  USED block at 17ccef86 of size 12\r
+  USED block at 17ccef92 of size 330\r
+  USED block at 17ccf0dc of size 52\r
+  USED block at 17ccf110 of size 20\r
+  USED block at 17ccf124 of size 20\r
+  USED block at 17ccf138 of size 20\r
+  USED block at 17ccf14c of size 20\r
+  USED block at 17ccf160 of size 20\r
+  USED block at 17ccf174 of size 3720\r
+OK - end of heap\r
+\r
+       == far ==\r
+\r
+  USED block at 27cd0016 of size 136\r
+  USED block at 27cd009e of size 68\r
+  USED block at 27cd00e2 of size 50\r
+  USED block at 27cd0114 of size 50\r
+  USED block at 27cd0146 of size 50\r
+  USED block at 27cd0178 of size 50\r
+  USED block at 27cd01aa of size 50\r
+  USED block at 27cd01dc of size 50\r
+  USED block at 27cd020e of size 50\r
+  USED block at 27cd0240 of size 50\r
+  USED block at 27cd0272 of size 50\r
+  USED block at 27cd02a4 of size 50\r
+  USED block at 27cd02d6 of size 50\r
+  USED block at 27cd0308 of size 50\r
+  USED block at 27cd033a of size 14\r
+  USED block at 27cd0348 of size 20\r
+  USED block at 27cd035c of size 7328\r
+OK - end of heap\r
+\r
+Memory Type         Total      Used       Free\r
+----------------  --------   --------   --------\r
+Default                   8166         756       7410\r
+Near              4214         494       3720\r
+Far               8166         756       7410\r
+----------------  --------   --------   --------\r
+coreleft = 3718\r
+farcoreleft = 35534\r
+GetFreeSize = 31836\r
+GetNearFreeSize = 3720\r
+GetFarFreeSize = 31836\r
+memavl = 3718\r
+stackavail = 31527\r

diff --git a/MMDUMP.16W b/MMDUMP.16W
new file mode 100755 (executable)
index 0000000..d944279
Binary files /dev/null and b/MMDUMP.16W differ

diff --git a/makefile b/makefile
index 2f6803a..621a7a6 100755 (executable)
--- a/makefile
+++ b/makefile
@@ -107,7 +107,7 @@ UPXQ=-qqq
 S_FLAGS=-sg -st -of+ -zu -zdf -zff -zgf -k32768
 Z_FLAGS=-zk0 -zc -zp8 -zm
 O_FLAGS=-opmilr -oe=24 -outback -ei -ohnl+                             -zp4
-T_FLAGS=-bt=dos -wx -m$(MEMORYMODE) -0 -fpi87 -d1 -e28#65536##-fo=.$(OBJ)
+T_FLAGS=-bt=dos -wx -m$(MEMORYMODE) -0 -fpi87 -d1##-fo=.$(OBJ) -e=65536
 
 DBUGFLAGS=-fm=$^&.mah -fd=$^&
 CPPFLAGS=-DTARGET_MSDOS=16 -DMSDOS=1
@@ -185,14 +185,14 @@ TESTEXEC = &
        scroll.exe &
        zcroll.exe &
        inputest.exe &
-       pcxtest.exe
+       pcxtest.exe &
+       vrstest.exe
 TESTEXEC2 = &
        maptest.exe &
        fmemtest.exe &
        fonttest.exe &
        fontgfx.exe &
        test0.exe &
-       vrstest.exe &
        $(EXTERNTESTEXEC)
 TESTEXEC3= &
        pcxtest2.exe

diff --git a/src/lib/16_tail.h b/src/lib/16_tail.h
index 6f10530..f599833 100755 (executable)
--- a/src/lib/16_tail.h
+++ b/src/lib/16_tail.h
@@ -60,7 +60,9 @@
        if(IN_KeyDown(2+1)){ gvar.video.panp=1; ZC_ShowMV(&mv, 0, 0); } \\r
        if(IN_KeyDown(3+1)){ gvar.video.panp=2; ZC_ShowMV(&mv, 0, 1); } \\r
        if(IN_KeyDown(4+1)){ gvar.video.panp=3; ZC_ShowMV(&mv, 0, 1); } \\r
-\\r
+       FUNCTIONKEYDRAWJUNKNOMV\r
+\r
+#define FUNCTIONKEYDRAWJUNKNOMV \\r
        if(IN_KeyDown(sc_A)) modexClearRegion(&gvar.video.page[2], 0, 0, gvar.video.page[2].sw, gvar.video.page[2].sh, 3); \\r
        if(IN_KeyDown(sc_S)) modexClearRegion(&gvar.video.page[3], 0, 0, gvar.video.page[3].sw, gvar.video.page[3].sh, 4); \\r
 \\r

diff --git a/src/vrstest.c b/src/vrstest.c
index fbc111d..18353af 100755 (executable)
--- a/src/vrstest.c
+++ b/src/vrstest.c
@@ -32,7 +32,6 @@ extern boolean dbg_nointest;
 boolean panswitch;\r
 \r
 static word far* clockw= (word far*) 0x046C; /* 18.2hz clock */\r
-static byte palette[768];\r
 \r
 void main()\r
 {\r
@@ -40,7 +39,7 @@ void main()
        //__segment sega;\r
        memptr bigbuffer;\r
        int i;\r
-       word start;\r
+       word start,w;\r
        float t1, t2;\r
        //boolean baka;\r
        entity_t enti;\r
@@ -58,7 +57,7 @@ void main()
        Startup16(&gvar);\r
 \r
        // What should be done by read_vrs:\r
-       CA_LoadFile("data/spri/chikyuu.vrs", &bigbuffer, &gvar);//) baka=1; else baka=0;\r
+       CA_LoadFile("data/spri/chikyuu.vrs", &bigbuffer, &gvar);\r
 \r
        // Insert sanity cheks later\r
        vrs.buffer = bigbuffer;\r
@@ -90,13 +89,15 @@ void main()
        vrs.vrl_line_offsets = vrl_line_offsets;\r
 \r
 \r
-       //read_vrs(&gvar, "data/spri/chikyuu.vrs", &vrs);\r
+//     read_vrs(&gvar, "data/spri/chikyuu.vrs", &vrs);\r
+\r
+\r
        enti.spri->spritesheet = &vrs;\r
        enti.spri->sprite_vrl_cont = malloc(sizeof(struct vrl_container));\r
        i = set_anim_by_id((enti.spri), 31);\r
        if (i == -1)\r
        {\r
-               printf("glitch!\n");\r
+               //Quit(&gvar, "ERROR!! glitch IN FILE!\n");\r
        }\r
        enti.spri->x = TILEWH-4;\r
        enti.spri->y = TILEWH;\r
@@ -107,11 +108,11 @@ void main()
 \r
        VGAmodeX(1, 1, &gvar);\r
        modexHiganbanaPageSetup(&gvar.video);\r
-       VL_ShowPage(&gvar.video.page[0], 0, 0);\r
+       VL_ShowPage(&gvar.video.page[0], 1, 0);\r
 \r
        /* non sprite comparison */\r
        start = *clockw;\r
-       modexCopyPageRegion(&gvar.video.page[0], &gvar.video.page[0], 0, 0, 0, 0, 320, 240);\r
+       //modexCopyPageRegion(&gvar.video.page[0], &gvar.video.page[0], 0, 0, 0, 0, 320, 240);\r
        t1 = (*clockw-start) /18.2;\r
 \r
        start = *clockw;\r
@@ -120,7 +121,8 @@ void main()
 \r
        /*modexLoadPalFile("data/spri/chikyuu.pal", &pal);\r
        modexPalUpdate1(pal);*/\r
-       VL_LoadPalFile("data/spri/chikyuu.pal", &palette);\r
+       //modexClearRegion(&gvar.video.page[0], 0, 0, gvar.video.page[0].width, gvar.video.page[0].height, 2);\r
+       VL_LoadPalFile("data/spri/chikyuu.pal", &gvar.video.palette);\r
        for (i = 0; i < 10; i++){\r
                enti.spri->delay = 1;\r
 \r
@@ -132,17 +134,20 @@ void main()
 \r
        while(!IN_KeyDown(sc_Escape))\r
        {\r
-               /*switch(w)\r
+               switch(w)\r
                {\r
-                       case 1024:\r
-                               modexPalUpdate0(pal);\r
+                       case 768:\r
+//                             modexPalUpdate0(pal);\r
                                w=0;\r
                        default:\r
                                w++;\r
+//                             gvar.video.palette[w]=rand();\r
                        break;\r
-               }*/\r
+               }\r
+               FUNCTIONKEYDRAWJUNKNOMV\r
+               if(IN_KeyDown(sc_F7)){ VL_ShowPage(&gvar.video.page[0], 1, 1);                                                  IN_UserInput(1,1); }\r
+               if(IN_KeyDown(sc_F6)){ VL_ShowPage(&gvar.video.page[0], 1, 0);                                                  IN_UserInput(1,1); }\r
                if(IN_KeyDown(25)){ modexpdump(&gvar.video.page[0]);  IN_UserInput(1,1); } //p\r
-//FUNCTIONKEYFUNCTIONS;\r
        }\r
        VGAmodeX(0, 1, &gvar);\r
        MM_ShowMemory(&gvar);\r