diff options
-rw-r--r-- | tinybasic/dice.bas | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/tinybasic/dice.bas b/tinybasic/dice.bas new file mode 100644 index 0000000..f9d045b --- /dev/null +++ b/tinybasic/dice.bas @@ -0,0 +1,10 @@ +10 LET X = 6 +20 LET Y = R +30 GOSUB 1000 +40 PRINT Z +50 END +1000 REM mode operation +1010 LET Z = Y/X*X +1020 LET Z = Y-Z +1030 RETURN +2000 PRINT Z \ No newline at end of file |