Язык программирования Форт


Глава 12. Редакторы Форта - часть 8


но вам нужно сначала описать слова для перемещения курсора в верхний левый угол (без стирания чего-либо), для сдвига курсора вниз на одну строку и для перемещения курсора на одну позицию. Эти слова могут быть описаны с помощью управляющих кодовых последовательностей, которые описаны с привлечением CONTROL. Эти модификации программы для и - единственное, что необходимо, чтобы заставить редактор работать на любом дисплее, который отображает по крайней мере 16 строк по 64 символа в каждой. Изменения, предлагаемые для других блоков, являются чисто рекомендательными, но сделают работу с редактором

0 ( 20 июля 85 Экранный редактор NS 04 из 10 ) 1 ( Если возможно, Опишите ,,, здесь ) 2 ( для того, чтобы использовать вместо в описаниях ) 3 ( в строках 4, 5, 6 и 7. ) 4 : LEFT COL @ 0 > IF -1 COL +! ( или ) THEN ; 5 : RIGHT COL @ 63 < IF 1 COL +! ( или ) THEN ; 6 : UP ROW @ 0 > IF -1 ROW +! ( или ) THEN ; 7 : DOWN ROW @ 15 > IF 1 ROW +! ( или ) THEN ; 8 : ( -- ) BLEFT SPACES : ( стереть конец строки ) 9 : NEWLINE ( -- ) DOWN ; ( курсор в начало следующей строки ) 10 : SHOWLINES ( -- ) @CURSOR 16 ROW @ ( отображение строк ) 11 DO I ROW ! LSTART 64 -TRAILING TYPE LOOP 12 ! CURSOR ; 13 : SHOWBLK ( -- ) @CURSOR SHOWLINES ! CURSOR ; 14 : TYPELINE ( -- ) CPOS BLEFT 1+ OVER OVER TYPE -TRAILING 15 SWAP DROP BLEFT 1+ - SPACES ;

удобнее и производительнее.

Ваш видеодисплей или терминал может воспроизводить управляющие кодовые последовательности для перемещения курсора в начало строки или в верхний угол экрана. Если это так, то вам следует использовать CONTROL для описания так, чтобы перемещать курсор в начало строки, и для установки его вверх влево. Эти слова могут затем использоваться вместо в описаниях и в строках 4 и 5. Это сделает редактирование более удобным и быстрым.

Редактор будет более быстрым и удобным, если ваше оборудование позволяет и вы можете заменить в строках 4-7 словами, описанными в строках с 1-й по 3-ю или ранее. должно перемещать курсор на предшествующую позицию, - на одну позицию вперед.


Начало  Назад  Вперед



Книжный магазин