Общий печатный стиль

ESC x                Выбор качественного или чернового шрифта
═════════════════════════════════════════════════════════════
Формат:
Код ASCII         ESC  x   n
Десятичный        27  120  n
Шестнацатиричный  1B   78  n
Коментарии:



Пример записи команды - "ESC Q n" - установка поля по правому знаку 60 - тремя способами:
Десятичный    -    LPRINT CHR¤(27) CHR¤(81) CHR¤(60)
Шестнацатиричный - LPRINT CHR¤(&H1B) CHR¤(&H51) CHR¤(&H3C)
Десятичный с кавычками - LPRINT CHR¤(27)"Q" CHR¤(60)

Знак &H указывает на шестнадцатиричную запись числа.

Пример программы на языке BASIC для распечатки каталога.

  1 REM Код команды ESC = J¤
  5 J¤ = CHR¤ (27)
 10 D¤ = CHR¤ (4)
 20 TEXT=2: HOME : RIBBON=3
 30 VTAB 15: PRINT "установите диск": WAIT ¤C000,¤80,0: GET A¤
 40 RIBBON= 2: INPUT "номер по картотеке =>"; NUM¤
 50 RIBBON= 7: INPUT "имя диска =>"; NAME¤

 55 REM Включение принтера
 60 PRINT : PRINT D¤"PR#4": PRINT : PRINT : PRINT SPC( 30): PRINT 

 65 REM Установка выделенного шрифта печати
 70 PRINT J¤;"!"; CHR¤ (10);"номер #"; NUM¤
 80 PRINT NAME¤

 85 REM Установка узкого шрифта, верхней индексации
 86 REM и вертикальной табуляции
 90 PRINT J¤;"!"; CHR¤ (20);J¤;"S"; CHR¤ (0);J¤;"A"; CHR¤ (5)
100 PRINT : PRINT D¤"CATALOG"
110 PRINT : PRINT D¤"PR#0": RUN