|
|
coherent
/*
* ibm characters
*/
#define KEY_N '8': case 'A'
#define KEY_E '6': case 'C'
#define KEY_S '5': case '2': case 'B'
#define KEY_W '4': case 'D'
#define KEY_C '0': case '*': case '+': case '@'
#define curs(r,c) {caddr=(80*(r)+(c))*2;}
int caddr;
#define P_HALF 1
#define P_GFLP 0
char p_c[3][4][2][3][2] = {
7, '\333', 7, '\333', 7, '\333', 7, '\333', 7, '\333', 7, '\040',
7, '\333', 7, '\333', 7, '\333', 7, '\337', 7, '\337', 7, '\337',
7, '\333', 7, '\333', 7, '\333', 7, '\040', 7, '\333', 7, '\333',
7, '\333', 7, '\333', 7, '\333', 7, '\334', 7, '\334', 7, '\334',
7, '\334', 7, '\334', 7, '\334', 7, '\334', 7, '\334', 7, '\040',
7, '\334', 7, '\334', 7, '\334', 7, '\334', 7, '\334', 7, '\334',
7, '\334', 7, '\334', 7, '\334', 7, '\040', 7, '\334', 7, '\334',
7, '\334', 7, '\334', 7, '\334', 7, '\040', 7, '\040', 7, '\040',
7, '\337', 7, '\337', 7, '\337', 7, '\337', 7, '\337', 7, '\040',
7, '\337', 7, '\337', 7, '\337', 7, '\040', 7, '\040', 7, '\040',
7, '\337', 7, '\337', 7, '\337', 7, '\040', 7, '\337', 7, '\337',
7, '\337', 7, '\337', 7, '\337', 7, '\337', 7, '\337', 7, '\337'
};
char p_cc[2][3][2] = {
7, '\333', 7, '\333', 7, '\333',
7, ' ', 7, ' ', 7, ' '
};
char g_c[4][4][3][3][2] = {
120, '\020', 120, '\137', 120, '\020', 10, '\020', 10, '\026', 10, '\020',
10, '\020', 10, '\040', 10, '\020',
120, '\037', 120, '\137', 120, '\037', 10, '\037', 10, '\026', 10, '\037',
10, '\037', 10, '\040', 10, '\037',
120, '\021', 120, '\137', 120, '\021', 10, '\021', 10, '\026', 10, '\021',
10, '\021', 10, '\040', 10, '\021',
120, '\036', 120, '\137', 120, '\036', 10, '\036', 10, '\026', 10, '\036',
10, '\036', 10, '\040', 10, '\036',
120, '\020', 120, '\137', 120, '\020', 10, '\020', 10, '\026', 10, '\020',
10, '\020', 10, '\040', 10, '\020',
120, '\037', 120, '\137', 120, '\037', 10, '\037', 10, '\026', 10, '\037',
10, '\037', 10, '\040', 10, '\037',
120, '\021', 120, '\137', 120, '\021', 10, '\021', 10, '\026', 10, '\021',
10, '\021', 10, '\040', 10, '\021',
120, '\036', 120, '\137', 120, '\036', 10, '\036', 10, '\026', 10, '\036',
10, '\036', 10, '\040', 10, '\036',
120, '\020', 120, '\137', 120, '\020', 10, '\020', 10, '\026', 10, '\020',
10, '\020', 10, '\040', 10, '\020',
120, '\037', 120, '\137', 120, '\037', 10, '\037', 10, '\026', 10, '\037',
10, '\037', 10, '\040', 10, '\037',
120, '\021', 120, '\137', 120, '\021', 10, '\021', 10, '\026', 10, '\021',
10, '\021', 10, '\040', 10, '\021',
120, '\036', 120, '\137', 120, '\036', 10, '\036', 10, '\026', 10, '\036',
10, '\036', 10, '\040', 10, '\036',
120, '\020', 120, '\137', 120, '\020', 10, '\020', 10, '\026', 10, '\020',
10, '\020', 10, '\040', 10, '\020',
120, '\037', 120, '\137', 120, '\037', 10, '\037', 10, '\026', 10, '\037',
10, '\037', 10, '\040', 10, '\037',
120, '\021', 120, '\137', 120, '\021', 10, '\021', 10, '\026', 10, '\021',
10, '\021', 10, '\040', 10, '\021',
120, '\036', 120, '\137', 120, '\036', 10, '\036', 10, '\026', 10, '\036',
10, '\036', 10, '\040', 10, '\036'
};
int g_i[4] = {2, 3, 3, 3};
char e_c[2][2] = {10, '\4', 10, ' '};
char f_c[2] = {10, '\7'};
char b_c[2] = {7, ' '};
char w_c[2] = {10, '\333'};
char d_c[2] = {10, '\304'};
char r_c[2] = {10};
char s_a = 10;
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.