/* BATCH.C (C) Copyright Bill Buckels 1990-2008. All rights reserved. */

/* demo for embedded .BSV files in aztec C */
/* compiles in CP/M 86 and MS-DOS */
/* these files can be created in the THEDRAW or in GWBASIC, etc.   */
/* arrays are encoded using my utility bsaveinc */

unsigned char BATCH000[]={
255, 32,255, 32,242, 32,193,218,231,196,193,194,197,196,191,225, 32,
179,198, 32,199,220,195, 32,199,220,195, 32,199,220,198, 32,179,197, 32,
179,225, 32,179,199, 32,194,220,195, 32,194,220,195, 32,194,220,195, 32,
194,220,195, 32,194,220,195, 32,194,220,197, 32,179, 32,194, 66, 80,
 32,179,225, 32,179,199, 32,198,220,196, 32,198,220,196, 32,198,220,
198, 32,179, 32,195,219, 32,179,225, 32,179,199, 32,194,220,195, 32,
194,220,195, 32,194,220,195, 32,194,220,195, 32,194,220,202, 32,179,
197, 32,179,225, 32,179,198, 32,199,220,195, 32,199,220,196, 32,194,220,
202, 32,179,197, 32,179,225, 32,179,231, 32,179,194, 32,193,249,194, 32,
179,225, 32,179,198, 32, 66,105,194,108, 32, 66,117, 99,107,101,108,
115, 32, 80,114,111,100,117, 99,116,105,111,110,115, 32, 49, 57,194, 56,
196, 32,179,194, 32,111,194, 32,179,225, 32,179,194, 32, 40, 67, 41,
 32, 67,111,112,121, 76,101,102,116, 32, 66,105,194,108, 32, 66,117,
 99,107,101,108,115, 32, 49, 57,194, 56, 45, 50,194, 48, 54,194, 32,
179,197, 32,179,225, 32,179,198, 32, 65,194,108, 32, 82,105,103,104,
116,115, 32, 82,101,118,101,114,115,101,100, 46,205, 32,179,194, 32,
111,194, 32,179,225, 32,179,231, 32,179,197, 32,179,225, 32,179,231, 32,
179,194, 32,111,194, 32,179,225, 32,193,192,231,196,193,193,197,196,
193,217,234, 32,193,219,219, 32,193,219,231, 32,193,218,244,196,191,
218, 32,179,194, 32,193,218,195,196,191,202, 32,193,218,207,196,191,
193,218,207,196,191, 32,179,218, 32,179,194, 32,179,194, 66, 80,179,
202, 32,179,195, 32,196,196, 18,196,196, 32,193,254, 32,194,179,207, 32,
179, 32,179,218, 32,179,194, 32,193,192,195,196,193,217,202, 32,193,195,
207,196,180,179,203, 32,193,254, 32,193,254, 32,179, 32,179,218, 32,
179, 32,206,186,194, 32,179,195, 32,196,196, 18,196,196, 32,193,254,
 32,194,179,207, 32,179, 32,179,218, 32,179, 32,206,186,194, 32,193,192,
207,196,193,217,193,192,207,196,193,217, 32,179,218, 32,193,192,244,196,
193,217,255, 32,222, 32, 80,114,101,194,115, 32, 65,110,121, 32, 75,
101,121, 32,116,111, 32, 99,111,110,116,105,110,117,101,195, 46,206, 32,
 80,114,101,194,115, 32, 91, 65, 76, 84, 93, 43, 91, 69,110,116,101,
114, 93,193,255,102,111,114,193,255, 70,117,194,108, 32, 83, 99,114,
194,101,110,195, 46,208,  7,240,  9,224,  7,240,  9,224,  7,239, 96,
  6,224,  7, 96,197,  7,222,  9,196,  7,199, 96,225,  7, 96,197,  7,
222,  9,196,  3,199, 96,225,  7, 96,197,  7,222,  9,196,  7,199, 96,
225,  7, 96,197,  7,222,  9,196,  7,199, 96,225,  7, 96,197,  7,222,  9,
196,  7,199, 96,225,  7, 96,197,  7,222,  9,196,  7,199, 96,225,  7,
 96,197,  7,226, 14,199, 96,208,  7, 14,208,  7, 96,194,  7,227, 14,
194,  7,199, 96,225,  7, 96,198,  7,212, 14,205,  7,199, 96,225,  7,
 96,231,  7,199, 96,225,  7, 96,231,  7,199, 96,225,  7,239, 96,232,  7,
225,  9,229,  7,246, 96,218,  7,195, 96,197,  9,202, 96,226,  9,194, 96,
218,  7,195, 96,197,  9,202, 96,226,  9,194, 96,218,  7,195, 96,197,  9,
202, 96,226,  9,194, 96,218,  7,194, 96,206,  9,194, 96,226,  9,194, 96,
218,  7,194, 96,206,  9,194, 96,226,  9,194, 96,218,  7,246, 96,255,  7,
222,  7,255, 31,209, 31,
0}; /* terminator */

