-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathcharset-c64.c
282 lines (277 loc) · 11 KB
/
charset-c64.c
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
#include <stdio.h>
#include <peekpoke.h>
#include <string.h>
#include <conio.h>
unsigned char chars[]={
0x5C,0x57,0xE9,0x59,0x39,0x1E,0x14,0x36,
0x10,0x28,0x28,0x44,0x7C,0x44,0xEE,0x00,
0xFC,0x42,0x42,0x7C,0x42,0x42,0xFC,0x00,
0x38,0x44,0x82,0x80,0x82,0x44,0x38,0x00,
0xFC,0x42,0x42,0x42,0x42,0x42,0xFC,0x00,
0xFE,0x42,0x48,0x78,0x48,0x42,0xFE,0x00,
0xFE,0x42,0x48,0x78,0x48,0x40,0xE0,0x00,
0x3C,0x42,0x80,0x8E,0x82,0x42,0x3C,0x00,
0xEE,0x44,0x7C,0x44,0x44,0x44,0xEE,0x00,
0xFE,0x10,0x10,0x10,0x10,0x10,0xFE,0x00,
0x7C,0x10,0x10,0x10,0x90,0x90,0x60,0x00,
0xEE,0x44,0x48,0x70,0x48,0x44,0xEE,0x00,
0xE0,0x40,0x40,0x40,0x42,0x42,0xFE,0x00,
0xEE,0x54,0x54,0x54,0x44,0x44,0xEE,0x00,
0xEE,0x64,0x54,0x54,0x4C,0x4C,0xE4,0x00,
0x38,0x44,0x82,0x82,0x82,0x44,0x38,0x00,
0xFC,0x42,0x42,0x42,0x7C,0x40,0xE0,0x00,
0x38,0x44,0x82,0x82,0x92,0x4C,0x3A,0x00,
0xFC,0x42,0x42,0x42,0x7C,0x48,0xEE,0x00,
0x7C,0x82,0x80,0x7C,0x02,0x82,0x7C,0x00,
0xFE,0x92,0x10,0x10,0x10,0x10,0x38,0x00,
0xEE,0x44,0x44,0x44,0x44,0x44,0x38,0x00,
0xEE,0x44,0x44,0x28,0x28,0x28,0x10,0x00,
0xEE,0x44,0x44,0x54,0x54,0x6C,0x44,0x00,
0xEE,0x44,0x28,0x10,0x28,0x44,0xEE,0x00,
0xEE,0x44,0x28,0x28,0x10,0x10,0x38,0x00,
0xFE,0x84,0x08,0x10,0x20,0x42,0xFE,0x00,
0x3C,0x30,0x30,0x30,0x30,0x30,0x3C,0x00,
0x0C,0x12,0x30,0x7C,0x30,0x62,0xFC,0x00,
0x3C,0x0C,0x0C,0x0C,0x0C,0x0C,0x3C,0x00,
0x00,0x18,0x3C,0x7E,0x18,0x18,0x18,0x18,
0x00,0x10,0x30,0x7F,0x7F,0x30,0x10,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x18,0x18,0x18,0x18,0x00,0x00,0x18,0x00,
0x66,0x66,0x66,0x00,0x00,0x00,0x00,0x00,
0xFE,0xD4,0xAA,0xD4,0xAA,0xD4,0xAA,0x00,
0x18,0x3E,0x60,0x3C,0x06,0x7C,0x18,0x00,
0x00,0x00,0x70,0x5E,0x72,0x00,0x00,0x00,
0x08,0x94,0x48,0x2E,0x1A,0x24,0x6C,0x00,
0x06,0x0C,0x18,0x00,0x00,0x00,0x00,0x00,
0x0C,0x18,0x30,0x30,0x30,0x18,0x0C,0x00,
0x30,0x18,0x0C,0x0C,0x0C,0x18,0x30,0x00,
0x00,0x66,0x3C,0xFF,0x3C,0x66,0x00,0x00,
0x00,0x18,0x18,0x7E,0x18,0x18,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x18,0x18,0x30,
0x00,0x00,0x00,0x7E,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x18,0x18,0x00,
0x00,0x03,0x06,0x0C,0x18,0x30,0x60,0x00,
0x38,0x44,0x82,0x82,0x82,0x44,0x38,0x00,
0x30,0x50,0x90,0x10,0x10,0x10,0xFE,0x00,
0x7C,0x82,0x02,0x7C,0x80,0x82,0xFE,0x00,
0xFE,0x84,0x08,0x1C,0x82,0x82,0x7C,0x00,
0x0C,0x18,0x28,0x4A,0xFE,0x0A,0x1C,0x00,
0xFE,0x82,0xFC,0x02,0x82,0x82,0x7C,0x00,
0x7C,0x82,0x80,0xFC,0x82,0x82,0x7C,0x00,
0xFE,0x84,0x08,0x08,0x10,0x10,0x38,0x00,
0x7C,0x82,0x82,0x7C,0x82,0x82,0x7C,0x00,
0x7C,0x82,0x82,0x82,0x7C,0x04,0x78,0x00,
0x00,0x00,0x18,0x00,0x00,0x18,0x00,0x00,
0x00,0x00,0x18,0x00,0x00,0x18,0x18,0x30,
0x00,0x7E,0x00,0x3C,0x00,0x18,0x00,0x00,
0xEF,0x8A,0x0C,0x00,0xFE,0xAA,0x80,0x00,
0x00,0x00,0x18,0x00,0x3C,0x00,0x7E,0x00,
0x00,0x3C,0x7E,0xFE,0x7A,0x7E,0xFE,0x7E,
0x00,0x3C,0x7E,0xFE,0x7A,0x7E,0xFE,0x7E,
0x08,0x1C,0x3E,0x7F,0x7F,0x1C,0x3E,0x00,
0x00,0x7E,0xDE,0xFE,0xFE,0xFE,0x7E,0x14,
0x00,0x00,0x00,0xFF,0xFF,0x00,0x00,0x00,
0x00,0x00,0xFF,0xFF,0x00,0x00,0x00,0x00,
0x00,0xFF,0xFF,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0xFF,0xFF,0x00,0x00,
0x30,0x30,0x30,0x30,0x30,0x30,0x30,0x30,
0x0C,0x0C,0x0C,0x0C,0x0C,0x0C,0x0C,0x0C,
0x00,0x00,0x00,0xE0,0xF0,0x38,0x18,0x18,
0x18,0x18,0x1C,0x0F,0x07,0x00,0x00,0x00,
0x18,0x18,0x38,0xF0,0xE0,0x00,0x00,0x00,
0xC0,0xC0,0xC0,0xC0,0xC0,0xC0,0xFF,0xFF,
0xC0,0xE0,0x70,0x38,0x1C,0x0E,0x07,0x03,
0x03,0x07,0x0E,0x1C,0x38,0x70,0xE0,0xC0,
0xFF,0xFF,0xC0,0xC0,0xC0,0xC0,0xC0,0xC0,
0xFF,0xFF,0x03,0x03,0x03,0x03,0x03,0x03,
0x08,0x18,0x99,0x7E,0x3C,0x3C,0x66,0x81,
0x00,0x00,0x00,0x00,0x00,0xFF,0xFF,0x00,
0x36,0x7F,0x6B,0x63,0x2A,0x1C,0x08,0x00,
0x60,0x60,0x60,0x60,0x60,0x60,0x60,0x60,
0x00,0x00,0x00,0x07,0x0F,0x1C,0x18,0x18,
0xC3,0xE7,0x7E,0x3C,0x3C,0x7E,0xE7,0xC3,
0x00,0x3C,0x7E,0x66,0x66,0x7E,0x3C,0x00,
0x18,0x3C,0x72,0x62,0x24,0x18,0x3C,0x00,
0x06,0x06,0x06,0x06,0x06,0x06,0x06,0x06,
0x08,0x1C,0x3E,0x7F,0x3E,0x1C,0x08,0x00,
0x18,0x18,0x18,0xFF,0xFF,0x18,0x18,0x18,
0xC0,0xC0,0x30,0x30,0xC0,0xC0,0x30,0x30,
0x18,0x18,0x18,0x18,0x18,0x18,0x18,0x18,
0x00,0x0C,0x02,0x02,0x2C,0x7C,0xEC,0x00,
0xFF,0x7F,0x3F,0x1F,0x0F,0x07,0x03,0x01,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0xF0,0xF0,0xF0,0xF0,0xF0,0xF0,0xF0,0xF0,
0x00,0x00,0x00,0x00,0xFF,0xFF,0xFF,0xFF,
0xFF,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xFF,
0xC0,0xC0,0xC0,0xC0,0xC0,0xC0,0xC0,0xC0,
0xCC,0x87,0x30,0x66,0x08,0x93,0xC7,0x46,
0x03,0x03,0x03,0x03,0x03,0x03,0x03,0x03,
0x00,0x00,0x00,0x00,0xCC,0xCC,0x33,0x33,
0xFF,0xFE,0xFC,0xF8,0xF0,0xE0,0xC0,0x80,
0x03,0x03,0x03,0x03,0x03,0x03,0x03,0x03,
0x18,0x18,0x18,0x1F,0x1F,0x18,0x18,0x18,
0x00,0x00,0x00,0x00,0x0F,0x0F,0x0F,0x0F,
0x18,0x18,0x18,0x1F,0x1F,0x00,0x00,0x00,
0x00,0x00,0x00,0xF8,0xF8,0x18,0x18,0x18,
0x00,0x00,0x00,0x00,0x00,0x00,0xFF,0xFF,
0x00,0x00,0x00,0x1F,0x1F,0x18,0x18,0x18,
0x18,0x18,0x18,0xFF,0xFF,0x00,0x00,0x00,
0x00,0x00,0x00,0xFF,0xFF,0x18,0x18,0x18,
0x18,0x18,0x18,0xF8,0xF8,0x18,0x18,0x18,
0xC0,0xC0,0xC0,0xC0,0xC0,0xC0,0xC0,0xC0,
0xE0,0xE0,0xE0,0xE0,0xE0,0xE0,0xE0,0xE0,
0x07,0x07,0x07,0x07,0x07,0x07,0x07,0x07,
0xFF,0xFF,0x00,0x00,0x00,0x00,0x00,0x00,
0xFF,0xFF,0xFF,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0xFF,0xFF,0xFF,
0x03,0x03,0x03,0x03,0x03,0x03,0xFF,0xFF,
0x00,0x00,0x00,0x00,0xF0,0xF0,0xF0,0xF0,
0x0F,0x0F,0x0F,0x0F,0x00,0x00,0x00,0x00,
0x18,0x18,0x18,0xF8,0xF8,0x00,0x00,0x00,
0xF0,0xF0,0xF0,0xF0,0x00,0x00,0x00,0x00,
0xF0,0xF0,0xF0,0xF0,0x0F,0x0F,0x0F,0x0F,
0xC3,0x99,0x91,0x91,0x9F,0x99,0xC3,0xFF,
0xE7,0xC3,0x99,0x81,0x99,0x99,0x99,0xFF,
0x83,0x99,0x99,0x83,0x99,0x99,0x83,0xFF,
0xC3,0x99,0x9F,0x9F,0x9F,0x99,0xC3,0xFF,
0x87,0x93,0x99,0x99,0x99,0x93,0x87,0xFF,
0x81,0x9F,0x9F,0x87,0x9F,0x9F,0x81,0xFF,
0x81,0x9F,0x9F,0x87,0x9F,0x9F,0x9F,0xFF,
0xC3,0x99,0x9F,0x91,0x99,0x99,0xC3,0xFF,
0x99,0x99,0x99,0x81,0x99,0x99,0x99,0xFF,
0xC3,0xE7,0xE7,0xE7,0xE7,0xE7,0xC3,0xFF,
0xE1,0xF3,0xF3,0xF3,0xF3,0x93,0xC7,0xFF,
0x99,0x93,0x87,0x8F,0x87,0x93,0x99,0xFF,
0x9F,0x9F,0x9F,0x9F,0x9F,0x9F,0x81,0xFF,
0x9C,0x88,0x80,0x94,0x9C,0x9C,0x9C,0xFF,
0x99,0x89,0x81,0x81,0x91,0x99,0x99,0xFF,
0xC3,0x99,0x99,0x99,0x99,0x99,0xC3,0xFF,
0x83,0x99,0x99,0x83,0x9F,0x9F,0x9F,0xFF,
0xC3,0x99,0x99,0x99,0x99,0xC3,0xF1,0xFF,
0x83,0x99,0x99,0x83,0x87,0x93,0x99,0xFF,
0xC3,0x99,0x9F,0xC3,0xF9,0x99,0xC3,0xFF,
0x81,0xE7,0xE7,0xE7,0xE7,0xE7,0xE7,0xFF,
0x99,0x99,0x99,0x99,0x99,0x99,0xC3,0xFF,
0x99,0x99,0x99,0x99,0x99,0xC3,0xE7,0xFF,
0x9C,0x9C,0x9C,0x94,0x80,0x88,0x9C,0xFF,
0x99,0x99,0xC3,0xE7,0xC3,0x99,0x99,0xFF,
0x99,0x99,0x99,0xC3,0xE7,0xE7,0xE7,0xFF,
0x81,0xF9,0xF3,0xE7,0xCF,0x9F,0x81,0xFF,
0xC3,0xCF,0xCF,0xCF,0xCF,0xCF,0xC3,0xFF,
0xF3,0xED,0xCF,0x83,0xCF,0x9D,0x03,0xFF,
0xC3,0xF3,0xF3,0xF3,0xF3,0xF3,0xC3,0xFF,
0xFF,0xE7,0xC3,0x81,0xE7,0xE7,0xE7,0xE7,
0xFF,0xEF,0xCF,0x80,0x80,0xCF,0xEF,0xFF,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xE7,0xE7,0xE7,0xE7,0xFF,0xFF,0xE7,0xFF,
0x99,0x99,0x99,0xFF,0xFF,0xFF,0xFF,0xFF,
0x99,0x99,0x00,0x99,0x00,0x99,0x99,0xFF,
0xE7,0xC1,0x9F,0xC3,0xF9,0x83,0xE7,0xFF,
0x9D,0x99,0xF3,0xE7,0xCF,0x99,0xB9,0xFF,
0xC3,0x99,0xC3,0xC7,0x98,0x99,0xC0,0xFF,
0xF9,0xF3,0xE7,0xFF,0xFF,0xFF,0xFF,0xFF,
0xF3,0xE7,0xCF,0xCF,0xCF,0xE7,0xF3,0xFF,
0xCF,0xE7,0xF3,0xF3,0xF3,0xE7,0xCF,0xFF,
0xFF,0x99,0xC3,0x00,0xC3,0x99,0xFF,0xFF,
0xFF,0xE7,0xE7,0x81,0xE7,0xE7,0xFF,0xFF,
0xFF,0xFF,0xFF,0xFF,0xFF,0xE7,0xE7,0xCF,
0xFF,0xFF,0xFF,0x81,0xFF,0xFF,0xFF,0xFF,
0xFF,0xFF,0xFF,0xFF,0xFF,0xE7,0xE7,0xFF,
0xFF,0xFC,0xF9,0xF3,0xE7,0xCF,0x9F,0xFF,
0xC3,0x99,0x91,0x89,0x99,0x99,0xC3,0xFF,
0xE7,0xE7,0xC7,0xE7,0xE7,0xE7,0x81,0xFF,
0xC3,0x99,0xF9,0xF3,0xCF,0x9F,0x81,0xFF,
0xC3,0x99,0xF9,0xE3,0xF9,0x99,0xC3,0xFF,
0xF9,0xF1,0xE1,0x99,0x80,0xF9,0xF9,0xFF,
0x81,0x9F,0x83,0xF9,0xF9,0x99,0xC3,0xFF,
0xC3,0x99,0x9F,0x83,0x99,0x99,0xC3,0xFF,
0x81,0x99,0xF3,0xE7,0xE7,0xE7,0xE7,0xFF,
0xC3,0x99,0x99,0xC3,0x99,0x99,0xC3,0xFF,
0xC3,0x99,0x99,0xC1,0xF9,0x99,0xC3,0xFF,
0xFF,0xFF,0xE7,0xFF,0xFF,0xE7,0xFF,0xFF,
0xFF,0xFF,0xE7,0xFF,0xFF,0xE7,0xE7,0xCF,
0xF1,0xE7,0xCF,0x9F,0xCF,0xE7,0xF1,0xFF,
0xFF,0xFF,0x81,0xFF,0x81,0xFF,0xFF,0xFF,
0x8F,0xE7,0xF3,0xF9,0xF3,0xE7,0x8F,0xFF,
0xC3,0x99,0xF9,0xF3,0xE7,0xFF,0xE7,0xFF,
0xFF,0xFF,0xFF,0x00,0x00,0xFF,0xFF,0xFF,
0xF7,0xE3,0xC1,0x80,0x80,0xE3,0xC1,0xFF,
0xE7,0xE7,0xE7,0xE7,0xE7,0xE7,0xE7,0xE7,
0xFF,0xFF,0xFF,0x00,0x00,0xFF,0xFF,0xFF,
0xFF,0xFF,0x00,0x00,0xFF,0xFF,0xFF,0xFF,
0xFF,0x00,0x00,0xFF,0xFF,0xFF,0xFF,0xFF,
0xFF,0xFF,0xFF,0xFF,0x00,0x00,0xFF,0xFF,
0xCF,0xCF,0xCF,0xCF,0xCF,0xCF,0xCF,0xCF,
0xF3,0xF3,0xF3,0xF3,0xF3,0xF3,0xF3,0xF3,
0xFF,0xFF,0xFF,0x1F,0x0F,0xC7,0xE7,0xE7,
0xE7,0xE7,0xE3,0xF0,0xF8,0xFF,0xFF,0xFF,
0xE7,0xE7,0xC7,0x0F,0x1F,0xFF,0xFF,0xFF,
0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x00,0x00,
0x3F,0x1F,0x8F,0xC7,0xE3,0xF1,0xF8,0xFC,
0xFC,0xF8,0xF1,0xE3,0xC7,0x8F,0x1F,0x3F,
0x00,0x00,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,
0x00,0x00,0xFC,0xFC,0xFC,0xFC,0xFC,0xFC,
0xFF,0xC3,0x81,0x81,0x81,0x81,0xC3,0xFF,
0xFF,0xFF,0xFF,0xFF,0xFF,0x00,0x00,0xFF,
0xC9,0x80,0x80,0x80,0xC1,0xE3,0xF7,0xFF,
0x9F,0x9F,0x9F,0x9F,0x9F,0x9F,0x9F,0x9F,
0xFF,0xFF,0xFF,0xF8,0xF0,0xE3,0xE7,0xE7,
0x3C,0x18,0x81,0xC3,0xC3,0x81,0x18,0x3C,
0xFF,0xC3,0x81,0x99,0x99,0x81,0xC3,0xFF,
0xE7,0xE7,0x99,0x99,0xE7,0xE7,0xC3,0xFF,
0xF9,0xF9,0xF9,0xF9,0xF9,0xF9,0xF9,0xF9,
0xF7,0xE3,0xC1,0x80,0xC1,0xE3,0xF7,0xFF,
0xE7,0xE7,0xE7,0x00,0x00,0xE7,0xE7,0xE7,
0x3F,0x3F,0xCF,0xCF,0x3F,0x3F,0xCF,0xCF,
0xE7,0xE7,0xE7,0xE7,0xE7,0xE7,0xE7,0xE7,
0xFF,0xFF,0xFC,0xC1,0x89,0xC9,0xC9,0xFF,
0x00,0x80,0xC0,0xE0,0xF0,0xF8,0xFC,0xFE,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0x0F,0x0F,0x0F,0x0F,0x0F,0x0F,0x0F,0x0F,
0xFF,0xFF,0xFF,0xFF,0x00,0x00,0x00,0x00,
0x00,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0x00,
0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,
0x33,0x33,0xCC,0xCC,0x33,0x33,0xCC,0xCC,
0xFC,0xFC,0xFC,0xFC,0xFC,0xFC,0xFC,0xFC,
0xFF,0xFF,0xFF,0xFF,0x33,0x33,0xCC,0xCC,
0x00,0x01,0x03,0x07,0x0F,0x1F,0x3F,0x7F,
0xFC,0xFC,0xFC,0xFC,0xFC,0xFC,0xFC,0xFC,
0xE7,0xE7,0xE7,0xE0,0xE0,0xE7,0xE7,0xE7,
0xFF,0xFF,0xFF,0xFF,0xF0,0xF0,0xF0,0xF0,
0xE7,0xE7,0xE7,0xE0,0xE0,0xFF,0xFF,0xFF,
0xFF,0xFF,0xFF,0x07,0x07,0xE7,0xE7,0xE7,
0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,0x00,0x00,
0xFF,0xFF,0xFF,0xE0,0xE0,0xE7,0xE7,0xE7,
0xE7,0xE7,0xE7,0x00,0x00,0xFF,0xFF,0xFF,
0xFF,0xFF,0xFF,0x00,0x00,0xE7,0xE7,0xE7,
0xE7,0xE7,0xE7,0x07,0x07,0xE7,0xE7,0xE7,
0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,0x3F,
0x1F,0x1F,0x1F,0x1F,0x1F,0x1F,0x1F,0x1F,
0xF8,0xF8,0xF8,0xF8,0xF8,0xF8,0xF8,0xF8,
0x00,0x00,0xFF,0xFF,0xFF,0xFF,0xFF,0xFF,
0x00,0x00,0x00,0xFF,0xFF,0xFF,0xFF,0xFF,
0xFF,0xFF,0xFF,0xFF,0xFF,0x00,0x00,0x00,
0xFC,0xFC,0xFC,0xFC,0xFC,0xFC,0x00,0x00,
0xFF,0xFF,0xFF,0xFF,0x0F,0x0F,0x0F,0x0F,
0xF0,0xF0,0xF0,0xF0,0xFF,0xFF,0xFF,0xFF,
0xE7,0xE7,0xE7,0x07,0x07,0xFF,0xFF,0xFF,
0x0F,0x0F,0x0F,0x0F,0xFF,0xFF,0xFF,0xFF,
0x0F,0x0F,0x0F,0x0F,0xF0,0xF0,0xF0,0xF0
};
unsigned int key,i,x,y;
void petscii() {
clrscr();
for(i=51200;i<51200+256;i++) {
POKE(i,i-51200);
}
}
void main() {
memcpy(49152,&chars,sizeof(chars)); // load character data
POKE(56576,PEEK(57576)&252);
POKE(53272,32); // $3000 would be POKE(53272,(PEEK(53272)&240)+12);
POKE(648,200);
petscii();
key=cgetc();
}