`Infrared Remote M- John Lennon- 14M2- LED's + 12 Tunes + Sounds.bas 
`Pat McMahon 27/1/2019  
symbol SERVO1 = B.3  ' Servo 1 on pin 3
symbol SERVO2 = B.4  ' Servo 2 on pin 4
symbol CENTER_POS = 150  ' Center position
symbol MOVE_POS_L = 120  ' Center position
symbol MOVE_POS_R = 170    ' 20 degrees forward
symbol STEP_DELAY = 50   ' Delay between each step (ms)
symbol STEP_SIZE = 2     ' How much to change per step
init:
    servo SERVO1, CENTER_POS  ' Initialize Servo 1 at center
    servo SERVO2, CENTER_POS  ' Initialize Servo 2 at center
    pause 1000  ' Wait for stability

main:
	infrain2			'wait for new signal from hand controller
	if infra=0 then LED1 	'Button 1,turns on LED1.
	if infra=1 then LED2 	'Button 2,turns on LED2.
	if infra=2 then LED3 	'Button 3,turns on LED3.
	if infra=3 then LED4 	'Button 4,turns on LED4.
	if infra=4 then LED5	'Button 5,turns on LED5.
	if infra=5 then LED6	'Button 6,turns on LED6.
	if infra=6 then LED7	'Button 7,turns on LED7.
	if infra=7 then LED8	'Button 8,turns on LED8.
	if infra=8 then LED9	'Button 9,turns on LED9.
	if infra=9 then LED10	'Button 0/10,turns on LED10.
	 if infra=101 then AllOff	'Button Surround,turns on AllOff
	`if infra=118 then AllOn	'Button Return,turns on AllOn.
	
	if infra=116 then UpButton	'UpToggle gives UpWave.
	if infra=117 then DownButton 	'DownToggle gives DownWave.
	if infra=52 then LeftButton		'LeftToggle gives CaveIn.
	if infra=51 then RightButton	'RightToggle gives CaveOut.
	
	if infra=76 then BeatlesLetItBe1
	if infra=77 then BeatlesAllyouneedislove2
	if infra=78 then BeatlesGivepeaceachance3
	if infra=79 then BeatlesHardDaysNight4
	if infra=54 then BeatlesSheLovesYou5
	if infra=60 then JamesBondTheme6
	if infra=24 then JurassicParkTheme7
	if infra=61 then KissIWasMadeForLovingYou8
	if infra=27 then MichaelJacksonBeatIt9
	if infra=26 then SesameStreet10
	if infra=25 then StarWarsImperialMarch11 
	if infra=28 then IndianaJones12
	
	if infra=96 then V5: 		'plays Happy Birthday
	if infra=23 then V6: 		'plays 4 Inbuit Tunes
	if infra=118 then V8: 		'plays Door Bell
	if infra=18 then V9: 		'plays British Police Siren
	if infra=19 then V10: 		'plays Increasing Pitch
	if infra=37 then V14: 		'plays American Police Siren
	if infra=58 then V16: 		'plays Failed Sound
	if infra=16 then V18: 		'plays Passed Sound
	if infra=17 then V19: 		'plays Gun Fire
	
LED1:	high 0 goto main	
LED2:	high 1 goto main
LED3:	high 2 goto main	
LED4:	high 3 goto main	
LED5:	high 4 goto main
LED6:	high 5 goto main
LED7:	high C.0 goto main
LED8:	high C.1 goto main
LED9:	high C.2 goto main
LED10:high C.4 goto main
AllOff:  low 5 goto main
AllOn: high 5 goto main	

UpButton:	
	' Slowly move servos to the forward position
    for b0 = CENTER_POS to MOVE_POS_R step STEP_SIZE
        servopos SERVO1, b0
        servopos SERVO2, b0
        pause STEP_DELAY
    next b0

    ' Pause at the extreme position
    pause 500  

    ' Slowly return servos to the center position
    for b0 = MOVE_POS_R to CENTER_POS step -STEP_SIZE
        servopos SERVO1, b0
        servopos SERVO2, b0
        pause STEP_DELAY
    next b0

    ' Pause before repeating
    pause 500  
	 for b0 = CENTER_POS to MOVE_POS_L step -STEP_SIZE
        servopos SERVO1, b0
        servopos SERVO2, b0
        pause STEP_DELAY
    next b0

    ' Pause at the extreme position
    pause 500  

    ' Slowly return servos to the center position
    for b0 = MOVE_POS_L to CENTER_POS step STEP_SIZE
        servopos SERVO1, b0
        servopos SERVO2, b0
        pause STEP_DELAY
    next b0

    ' Pause before repeating
    pause 500  

    goto main  ' Repeat the movement loop

DownButton:
servopos SERVO1, MOVE_POS_R  ' Move Servo 1 forward
    servopos SERVO2, MOVE_POS_L  ' Move Servo 2 forward
    pause 500  ' Wait 0.5 seconds
    servopos SERVO1, CENTER_POS  ' Return Servo 1 to center
    servopos SERVO2, CENTER_POS  ' Return Servo 2 to center
    pause 500  ' Wait 0.5 seconds
	goto main
RightButton: 
 	servopos SERVO1, MOVE_POS_R  ' Move Servo 1 forward
    servopos SERVO2, MOVE_POS_R  ' Move Servo 2 forward
    pause 500  ' Wait 0.5 seconds
    servopos SERVO1, CENTER_POS  ' Return Servo 1 to center
    servopos SERVO2, CENTER_POS  ' Return Servo 2 to center
    pause 500  ' Wait 0.5 seconds
	goto main
LeftButton:
	servopos SERVO1, MOVE_POS_L  ' Move Servo 1 forward
    servopos SERVO2, MOVE_POS_L  ' Move Servo 2 forward
    pause 500  ' Wait 0.5 seconds
    servopos SERVO1, CENTER_POS  ' Return Servo 1 to center
    servopos SERVO2, CENTER_POS  ' Return Servo 2 to center
    pause 500  ' Wait 0.5 seconds
	goto main
BeatlesLetItBe1:
	tune 2, 8,($44,$42,$00,$44,$47,$49,$47,$47,$47,$44,$42,$40,$69,$67,$04,$2C,$44,$44,$45,$44,$44,$42,$6C,$44,$42,$42,$C0)
	goto main
BeatlesAllyouneedislove2: tune 2, 6,($47,$6C,$47,$47,$6C,$47,$6C,$6C,$47,$EC,$4B,$6C,$6C,$4A,$49,$48,$47,$2C,$47,$6C,$47,$47,$6C,$47,$6C,$47,$2C,$6C,$4B,$6C,$4A,$49,$48,$47,$2C,$47,$6C,$47,$48,$6C,$48,$6C,$09,$2C,$C4,$2C,$42,$44,$42,$6C,$40,$40)
 	goto main
BeatlesGivepeaceachance3: tune 2, 8,($54,$52,$50,$52,$47,$6C,$47,$55,$54,$52,$50,$6C,$54,$52,$50,$52,$47,$6C,$55,$54,$52,$50)
	goto main
BeatlesHarddaysnight4: tune 2, 8,($41,$42,$41,$44,$6C,$44,$6C,$44,$2C,$44,$44,$42,$44,$47,$6C,$44,$42,$44,$41)
	goto main
BeatlesShelovesyou5: tune 2, 5,($47,$49,$6C,$50,$6C,$10,$2C,$0B,$6C,$09,$2C,$47,$49,$6C,$50,$6C,$10,$6C,$6C,$0B,$6C,$6C,$49,$2C,$44,$44,$45,$6C,$6C,$45,$6C,$45,$2C,$42,$43,$6C,$43,$6C,$42,$6C,$42,$42,$6C,$40,$6C)
	goto main
JamesBondTheme6: tune 2, 6,($64,$66,$66,$66,$26,$64,$64,$64,$64,$67,$67,$67,$27,$66,$66,$66,$64,$66,$66,$66,$26,$64,$64,$64,$64,$67,$67,$67,$27,$66,$65,$64,$43,$C2,$6B,$69,$AB)
	goto main
JurassicParkTheme7: tune 2, 6,($6A,$05,$40,$07,$47,$49,$4A,$4A,$49,$45,$C7,$6C,$4A,$49,$45,$46,$42,$40,$42,$43,$42,$69,$47,$47,$42,$49,$C9,$6A,$40,$6A,$69,$6A,$69,$27,$67,$40,$60,$6A,$2A,$29,$69,$42,$69,$47,$47,$46,$04,$09,$47,$06)
	goto main
KissIWasMadeForLovingYou8: tune 2, 6,($24,$26,$27,$69,$2B,$6B,$29,$27,$26,$24,$26,$27,$69,$2B,$6B,$E9,$6C,$62,$24,$26,$27,$69,$2B,$6B,$29,$27,$26,$24,$26,$27,$69,$2B,$6B,$E9)
	goto main
MichaelJacksonBeatIt9: tune 2, 6,($66,$23,$66,$6A,$46,$03,$03,$43,$01,$01,$6C,$23,$66,$6A,$46,$03,$03,$43,$01,$2C,$6C,$23,$66,$6A,$46,$03,$03,$43,$01,$01,$6C,$23,$66,$6A,$46,$03,$03,$43,$01)
	goto main	
SesameStreet10:tune 2, 5,($C0,$29,$E5,$65,$67,$29,$2C,$C0,$29,$A5,$2C,$C0,$29,$E5,$65,$27,$29,$EB,$00,$C2,$2C,$40,$42,$03,$02,$00,$29,$27,$67,$69,$2A,$29,$67,$60,$60,$A0)
	goto main
StarWarsImperialMarch11: tune 2, 8,($27,$27,$27,$63,$6A,$27,$63,$6A,$27,$6C,$02,$02,$02,$43,$6A,$26,$63,$6A,$27,$6C,$07,$67,$67,$07,$46,$45,$44,$42,$43,$6C,$68,$01,$40,$6B,$6A,$69,$6A,$6C,$63,$26,$64,$6A,$27,$63,$6B,$27)
	goto main
IndianaJones12:tune 2, 3,($24,$6C,$65,$67,$6C,$C0,$6C,$22,$6C,$64,$A5,$2C,$27,$6C,$69,$6B,$6C,$C5,$2C,$29,$6C,$6B,$C0,$C2,$C4,$24,$6C,$65,$67,$6C,$80,$2C,$02,$6C,$44,$85,$27,$6C,$67,$04,$6C,$02,$6C,$67,$04,$6C,$02,$6C,$67,$05,$6C,$04,$6C,$42,$80)
	goto main
V5:
play 2,0
goto main
V6:
play 2,0
play 2,1
play 2,2
play 2,3
goto main
V8:
sound 2,(108,80)
sound 2,(102,80)
goto main
V9:
sound 2,(100,50) pause 100
sound 2,(85,50) pause 100
goto main
V10:
sound 2,(10,200)
sound 2,(30,200)
sound 2,(50,200)
sound 2,(100,200)
sound 2,(150,200)
goto main
V14:
for b2=100 to 125
sound 2,(b2,1)
next
for b2=125 to 100 step-1
sound 2,(b2,1)
next
goto main
V16:
sound 2,(40,10,0,20,2,40)
pause 500
goto main
V18:
sound 2,(120,10,118,10,122,10,120,20)
pause 500
goto main
V19:
sound 2,(255,5)
pause 50
goto main