unsigned char BATCH001[]={
194, 32,193,201,255,205,202,205,187,197, 32,186,203, 32,204,220,197, 32,
204,220,197, 32,204,220,208, 32,186,197, 32,186,203, 32,206,220,195, 32,
206,220,195, 32,206,220,206, 32,186,197, 32,186,205, 32,196,220,196, 32,
196,220,197, 32,196,220,196, 32,196,220,197, 32,196,220,196, 32,196,220,
206, 32,186,197, 32,186,205, 32,203,220,198, 32,203,220,198, 32,203,220,
207, 32,186,197, 32,186,205, 32,203,220,198, 32,203,220,198, 32,202,220,
208, 32,186,197, 32,186,205, 32,196,220,196, 32,196,220,197, 32,196,220,
196, 32,196,220,197, 32,196,220,214, 32,186,197, 32,186,203, 32,206,220,
195, 32,206,220,195, 32,200,220,212, 32,186,197, 32,186,203, 32,204,220,
197, 32,204,220,197, 32,200,220,212, 32,186,197, 32,193,204,255,205,
202,205,185,197, 32,186,207, 32, 66,105,194,108, 32, 66,117, 99,107,
101,108,115, 32, 80,114,111,100,117, 99,116,105,111,110,115, 32, 49,
 57,194, 56, 32,112,114,101,115,101,110,116,115,212, 32,186,197, 32,
186,207, 32, 79, 98,115,101,114,118, 97,116,105,111,110,115, 32,111,
110, 32, 80, 67, 68, 79, 83, 32, 66, 97,116, 99,104, 32, 80,114,111,
 99,101,194,115,105,110,103,212, 32,186,197, 32,186,212, 32, 79,110,
 32,116,104,101, 32, 73, 66, 77, 32, 80, 67, 32, 97,110,100, 32, 67,
111,109,112, 97,116,105, 98,108,101,115,216, 32,186,197, 32,193,204,
255,205,202,205,185,197, 32,186,204, 32,200,220,194, 32,204,220,196, 32,
199,220,199, 32,199,220,206, 32,186,197, 32,186,204, 32,200,220,194, 32,
206,220,194, 32,200,220,197, 32,200,220,206, 32,186,197, 32,186,206, 32,
196,220,198, 32,196,220,196, 32,196,220,196, 32,199,220,195, 32,199,220,
208, 32,186,197, 32,186,206, 32,196,220,198, 32,203,220,197, 32,200,220,
 32,200,220,208, 32,186,197, 32,186,206, 32,196,220,198, 32,203,220,
197, 32,196,220, 32,199,220, 32,196,220,208, 32,186,197, 32,186,206, 32,
196,220,198, 32,196,220,196, 32,196,220,196, 32,196,220,194, 32,197,220,
194, 32,196,220,208, 32,186,197, 32,186,204, 32,200,220,194, 32,206,220,
194, 32,198,220,195, 32,195,220,195, 32,198,220,206, 32,186,197, 32,
186,204, 32,200,220,194, 32,204,220,196, 32,198,220,196, 32,193,220,
196, 32,198,220,206, 32,186,197, 32,193,200,255,205,202,205,188,255, 32,
212, 32,193,255, 49, 45, 51,193,255,112, 97,103,101,193,255,100,105,
114,101, 99,116,209,255, 83,112, 97, 99,101, 98, 97,114, 47, 69,110,
116,101,114, 32,110,101,120,116,206, 32,197,255, 69,115, 99,193,255,
101,120,105,116,193,255,194,  9,255,  4,204,  4,197,  9,  4,202,  7,
242,  9,205,  7,  4,197,  9,  4,202,  7,242,  9,205,  7,  4,197,  9,
  4,202,  7,242,  9,205,  7,  4,197,  9,  4,202,  7,242,  9,205,  7,
  4,197,  9,  4,202,  7,242,  9,205,  7,  4,197,  9,  4,202,  7,242,  9,
205,  7,  4,197,  9,  4,202,  7,242,  9,205,  7,  4,197,  9,  4,202,  7,
242,  9,205,  7,  4,197,  9,255,  4,204,  4,197,  9,  4,205, 71,236, 79,
208, 71,  4,197,  9,  4,205, 71,236, 79,208, 71,  4,197,  9,  4,205, 71,
236, 79,208, 71,  4,197,  9,255,  4,204,  4,197,  9,  4,203,  7,241,  9,
205,  7,  4,197,  9,  4,203,  7,241,  9,205,  7,  4,197,  9,  4,203,  7,
241,  9,205,  7,  4,197,  9,  4,203,  7,241,  9,205,  7,  4,197,  9,
  4,203,  7,241,  9,205,  7,  4,197,  9,  4,203,  7,244,  9,202,  7,
  4,197,  9,  4,203,  7,244,  9,202,  7,  4,197,  9,  4,203,  7,244,  9,
202,  7,  4,197,  9,255,  4,204,  4,195,  9,255,  7,204,  7,197,  9,
255, 31,209, 31,
0}; /* terminator */


