via George (my AI)
; *******************************************************
; * *
; * Turbo Pascal Runtime Library Version 6.0 *
; * CRT Interface Unit *
; * GEORGE FIXED: Runtime Error 200 bug corrected *
; * *
; * Copyright (C) 1988,91 Borland International ...
Search found 172 matches
- Wed Jun 24, 2026 2:37 am
- Forum: Turbo Pascal 7 Compiler
- Topic: CRT source - Runtime Error 200
- Replies: 1
- Views: 530
- Wed Jun 24, 2026 2:35 am
- Forum: Turbo Pascal 7 Compiler
- Topic: CRT source - Runtime Error 200
- Replies: 1
- Views: 530
CRT source - Runtime Error 200
If you own the 11 DISK set of Borland Pascal 7.0 (with Objects).
It comes with the full source to the RTL.
I ran the CRT.PAS and CRT.ASM through AI to find and fix RTE 200.
Here is is:
The Bug (Lines 100-106)
The initialization code tried to calibrate the delay timer by counting CPU loop ...
It comes with the full source to the RTL.
I ran the CRT.PAS and CRT.ASM through AI to find and fix RTE 200.
Here is is:
The Bug (Lines 100-106)
The initialization code tried to calibrate the delay timer by counting CPU loop ...
- Sat Jun 20, 2026 12:47 am
- Forum: Fidonet & Pascal
- Topic: FTSC-0008 ~ Extend FTSC-0001 for TELINK
- Replies: 0
- Views: 1737
FTSC-0008 ~ Extend FTSC-0001 for TELINK
TeLink was an early enhancement to the FidoNet protocol suite, designed to improve upon the limitations of standard XMODEM and provide better performance on the error-prone telephone lines and modems of the late 1980s and early 1990s.
- Sat Jun 20, 2026 12:45 am
- Forum: Fidonet & Pascal
- Topic: FTSC-0007 ~ Extend FTSC-0001 for SEALINK
- Replies: 0
- Views: 1712
FTSC-0007 ~ Extend FTSC-0001 for SEALINK
The primary purpose of this standard was to provide a more robust and efficient alternative to the original XMODEM-based transfers used in early FidoNet communications. SEAlink was designed specifically to handle the "sliding window" technology of newer high-speed modems while maintaining backward ...
- Fri Jun 19, 2026 9:45 pm
- Forum: Fidonet & Pascal
- Topic: FTSC-0006 ~ YooHoo and YooHoo/2u2
- Replies: 0
- Views: 1745
FTSC-0006 ~ YooHoo and YooHoo/2u2
The YOOHOO protocol was designed to automate the initial connection between two Bulletin Board Systems (BBS). When one system dials another, YOOHOO allows them to electronically "introduce" themselves, verifying their FidoNet addresses and determining which file transfer protocols (like XMODEM ...
- Fri Jun 19, 2026 9:43 pm
- Forum: Fidonet & Pascal
- Topic: FTSC-0005 - The distribution Nodelist
- Replies: 0
- Views: 1747
FTSC-0005 - The distribution Nodelist
The specification describes a hierarchical system for organizing FidoNet member systems, allowing mail-routing software (mailers) to find the physical and logical location of any node in the world.
- Fri Jun 19, 2026 9:41 pm
- Forum: Fidonet & Pascal
- Topic: FTSC-0004 ~ The Conference Mail System (EchoMail Specification)
- Replies: 0
- Views: 1788
FTSC-0004 ~ The Conference Mail System (EchoMail Specification)
The EchoMail specification outlines how public discussion groups (areas) are managed, bundled, and transmitted between FidoNet nodes. Before EchoMail, FidoNet primarily supported "NetMail" (private point-to-point messages). FTS-0004 provided the blueprint for a decentralized, worldwide public ...
- Tue Jun 16, 2026 7:47 pm
- Forum: It's all about AI
- Topic: Home made
- Replies: 1
- Views: 3193
Re: Home made
Architectural BreakdownData Layout: Matrix manipulations rely on standard, dynamically-allocated array of array of Double. This eliminates pointer layout confusion while remaining memory safe.The Activation Engine: Uses the native standard Math unit's Exp function to build the classic Sigmoid ...
- Tue Jun 16, 2026 7:46 pm
- Forum: It's all about AI
- Topic: Home made
- Replies: 1
- Views: 3193
Home made
program PurePascalAI;
{$MODE OBJFPC} {$H+}
uses
SysUtils, Math;
type
TVector = array of Double;
TMatrix = array of TVector;
{ TNeuralNetwork represents a 3-layer network: Input -> Hidden -> Output }
TNeuralNetwork = class
private
FInputSize: Integer;
FHiddenSize: Integer;
FOutputSize ...
{$MODE OBJFPC} {$H+}
uses
SysUtils, Math;
type
TVector = array of Double;
TMatrix = array of TVector;
{ TNeuralNetwork represents a 3-layer network: Input -> Hidden -> Output }
TNeuralNetwork = class
private
FInputSize: Integer;
FHiddenSize: Integer;
FOutputSize ...
- Sun Jun 14, 2026 11:27 pm
- Forum: Active Projects
- Topic: Brain Patchwork's DXWF
- Replies: 0
- Views: 2405
Brain Patchwork's DXWF
In the 90's I helped co-author DevExpress' ExpressWebFramework (EWF) for Delphi 7.
30 years later, no one has taken this to the level of Delphi Developer [pushes] a DXWF application to a DXSock based webserver [all using Delphi 7].
1. The web server receives the PUSH source. [.dpr, .dfm, .pas, etc ...
30 years later, no one has taken this to the level of Delphi Developer [pushes] a DXWF application to a DXSock based webserver [all using Delphi 7].
1. The web server receives the PUSH source. [.dpr, .dfm, .pas, etc ...