BCX Console Demonstration Program s135.bas
|
GLOBAL i, j, r#
CLS
PRINT " **********************************************"
PRINT " The BCX random number engine produces"
PRINT " in some random order numbers between 0 and 1."
PRINT " **********************************************"
COLOR 2, 0 : LOCATE 12, 25, 0
INPUT "Hit [Enter] to see a sample", i : COLOR 7, 0
CLS
RANDOMIZE(TIMER)
FOR i = 1 TO 23
FOR j = 1 TO 70 STEP 20
r# = RND
LOCATE i, j, 0
COLOR MOD(i, 4.0) + 10, 0
PRINT r#
NEXT
NEXT
LOCATE i, j
COLOR 7, j
Result:
0.520558774471283 0.837492167949677 0.854179561138153 0.176067650318146
0.99820202589035 0.568452835083008 0.238240525126457 0.783827245235443
0.506363570690155 0.139520138502121 0.611960113048553 0.0845220312476158
0.467589348554611 0.252807796001434 0.927664995193481 0.0802043676376343
0.116213507950306 0.304557800292969 0.844011604785919 0.167771995067596
0.975233912467957 0.94030225276947 0.693510890007019 0.280930757522583
0.961743652820587 0.349876701831818 0.877885520458221 0.88564121723175
0.959218978881836 0.135207682847977 0.561023712158203 0.733940303325653
0.00958338845521212 0.513826787471771 0.0725971758365631 0.901802062988281
0.400305479764938 0.78253161907196 0.977575480937958 0.0563920885324478
0.241695612668991 0.133817330002785 0.45288497209549 0.338600367307663
0.988536775112152 0.409025728702545 0.0350382924079895 0.0946725159883499
0.729965925216675 0.21047879755497 0.979761600494385 0.932413280010223
0.158571243286133 0.22894224524498 0.768654346466064 0.278467655181885
0.504266738891602 0.838892936706543 0.152980074286461 0.496095895767212
0.510842621326447 0.735251665115356 0.710846960544586 0.753730595111847
0.53466659784317 0.325702279806137 0.546259641647339 0.918784439563751
0.1458360850811 0.839927792549133 0.297372281551361 0.60218209028244
0.37820640206337 0.100460089743137 0.878718674182892 0.655825078487396
0.298891603946686 0.492881447076797 0.398063033819199 0.764642953872681
0.594934225082397 0.420326888561249 0.978565812110901 0.405729472637177
0.453569918870926 0.719249367713928 0.553262948989868 0.517967998981476
0.212843775749207 0.353707939386368 0.71906703710556 0.395516216754913