unsigned char BATCH002[]={
194,255, 32,193,201,255,205,202,205,187,196,255, 32,186,255, 32,202, 32,
186,196,255, 32,186,195, 32, 84,104,101, 32, 73, 66, 77, 32, 80, 67,
 32,111,112,101,114, 97,116,105,110,103, 32,115,121,115,116,101,109,
 32, 40, 68, 79, 83, 41, 32,105,115, 32,116,104,101, 32,109,111,115,
116, 32,101,194,102,105, 99,105,101,110,116, 32,119, 97,121, 32,102,
111,114,199, 32,186,196,255, 32,186,195, 32,116,104,101, 32, 97,118,
101,114, 97,103,101, 32,117,115,101,114, 32,116,111, 32,105,194,115,
117,101, 32,105,110,115,116,114,117, 99,116,105,111,110,115, 32,116,
111, 32,116,104,101, 32,112,114,111, 99,101,194,115,111,114, 44, 32,
 98,117,116, 32,105,116, 32,105,115,196, 32,186,196,255, 32,186,195, 32,
 97,108,115,111, 32,116,104,101, 32,109,111,115,116, 32,111,118,101,
114,108,194,111,107,101,100, 32,119,104,101,110, 32,105,116, 32, 99,
111,109,101,115, 32,116,105,109,101, 32,102,111,114, 32,109,111,115,
116, 32,111,102, 32,117,115, 32,116,111,201, 32,186,196,255, 32,186,
195, 32, 99,111,110,115,105,100,101,114, 32,119, 97,121,115, 32, 97,
110,100, 32,109,101, 97,110,115, 32,116,111, 32,112,114,111, 99,101,
194,115, 32,111,117,114, 32,118, 97,114,105,111,117,115, 32, 99,111,
109,112,117,116,105,110,103, 32,116, 97,115,107,115, 46,199, 32,186,
196,255, 32,186,255, 32,202, 32,186,196,255, 32,186,195, 32, 65,194,108,
 32,116,194,111, 32,111,102,116,101,110, 32,119,101, 32,111,112,116,
 32,102,111,114, 32, 97, 32,109,101,109,111,114,121, 32,104,111,103,
 32,111,102, 32, 97, 32,102, 97,109,105,108,105, 97,114, 32, 97,194,112,
108,105, 99, 97,116,105,111,110,115,198, 32,186,196,255, 32,186,195, 32,
112,114,111,103,114, 97,109, 32,111,114, 32, 97, 32,114,111,117,116,
105,110,101, 32,115,101,118,101,114, 97,108, 32,108, 97,121,101,114,
115, 32,116,104,105, 99,107, 32,105,110, 32, 66, 65, 83, 73, 67, 39,
115, 32, 34, 98,111,103, 32, 97,110,100, 32,109,105,114,101, 34,195, 32,
186,196,255, 32,186,195, 32,116,111, 32,105,194,115,117,101, 32,111,
110,101, 32,111,114, 32,116,119,111, 32,108,105,194,116,108,101, 32,
105,110,115,116,114,117, 99,116,105,111,110,115, 32,116,104, 97,116,
 32, 97,114,101, 32,112,114,111, 98, 97, 98,108,121, 32, 97,118, 97,
105,108, 97, 98,108,101,195, 32,186,196,255, 32,186,195, 32,105,110,
 32, 97, 32,116,105,110,121, 32, 46, 67,111,109, 32,112,114,111,103,
114, 97,109, 32,116,104, 97,116, 32, 99, 97,109,101, 32,119,105,116,
104, 32,116,104, 97,116, 32, 99,111,110,102,117,115,105,110,103, 32,
112,105,108,101, 32,111,102, 32,115,116,117,194,102,196, 32,186,196,255,
 32,186,195, 32,111,110, 32,111,117,114, 32, 68,111,115, 32, 68,105,
115,107, 46, 32, 40, 73,102, 32,119,101, 32,104, 97,100, 32,116, 97,
107,101,110, 32,116,104,101, 32,116,105,109,101, 32,116,111, 32,119,
 97,100,101, 32,116,104,114,111,117,103,104, 32,116,104,101,200, 32,
186,196,255, 32,186,195, 32,109,111,117,110,100,115, 32,111,102, 32,
100,111, 99,117,109,101,110,116, 97,116,105,111,110, 32,119,101, 32,
119,111,117,108,100, 32,117,110,100,101,114,115,116, 97,110,100, 32,
116,104, 97,116, 32,116,104,101, 32, 77, 97,110,121, 32, 70,101, 97,
116,117,114,101,115,196, 32,186,196,255, 32,186,195, 32,111,110, 32,
116,104,101, 32, 70, 97, 99,101, 32,111,102, 32, 68,111,115, 32, 97,
114,101, 32, 97, 32,100,101,108,105, 98,101,114, 97,116,101, 32,101,
194,102,111,114,116, 32,116,111, 32,109, 97,107,101, 32,116,104,101,
 32,115,121,115,116,101,109, 32,109,111,114,101,196, 32,186,196,255,
 32,186,195, 32,102,114,105,101,110,100,108,121, 32, 97,110,100, 32,
101,194,102,105, 99,105,101,110,116, 32,116,104, 97,110, 32, 99,111,
110,102,117,115,105,110,103, 32, 97,110,100, 32,116,105,109,101, 45,
 99,111,110,115,117,109,105,110,103, 46, 41,204, 32,186,196,255, 32,
186,255, 32,202, 32,186,196,255, 32,186,195, 32, 84,104,105,115, 32,
105,115, 32,119,104,101,114,101, 32,109,111,115,116, 32,111,102, 32,
117,115, 32, 97,115, 32,117,115,101,114,115, 32,102, 97,105,108, 44,
 32, 97,110,100, 32, 97,102,116,101,114, 32, 34,119,101, 97,114,105,
110,103, 32,111,117,114,200, 32,186,196,255, 32,186,195, 32,102,105,
110,103,101,114,115, 32,116,111, 32,116,104,101, 32, 98,111,110,101,
 34, 32,116,121,112,105,110,103, 32,101, 97, 99,104, 32, 97,110,100,
 32,101,118,101,114,121, 32, 99,111,194,109, 97,110,100, 32,105,110,
 32,115,111,114,116, 32,111,102, 32, 97,110,198, 32,186,196,255, 32,
186,195, 32,101,109,117,108, 97,116,105,111,110, 32,111,102, 32, 34,
104,117,110,116, 32, 97,110,100, 32,112,101, 99,107, 34, 32,111,110,
 32,116,104,101, 32,109, 97,110,117, 97,108, 32,116,121,112,101,119,
114,105,116,101,114, 44, 32,119,101, 32,115,112,114,105,110,103, 32,
102,111,114,194, 32,186,196,255, 32,186,195, 32,116,104,101, 32,108,
 97,116,101,115,116, 32,118,101,114,115,105,111,110, 32,111,102, 32,
 34, 84,104,101, 32, 70, 97,107,101,119, 97,114,101, 32, 87,105,110,
100,111,119, 32, 77,101,110,117, 32, 77,111,117,115,101, 32, 67,111,
194,109, 97,110,100,111, 34,199, 32,186,196,255, 32,186,195, 32, 97,
110,100, 32, 98,101, 99,111,109,101, 32,102,111,114,101,118,101,114,
 32,105,110,101,194,102,101, 99,116,105,118,101, 32,119,104,105,110,
105,110,103, 32, 34,109,101,109,111,114,121, 32,106,117,110,107,105,
101,115, 46, 34,206, 32,186,196,255, 32,186,255, 32,202, 32,186,196,255,
 32,193,200,255,205,202,205,188,196,255,255, 32,204, 32,196,255, 48,
 45, 51,193,255,112, 97,103,101, 32,100,105,114,101, 99,116,209, 32,
 83,112, 97, 99,101, 98, 97,114, 47, 69,110,116,101,114,193,255,110,
101,120,116, 32,208,255, 69,115, 99, 32,112, 97,103,101, 32, 48,193,255,
255, 12,255, 12,233, 12,255, 11,199, 11,202, 12,255, 11,199, 11,202, 12,
255, 11,199, 11,202, 12,255, 11,199, 11,202, 12,255,  7,199,  7,255, 12,
255, 12,255, 12,255, 12,255, 12,255, 12,255, 12,255, 12,255, 12,255, 12,
212, 12,255,  7,199,  7,202, 12,255, 11,199, 11,202, 12,255, 11,199, 11,
202, 12,255, 11,199, 11,202, 12,255, 11,199, 11,202, 12,255, 11,199, 11,
255, 12,255, 12,229, 12,199,  1,255,  7,199,  7,195, 12,255, 31,209, 31,
0}; /* terminator */


