}.
}.
' }. |
' | ^
' /\ / \
' \\\\\\ / \ / .[ \
' (-O-O-) / - \ / .; \
' \(-)/ / \ /=----- "\
'*---------00o0--W----0o00-------* / ] \ ^ | / \ |
'@ project name: rc-servo @ / . |__ \ / \ | | | |
'@ programmed by : HATEM @ / __ ' \ / \ _| | | |_
'@ DATE :2000-7-26 @ /J^..| | 4_|_||\ |= | <<==-=-=-=-===>>
'@ COUNTRY LEBANON @ / . [ ,. \ |[ ]| \___ ___ _/ help??
'@ language name: pbasic @ /::::::::::::::::: \_;__|__ | | p
'@ EMAIL: STAMPIC@YAHOO.COM @ ({{{{{{{{{{ }}}}}}}}})=-=-=-> | # [] | /|\
'@ VOLTS = 5 DC @ | ] ^ [ | .|/ | | /\
'@ you may use this pro only for @ | / \ l | | |[*] | |
'@study purposes and hoby you may@ | ' / \ _ | ; | | ; |
'@copy it but as it with no @ | , / \ _ |. | | __ |
'@change to its contents @ | __ / \ _| []| | - |
'@copy right @ | ;( ) | | | |- |
'@ @ |00000|~~~~~~~|00000| - | | _ |
'@ @ | -- | | | |---|;\ | __ |
'@ @ | | {|} |. | -__ \ | ' |
'@ @ | . | | |. | _-_ -- -\ | __ |
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@---|_____|___|___|_____|____--- ___/ .... \____
'------------------------------------------------------------------------------------------------
' bs2*****rc-servo 'this pro reads a variabel resistant by
pott var word ' using rctime comand then drives a servo
servo var word 'acording to the value 1998-10-3-
'al saah achra laylan CREATED BY 'HATEM
loop:
high 0
pause 1
rctime 0,1,pott
debug ?pott
' pause 50
if pott>1300 then max1
goto move
max1: pott = 1000
' goto move
move:for SERVO = 0 to 500
pulsout 5,pott
'pause 15
next
goto loop
http://www.oocities.org/stampic/
}.