}.
'                                            }.                          |
'                                             |                          ^
'                                             /\                        /  \
'             \\\\\\                         /  \                      / .[ \
'             (-O-O-)                       / -  \                    / .;   \
'              \(-)/                       /      \                  /=----- "\
"*---------00o0--W----0o00-------*        /    ]   \       ^         |   / \  |
'@ project name: photo alarm     @       / .  |__   \     / \        |   | |  |
'@ programed by : HATEM RAYA     @      /   __   '   \   /   \      _|   | |  |_
'@ DATE         : 200-5-5        @     /J^..| | 4_|_||\  |=  |    <<==-=-=-=-===>> 
'@ COUNTRY LEBANON               @    /   .     [  ,.  \ |[ ]|      \___ ___  _/       help??
'@ PHONE        : 03884745       @   /::::::::::::::::: \_;__|__     |        |      p
'@ EMAIL: HATEMRAYA@HOTMAIL.COM  @  ({{{{{{{{{{ }}}}}}}}})=-=-=->    |  #  [] |     /|\
'@ VOLTS = 5 DC                  @   |     ]   ^    [    |  .|/      |        |      /\
'@                               @   |        / \   l    |   |       |[*] |   |
'@                               @   |   '   /   \     _ | ; |       |   ;    |
'@                               @   |  ,   /     \  _   |.  |       | __     |
'@                               @   |  __ /       \    _| []|       |    -   |
'@                               @   |   ;(         )    |   |       |     |- |
'@                               @   |00000|~~~~~~~|00000| - |       |     _  |
'@                               @   |  -- |   |   |     |---|;\     |   __   |   
'@                               @   |     |  {|}  |.    | -__   \   |   '    |                        
'@                               @   | .   |   |   |.    | _-_ -- -\ |  __    |                            
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@---|_____|___|___|_____|____--- ___/ ....    \____                             
------------------------------------------------------------------------------------------------
' an photo alarm that is trigerd by big variation in the input at pin 1 
' the input is an 555ic that its out put frec is varied by fhoto cell    
DIRS=48 'A PROGRAM USES A READING FRAM SEPARAIT OSILAITOR
        DELAY VAR WORD'IF THIRE IS VARIATION IN THE TWO COUNTING >10
        MOV_1 VAR WORD  ' THE ALARM WENT ON & reaporting to serial lcd 
        MOV_2 VAR WORD
        VARI  VAR WORD
        QWE   VAR WORD
        A     CON 0   ' oll the folowing con.s are for peter anderson serial  
        B     CON 396+$4000 ' lcd a 9.99$ as you can see i like the a.b.c 
        C     CON 10
        DO    CON $FE
        CL    CON $01
        L1    CON $80
        L2    CON $80+$40     
START:  
        HIGH 5  :LOW  6
        SEROUT A,B,C,[DO,CL]  
        SEROUT A,B,C,[ "ALARM READY"]
        COUNT 1,300,MOV_1
WATCH:  COUNT 1,300,MOV_2
        QWE = QWE +1: IF QWE = 5 THEN START 'use the sampel 5 times then 
        if MOV_1 >   mov_2 then asd  ' take a new reading 
        if MOV_2 >   mov_1 then zxc  ' subtract the > fram the < number
        asd:vari = mov_1 - mov_2
        zxc:vari = mov_2 - mov_1                               
        IF VARI < 3 THEN WATCH        
        SEROUT A,B,c,[DO,CL]
        SEROUT A,B,c,[DO,L2,"warning intruder"]
        FOR DELAY = 1 TO 10 'just ligh efects
        LOW 5:HIGH 6
        PAUSE 50 
        HIGH 5 : LOW 6
        PAUSE 30    
        NEXT
        GOTO START