unsigned char BATCH003[]={
195, 32,193,201,255,205,201,205,187,198, 32,186,211, 32, 67,111,194,109,
 97,110,100, 46, 67,111,109, 32, 97,110,100, 32,116,104,101, 32, 34,
 84,114, 97,105,110, 32,111,102, 32, 67,111,194,109, 97,110,100, 34,
207, 32,186,198, 32,186,199, 32,195,219,196, 32,193,219,194,223,193,219,
246, 32,186,198, 32,186,200, 32,193,219,197, 32,193,219,194, 32,193,219,
 32,198,219,200, 32,198,219,200, 32,198,219, 32,198,219,196, 32,193,219,
193,223,193,219,197, 32,186,198, 32,186,199, 32,203,219, 95,198,219,
 95,198, 32, 95,198,219, 95,198, 32, 95,198,219, 95,198,219, 95,193,223,
199,219,193,223,194, 32,186,198, 32,186,199, 32,203,219, 32,198,219,
 32,198,219, 32,198,219, 32,198,219, 32,198,219, 32,198,219, 32,193,192,
199,219,193,217,194, 32,186,198, 32,186,198, 32,193,219,194, 32, 79,
197, 32, 79,196, 32, 79,194, 32, 79,195, 32, 79,194, 32, 79,195, 32,
 79,194, 32, 79,195, 32, 79,194, 32, 79,195, 32, 79,194, 32, 79,195, 32,
 79,194, 32, 79,196, 32, 79,195, 32, 79,196, 32,186,198, 32,186,255, 32,
201, 32,186,198, 32,186,195, 32, 66,117,116, 32,105,109, 97,103,105,
110,101, 32,102,111,114, 32, 97, 32,109,111,109,101,110,116, 32,105,
102, 32,121,111,117, 32,107,110,101,119, 32,116,104,101, 32,109,111,
100,117,108,101,115, 32,111,102, 32, 68, 79, 83, 32,119,101,194,108,
 32,101,110,111,117,103,104,194, 32,186,198, 32,186,195, 32,116,104,
 97,116, 32,121,111,117, 32, 99,111,117,108,100, 32, 99,111,109, 98,
105,110,101, 32,101, 97, 99,104, 32,111,110,101, 32,116,104, 97,116,
 32,100,111,101,115, 32,111,110,101, 32,106,111, 98, 32,119,101,194,108,
 32,105,110,116,111, 32, 97, 32, 98, 97,116, 99,104,194, 32,186,198, 32,
186,195, 32,106,111, 98, 32, 40,111,114, 32, 99,104, 97,105,110, 32,
111,102, 32, 99,111,194,109, 97,110,100, 32, 97,115, 32,105,116, 32,
119,101,114,101, 41, 32, 97,110,100, 32,116,111, 32,115, 97,118,101,
 32, 97,194,108, 32,116,104, 97,116, 32,116,101,100,105,111,117,115,
196, 32,186,198, 32,186,195, 32,116,121,112,105,110,103, 44, 32,121,
111,117, 32,108,101,116, 32,116,104,101, 32,115,104,111,114,116, 32,
 34,112,114,111,103,114, 97,109, 34, 32,116,104, 97,116, 32,121,111,
117, 32,104, 97,118,101, 32, 99,114,101, 97,116,101,100, 32,105,110,
 32,121,111,117,114,196, 32,186,198, 32,186,195, 32,119,111,114,100,
 45,112,114,111, 99,101,194,115,111,114, 32,115,105,109,112,108,121,
 32, 34,100,117,109,112, 34, 32,101, 97, 99,104, 32, 99,111,194,109,
 97,110,100, 32,111,110,101, 45, 98,121, 45,111,110,101, 32,111,110,
 32,116,104,101, 32,115,121,115,116,101,109,195, 32,186,198, 32,186,
195, 32, 97,110,100, 32,119,105,116,104, 32,110,111, 32, 34, 98,101,
194,108,115, 32, 97,110,100, 32,119,104,105,115,116,108,101,115, 34,
 32,116,104,101, 32,106,111, 98, 32,105,115, 32,100,111,110,101, 46,
212, 32,186,198, 32,186,255, 32,201, 32,186,198, 32,186,195, 32, 87,
105,116,104,111,117,116, 32, 97,194,108, 32,116,104,101, 32, 34,111,
118,101,114,104,101, 97,100, 34, 32,111,102, 32,114,117,194,110,105,
110,103, 32, 97,110, 32,105,110,116,101,114, 97, 99,116,105,118,101,
 32, 99,111,194,109, 97,110,100,201, 32,186,198, 32,186,195, 32,105,
110,116,101,114,112,114,101,116,101,114, 32, 98, 97,116, 99,104, 32,
106,111, 98,115, 32,114,117,110, 32,105,110, 32, 97, 32,102,114, 97,
 99,116,105,111,110, 32,111,102, 32,116,104,101, 32,116,105,109,101,
195, 46,119,105,116,104, 32, 97,193,255, 98,105,116,193,255,111,102,
 32,186,198, 32,186,195, 32,102,111,114,101,116,104,111,117,103,104,
116, 32, 97,110,100, 32,107,110,111,119,108,101,100,103,101, 32,111,
110, 32,116,104,101, 32,112, 97,114,116, 32,111,102, 32,116,104,101,
 32,117,115,101,114, 46,211, 32,186,198, 32,186,255, 32,201, 32,186,
198, 32,186,195, 32, 70,111,114, 32,109, 97,110,121, 32,116, 97,115,
107,115, 32,116,104,101, 32, 98, 97,116, 99,104, 32,106,111, 98, 32,
105,115, 32,116,104,101, 32,115,104,111,114,116,101,115,116, 32,100,
105,115,116, 97,110, 99,101, 32, 98,101,116,119,194,101,110, 32,112,
111,105,110,116,115, 32,186,198, 32,186,195, 32, 97,110,100, 32, 97,
194,108, 32,115,101,114,105,111,117,115, 32, 68, 79, 83, 32,117,115,
101,114,115, 32,115,104,111,117,108,100, 32, 98,101, 32,102,117,194,108,
121, 32,102, 97,109,105,108,105, 97,114, 32,119,105,116,104, 32,105,
116,115, 32,117,115, 97,103,101, 46,195, 32,186,198, 32,186,255, 32,
201, 32,186,198, 32,193,200,255,205,201,205,188,255, 32,212, 32,193,255,
 48, 45, 51,193,255,112, 97,103,101,193,255,100,105,114,101, 99,116,
209,255, 83,112, 97, 99,101, 98, 97,114, 47, 69,110,116,101,114, 32,
110,101,120,116,208, 32,193,255, 69,115, 99, 32,112, 97,103,101, 32,
 48,193,255,255, 12,255, 12,230, 12,255, 10,201, 10,200, 12,255, 10,
201, 10,200, 12,255, 10,201, 10,200, 12,255, 10,201, 10,200, 12,255, 10,
201, 10,200, 12,255, 10,201, 10,255, 12,255, 12,255, 12,255, 12,255, 12,
255, 12,255, 12,242, 12,255,  7,198,  7,200, 12,255, 10,201, 10,200, 12,
255, 10,201, 10,200, 12,255, 10,201, 10,200, 12,255, 10,201, 10,255, 12,
255, 12,255, 12,255, 12,255, 12,208, 12,255,  7,202,  7,255, 31,209, 31,
0}; /* terminator */


