source410: literal 4.10 source reconstruction + BC++ 4.52 fleet toolchain archived

- BORLAND/: Borland C++ 4.52 (chosen over 4.5 by byte-match: CODE/RP/CW32.LIB
  is identical to 4.52's install lib). BCC32/TLINK32/TLIB/MAKE run natively on
  Win11; CODE/BT/OPT.MAK is the shipped BTL4OPT.EXE's exact flag recipe
  (extender = Borland PowerPack DPMI32, not Phar Lap TNT).
- restoration/source410/: the literal 1995-form reconstruction of the missing
  BT game source (never mixed into CODE/). Round 1-3 state:
  * 6 of 10 surviving original TUs COMPILE CLEAN under the period toolchain
    (BTMSSN, BTCNSL, BTSCNRL, BTTEAM, BTL4MODE, BTL4ARND) - first builds
    since 1996.
  * BT_L4/BTL4APP.CPP pilot reconstruction: 12/12 functions, Fail() lands on
    its binary-recorded line 400 exactly.
  * BT/BTCNSL.HPP: console wire IDs recovered from the binary's ctors
    (Killed=9, Damaged=10, ScoreUpdate=13, DeathWithoutHonor=15 [T1];
    TeamScore=12 flagged [T4]).
  * MUNGA/: 8 engine-header backfills back-dated from the BT412 WinTesla tree
    (VDATA numbering decomp-verified; AUDREND's OpenAL-era virtual removed -
    the period compiler is the drift detector).
  * Tooling: backdate.py (WinTesla->1995 header transform), compile410.sh
    (per-TU verification sweep under authentic OPT.MAK flags).
  * README: corrected roadmap - MECH.HPP is the capstone grown with the mech
    TU reconstructions; BTREG.CPP green = the header-family milestone.

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>

BORLAND/BDE/EXAMPLES/PASCAL/TEST.PAS

@@ -0,0 +1,50 @@
+{ test.pas }
+program Test;
+
+{$IfDef VER80}
+uses SnipTool, SnipData, SysUtils, WinTypes, WinProcs,
+     DbiProcs, DbiTypes, DbiErrs;
+{$Else}
+uses WinTypes, WinCrt, Strings, DbiProcs, DbiTypes, DbiErrs,
+     SnipTool, SnipData;
+{$EndIf}
+
+{=====================================================================
+   Procedure:
+           TestCode();
+
+   Description:
+           This file provides a framework to use when writing new
+           IDAPI code.
+ ===================================================================== }
+
+var
+    hDb: hDBIDb;        { Handle to the database }
+
+begin
+    Screen('*** Test ***');
+    Screen('');
+
+    Screen('    Initializing IDAPI...');
+    if (InitAndConnect(hDb) <> DBIERR_NONE) then { Terminate example if }
+    begin                                        { Initialization fails }
+        Screen('');
+        Screen('*** End of Example ***');
+        exit;
+    end;
+
+    Screen('    Set the directory which is used by the database...');
+    ChkRslt(DbiSetDirectory(hDb, pCHAR(szTblDirectory)), DBIERR_NONE,
+            '    Error - SetDirectory.');
+
+    { Put test code here }
+    Screen('');
+    Screen('    Put test code here');
+    Screen('');
+
+    Screen('    Close the Database and exit IDAPI...');
+    CloseDbAndexit(hDb);
+
+    Screen('');
+    Screen('*** End of Example ***');
+end.