specht

uses Crt, Dos, VGA;

var phi, rho, tau, scale, x, y: Real;
    ix, iy: Integer;
    tx, ty, sx, sy, i: Integer;
    u, v, ul, vl: LongInt;
    ut, vt: LongInt;
    dxu, dyu, dxv, dyv: LongInt;
    offset: Word;
    color: Integer;

specht

program firetest;

{ Classic fire animation using VGA mode 13h and colors 0 to 63... wee !!! }

uses Crt, VGA;

var i, heat: Integer;
    quit: Boolean;
    c: Char;