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