Pascal — Говнокод.ру

Pascal / Говнокод #10216

+13

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
061
062
063
064
065
066
067
068
069
070
071
072
073
074
075
076
077
078
079
080
081
082
083
084
085
086
087
088
089
090
091
092
093
094
095
096
097
098
099
100

function UTZP10(IERR :Integer; N :Integer): String;
var
I :Integer;
label
_10,_101,_102,_103,_104,_14,_2,_141,_142,_1,_11,_112,_115,_113,_114,
_116,_12,_16,_163,_17,_18,_34;
begin
{ функция UTZP10 выводит сообщения в файл NAL_DIAG.res }
Result := '';  { результат функции }
if ( N = 10 ) 
 then goto _10;
if ( N = 11 ) 
 then goto _11;
if ( N = 111 ) 
 then goto _116;
if ( N = 12 ) 
 then goto _12;
if ( N = 14 ) 
 then goto _14;
if ( N = 141 ) 
 then goto _1;
if ( N = 16 ) 
 then goto _16;
if ( N = 17 ) 
 then goto _17;
if ( N = 18 ) 
 then goto _18;
if ( N = 34 ) 
 then goto _34;
_10:
I  := IERR-64;
Result := Result + Format('%s',
 [' БИБЛИOTEKA HИBЦ MГY,ПOДПPOГPAMMA ZP10R:ФATAЛЬHAЯ OШИБKA']) + #$0D#$0A; 
case I of
 1: goto _101;
 2: goto _102;
 3: goto _103;
 4: goto _104;
end;
_101:
Result := Result + Format('%s',
 [' N 1 - CTEПEHЬ ПOЛИHOMA MEHЬШE 1']) + #$0D#$0A; 
UtDiag(Result,IERR);
exit;
_102:
Result := Result + Format('%s',
 [' N 2 - OДИH ИЛИ HECKOЛЬKO KOЭФФИЦИEHTOB ПPИ CTAPШИX CTEПEHЯX PABHЫ 0.' + #$0D#$0A +
 '       COOTBETCTBYЮЩEE ЧИCЛO KOPHEЙ B KOHЦE BEKTOPA, COДEPЖAЩEГO KOPHИ' + #$0D#$0A +
 '       ПOЛИHOMA, ПOЛOЖEHЫ PABHЫMИ (3.4E38,0.0)']) + #$0D#$0A; 
UtDiag(Result,IERR);
exit;
_103:
Result := Result + Format('%s',
 [' N 3 - BЫЧИCЛEHO MEHЬШE KOPHEЙ, ЧEM CTEПEHЬ ПOЛИHOMA. COOTBETCTBYЮЩEE' + #$0D#$0A +
 '       ЧИCЛO KOPHEЙ B KOHЦE BEKTOPA, COДEPЖAЩEГO KOPHИ ПOЛИHOMA,' + #$0D#$0A +
 '       ПOЛOЖEHO PABHЫM  (3.4E38,0.0)']) + #$0D#$0A; 
UtDiag(Result,IERR);
exit;
_104:
Result := Result + Format('%s',
 [' N 4 -HA BЫЧИCЛEHИE OДHOГO ИЗ KOPHEЙ ПOTPEБOBAЛOCЬ ИTEPAЦИЙ БOЛЬШE,' + #$0D#$0A +
 '       ЧEM 200*CTEПEHЬ ПOЛИHOMA,OCTABШИECЯ KOPHИ ПOЛOЖEHЫ (3.4E38,0.0)']) + #$0D#$0A; 
UtDiag(Result,IERR);
exit;
_14:
I := IERR-64;
Result := Result + Format('%s',
 [' БИБЛИOTEKA HИBЦ MГY,ПOДПPOГPAMMA ZP14R:ФATAЛЬHAЯ OШИБKA']) + #$0D#$0A; 
_2:
case I of
 1: goto _141;
 2: goto _142;
end;
_141:
Result := Result + Format('%s',
 [' N 1 - CTAPШИE KOЭФФИЦИHTЫ PABHЫ 0, ПOЭTOMY ПEPBЫЙ KOPEHЬ' + #$0D#$0A +
 '       ПOЛAГAETCЯ PABHЫM (-3.4E38,0.0), A BTOPOЙ (3.4E38,0.0)']) + #$0D#$0A; 
