05-03-2003, 12:48 AM
Crappy but working
Code:
DECLARE FUNCTION MyRandom% (Bottom%, Top%)
DIM SHARED seed%
seed% = 0
FOR i& = 0 TO 100000
PRINT MyRandom%(0, 100);
NEXT
FUNCTION MyRandom% (Bottom%, Top%)
Range% = Top% - Bottom%
IF seed% < 1000 THEN seed% = 1000
value& = seed% \ 35: seed% = (value& * 37) AND 32767
t% = value& MOD Range%
MyRandom% = t% + Bottom%
END FUNCTION
SCUMM (the band) on Myspace!
ComputerEmuzone Games Studio
underBASIC, homegrown musicians
[img]http://www.ojodepez-fanzine.net/almacen/yoghourtslover.png[/i
ComputerEmuzone Games Studio
underBASIC, homegrown musicians
[img]http://www.ojodepez-fanzine.net/almacen/yoghourtslover.png[/i