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, 0j
 

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