about summary refs log blame commit diff stats
path: root/tinybasic/dice.bas
blob: f9d045b65617c8d16d7e7b9acec5caf438269324 (plain) (tree)
1
2
3
4
5
6
7
8
9
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