10 REM THIS PROGRAM CALCULATES THE VALUE
20 REM OF PI USING THE CASINO METHOD WITH
30 REM GW-BASIC. IT IS ALMOST A DIRECT 
40 REM TRANSLATION OF THE C PROGRAM BY
50 REM LARRY HOSKEN.
60 REM TRANSLATION BY KINDLYRAT, 24 JUNE 2005
100 RANDOMIZE TIMER
110 FOR COUNT = 1 TO 10000
120 D = SQR( RND^2 + RND^2)
130 IF D < 1  THEN IN = IN + 1
140 NEXT COUNT
150 PRINT"CALCULATION OF PI BY CASINO METHOD"
160 PRINT 4.0 * IN / COUNT
170 END