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

[nzeemin]

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

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>

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

[Hunta]

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

[hobot]

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

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

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

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

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

[nzeemin]

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

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

[Hunta]

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

Отвали


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

[Oleg N. Cher]

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

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

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

[Hunta]

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

вот и не лезь

[Oleg N. Cher]

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

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

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

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

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

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

[hobot]

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

в текстовом редакторе 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>

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

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

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

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

[Hunta]

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

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

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>|Дальше? |