'BASIC Stamp 1 software for
'hand of death prototype 1 (& 2)
dirs = %11110101 
'bit assignments
'0=tomotor 2=toxfmr 3=fromcomp
'4,5,6,7 = to four motors of proto 2
'b3 byte used for serial input register
'b4 byte used as a counter

turnoff:
pins = 0

loop:
serin 3,1,b3
'this is  1200  8 N 1
if b3 <= 48 then turnoff 'ASCII 0
'turn all devices off
if b3 = 49 then turnmoon 'ASCII 1
'turn motor pin0 on
if b3 = 50 then turnxfmon 'ASCII 2
'turn xfmr pin2 on
if b3 > 50 then modetwo 'ASCII 3+
'go into proto 2 mode
goto loop

turnmoon:
pin0 = 1 'motor on
goto loop

turnxfmon:
pin2 = 1 'xfmr on
goto loop

modetwo:
'directly control output pins
serin 3,1,b3
pins = b3
goto loop