 |
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
)
+
10
, 0
PRINT
r#
NEXT
NEXT
LOCATE
i, j
COLOR
7
, 0
j