Quine

Красивое решение программы с помощью ASM вставок, которая выводит в консоль собственный листинг. Кому интересно больше о подобных программах, могут почитать здесь

Платформы: Windows, Linux
Автор: TJF

quine.png

Dim As Zstring Ptr code
Dim As Uinteger code_len
Asm .section .data
Asm __code__start = .
Asm .incbin "Quine.bas"
Asm __code__len = . - __code__start
Asm .section .text
Asm mov dword Ptr [code], offset __code__start
Asm mov dword Ptr [code_len], offset __code__len
?Left(*code, code_len)
Sleep