' {$STAMP BS2}
' {$PBASIC 2.5}

IF IN0 = 0 THEN                                         ' Its already at 0 so no problem

DO

DEBUG " DOOR OPEN"                                      ' DOOR OPENING SOUND
DEBUG " 20 SECONDS LEFT"                                ' MAKE PEOPLE AWARE OF THE DOOR CLOSING
FREQOUT 9, 5000, 2000
DEBUG " 15 SECONDS LEFT"
PAUSE 1000
FREQOUT 9, 2000, 2000
DEBUG " 12 SECONDS LEFT"
FREQOUT 9, 1250, 2000
PAUSE 750
DEBUG " 10 SECONDS LEFT"
FREQOUT 9, 750, 2000
PAUSE 250
DEBUG " 9 "
FREQOUT 9, 750, 2000
PAUSE 250
DEBUG " 8 "
FREQOUT 9, 750, 2000
PAUSE 250
DEBUG " 7 "
FREQOUT 9, 750, 2000
PAUSE 250
DEBUG " 6 SECONDS HURRY OR PRESS 0"
IF IN0 = 0 THEN

FREQOUT 9, 250, 2000
PAUSE 250
FREQOUT 9, 250, 2000
PAUSE 250
FREQOUT 9, 250, 2000
DEBUG " 5 "
FREQOUT 9, 250, 2000
PAUSE 250
FREQOUT 9, 250, 2000
PAUSE 250
FREQOUT 9, 250, 2000
DEBUG " 4 "
FREQOUT 9, 250, 2000
PAUSE 250
FREQOUT 9, 250, 2000
PAUSE 250
FREQOUT 9, 250, 2000
DEBUG " 3 "
FREQOUT 9, 250, 2000
PAUSE 250
FREQOUT 9, 250, 2000
PAUSE 250
FREQOUT 9, 250, 2000
DEBUG " 2 "
FREQOUT 9, 250, 2000
PAUSE 250
FREQOUT 9, 250, 2000
PAUSE 250
FREQOUT 9, 250, 2000
DEBUG " 1 "
FREQOUT 9, 100, 2000
PAUSE 100
FREQOUT 9, 100, 2000
PAUSE 100
FREQOUT 9, 100, 2000
PAUSE 100
FREQOUT 9, 100, 2000
PAUSE 100
FREQOUT 9, 100, 2000
PAUSE 100
DEBUG " DOOR CLOSURE INITIATED"

IF IN0 = 1 THEN
PAUSE 250
LOW 9

ENDIF

'....
'this is just a part of my program
'this works just needed to find another way