diff options
| author | elioat <elioat@tilde.institute> | 2022-10-19 20:05:03 -0400 |
|---|---|---|
| committer | elioat <elioat@tilde.institute> | 2022-10-19 20:05:03 -0400 |
| commit | 9a690bcccfcefe6ebc10d9329cb390d19012c2bf (patch) | |
| tree | d23fee7f35b3571e04be4f6e39ebf4e5397d5d26 | |
| parent | eb4f43e5f32c5a3e27f98e1e0a834ccee3e44697 (diff) | |
| download | tour-9a690bcccfcefe6ebc10d9329cb390d19012c2bf.tar.gz | |
*
| -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 |