Как в Turbo Pascal 7 вывисти код программы?

[sidd]

В школе задали такую задачу: написать программу которая выводит собственный код. И йя низнаю как это зделать)). Помогите пжл.

[Oscar]

http://www.nyx.net/~gthompso/self_pasc.txt

Дополнительную информацию смотреть в Гугле по "Квин программы".

(Этот класс программ, названный в честь логика Уилларда Куина (Willard Quine),
которые выводят свой собственный текст – от первой и до последней буковки)

[sidd]

Пасиба! Токо я в том коде ничего нипонял) так што буду в гугле искать с обьяснениями))

[sidd]

А што означают эти символы: #39#59#98#61#39,b,#39#59#10?

[Oscar]

sidd, Unicode (google: Escape коды)

Код: Выделить всё

'	#39
;	#59
b	#98
=	#61
'	#39

'	#39
;	#59
LF	#10

LF — Line Feed, перевод строки

Пример, который ты рассматриваешь (первый на ссылке), можно писать и без #10, если писать код не в две строки, а в одну.

[Хыиуду]

А нельзя просто открыть файл *.pas на чтение, считать из него все и вывести на экран?