17 lines
372 B
Plaintext
17 lines
372 B
Plaintext
$ASSERTS:CONSOLE
|
|
|
|
DO
|
|
a = INT(RND * 10)
|
|
b$ = myFunc$(a)
|
|
PRINT a, , b$
|
|
_LIMIT 3
|
|
LOOP UNTIL _KEYHIT
|
|
|
|
FUNCTION myFunc$ (value AS SINGLE)
|
|
_ASSERT value > 0, "Value cannot be zero"
|
|
_ASSERT value <= 10, "Value cannot exceed 10"
|
|
|
|
IF value > 1 THEN plural$ = "s"
|
|
myFunc$ = STRING$(value, "*") + STR$(value) + " star" + plural$ + " :-)"
|
|
END FUNCTION
|