'                                                                       }.
'                                            }.                          |
'                                             |                          ^
'                                             /\                        /  \
'             \\\\\\                         /  \                      / .[ \
'             (-O-O-)                       / -  \                    / .;   \
'              \(-)/                       /      \                  /=----- "\
'*---------00o0--W----0o00-------*        /    ]   \       ^         |   / \  |
'@ project name: 7SEGMENT_2      @       / .  |__   \     / \        |   | |  |
'@ programed by : HATEM RAYA     @      /   __   '   \   /   \      _|   | |  |_
'@ DATE         :  1999-1-19     @     /J^..| | 4_|_||\  |=  |    <<==-=-=-=-===>> 
'@ COUNTRY LEBANON               @    /   .     [  ,.  \ |[ ]|      \___ ___  _/       help??
'@ PHONE        : 03884745       @   /::::::::::::::::: \_;__|__     |        |      p
'@ EMAIL: HATEMRAYA@HOTMAIL.COM  @  ({{{{{{{{{{ }}}}}}}}})=-=-=->    |  #  [] |     /|\
'@ VOLTS = 5 DC                  @   |     ]   ^    [    |  .|/      |        |      /\
'@HTTP//:WW.GEOCITIES.COM/STAMPIC@   |        / \   l    |   |       |[*] |   |
'@                               @   |   '   /   \     _ | ; |       |   ;    |
'@                               @   |  ,   /     \  _   |.  |       | __     |
'@                               @   |  __ /       \    _| []|       |    -   |
'@                               @   |   ;(         )    |   |       |     |- |
'@                               @   |00000|~~~~~~~|00000| - |       |     _  |
'@                               @   |  -- |   |   |     |---|;\     |   __   |   
'@                               @   |     |  {|}  |.    | -__   \   |   '    |                        
'@                               @   | .   |   |   |.    | _-_ -- -\ |  __    |                            
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@---|_____|___|___|_____|____--- ___/ ....    \____                             
'----------------------------------------------------------------------------------------------
'7SEGMENT2. A PRO TO C0NTROL 2  LED PANEL 7 SEGMENT   
'EACH DIGET IS REPRESETETED BY BINARY NUMBER FOR 
'DISPLAYING IN THE LOOKUP DIGET0 & DIGET 1
'THIRE IS THE MULTIPLEXING CIRCUIT CONTROLED BY
'PIN9 FOR DIGET 0 & PIN10 FOR DIGET 1 FLIKERING BETWEN 
'THE TWO LED PANELS CONTROLED BY TWO 22222 TRANSISTORS
'THEN BAIS OF TRANSISTOR CONECTED TO 4.7K THEN TO STAMP PIN 9 OR 10
 DIGET0  VAR BYTE 
 DIGET1  VAR BYTE
 LED0    VAR BYTE  
 LED1    VAR BYTE  
 REPET   VAR BYTE
 DIRL    =   255
 DIRH    =   255
TOP:  
        FOR W4 = 0 TO  99  'JUST A COUNTER TO SIMPLFY THE PRO WORKING
        DIGET0 = W4 DIG 0
        DIGET1 = W4 DIG 1
        LOOKUP DIGET0,[63,6,91,79,102,109,125,7,127,111] ,LED0
        LOOKUP DIGET1,[63,6,91,79,102,109,125,7,127,111] ,LED1
        DEBUG ? W4    ' 0,1, 2, 3, 4,  5,  6 ,7, 8 , 9 ,ABOVE EACH NUMBER IS THE = BINERU NUMBER
        GOSUB DISPLAY 
        NEXT
        W2 = 0
        GOTO TOP
DISPLAY: FOR REPET = 0  TO  20  ' 20 TIME REPETING THE SAME NUMBER SO EYES
        OUTL  = LED0            ' WILL NUT NOTIC ANY FLIKERING BETWEN THE 2 
                                ' LED PANELS
        OUT9  = 1
        PAUSE   10              ' PAUSE  10 MILESECOND SO NO FLIKERING IS noticed
        OUT9  = 0
        OUTL  = LED1
        OUT10 = 1
        PAUSE   10
        OUT10 = 0
        NEXT 
        RETURN