robinbobin

вот что еще надыбал...
Это с бэкап дискет которые

dimorlus должен был запомнить НАДОЛГО. Ага?

Описание программы CODER JNP
Версия V 1.11 25-Oct-90

------------
qemm, desqview, uupc509, maximum, stacket, lantastic, etc
----
ХАКЕР ТЕСТ - версия 1.0
-----
старые исходники на ассемблере, robopila, lampochki dlya vinchestera,
MOV -(R7),-(R7)
Письмо Дмитровскому в МСК

{$M 8192,0,0}
program konvert;
{печать адреса на конверте}
uses crt, dos;

список телефонов за Last correction Сбт 07-13-1991
(включая телефоны Безрукова, Касперского, Гуртяка, Лозинского и дрррррррррррр)

JNPTREE.ASM
;
; ╔════════════════════════════════════════════════════════╗
; ║ ОБХОД ДЕРЕВА КАТАЛОГОВ. Version 1.1 ║
; ║ Основной текст - Пустовойтов С.В. (Prool) ║
; ║ Редактирование - Рабинович В.М. (Robin) ║
; ║ (C) JNP Club, Kharkov. All right reserved. ║
; ╚════════════════════════════════════════════════════════╝
; Вызов Вашей процедуры обработки каталога
; осуществляется в строке 77 (call YourProc).
; Сама процедура подключается в строке 306
; ( include YourProc.asm )

сейчас это называется callback? :)

Орлов! Нужно?
FF.PAS

Program FindFile;
uses
Dos, Crt;
.....
Writeln('FileFind Copyright (C) by Dima Orlov, 2:461/27 , 1994');
Writeln('FF fname1 fname2 ...');
Writeln('Press Esc to stop');

а тут еще сама сетка
mov ah, 39h ; Цреат дирецторы
(Черкасский вариант - с прописываениеи по FATу 512-байтным отрывком из зыс джизас маст дай.... если вовремя денех не перевели. голодные и злые были :)

jesus db 'Caiaphas:',13,10
db ' I see blood and destruction, our elimination because of one man',13
10
db ' Blood and destruction because of one man',13,10,13,10
db 'Caiaphas:',13,10
db ' Fools! You have no perception!',13,10
db ' The stakes we are gambling are frighteningly high!',13,10
db ' We must crush him completely',13,10
db ' So like John before him, this Истра must die',13,10
db ' For the sake of the nation this Истра must die',13,10,13,10
db 'All:',13,10
db ' Must die, must die, this Истра must,',13,10
db ' Истра must, Истра must die',13,10,13,10
db 'Mob:',13,10
db ' Pilate! Crucify him!',13,10,13,10
db ' THIRTY-NINE LASHES',13,10,'$'

дальше перечислять нет сил
там много чего....
пойду дальше плакать...

продолжу
life.c
/***********************************************************************/
/* Life is life */
/* (C) Evgenu Gelfand tel:02-437211 */
/***********************************************************************/

life.pas
Program Life(input, ouiput);
{
Version 1.1.6 24-Feb-91 Robin
Работает:
опредение кодировки и настройка выводимых сообщений
выход, если все амебы умерли

Begin
writeln;
writeln('╜╨╓▄╪т╒ ┌█╨╥╪шу ~1~, ╒с█╪ с▄▐╙█╪ ▌▐р▄╨█ь▌▐ ▀р▐ч╪т╨ть эт▐т т╒┌ст');{MAIN}
writeln('Нажмите клавишу ~2~, если смогли нормально прочитать этот текст');{ALTERN}
writeln('Нажми▓е клави╕│ ~3~, е▒ли ▒могли но░мал╝но п░о╖и▓а▓╝ ╜▓о▓ ▓ек▒▓');{MIC}
writeln('Please, Press key ~4~, if you can read this text ');{IBM}

а кто из Братьев писал dada12.pas?

все. погряз в слезах....