test    VAR  Byte				'DEBUG Counter Variable
array     VAR Byte(9)				'Array to hold incoming and outgoing numbers
 
Is_Ring:

'THIS SUB WILL BE USED TO START Phone_Number WHEN THE DAA SIGNALS A RING TO THE BS2
'GOSUB Phone_Number				'ACTIVE WHEN DAA IS ONLINE


Phone_Number:
SERIN 4,24972,[SKIP 53] 			'Skip the first 53 characters of the input
  SERIN 4,24972,[STR array \9] 			'Store the next 9 character in the array
' FOR test = 0 TO 8 				'TESTING PURPOSES ONLY - TO SHOW NUMBER THAT WAS READ
'   DEBUG array(test)
 NEXT

'THE FOLLOWING IS TEMP UNTILL THE DAA IS CONNECTED TO SIGNAL A RING
'-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
    IF array(0) = 51 THEN
      IF array(1) = 52 THEN
       IF array(2) = 52 THEN
        IF array(3) = 48 THEN

'SITE OF FUTURE CODE TO INSTRUCT QUADRAVOX TO READ BACK NUMBER - WILL NOT BE TEMP -+-+

	ENDIF
       ENDIF
      ENDIF
    ENDIF

'-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+


New_Num: 					'WAITS FOR LINE FEED WHICH SIGNALS THE END OF THIS RECORD

DO
SERIN 4,24972,[test]
'DEBUG test
LOOP WHILE $test <> 0A
'GOSUB Is_Ring					'ACTIVE ONCE DAA IS ONLINE
GOSUB Phone_Number				'REMOVED WHEN DAA IS ONLINE



 