SCREEN 12
R% = 200 'raadius

CIRCLE (320, 260), R%, 12
LINE (320 - R%, 260 - R%)-(320 + R%, 260 + R%), 11, B
 DO
  x% = INT(RND * (2 * R% + 1) + 320 - R%)
  y% = INT(RND * (2 * R% + 1) + 260 - R%)
 Kokku& = Kokku& + 1

 IF (x% - 320) ^ 2 + (y% - 260) ^ 2 < R% ^ 2 THEN
    Sees& = Sees& + 1
    PSET (x%, y%), 12
 ELSE
    PSET (x%, y%), 11
 END IF

 LOCATE 1, 1
 PRINT "Sees:"; Sees&
 PRINT "Kokku:"; Kokku&
 PRINT "Pii="; 4 * Sees& / Kokku&

 


 LOOP UNTIL INKEY$ <> ""


 DO
 LOOP UNTIL INKEY$ = CHR$(27)