;;; AutoLISP File for
;;;   Inside AutoCAD Release 13 - IAW Disk (c) 1995 New Riders Publ.
;;;           Version 13.00 for Release 13 for Windows and NT
;;;                 Developed by Rusty Gesner.
;;;                  See the UPDATE.TXT file.
;;; 
;;;  This program tests your Pentium chip for a floating-point division bug.
;;;  To use this test, enter (load "p5test") at the Command: prompt.

(if (= 256.0 (- 4195835 (* 3145727 (/ 4195835.0 3145727))))
    (prompt (strcat 
      "\nYour Pentium chip appears to have a floating-point division bug."
      "\nIf you are concerned, call Intel at 1-800-628-8686 for replacement."
    )       )
    (prompt "\nYou do not have a flawed Pentium processor chip.")
)
(princ)