ZX учебный класс - Курсивный шрифт для ZX Spectrum и словарь команд текстовых приключений

Модификация шрифта ZX Spectrum: курсив и жирный курсив / Словарь слов для текстовых приключений

Курсивные буквы с принтера

Программа модифицирует курсивные буквы двумя способами. Она идеально подходит для хакеров, у которых в принтере нет такой возможности, но пользоваться ею могут и остальные: буквы получаются красивее, чем в ПЗУ Spectrum. Можно использовать курсив или жирный курсив.

Для первого способа удалите команду RRA в метке BOLD, а для второго перепечатайте весь листинг. Программа написана на машинном языке для Gens.

ORG  50000
     CALL RAZV
     LD   HL,49000
     LD   BC,96
CHRS PUSH BC
     LD   B,3
LOOP LD   A,(HL)
     SRA  A
     LD   (HL),A
     INC  HL
     DJNZ LOOP
     LD   B,2
LOPP INC  HL
     DJNZ LOPP
     LD   B,3
LLOP LD   A,(HL)
     SLA  A
     LD   (HL),A
     INC  HL
     DJNZ LLOP
     POP  BC
     DEC  BC
     LD   A,B
     OR   C
     JR   NZ,CHRS
     RET
RAZV LD   HL,15616
     LD   DE,49000
     PUSH DE
     LD   BC,768
PETL LD   A,(HL)
BOLD RRA
     OR   (HL)
     LD   (DE),A
     INC  HL
     INC  DE
     DEC  BC
     LD   A,B
     OR   C
     JR   NZ,PETL
     POP  DE
     DEC  D
     LD   (23606),DE
     RET

Жирные буквы

Эта короткая программа позволяет выводить сообщения в BASIC жирными буквами.

10 FOR N=50000 TO 50027:READ A:POKE N,A:NEXT N
20 RANDOMIZE USR 50000
30 DATA 17,0,252,213,33,0

Словарь приключений

Поскольку большинство не покупает оригинальные игры, у вас нет и инструкций к приключенческим играм со словарём всех слов, которые понимает программа. Проще всего вывести программу в виде кодов CHR$. Сначала не дайте программе запуститься автоматически. Затем введите:

10 FOR N=65000 TO 65023:READ A:POKE N,A:NEXT N
DATA 33,168,97,126,254

Похожая программа на машинном языке работает гораздо быстрее:

ORG  65000
     LD   HL,25000
LL   LD   A,(HL)
     CP   32
     JRC  LOOP
     CP   128
     JR NC,LOOP
     RST  16
LOOP INC  HL
     LD   DE,65000
     PUSH HL
     SBC  HL,DE
     POP  HL
     JRC  ,LL
     RET

В этой рубрике ZX Revija решила в этом номере представить программы из предыдущих выпусков, которые, вероятно, многим пригодятся. Эти интересные программы взяты из старых номеров Moj Mikro; их авторы — разные люди.