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