' --------------------------------------------------------------------------
' REALRND.INC              Erzeugt wirklich 'zuf„llige' Pseudo-Zufallszahlen
' --------------------------------------------------------------------------
' PB 3.20                       (C)1997 by Marvin Stahl (Fido: 2:2410(330.7)
' --------------------------------------------------------------------------
' RANDOMIZE TIMER erzeugt zwar recht brauchbare Pseudo-Zufallszahlen, aber
' sollte der Befehl (was zugegebenermaáen recht unwahrscheinlich ist) zur
' selben Zeit aufgerufen werden, werden stets die gleichen 'Zufallszahlen'
' erzeugt. Die nachfolgende, kleine Routine schlieát dies nun aus. Der
' Initialwert des RANDOMIZE-Befehls ist in die aktuelle Uhrzeit in Sekunden
' UND das aktuelle Datum! Wenn sich das Datum also nicht wiederholt so sind
' die generierten Zufallszahlen auch immer 'zuf„llig'! ;-)
' --------------------------------------------------------------------------
SUB Real.Random
  I&&=TIMER				  ' z.B. 17243   max. 86.400
  I&&=I&&+100000*VAL(RIGHT$(DATE$,2))	  ' z.B. 97      max. 990.000
  I&&=I&&+1000000*VAL(LEFT$(DATE$,2))	  ' z.B. 05      max. 12.000.000
  I&&=I&&+100000000*VAL(MID$(DATE$,4,2))  ' z.B. 15      max. 3.100.000.000
  RANDOMIZE I&&
END SUB
'