UtDiag(Result,IERR);
exit;
_142:
Result := Result + Format('%s',
 [' N 2 - CTAPШИЙ KOЭФФИЦИEHT PABEH 0, ПOЭTOMY BTOPOЙ KOPEHЬ' + #$0D#$0A +
 '       ПOЛAГAETCЯ PABHЫM (3.4E38,0.0)']) + #$0D#$0A; 
UtDiag(Result,IERR);
exit;
_1:
Result := Result + Format('%s',
 [' БИБЛИOTEKA HИBЦ MГY,ПOДПPOГPAMMA ZP14C:ФATAЛЬHAЯ OШИБKA']) + #$0D#$0A; 
I  := IERR - 64;
goto _2;
_11:
I  := IERR - 64;
Result := Result + Format('%s',
 [' БИБЛИOTEKA HИBЦ MГY,ПOДПPOГPAMMA ZP11R:ФATAЛЬHAЯ OШИБKA']) + #$0D#$0A; 
_112:
case I of
 1: goto _113;
 2: goto _114;
 3: goto _115;
end;

На сайте МГУ нашел :-(

lucidfoxGovno, 08 Мая 2012

Комментарии (17)

Pascal / Говнокод #10195

0

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

{$APPTYPE CONSOLE}
{$R *.res}

type
  TFTest = class
  public
    B: string;
    function Add(S: string = ''): TFTest;
    constructor Create(T: TFTest); overload;
  end;

function TFTest.Add(S: string): TFTest;
begin
  B := B + S;
  Exit(Self);
end;

var
  A: TFTest;

constructor TFTest.Create(T: TFTest);
begin
  B := T.B;
end;

begin
  writeln(TFTest.Create.Add('0')
    .Create((TFTest.Create(TFTest.Create(((((((TFTest.Create(TFTest.Create).Add('0')).Add('1').Create.Add('2')
    .Add as TObject).Create) as TFTest.ClassParent) as TFTest).Create).Add('3')).Add.Add('4').Create).Add('5')).Add('6')
    ).Add('7').B);
  readln;

end.

Кто правильно обьяснит этот код, получит... ничего получит :)

ReckO, 05 Мая 2012

Комментарии (5)

Pascal / Говнокод #10180

+5

1

For i:=0 to 40 do For j:=1 to 10 do if (j=0) and (j=10) then W[i,j]:=0;

Проблемы?

qweqwe, 03 Мая 2012

Комментарии (14)

Pascal / Говнокод #10066

+4

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

function Ns(ds: char; var vs: byte): boolean;
begin
   case ds of
'Q': vs:= 81;
'W': vs:= 87;
'E': vs:= 69;
'R': vs:= 82;
'T': vs:= 84;
'Y': vs:= 89;
'U': vs:= 85;
'I': vs:= 73;
'O': vs:= 79;
'P': vs:= 80;
'A': vs:= 65;
'S': vs:= 83;
'D': vs:= 68;
'F': vs:= 70;
'G': vs:= 71;
'H': vs:= 72;
'J': vs:= 74;
'K': vs:= 75;
'L': vs:= 76;
'Z': vs:= 90;
'X': vs:= 88;
'C': vs:= 67;
'V': vs:= 86;
'B': vs:= 66;
'N': vs:= 78;
'M': vs:= 77;
else vs:= 0;
  end;
 if vs = 0 then Result:= false else Result:= true;
 end;

Определение кода виртуальных клавиш, вот что бывает, когда кто-то не знает матчасть, вся эта белиберда легко заменяется на :

function Ns(ds: char; var vs: byte): boolean;
begin
case ds of
'A'..'Z': vs:= byte(ds);
else vs:= 0;
end;
if vs = 0 then Result:= false else Result:= true;
end;

И не лень же было клаву мучить!

Alegun, 27 Апреля 2012

Комментарии (13)

Pascal / Говнокод #10064

−3

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99

const 
zn1 = #60; { < }   
zn2 = #62; { > } 

function EnCrypt(ds: string): string;
  var 
