Clever Geek Handbook

若かった...

ネジを解析すると、すべての転送で変更されずにさまよっていたprgディレクトリに出会いました。

すべての言語の学生、学校、工芸プログラムがあります。 確かに誰もが持っています。

私はそこにあります：

Asm

マスム

プロローグ

Lisp

オートリスプ

bc31

builder6

c-シャープ

クリッパー

delphi4

Delphi6

delphi7

パスカル

vc


そして、パスカルディレクトリの腸内で、私にとって非常に特別な意味を持つ2つのプログラムに出会いました。 これは、誰かにとって有用であり、お金が支払われた私の人生で最初のソフトウェアでした。



「変換器」の各コピーに対して、「ブレーキ」に対して100（宗派の前）ルーブル、40（宗派の前に）ルーブルのようです。 それらはほぼ同時に作られました。



今、私は笑顔なしでこれらのプログラムを見ることができませんが、懐かしさ、それを気...



「ブレーキ」の歴​​史は、私たちの生活にペンティアムが出現したことに関係しています。

これらは45、60、90年代でした。 PROの前にはまだ1年半がありました。 それまでは、「デュース」（ブレーキ、しかし耐えられる）、「トリプル」（es-xおよびde-x）、および4（いくつかは非常にクールで、ほとんど「ペンティアム」のような）があることを知っていました。 前世には、BK-00101、コルベット、ライツ、アゲーツがいました。



仕事中、父は、クリッパーなど、今では珍しい言語やゲームで書かれたソフトウェアを大量に蓄積しました。 「ゼロ除算」とこんにちは。 彼らは、i = 1から1000までの時間を測定したようです。 「切り株」の時間はゼロでしたが、ここに結果があります。



彼らが言うように、緊急の仕事。 そして、Peter Abel、Schildt、Berezinのボリュームで武装しているが、Pascalしか知らない私は、次のコードを作成しました。 これは、ホットキーで制御される常駐プログラムでした。 よくわかりませんが、再起動に対する何らかの保護があるようです（メモリ操作、「記録時にハングしない場所」と入力することで領域が見つかりました）。 単純なコピー（もちろん、子供のもの）に対する保護もあります。



  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 ?


More articles:


All Articles