home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / vrac / phone120.zip / PHONE.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-08-28  |  3KB  |  253 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 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Integer  INTEGER001
  22.     Integer  INTEGER002
  23.     String   STRING001
  24.     String   STRING002
  25.     String   STRING003
  26.     String   STRING004
  27.     String   STRING005
  28.     String   STRING006
  29.     String   STRING007
  30.     String   STRING008
  31.     String   STRING009
  32.     String   STRING010
  33.     String   STRING011
  34.     String   STRING012
  35.     String   STRING013
  36.     String   STRING014
  37.     String   STRING015
  38.  
  39. ;------------------------------------------------------------------------------
  40.  
  41.     STRING014 = "(Error) Text File is NOT Available"
  42.     STRING006 = LangExt()
  43.     GetToken STRING005
  44.     Color 9
  45.     If ((Upper(STRING005) <> "DATA") && (Upper(STRING005) <> "VOICE")) Then
  46.         PrintLn STRING014
  47.         Log STRING014, 0
  48.     Else
  49.         If (Exist(PPEPath() + "PHONETXT" + STRING006) == 0) STRING006 = ""
  50.         If (Exist(PPEPath() + "PHONETXT" + STRING006) == 0) Then
  51.             PrintLn STRING014
  52.             Log STRING014, 0
  53.         Else
  54.             FOpen 1, PPEPath() + "PHONETXT" + STRING006, 2, 0
  55.             FGet 1, STRING011
  56.             FGet 1, STRING012
  57.             FGet 1, STRING013
  58.             FGet 1, STRING015
  59.             FClose 1
  60.             If (Upper(STRING005) == "VOICE") Then
  61.                 STRING010 = STRING012
  62.             Else
  63.                 STRING010 = STRING011
  64.             Endif
  65.             StartDisp 1
  66.             :LABEL001
  67.             STRING001 = Chr(8)
  68.             STRING002 = Chr(13)
  69.             STRING004 = ""
  70.             STRING003 = ""
  71.             INTEGER001 = 0
  72.             BOOLEAN001 = 0
  73.             Print STRING010
  74.             Color DefColor()
  75.             Print Chr(32)
  76.             KbdStuff DefAns()
  77.             :LABEL002
  78.             If (BOOLEAN001) Goto LABEL004
  79.             BOOLEAN002 = 0
  80.             INTEGER002 = 1
  81.             STRING003 = Inkey()
  82.             If (((STRING003 >= "0") && (STRING003 <= "9")) && (Len(STRING004) < 14)) Then
  83.                 STRING004 = STRING004 + STRING003
  84.                 INTEGER001 = INTEGER001 + 1
  85.                 If (INTEGER001 == 1) Then
  86.                     STRING004 = "(" + STRING004
  87.                     STRING003 = "(" + STRING003
  88.                     INTEGER001 = INTEGER001 + 2
  89.                 Endif
  90.                 If (INTEGER001 == 5) Then
  91.                     STRING004 = STRING004 + ") "
  92.                     STRING003 = STRING003 + ") "
  93.                     INTEGER001 = INTEGER001 + 2
  94.                 Endif
  95.                 If (INTEGER001 == 10) Then
  96.                     STRING004 = STRING004 + "-"
  97.                     STRING003 = STRING003 + "-"
  98.                     INTEGER001 = INTEGER001 + 1
  99.                 Endif
  100.                 BOOLEAN002 = 1
  101.             Else
  102.                 If ((STRING003 == STRING001) && (Len(STRING004) > 0)) Then
  103.                     STRING004 = Left(STRING004, Len(STRING004) - 1)
  104.                     INTEGER001 = INTEGER001 - 1
  105.                     If (INTEGER001 == 2) Then
  106.                         STRING004 = ""
  107.                         INTEGER001 = 0
  108.                         INTEGER002 = 2
  109.                     Endif
  110.                     If (INTEGER001 == 6) Then
  111.                         STRING004 = Left(STRING004, Len(STRING004) - 2)
  112.                         INTEGER001 = INTEGER001 - 2
  113.                         INTEGER002 = 3
  114.                     Endif
  115.                     If (INTEGER001 == 10) Then
  116.                         STRING004 = Left(STRING004, Len(STRING004) - 1)
  117.                         INTEGER001 = INTEGER001 - 1
  118.                         INTEGER002 = 2
  119.                     Endif
  120.                     BOOLEAN002 = 1
  121.                 Else
  122.                     If (STRING003 == STRING002) Then
  123.                         BOOLEAN001 = 1
  124.                     Endif
  125.                 Endif
  126.             Endif
  127.             If (BOOLEAN002) Then
  128.                 Color DefColor()
  129.                 If (INTEGER002 == 1) Then
  130.                     Print STRING003, " ", STRING001
  131.                     Goto LABEL003
  132.                 Endif
  133.                 If (INTEGER002 == 2) Then
  134.                     Print STRING003, " ", STRING001, STRING001, " ", STRING001
  135.                     Goto LABEL003
  136.                 Endif
  137.                 If (INTEGER002 == 3) Then
  138.                     Print STRING003, " ", STRING001, STRING001, " ", STRING001, STRING001, " ", STRING001
  139.                 Endif
  140.             Endif
  141.             :LABEL003
  142.             Goto LABEL002
  143.             :LABEL004
  144.             If (Len(STRING004) < 14) Then
  145.                 PrintLn 
  146.                 PrintLn STRING013
  147.                 Newline
  148.                 Goto LABEL001
  149.             Endif
  150.             STRING007 = Right(Left(STRING004, 4), 3)
  151.             STRING008 = Right(Left(STRING004, 9), 3)
  152.             STRING009 = Right(STRING004, 4)
  153.             If (((((STRING007 == "900") || (STRING007 == "000")) || (STRING008 == "000")) || (STRING008 == "555")) || (STRING009 == "0000")) Then
  154.                 PrintLn 
  155.                 PrintLn STRING015
  156.                 Newline
  157.                 Goto LABEL001
  158.             Endif
  159.             If (((STRING008 == "123") && (STRING009 == "4567")) || (((STRING007 == "123") && (STRING008 == "456")) && (STRING009 == "7890"))) Then
  160.                 Newline
  161.                 PrintLn STRING015
  162.                 Newline
  163.                 Goto LABEL001
  164.             Endif
  165.             If (((STRING008 == "987") && (STRING009 == "6543")) || (((STRING007 == "987") && (STRING008 == "654")) && (STRING009 == "3210"))) Then
  166.                 Newline
  167.                 PrintLn STRING015
  168.                 Newline
  169.                 Goto LABEL001
  170.             Endif
  171.             If (((STRING008 == "098") && (STRING009 == "7654")) || (((STRING007 == "098") && (STRING008 == "765")) && (STRING009 == "4321"))) Then
  172.                 Newline
  173.                 PrintLn STRING015
  174.                 Newline
  175.                 Goto LABEL001
  176.             Endif
  177.             If (Len(RTrim(STRING007 + STRING008 + STRING009, Right(STRING009, 1))) == 0) Then
  178.                 Newline
  179.                 PrintLn STRING015
  180.                 Newline
  181.                 Goto LABEL001
  182.             Endif
  183.             KbdStuff "(" + String(STRING007) + ")" + String(STRING008) + "-" + String(STRING009)
  184.             Newline
  185.         Endif
  186.     Endif
  187.  
  188. ;------------------------------------------------------------------------------
  189. ;
  190. ; Usage report (before postprocessing)
  191. ;
  192. ; ■ Statements used :
  193. ;
  194. ;    3       Color 
  195. ;    37      Goto 
  196. ;    42      Let 
  197. ;    5       Print 
  198. ;    10      PrintLn 
  199. ;    24      If 
  200. ;    1       FOpen 
  201. ;    1       FClose 
  202. ;    4       FGet 
  203. ;    1       StartDisp 
  204. ;    2       Log 
  205. ;    11      Newline
  206. ;    1       GetToken 
  207. ;    2       KbdStuff 
  208. ;
  209. ;
  210. ; ■ Functions used :
  211. ;
  212. ;    24      +
  213. ;    6       -
  214. ;    35      ==
  215. ;    2       <>
  216. ;    2       <
  217. ;    1       <=
  218. ;    1       >
  219. ;    1       >=
  220. ;    23      !
  221. ;    13      &&
  222. ;    7       ||
  223. ;    7       Len(
  224. ;    3       Upper()
  225. ;    5       Left()
  226. ;    4       Right()
  227. ;    3       Chr()
  228. ;    1       RTrim()
  229. ;    1       Inkey()
  230. ;    3       String()
  231. ;    3       PPEPath()
  232. ;    2       Exist()
  233. ;    1       LangExt()
  234. ;    2       DefColor()
  235. ;    1       DefAns()
  236. ;
  237. ;------------------------------------------------------------------------------
  238. ;
  239. ; Analysis flags : No flag
  240. ;
  241. ;------------------------------------------------------------------------------
  242. ;
  243. ; Postprocessing report
  244. ;
  245. ;    0       For/Next
  246. ;    0       While/EndWhile
  247. ;    22      If/Then or If/Then/Else
  248. ;    0       Select Case
  249. ;
  250. ;------------------------------------------------------------------------------
  251. ;                 AEGiS Corp - Break the routines, code against the machines!
  252. ;------------------------------------------------------------------------------
  253.