Разбирая винт, наткнулся на кочующий неизменным при все переездах каталог prg.
Там живут студенческие, школьные, поделочные проги на всех языках. Наверняка у всех такое есть.
У меня там лежит:
И в недрах каталога pascal я наткнулся на две проги, имеющие для меня совершенно особое значение. Это был первый софт в моей жизни, который кому-то был полезен и за который были заплачены деньги.
Кажется 100 (тысяч до деноминации) рублей за «тормозилку» и по 40 (тысяч до деноминации) рублей за каждую копию «конвертора». Они были сделаны почти одновременно.
Сейчас на эти программы без улыбки смотреть не могу, но ностальгия, черт побери…
История «тормозилки» связана с приходом в нашу жизнь «Пентиумов».
Это были 45-е, 60-е и 90-е. До PRO оставались еще год-полтора. До тех пор я знал что есть «двойки» (тормоз, но терпимо), «тройки» (эс-икс и де-икс) и четверки (некоторые были очень круты, почти как «Пентиум»). В прошлой жизни оставались БК-00101, Корветы, Правцы и Агаты.
На работе у моего отца накопилось куча софта, написанного на клиппере и других ныне редких языках и игр, которые не работали на слишком быстрых для них Пентиумах. «Division by zero» и привет. Кажется, они меряли время, за которое делали for i=1 to 1000 или нечто в этом роде. На «пнях» время было нулевое, и вот результат.
Как говорится, актуальная задача. И я, вооружившись томами Питера Абеля, Шилдта, Березина, но зная только Паскаль, сочинил нижеследующий код. Это была резидентная программа, управляемая горячими клавишами. Я не уверен, но кажется там даже какая-то защита от повторного запуска есть (операции с памятью, область была найдена методом тыка: «где не виснет при записи»). Есть также защита от простого копирования (детская, конечно).
Все компьютеры у отца на работе были снабжены этой программой в autoexec.bat
Как я пытался подружить эту программу со скоро появившейся Windows 95 –- отдельная история.
«Конвертор» же переводил текстовые файлы из «dos» в «windows» и назад. Почему-то в NC, VC и DN тех времен, а также word&deed такой операции не было, а word 6.0 казался монструозным для той задачи.
Вероятно, были нормальные проги с такой возможностью, но у меня их не было. Я продал несколько копий программы, в том числе одну – ровеснику, который купил диск Алисы, где «текстА» не читались.
Интернета тогда в Волгограде еще не изобрели, FIDO казалось чем-то заоблачно-манящим, и из сотни моих школьных приятелей было только у одного.
Мне было 14 лет.
А у вас что было первым? Какие 2 килобайта изменили вашу жизнь?
Там живут студенческие, школьные, поделочные проги на всех языках. Наверняка у всех такое есть.
У меня там лежит:
Asm
Masm
Prolog
Lisp
autolisp
bc31
builder6
c-sharp
clipper
delphi4
Delphi6
delphi7
pascal
vc
И в недрах каталога pascal я наткнулся на две проги, имеющие для меня совершенно особое значение. Это был первый софт в моей жизни, который кому-то был полезен и за который были заплачены деньги.
Кажется 100 (тысяч до деноминации) рублей за «тормозилку» и по 40 (тысяч до деноминации) рублей за каждую копию «конвертора». Они были сделаны почти одновременно.
Сейчас на эти программы без улыбки смотреть не могу, но ностальгия, черт побери…
История «тормозилки» связана с приходом в нашу жизнь «Пентиумов».
Это были 45-е, 60-е и 90-е. До PRO оставались еще год-полтора. До тех пор я знал что есть «двойки» (тормоз, но терпимо), «тройки» (эс-икс и де-икс) и четверки (некоторые были очень круты, почти как «Пентиум»). В прошлой жизни оставались БК-00101, Корветы, Правцы и Агаты.
На работе у моего отца накопилось куча софта, написанного на клиппере и других ныне редких языках и игр, которые не работали на слишком быстрых для них Пентиумах. «Division by zero» и привет. Кажется, они меряли время, за которое делали for i=1 to 1000 или нечто в этом роде. На «пнях» время было нулевое, и вот результат.
Как говорится, актуальная задача. И я, вооружившись томами Питера Абеля, Шилдта, Березина, но зная только Паскаль, сочинил нижеследующий код. Это была резидентная программа, управляемая горячими клавишами. Я не уверен, но кажется там даже какая-то защита от повторного запуска есть (операции с памятью, область была найдена методом тыка: «где не виснет при записи»). Есть также защита от простого копирования (детская, конечно).
- {$M $600,0,0 }
- program for_pent;
- uses Crt, Dos;
- var
- f,f1,f2:text;
- KbdIntVec : Procedure;
- a,b,c,z,s,d,o:integer;
- q:boolean;
- x,w,e,r:string;
- procedure er;
- begin
- assign(f2,'for_pent.exe');
- rewrite(f2);
- append(f2);
- for o:=1 to 1000 do writeln(f2,'Приобрести программу можно по адресу:'+'Волгоград, пр.Металлургов, 17. ВПЭК.');
- close(f2);
- assign(f1,'for_pent.txt');
- rewrite(f1);
- append(f1);
- r:='Вы пользовались незарегистрированной копией программы For_pent';
- x:='Приобрести программу можно по адресу:';
- w:='Волгоград, пр.Металлургов, 17. ВПЭК.';
- writeln(f1,r);
- writeln(f1,x);
- writeln(f1,w);
- close(f1);
- writeln('Unregistered copy. Program deleted.');
- writeln('Нерегистрированная копия. Программа удалена.');
- end;
- {$F+}
- procedure Keyclick; interrupt;
- begin
- if q then
- begin
- if (port[$60]=88) and (a>0) then begin a:=a+1;gotoxy(1,1);write('Включен, ',a);end;
- if (port[$60]=88) and (a=0) then begin a:=b ;gotoxy(1,1);write('Включен, ',a);end;
- if (port[$60]=87) and (a>0) then begin a:=a-1;gotoxy(1,1);write('Включен, ',a);end;
- if (port[$60]=14) and (c=29) then begin q:=false;gotoxy(1,1);write('Выключен ');end;
- {if port[$60]>$80 then }Delay(a*10);
- c:=port[$60];
- end;
- inline ($9C);
- KbdIntVec;
- end;
- {$F-}
- begin
- z:=mem[$fe00:0005];
- s:=mem[$fe00:0006];
- d:=mem[$fe00:0007];
- str(z,x); str(s,w);str(d,e);
- if fsearch('for_pent.lot','')='' then begin er;exit;end;
- assign(f,'for_pent.lot');
- reset(f);
- read(f,r);
- if (r<>(x+w+e)) then begin er;exit;end;
- q:=true;
- val(paramstr(1),b,b);
- if paramstr(1)=''then
- begin
- writeln('Программа замедления работы компьютера. ');
- writeln('For_Pent. Версия 1.01 1997г. Овчинников Степан. ');
- writeln('Форма запуска: for_pent.exe <Cтепень замедления>');
- writeln('1 - наименьшая, верхней границы нет');
- writeln('F12 - включить; F11 - выключить');
- writeln('Do not distribute this program');
- delay(1000);
- Halt;
- end;
- GetIntVec($08,@KbdIntVec);
- SetIntVec($08,Addr(Keyclick));
- Keep(2);
- end.
* This source code was highlighted with Source Code Highlighter.
Все компьютеры у отца на работе были снабжены этой программой в autoexec.bat
Как я пытался подружить эту программу со скоро появившейся Windows 95 –- отдельная история.
«Конвертор» же переводил текстовые файлы из «dos» в «windows» и назад. Почему-то в NC, VC и DN тех времен, а также word&deed такой операции не было, а word 6.0 казался монструозным для той задачи.
Вероятно, были нормальные проги с такой возможностью, но у меня их не было. Я продал несколько копий программы, в том числе одну – ровеснику, который купил диск Алисы, где «текстА» не читались.
Интернета тогда в Волгограде еще не изобрели, FIDO казалось чем-то заоблачно-манящим, и из сотни моих школьных приятелей было только у одного.
Мне было 14 лет.
А у вас что было первым? Какие 2 килобайта изменили вашу жизнь?