unsigned char BATCH004[]={
193,201,255,205,207,205,187,186,211, 32,193,201,234,205,187,207, 32,
194,186,211, 32,186,234, 32,186,207, 32,194,186,211, 32,186,194, 32,
 66, 97,116, 99,104,101,115, 32, 97,114,101, 32,110,111,116, 32,116,
104,101, 32, 85,110,105,118,101,114,115, 97,108, 32, 80, 97,110, 97,
 99,101, 97,195, 32,186,207, 32,194,186,211, 32,186,194, 32, 98,117,
116, 32, 97,114,101, 32, 97, 32,109,111,115,116, 32,101,194,102,105,
 99,105,101,110,116, 32,119, 97,121, 32,116,111, 32, 98,101,103,105,
110,195, 32,186,207, 32,194,186,211, 32,186,194, 32,109, 97,107,105,
110,103, 32, 98,101,115,116, 32,117,115,101, 32,111,102, 32,116,104,
101, 32,101,110,118,105,114,111,110,109,101,110,116, 46,197, 32,186,
207, 32,194,186,211, 32,186,234, 32,186,207, 32,194,186,211, 32,186,
194, 32, 87,105,116,104, 32,116,104,101, 32, 80, 67, 32, 99, 97,109,
101, 32,116,104,101, 32, 97, 98,105,108,105,116,121, 32,111,102, 32,
116,104,101,197, 32,186,207, 32,194,186,211, 32,186,194, 32, 97,194,112,
108,105, 99, 97,116,105,111,110,115, 32,111,112,101,114, 97,116,111,
114, 32,116,111, 32,109, 97,110, 97,103,101, 32,116,104,101,197, 32,
186,207, 32,194,186,211, 32,186,194, 32,101,110,118,105,114,111,110,
109,101,110,116, 32, 97,115, 32,119,101,194,108, 32, 97,115, 32,116,
104,101, 32, 68, 97,116, 97, 46,200, 32,186,207, 32,194,186,211, 32,
186,234, 32,186,207, 32,194,186,211, 32,186,194, 32, 87,105,116,104,
 32,116,104, 97,116, 32, 97, 98,105,108,105,116,121, 32, 99,111,109,
101,115, 32,116,104,101, 32,111, 98,108,105,103, 97,116,105,111,110,
194, 32,186,207, 32,194,186,211, 32,186,194, 32,116,111, 32,117,115,
101, 32,116,104, 97,116, 32,112,111,119,101,114, 32,119,105,115,101,
108,121, 46,207, 32,186,207, 32,194,186,211, 32,186,234, 32,186,207, 32,
194,186,211, 32,186,194, 32, 77, 97,121, 32, 84,104,101, 32, 70,111,
114, 99,101, 32, 66,101, 32, 87,105,116,104, 32, 89,111,117, 46,206, 32,
186,207, 32,194,186,211, 32,186,234, 32,186,207, 32,194,186,211, 32,
186,212, 32, 45, 66,105,194,108, 32, 66,117, 99,107,101,108,115,194, 32,
 49, 57,194, 56,195, 32,186,207, 32,194,186,211, 32,193,200,234,205,
188,207, 32,194,186,210, 32,238,220,206, 32,194,186,227, 32,193,218,
205,196,191,193,218,205,196,191,205, 32,194,186,210, 32,198,221,203, 32,
179,196,205,193,192,195,196,193,217,196,205,194,179,196,205,193,192,
195,196,193,217,196,205,179,205, 32,194,186,227, 32,193,192,205,196,
193,217,193,192,205,196,193,217,205, 32,186,193,200,255,205,207,205,
188,255, 32,209, 32,193,255, 48, 45, 50,193,255,112, 97,103,101,193,255,
100,105,114,101, 99,116,209,255, 83,112, 97, 99,101, 98, 97,114, 47,
 69,110,116,101,114, 32,110,101,120,116,207, 32,194,255, 69,115, 99,
 32,112, 97,103,101, 32, 48,193,255,255, 12,221, 12, 11,197, 12,194,  7,
236, 31,  9,204,  7,207, 12, 11,197, 12,194,  7, 31,234,  7, 31,205,  7,
207, 12, 11,197, 12,194,  7, 31,194,  7,230, 12,194,  7, 31,205,  7,
207, 12, 11,197, 12,194,  7, 31,194,  7,230, 12,194,  7, 31,205,  7,
207, 12, 11,197, 12,194,  7, 31,194,  7,230, 12,194,  7, 31,205,  7,
207, 12, 11,197, 12,194,  7, 31,234,  7, 31,205,  7,207, 12, 11,197, 12,
194,  7, 31,  7,233, 10, 31,205,  7,207, 12, 11,197, 12,194,  7, 31,
  7,233, 10, 31,205,  7,207, 12, 11,197, 12,194,  7, 31,  7,233, 10,
 31,205,  7,207, 12, 11,197, 12,194,  7, 31,234,  7, 31,205,  7,207, 12,
 11,197, 12,194,  7, 31,194,  7,230, 11,194,  7, 31,205,  7,207, 12,
 11,197, 12,194,  7, 31,194,  7,230, 11,194,  7, 31,205,  7,207, 12,
 11,197, 12,194,  7, 31,194,  7,219, 12,205,  7, 31,205,  7,207, 12,
 11,197, 12,194,  7, 31,194,  7,219, 12,205,  7, 31,205,  7,207, 12,
 11,197, 12,194,  7, 31,194,  7,232, 10, 31,205,  7,207, 12, 11,197, 12,
194,  7, 31,194,  7,232, 10, 31,205,  7,207, 12, 11,197, 12,194,  7,
236, 31,205,  7,207, 12, 11,197, 12,240, 31,203,  7,207, 12, 11,197, 12,
240, 31,203,  7,207, 12, 11,197, 12,240, 31,203,  7,207, 12, 11,197, 12,
240, 31,203,  7,255, 12,212, 12,255,  7,209,  7,255, 31,209, 31,
0}; /* terminator */



