       10 // Test of random generator 
       20 // Courtesy of Dick Klingens
       30 //
       40 FOR end#:=1 TO 10 DO
       50   nloop#:=0
       60   REPEAT
       70     nloop#:+1
       80     k#:=RND(end#)
       90     error#:=(k#>end#)
      100   UNTIL error# OR nloop#=50000
      110   IF error# THEN
      120     PRINT ">>> Unexpected value for RND(",end#,")"
      130     PRINT "    Value = ",k#,
      140     SYS assert, FALSE
      150   ENDIF
      160 ENDFOR end#
      170 //
      180 PRINT "Ok"