k,l,m: string; 
i,b,g: integer; 
t: char;
   function Lvs(ds: byte): string;
   begin
    case ds of 
   Byte(zn1): Result:= zn1+zn2;
   Byte(zn2): Result:= zn2+zn1;
         0: if Random(2)=0 then  Result:= zn1+zn1 
             else Result:= zn2+zn2;
           else 
             Result:= Chr(ds);end;
   end;
  begin
   if length(ds)=0 then Exit; 
   Randomize;  k:=''; m:='';  b:=1;
 for i:=1 to RandomRange(5,16) do 
  k:= k+Chr(RandomRange(1,256));
   for i:=1 to Length(ds) do  begin 
g:= Byte(ds[i])xor Byte(k[b]);
   l:= Lvs(g); t:= k[b];
if i<= Length(k) then m:= m+t+l else m:=m+l;
Inc(b);
   if b>Length(k) then b:= 1; 
  end; 
l:= Chr(Length(k))+m;
   for  i:=1 to Length(l) do begin 
b:= Byte(l[I]) xor i;k:= Lvs(b);
   Result:= Result+k; 
end;
  end;

 function DeCrypt(ds: string): string;
  var 
k,c,l,n: string; 
i,b,m: integer; 
d: boolean;
   function Svl(ds: string; ts: integer): char;
   var t: byte;
   begin
    t:=Byte(ds[1]);
    if ds=zn1+zn2 then t:=Byte(zn1);
    if ds=zn2+zn1 then t:=Byte(zn2);
    if(ds=zn1+zn1) or (ds=zn2+zn2) then t:= 0;
   Result:=Chr(Byte(t xor ts));
   end;
  begin
   if length(ds)=0 then Exit;
 b:=1; i:=1; n:='';
   while i<=Length(ds) do begin c:= ds[i];
   if (ds[i]=zn1)or(ds[i]=zn2)then begin 
c:=ds[i]+ds[i+1]; Inc(i); end;
   Inc(i);
 n:= n+Svl(c,b); 
Inc(b); 
end; c:=''; k:=''; b:=1; i:=1; 
d:=false;
m:=Byte(n[1]); 
Delete(n,1,1);
   while i<=Length(n)do begin 
if b<=m*2 then begin if d then begin 
l:=n[i];
  if (n[i]=zn1) or (n[i]=zn2) then 
begin 
    l:= n[i]+n[i+1]; Inc(i); 
end;
   c:=c+l; 
Inc(b);
d:=false; 
end else 
begin 
k:=k+n[i]; d:=true; Inc(b); 
end;
   end else begin 
l:= n[i]; 
if (n[i]=zn1) or (n[i]=zn2) then 
begin   l:= n[i]+n[i+1]; Inc(i); end;  
c:=c+l; end;
 Inc(i); end;
   if length(c)=0 then Exit;
i:=1;b:=1; 
while i<=Length(c)do begin 
l:=c[i];
   if (c[i] = zn1) or (c[i] = zn2) then 
begin 
l:= c[i] + c[i+1]; Inc(i); 
end;
   Inc(i);
Result:= Result + Svl(l, Byte(k[b]));
Inc(b);
if b>Length(k)then b:=1;
   end;
  end;

В очень далёком 99м году была совершена попытка шифровать и дешифровать пароли пользователей простым ХОР-замесом. Тогда такой способ казался идеальным и оригинальным :) Но посмотрите, если руки не оттуда откуда надо растут, как же можно извратиться, чистый говнокод! До сих пор им пользуюсь, немного. Интересно, ктонить догадается, зачем здесь константные знаки используются?

Alegun, 27 Апреля 2012

Комментарии (7)

Pascal / Говнокод #10057

0

1
2
3
4
5
6

function bth(ds: byte): string;
 const
 b: string = '0123456789ABCDEF';
begin
Result:= b[(ds shr 4) + 1] + b[(ds and $F) + 1];
end;

Некоторое время назад потребовалось конвертить Byte в Hex. Стандартных способов не нашёл, а ничего лучше такой говнокодки выдумать не получилось. Сейчас смотрю и разбирает смех - весёлые были времена!

