DIM Point2D   AS DOUBLE
DIM Number    AS DOUBLE
DIM Hits      AS DOUBLE
DIM Diff      AS DOUBLE
DIM Estimate  AS DOUBLE
DIM Accuracy  AS DOUBLE
DIM StartTime AS LONG

CLS
LOCATE 2, 1
   PRINT STRING$(40, "=")
   PRINT "     Hit-or-Miss Estimate of y = x^2"
   PRINT STRING$(40, "-")

LOCATE 21, 1
   PRINT STRING$(40, "-")
   PRINT "            Enter 0 to Exit"
   PRINT STRING$(40, "=")

VIEW PRINT 5 TO 20

INPUT "Number of Points: ", Number

WHILE Number > 0

   RANDOMIZE (INT(INT(TIMER) * 4369 / 5760) - 32768)  ' Scale the seed
                                                   ' for 24 hours.
   Hits = 0
   FOR Point2D = 1 TO Number
      IF RND <= RND ^ 2 THEN
         Hits = Hits + 1
      END IF
   NEXT Point2D

   PRINT
   PRINT "Area"; TAB(15); 1# / 3#
  
   Estimate = Hits / Number
   PRINT "Estimate"; TAB(15);
   PRINT USING "#.################"; Estimate
  
   Diff = (1# / 3#) - Estimate
   PRINT "Difference"; TAB(15);
   PRINT USING "#.################"; Diff

   Accuracy = 100 * (1 - ((1# / 3#) - Estimate) / (1# / 3#))
   PRINT "Accuracy"; TAB(13);
   PRINT USING "###.##%"; Accuracy
   PRINT
  
   INPUT "Number of Points: ", Number

WEND

END