The BASIC source can be broken out as follows. This assumes that the multiple statements on the same line of the THEN clause are part of a block which seems to be standard for old style BASIC.
100 PITCHHOR=(LSLATHOR/(NRSLATVER+1))
102 LSLATHOR=PITCHHOR*(NRSLATVER+1)
110 IF PITCHHOR>72 THEN
112 NRSLATVER=NRSLATVER+1
114 GOTO 100
116 END
I think that the following is close to the BASIC source. Have it in a loop that continues so long as the if statement condition is met. Nothing really wrong with goto statement just can be a source of errors. And frankly the following could also be an error if $pitchhor
does not converge to a value less than 72 therefor the thread ends up in an infinite loop.
<?php
do {
$pitchhor = (floatval($lslathor) / (floatval($nrslatver) + 1));
$lslathor = (floatval($pitchhor) * (floatval($nrslatver) + 1));
if($pitchhor > 72) {
$nrslatver += 1;
}
} while ($pitchhor > 72);
?>