Alegun, 27 Апреля 2012

Комментарии (38)

Pascal / Говнокод #10048

+1

01
02
03
04
05
06
07
08
09
10
11
12

with Ada.Text_IO;
 
procedure A_Plus_B is
   type Small_Integers is range -2_000 .. +2_000;
   subtype Input_Values is Small_Integers range -1_000 .. +1_000;
   package IO is new Ada.Text_IO.Integer_IO (Num => Small_Integers);
   A, B : Input_Values;
begin
   IO.Get (A);
   IO.Get (B);
   IO.Put (A + B, Width => 4, Base => 10);
end A_Plus_B;

Чтобы сложить 2 числа - нужно написать столько кода. Неистовый идиотизм. Индусом из зАда платят за строки.

lucidfoxGovno, 26 Апреля 2012

Комментарии (14)

Pascal / Говнокод #10036

−4

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
040
041
042
043
044
045
046
047
048
049
050
051
052
053
054
055
056
057
058
059
060
061
062
063
064
065
066
067
068
069
070
071
072
073
074
075
076
077
078
079
080
081
082
083
084
085
086
087
088
089
090
091
092
093
094
095
096
097
098
099
100

function lz_UploadMount:boolean;
var del_l,i,j,k,ng,l,typ:integer;
    pt:array[1..3]of integer;
begin
UpDiag:=0;
result:=true;
if I_AM_EMUL {or not I_AM_MAIN }then exit;
if Pult[1].Count+Pult[2].Count=0 then exit;
lg_UploadMount;
                     //  exit;
UpDiag:=1;
result:=false;
__UPLOADING:=true;
try

if not JustC(21,[])then exit;
sleep(1000);
//if (Pult[1].Count>0)and(Pult[2].Count>0)then ng:=3 else ng:=1;
//if not JustC(25,[ng])then exit;;

if not JustC(22,[])then exit;;
{группы}
if (Pult[1].Count>0)and(Pult[2].Count>0)then ng:=2 else ng:=1;

for i:=1 to 2 do
 begin
 if Pult[i].Count=0 then continue;
 k:=0;
 for j:=1 to 3 do pt[j]:=MainShow.Params[j];

 for j:=0 to Pult[i].Count-1 do
  with TMotor(Pult[i][j])do
   begin
   k:=k+(1 shl (ConvertTP(TP)-1));
   for L:=1 to 3 do if pt[L]>GParam(L)then pt[L]:=GParam(L);
   end;
 //маска
 AddI(k);

 //скорость
 AddSpeed(round(pt[1]*KOREDV));

 //ускорение разгона
 //ускорение торможения
 AddI((pt[2]shl 16)+pt[3]);

 //номер джойстика
 //функциональная клавиша
      {Кнопка}  {Джойстик}{повторы}  {тип группы}
 typ:=2;
 AddI((i shl 6)+(i shl 3)+(1 shl 10)+typ);
 end;
if not lz_Command(26,4,ng,[ng])then exit;;
CheckMountEffect;

{моторы}
lzData.Clear;
for i:=1 to 2 do
 for j:=0 to Pult[i].Count-1 do
  with TMotor(Pult[i][j])do
   begin
   if md_targ<0 then AddI((17 shl 16)+ConvertTP(TP))else AddI((18 shl 16)+ConvertTP(TP));
   if md_targ<GetMotorInfo(TP,1)then del_l:=-1 else del_l:=1;

   if md_targ<0 then
    begin
     AddI(-trunc(GParam(5)/KORED*65536));
     AddI(-trunc(GParam(4)/KORED*65536));
    end
   else
    begin
    AddI(-trunc((md_targ+del_l/2)/KORED*65536));
    AddSpeed(round(md_way*KOREDV));
    end
   end;
if not lz_Command(28,3,Pult[1].Count+Pult[2].Count,[Pult[1].Count+Pult[2].Count])then exit;
UpDiag:=2;
if not JustC(23,[])then exit;
(*EnterCriticalSection(csJoystick);
j_Changed:=true;
{J_Status[1]:=false;
J_Status[2]:=false;}
LastSign[1]:=-1;
LastSign[2]:=-1;
LeaveCriticalSection(csJoystick);*)

