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