struct regs{
    int AX;
    int BX;
    int CX;
    int DX;
    int SI;
    int DI;
    int DS;
    int ES;
}inregs,outregs;

#define SCREENSIZE 4000
unsigned int SCREENSEG= 0xb000;

#define TERMINATOR 1

showpic(argc, argv)
int argc;
unsigned char *argv;
{

    unsigned int byteoff=0,secondoff=1,packet;
    unsigned char byte,bytecount;
    int wordcount,target;
    unsigned char *databuf;
    unsigned int segregs[4];
    char *malloc();

    target = argc-TERMINATOR;
    databuf = (unsigned char *)malloc(SCREENSIZE);

    wordcount=0;
    do{ bytecount=1;                          /* start with a seed count */
        byte=argv[wordcount];
        wordcount++;
                                              /* check to see if its raw */
        if(0xC0 == (0xC0 &byte)){             /* if its not, run encoded */
                    bytecount= 0x3f &byte;
                    byte=argv[wordcount];
                    wordcount++;
                    }
        for(packet=0;packet<bytecount;packet++){
                   if(byteoff<SCREENSIZE){
                        databuf[byteoff]=byte;
                        byteoff+=2;
                        }
                   else{
                        databuf[secondoff]=byte;
                        secondoff+=2;
                        }
                    }

        }while(wordcount<target);

          #define dseg 2
          /* returns base of dgroup */
          segread(&segregs);
          movblock(*((unsigned int*)&databuf),segregs[dseg],
                     0x0000,SCREENSEG,SCREENSIZE);
         free(databuf);
}