{if(Pult[1].Count>0)then if not JustC(36,[1,1])then exit;
if(Pult[2].Count>0)then if not JustC(36,[2,1])then exit;}
UpDiag:=0;
result:=true;
Uploaded:=true;
for i:=1 to 12 do
 FirstGr[i]:=0;

finally

__UPLOADING:=false;
if Uploaded then WaitZero;
end;
end;

Случайно открыл свою первую рабочую программу. Забавно, как со временем меняется стиль программирования :)

В той что используется сейчас изменился протокол, так что прямого аналога нет, но примерно ту же функцию выполняет такой кусок:
----------------
procedure TMotion.GetTargetForPLC(M: TMotor; Mo: TNormalMotionData);
var
Conf: TMotorConfig;
ME: TElementMark;
I: Integer;
Ht, SP: Real;
begin
if not Uploaded then
exit;
Conf := PLCConf.Motor(M.MotorNumber);
ME := Mark.ElementByMotor(M.MotorNumber);

SP := Panel.GetValue(Speed);
// Проверка разрешений движения
if (Panel.GetStatus <> psGo) or (not Condition.CheckMotion) or FailedSafe or
(SP = 0) or (not ME.CheckMotion) then
Mo.CommandID := mcStop
else
Mo.CommandID := mcGo;

Mo.Accel := LimitVal(1, Conf.MotorTyp.ProgramToDrive(ktAccel,
Limits.GetParam(TAccelParam).Minimum));
Mo.Deccel := LimitVal(1, Conf.MotorTyp.ProgramToDrive(ktAccel,
Limits.GetParam(TDeccelParam).Minimum));

if SP >= 0 then
Ht := Effect.OutputTarget(M)
else
Ht := ME.GetTargetForPLC(false);

// M.StartPos.Value := 0.5;

if M.PositionType.InheritsFrom(TAngleWithTu rnsParam) then
Ht := M.HackCircleTarget(Ht);

Mo.Target := Conf.MotorTyp.ProgramToDrive(ktTarget, Ht);

Mo.Speed := Conf.MotorTyp.ProgramToDrive(ktSpeed, abs(SP)); { }{ }{ }
Mo.Time := 0;
if SP >= 0 then
Effect.ProcessCommand(M, Mo);

Mo.Mask := M.Children + [M.MotorNumber];
for I in Mo.Mask do
GetMotor(I).RawCommand := Mo;
end;
----------------

kipar, 25 Апреля 2012

Комментарии (3)

Pascal / Говнокод #10030

+9

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59

