Part II: This is an ex post facto rendering of pq6 in its various versions in

svn, so that changes will be trackable thataway

This is version 6.1 as found in the old sources. Used whathappened.py
to update it.

Front.pas

@@ -1,4 +1,5 @@
 unit Front;
+{ copyright (c)2002 Eric Fredricksen all rights reserved }
 
 interface
 
@@ -7,17 +8,19 @@ uses
   Dialogs, StdCtrls, ExtCtrls;
 
 type
-  TForm3 = class(TForm)
+  TFrontForm = class(TForm)
     Panel1: TPanel;
-    Logo: TImage;
     Button1: TButton;
     Button2: TButton;
-    Label1: TLabel;
     OpenDialog1: TOpenDialog;
     Button4: TButton;
     Label2: TLabel;
+    Button3: TButton;
+    Panel2: TPanel;
+    Logo: TImage;
     Label3: TLabel;
     HomeLink: TLabel;
+    Label1: TLabel;
     procedure HomeLinkClick(Sender: TObject);
     procedure LogoClick(Sender: TObject);
   private
@@ -27,7 +30,7 @@ type
   end;
 
 var
-  Form3: TForm3;
+  FrontForm: TFrontForm;
 
 implementation
 
@@ -35,14 +38,14 @@ uses ShellAPI, Main, Info;
 
 {$R *.dfm}
 
-procedure TForm3.HomeLinkClick(Sender: TObject);
+procedure TFrontForm.HomeLinkClick(Sender: TObject);
 begin
-	ShellExecute(GetDesktopWindow(), 'open', 'http://progressquest.com/pq.html', 0, '', SW_SHOW);
+	ShellExecute(GetDesktopWindow(), 'open', 'http://progressquest.com/', nil, '', SW_SHOW);
 end;
 
-procedure TForm3.LogoClick(Sender: TObject);
+procedure TFrontForm.LogoClick(Sender: TObject);
 begin
-	ShellExecute(GetDesktopWindow(), 'open', 'http://progressquest.com/', 0, '', SW_SHOW);
+	ShellExecute(GetDesktopWindow(), 'open', 'http://progressquest.com/', nil, '', SW_SHOW);
 end;
 
 end.