Original source code back to 1994

SRC/TOTAL1.PAS

@@ -0,0 +1,56 @@
+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.