modified: 16/PCX_LIB/PCX_LIB.BAT

	modified:   16/dos_gfx.cpp
	new file:   16/error
	new file:   16/lib/x/DEFAULT.FNT
	modified:   16/lib/x/MAKEFILE
	new file:   16/lib/x/MODEX.LBR
	new file:   16/lib/x/MODEX.PAS
	new file:   16/lib/x/modex.lib
	new file:   16/lib/x/readme.txt
	modified:   16/x.bat

diff --git a/16/PCX_LIB/PCX_LIB.BAT b/16/PCX_LIB/PCX_LIB.BAT
index 8c6dec6..4192ffe 100644 (file)
--- a/16/PCX_LIB/PCX_LIB.BAT
+++ b/16/PCX_LIB/PCX_LIB.BAT
@@ -3,11 +3,11 @@ REM     Batch File To Compile PCX_LIB Demonstration Programs
 REM     Compiler:  Microsoft C V6.0\r
 ECHO byHeart Software's PCX_LIB Demonstration Programs\r
 ECHO Now compiling source code files ...\r
-cl /c /W4 pcx_comm.c pcx_disp.c pcx_exam.c pcx_file.c rd_demo.c wr_demo.c\r
+wcl /c /W4 pcx_comm.c pcx_disp.c pcx_exam.c pcx_file.c rd_demo.c wr_demo.c\r
 ECHO Now linking PCX_EXAM ...\r
-link pcx_exam;\r
+wlink pcx_exam;\r
 ECHO Now linking RD_DEMO ...\r
-link rd_demo pcx_disp pcx_comm;\r
+wlink rd_demo pcx_disp pcx_comm;\r
 ECHO Now linking WR_DEMO ...\r
-link wr_demo pcx_disp pcx_file pcx_comm;\r
+wlink wr_demo pcx_disp pcx_file pcx_comm;\r
 \r

diff --git a/16/dos_gfx.cpp b/16/dos_gfx.cpp
index 6bfe219..6788663 100644 (file)
--- a/16/dos_gfx.cpp
+++ b/16/dos_gfx.cpp
@@ -751,18 +751,18 @@ int ding(int q){
                                }\r
                }\r
 \r
