Original source code back to 1994

SRC/PRESENT.PAS

@@ -0,0 +1,63 @@
+Unit Present;
+Interface
+  Procedure Thunder;
+implementation
+
+Uses
+  CRT,DOS,LIBUses,GraphVGA;
+Var
+  P1,P2 : Imageinfo;
+
+Procedure Strike(J,I : Byte);
+Var
+  C : Byte;
+begin
+  Move(P1.Picture^,Ptr($A000,0)^,64000);
+  SetRGB(P1.Palette);
+  for C:=0 to J do
+    WaitVbl;
+  Move(P2.Picture^,Ptr($A000,0)^,64000);
+  SetRGB(P1.Palette);
+  For C:=0 to I do
+    WaitVbl;
+End;
+
+
+Procedure Thunder;
+Var
+  P,C : Word;
+Begin
+  P := 0;
+  loadImage(Thunder_Ligh,P1);
+  LoadImage(Thunder_Dark,P2);
+  P := 0;
+  While (P <= 15) do
+    Begin
+      putImage(P2,2);
+      For c:=0 to 5 do
+        waitvbl;
+      Strike(Random(5),Random(50));
+      inc(p);
+    End;
+  FreeImage(p1);
+  FreeImage(P2);
+  LoadImage(Thunder_Logo,P1);
+  LoadImage(Thunder_Ldrk,P2);
+  P := 0;
+  While (P <= 9) do
+    Begin
+      putImage(P2,2);
+      For c:=0 to 5 do
+        waitvbl;
+      Strike(Random(5),Random(50));
+      inc(p);
+    End;
+  FreeImage(P1);
+  FreeImage(P2);
+End;
+
+
+End.
+
+
+