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