home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / pcboard / callid11.zip / CALLID11.EXE / CALLERID.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-06-19  |  2KB  |  183 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     String   STRING001
  26.     String   STRING002
  27.     String   STRING003
  28.     String   STRING004
  29.     String   STRING005
  30.     String   STRING006
  31.     String   STRING007
  32.     String   TSTRING008(10)
  33.     String   STRING009
  34.     String   STRING010
  35.     String   STRING011
  36.     String   STRING012
  37.     String   STRING013
  38.  
  39. ;------------------------------------------------------------------------------
  40.  
  41.     STRING006 = "P"
  42.     STRING007 = "O"
  43.     STRING013 = " -()+"
  44.     GetToken INTEGER001
  45.     GetToken INTEGER002
  46.     GetToken INTEGER003
  47.     GetToken STRING002
  48.     GetToken STRING003
  49.     GetToken STRING005
  50.     GetToken STRING004
  51.     TSTRING008(1) = "NMBR = "
  52.     TSTRING008(2) = "NUMBER: "
  53.     If (STRING002 <> "") Then
  54.         If (Exist(STRING002)) Then
  55.             Delete STRING002
  56.         Endif
  57.     Endif
  58.     STRING001 = CallId()
  59.     GetUser
  60.     If (((U_Sec < INTEGER001) || (U_Sec > INTEGER002)) || (STRING001 == "")) Stop
  61.     If (STRING004 <> "") Then
  62.         STRING011 = U_HVPhone
  63.         Gosub LABEL001
  64.         STRING009 = STRING011
  65.         STRING011 = U_BDPhone
  66.         Gosub LABEL001
  67.         STRING010 = STRING011
  68.     Endif
  69.     If (INTEGER003 < 11) Then
  70.         INTEGER004 = InStr(STRING001, TSTRING008(INTEGER003))
  71.         INTEGER005 = Len(TSTRING008(INTEGER003))
  72.     Else
  73.         INTEGER004 = INTEGER003
  74.         INTEGER005 = -11
  75.     Endif
  76.     If (INTEGER005 == 0) Then
  77.         PrintLn "I don't know that IDType! ("
  78.         Stop
  79.     ElseIf (INTEGER004 == 0) Then
  80.         PrintLn "Search Key not Found! ("
  81.         Stop
  82.     Endif
  83.     STRING012 = Upper(Trim(Mid(STRING001, INTEGER004 + INTEGER005, 10), " "))
  84.     If ((Left(STRING012, 1) == STRING006) && (STRING003 <> "")) Then
  85.         If (Exist(STRING003)) Then
  86.             DispFile STRING003, 4 + 2 + 1
  87.         Endif
  88.     ElseIf ((Left(STRING012, 1) == STRING007) && (STRING005 <> "")) Then
  89.         If (Exist(STRING005)) Then
  90.             DispFile STRING005, 4 + 2 + 1
  91.         Endif
  92.     ElseIf (((STRING004 <> "") && (Right(STRING012, Len(STRING009)) <> STRING009)) && (Right(STRING012, Len(STRING010)) <> STRING010)) Then
  93.         If (Exist(STRING004)) Then
  94.             DispFile STRING004, 4 + 2 + 1
  95.         Endif
  96.     Endif
  97.     If (Len(STRING012) < 10) Stop
  98.     For INTEGER004 = 1 To 10
  99.         If (InStr(Mask_Num(), Mid(STRING012, INTEGER004, 1)) == 0) Stop
  100.     Next
  101.     If (STRING002 <> "") Then
  102.         FCreate 1, STRING002, 1, 3
  103.         FPutLn 1, Left(STRING012, 3), "-", Mid(STRING012, 4, 3), "-", Right(STRING012, 4)
  104.         FClose 1
  105.     Endif
  106.     End
  107.     :LABEL001
  108.     For INTEGER006 = 1 To Len(STRING013)
  109.         STRING011 = Strip(STRING011, Mid(STRING013, INTEGER006, 1))
  110.     Next
  111.     If (STRING011 == "") Then
  112.         STRING011 = "0000000000"
  113.     ElseIf (Left(STRING011, 1) == "1") Then
  114.         STRING011 = Mid(STRING011, 2, Len(STRING011) - 1)
  115.     Endif
  116.     Return
  117.  
  118. ;------------------------------------------------------------------------------
  119. ;
  120. ; Usage report (before postprocessing)
  121. ;
  122. ; ■ Statements used :
  123. ;
  124. ;    1       End
  125. ;    24      Goto 
  126. ;    22      Let 
  127. ;    2       PrintLn 
  128. ;    20      If 
  129. ;    3       DispFile 
  130. ;    1       FCreate 
  131. ;    1       FClose 
  132. ;    1       FPutLn 
  133. ;    1       GetUser
  134. ;    1       Delete 
  135. ;    2       Gosub 
  136. ;    1       Return
  137. ;    7       GetToken 
  138. ;    5       Stop
  139. ;
  140. ;
  141. ; ■ Functions used :
  142. ;
  143. ;    1       -
  144. ;    9       +
  145. ;    1       -
  146. ;    8       ==
  147. ;    8       <>
  148. ;    5       <
  149. ;    2       <=
  150. ;    1       >
  151. ;    4       >=
  152. ;    17      !
  153. ;    8       &&
  154. ;    4       ||
  155. ;    7       Len(
  156. ;    1       Upper()
  157. ;    5       Mid()
  158. ;    4       Left()
  159. ;    3       Right()
  160. ;    2       InStr()
  161. ;    1       Trim()
  162. ;    1       Strip()
  163. ;    1       Mask_Num()
  164. ;    1       CallId()
  165. ;    4       Exist()
  166. ;
  167. ;------------------------------------------------------------------------------
  168. ;
  169. ; Analysis flags : No flag
  170. ;
  171. ;------------------------------------------------------------------------------
  172. ;
  173. ; Postprocessing report
  174. ;
  175. ;    2       For/Next
  176. ;    0       While/EndWhile
  177. ;    15      If/Then or If/Then/Else
  178. ;    0       Select Case
  179. ;
  180. ;------------------------------------------------------------------------------
  181. ;                 AEGiS Corp - Break the routines, code against the machines!
  182. ;------------------------------------------------------------------------------
  183.