https://emuverse.ru/w/index.php?action=history&feed=atom&title=%D0%A0%D0%B0%D0%B4%D0%B8%D0%BE-86%D0%A0%D0%9A%2F%D0%A0%D0%B0%D0%B4%D0%B8%D0%BE_07%2C08-91%2F%D0%9D%D0%BE%D0%B2%D1%8B%D0%B9_%D0%B7%D0%BD%D0%B0%D0%BA%D0%BE%D0%B3%D0%B5%D0%BD%D0%B5%D1%80%D0%B0%D1%82%D0%BE%D1%80%2F%D0%A2%D0%B0%D0%B1%D0%BB%D0%B8%D1%86%D0%B0_2
Радио-86РК/Радио 07,08-91/Новый знакогенератор/Таблица 2 - История изменений
2026-05-03T23:53:12Z
История изменений этой страницы в вики
MediaWiki 1.40.0
https://emuverse.ru/w/index.php?title=%D0%A0%D0%B0%D0%B4%D0%B8%D0%BE-86%D0%A0%D0%9A/%D0%A0%D0%B0%D0%B4%D0%B8%D0%BE_07,08-91/%D0%9D%D0%BE%D0%B2%D1%8B%D0%B9_%D0%B7%D0%BD%D0%B0%D0%BA%D0%BE%D0%B3%D0%B5%D0%BD%D0%B5%D1%80%D0%B0%D1%82%D0%BE%D1%80/%D0%A2%D0%B0%D0%B1%D0%BB%D0%B8%D1%86%D0%B0_2&diff=1222&oldid=prev
Panther: http://retro.h1.ru/RK86/Programm/FontTbl2.txt
2008-12-10T11:28:48Z
<p>http://retro.h1.ru/RK86/Programm/FontTbl2.txt</p>
<p><b>Новая страница</b></p><div>{{ДИ|Автор= Ю. ИГНАТЬЕВ | Источник= http://retro.h1.ru/RK86/Programm/FontTbl2.txt}}<br />
<br />
<pre><br />
Таблица 2<br />
10 REM FONT DESIGNER V2.5 <br />
20 CLS<br />
50 BS=&5000<br />
40 CUR 15,20: PRINT "*** ПРОЕКТИРУЕМ "; <br />
50 PRINT "ЗНАКОГЕНЕРАТОР ***" <br />
60 CUR 10,14: PRINT "+--------+" <br />
70 CUR 10,5: PRINT "+--------+" <br />
80 FOR I=15 TO 6 STEP-1: CUR 10,1 <br />
90 PRINT" ' '": NEXT I<br />
100 GOSUB 7401 CUR 24,14: PRINT "НОМЕР ЗНАКА : "; <br />
110 PRINT CHR$(8);CHR$(8);CHR$(8); <br />
120 CUR 37,14: PRINT " ":CUR 58,14 <br />
130 INPUT С: ST=8*C <br />
140 FOR I=0 TO 7: B=PEEK(BS+ST+1) <br />
150 CUR 5,15-I: PRINT @(B): GOSUB 670: NEXT I <br />
160 GOSUB 740: CUR 24,15: PRINT "I - СЛЕДУЩИЙ ЗНАК," <br />
170 PRINT TAB(24); "2 - РЕДАКТИРОВАНИЕ," <br />
180 PRINT TAB(24)) "5 - ИНВЕРСИЯ," <br />
190 PRINT TAB(24); "4 - ОЧИСТКА ЗНАКОМЕСТА," <br />
200 PRINT TAB(24); "5 - ЗАКОНЧИТЬ РАБОТУ." <br />
210 PRINT TAB(24); " ВЫБИРАЙТЕ : "; <br />
220 FOR I=0 TO 5: PRINT CHR$(8);: NEXT I <br />
230 N$=INKEY$: IF LEN(N$)=0 THEN 230 <br />
240 N=ASC(N$)-48<br />
250 IF N<1 OR N>5 OR N<>INT(N) THEN 160 <br />
260 ON N GOTO 100, 270, 610, 640, 780 <br />
270 X=0: Y=0: ADR=BS+ST<br />
280 GOSUB 740: CUR 24,13: PRINT " "; <br />
290 PRINT " КЛАВИШИ :"<br />
300 PRINT ТАВ(24); "ПЕРЕМЕЩЕНИЕ - 'СТРЕЛКИ'," <br />
310 PRINT ТАБ(24); "ПОСТАВИТЬ ТОЧКУ - 'ТОЧКА'," <br />
320 PRINT TAB ( 24); "СТЕРЕТЬ ТОЧКУ - 'ПРОБЕЛ'," <br />
330 PRINT ТАВ(24); "В ОСНОВНОЕ МЕНЮ) - 'R'." <br />
340 Y=O: X=0: GOSUB 720 <br />
350 A$=INKEY$: IF LEN(A$)=0 THEN 350 <br />
360 A=ASC(A$): RESTORE <br />
370 FOR K=I TO 7 <br />
380 READ M<br />
390 IF A=M THEN 420 <br />
400 NEXT К <br />
410 GOTO 350<br />
420 ON К GOTO 430, 450, 470, 490, Э10, 560, 160 <br />
430 IF X<=0 THEN 350 <br />
440 X=X-1: GOSUB 720: GOTO 350 <br />
450 IF X>=7 THEN 350 <br />
460 X=X+1: GOSUB 720: GОТО 350 <br />
470 IF Y<=0 THEN 350 <br />
480 Y=Y-1; GOSUB 720: GОТО 350 <br />
490 IF Y>=7 THEN 350 <br />
500 Y=Y+1: GOSUB 720: GОТО 350 <br />
510 GOSUB 720: ADR=BS+ST+Y <br />
520 PRINT " ", CHR$(8);<br />
530 BT=PEEK(ADR) AND NOT (2^(7-X)): POKE ADR,BT <br />
540 CUR 5,13-Y: PRINT @(BT) <br />
550 GOSUB 720: GOTO 350 <br />
560 GOSUB 720: ADR=BS+ST+Y <br />
570 PRINT CHR$(23); CHR$(8); <br />
580 BZ=PEEK(ADR) OR (2^(7-X): POKE ADR,BZ <br />
590 CUR 5,13-Y: PRINT @(BZ) <br />
600 GOSUB 720: GOTO 350<br />
610 FOR I=0 TO 7: ADR=BS+ST+I: BN=NOT(PEEK(ADR)) <br />
620 BN=BN AND 255: POKE ADR,BN: NEXT I <br />
630 GOSUB 720: GOTO 140 <br />
640 FOR I=0 TO 7: ADR=BS+ST+I <br />
650 POKE ADR,255: NEXT I <br />
660 GOSUB 720: GOTO 140<br />
670 FOR J=7 TO 0 STEP -1; BR=INT(B/(2^J) <br />
680 CUR 18-J,18-I<br />
690 IF BR=0 THEN PRINT " ": GOTO 710 <br />
700 PRINT CHR$(23); <br />
710 B=B-BR*2^J: NEXT J: RETURN <br />
720 PRINT CHR$(27);"Y";CHR$(Y+45);CHR$(X+43); <br />
730 RETURN<br />
740 CUR 24,13: FOR I=0 TO 6 <br />
750 PRINT TAB(24);" <br />
760 NEXT I: RETURN <br />
770 DATA 8,24,25,26,46,32,82<br />
</pre><br />
<br />
[[Категория:Радио-86РК/Публикации|632]]</div>
Panther