Игра "Зона" на ДВК

Цитата:

---

Сообщение от hobot

а что тебя смущает - честно не понял?

---

Код:

---

PROGRAM HELLO;

BEGIN
        WRITELN('pRIVET MIR',CHR(15));
END.

rt11 RU PASDWK.SAV HELLO,HELLO=HELLO.PAS

        .GLOBL        $RESR6,$RESR5,$KORE,$SAV10,$VER
        .GLOBL        $BEGIN,FILE,$TTY,$END
        .RADIX        10
        $VER=59.
$BEGIN:
        JSR        %7,$B127
        .GLOBL        $B127
        MOV                #L0,-(6)
        MOV        #10,-(6)
        CLR        -(6)
        JSR        %7,$B32
        .GLOBL        $B32                <-- это WRITE('pRIVET MIR')
        MOV        #15,-(6)
        CLR        -(6)
        JSR        %7,$B20                <-- это WRITE(CHR(15)) -- лишний вызов
        .GLOBL        $B20
        JSR        %7,$B36                <-- это WRITELN
        .GLOBL        $B36
        JMP        $END
L0:        .WORD        21104
        .WORD        22089
        .WORD        21573
        .WORD        19744
        .WORD        21065
        .WORD        0
        .END

---

В коде Сталкера есть строки, которые содержат спецсимволы ПРЯМО В СТРОКЕ, без лишних вызовов печати для них.

Код:

---

L40450:        .ASCIZ        <011><011>/Темный  коридор ...    /<000>

---

Я хочу понять как внедрить спецсимволы в строку, какой синтаксис использовать.

Write('#11#11Темный коридор ... ') ?

Цитата:

---

Сообщение от nzeemin

Я хочу понять как внедрить спецсимволы в строку, какой синтаксис использовать.

---

я всё равно не понимаю, что ты "спец-символами" называешь??? посмотри мой ответ в теме Паскаля и прибавь к нему
возможность такую WRITELN('Привет мир!',' ':10);
или WRITE(CHR(9),' - это табуляция','':10,' - а это просто ничего ;^)');

- - - Добавлено - - -

Цитата:

---

Сообщение от Hunta

Write('#11#11Темный коридор ... ') ?

---

что за бред? откуда вы это всё тащите???

Цитата:

---

Сообщение от Hunta

Write('#11#11Темный коридор ... ') ?

---

Нет, не угадал.
Это работает во FreePascal, но вне кавычек конечно: Write(#9#9'Темный коридор ... ')

Цитата:

---

Сообщение от hobot

что за бред? откуда вы это всё тащите???

---

Отвали


nzeemin, Write(CHR(9)+CHR(9)+'Темный коридор ... ')? (у меня нет под рукой компилятора)

Хобот, тут Никита о том, что Паскаль в случае Write('abc', CHR(15), ...) не сливает спецсимволы в одну строку, чтобы вывести её разом, но вместо этого генерит несколько вызовов.

Подтверждаю, что не сталкивался с тем как в таких простых и старых Паскалях решить эту проблему. Конкатенации строк там явно нет.

Кстати, Хобот, тут как раз тебе карты в руки, ты ведь много на этих Паскалях кодил, видел исходники. Как записать внедрение кодов в строку? На "большом" Паскале мы делаем это так: Write('abc'+#15)

Цитата:

---

Сообщение от hobot

я всё равно не понимаю

---

вот и не лезь

nzeemin, может оказаться, что на PASDWK эта проблема решения не имеет, а Zona делалась на другом Паскале.

- - - Добавлено - - -

Цитата:

---

Сообщение от Hunta

Write(CHR(9)+CHR(9)+'Темный коридор ... ')? (у меня нет под рукой компилятора)

---

У меня есть под рукой компилятор. Так не работает.

- - - Добавлено - - -

Write(#9#9'Темный коридор ... ') - так тоже не работает.

Цитата:

---

Сообщение от nzeemin

Нет, не угадал.

---

в текстовом редакторе Nys - табуляцию можно вставлять прямо между ' ' нажатием табуляции ;-)
вот такой код как пример

Код:

---

PROGRAM TROSTROKI;
BEGIN

        WRITELN('СТРОКА 1              :');
        WRITELN('СТРОКА 2',':':14);
        WRITELN('':20,'ПРИВЕТ!!!');
END.

HD7>PASDWK TRISTR=TRISTR

ERRORS DETECTED:  0
FREE MEMORY: 10276  WORDS


HD7>MAC TRISTR

HD7>LIN TRISTR,PASDWK

HD7>RU TRISTR
СТРОКА 1                :
СТРОКА 2            :
                  ПРИВЕТ!!!

HD7>

---

- - - Добавлено - - -

Цитата:

---

Сообщение от Oleg N. Cher

Кстати, Хобот, тут как раз тебе карты в руки

---

не надо мне никаких карт, дайте ссылку на DECOBJ и я про эту тему забуду как про кошмар,
что там в .MAC - файле твориться мне всегда было по барабану, хоть на каждую букву по отдельно вызову - мне то что?

И конечно я привел пример выделения количества символов под "переменную" в конце строки и тут в мой ответ в теме по Паскалю...

Цитата:

---

Сообщение от hobot

табуляцию можно вставлять прямо между ' ' нажатием табуляции ;-)

---

Аха, повтори вот это одной строкой

Код:

---

A45016:
        .ASCII        |J|<CR><LF>|Ладно, я кое-что подскажу. Итак: здесь творится черт знает что,|<CR><LF>|но на восьмом уровне |
        .ASCII        |лежит золотой шар. Только достав его, Вы|<CR><LF>|сможете выйти из подземелья,придя на то же место, откуда вы |
        .ASCII        |вышли|<CR><LF>|вначале. Своим глазам не всегда стоит доверять!|<CR><LF>| Вы можете использовать команды:|<CR><LF>
        .ASCII        |A - Купить (на золото)|<CR><LF>|B - Заменить батареи|<CR><LF>|D - Выбросить предмет|<CR><LF>|E - Поесть|<CR><LF>
        .ASCII        |F - Приготовиться к сражению|<CR><LF>|H - HELP (этот текст)|<CR><LF>|I - Надеть кольцо|<CR><LF>|J - Обновить |
        .ASCII        |экран|<CR><LF>|K - Сломать стенку (киркой)|<CR><LF>|L - Включить фонарь|<CR><LF>|M - Приготовить оружие|<CR><LF>
        .ASCII        |N - Клавиша "Идет начальник" (отбой тревоги - "P")|<CR><LF>|O - Выключить фонарь|<CR><LF>|P - Надеть доспехи|<CR>
        .ASCII        <LF>|Q - Пить|<CR><LF>|R - Читать папирус|<CR><LF>|S - Свистнуть|<CR><LF>|T - Взять предмет, на клтором стоишь|<CR>
        .ASCIZ        <LF>|U - Вызвать джинна (только в безнадежном случае!)...|<HT>|Дальше? |

---