rnd.bas

82 sample programs written in BASCOM-8051 for 8051 developement

'---------------------------------------------------------
'                     (c) 2000 MCS Electronics
'                           RND.BAS
'---------------------------------------------------------
Dim W As Word

Do
  'get a random number and limit it to be maximum 100
  W = Rnd(100)
  Print W
Loop
End