10 CLEAR 200,&HE800                 'Место в RAM для шаблонов символов
20 FOR T=0 TO 2047:POKE &HE800+T,PEEK(&H1BBF+T):NEXT
30 FOR I=0 TO 7:READ M:POKE &HE800+213*8+I,M:NEXT
40 DATA &H00,&H00,&H42,&h81,&H81,&H81,&H99,&H66
50 POKE &HF91F,&H8B                 'Номер  с л о т а  памяти
60 POKE &HF920,0:POKE &HF921,&HE8   'Начальный адрес ячеек памяти, в которых располагаются шаблоны символов
70 'А теперь посмотрим!
80 SCREEN 0:WIDTH 80:PRINT CHR$(213):A$=INPUT$(1)
90 SCREEN 0:WIDTH 40:PRINT CHR$(213):A$=INPUT$(1)
100 SCREEN 1:PRINT CHR$(213):A$=INPUT$(1)