474 lines
25 KiB
C
474 lines
25 KiB
C
/* 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);
|
|
}
|
|
|