P702 CEEFAX 702 Sun 22 Feb 20:20/02
30102040* PI 30102040*
1 REM PI (evaluating Pi by montecarlo me
thod) ver 2 W Tagg Nov 79; converted A W
allis Nov 80‖¾2 L$=SPACE$(40)‖-3 PRINT C
HR$(12);‖l4 PRINT YEL "Evaluating Pi"‖45
PRINT RED "============="‖v6 PRINT CUR(
3,0) SPACE$(39) STRING$(39,8) YEL "Slow
or fast (S/F)? "; : GET A$‖&7 I=INSTR(1,
"SF",A$) : IF I=0 THEN GOTO 6 ELSE IF I=
1 THEN L.=200. ELSE L.=20.‖g8 PRINT CHR$
(12); : FOR L=0 TO 23 : PRINT CUR(L,0) G
MAG; : NEXT L ‖99 DEF FNL(Y)=23-(Y+12)/3
‖w10 DEF FNC(X)=X/2 ‖"11 FOR Y=32 TO 52
: TXPOINT 15,Y : NEXT Y ‖w12 FOR X=13 T
O 56 : TXPOINT X,42 : NEXT X ‖x13 PRINT
CUR(FNL(29),FNC(11)) "PI"‖714 FOR I.=0.
TO 43.*L. STEP L.‖,15 RANDOMIZE ‖+16
FOR J.=1. TO L.‖;17 X=60.*RND‖;18
Y=60.*RND‖=19 IF (X-30)↑2+(Y-30)↑
2<900 THEN GOTO 24‖v20 K.=K.+1.‖721
X=X-2 : IF X<0 THEN X=0 ELSE IF X>77
THEN X=77‖z‖