CND-DET routines 7/8

 BBS: Inland Empire Archive
Date: 03-25-93 (15:37)             Number: 292
From: DIRK THEURER                 Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: CND-DET routines 7/8           Conf: (2) Quik_Bas

'
' CND-DET routines (part 7)
'
              CND.CNDDate = LEFT$(CNDData, 2) + "-" + MID$(CNDData, 3, 2)
              CND.CNDTime = MID$(CNDData, 5, 2) + ":" + MID$(CNDData, 7, 2)

              SELECT CASE RIGHT$(CNDData, 1)
                CASE "O"
                  IF NOT CND.CNDAttrib THEN CND.CNDAttrib = 7
                  CND.CNDNumber = "Out of area  "
                CASE "P"
                  IF NOT CND.CNDAttrib THEN CND.CNDAttrib = 8
                  CND.CNDNumber = "Private      "
                CASE ELSE
                  SELECT CASE DataLength - 8 ' phone data length
                    CASE 7
                      IF NOT CND.CNDAttrib THEN CND.CNDAttrib = 1
                      ' the following 2 lines can be 'concatenated' into
                      ' a single line
                      CND.CNDNumber = MID$(CNDData, 9, 3) + "-"
                      CND.CNDNumber = CND.CNDNumber + MID$(CNDData, 12, 4)
                    CASE 10
                      IF NOT CND.CNDAttrib THEN CND.CNDAttrib = 2
                      ' the following 4 lines can be 'concatenated' into
                      ' a single line
                      CND.CNDNumber = MID$(CNDData, 9, 3) + "-"
                      CND.CNDNumber = CND.CNDNumber + MID$(CNDData, 12, 3)
                      CND.CNDNumber = CND.CNDNumber + "-"
                      CND.CNDNumber = CND.CNDNumber + MID$(CNDData, 15, 4)
                    CASE ELSE
                      IF NOT CND.CNDAttrib THEN CND.CNDAttrib = 9
                      CND.CNDNumber = MID$(CNDData, 9, DataLength - 9)
                  END SELECT
              END SELECT
              '
              ' GetCNDNumber% got and parsed all CND info for this call
              '
              CNDData = ""
              GetCNDNumber% = 1
              FOR i = 1 TO 500: NEXT i
              FOSSILFlush
              EXIT FUNCTION
            END IF
          ELSE
            '
            ' got CTRL-D without 'U's stream
            '
            GetCNDNumber% = 9
            FOR i = 1 TO 500: NEXT i
            FOSSILFlush
            EXIT FUNCTION
          END IF
          '
          ' end of CTRL-D case
          '
        CASE ELSE
          Junk = True

      END SELECT
      '
      ' end of get character from FOSSIL
      '
    END IF
'
' Continues...
'



---
 * Origin: RAVE * Burnaby, BC (1:153/810)