unsigned int catch()
{
           inregs.AX = 0x0000;
           inregs.DX = 0x0000;
           sysint(0x16,&inregs,&outregs);
           return outregs.AX&0x00ff;
}


main()
{
    int i, ch;

    sysint(0x11,&inregs,&outregs); /* get equipment list from the bios */
    /* get display type (bits 4 and 5 of ax) */
    if ((outregs.AX & 0x30) < 0x30)SCREENSEG=0xb800;

               /* clearscreen and turn cursor off */
               #asm
                 mov ah,6
                 mov al,0
                 mov cx,0
                 mov dh,24
                 mov dl,79
                 mov bh,0
                 int 10h
                 xor ax,ax
                 mov ah,1
                 mov cx,2000h
                 int 10h
               #endasm
        /* allow a keypress to advance */
        /* allow escape to exit */

        i = 0;
        for(;;)
        {
          switch(i)
          {
            case 0:showpic(sizeof(BATCH000),BATCH000);break;
            case 1:showpic(sizeof(BATCH001),BATCH001);break;
            case 2:showpic(sizeof(BATCH002),BATCH002);break;
            case 3:showpic(sizeof(BATCH003),BATCH003);break;
            case 4:showpic(sizeof(BATCH004),BATCH004);break;
          }
          ch = catch();

          if(ch==27) {
			  if (i==1)break;
			  i=1;
		  }
		  else {
		    switch (ch) {
			   case 48:
			   case 49:
			   case 50:
			   case 51: i=ch-47;break;

			   default: i++; if(i>4)i=1;break;
			}
		  }

        }

       /* clear screen and turn cursor on */
       #asm
           mov ah,6
           mov al,0
           mov cx,0
           mov dh,24
           mov dl,79
           mov bh,0eh
           int 10h
           xor ax,ax
           mov ah,1
           mov cx,0607h
           int 10h
       #endasm
       exit(0);
}