       10 // RND() test program
       20 //
       30 DIM count#(0:1)
       40 n#:=1000000
       50 FOR f#:=1 TO n# DO a#:=RND(1); count#(a#):+1  // Done this way because of the :+ bug.
       60 SYS assert, count#(0)+count#(1)=n#
       70 SYS assert, ABS(count#(0)-count#(1))<2000
       80 PRINT "Ok"
