procedure ShowError()
puts(1, "Pentium FPU Bug found. Please type \"SET NO87=1" &
"\" to disable FPU use, and restart the program.")
abort(1)
end procedure
if (4195835/3145727)*3145727 != 4195835 then 
ShowError()
end if
if (4195835*0.5)*2-1*0.5*2+1 != 4195835 then 
ShowError()
end if
if remainder( 7901234568,8) then      
ShowError()
end if