Редактор "THE LAST WORD 2"
Общее описание
TLW - это тектовый редактор для компьютеров "спектрум" н "спектрум плюс".
Экран содержит 256 точек в ширину и 192 в высоту. Генератор символов позво-
ляет печатать символы шириной 6, 5. 4. или 3 точки, что дает 42, 51. 64 или 85
символов в строке.
Операционная система редактора выделяет верхние три строки экрана для заго-
ловка ("хэдера"), где отображается 18 единиц информации о текущем состоянии
программы, текстового файла и положении курсора.
Разбивка текста
- нажмите обе клавиши SHIFT, в хэдере изменится режим WRITE на режим COMMAND;
- нажав CAPS SHIFT, нажмите "V" и в хэдере появится слово "VIDEO";
- теперь вы можете набрать 48. 60 или 80 для установки количества символов в
стррке виесто первоначальных 40;
в конце нажмите ENTER и ваш текст будет переписан в соответствии с выбран-
ным размером строки.
Клавиша ENTER - конец абзаца. Внутри файла-переход на следующую строку.
Команды перемещения курсора
- Вправо на один символ - CAPS SHIFT "8"
- Влево на один символ - CAPS SHIFT "5"
- Вверх на одну строку - CAPS SHIFT "7"
- Вниз на оДну стоку - CAPS SHIFT "6"
- Табуляция вправо - CAPS SHIFT "1" курсор смещается на величину
TAB или до левого поля, если оно ближе.
- Вправо на одно слово - CAPS SHIFT "4"
- Влево на одно слово - CAPS SHIFT "3"
- Вправо на одно предложение - CAPS SHIFT "W". Курсор сдвигается до бли-
жайшей точки, а затем устанавливается около следующей позиции.
- Вправо до конца строки - режим Е CAPS SHIFT "8"
- Влево к началу строки - режим Е CAPS SHIFT "5"
- К началу парвой строки - режим Е CAPS SHIFT "7"
- К началу последней строки , - режйм Е CAPS SHIFT "6"
- Вииз к началу первой строки следующей страницы
• - режим Е CAPS SHIFT "D".
Экран перепечатывается так. что последняя строка данной страницы устанавли-
вается первой строкой следующей.
- Вверх к началу предыдущей страницы - режим Е "U"
- К началу текстового файла - режим Е "А'г
- К концу текстового файла - режим Е "Z"
- К заданной строке - режим Е "N". Запрашивается и вводится
номер требуемой строки.
- Экран вверх на одну строку - режим Е CAPS SHIFT "3"
- Экран вниз на одну строку - режим Е CAPS SHIFT "4'
Команды обработки текста
- Стирание символа - CAPS SHIFT "О".
- Стереть текст до конца строки - CAPS SHIFT "9".
- Стереть текст до конца файла - режим Е CAPS SHIFT "9".
- Стереть весь текст - режим Е CAPS SHIFT "Z".
- Переключатель INSERT/OWERWRIТЕ - (вставить/переписать)
- режим Е "Г*.
В режиме 0WERWR1TE, когда вводится новый текст, курсор находится на верхней
границе файла и файл постепенно расширяется. Если курсор находится внутри фай-
ла, идет его "переписывание".
- Сдвинуть весь текст влево - CAPS SHIFT "Q".
- Сдвинуть текст вправо - CAPS SHIFT "Е".
- Централизовать текст в строке - режим Е "Н"
- Выровнять (JUSTIFY) строку - режим Е " J ".
- Ограничить пробелы в стр.оке - режим Е CAPS SHIFT "L".
- Переоформить (REFORM) текст от курсора до "конца абзаца"
- режим Е CAPS SHIFT "R".
- Вставить оператор управления печатью - CAPS SHIFT "I".
1. Число от 1 до 24. связанное с соответствующим кодом принтера, предназначен-
ным для управления принтером во время печати.
2. Число от 90 до 99. указывающее на строку в бейсике. к которой надо сделать
переход (строка определяется как 100, умноженное на это число, т. е. от 9000 до
9900).
3. Буква от А до Z со знаком когда требуется напечатать избранный бейси-
ковскнй стринг.
-«Ввод символа "копирайт" - режим Е CAPS SHIFT "К".Синклеровский знак "копи-
райт", CHRSI27, вводится по этой команде в файл.
- Повтор куска текста - режим Е "R".
- Удаление куска текста - режим Е "к".
- Поиск или изменение некоторого блока текста - режим Е "X".
Структурные команды и утилиты
- Переключатель "JUSTIFY/RAGGED" - режим Е "J".
- Переключатель W.WRAP/W.SPLIТ - (округление слов/перенос слов) - режим Е "W".
- Установка регистра букв на одну строку - режим Е "2".
- Включение в текст бейсиковского стринга - режим Е CAPS SHIFT "4".
- Включение/выключение контурной линии - режим Е "о".
- Включение/выключение видеомаркеров - режим Е "V".
- Переключатель регистров вр/нр - CAPS SHIFT "2".
- Установка величины правого поля - режим Е CAPS SHIFT "М".
- Установха величины разбивки экрана - режим Е CAPS SHIFT "V"
- Установка величины табуляции - режим Е CAPS SHIFT "Т".
- Изменение цвета бордюра - режим Е CAPS SHIFT "В".
- Изменение цвета хэдера - режим Е CAPS SHIFT "Н".
- Счетчик слов - режим Е CAPS SHIFT "Г.
- Работа калькулятора - режим Е CAPS SHIFT "С".
При написании математических выражений клавиатура модифицируется т.о.:
|
Функция |
клавиша |
SH I FT |
|
Функция |
клзвчша |
SHIFT |
|
Функция |
клавиша |
SHIFT I |
|
|
====*== |
S«*t=5S |
|
======= |
= = = = -K = = |
======= |
|
= = г = = = = |
======= |
= = = = = = = I |
|
+ |
К |
SYMB |
|
ACS |
С |
CAPS |
|
PI |
M |
CAPS | |
|
-• |
J |
SYMB |
|
ATN |
* т |
CAPS |
|
< |
R |
SYMB j |
|
* |
В |
SYMB |
|
exp |
X |
CAPS |
|
= |
L |
SYMB |
|
/ |
V |
SYMB |
|
SQR |
н |
CAPS |
|
< > |
W |
SYMB J |
|
|
н |
SYMB |
|
1 NT„ |
R |
CAPS |
|
> |
T |
SYMB j |
SIN I Q CAPS | ! LN | Z | CAPS | j > = | E | SYMB |
COS W CAPS I I VAL | J j CAPS j j OR { U | CAPS |
TAN I E CAPS j j SGN I F | CAPS | | AND j Y j CAPS j
ASN j S CAPS j j ABS j tf | CAPS | j NOT | S | CAPS |
- Установка времени - режим E CAPS SHIFT "X".
- Отбой введенной команды - CAPS SHIFT "Q".
- Возврат к бейсику - режим Е CAPS SHIFT "В".
Команды печати
- Управление печатью - режим е "G".
- Печать текста - режим Е "Р". Загорается меню, на котором изображены:
- номера первой и последней строк файла;
- установленное количество строк файла;
- состояние операторов управления печатью.
- Оператор BREAK переводит в бейсик.
- Файл РСТ (файл операторов управления принтером) - режим Е "Т".
Команды хранения и вызова файлов
- Записать текст на внешний носитель - режим Е "S".
- Загрузить текст - режим Е "L".
После команды LOAD вводится номер носителя 0 - для ленты и от I до 8 для мик-
родрайва- и имя. которое нужно отыскать.
- Раскаталогизировать картридж - режим Е "С".
- Стереть файл на картридже - режим Е "Е".
- Выполнить форматирование картриджа - режим Е "F".
Операторы непосредственного управления
принтером
Используя команду управления печатью, можно ввести стандартный префиксный
байт, который будет выдываться перед группой байтов РСТ и выполнять роль ини-
циатора для интерфейса или принтера.
|
N1 |
| метка |
| упр. коды |
|
N1 |
| метка | |
1 упр. |
коды |
|
N1 |
| метка | |
1 Упр. |
коды I |
|
= = = = ;х=1»г = = = = = :х:= = = = = = = = := |
|
= = : |
=============== |
====== |
|
=========== |
====== |
= = = = = = I |
|
1 |
FRM. F |
1 12 - - |
|
9 |
UNDL- |
3 27 |
45 48 |
|
17 |
ITAL + |
2 27 |
52 -| |
|
2 |
ELIT + |
2 27 77 - |
|
10 |
емрн+ |
2 27 |
69 - |
|
18 |
ITAL- |
2 27 |
53 |
|
3 |
PICA + |
2 27 80 - |
|
1 1 |
емрн- |
2 27 |
70 - |
|
19 |
BELL! |
1 7 |
- |
|
4 |
ENLG+ |
3 27 87 49 |
|
12 |
D.ST. + |
2 27 |
71 - |
|
20 |
PPR- |
2 27 |
56 -I |
|
5 |
ENLG- |
3 27 87 48 |
|
13 |
D.ST.- |
2 27 |
72 - |
|
21 |
PPR+ |
2 27 |
57 -| |
|
6 |
C0ND+ |
1 15 - - |
|
14 |
SUB + |
2 27 |
83 48 |
|
22 |
INITL |
2 27 |
64 -| |
|
7 |
C0ND- |
1 18 - - |
|
15 |
SUB- |
3 27 |
83 49 |
|
23 |
Э4/70 |
3 27 |
67 70 |
|
8 |
UNDL+ |
3 27 45 49 |
|
16 |
SP/в- |
2 27 |
84 - |
|
24 |
RRF |
3 27 |
78 91 |
|
2сгхгз=зх===:=з===гз===: |
|
============ |
======= |
======= = = = = |
========= |
====== |
======= |
стандартный префикс - 1
* Интерфейс ZX LPRINT III. Дополнительных кодов не надо.
* Интерфейс типа TASPRINT. Необходим собственный кодовый блок. Кодовый блок
"TASBUFF" загружается через бейснк до редактора. Адрес вызова 23296.
* Интерфейс типа KEMPSTON. После загрузки программы возврат- в бейсик и два
ввода: РОКЕ 65176,245: РОКЕ 65177.1
* Интерфейс типа MOREX. Вам надо написать простую бейсик-программу и запустить
ее после загрузки редактора. Например, такую:
10 DATA 245,219.251.230.1.32.250.241
20 DATA 211,251,62,1.211,127.175.211,127.201
30 FOR N-0 TO 17: READ A: POKE 65176+N.A
40 NEXT N: STOP
Сводка системных переменных
Блок в машинных кодах от 50000 до 65535
Адрес вызова ( 52410
Адрес возврата при печати * 65154
Режим работы процессора с перываннями 2-го типа
Размер текстового файла от 0 до 24к, начиная от RAMT0P+2
Файл операторов РСТ от 52193 до 52408
формат: 24 оператора, каждый из них включает в себя:
байты от 1"до 5 - коды ASCII
байты от 6 до 9 - коды от 0 до 254
Стандартный префикс - от 0 до 254 52409, I байт
Операторы .управления печатью 1...24 значения от 128 до 151
Операторы управления печатью 90 - 99 значения от 152 до 161
Операторы управления печатью А - Z значения от 230 до 255
Блок кодов интерфейса принтера
(под интерфейс кемпстон - Е) от 64954 до 64977
Память калькулятора 10 переменных от мО до м9
Переменные калькулятора как в бейсике
Длина включаемых стрингов до 4к
Имена включаемых стрингов от AS до ZS
Некотор ые системные переменные
Адрес очистки текстового файла 64978
Установка таймера 65189
Вершина пространства текстового файла 65193, 2 байта
Начало текстового файла 65195, 2 байта
Список транслируемых символов экрана от 65157 до 65165
Список транслируемых символов принтера от 65173 до 65181
Код "ВК" 65241
Код -ПС" 65242
Строка бейснка для выхода 65244, 2 байта
Величина разбивки экрана 65254
Адрес вызова принтера 65257
Последний байт текстового файла 65268
Адрес курсора в файле 65270
Колонка курсора в тексте 65272
Строка курсора в тексте 65272, 2 байта
Левое поле 65281
Правое поле 65282
Интервал между строк 65285
Количество печатных копий 65286
Установка виличины табуляции 65289
Введение русского шрифта в редактор
Если вы хотите, чтобы русский шрифт начинался с адреса 30000, то вам надо
заслать числа: '
РОКЕ 63661, 48: РОКЕ 63662,117
Обратите внимание, что 117*256+48 = 30000.
При возврате же на латинский шрифт нада естественно опять восстановить исход-
ные значения.
Соответствие между латинскими и
русскими символами
|
ssssa:a:asa:ss:sssssss = s = =:=: = = : |
|
:=s=sssssssss==3: |
= = = SSS= = 38 = e= = = =S== = = =rSS = = = = = = =S |
========== |
|
код! |
I ASCII I |
Iкои-7/Hl |
|
код! |
I ASCII I |
кои-7/Hl |
|
код! |
| ASCII | |
| кои-7/Hl |
|
1(К0И-7/Н0)j |
|
|(КОИ-7/НО)1 |
|
|
j(К0И-7/Н0)j |
1 __ |
|
32 |
|
пробел |
|
64 |
|
Ю |
|
96 |
фунт стерл |
ю |
|
33 |
j |
j |
|
65 |
А |
А |
|
97 |
а |
а |
|
34 |
|
•* |
|
66 |
В |
Б |
|
98 |
в |
б |
|
35 |
# |
# |
|
67 |
С |
Ц |
|
99 |
с |
ц |
|
36 |
$ |
% |
|
68 |
D |
Д |
|
100 |
d |
д |
|
37 |
% |
% |
|
69 |
Е |
Е |
|
101 |
е |
е |
|
38 |
& |
& |
|
70 |
F |
Ф |
|
102 |
f |
Ф |
|
39 |
|
|
|
71 |
G |
Г |
|
103 |
g |
г |
|
40 |
( |
( |
|
72 |
Н |
X |
|
' 104 |
н |
X |
|
41 |
) |
) |
|
73 |
I 4 |
И |
|
105 |
i |
и |
|
42 |
* |
* |
|
74 |
J |
Й |
|
106 |
j |
й |
|
43 |
+ |
+ |
|
75 |
К |
К |
|
107 |
к |
к |
|
44 |
|
|
|
76 |
L |
Л |
|
108 |
1 |
л |
|
45 |
- |
- |
|
77 |
М |
м |
|
109 |
м |
м |
|
46 |
|
|
|
78 |
N |
н |
|
1 10 |
п |
н |
|
47 |
/ |
/ |
|
79 |
0 |
0 |
|
1 1 1 |
о |
о |
|
48 |
0 |
0 |
|
80 |
Р |
п |
|
112 |
р |
п |
|
49 |
1 |
1 |
|
81 |
Q |
я |
|
N3 |
q |
я |
|
50 |
2 |
2 |
|
82 |
R |
р |
|
1 1 4 |
г |
р |
|
51 |
3 |
3 |
|
83 |
S |
с |
|
115 |
s |
с |
|
52 |
4 |
4 |
|
84 |
Т |
т |
|
1 16 |
т |
v т |
|
53 |
5 |
5 |
|
85 |
и |
У |
|
117 |
U |
У |
|
54 |
6 |
6 |
|
86 |
V |
ж |
|
118 |
v |
ж |
|
55 |
7 |
7 |
|
87 |
W |
в |
|
1 19 |
W |
в |
|
56 |
8 |
8 |
|
88 |
X |
ь |
|
120 |
X |
ь |
|
57 |
9 |
9 |
|
89 |
Y |
ы |
|
121 |
У |
м |
|
58 |
|
|
|
90 |
Z |
3 |
|
122 |
z |
3 |
|
59 |
; |
; |
|
91 |
[ |
ш |
|
123 |
< |
ш |
|
60 |
< |
< |
|
92 |
|
э |
|
124 |
|
э |
|
61 |
= |
= |
|
93 |
J |
ш |
|
125 |
> |
щ |
|
62 |
> |
> |
|
94 |
|
ч |
|
126 |
|
ч |
|
63 |
? |
9 |
|
95 |
|
' |
|
127 |
|
|
|
:= = = : |
===================== |
======= |
===================== |
|
г====в==========: |
= == = = = : |
В соответствии с этой таблицей ваша задача при создании русского шрифта
обеспечить, чтобы, например, 81-м шаблоном вместо шаблона буквы "Q" стоял шаб
лон буквы "Я", а вместо "Q" - "Я" и т.д.
Конструкция букв русского алфавита
Запустите (RUN) нижеприведенную программу. Когда она отработает, выгрузите
сформированный шрифт на ленту. Этот блок кодов расположен, начиная с адреса
30000 (запомните этот адрес) и имеет длину 768 байт (96 символов по 8 байт).
|
10 |
FOR I |
|
1 TO 768 |
1 46 |
DATA |
0, |
0,72,72,120,72.72,0 |
|
20 |
READ |
A |
|
1 47 |
DATA |
o. |
0,48,72,72,72,48,0 |
|
30 |
POKE |
(29999+1).A |
1 48 |
DATA |
0, |
0,120,72.72,72.72,0 |
|
40 |
NEXT |
1 |
|
1 49 |
DATA |
0, |
0.56.72,72,56.72,0 |
|
50 |
SAVE |
"RUS" CODE 30000.768 |
150 |
DATA |
0. |
0.112,72,72,112,64,0 |
|
100 |
DATA |
0, |
0.0.0.0.0.0. 0 |
151 |
DATA |
o. |
0,48,72.64,72,48.0 |
|
101 |
DATA |
0, |
16.16.16.16.0.16.0 |
152 |
DATA |
0. |
0.124,16,16.16,16,0 |
|
102 |
DATA |
0. |
36.36.0.0.0.0.0 |
153 |
DATA |
0, |
0,72,72.120,8,120,0 |
|
103 |
DATA |
0. |
36. 126,36.36. 126. 36. 0 |
154 |
DATA |
0, |
0,84,56,16 56,84,0
0,120,72.120,72,120,0 |
|
104 |
DATA |
0. |
8.62,40.62.10.62.8 |
155 |
DATA |
0, |
|
105 |
DATA |
0. |
98.100.8.16.38.70.0 |
156 |
DATA |
0, |
0,64,112.72.72.112,0 |
|
106 |
DATA |
0. |
16.40. 16, 42, 68.58,0 |
157 |
DATA |
0, |
0,68,116,76,76.116,0 |
|
107 |
DATA |
0. |
8. 16.0.0.0.0.0 |
158 |
DATA |
0, |
0,120,8,56,8.120,0 |
|
108 |
DATA |
0. |
4,8.8.8,8. 4. 0 |
159 |
DATA |
o. |
0,84, 84,84, 84. 124, 0 |
|
109 |
DATA |
0. |
32. 16. 16.16. 16.32.0 |
160 |
DATA |
0. |
0, 48.72.24.72.48.0 |
|
1 10 |
DATA |
0. |
0, 20. 8.62.8.20.0 |
161 |
DATA |
0, |
0.84, 84. 84. 84. 124. 4 |
|
1 1 1 |
DATA |
0. |
0. 8.8. 62. 8.8.0 |
162 |
DATA |
o. |
0,72,72,56,8.8.0 |
|
1 12 |
DATA |
0. |
0.0.0.0.8,8,16 |
163 |
DATA |
o, |
0. 96. 56. 40. 40. 56, 0 |
|
1 13 |
DATA |
0, |
0.0. 0.62.0.0.0 |
164 |
DATA |
0, |
92.84.116.84.84,92,0 |
|
1 1 4 |
DATA |
0. |
0.0.0,0,24.24.0 |
165 |
DATA |
0, |
56,72,72,120,72,72,0 |
|
1 15 |
DATA |
0, |
0,2,4,8,16,32,0 |
166 |
DATA |
0. |
120,64, 120,72.72, 120, 0 |
|
1 16 |
DATA |
0. |
60, 70,74,82.98.60.0 |
167 |
DATA |
0. |
72,72,72,72,72,120,8 |
|
1 17 |
DATA |
0, |
24. 40,8,8,8,62.0 |
168 |
DATA |
0. |
56.72.72,72,72,120.72 |
|
1 18 |
DATA |
0, |
60,66.2.60,64,126,0 |
169 |
DATA |
0, |
120.64, 120.64.64. 120.0 |
|
1 19 |
DATA |
0, |
60, 66, 12,2,66,60,0 |
170 |
DATA |
16.124.84.84.84,124,16.0 |
|
120 |
DATA |
0, |
8. 24.40,72, 126,8,0 |
171 |
DATA |
0, |
120,64,64.64,64.64,0 |
|
121 |
DATA |
0, |
126,64,124,2.66.60.0 |
172 |
DATA |
0. |
72. 48. 48, 48, 48, 72, 0 |
|
122 |
DATA |
0. |
60.64.124.66.66.60.0 |
173 |
DATA |
0. |
72.72.88.104.72.72.0 |
|
123 |
DATA |
0, |
126.2,4,8,16,16,0 |
174 |
DATA |
16 |
.72.72,88.104.72.72.0 |
|
124 |
DATA |
0. |
60,66.60.66,66,60.0 |
175 |
DATA |
0. |
36. 40, 48, 48, 40, 36, 0 |
|
125 |
DATA |
o. |
60.66.66.62.2.60.0 |
176 |
DATA |
0. |
56.72.72.72.72.72.0 |
|
126 |
DATA |
0. |
0.0. 16.0.0.16.0 |
177 |
DATA |
0. |
68.108.84,68.68.68.0 |
|
127 |
DATA |
0. |
0.16.0,0,16.16.32 |
178 |
DATA |
0. |
72.72.120.72.72.72.0 |
|
128 |
DATA |
0. |
0.4,8.16,8.4.0 |
179 |
DATA |
0. |
48.72.72.72.72.48.0 |
|
129 |
DATA |
0. |
0, 0, 62,0,62,0,0 |
1,80 |
DATA |
0. |
120.72.72.72.72.72.0 |
|
130 |
DATA |
0. |
0,16,8.4.8.16,0 |
181 |
DATA |
0. |
56,72.72.120.40.72.0 |
|
131 |
DATA |
0. |
60.66.4,8,0,8,0 |
182 |
DATA |
0, |
120.72.72.120.64.64,0 |
|
132 |
DATA |
0. |
0,72,84,116.84,72,0 |
183 |
DATA |
0. |
1 20.64.64.64.64. 120.0 |
|
133 |
DATA |
0. |
0.56.72.72.120,72.0 |
184 |
DATA |
0. |
124.16.16.16.16.16.0 |
|
134 |
DATA |
0, |
48.64,112,72,72,120,0 |
185 |
DATA |
0. |
72.72.72, 1 20.8.56.0 |
|
135 |
DATA |
0, |
0,72,72,72,72.120,8 |
186 |
DATA |
0. |
84. 84. 84. 56. 84. 84. 0 |
|
136 |
DATA |
0, |
48,8.120.72,72.120.0 |
187 |
DATA |
0. |
120.72.120.72.72.120.0 |
|
137 |
DATA |
0, |
0.48,72.120.64.56.0 |
188 |
DATA |
0. |
64.64.120.72.72.120.0 |
|
138 |
DATA |
0, |
0.56.84.84.56,16,0 |
189 |
DATA |
0. |
68.68. 1 16.76.76. 116.0 |
|
139 |
DATA |
0, |
0, 120, 64, 64, 64,64, 0 |
190 |
DATA |
0. |
120.8.8.56.8. 1 20. 0 |
|
140 |
DATA |
0, |
0, 72, 48.48.48.72. 0 |
191 |
DATA |
0. |
84. 84. 84, 84. 84. 12 1.0 |
|
141 |
DATA |
0, |
0.72.88.104.72.72,0 |
192 |
DATA |
0. |
48.72.24.8.72.48.0 |
|
1 42 |
DATA |
0, |
16.72.88.104,72,72,0 |
193 |
DATA |
0. |
84.84,84.84.84.124,4 |
|
143 |
DATA |
0, |
0,72,80,96,80,72,0 |
194 |
DATA |
0, |
72,72.72.120,8.8,0 |
|
144 |
DATA |
0, |
0.56,72,72,72,72.0 |
195 |
DATA |
60 |
.66.153.161.161.153.66.60 |
|
145 |
DATA |
0. |
0,68.108,84.84.68,0 |
|
|
|
|
Порядок переделки программы на русский
шрифт
1. Загрузите фирменную программу TLW2.
2. На вопрос о том. подключен ли принтер, ответьте "N".
3. Перейдите в режим 40 знаков в строке (режим Е +"V"). На экране появится
запрос VIDEO: дайте в ответ число 40. Выйдите в бейснк (режим Е + "В") Теперь
можно вносить изменения в программу.
4. Чтобы обеспечить место для изменений дайте прямую команду CLEAR 31000. Те-
перь в строке 30 поднимите адрес RAMTOP, задаваемый оператором CLEAR до 31000.
Далее в строке 30 поместите команду на загрузку русского шрифта, сформирован-
ного ранее.
Строка 30 примет вид (изменения подчеркнуты):
30 CLEAR VAL "31000": GO SUB VAL 100: PRINT ": LOAD "TLW2" CODE
LOAD "RUS-CODE 30000,768: GO TO VAL 1000
5. Строки 40,70,80, предназначенные для работы с микродрайвом, можете уда-
лить, если у вас его нет.
6. Строка 60 предназначена для выгрузки настроенной программы на ленту. Вне-
сите в нее изменения с тем, чтобы выгружался и встроенный русский шрифт.
60 SAVE "TLW2"C0DE VAL "50000,VAL"15535": SAVE "RUS" CODE 30000,768:
GO TO VAL"90"
7. В строке 3000, которая инициализирует программу, введите два новых пара-
метра L и R. Это номера 'строк, в которых начинается переделка шрифта:
L * 7000 - русский шрифт.
R * 8000 - латинский шрифт.
3000 LET R=7000:LET L-8000:RANDOM IZE USR VAL "52410"
8. Введите новые семитысячные строки, обеспечивающие печать русскими буквами:
7000 REM
7010 REM *** RUSSIAN LETTERS ***
7020 REM
ввод 1-го вектора для вырезания
столбцов.
7030 RESTORE 7500
7040 FOR 1-63133 то 63195
7050 READ А
7060 POKE I,А
7070 NEXT I
ввод 2-го вектора для вырезания строк '
7080 RESTORE 7600
7090 FOR 1-63231 ТО 63293
7100 READ А
первый вектор
7500 DATA 131,7.7,7,7.7
7510 DATA -131,7.7,7,7.7,7
7520 DATA 131,7.7,7.7,7.7
7530 DATA 131.7,131.7,7,131,7
7540 DATA 131,7,131,7,7,131
7550 DATA 7,7,7.7.7.131
7560 DATA 7.7.7.7. 131,7, 131
7570 DATA 7.7,7,131,7,7.131
7580 DATA 7,131.7,7.131.7.131
7590 DATA 7.131,7
второй вектор
7600 DATA 171.167.167.167.167.167,171
7610 DATA 167.167,167.167.167.167.171
7110 POKE 1,A
7120 NEXT I
подключение русского шрифта
7130 POKE 63661,48.P0KE 63662,117
отключение процедур изображения
символов "A","Y", "D"
7140 РОКЕ 63669,250:РОКЕ 63670,250:
РОКЕ 63683,250
7620 DATA 167,167.167,167.167,167.199
7630 DATA 167.171.167.167,179.167.171
7640 DATA 167.171.167.151.155.167.167
7650 DATA 167.167.167.171.167.167.151
7660 DATA 151.211.167.171.167.167.167
7670 DATA 167.167.167.199.167.171.167
7680 DATA 167.169.167.171.167.171.167
7999 GO TO 3000
9. Введите новые восьмитысячные строки, обеспечивающие печать латинскими бук-
вами.
8000 REM
8010 REM *** ENGLISH LETTERS
8020 REM
ввод 1-го вектора
8030 RESTORE 8500
8040 FOR 1=63133 TO 63195
8050 READ A
8060 POKE I.A
8070 NEXT 1
ввод 2-го вектора
8080 RESTORE 8600
8090 FOR I-63231 TO 63293
8100 READ A
8110 POKE 1.A
8120 NEXT I
поключение латинского шрифта
8130 POKE 63661,0:POKE 63662,61
подключение процедур печати
символов "A","D","Y"
8140 POKE 63669,97:POKE 63676,68:
POKE 63683,89
первый вектор
8500 DATA 137.13.13,13.25.13.13
8510 DATA 21.13.82.13.49.7.137
8520 DATA 13.13.13.37.25.13.35
8530 DATA 13.137.137,137.137,67.112
8540 DATA 131,7,131.7.73.25.69
8550 DATA 67. I 1. I I . 35. I 1 . 11 . 67
8560 DATA 67.67.35. 1 31 . 1 1 . 1 1 . 11
8570 DATA 25.67.11.67.11.131.131
8580 DATA 131.11.67.82.49,70
второй вектор
8600 DATA 185.185.185.185.185.185.185
8610 DATA 185.185.229,185.179.185,1S5
8620 DATA 157,185.185.173,185,185.199
8630 DATA 185.181,181,181,173.211.241
8640 DATA 199,143,199,248,211,157.217
8650 DATA 211.179.179.227.179.179.199
8660 DATA 211.203.227.227.179.179,179
8670 DATA 179,203,179,199,179,171.171
8680 DATA 179. 179, 199. 229..22-7, 203. 227
10. Загрузите заранее подготовленный 768-байтный блок кодов, содержащий
русский шрифт.
LOAD ""CODE 30000,768
11. Теперь вы можете выгрузить созданную копию редактора на ленту командой GO
ТО 50.
12. Для проверки войдите в редактор командой GO ТО 3000.
13. Далее выполняйте выход из редактора в бейсик через (режим Е +"В"), а вход:
GO ТО R - в русский шрифт;
GO ТО L - в латинский шрифт;
