Скачать Simple Fire Version for TMT Pascal

{$ifndef __DOS__}
  This program can be compiled for MS-DOS target only
{$endif}
 
{ this exaple demonstrate direct access to video memory }
{ and I/O port                                          }
 
{ this program has been posted to COMP.LANG.PASCAL newsgroup.}
{ Here is unchanged original version with author comments.   }
{ This program can't works under DOS32 extender              }
 
{ DOS version: Use Turbo Pascal 6.0+ to compile }
 
{------------------------------------------------------------}
{ g'day, this is a probably the most simple version   }
{ of fire that you will ever see in pascal. i wrote   }
{ the code in pascal so it's slow and choppy, i have  }
{ another version in asm. and it's faster. anyways if }
{ you have any critics or question on this code, just }
{ e-mail me at ekd0840@bosoleil.ci.umoncton.ca. or    }
{              9323767@info.umoncton.ca               }
{  note : I have code for all kinds of stuff (that I  }
{         wrote of course), if you want something     }
{         e-mail me (i never get mail), maybe i have  }
{         what you want.                              }
{                               keith degr?ce         }
{                               moncton, n.-b. canada }
 
var c, x, y, z : Word;
procedure setrgb( c, r, g, b : byte );
begin
  port[$3c8] := c;
  port[$3c9] := r;
  port[$3c9] := g;
  port[$3c9] := b;
end;
 
begin
  randomize;
  asm   mov ax, 13h
        int 10h
  end;
  for x := 1 to 32 do
  begin
    setrgb(x,   x*2-1, 0,     0    );
    setrgb(x+32, 63,   x*2-1, 0    );
    setrgb(x+64, 63,   63,    x*2-1);
    setrgb(x+96, 63,   63,    63   );
  end;
  port[$60] := 0;
  repeat
   x := 0;
   repeat
     y := 60;
     repeat
       c := (mem[$a000:y * 320 + x]+
             mem[$a000:y * 320 + x + 2]+
             mem[$a000:y * 320 + x - 2]+
             mem[$a000:(y+2) * 320 + x + 2]) div 4;
       if c <> 0 then dec(c);
       memw[$a000:(y-2) * 320 + x] := (c shl 8) + c;
       memw[$a000:(y-1) * 320 + x] := (c shl 8) + c;
       Inc(Y,2);
     until y > 202;
     Dec(y,2);
     mem[$a000:y * 320 + x] := random(2) * 160;
     Inc(X,2);
    until x >= 320;
  until port[$60] < $80;
  asm  mov ax, 3
       int 10h
  end;
 
end.