Program DEMO;
Uses
{ PASDVT }
  CRT,DOS,GRAPHVGA,LibUses,Intro2,Present,Moon,lens,voxel,Fire;
{Var
  P : imageInfo; }
Begin

{  IF NOT VT_Init THEN BEGIN                    { Init DEMOVT       }
{    WriteLn('Missing Player !');           { check if DEMOVT a-ok  }
{    HALT(1);
  END;
  VT_AutoOn;
  Vt_SyncStart;}
  CheckBreak := False;
  InitGraph(VGA);
	DirectVideo(False);
{  DirectVideo(True);}
  OpenLib('TOTAL.OTL');

  { SEGMENT : INTRO }
  introAsm;

  { SEGMENT : TITLE }
  Thunder;

  { SEGMENT : MOON }
  InitMoon;
  BouffeLaLune;
  CloseMoon;

  { SEGMENT  : LENS }
  InitLens;
  LensPath;
  CloseLens;

  { SEGMENT : VOXEL }
  InitVoxel;
  FolowPath;
  CloseVoxel;

  { SEGMENT : MOON 2 }
  InitMoon;
  ClearDevice(0);
  GerbeLaLune;
  CloseMoon;
  delay(100);
  FadeOut(0,$FF,1);

  { SEGMENT : Close & Grettings }
  Greetings;

  { END }
  CloseGraph;
  CloseLib;
End.