RPG attributes generator: Difference between revisions
m
Commodore BASIC: Corrected variables in dice sorting subroutine (lines 2000 through 2020).
m (Commodore BASIC: Corrected variables in dice sorting subroutine (lines 2000 through 2020).) |
|||
Line 1,009:
2000 rem sort dice
2005 for x=1 to 3:for y=
2010 if di(x)<di(y) then di(0)=di(x):di(x)=di(y):di(y)=di(0)
2015 next
2020 return
</lang>
| |||