#Check Getdistance Command
echo "*Check how many random sectors!"
getconsoleinput $max
setvar $i 1
setvar $home CURRENTSECTOR
while ($i <= $max)
   getrnd $dist[$i] 11 30000
   getdistance $test[$i] $home $dist[$i]
   add $i 1
end
setvar $i 1
send "*"
waitfor "Command [TL"
echo "*"
while ($i <= $max)
   echo $i "." " Distance from " $home " to " $dist[$i] " = " $test[$i] "*"
   add $i 1
end

halt

#Check Getdistance Command
echo "*Check how many random sectors!"
getconsoleinput $max
setvar $i 1
#setvar $home[$i] CURRENTSECTOR
while ($i <= $max)
   getrnd $home[$i] 11 30000
   getrnd $dist[$i] 11 30000
   getdistance $test[$i] $home[$i] $dist[$i]
   add $i 1
end
setvar $i 1
send "*"
waitfor "Command [TL"
echo "*"
while ($i <= $max)
   echo $i "." " Distance from " $home[$i] " to " $dist[$i] " = " $test[$i] "*"
   add $i 1
end
halt