}.
' }. |
' | ^
' /\ / \
' \\\\\\ / \ / .[ \
' (-O-O-) / - \ / .; \
' \(-)/ / \ /=----- "\
'*---------00o0--W----0o00-------* / ] \ ^ | / \ |
'@ project name: multitask-timer @ / . |__ \ / \ | | | |
'@ programmed by : HATEM @ / __ ' \ / \ _| | | |_
'@ DATE : 99-9-10 @ /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....POT1... HATEM THIS PRO IS TO CHARGE A CAP THEN MAKE PIN1
'AN INPUT TO MEAGER THE STATE OF THE CAP IF<1.4V -1998-10-29
'THAT MEANS END OF TIMER IN THIS WAY STAMP SERVES AS multy task processor
' TIMER WITH OUT THE NEED TO OUT SIDE TIMER IC EX 555
I USED 100K TO DISCHARGE THE 33YF CAP continuously
'ONE SIDE AF THE CAP CONNECTED TO GROUND THE SECOND TO PIN1
STAIT VAR BIT
INDEX VAR BYTE
DIRS =%1111111100000000'
CHARGE:DIR1 = 1
OUT1 = 1 'charg pin1
PAUSE 100 'give himtime
DIR1 = 0 'make pin1 in input state
BACK:
FOR INDEX = 0 TO 10
LOOKUP INDEX ,[1,2,4,8,9,12,15,5,3,7,0 ] ,OUTC
PAUSE 10
GOTO CHECK_TIMER
KEEP_ON: NEXT
GOTO BACK
CHECK_TIMER: DIR1 = 0 'INPUT MODE
STAIT = IN1
IF STAIT = 1 THEN KEEP_ON
DIRD= 15
FOR INDEX = 0 TO 10
LOOKUP INDEX ,[1,2,4,8,9,12,15,5,3,7,0 ] ,OUTD
PAUSE 90 : NEXT : GOTO CHARGE
http://www.oocities.org/stampic/