Título: Erro de divisão por zero
Linguagem: Pascal
S.O.: DOS
Autor(es): Wenderson Teixeira

Erro de divisão por zero

No Turbo Pascal 7.0, quando se utiliza a Unit CRT, durante a inicialização da função Delay(), a mesma faz alguns cálculos para inicializar algumas variáveis, em computadores de clock muitorápido, normalmente acima de 200MHz, como por exemplo micros Pentium-Pro 200, algum desses cálculos excede a capacidade de um inteiro de 16 bits, fazendo com que seu programaseja abortado com a mensagem 'Runtime Error 200: Division by zero',para resolver este problema, existem vários "patches", vamos explicar dois desses, um para programas já compilados, e que você não possui o código fonte e outro para corrigir a Unit CRT, para que seus novos programas não apresentem mais este erro, segue abaixo os arquivos, siga as instruções para realizar a correção:

Corrigindo a Unit CRT

1. Faça o download de bp7patch.zip
2. Descompacte-o no mesmo diretório do Turbo Pascal 7
3. Faça um cópia de backup dos arquivos TPP.TPL e TURBO.TPL
4. Por fim execute "PATCH PATCHxxx", onde xxx é a versão do Turbo Pascal que você está corrigindo, ou seja, 700 ou 701

Corrigindo programas sem código fonte
1. Faça o download de tppatch.zip
2. Descompacte-o em algum diretório
3. Faça um cópia de backup dos arquivos .EXE que você estará alterando
4. Por fim execute "TPPATCH arquivo.exe", onde "arquivo.exe" é o nome do programa que você está corrigindo