REM estimation of Pi
SCREEN 12
Ox% = (640 / 2)
Oy% = (480 / 2)
r% = Oy% - 1
CIRCLE (Ox%, Oy%), r%, 1
RANDOMIZE TIMER
max% = 30000
hits% = 0
FOR i% = 1 TO max%
    x# = ((RND * 2) - 1)
    y# = ((RND * 2) - 1)
    IF (((x# * x#) + (y# * y#)) < 1) THEN hits% = hits% + 1
    PSET ((x# * r%) + Ox%, (y# * r%) + Oy%), 3
    LOCATE 1, 1
    IF ((i% > 0) AND (hits% > 0)) THEN PRINT USING "##.#######"; (hits% / i%) * 4
NEXT i%