Basic_Stamp

' {$STAMP BS2}
' {$PBASIC 2.5}
Slump VAR Byte
die VAR Nib
lock VAR Bit
die = 8
DIRH = %11111111
DO
DO
IF IN0 = 0 THEN
lock = 1
ENDIF
PAUSE 10
LOOP UNTIL IN0 OR IN2
IF IN0 AND lock THEN
lock = 0
GOSUB nextdie
ELSEIF IN2 THEN
'GOSUB flipdie
ENDIF
GOSUB showdie
LOOP
Nextdie:
IF die = 4 THEN
die = 6
ELSEIF die = 6 THEN
die = 8
ELSEIF die = 8 THEN
die = 4
ENDIF
RETURN

showdie:
LOOKUP die, [%11101110, %10000010, %11011100, %11010110, %10110010, %01110110, %01111110, %11000010, %11111110], OUTH
RETURN