§ UDG
Иногда возникает желание написать что-то, помимо английского, и потому при помощи программы, написанной на ZX Spectrum Basic, я создал набор символов.
Рис 1. Слева код символа, потом UDG-символ
5 REM CHARS 144-162
10 DATA 0,126,64,124,66,66,124,0
11 DATA 0,126,64,64,64,64,64,0
12 DATA 0,60,36,36,36,36,126,66
13 DATA 0,73,42,28,28,42,73,0
14 DATA 0,66,70,74,82,98,66,0
15 DATA 0,30,34,34,34,34,98,0
16 DATA 0,126,66,66,66,66,66,0
17 DATA 0,66,66,62,2,2,124,0
18 DATA 8,62,73,73,73,62,8,0
19 DATA 0,68,68,68,68,68,126,2
20 DATA 0,68,68,68,60,4,4,0
21 DATA 0,84,84,84,84,84,124,0
22 DATA 0,84,84,84,84,84,126,2
23 DATA 0,192,64,124,66,66,124,0
24 DATA 0,66,66,114,74,74,114,0
25 DATA 0,64,64,124,66,66,124,0
26 DATA 0,124,2,14,2,2,124,0
27 DATA 0,76,82,114,82,82,76,0
28 DATA 0,62,66,66,62,18,34,0
30 RESTORE 10
40 FOR I=0 TO 19*8-1: READ A: POKE 65368+I,A: NEXT I
50 FOR I=0 TO 18
60 PRINT 144+I;" ";CHR$(65+I);" ";CHR$(144+I)
70 NEXT I
80 PRINT: PRINT CHR$(145);"O ";CHR$(146);"OK";CHR$(151);", ";CHR$(162);" CO3";CHR$(146);"A";CHR$(149)