`` Simple Random Generator Demo


constant int IM = 139968
constant int IA =  3877
constant int IC = 29573


real generateRandom(real top)
    int last = time()
    last = (last * IA + IC) mod IM
return  (top * last) / IM

int main(int argc, array argv)

    real top
    if argc = 2
        top = argv[1].toReal()
    else
        print ~~
Random Demo
syntax:
  random maxvalue
        ~~
        exit(0)
    /if    

    real result
    result  = generateRandom(top)

    print "Generated:", int(result)
    
return 0


main($argc, $argv)