'                                                                       }.
'                                            }.                          |
'                                             |                          ^
'                                             /\                        /  \
'             \\\\\\                         /  \                      / .[ \
'             (-O-O-)                       / -  \                    / .;   \
'              \(-)/                       /      \                  /=----- "\
'*---------00o0--W----0o00-------*        /    ]   \       ^         |   / \  |
'@ project name: FOR_NEXT        @       / .  |__   \     / \        |   | |  |
'@ programed by : HATEM RAYA     @      /   __   '   \   /   \      _|   | |  |_
'@ DATE         : 200-5-5        @     /J^..| | 4_|_||\  |=  |    <<==-=-=-=-===>> 
'@ COUNTRY LEBANON               @    /   .     [  ,.  \ |[ ]|      \___ ___  _/       help??
'@ PHONE        : 03884745       @   /::::::::::::::::: \_;__|__     |        |      p
'@ EMAIL: HATEMRAYA@HOTMAIL.COM  @  ({{{{{{{{{{ }}}}}}}}})=-=-=->    |  #  [] |     /|\
'@ VOLTS = 5 DC                  @   |     ]   ^    [    |  .|/      |        |      /\
'@HTTP//:WW.GEOCITIES.COM/STAMPIC@   |        / \   l    |   |       |[*] |   |
'@                               @   |   '   /   \     _ | ; |       |   ;    |
'@                               @   |  ,   /     \  _   |.  |       | __     |
'@                               @   |  __ /       \    _| []|       |    -   |
'@                               @   |   ;(         )    |   |       |     |- |
'@                               @   |00000|~~~~~~~|00000| - |       |     _  |
'@                               @   |  -- |   |   |     |---|;\     |   __   |   
'@                               @   |     |  {|}  |.    | -__   \   |   '    |                        
'@                               @   | .   |   |   |.    | _-_ -- -\ |  __    |                            
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@---|_____|___|___|_____|____--- ___/ ....    \____                             
'----------------------------------------------------------------------------------------------
' for-next is a pro to change the value of for next during 
' the run depending on stat of pin7FOR
'FOR ONE REAON OR ANATHIER YOU MAY NEED TO 
'CHANGE THE LOOP OF FOR NEXT DUE TO INPUT CHANGE 
DIRS=15 
        X VAR BYTE
TOP:
        FOR X  = 1 TO 100
        HIGH 5 : LOW 6
        HIGH 5 : LOW 6
        PAUSE    70
        if in7 = 1 then change
modify:
        debug  ? x
        LOW 5  : HIGH 6
        PAUSE    50
        next
        goto     top
change : x     = 77
        goto     modify