Hello all,
I am currently trying to build a animatronic suit (like a tunes down Iron Man crossed with Dead Pool) , and am proofing code for the weapons and interface system and do not currently posses the financial "Bling" to pay for the display. (Its kinda hard to find a job in this market especially if you are a teenager!) So instead of waiting to get the display to work out all of the kinks, I was wondering if anyone would mind "proofing" my V.09 code for the main interface. Thanks!

' {$STAMP BS2sx}
' {$PBASIC 2.5}
'Transmit CON 0
'Rf_transmitter CON 1
'Rssi CON 2
'Sonar CON 3
'Switch1 CON 4
'Switch2 CON 5
'Switch3 CON 6
'Switch4 CON 7
'Switch5 CON 8
'Display CON 10
'Relay1 CON 11
'Relay2 CON 12
'BS CON 13

UP VAR WORD '4
Down VAR WORD '5
Left VAR WORD '6
Right VAR WORD '7
Middle VAR WORD '8
Z VAR WORD
A VAR WORD
B VAR WORD
E VAR WORD
N VAR WORD
JJ VAR WORD
Time VAR WORD
indistance VAR WORD




Main:
PAUSE 10
GOSUB Weapons_Arming
GOSUB Sensor_Sweep
PAUSE 1
SEROUT 13, 16468, ["!", Up.HIGHBYTE, Up.LOWBYTE, Down.HIGHBYTE, Down.LOWBYTE, Left.HIGHBYTE, Left.LOWBYTE,
Right.HIGHBYTE, Right.LOWBYTE, Middle.HIGHBYTE, Middle.LOWBYTE]
PAUSE 100
LOW 15
SEROUT 0, © 16468, ["!", E.HIGHBYTE, E.LOWBYTE, N.HIGHBYTE, N.LOWBYTE, Z.HIGHBYTE, Z.LOWBYTE,
JJ.HIGHBYTE, JJ.LOWBYTE, A.HIGHBYTE, A.LOWBYTE]



Weapons_Arming:
DEBUG "Weapons Menu", CR, "Coilgun", CR
SEROUT 10, 84, ["Weapons Menu", 13, "Coilgun"]
IF IN4 > 0 THEN RETURN 'Up
IF IN5 > 0 THEN GOSUB Robot_menu 'Down
IF IN6 > 0 THEN GOSUB Rocket 'Left
IF IN7 > 0 THEN GOSUB LED 'Right
IF IN8 > 0 THEN GOSUB Coilgun 'Select

Rocket:
SEROUT 10, 84, ["Weapons Menu", 13, "Rocket"]
IF IN4 > 0 THEN GOTO Weapons_Arming
IF IN6 > 0 THEN GOSUB Led
IF IN7 > 0 THEN GOSUB Coilgun
IF IN8 > 0 THEN GOTO Arm_Rocket

Led:
SEROUT 10, 84, ["Weapons Menu", 13, "Led"]
IF IN4 > 0 THEN GOTO Weapons_Arming
IF IN6 > 0 THEN GOTO Coilgun
IF IN7 > 0 THEN GOTO Rocket
IF IN8 > 0 THEN GOTO Arm_led

Coilgun:
SEROUT 10, 84, ["Weapons Menu", 13, "Coilgun"]
IF IN4 > 0 THEN GOTO Weapons_Arming
IF IN6 > 0 THEN GOTO Rocket
IF IN7 > 0 THEN GOTO Led
IF IN8 > 0 THEN GOTO Arm_coilgun

Arm_Rocket:
SEROUT 10, 84, ["Weapons Menu", 13, "Arm L:Y R:N"]
IF IN4 > 0 THEN GOTO Rocket
IF IN6 > 0 THEN Up = 9
IF IN7 > 0 THEN Up = 11


Arm_Coilgun:
SEROUT 10, 84, ["Weapons Menu", 13, "Arm? L:Y R:N"]
IF IN4 > 0 THEN GOTO Coilgun
IF IN6 > 0 THEN Right = 9
IF IN7 > 0 THEN Right = 11

Arm_Led:
SEROUT 10, 84, ["Weapons Menu", 13, "Arm? L:Y R:N"]
IF IN4 > 0 THEN GOTO Led
IF IN6 > 0 THEN Left = 9
IF IN7 > 0 THEN Left = 11


Robot_Menu:
SEROUT 10, 84, ["Robot Menu", 13, "Forward"]
IF IN4 > 0 THEN
IF IN5 > 0 THEN
IF IN6 > 0 THEN
IF IN7 > 0 THEN
IF IN8 > 0 THEN


System_Menu:
SEROUT 10, 84, ["System Info", 13, "Mark J"]
IF IN4 > 0 THEN
IF IN5 > 0 THEN
IF IN6 > 0 THEN
IF IN7 > 0 THEN
IF IN8 > 0 THEN



ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF


Sensor_Sweep:
PULSOUT 15, 5
PULSIN 15, 1, time
inDistance = 890 ** time

RETURN