40 SCREEN 0:KEY OFF
50 BASE(2)=2048
60 PRINT"Загрузка данных":PRINT
70 FOR I=4616 TO 4823
80    READ A$:VPOKE I,VAL("&h"+A$)
90    VPOKE I+256,VAL("&h"+A$)
100 NEXT
120 PRINT"Нажмите клавишу для изменения"
130 PRINT"      набора символов"
140 A$=INPUT$(1)
160 BASE(2)=4096
180 ' Б у к в ы  а л ф а в и т а
200 DATA 00,00,70,88,F8,88,88,00:'A
210 DATA 00,00,F0,48,70,48,F0,00:'B
220 DATA 00,00,78,80,80,80,78,00:'C
230 DATA 00,00,F0,88,88,88,F0,00:'D
240 DATA 00,00,F0,80,E0,80,F0,00:'E
250 DATA 00,00,F0,80,E0,80,80,00:'F
260 DATA 00,00,78,80,B8,88,70,00:'G
270 DATA 00,00,88,88,F8,88,88,00:'H
280 DATA 00,00,70,20,20,20,70,00:'I
290 DATA 00,00,70,20,20,A0,E0,00:'J
300 DATA 00,00,90,A0,C0,A0,90,00:'K
310 DATA 00,00,80,80,80,80,F8,00:'L
320 DATA 00,00,88,D8,A8,88,88,00:'M
330 DATA 00,00,88,C8,A8,98,88,00:'N
340 DATA 00,00,F8,88,88,88,F8,00:'O
350 DATA 00,00,F0,88,F0,80,80,00:'P
360 DATA 00,00,F8,88,A8,90,E8,00:'Q
370 DATA 00,00,F8,88,F8,A0,90,00:'R
380 DATA 00,00,78,80,70,08,F0,00:'S
390 DATA 00,00,F8,20,20,20,20,00:'T
400 DATA 00,00,88,88,88,88,70,00:'U
410 DATA 00,00,88,88,90,A0,40,00:'V
420 DATA 00,00,88,88,A8,D8,88,00:'W
430 DATA 00,00,88,50,20,50,88,00:'X
440 DATA 00,00,88,50,20,20,20,00:'Y
450 DATA 00,00,F8,10,20,40,F8,00:'Z