Original source code back to 1994

SRC/INTRO2.PAS

@@ -0,0 +1,72 @@
+Unit Intro2;
+Interface
+  Procedure IntroASM;
+Implementation
+
+Uses
+  CRT,DOS,GRAPHVGA,LibUses;
+Var
+  pct : imageinfo;
+  Spt : Word;
+
+Procedure CopyBob(Y1,Y2 : word);
+Var
+  X,Y : word;
+Begin
+    asm
+      { Calcul des pts de depart }
+      Push  DS
+      Mov   AX,Y2
+      mov   BX,320
+      Mul   bx
+      Mov   DI,AX     { DI = DI + 289 (320-31) }
+      Mov   AX,Y1
+      Mul   BX
+      Mov   SI,AX    { SI = SI + 289 (320-31) }
+      Mov   AX,0A000h {WriteS}
+      Mov   ES,AX
+      Mov   AX,SPt
+      Mov   DS,AX
+      Mov   DX,39
+@@B1: Mov   CX,160
+      Rep   MovsW
+      dec   DX
+      jnz   @@B1
+      Pop   DS
+    end;
+End;
+
+Procedure initFont;
+begin
+  InitGraph(VGA);
+  LoadImage(Title_Logo,Pct);
+  PutImage(Pct,1);
+  Delay(1000);
+  FadeOut(0,$FF,1);
+  FillChar(Screen^,64000,0);
+  Freeimage(Pct);
+  LoadImage(Title_txt,Pct);
+  Spt := Seg(Pct.Picture^);
+end;
+
+Procedure IntroAsm;
+Var
+  C : Byte;
+Begin
+  initFont;
+  C := 0;
+  PaletteOff;
+  While (c<39+(4*40)) do
+    Begin
+      CopyBob(C,80);
+      fadein(0,4,Pct.Palette,1);
+      delay(1500);
+      fadeWhite(1,4,1);
+      Fadeout(0,4,1);
+      inc(C,40);
+    End;
+  FreeImage(Pct);
+end;
+
+End.
+