}.
'                                            }.                          |
'                                             |                          ^
'                                             /\                        /  \
'             \\\\\\                         /  \                      / .[ \
'             (-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/