Randomize/

Randomize_1.bas

' |@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@|
' | Randomize Example 1                                                        | 
' |         by                                                                 |
' |        GDN Black Ops : FreeBASIC Division                                  |
' |@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@|
'                             http://gamedesign.wikidot.com/freebasic:randomize

' 'Randomize' seeds FreeBASIC's random number generator. If you seed it with
' the same number every time, the numbers will be the same everytime. The
' example below generates 10 random numbers and displays them.

' Try running this example a couple of times.

Randomize 4

For i = 1 to 10
    Print Int(Rnd(1)*100)+1
Next i

Sleep
End