Merge branch 'pq6' of bitbucket.org:grumdrig/pq into pq6

Main.pas

@@ -1,7 +1,7 @@
 unit Main;
 { copyright (c)2022 Eric Fredricksen all rights reserved }
 
-{$DEFINE CHEATS}
+{$UNDEF CHEATS}
 {$UNDEF LOGGING}
 {$DEFINE TURBO}
 
@@ -733,8 +733,8 @@ end;
 
 function LevelUpTime(level: Integer): Integer;  // seconds
 begin
-  // 20 minutes per level
-  Result := 20 * level * 60;
+ // ~20 minutes for level 1, eventually dominated by exponential
+ Result := Round((20.0 + IntPower(1.15,level)) * 60.0);
 end;
 
 procedure TMainForm.GoButtonClick(Sender: TObject);
@@ -1292,7 +1292,7 @@ begin
   FMinToTray := true;
   FExportSheets := false;
 
-  MakeFileAssociations;
+  if Win32MajorVersion < 6 then MakeFileAssociations;
 end;
 
 procedure TMainForm.SpeedButton1Click(Sender: TObject);