Here is how the original looks and runs in Script BASIC.
jrs@jrs-laptop:~/sb/examples/test$ scriba random.sb' generates random #'s 0< x <1 20 SPLIT "4,0,0" BY "," TO A,I,R 30 LET A=A/3 50 LET B=(A+R)^8 60 LET R=B-INT(B) 70 LET I=I+1 80 IF I>10 THEN GOTO 110 90 PRINT FORMAT("%g",R),"\n" 100 GOTO 50 110 LET I=0 120 END
0.988721
0.238686
0.296148
0.704405
0.294489
0.301148
0.937858
0.994102
0.0343257
0.241162
jrs@jrs-laptop:~/sb/examples/test$
Bookmarks