' }.
' }. |
' | ^
' /\ / \
' \\\\\\ / \ / .[ \
' (-O-O-) / - \ / .; \
' \(-)/ / \ /=----- "\
"*---------00o0--W----0o00-------* / ] \ ^ | / \ |
'@ project name: TELEPHON-DIALER @ / . |__ \ / \ | | | |
'@ programed by : HATEM RAYA @ / __ ' \ / \ _| | | |_
'@ DATE : 200-5-5 @ /J^..| | 4_|_||\ |= | <<==-=-=-=-===>>
'@ COUNTRY LEBANON @ / . [ ,. \ |[ ]| \___ ___ _/ help??
'@ PHONE : 03884745 @ /::::::::::::::::: \_;__|__ | | p
'@ EMAIL: HATEMRAYA@HOTMAIL.COM @ ({{{{{{{{{{ }}}}}}}}})=-=-=-> | # [] | /|\
'@ VOLTS = 5 DC @ | ] ^ [ | .|/ | | /\
'@ @ | / \ l | | |[*] | |
'@ @ | ' / \ _ | ; | | ; |
'@ @ | , / \ _ |. | | __ |
'@ @ | __ / \ _| []| | - |
'@ @ | ;( ) | | | |- |
'@ @ |00000|~~~~~~~|00000| - | | _ |
'@ @ | -- | | | |---|;\ | __ |
'@ @ | | {|} |. | -__ \ | ' |
'@ @ | . | | |. | _-_ -- -\ | __ |
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@---|_____|___|___|_____|____--- ___/ .... \____
------------------------------------------------------------------------------------------------
'DEALER TO RECIVE PULSES FRAM A ROLING KEY PAD TELEPHON DIALER.
'FOUND ON OLD TELEPHON
'THEN REPORT THE DIALED NUMBER TO SEVEN SEGMENTS LED
'NUMBER VAR BYTE '
'IN1 IS TO SAY VALED DATA
'IN2 IS TO COUNT THE PULSES TO DECIDE THE DIALED NUMBER
DIRS =%1111111111111001
TOP: ' IT WORKE PERFECTLY ***HATEMM-98-12-16
DIRH = 0
HIGH 0
PAUSE 100
LOW 0
DIRH =255
PAUSE 150
IF IN1 = 1 THEN COUNTT 'THE DIALER GET TWO SWITCH 1 TO DETECT
GOTO TOP 'THAT DIALER IS UNDER USE OR DATA VALED
DISPLAY: IF NUMBER = 10 THEN CORECT
DISPLEY: LOOKUP NUMBER,[63,6,91,79,102,109,125,7,127,111] ,OUTH
'DISPLAY ON 7 SEGMENT 0 1 2 3 4 5 6 7 8 9
DEBUG ? NUMBER
PAUSE 30
NUMBER = 0
GOTO TOP
COUNTT:
IF IN2 = 1 THEN COUNTT 'THE 2 SWITCH TO DITERMEN THE dealed NUMBER
NUMBER = NUMBER + 1
HOLD: IF IN1 = 0 THEN DISPLAY
IF IN2 = 0 THEN HOLD
GOTO COUNTT
CORECT: NUMBER = 0
DEBUG " 0. :-) "
'PAUSE 4000
GOTO DISPLEY
' 0 0 0 0 0 0 0 BINARY CONECTION TO PINS OF
' G F E D C B A SEVEN SEGMENT