/*字幕點陣系統(tǒng)
  廣東工業(yè)大學(xué)自動化學(xué)院04級自動化3班   吳子洲
  版權(quán)所有，如要轉(zhuǎn)載，請注明出處*/

#include <reg51.h>
#define speed 21
#define N 50
sbit st=P3^3;


unsigned char code red[] = {
/* 5   C2035 */
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x98,0x1F,0x84,0x10,0x04,0x11,
0x04,0x11,0x88,0x10,0x70,0x10,0x00,0x00,

/*1    C3120 */
0x00,0x00,0x04,0x08,0x04,0x08,0xFC,0x1F,
0x04,0x00,0x04,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,

/*單   CB5A5 */
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,

/*片   CC6AC */
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,

/*機   CBBFA */
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,

/*串   CB4AE */
0x00,0x00,0x00,0x00,0xF8,0x01,0x10,0x3D,
0x10,0x25,0x10,0x25,0x10,0x25,0xFF,0xFF,
0x10,0x25,0x10,0x25,0x10,0x25,0x10,0x3D,
0xF8,0x01,0x00,0x00,0x00,0x00,0x00,0x00,

/*行   CD0D0 */
0x40,0x08,0x80,0x10,0x00,0x21,0xFF,0x63,
0x00,0xCE,0x00,0x44,0x00,0x02,0x00,0x22,
0x02,0x22,0x01,0x22,0xFE,0x23,0x00,0x22,
0x00,0x22,0x00,0x22,0x00,0x02,0x00,0x00,

/*通   CCDA8 */
0x02,0x02,0x04,0x82,0xF8,0x63,0x04,0x00,
0x02,0x00,0xFA,0x4F,0x42,0x4A,0x42,0x4A,
0x42,0x6A,0xFA,0x5F,0x52,0x5A,0x4A,0x6A,
0xF2,0x4F,0x02,0x00,0x02,0x00,0x00,0x00,

/*信   CD0C5 */
0x00,0x01,0x00,0x02,0x00,0x0C,0xFE,0x3F,
0x00,0xE0,0x00,0x50,0x7E,0x15,0x44,0x15,
0x44,0x95,0x44,0x75,0x44,0x55,0x44,0x15,
0x7E,0x15,0x00,0x10,0x00,0x10,0x00,0x00,

/*/    C2F20 */
0x00,0x00,0x06,0x00,0x18,0x00,0x60,0x00,
0x80,0x01,0x00,0x06,0x00,0x18,0x00,0x20,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,

/*紅   CBAEC */
0x44,0x04,0x66,0x0C,0xC4,0x34,0x48,0xC5,
0x48,0x06,0x4A,0x18,0x02,0x00,0x02,0x10,
0x02,0x10,0x02,0x10,0xFE,0x1F,0x02,0x10,
0x02,0x10,0x06,0x30,0x02,0x10,0x00,0x00,

/*外   CCDE2 */
0x02,0x01,0x04,0x02,0x08,0x04,0x10,0x1A,
0xA0,0xE1,0xC0,0x20,0x00,0x23,0x00,0x3C,
0x00,0x00,0x00,0x00,0xFF,0xFF,0x00,0x04,
0x00,0x02,0x00,0x01,0xC0,0x00,0x00,0x00,

/*線   CCFDF */
0x04,0x02,0x44,0x06,0xC4,0x1A,0x48,0xE3,
0x48,0x46,0x48,0x00,0x04,0x09,0x04,0x09,
0x08,0x09,0xC8,0xFF,0x30,0x09,0x28,0x49,
0x44,0x39,0x02,0x29,0x1F,0x01,0x00,0x00,

/*解   CBDE2 */
0x01,0x10,0xFE,0x2F,0x40,0xEA,0x40,0x2A,
0xFA,0x3F,0x41,0x2A,0xFE,0x0F,0x50,0x42,
0x90,0x45,0x90,0x78,0x90,0x40,0xFF,0x45,
0x90,0x46,0x90,0x7C,0x90,0x00,0x00,0x00,

/*碼   CC2EB */
0x80,0x40,0x00,0x41,0xFE,0x47,0x08,0x7A,
0x08,0x42,0xFC,0x43,0x00,0x00,0x20,0x40,
0x20,0x5F,0x20,0x41,0x22,0x41,0x21,0x41,
0x02,0x7F,0xFC,0x01,0x00,0x00,0x00,0x00,

/*講   CBDB2 */
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,

/*座   CD7F9 */
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,

/*歡   CBBB6 */
0x04,0x28,0x08,0x24,0x32,0x22,0xC2,0x21,
0xC2,0x26,0x34,0x38,0x04,0x04,0x08,0x18,
0x30,0xF0,0xC0,0x17,0x60,0x10,0x18,0x10,
0x0C,0x14,0x06,0x18,0x04,0x10,0x00,0x00,

/*迎   CD3AD */
0x02,0x02,0x04,0x82,0xF8,0x73,0x04,0x20,
0x02,0x00,0xE2,0x3F,0x42,0x20,0x82,0x40,
0x02,0x40,0xFA,0x3F,0x02,0x20,0x42,0x20,
0x22,0x20,0xC2,0x3F,0x02,0x00,0x00,0x00,

/*你   CC4E3 */
0x00,0x01,0x00,0x02,0xFE,0x0F,0x00,0x34,
0x08,0xC2,0x30,0x04,0xC0,0x19,0x84,0xF0,
0x02,0x50,0xFC,0x17,0x00,0x10,0x00,0x11,
0xC0,0x14,0x38,0x38,0x10,0x10,0x00,0x00,

/*！   CA3A1 */
0x00,0x00,0x00,0x00,0x00,0x00,0xFA,0x0F,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,

/*主   CD6F7 */
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,

/*講   CBDB2 */
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,

/*：   CA3BA */
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,

/*廣   CB9E3 */
0x02,0x00,0x0C,0x00,0xF0,0x3F,0x00,0x20,
0x00,0x20,0x00,0x20,0x00,0x20,0x00,0xA0,
0x00,0x60,0x00,0x20,0x00,0x20,0x00,0x20,
0x00,0x20,0x00,0x20,0x00,0x20,0x00,0x00,

/*東   CB6AB */
0x00,0x00,0x00,0x20,0x04,0x20,0x18,0x23,
0x70,0x2D,0x20,0x31,0x04,0xE1,0x02,0x21,
0xFF,0x2F,0x00,0x21,0x40,0x21,0x20,0x21,
0x18,0x21,0x0C,0x20,0x00,0x00,0x00,0x00,

/*工   CB9A4 */
0x04,0x00,0x04,0x00,0x04,0x40,0x04,0x40,
0x04,0x40,0x04,0x40,0x04,0x40,0xFC,0x7F,
0x04,0x40,0x04,0x40,0x04,0x40,0x04,0x40,
0x04,0x40,0x04,0x40,0x04,0x00,0x00,0x00,

/*業(yè)   CD2B5 */
0x04,0x00,0x04,0x08,0x04,0x06,0xC4,0x01,
0x84,0x00,0xFC,0xFF,0x04,0x00,0x04,0x00,
0x04,0x00,0xFC,0xFF,0x44,0x00,0x84,0x01,
0x04,0x06,0x0C,0x1C,0x04,0x08,0x00,0x00,

/*大   CB4F3 */
0x00,0x04,0x01,0x04,0x02,0x04,0x04,0x04,
0x08,0x04,0x30,0x04,0xC0,0x05,0x00,0xFE,
0x80,0x05,0x60,0x04,0x10,0x04,0x0C,0x04,
0x06,0x04,0x03,0x04,0x02,0x04,0x00,0x00,

/*學(xué)   CD1A7 */
0x00,0x02,0x40,0x0C,0x40,0x08,0x40,0x48,
0x40,0x3A,0x40,0x2A,0x42,0x0A,0x41,0x8A,
0xFE,0x7A,0x40,0x2B,0x40,0x0A,0x40,0x18,
0x40,0xEA,0x40,0x4C,0x40,0x08,0x00,0x00,

/*自   CD7D4 */
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,

/*動   CB6AF */
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,

/*化   CBBAF */
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,

/*學(xué)   CD1A7 */
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,


/*院   CD4BA */
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,

/*04   C3034 */
0x00,0x00,0xF0,0x07,0x08,0x08,0x04,0x10,
0x04,0x10,0x08,0x08,0xF0,0x07,0x00,0x00,
0x00,0x00,0xE0,0x00,0x20,0x03,0x24,0x04,
0x24,0x08,0xFC,0x1F,0x24,0x00,0x00,0x00,

/*級   CBCB6 */
0x08,0x04,0xC8,0x0C,0x88,0x35,0x92,0xC6,
0x94,0x04,0x89,0x18,0x31,0x40,0xC2,0x41,
0x02,0x7E,0xC4,0x41,0x28,0x42,0x18,0x4E,
0x66,0x72,0x83,0x03,0x02,0x02,0x00,0x00,

/*自   CD7D4 */
0x00,0x00,0x00,0x00,0x00,0x00,0xFF,0x1F,
0x22,0x12,0x22,0x12,0x22,0x32,0x22,0xD2,
0x22,0x52,0x22,0x12,0x22,0x12,0x22,0x12,
0xFF,0x1F,0x00,0x00,0x00,0x00,0x00,0x00,

/*動   CB6AF */
0x10,0x04,0x38,0x24,0xD0,0x24,0x10,0x27,
0x30,0x24,0xA0,0x24,0x72,0x24,0x24,0x04,
0x08,0x08,0x30,0x08,0xC0,0xFF,0x04,0x08,
0x02,0x08,0xFC,0x0F,0x00,0x00,0x00,0x00,

/*化   CBBAF */
0x00,0x01,0x00,0x02,0x00,0x04,0xFE,0x1F,
0x00,0xE0,0x20,0x40,0x40,0x00,0x80,0x00,
0xFC,0xFF,0x02,0x03,0x02,0x06,0x02,0x0C,
0x02,0x38,0x1E,0x10,0x00,0x00,0x00,0x00,

/*3    C3320 */
0x00,0x00,0x18,0x0C,0x04,0x10,0x04,0x11,
0x04,0x11,0x88,0x12,0x70,0x0C,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,

/*班   CB0E0 */
0x08,0x42,0x08,0x42,0xF0,0x7F,0x11,0x42,
0x92,0x42,0x04,0x07,0x18,0x00,0xE0,0xFF,
0x04,0x00,0x04,0x42,0x04,0x42,0xFC,0x7F,
0x04,0x42,0x04,0x42,0x04,0x42,0x00,0x00,

/*     C2020 */
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,

/*吳   CCEE2 */
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,

/*子   CD7D3 */
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,

/*洲   CD6DE */
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,

/*     C2020 */
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,

0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,

0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,


};

unsigned char code green[]={
/* 5   C2035 */
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,

/*1    C3120 */
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,

/*單   CB5A5 */
0x10,0x00,0x10,0x00,0xD0,0x1F,0x90,0x14,
0x90,0x94,0x90,0x74,0x90,0x54,0xFF,0x1F,
0x90,0x14,0x90,0x34,0x90,0xD4,0x90,0x54,
0xD0,0x1F,0x10,0x00,0x10,0x00,0x00,0x00,

/*片   CC6AC */
0x01,0x00,0x02,0x00,0x0C,0x00,0xF0,0x7F,
0x80,0x08,0x80,0x08,0x80,0x08,0x80,0x08,
0x80,0x08,0x80,0xF8,0x80,0x08,0xFF,0x08,
0x00,0x08,0x00,0x18,0x00,0x08,0x00,0x00,

/*機   CBBFA */