10 A%=RND(-10)
   20 PRINTSPC14"RND   RND(9)   RND(1)"
   30 FOR A%=1 TO 12
   40   PRINT"RND gives: ";~RND;"   ";RND(9);"   ";RND(1)
   50   READ A$:PRINT"Should be: ";A$
   60 NEXT
   70 DATA 800097FB   4   5.28391334E-3
   80 DATA B804B680   2   0.94640487
   90 DATA 133402CA   9   9.26287356E-2
  100 DATA 6C232DC9   6   0.484474902
  110 DATA C921CFAC   3   0.793353118
  120 DATA 4E84B80D   8   0.507511965
  130 DATA B1EEED5E   8   0.760151696
  140 DATA 40BAE8EA   6   0.900049238
  150 DATA 3BCE574F   2   2.74360033E-2
  160 DATA D0E5FE0D   5   0.655968605
  170 DATA 121D07F2   4   0.352308167
  180 DATA F86AB7AB   6   5.03357102E-2