Теперь можно приступить к модификации кодовой части Masterfile.
Для этого наберите и выполните приведенную ниже программу. Она дана в
варианте, предназначенном для кассетной версии Masterfile; для дисковой
версии измените строку с номером 100, она должна выглядеть следующим
образом: 100 LET b$=4ES".
10 CLEAR 56980
100 LET b$="NO"
110 IF b$<>"YES" THEN GO TO 200
120 LET e=USR 15619: REM : LOAD "MF mcode"CODE
130 IF i<>0 THEN PRINT "File ""mcode <C>"" not found!": STOP
140 GO TO 300
200 PRINT "Insert source cassette"
210 LOAD "MF mcode"CODE
300 RESTORE 1000
305 LET c=0
310 FOR «=56981 TO 57319
320 READ d: POKE a,d: LET c=c+(a~56981)/(d+1)
330 NEXT a
340 RESTORE 2000
350 READ d$
352 IF d$="END" THEN GO TO 395
355 LET s=VAL d$( TO 5): LET d=s+LEN d$(6 TO )-1
356 LET c=c+d/256
360 FOR a=s TO d
370 POKE a .CODE d$(a—s+6)
380 NEXT a
385 POKE a—1,128+PEEK (a—1)
390 GO TO 350
395 IF INT C011763 THEN PRINT "Error in DATA": STOP
400 IF b$<>"YES" THEN GO TO 500
410 LET e=USR 15619: REM : SAVE "MFrmcode"CODE 56981,8555
420 IF e<> 0 THEN PRINT "Can't write file MFrmcodel": STOP
430 GO TO 600
500 PRINT "Insert destination cassette"
510 SAVE "MFrmcode"CODE 56981,8555
600 PRINT "ok!"
1000 DATA 33,64,223,34,123,92,62,165,50,157
1010 DATA 227,33,198,222,62,195,50,165,227,34
1020 DATA 166,227,33,6,223,50,241,230,34,242
1030 DATA 230,33,228,222,50,38,250,34,39,250
1040 DATA 33,64,223,34,123,92,195,173,227,225
1050 DATA 193,197,229,65,126,254,128,56,10,214
1060 DATA 144,48,6,254,20,56,2,62,63,119
1070 DATA 35,16,237,225,193,9,195,168,227,254
1080 DATA 32,48,23,198,32,205,28,223,205,255
1090 DATA 222,229,33,0,60,34,54,92,33,144
1100 DATA 244,34,230,243,225,201,229,33,67,250
1110 DATA 195,42,250,230,127,254,32,48,12,198
1120 DATA 32,205,28,223,215,205,240,222,195,244
1130 DATA 230,215,195,244,230,229,33,64,222,34
1140 DATA 54,92,33,43,223,34,230,243,225,201
1150 DATA 25,49,49,137,25,148,7,25,37,148
1160 DATA 49,13,148,148,13,25,37,49,37,49
1170 DATA 37,0,62,66,66,62,34,66,0,0
1180 DATA 124,64,124,66,66,124,0,0,68,68
1190 DATA 68,68,68,126,2,0,28,36,36,36
1200 DATA 36,126,66,0,60,66,30,2,66,60
1210 DATA 0,0,62,73,73,73,62,8,0,0
1220 DATA 126,64,64,64,64,64,0,0,66,66
1230 DATA 66,62,2,2,0,0,66,70,74,82
1240 DATA 98,66,0,0,73,73,62,73,73,73
1250 DATA 0,0,68,72,112,72,68,66,0,0
1260 DATA 30,34.34,34,34,98,0,0,65.73
1270 DATA 73,73,73,127,1,0.65,73.73.73
1280 DATA 73.127,0,0,66,66,36,24,16,96
1290 DATA 0,0,126,66,66,66,66,66,0,0
1300 DATA 66,66,114,74,74,114,0,0,64,64
1310 DATA 124,66,66,124,0,24,66,70,74,82
1320 DATA 98,66,0,0,192,64,124,66,66,124
1330 DATA 0,0,76,82,114,82,82,76,0,0
2000 DATA "62213tnvalid file"
2010 DATA "65227<S>kip <U>pdate"
2020 DATA "59322FILE FULL!"
2030 DATA "END "
После запуска программы оператором RUN русифицированный кодо-
вый блок дисковой версии Masterfile создается автоматически. Для модифи-
кации кассетного варианта после появления запроса Insert source cassette за-
пустите на воспроизведение кассету с исходной версией Masterfile и нажми-
те любую клавишу. После создания в памяти компьютера кассетного вари-
анта русифицированного кодового блока на экране появится запрос
Insert cfestinafion cassette. Последующие действия тривиальны: включите магни-
тофон на запись и нажмите любую клавишу.
Если Вы недостаточно внимательно вводили информацию в операто-
рах DATA, программа выдаст сообщение Error in DATA. Проверьте текст,
исправьте ошибки и снова запустите программу.
ПРОГРАММА-ЗАГРУЗЧИК
Загрузчик предназначен для работы с русифицированным (указан-
ным выше способом) вариантом Masterfile. Для дисковои версии он выгля-
дит так:
1 STOP
10 CLEAR VAL "56980"
20 LET e=USR VAL "15619": REM : CAT
30 IF e<> NOT PI THEN CLS : PRINT "Fault in catalogue": GO SUB VAL "200":
GO TO SGN PI
40 INPUT "Enter filename (or press Enter): LINE c$
50 IF c$="" THEN LET c$="MF rus"
60 LET e=USR VAL "15619": REM : LOAD c$
70 IF e=SGN PI THEN CLS : PRINT "File not found": GO SUB VAL "200":
GO TO EXP PI-PI
80 CLS : PRINT "Can't load file!": GO SUB VAL "200": STOP
200 BEEP SQR PI/PI,PI: RETURN
Аля кассетной версии нужно удалить строки 20, 30, 70, 80, 200, а
строку 60 заменить на 60 LOAD с$. Загрузчик записывается на магнитный
носитель:
для кассетной версии: SAVE "MF" LINE 10
для дисковой версии: RANDOMIZE USR 15619: REM : SAVE "MF" LINE 10
Работает загрузчик следующим образом. Сначала на экран выводится
каталог диска (только для дисковой версии), затем на запрос
Enter filename (or press Enter): нужно ввести имя персонализированного
Masterfile, хранящего требуемую базу данных (если просто нажать Enter, то
будет загружен файл MF rus — «чистая» программа Masterfile).
