'                                                                       }.
'                                            }.                          |
'                                             |                          ^
'                                             /\                        /  \
'             \\\\\\                         /  \                      / .[ \
'             (-O-O-)                       / -  \                    / .;   \
'              \(-)/                       /      \                  /=----- "\
'*---------00o0--W----0o00-------*        /    ]   \       ^         |   / \  |
'@ project name: LCD_LED         @       / .  |__   \     / \        |   | |  |
'@ programed by : HATEM RAYA     @      /   __   '   \   /   \      _|   | |  |_
'@ DATE         : 200-5-5        @     /J^..| | 4_|_||\  |=  |    <<==-=-=-=-===>> 
'@ COUNTRY LEBANON               @    /   .     [  ,.  \ |[ ]|      \___ ___  _/       help??
'@ PHONE        : 03884745       @   /::::::::::::::::: \_;__|__     |        |      p
'@ EMAIL: HATEMRAYA@HOTMAIL.COM  @  ({{{{{{{{{{ }}}}}}}}})=-=-=->    |  #  [] |     /|\
'@ VOLTS = 5 DC                  @   |     ]   ^    [    |  .|/      |        |      /\
'@HTTP//:WW.GEOCITIES.COM/STAMPIC@   |        / \   l    |   |       |[*] |   |
'@                               @   |   '   /   \     _ | ; |       |   ;    |
'@                               @   |  ,   /     \  _   |.  |       | __     |
'@                               @   |  __ /       \    _| []|       |    -   |
'@                               @   |   ;(         )    |   |       |     |- |
'@                               @   |00000|~~~~~~~|00000| - |       |     _  |
'@                               @   |  -- |   |   |     |---|;\     |   __   |   
'@                               @   |     |  {|}  |.    | -__   \   |   '    |                        
'@                               @   | .   |   |   |.    | _-_ -- -\ |  __    |                            
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@---|_____|___|___|_____|____--- ___/ ....    \____                             
'----------------------------------------------------------------------------------------------
'LCD_LED A PRO TO C0NTROL 1  LED PANEL 7 SEGMENT **HATEM**98-12-10    
  UNIT  VAR BYTE
  DIRS =255
TOP:  
     FOR W2 = 0 TO  9 
     UNIT = W2 DIG 0            
     LOOKUP UNIT,[%11011111,6,%10111011,%10101111,102,109,125,7,127,111] ,OUTL
  'UNIT REPRESENT      0    1      2         3     4   5   6  7  8   9
     DEBUG  ? UNIT
     PAUSE  1350
      NEXT
     GOTO TOP
'    0  0  0  0  0  0  0    BINARY CONECTION TO PINS	
'    G  F  E  D  C  B  A    SEVEN SEGMENT