• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 293
  • Last Modified:

Error 200 with TP 7.0

Turbo Pascal 7.0 is giving me trouble, no matter what program i try to run I get an error 200 (division by 0) even though there's no division in the program to begin with! Please help!
0
ryujin
Asked:
ryujin
  • 2
1 Solution
 
joe_hCommented:
The problem is in the CRT unit. There is a timing loop in its startup that is used to calibrate the delay() procedure, and it tries to divide by zero on a fast computer (e.g. Pentium 200 and faster).

You can read about it at
http://www.merlyn.demon.co.uk/pas-r200.htm

HTH, Joe

P.S. The following is directly from the authors of TP 7.0:
http://www.inprise.com/devsupport/pascal/

Applications that use the CRT unit may generate this error message when running on very fast machines (i.e. Pentium Pro 180 and above). The cause of this error is a timing loop that occurs as part of the initialization of the CRT unit. This timing loop counts how many clock ticks occur within the loop and then that number is divided by 55. The result of this division is a value that is too large to fit into an integer value. The 'Divide by 0' error message is the catch-all error that is displayed when this overflow occurs.

There are currently no Inprise endorsed patches for this problem. There are several user provided patches available on the internet that patch both the CRT unit as well as existing EXE files. The easiest way to obtain these patches is to go to www.altavista.digital.com and search on '+ bp7patch.zip + tppatch.zip' without the quotes.

 
0
 
My name is MudSystems EngineerCommented:
Format and reinstall
0
 
My name is MudSystems EngineerCommented:
Opppsss, i thought i was on the Windows secction, my mistake...
0

Featured Post

Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now