Yes that is a Virgin Mary candle in on my computer desk. (e:matthew) just got it for me. I think it is helping my basic stamp.
The simple serial joystick code I wrote
' {$STAMP BS2}
DEBUG "code start", CR
INPUT 12
INPUT 13
INPUT 14
INPUT 15
up VAR Bit
down VAR Bit
left VAR Bit
right VAR Bit
upcount VAR Byte 'keep tabs on # of times up was pressed
downcount VAR Byte 'keep tabs on # of times down was pressed
leftcount VAR Byte 'keep tabs on # of times left was pressed
rightcount VAR Byte 'keep tabs on # of times right was pressed
Index VAR Nib ' Define normal nibble variable.
test:
'reset values for next test loop
up = 0
down = 0
left = 0
right = 0
uploop:
IF IN12 <> 1 THEN downloop
up = 1
upcount = upcount + 1
downloop:
IF IN13 <> 1 THEN leftloop
down = 1
downcount = downcount + 1
leftloop:
IF IN14 <> 1 THEN rightloop
left = 1
leftcount = leftcount + 1
rightloop:
IF IN15 <> 1 THEN printloop
right = 1
rightcount = rightcount + 1
printloop:
IF up + down + left + right = 0 THEN nothing_pressed 'don't print anything because nothing is being pressed
DEBUG "total ", ? upcount
DEBUG "total ", ? downcount
DEBUG "total ", ? leftcount
DEBUG "total ", ? rightcount
PAUSE 200 'pause before next pole
IF upcount > 15 THEN winloop 'if the user pressed up 15 times then go to the winning loop
GOTO test
nothing_pressed: 'nothing is pressed try again, don't bother pausing
GOTO test
winloop:
DEBUG "You won by pressing the up button 15 times"
END
END