-               if(q == 8){ colorz(); return gq; }else\r
-               if(q == 10){ ssd(q); /*printf("%d\n", coor);*/ }else\r
-               if(q == 5){ colortest(); return gq; }else\r
-               if(q == 11){ colorz(); delay(100); return gq; }\r
-               if(q == 6){\r
+               if(q==8){ colorz(); return gq; }else\r
+               if(q==10){ ssd(q); /*printf("%d\n", coor);*/ }else\r
+               if(q==5){ colortest(); return gq; }else\r
+               if(q==11){ colorz(); delay(100); return gq; }\r
+               if(q==6){\r
                                coor = rand()%NUM_COLORS;\r
 //----           cls(coor, vaddr);\r
                                cls(coor, vga);\r
                                //updatevbuff();\r
                }\r
 \r
-               if(q == 7 || q== 9){\r
+               if(q==7||q==9){\r
                                if(gq < HGQ){\r
                                                if(q == 7) ssd(q);\r
                                                if(q == 9){ ssd(q); coor++; }\r
@@ -982,16 +982,17 @@ int main(void)
                                }\r
                }*/ // else off\r
                while(!kbhit()){ // conditions of screen saver\r
-                       ding(2);\r
+                       ding(4);\r
                }\r
                //end of screen savers\r
-//             doTest();\r
-               getch();\r
+               doTest();\r
+//             getch();\r
 \r
                while(!kbhit()){ // conditions of screen saver\r
 //                     hScroll(1);\r
-                       scrolly(1);\r
-                       delay(100);\r
+//                     scrolly(1);\r
+                       vScroll(1);\r
+//                     delay(100);\r
 //                     Play();\r
                }\r
 //++++0000\r

diff --git a/16/error b/16/error
new file mode 100644 (file)
index 0000000..589f324
--- /dev/null
+++ b/16/error
@@ -0,0 +1 @@
+file dos_gfx.obj(C:\Z\16\16\dos_gfx.cpp): undefined symbol\r

diff --git a/16/lib/x/DEFAULT.FNT b/16/lib/x/DEFAULT.FNT
new file mode 100644 (file)
index 0000000..12eb22c
--- /dev/null
+++ b/16/lib/x/DEFAULT.FNT
@@ -0,0 +1,260 @@
+;\r
+; MODEX library default font\r
+; Copyright (c) 1993-1994 by Alessandro Scotti\r
+;\r
+  DB    000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h  ; #0\r
+  DB   07Eh, 081h, 0A5h, 081h, 0A5h, 099h, 081h, 07Eh  ; #1\r
+  DB   07Eh, 0FFh, 0DBh, 0FFh, 0DBh, 0E7h, 0FFh, 07Eh  ; #2\r
+  DB   06Ch, 0FEh, 0FEh, 0FEh, 07Ch, 038h, 010h, 000h  ; #3\r
+  DB   010h, 038h, 07Ch, 0FEh, 07Ch, 038h, 010h, 000h  ; #4\r
+  DB   010h, 038h, 010h, 054h, 0FEh, 054h, 010h, 0FEh  ; #5\r
+  DB   010h, 038h, 07Ch, 0FEh, 0FEh, 07Ch, 010h, 0FEh  ; #6\r
+  DB   000h, 018h, 03Ch, 07Eh, 07Eh, 03Ch, 018h, 000h  ; #7\r
+  DB   0FFh, 0E7h, 0C3h, 081h, 081h, 0C3h, 0E7h, 0FFh  ; #8\r
+  DB   000h, 03Ch, 066h, 042h, 042h, 066h, 03Ch, 000h  ; #9\r
+  DB   0FFh, 0C3h, 099h, 0BDh, 0BDh, 099h, 0C3h, 0FFh  ; #10\r
+  DB   007h, 003h, 005h, 078h, 084h, 084h, 084h, 078h  ; #11\r
+  DB   07Ch, 082h, 082h, 082h, 07Ch, 010h, 038h, 010h  ; #12\r
+  DB   01Ch, 010h, 01Ch, 010h, 010h, 010h, 030h, 030h  ; #13\r
+  DB   03Eh, 022h, 03Eh, 022h, 022h, 026h, 066h, 060h  ; #14\r
+  DB   099h, 05Ah, 03Ch, 0E7h, 0E7h, 03Ch, 05Ah, 099h  ; #15\r
+  DB   000h, 010h, 030h, 070h, 0F0h, 070h, 030h, 010h  ; #16\r
+  DB   000h, 080h, 0C0h, 0E0h, 0F0h, 0E0h, 0C0h, 080h  ; #17\r
+  DB   010h, 038h, 054h, 010h, 010h, 054h, 038h, 010h  ; #18\r
+  DB   048h, 048h, 048h, 048h, 048h, 000h, 048h, 000h  ; #19\r
+  DB   07Eh, 092h, 092h, 072h, 012h, 012h, 012h, 000h  ; #20\r
+  DB   03Ch, 022h, 018h, 024h, 024h, 018h, 044h, 03Ch  ; #21\r
+  DB   000h, 000h, 000h, 000h, 000h, 03Eh, 03Eh, 000h  ; #22\r
+  DB   038h, 054h, 010h, 010h, 010h, 054h, 038h, 0FEh  ; #23\r
+  DB   000h, 010h, 038h, 054h, 010h, 010h, 010h, 000h  ; #24\r
+  DB   000h, 010h, 010h, 010h, 054h, 038h, 010h, 000h  ; #25\r
+  DB   000h, 008h, 004h, 0FEh, 004h, 008h, 000h, 000h  ; #26\r
+  DB   000h, 020h, 040h, 0FEh, 040h, 020h, 000h, 000h  ; #27\r
+  DB   000h, 000h, 080h, 080h, 080h, 0FCh, 000h, 000h  ; #28\r
+  DB   000h, 024h, 042h, 0FFh, 042h, 024h, 000h, 000h  ; #29\r
+  DB   000h, 000h, 010h, 038h, 07Ch, 0FEh, 000h, 000h  ; #30\r
+  DB   000h, 000h, 0FEh, 07Ch, 038h, 010h, 000h, 000h  ; #31\r
+  DB   000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h  ;  \r
+  DB   010h, 010h, 010h, 010h, 010h, 000h, 010h, 000h  ; !\r
+  DB   000h, 024h, 024h, 000h, 000h, 000h, 000h, 000h  ; "\r
+  DB   024h, 024h, 07Eh, 024h, 07Eh, 024h, 024h, 000h  ; #\r
+  DB   038h, 054h, 050h, 038h, 014h, 054h, 038h, 010h  ; $\r
+  DB   000h, 002h, 044h, 008h, 010h, 020h, 042h, 000h  ; %\r
+  DB   038h, 044h, 038h, 060h, 094h, 088h, 074h, 000h  ; &\r
+  DB   020h, 020h, 040h, 000h, 000h, 000h, 000h, 000h  ; '\r
+  DB   010h, 020h, 040h, 040h, 040h, 020h, 010h, 000h  ; (\r
+  DB   040h, 020h, 010h, 010h, 010h, 020h, 040h, 000h  ; )\r
+  DB   000h, 024h, 018h, 07Eh, 018h, 024h, 000h, 000h  ; *\r
+  DB   000h, 010h, 010h, 07Ch, 010h, 010h, 000h, 000h  ; +\r
+  DB   000h, 000h, 000h, 000h, 000h, 010h, 010h, 020h  ; ,\r
+  DB   000h, 000h, 000h, 0FCh, 000h, 000h, 000h, 000h  ; -\r
+  DB   000h, 000h, 000h, 000h, 000h, 000h, 010h, 000h  ; .\r
+  DB   000h, 004h, 008h, 010h, 020h, 040h, 080h, 000h  ; /\r
+  DB   07Ch, 0C6h, 08Ah, 092h, 0A2h, 0C6h, 07Ch, 000h  ; 0\r
+  DB   010h, 030h, 010h, 010h, 010h, 010h, 038h, 000h  ; 1\r
+  DB   078h, 084h, 004h, 018h, 060h, 080h, 0FCh, 000h  ; 2\r
+  DB   078h, 084h, 004h, 038h, 004h, 084h, 078h, 000h  ; 3\r
+  DB   01Ch, 024h, 044h, 084h, 0FEh, 004h, 00Eh, 000h  ; 4\r
+  DB   0FCh, 080h, 0F8h, 004h, 004h, 084h, 078h, 000h  ; 5\r
+  DB   078h, 084h, 080h, 0F8h, 084h, 084h, 078h, 000h  ; 6\r
+  DB   0FCh, 004h, 004h, 008h, 010h, 020h, 020h, 000h  ; 7\r
+  DB   078h, 084h, 084h, 078h, 084h, 084h, 078h, 000h  ; 8\r
+  DB   078h, 084h, 084h, 07Ch, 004h, 084h, 078h, 000h  ; 9\r
+  DB   000h, 000h, 010h, 000h, 000h, 000h, 010h, 000h  ; :\r
+  DB   000h, 000h, 010h, 000h, 000h, 010h, 010h, 020h  ; ;\r
+  DB   008h, 010h, 020h, 040h, 020h, 010h, 008h, 000h  ; <\r
+  DB   000h, 000h, 0FCh, 000h, 000h, 0FCh, 000h, 000h  ; =\r
+  DB   040h, 020h, 010h, 008h, 010h, 020h, 040h, 000h  ; >\r
+  DB   078h, 084h, 004h, 008h, 010h, 000h, 010h, 000h  ; ?\r
+  DB   07Ch, 082h, 0BAh, 0A6h, 0BEh, 080h, 07Ch, 000h  ; @\r
+  DB   078h, 084h, 084h, 0FCh, 084h, 084h, 084h, 000h  ; A\r
+  DB   0F8h, 084h, 084h, 0F8h, 084h, 084h, 0F8h, 000h  ; B\r
+  DB   078h, 084h, 080h, 080h, 080h, 084h, 078h, 000h  ; C\r
+  DB   0F0h, 088h, 084h, 084h, 084h, 088h, 0F0h, 000h  ; D\r
+  DB   0FCh, 080h, 080h, 0F0h, 080h, 080h, 0FCh, 000h  ; E\r
+  DB   0FCh, 080h, 080h, 0F0h, 080h, 080h, 080h, 000h  ; F\r
+  DB   078h, 084h, 080h, 09Ch, 084h, 084h, 078h, 000h  ; G\r
+  DB   084h, 084h, 084h, 0FCh, 084h, 084h, 084h, 000h  ; H\r
+  DB   038h, 010h, 010h, 010h, 010h, 010h, 038h, 000h  ; I\r
+  DB   01Ch, 008h, 008h, 008h, 088h, 088h, 070h, 000h  ; J\r
+  DB   084h, 088h, 090h, 0E0h, 090h, 088h, 084h, 000h  ; K\r
+  DB   080h, 080h, 080h, 080h, 080h, 080h, 0FCh, 000h  ; L\r
+  DB   0C6h, 0AAh, 092h, 082h, 082h, 082h, 082h, 000h  ; M\r
+  DB   082h, 0C2h, 0A2h, 092h, 08Ah, 086h, 082h, 000h  ; N\r
+  DB   078h, 084h, 084h, 084h, 084h, 084h, 078h, 000h  ; O\r
+  DB   0F8h, 084h, 084h, 0F8h, 080h, 080h, 080h, 000h  ; P\r
+  DB   078h, 084h, 084h, 084h, 094h, 088h, 076h, 000h  ; Q\r
+  DB   0F8h, 084h, 084h, 0F8h, 090h, 088h, 084h, 000h  ; R\r
+  DB   078h, 084h, 080h, 078h, 004h, 084h, 078h, 000h  ; S\r
+  DB   0FEh, 010h, 010h, 010h, 010h, 010h, 010h, 000h  ; T\r
+  DB   084h, 084h, 084h, 084h, 084h, 084h, 078h, 000h  ; U\r
+  DB   084h, 084h, 084h, 084h, 084h, 048h, 030h, 000h  ; V\r
+  DB   082h, 082h, 082h, 082h, 092h, 0AAh, 0C6h, 000h  ; W\r
+  DB   082h, 044h, 028h, 010h, 028h, 044h, 082h, 000h  ; X\r
+  DB   044h, 044h, 044h, 038h, 010h, 010h, 010h, 000h  ; Y\r
+  DB   0FEh, 004h, 008h, 010h, 020h, 040h, 0FEh, 000h  ; Z\r
+  DB   078h, 040h, 040h, 040h, 040h, 040h, 078h, 000h  ; [\r
+  DB   000h, 080h, 040h, 020h, 010h, 008h, 004h, 000h  ; \\r
+  DB   078h, 008h, 008h, 008h, 008h, 008h, 078h, 000h  ; ]\r
+  DB   010h, 028h, 044h, 082h, 000h, 000h, 000h, 000h  ; ^\r
+  DB   000h, 000h, 000h, 000h, 000h, 000h, 000h, 0FFh  ; _\r
+  DB   020h, 020h, 010h, 000h, 000h, 000h, 000h, 000h  ; `\r
+  DB   000h, 000h, 038h, 004h, 03Ch, 044h, 07Ch, 000h  ; a\r
+  DB   000h, 040h, 040h, 078h, 044h, 044h, 078h, 000h  ; b\r
+  DB   000h, 000h, 03Ch, 040h, 040h, 040h, 03Ch, 000h  ; c\r
+  DB   000h, 004h, 004h, 03Ch, 044h, 044h, 03Ch, 000h  ; d\r
+  DB   000h, 000h, 038h, 044h, 07Ch, 040h, 03Ch, 000h  ; e\r
+  DB   000h, 00Ch, 010h, 03Ch, 010h, 010h, 010h, 000h  ; f\r
+  DB   000h, 000h, 03Ch, 044h, 044h, 03Ch, 004h, 038h  ; g\r
+  DB   000h, 040h, 040h, 078h, 044h, 044h, 044h, 000h  ; h\r
+  DB   000h, 010h, 000h, 010h, 010h, 010h, 010h, 000h  ; i\r
+  DB   000h, 004h, 000h, 004h, 004h, 004h, 044h, 038h  ; j\r
+  DB   000h, 040h, 040h, 050h, 060h, 050h, 048h, 000h  ; k\r
+  DB   000h, 030h, 010h, 010h, 010h, 010h, 010h, 000h  ; l\r
+  DB   000h, 000h, 068h, 054h, 054h, 044h, 044h, 000h  ; m\r
+  DB   000h, 000h, 078h, 044h, 044h, 044h, 044h, 000h  ; n\r
+  DB   000h, 000h, 038h, 044h, 044h, 044h, 038h, 000h  ; o\r
+  DB   000h, 000h, 078h, 044h, 044h, 078h, 040h, 040h  ; p\r
+  DB   000h, 000h, 03Ch, 044h, 044h, 03Ch, 004h, 004h  ; q\r
+  DB   000h, 000h, 05Ch, 060h, 040h, 040h, 040h, 000h  ; r\r
+  DB   000h, 000h, 038h, 040h, 07Ch, 004h, 07Ch, 000h  ; s\r
+  DB   000h, 010h, 038h, 010h, 010h, 010h, 018h, 000h  ; t\r
+  DB   000h, 000h, 044h, 044h, 044h, 044h, 038h, 000h  ; u\r
+  DB   000h, 000h, 044h, 044h, 044h, 028h, 010h, 000h  ; v\r
+  DB   000h, 000h, 044h, 044h, 054h, 054h, 06Ch, 000h  ; w\r
+  DB   000h, 000h, 044h, 028h, 010h, 028h, 044h, 000h  ; x\r
+  DB   000h, 000h, 044h, 044h, 044h, 03Ch, 004h, 07Ch  ; y\r
+  DB   000h, 000h, 07Ch, 004h, 038h, 040h, 07Ch, 000h  ; z\r
+  DB   000h, 008h, 010h, 010h, 030h, 010h, 010h, 008h  ; {\r
+  DB   000h, 010h, 010h, 010h, 000h, 010h, 010h, 010h  ; |\r
+  DB   000h, 020h, 010h, 010h, 018h, 010h, 010h, 020h  ; }\r
+  DB   064h, 098h, 000h, 000h, 000h, 000h, 000h, 000h  ; ~\r
+  DB   000h, 010h, 028h, 044h, 082h, 082h, 0FEh, 000h  ; \7f\r
+  DB   07Ch, 080h, 080h, 080h, 080h, 07Ch, 004h, 07Ch  ; #128\r
+  DB   000h, 028h, 000h, 044h, 044h, 044h, 038h, 000h  ; #129\r
+  DB   03Ch, 000h, 07Ch, 044h, 07Ch, 040h, 07Ch, 000h  ; #130\r
+  DB   07Eh, 081h, 038h, 004h, 03Ch, 044h, 07Ch, 000h  ; #131\r
+  DB   024h, 000h, 038h, 004h, 03Ch, 044h, 07Ch, 000h  ; #132\r
+  DB   078h, 000h, 038h, 004h, 03Ch, 044h, 07Ch, 000h  ; #133\r
+  DB   018h, 018h, 038h, 004h, 03Ch, 044h, 07Ch, 000h  ; #134\r
+  DB   000h, 000h, 078h, 080h, 080h, 078h, 008h, 038h  ; #135\r
+  DB   07Ch, 082h, 038h, 044h, 07Ch, 040h, 03Ch, 000h  ; #136\r
+  DB   048h, 000h, 038h, 044h, 07Ch, 040h, 03Ch, 000h  ; #137\r
+  DB   078h, 000h, 038h, 044h, 07Ch, 040h, 03Ch, 000h  ; #138\r
+  DB   000h, 028h, 000h, 010h, 010h, 010h, 010h, 000h  ; #139\r
+  DB   010h, 028h, 000h, 010h, 010h, 010h, 010h, 000h  ; #140\r
+  DB   000h, 030h, 000h, 010h, 010h, 010h, 010h, 000h  ; #141\r
+  DB   048h, 000h, 078h, 084h, 0FCh, 084h, 084h, 000h  ; #142\r
+  DB   030h, 030h, 078h, 084h, 0FCh, 084h, 084h, 000h  ; #143\r
+  DB   038h, 000h, 0FCh, 080h, 0F0h, 080h, 0FCh, 000h  ; #144\r
+  DB   000h, 000h, 07Eh, 008h, 07Eh, 048h, 07Eh, 000h  ; #145\r
+  DB   07Eh, 090h, 090h, 0FCh, 090h, 090h, 09Eh, 000h  ; #146\r
+  DB   07Ch, 082h, 038h, 044h, 044h, 044h, 038h, 000h  ; #147\r
+  DB   028h, 000h, 038h, 044h, 044h, 044h, 038h, 000h  ; #148\r
+  DB   070h, 000h, 038h, 044h, 044h, 044h, 038h, 000h  ; #149\r
+  DB   038h, 044h, 000h, 044h, 044h, 044h, 038h, 000h  ; #150\r
+  DB   070h, 000h, 044h, 044h, 044h, 044h, 038h, 000h  ; #151\r
+  DB   028h, 000h, 044h, 044h, 044h, 03Ch, 004h, 07Ch  ; #152\r
+  DB   048h, 000h, 078h, 084h, 084h, 084h, 078h, 000h  ; #153\r
+  DB   048h, 000h, 084h, 084h, 084h, 084h, 078h, 000h  ; #154\r
+  DB   000h, 010h, 038h, 040h, 040h, 040h, 038h, 010h  ; #155\r
+  DB   038h, 044h, 040h, 0E0h, 040h, 040h, 082h, 0FCh  ; #156\r
+  DB   044h, 07Ch, 010h, 07Ch, 010h, 07Ch, 010h, 000h  ; #157\r
+  DB   0F0h, 088h, 08Ah, 0F7h, 082h, 082h, 082h, 000h  ; #158\r
+  DB   00Ch, 012h, 010h, 018h, 030h, 010h, 090h, 060h  ; #159\r
+  DB   03Ch, 000h, 038h, 004h, 03Ch, 044h, 07Ch, 000h  ; #160\r
+  DB   000h, 018h, 000h, 010h, 010h, 010h, 010h, 000h  ; #161\r
+  DB   01Ch, 000h, 038h, 044h, 044h, 044h, 038h, 000h  ; #162\r
+  DB   01Ch, 000h, 044h, 044h, 044h, 044h, 038h, 000h  ; #163\r
+  DB   07Ch, 000h, 078h, 044h, 044h, 044h, 044h, 000h  ; #164\r
+  DB   07Ch, 000h, 044h, 064h, 054h, 04Ch, 044h, 000h  ; #165\r
+  DB   018h, 024h, 024h, 01Eh, 000h, 03Eh, 000h, 000h  ; #166\r
+  DB   01Ch, 022h, 022h, 01Ch, 000h, 03Eh, 000h, 000h  ; #167\r
+  DB   010h, 000h, 010h, 020h, 040h, 042h, 03Ch, 000h  ; #168\r
+  DB   000h, 000h, 000h, 0FCh, 080h, 080h, 000h, 000h  ; #169\r
+  DB   000h, 000h, 000h, 0FCh, 004h, 004h, 000h, 000h  ; #170\r
+  DB   040h, 044h, 048h, 057h, 021h, 047h, 004h, 007h  ; #171\r
+  DB   040h, 044h, 048h, 052h, 026h, 04Ah, 01Fh, 002h  ; #172\r
+  DB   010h, 000h, 010h, 010h, 010h, 010h, 010h, 000h  ; #173\r
+  DB   000h, 024h, 048h, 090h, 048h, 024h, 000h, 000h  ; #174\r
+  DB   000h, 048h, 024h, 012h, 024h, 048h, 000h, 000h  ; #175\r
+  DB   022h, 088h, 022h, 088h, 022h, 088h, 022h, 088h  ; #176\r
+  DB   055h, 0AAh, 055h, 0AAh, 055h, 0AAh, 055h, 0AAh  ; #177\r
+  DB   0DBh, 077h, 0DBh, 0EEh, 0DBh, 077h, 0DBh, 0EEh  ; #178\r
+  DB   018h, 018h, 018h, 018h, 018h, 018h, 018h, 018h  ; #179\r
+  DB   018h, 018h, 018h, 018h, 0F8h, 018h, 018h, 018h  ; #180\r
+  DB   018h, 018h, 0F8h, 018h, 0F8h, 018h, 018h, 018h  ; #181\r
+  DB   036h, 036h, 036h, 036h, 0F6h, 036h, 036h, 036h  ; #182\r
+  DB   000h, 000h, 000h, 000h, 0FEh, 036h, 036h, 036h  ; #183\r
+  DB   000h, 000h, 0F8h, 018h, 0F8h, 018h, 018h, 018h  ; #184\r
+  DB   036h, 036h, 0F6h, 006h, 0F6h, 036h, 036h, 036h  ; #185\r
+  DB   036h, 036h, 036h, 036h, 036h, 036h, 036h, 036h  ; #186\r
+  DB   000h, 000h, 0FEh, 006h, 0F6h, 036h, 036h, 036h  ; #187\r
+  DB   036h, 036h, 0F6h, 006h, 0FEh, 000h, 000h, 000h  ; #188\r
+  DB   036h, 036h, 036h, 036h, 0FEh, 000h, 000h, 000h  ; #189\r
+  DB   018h, 018h, 0F8h, 018h, 0F8h, 000h, 000h, 000h  ; #190\r
+  DB   000h, 000h, 000h, 000h, 0F8h, 018h, 018h, 018h  ; #191\r
+  DB   018h, 018h, 018h, 018h, 01Fh, 000h, 000h, 000h  ; #192\r
+  DB   018h, 018h, 018h, 018h, 0FFh, 000h, 000h, 000h  ; #193\r
+  DB   000h, 000h, 000h, 000h, 0FFh, 018h, 018h, 018h  ; #194\r
+  DB   018h, 018h, 018h, 018h, 01Fh, 018h, 018h, 018h  ; #195\r
+  DB   000h, 000h, 000h, 000h, 0FFh, 000h, 000h, 000h  ; #196\r
+  DB   018h, 018h, 018h, 018h, 0FFh, 018h, 018h, 018h  ; #197\r
+  DB   018h, 018h, 01Fh, 018h, 01Fh, 018h, 018h, 018h  ; #198\r
+  DB   036h, 036h, 036h, 036h, 037h, 036h, 036h, 036h  ; #199\r
+  DB   036h, 036h, 037h, 030h, 03Fh, 000h, 000h, 000h  ; #200\r
+  DB   000h, 000h, 03Fh, 030h, 037h, 036h, 036h, 036h  ; #201\r
+  DB   036h, 036h, 0F7h, 000h, 0FFh, 000h, 000h, 000h  ; #202\r
+  DB   000h, 000h, 0FFh, 000h, 0F7h, 036h, 036h, 036h  ; #203\r
+  DB   036h, 036h, 037h, 030h, 037h, 036h, 036h, 036h  ; #204\r
+  DB   000h, 000h, 0FFh, 000h, 0FFh, 000h, 000h, 000h  ; #205\r
+  DB   036h, 036h, 0F7h, 000h, 0F7h, 036h, 036h, 036h  ; #206\r
+  DB   018h, 018h, 0FFh, 000h, 0FFh, 000h, 000h, 000h  ; #207\r
+  DB   036h, 036h, 036h, 036h, 0FFh, 000h, 000h, 000h  ; #208\r
+  DB   000h, 000h, 0FFh, 000h, 0FFh, 018h, 018h, 018h  ; #209\r
+  DB   000h, 000h, 000h, 000h, 0FFh, 036h, 036h, 036h  ; #210\r
+  DB   036h, 036h, 036h, 036h, 03Fh, 000h, 000h, 000h  ; #211\r
+  DB   018h, 018h, 01Fh, 018h, 01Fh, 000h, 000h, 000h  ; #212\r
+  DB   000h, 000h, 01Fh, 018h, 01Fh, 018h, 018h, 018h  ; #213\r
+  DB   000h, 000h, 000h, 000h, 03Fh, 036h, 036h, 036h  ; #214\r
+  DB   036h, 036h, 036h, 036h, 0FFh, 036h, 036h, 036h  ; #215\r
+  DB   018h, 018h, 0FFh, 018h, 0FFh, 018h, 018h, 018h  ; #216\r
+  DB   018h, 018h, 018h, 018h, 0F8h, 000h, 000h, 000h  ; #217\r
+  DB   000h, 000h, 000h, 000h, 01Fh, 018h, 018h, 018h  ; #218\r
+  DB   0FFh, 0FFh, 0FFh, 0FFh, 0FFh, 0FFh, 0FFh, 0FFh  ; #219\r
+  DB   000h, 000h, 000h, 000h, 0FFh, 0FFh, 0FFh, 0FFh  ; #220\r
+  DB   0F0h, 0F0h, 0F0h, 0F0h, 0F0h, 0F0h, 0F0h, 0F0h  ; #221\r
+  DB   00Fh, 00Fh, 00Fh, 00Fh, 00Fh, 00Fh, 00Fh, 00Fh  ; #222\r
+  DB   0FFh, 0FFh, 0FFh, 0FFh, 000h, 000h, 000h, 000h  ; #223\r
+  DB   000h, 000h, 062h, 094h, 088h, 094h, 062h, 000h  ; #224\r
+  DB   000h, 0F0h, 088h, 0F0h, 088h, 088h, 0F0h, 080h  ; #225\r
+  DB   000h, 0F8h, 088h, 080h, 080h, 080h, 080h, 000h  ; #226\r
+  DB   000h, 0FCh, 048h, 048h, 048h, 048h, 048h, 000h  ; #227\r
+  DB   0FCh, 084h, 040h, 020h, 040h, 084h, 0FCh, 000h  ; #228\r
+  DB   03Ch, 040h, 038h, 044h, 044h, 044h, 038h, 000h  ; #229\r
+  DB   000h, 000h, 044h, 044h, 044h, 078h, 040h, 040h  ; #230\r
+  DB   000h, 036h, 048h, 008h, 008h, 008h, 008h, 000h  ; #231\r
+  DB   038h, 010h, 038h, 044h, 044h, 038h, 010h, 038h  ; #232\r
+  DB   078h, 084h, 084h, 0FCh, 084h, 084h, 078h, 000h  ; #233\r
+  DB   078h, 084h, 084h, 084h, 048h, 048h, 0CCh, 000h  ; #234\r
+  DB   078h, 004h, 038h, 044h, 044h, 044h, 038h, 000h  ; #235\r
+  DB   000h, 000h, 06Ch, 092h, 092h, 06Ch, 000h, 000h  ; #236\r
+  DB   000h, 000h, 03Ah, 044h, 05Ah, 022h, 05Ch, 000h  ; #237\r
+  DB   018h, 020h, 040h, 078h, 040h, 020h, 018h, 000h  ; #238\r
+  DB   078h, 084h, 084h, 084h, 084h, 084h, 084h, 000h  ; #239\r
+  DB   000h, 0FCh, 000h, 0FCh, 000h, 0FCh, 000h, 000h  ; #240\r
+  DB   020h, 020h, 0F8h, 020h, 020h, 000h, 0F8h, 000h  ; #241\r
+  DB   020h, 010h, 008h, 010h, 020h, 000h, 07Ch, 000h  ; #242\r
+  DB   008h, 010h, 020h, 010h, 008h, 000h, 07Ch, 000h  ; #243\r
+  DB   00Ch, 012h, 010h, 010h, 010h, 010h, 010h, 010h  ; #244\r
+  DB   010h, 010h, 010h, 010h, 010h, 010h, 090h, 060h  ; #245\r
+  DB   000h, 010h, 000h, 07Ch, 000h, 010h, 000h, 000h  ; #246\r
+  DB   000h, 032h, 04Ch, 000h, 032h, 04Ch, 000h, 000h  ; #247\r
+  DB   038h, 044h, 044h, 038h, 000h, 000h, 000h, 000h  ; #248\r
+  DB   000h, 000h, 000h, 018h, 018h, 000h, 000h, 000h  ; #249\r
+  DB   000h, 000h, 000h, 000h, 018h, 000h, 000h, 000h  ; #250\r
+  DB   00Eh, 008h, 008h, 008h, 048h, 028h, 018h, 008h  ; #251\r
+  DB   038h, 024h, 024h, 024h, 024h, 000h, 000h, 000h  ; #252\r
+  DB   03Ch, 004h, 03Ch, 020h, 03Ch, 000h, 000h, 000h  ; #253\r
+  DB   000h, 000h, 03Ch, 03Ch, 03Ch, 03Ch, 000h, 000h  ; #254\r
+  DB   000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h  ; #255\r

diff --git a/16/lib/x/MAKE b/16/lib/x/MAKE
new file mode 100644 (file)
index 0000000..1c2c6ba
--- /dev/null
+++ b/16/lib/x/MAKE
@@ -0,0 +1,83 @@
+#\r
+# MODEX library makefile (for Borland MAKE)\r
+# Copyright (c) 1993,1994 by Alessandro Scotti\r
+#\r
+LIBINCS = MODEX.DEF\r
+\r
+LIBOBJS = MXBB.OBJ \r
+          MXCC.OBJ \r
+          MXCG.OBJ \r
+          MXCL.OBJ \r
+          MXCR.OBJ \r
+          MXFB.OBJ \r
+          MXFP.OBJ \r
+          MXGC.OBJ \r
+          MXGI.OBJ \r
+          MXGM.OBJ \r
+          MXGP.OBJ \r
+          MXGV.OBJ \r
+          MXHL.OBJ \r
+          MXIT.OBJ \r
+          MXLL.OBJ \r
+          MXLN.OBJ \r
+          MXOT.OBJ \r
+          MXPB.OBJ \r
+          MXPF.OBJ \r
+          MXPG.OBJ \r
+          MXPI.OBJ \r
+          MXPN.OBJ \r
+          MXPP.OBJ \r
+             MXPT.OBJ \r
+          MXRA.OBJ \r
+          MXRP.OBJ \r
+          MXSA.OBJ \r
+          MXSC.OBJ \r
+          MXSI.OBJ \r
+          MXSL.OBJ \r
+          MXSM.OBJ \r
+          MXSP.OBJ \r
+          MXSS.OBJ \r
+          MXTL.OBJ \r
+          MXVS.OBJ \r
+          MXWD.OBJ \r
+          MXWM.OBJ \r
+          MXWP.OBJ \r
+          MXWR.OBJ\r
+\r
+#\r
+# ASM compiler\r
+#\r
+ASMC = JWASMR\r
+ASMO = -Zm -0\r
+\r
+#\r
+# PAS compiler\r
+#\r
+#PASC = bpc\r
+#PASO = /m -$D- -$L- -$S-\r
+\r
+#\r
+# LIB maker, uses response file\r
+#\r
+#LIBC = JWlibd\r
+LIBC = tlib\r
+\r
+.asm.obj:\r
+        $(ASMC) $(ASMO) $<\r
+\r
+target: modex.lib\r
+#modex.tpu modex.tpp \r
+\r
+#modex.tpu: $(LIBOBJS) modex.pas\r
+#        $(PASC) $(PASO) modex\r
+#        copy modex.tpu ..\r
+#        copy modex.pas ..\r
+\r
+#modex.tpp: $(LIBOBJS) modex.pas\r
+#        $(PASC) /cp $(PASO) modex\r
+#        copy modex.tpp ..\r
+\r
+modex.lib: modex.lib $(LIBOBJS)\r
+        $(LIBC) modex.lib @modex.lbr\r
+\r
+$(LIBOBJS):   modex.def\r

diff --git a/16/lib/x/MAKEFILE b/16/lib/x/MAKEFILE
index cdfef95..19175b7 100644 (file)
--- a/16/lib/x/MAKEFILE
+++ b/16/lib/x/MAKEFILE
@@ -4,44 +4,44 @@
 #\r
 LIBINCS = MODEX.DEF\r
 \r
-LIBOBJS = MXBB.OBJ \r
-          MXCC.OBJ \r
-          MXCG.OBJ \r
-          MXCL.OBJ \r
-          MXCR.OBJ \r
-          MXFB.OBJ \r
-          MXFP.OBJ \r
-          MXGC.OBJ \r
-          MXGI.OBJ \r
-          MXGM.OBJ \r
-          MXGP.OBJ \r
-          MXGV.OBJ \r
-          MXHL.OBJ \r
-          MXIT.OBJ \r
-          MXLL.OBJ \r
-          MXLN.OBJ \r
-          MXOT.OBJ \r
-          MXPB.OBJ \r
-          MXPF.OBJ \r
-          MXPG.OBJ \r
-          MXPI.OBJ \r
-          MXPN.OBJ \r
-          MXPP.OBJ \r
-             MXPT.OBJ \r
-          MXRA.OBJ \r
-          MXRP.OBJ \r
-          MXSA.OBJ \r
-          MXSC.OBJ \r
-          MXSI.OBJ 
-          MXSL.OBJ \r
-          MXSM.OBJ \r
-          MXSP.OBJ \r
-          MXSS.OBJ \r
-          MXTL.OBJ \r
-          MXVS.OBJ \r
-          MXWD.OBJ \r
-          MXWM.OBJ \r
-          MXWP.OBJ \r
+LIBOBJS = MXBB.OBJ \\r
+          MXCC.OBJ \\r
+          MXCG.OBJ \\r
+          MXCL.OBJ \\r
+          MXCR.OBJ \\r
+          MXFB.OBJ \\r
+          MXFP.OBJ \\r
+          MXGC.OBJ \\r
+          MXGI.OBJ \\r
+          MXGM.OBJ \\r
+          MXGP.OBJ \\r
+          MXGV.OBJ \\r
+          MXHL.OBJ \\r
+          MXIT.OBJ \\r
+          MXLL.OBJ \\r
+          MXLN.OBJ \\r
+          MXOT.OBJ \\r
+          MXPB.OBJ \\r
+          MXPF.OBJ \\r
+          MXPG.OBJ \\r
+          MXPI.OBJ \\r
+          MXPN.OBJ \\r
+          MXPP.OBJ \\r
+         MXPT.OBJ \\r
+          MXRA.OBJ \\r
+          MXRP.OBJ \\r
+          MXSA.OBJ \\r
+          MXSC.OBJ \\r
+          MXSI.OBJ \\r
+          MXSL.OBJ \\r
+          MXSM.OBJ \\r
+          MXSP.OBJ \\r
+          MXSS.OBJ \\r
+          MXTL.OBJ \\r
+          MXVS.OBJ \\r
+          MXWD.OBJ \\r
+          MXWM.OBJ \\r
+          MXWP.OBJ \\r
           MXWR.OBJ\r
 \r
 #\r
@@ -59,13 +59,13 @@ ASMO = -Zm -0
 #\r
 # LIB maker, uses response file\r
 #\r
-LIBC = JWlibd\r
+LIBC = tlib\r
 \r
 .asm.obj:\r
         $(ASMC) $(ASMO) $<\r
 \r
 target: modex.lib\r
-#modex.tpu modex.tpp \r
+# modex.tpu modex.tpp\r
 \r
 #modex.tpu: $(LIBOBJS) modex.pas\r
 #        $(PASC) $(PASO) modex\r
@@ -76,7 +76,7 @@ target: modex.lib
 #        $(PASC) /cp $(PASO) modex\r
 #        copy modex.tpp ..\r
 \r
-modex.lib: modex.lib $(LIBOBJS)\r
+modex.lib: modex.lbr $(LIBOBJS)\r
         $(LIBC) modex.lib @modex.lbr\r
 \r
 $(LIBOBJS):   modex.def\r

diff --git a/16/lib/x/MODEX.LBR b/16/lib/x/MODEX.LBR
new file mode 100644 (file)
index 0000000..93fc780
--- /dev/null
+++ b/16/lib/x/MODEX.LBR
@@ -0,0 +1,39 @@
++-MXBB.OBJ &\r
++-MXCC.OBJ &\r
++-MXCG.OBJ &\r
++-MXCL.OBJ &\r
++-MXCR.OBJ &\r
++-MXFB.OBJ &\r
++-MXFP.OBJ &\r
++-MXGC.OBJ &\r
++-MXGI.OBJ &\r
++-MXGM.OBJ &\r
++-MXGP.OBJ &\r
++-MXGV.OBJ &\r
++-MXHL.OBJ &\r
++-MXIT.OBJ &\r
++-MXLL.OBJ &\r
++-MXLN.OBJ &\r
++-MXOT.OBJ &\r
++-MXPB.OBJ &\r
++-MXPF.OBJ &\r
++-MXPG.OBJ &\r
++-MXPI.OBJ &\r
++-MXPN.OBJ &\r
++-MXPP.OBJ &\r
++-MXPT.OBJ &\r
++-MXRA.OBJ &\r
++-MXRP.OBJ &\r
++-MXSA.OBJ &\r
++-MXSC.OBJ &\r
++-MXSI.OBJ &\r
++-MXSL.OBJ &\r
++-MXSM.OBJ &\r
++-MXSP.OBJ &\r
++-MXSS.OBJ &\r
++-MXTL.OBJ &\r
++-MXVS.OBJ &\r
++-MXWD.OBJ &\r
++-MXWM.OBJ &\r
++-MXWP.OBJ &\r
++-MXWR.OBJ\r

diff --git a/16/lib/x/MODEX.PAS b/16/lib/x/MODEX.PAS
new file mode 100644 (file)
index 0000000..7d9d26e
--- /dev/null
+++ b/16/lib/x/MODEX.PAS
@@ -0,0 +1,194 @@
+(*\r
+   Turbo Pascal interface to the MODEX library\r
+   Copyright (c) 1993,1994 by Alessandro Scotti\r
+*)\r
+unit ModeX;\r
+interface\r
+\r
+const\r
+  (* Video modes *)\r
+  MX_TEXT       = 0;\r
+  MX_320x175    = 1;\r
+  MX_320x200    = 2;\r
+  MX_320x240    = 3;\r
+  MX_320x350    = 4;\r
+  MX_320x400    = 5;\r
+  MX_320x480    = 6;\r
+  MX_360x175    = 7;\r
+  MX_360x200    = 8;\r
+  MX_360x240    = 9;\r
+  MX_360x350    = 10;\r
+  MX_360x400    = 11;\r
+  MX_360x480    = 12;\r
+  MX_400x600    = 13;\r
+\r
+  (* Fade effects *)\r
+  MX_FADEIN     = 0;\r
+  MX_FADEOUT    = 1;\r
+\r
+  (* Raster ops *)\r
+  OP_SET        = 0;\r
+  OP_AND        = 1;\r
+  OP_OR         = 2;\r
+  OP_XOR        = 3;\r
+  OP_TRANS      = 4;\r
+  OP_ADD        = 5;\r
+  OP_MOVE       = 0;                    (* Alias for OP_SET *)\r
+\r
+procedure mxBitBlt( SX, SY: integer; Width, Height: word; DX, DY: integer );\r
+procedure mxCircle( CX, CY: integer; Radius: word; Color: byte );\r
+procedure mxChangeMode( Mode: word );\r
+procedure mxColorToGray( ColorPalette, GrayPalette: pointer; Count: word );\r
+procedure mxFadePalette( Palette: pointer; Cmd, Start, Count, R, G, B: word );\r
+procedure mxFillBox( X, Y: integer; Width, Height: word; Color: byte; Op: word );\r
+procedure mxGammaCorrect( ColorPalette, GammaPalette: pointer; Count: word );\r
+procedure mxGetAspect( var AspectX, AspectY: word );\r
+function  mxGetClipRegion( var X1, Y1, Width, Height: word ): boolean;\r
+function  mxGetClip: boolean;\r
+procedure mxGetImage( Image: pointer; X, Y: integer; Width, Height: word );\r
+procedure mxGetPalette( Palette: pointer; Start, Count: word );\r
+function  mxGetPixel( X, Y: word ): byte;\r
+procedure mxGetScreenSize( var Width, Height: word );\r
+procedure mxGetTextStep( var DeltaX, DeltaY: integer );\r
+function  mxGetVersion: word;\r
+procedure mxGetVirtualScreen( var Width, Height: word );\r
+procedure mxInit;\r
+procedure mxLine( X1, Y1, X2, Y2: integer; Color, Op: word );\r
+procedure mxOutChar( X, Y: integer; C: char );\r
+procedure mxOutText( X, Y: integer; S: pointer );\r
+procedure mxPan( X, Y: word );\r
+procedure mxPutImage( Image: pointer; X, Y: integer; Width, Height, Op: word );\r
+procedure mxPutPixel( X, Y: word; C: byte );\r
+procedure mxPutTile( Tile: pointer; X, Y: integer; Width, Height: word );\r
+procedure mxReadPlane( Plane: byte );\r
+procedure mxRotatePalette( Palette: pointer; Count: word; Step: integer );\r
+procedure mxRowAddress( RowAddress: byte );\r
+function  mxSetClip( Clip: boolean ): boolean;\r
+procedure mxSetClipRegion( X1, Y1, Width, Height: word );\r
+procedure mxSetColor( Index, R, G, B: word );\r
+procedure mxSetFont( Font: pointer; Width, Height: word );\r
+procedure mxSetMode( Mode: word );\r
+procedure mxSetPalette( Palette: pointer; Start, Count: word );\r
+procedure mxSetTextColor( Color, Op: word );\r
+procedure mxSetTextStep( DeltaX, DeltaY: integer );\r
+procedure mxSetVirtualScreen( Width, Height: word );\r
+procedure mxStretchImage( Image: pointer; X, Y: integer; Width, Height, NewWidth, NewHeight, Op: word );\r
+procedure mxSplitScreen( Line: word );\r
+procedure mxStartAddress( StartAddress: word );\r
+procedure mxStartLine( Line: word );\r
+procedure mxTerm;\r
+procedure mxTransPutTile( Tile: pointer; X, Y: integer; Width, Height: word );\r
+procedure mxWaitDisplay;\r
+procedure mxWaitRetrace;\r
+procedure mxWriteMode( Mode: byte );\r
+procedure mxWritePlane( Plane: byte );\r
+\r
+procedure mxFillPoly( Count: word; var Map, Points; Color: word );\r
+procedure mxGouraudPoly( Count: word; var Map, Points, Colors; BaseColor: word );\r
+procedure mxTexturePoly( Count: word; var Map, Points, ImgPoints, Texture; Width: word );\r
+\r
+procedure mxOutStr( X, Y: integer; S: string );\r
+\r
+implementation\r
+\r
+procedure mxBitBlt;                                             external;\r
+procedure mxChangeMode( Mode: word );                           external;\r
+procedure mxCircle;                                             external;\r
+procedure mxColorToGray;                                        external;\r
+procedure mxFadePalette;                                        external;\r
+procedure mxFillBox;                                            external;\r
+procedure mxGammaCorrect;                                       external;\r
+procedure mxGetAspect( var AspectX, AspectY: word );            external;\r
+function  mxGetClipRegion;                                      external;\r
+function  mxGetClip: boolean;                                   external;\r
+procedure mxGetImage;                                           external;\r
+procedure mxGetPalette( Palette: pointer; Start, Count: word ); external;\r
+function  mxGetPixel( X, Y: word ): byte;                       external;\r
+procedure mxGetScreenSize( var Width, Height: word );           external;\r
+procedure mxGetTextStep( var DeltaX, DeltaY: integer );         external;\r
+function  mxGetVersion: word;                                   external;\r
+procedure mxGetVirtualScreen( var Width, Height: word );        external;\r
+procedure mxInit;                                               external;\r
+procedure mxLine( X1, Y1, X2, Y2: integer; Color, Op: word );   external;\r
+procedure mxOutChar( X, Y: integer; C: char );                  external;\r
+procedure mxOutText( X, Y: integer; S: pointer );               external;\r
+procedure mxPan( X, Y: word );                                  external;\r
+procedure mxPutImage;                                           external;\r
+procedure mxPutPixel( X, Y: word; C: byte );                    external;\r
+procedure mxPutTile;                                            external;\r
+procedure mxReadPlane( Plane: byte );                           external;\r
+procedure mxRotatePalette;                                      external;\r
+procedure mxRowAddress( RowAddress: byte );                     external;\r
+function  mxSetClip( Clip: boolean ): boolean;                  external;\r
+procedure mxSetClipRegion( X1, Y1, Width, Height: word );       external;\r
+procedure mxSetColor( Index, R, G, B: word );                   external;\r
+procedure mxSetFont( Font: pointer; Width, Height: word );      external;\r
+procedure mxSetMode( Mode: word );                              external;\r
+procedure mxSetPalette( Palette: pointer; Start, Count: word ); external;\r
+procedure mxSetTextColor( Color, Op: word );                    external;\r
+procedure mxSetTextStep( DeltaX, DeltaY: integer );             external;\r
+procedure mxSetVirtualScreen( Width, Height: word );            external;\r
+procedure mxSplitScreen( Line: word );                          external;\r
+procedure mxStartAddress( StartAddress: word );                 external;\r
+procedure mxStartLine;                                          external;\r
+procedure mxStretchImage;                                       external;\r
+procedure mxTerm;                                               external;\r
+procedure mxTransPutTile;                                       external;\r
+procedure mxWaitDisplay;                                        external;\r
+procedure mxWaitRetrace;                                        external;\r
+procedure mxWriteMode( Mode: byte );                            external;\r
+procedure mxWritePlane( Plane: byte );                          external;\r
+\r
+procedure mxFillPoly;                                           external;\r
+procedure mxGouraudPoly;                                        external;\r
+procedure mxTexturePoly;                                        external;\r
+{$L MXPB}\r
+{$L MXPF}\r
+{$L MXPG}\r
+{$L MXPT}\r
+\r
+{$L MXBB}\r
+{$L MXCC}\r
+{$L MXCG}\r
+{$L MXCL}\r
+{$L MXCR}\r
+{$L MXFB}\r
+{$L MXFP}\r
+{$L MXGI}\r
+{$L MXGM}\r
+{$L MXGP}\r
+{$L MXGV}\r
+{$L MXHL}\r
+{$L MXIT}\r
+{$L MXLN}\r
+{$L MXOT}\r
+{$L MXPI}\r
+{$L MXPN}\r
+{$L MXPP}\r
+{$L MXRA}\r
+{$L MXRP}\r
+{$L MXSA}\r
+{$L MXSC}\r
+{$L MXSI}\r
+{$L MXSL}\r
+{$L MXSM}\r
+{$L MXSP}\r
+{$L MXSS}\r
+{$L MXTL}\r
+{$L MXVS}\r
+{$L MXWD}\r
+{$L MXWM}\r
+{$L MXWP}\r
+{$L MXWR}\r
+\r
+(*\r
+   Prints a Turbo Pascal string.\r
+   Note: BP 7.0 supports ASCIIZ strings (PChar type).\r
+*)\r
+procedure mxOutStr;\r
+begin\r
+  S := S + #0;\r
+  mxOutText( X, Y, @S[1] );\r
+end;\r
+\r
+end.\r

diff --git a/16/lib/x/modex.lib b/16/lib/x/modex.lib
new file mode 100644 (file)
index 0000000..0069d2e
Binary files /dev/null and b/16/lib/x/modex.lib differ

diff --git a/16/lib/x/readme.txt b/16/lib/x/readme.txt
new file mode 100644 (file)
index 0000000..306e8b9
--- /dev/null
+++ b/16/lib/x/readme.txt
@@ -0,0 +1,8 @@
+ModeX - A graphical library for DOS programs\r
+Copyright (c) 1993-1994 Alessandro Scotti\r
+http://www.ascotti.org/\r
+\r
+Please look at the above site in the "Art of..." and\r
+then in the "Old programs" section for more information.\r
+\r
+\r

diff --git a/16/x.bat b/16/x.bat
index 083e789..f764133 100644 (file)
--- a/16/x.bat
+++ b/16/x.bat
@@ -1,3 +1,3 @@
-wpp /d1 /0 /ml dos_gfx
-wlink file dos_gfx,lib\x\*.obj name dos_gfx
+wpp /d1 /0 /ml dos_gfx lib\x\modex.lib\r
+wlink file dos_gfx,lib\x\*.obj name dos_gfx\r
 copy /y dos_gfx.exe c:\z\bakapi.exe\r