}.
'                                            }.                          |
'                                             |                          ^
'                                             /\                        /  \
'             \\\\\\                         /  \                      / .[ \
'             (-O-O-)                       / -  \                    / .;   \
'              \(-)/                       /      \                  /=----- "\
'*---------00o0--W----0o00-------*        /    ]   \       ^         |   / \  |
'@ project name: servo9          @       / .  |__   \     / \        |   | |  |
'@ programmed by : HATEM         @      /   __   '   \   /   \      _|   | |  |_
'@ DATE         :                @     /J^..| | 4_|_||\  |=  |    <<==-=-=-=-===>> 
'@ COUNTRY LEBANON               @    /   .     [  ,.  \ |[ ]|      \___ ___  _/       help??
'@ language name:                @   /::::::::::::::::: \_;__|__     |        |      p
'@ EMAIL: STAMPIC@YAHOO.COM      @  ({{{{{{{{{{ }}}}}}}}})=-=-=->    |  #  [] |     /|\
'@ VOLTS = 5 DC                  @   |     ]   ^    [    |  .|/      |        |      /\
'@ you may use this pro only for @   |        / \   l    |   |       |[*] |   |
'@study purposes and hobby you   @   |   '   /   \     _ | ; |       |   ;    |
'@may copy it but as it with no  @   |  ,   /     \  _   |.  |       | __     |
'@change to its contents         @   |  __ /       \    _| []|       |    -   |
'@copy right                     @   |   ;(         )    |   |       |     |- |
'@                               @   |00000|~~~~~~~|00000| - |       |     _  |
'@                               @   |  -- |   |   |     |---|;\     |   __   |   
'@                               @   |     |  {|}  |.    | -__   \   |   '    |                        
'@                               @   | .   |   |   |.    | _-_ -- -\ |  __    |                            
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@---|_____|___|___|_____|____--- ___/ ....    \____                             
'------------------------------------------------------------------------------------------------
x var word 
position var word
output 5
top:
lookup b7,[350,400,450,500,550,600,650,700,750,800,850,900,950,1000,1050,1100,1150,1200],position
for x = 1 to 60
pulsout 5,position
pause 10
next
b7 = b7 + 1
if position = 1200 then back
 goto top
back: b7 = 0
pause 2000
goto top

 

 

 

http://www.oocities.org/stampic/