' PROP CONTROLLER V3.0
' Basic program skeleton
' Alle Angaben ohne Gewähr.
' Verwendung auf eigene Gefahr, soweit gesetzlich zulässig.
' Eine Haftung gemäß §823 BGB besteht grundsätzlich nur bei Vorsatz und grober Fahrlässigkeit.
' (c) 2004-2008 Sascha Kimmel. Alle Rechte vorbehalten.
' Lizenz: CreativeCommons Attribution-NonCommercial-ShareAlike-3.0 http://creativecommons.org/licenses/by-nc-sa/3.0/de/
' Homepage: http://www.sascha-kimmel.com/propcontroller
' Date: 15.09.2004, 21.08.2005, 28.10.2005, 26.10.2007

' ------ CORE CONFIG BLOCK -------------------------------------------------------------------
' ------ You should not change anything here unless you really know what you are doing
' ------ as this may damage the PropController
' --------------------------------------------------------------------------------------------

' Define our trigger input
DEFINE TRIGGER port[7]

' When the program is running (i.e. the TRIGGER input has
' been activated) and the program is running its pre-defined
' program this must be set to 1, else to 0
DEFINE RUNNING port[5]

' This must be checked on every TRIGGER event. If this input
' is set to 1 the program must behave as if it has not been triggered
DEFINE PREVENT port[6]

' Must be set to 1 at the start of the program and set to 0 when the
' sound should be activated, triggers PLAY on the ISD1420 voice recorder
DEFINE SOUND port[8]

' The ports have to be mapped because of the board layout
' All these ports have to be set to output at the beginning of the program
DEFINE OUT1 port[16]
DEFINE OUT2 port[15]
DEFINE OUT3 port[14]
DEFINE OUT4 port[13]
DEFINE OUT5 port[12]
DEFINE OUT6 port[11]
DEFINE OUT7 port[10]
DEFINE OUT8 port[9]
DEFINE OUT9 port[1]
DEFINE OUT10 port[2]
DEFINE OUT11 port[3]
DEFINE OUT12 port[4]

' ----- INPUT/OUTPUT SETTINGS
' DEACT sets ports to input mode
DEACT TRIGGER
DEACT PREVENT
RUNNING=OFF
SOUND=ON
OUT1=OFF
OUT2=OFF
OUT3=OFF
OUT4=OFF
OUT5=OFF
OUT6=OFF
OUT7=OFF
OUT8=OFF
OUT9=OFF
OUT10=OFF
OUT11=OFF
OUT12=OFF

' --------------------------------------------------------------------------------
' ----- END OF CORE CONFIG BLOCK -------------------------------------------------
' --------------------------------------------------------------------------------


' --------------------------------------------------------------------------------
' ------------------------ CUSTOM CODE -------------------------------------------
' --------------------------------------------------------------------------------
' You may change the code here but it is not recommended, instead you should simply
' put your own code into the MAIN PART section below

' Delay the trigger possibility when the program ends
' 500 = 10 seconds
DEFINE repeatdelay  500

' Here starts our main program
#start

' Wait until someone triggers our controller
WAIT TRIGGER
IF PREVENT THEN GOTO START

' Indicate that the program is running
RUNNING=ON


'---------------------------------------------------------------------------------------
'---------------------------------------------------------------------------------------
' MAIN PART ----------------------------------------------------------------------------





' Wait a bit...
'PAUSE 10

' Turn on the light
TOG OUT1

' Turn on the voice module
GOSUB playsound

' Wait for the specific time until the played sound is at the correct position
PAUSE 400

' Turn on the first 24V output
TOG OUT2
PAUSE 650
TOG OUT2
PAUSE 50

' TURN OFF THE LIGHT
TOG OUT1

TOG OUT3
PAUSE 100
TOG OUT3



'END OF MAIN PART ----------------------------------------------------------------------
'---------------------------------------------------------------------------------------

' You may change the code below but is is not recommended!

' Safety net: set all outputs to OFF in case we forgot one
OUT1=OFF
OUT2=OFF
OUT3=OFF
OUT4=OFF
OUT5=OFF
OUT6=OFF
OUT7=OFF
OUT8=OFF
OUT9=OFF
OUT10=OFF
OUT11=OFF
OUT12=OFF

' Wait some seconds so that the action will not be started again immediately
PAUSE repeatdelay

' Turn of running indicator
RUNNING=OFF

' Go back to the start - this is purely a neverending story ;)
GOTO start

' Activate the voice module by sending a short LOW
#playsound
SOUND=OFF
PAUSE 20
SOUND=ON
RETURN