procedure TForm1.Timer2Timer(Sender: TObject);
begin
image75.Visible:=false;image76.Visible:=false;
image1.Visible:=true;image2.Visible:=true;image3.Visible:=true;
image4.Visible:=true;image5.Visible:=true;image6.Visible:=true;
image7.Visible:=true;image8.Visible:=true;image9.Visible:=true;
image10.Visible:=true;image11.Visible:=true;image12.Visible:=true;
image13.Visible:=true;image14.Visible:=true;image15.Visible:=true;
image16.Visible:=true;image17.Visible:=true;image18.Visible:=true;
image19.Visible:=true;image20.Visible:=true;image21.Visible:=true;
image22.Visible:=true;image23.Visible:=true;image24.Visible:=true;
image25.Visible:=true;image26.Visible:=true;image27.Visible:=true;
image28.Visible:=true;image29.Visible:=true;image30.Visible:=true;
image31.Visible:=true;image32.Visible:=true;image33.Visible:=true;
image34.Visible:=true;image35.Visible:=true;image36.Visible:=true;
image37.Visible:=true;image38.Visible:=true;image39.Visible:=true;
image40.Visible:=true;image41.Visible:=true;image42.Visible:=true;
image43.Visible:=true;image44.Visible:=true;image45.Visible:=true;
image46.Visible:=true;image47.Visible:=true;image48.Visible:=true;
image49.Visible:=true;image50.Visible:=true;image51.Visible:=true;
image52.Visible:=true;image53.Visible:=true;image54.Visible:=true;
image55.Visible:=true;image56.Visible:=true;image57.Visible:=true;
image58.Visible:=true;image59.Visible:=true;image60.Visible:=true;
image61.Visible:=true;image62.Visible:=true;image63.Visible:=true;
image64.Visible:=true;image65.Visible:=true;image66.Visible:=true;
image67.Visible:=true;image68.Visible:=true;image69.Visible:=true;
image70.Visible:=true;image71.Visible:=true;image72.Visible:=true;
image73.Visible:=true;
if image1.left<360 then begin timer2.Enabled:=false;button2.Visible:=true;
image1.Visible:=false;image2.Visible:=false;image3.Visible:=false;
image4.Visible:=false;image5.Visible:=false;image6.Visible:=false;
image7.Visible:=false;image8.Visible:=false;image9.Visible:=false;
image10.Visible:=false;image11.Visible:=false;image12.Visible:=false;
image13.Visible:=false;image14.Visible:=false;image15.Visible:=false;
image16.Visible:=false;image17.Visible:=false;image18.Visible:=false;
image19.Visible:=false;image20.Visible:=false;image21.Visible:=false;
image22.Visible:=false;image23.Visible:=false;image24.Visible:=false;
image25.Visible:=false;image26.Visible:=false;image27.Visible:=false;
image28.Visible:=false;image29.Visible:=false;image30.Visible:=false;
image31.Visible:=false;image32.Visible:=false;image33.Visible:=false;
image34.Visible:=false;image35.Visible:=false;image36.Visible:=false;
image37.Visible:=false;image38.Visible:=false;image39.Visible:=false;
image40.Visible:=false;image41.Visible:=false;image42.Visible:=false;
image43.Visible:=false;image44.Visible:=false;image45.Visible:=false;
image46.Visible:=false;image47.Visible:=false;image48.Visible:=false;
image49.Visible:=false;image50.Visible:=false;image51.Visible:=false;
image52.Visible:=false;image53.Visible:=false;image54.Visible:=false;
image55.Visible:=false;image56.Visible:=false;image57.Visible:=false;
image58.Visible:=false;image59.Visible:=false;image60.Visible:=false;
image61.Visible:=false;image62.Visible:=false;image63.Visible:=false;
image64.Visible:=false;image65.Visible:=false;image66.Visible:=false;
image67.Visible:=false;image68.Visible:=false;image69.Visible:=false;
image70.Visible:=false;image71.Visible:=false;image72.Visible:=false;
image73.Visible:=false;end
else begin image1.left:=image1.Left-3;image1.top:=image1.top-1;
image2.left:=image2.Left+2;image2.top:=image2.top+2;
image3.left:=image3.Left-1;image3.top:=image3.top-3;
image4.left:=image4.Left-2;image4.top:=image4.top+4;
...

Ещё 65 строк кода!
Анимация взрыва на Delphi 7.

artar94, 24 Апреля 2012

Комментарии (32)

Pascal / Говнокод #10011

+5

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

function assemble(var w:word;s:string):boolean;
.....
 else if length(cmd)=3 then
  begin
   {ТРЕХБУКВЕННЫЕ КОМАНДЫ}
   case cmd[1] of
    'a':case cmd[2] of
         'c':if cmd[3]='i' then
              begin
               code:=$ce;
               typ:=7;
              end;
         'd':case cmd[3] of
              'd':begin
                   code:=$80;
                   typ:=4;
                  end;
              'c':begin
                   code:=$88;
                   typ:=4;
                  end;
              'i':begin
                   code:=$c6;
                   typ:=7;
                  end;
             end;
..... еще 500 подобных строк ....
end;

Прочитал http://govnokod.ru/10002 и вспомнил, как когда-то писал асм\дизасм\эмуль для 8080 на паскале.

bormand, 22 Апреля 2012

Комментарии (6)

Говнокод: по колено в коде.

Pascal / Говнокод #10216

Pascal / Говнокод #10195

Pascal / Говнокод #10180

Pascal / Говнокод #10066

Pascal / Говнокод #10064

Pascal / Говнокод #10057

Pascal / Говнокод #10048

Pascal / Говнокод #10036

Pascal / Говнокод #10030

Pascal / Говнокод #10011