P188 ORACLE 188 Sat 4 Apr ITV 0010:00 12); : FOR L=0 TO 23 : PRINT CUR(L,0) G MAG; : NEXT L <99 DEF FNL(Y)=23 (Y+12)/3 : TXPGLNT 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.|,11 RANDGDIZE |+16 FOR J.=1. TO L.|;17 X=60.*RND|;18 Y=60.*RND|=19 IF (X-30)N2+ Y-30)^ 2<900 T@EN GOTO 24|v20 K.=K.+1.|721 X=X-2 : IF X<0 THEN X=0 ELSE IF X>77 DHEN X=77|z|
P188 ORACLE 188 Sat 4 Apr ITV 0011:00 3,0) SPACE$ 39) STRING$ 39,8) YEL "Slow or fast (S/F)? "; : GET A$|&7 H "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G MAG; : NEXT L |99 DEF FNL(Y)=23-(Y+12)' |w10 DEF FNC(X)=X'2 |"11 FOR Y=32 TO 52 : TX@NHNT 15,Y : NEXT Y |w12 FOR X=13 D 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)^ 0<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|
P188 ORACLE 188 Sat 4 Apr ITV 0011:18 30102040* PI 30102040* 1 REM PI (evaluating Pi by montdaarlo 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(
P188 ORACLE 188 Sat 4 Apr ITV 0010:11 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 PPINT 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$
P188 ORACLE 188 Sat 4 Apr ITV 1951:00 30102040* PI 30102040* 22 Y=Y+12 : IF Y<0 THEN Y=0 ELSE IF Y>71 THEN Y=71|$23 TXPOINT X,Y|424 NEXT JN <925 P.=4.-4.*K./(I.+L.)|.26 P$=NUM$(P.) : FOR I1=LEN(P$)+1 TO 10 : P$=P$+" " : NEXT I1 : L$=P$+L$|+27 FO R I1=1 TO 10|x28 PRINT CUR(21,0) MID $(L$,LEN(L$)-40,40)|y29 L$=LEFT$(L$, LEN(L$)-1)|n30 FOR I2=1 TO 130 : NEX T I2 ||31 NEXT I1 |932 P1=INT(100.*( P.-3.14139)+.5)|333 IF P1=0 THEN C=-1 ELSE C=1|f34 X1=I.7L.+13 : Y1=42+P1|+3 5 IF P1<25 AND P1>-25 THEN IF NOT TXPO INT(X1,Y1) THEN TXPOINT X1,Y1,C
P188 ORACLE 188 Sat 4 Apr ITV 2003:38 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|
P188 ORACLE 188 Sat 4 Apr ITV 2002:01 30102040* PI 30102040* 22 Y=Y+12 : IF Y<0 THEN Y=0 ELSE IF Y>71 THEN Y=71|$23 TXPOINT X,Y|424 NEXT JN |925 P.=4.-4.*K./(I.+L.)|.26 P$=NUM$(P.) : FOR I1=LEN(P$)+1 TO 10 : P$=P$+" " : NEXT I1 : L$=P$+L$|+27 FO R I1=1 TO 10|x28 PRINT CUR(21,0) MID $(L$,LEN(L$)-40,40)|y29 L$=LEFT$(L$, LEN(L$)-1)|n30 FOR I2=1 TO 150 : NEX T I2 ||31 NEXT I1 |932 P1=INT(100.*( P.-3.14139)+.5)|333 IF P1=0 THEN C=-1 ELSE C=1|f34 X1=I./L.+13 : Y1=42+P1|+3 5 IF P1<25 AND P1>-25 THEN IF NOT TXPO INT(X1,Y1) THEN TXPOINT X1,Y1,C|f36 NEXT I. |{37 PRINT CUR(22,0) YEL "End of pro gram M press spacebar"|;38 IF SYS(5) THE N GET A$ ELSE GOTO 38|<39 IF A$<>" " THE N GOTO 38|-40 GOTO 65531|}|