Shortest useful program

[oracle]

Reasonable idea. How about we start with a few one line functions:

Code:

DEF FNround# (m#) = SGN(m#) * INT(100 * ABS(m#) + .5) / 100

DEF FNmin (a, b) = a * ABS(a <= b) + b * ABS(a > b)

DEF FNmax (a, b) = a * ABS(a >= b) + b * ABS(a < b)

DEF FNroll3D6% = INT(6 * RND) + INT(6 * RND) + INT(6 * RND) + 3

DEF FNflip$ = MID$("HEADTAIL", 4 * INT(2 * RND) + 1, 4)

Now, lets see some real entries!