home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / pcbdod18.zip / PCBDOD.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-02-28  |  3KB  |  233 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 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Integer  INTEGER001
  21.     String   STRING001
  22.     String   STRING002
  23.     String   STRING003
  24.     String   STRING004
  25.     String   STRING005
  26.     String   STRING006
  27.     String   STRING007
  28.     String   STRING008
  29.     String   STRING009
  30.     String   STRING010
  31.     String   STRING011
  32.     String   STRING012
  33.     String   STRING013
  34.     String   STRING014
  35.     String   STRING015
  36.     String   STRING016
  37.     String   STRING017
  38.     String   STRING018
  39.     String   STRING019
  40.     String   STRING020
  41.     String   STRING021
  42.     String   STRING022
  43.     String   STRING023
  44.     String   STRING024
  45.  
  46. ;------------------------------------------------------------------------------
  47.  
  48.     GetToken STRING007
  49.     GetToken STRING008
  50.     GetToken STRING009
  51.     GetToken STRING010
  52.     GetToken STRING011
  53.     GetToken STRING012
  54.     STRING005 = PPEPath() + "pppon.txt"
  55.     STRING006 = PPEPath() + "pppup.txt"
  56.     STRING024 = PPEPath() + "pppfail.txt"
  57.     STRING020 = PPEName() + ".CFG"
  58.     If (Exist(PPEPath() + STRING020)) Goto LABEL001
  59.     PrintLn "Configuration File is not set up. Notify the Sysop."
  60.     End
  61.     :LABEL001
  62.     FOpen 1, PPEPath() + STRING020, 0, 0
  63.     FGet 1, STRING002
  64.     FGet 1, STRING003
  65.     FGet 1, STRING004
  66.     FGet 1, STRING014
  67.     FGet 1, STRING001
  68.     FGet 1, STRING015
  69.     FGet 1, STRING017
  70.     FGet 1, STRING018
  71.     FGet 1, STRING019
  72.     FGet 1, STRING023
  73.     FGet 1, STRING013
  74.     FGet 1, STRING016
  75.     FGet 1, STRING022
  76.     FClose 1
  77.     If (STRING004 <> 169 + I2S(Len(STRING003) + 4, 10) + I2S(Asc(STRING003) + 4, 10)) Then
  78.         BOOLEAN001 = 1
  79.     Endif
  80.     If (BOOLEAN001 == 1) Gosub LABEL004
  81.     If (Exist(STRING005)) Goto LABEL002
  82.     FOpen 2, STRING005, 2, 0
  83.     FPut 2, "PPP is on!"
  84.     FClose 2
  85.     If (STRING019 == "ISDN") Goto LABEL005
  86.     If (STRING019 == "PPP") Goto LABEL007
  87.     STRING021 = Time()
  88.     Log STRING020 + " Started Internet at: " + STRING021, 1
  89.     PrintLn STRING013
  90.     If (STRING018 == "NONE") Wait
  91.     End
  92.     :LABEL002
  93.     If (STRING019 == "ISDN") Goto LABEL005
  94.     If (STRING019 == "PPP") Goto LABEL007
  95.     If (STRING017 == "NONE") Goto LABEL003
  96.     If (Exist(STRING024)) Goto LABEL009
  97.     If (!Exist(STRING006)) Gosub LABEL010
  98.     :LABEL003
  99.     KbdStuff "Open " + STRING001 + " " + STRING007 + " " + STRING008 + " " + STRING009 + " " + STRING010 + " " + STRING011 + " " + STRING012
  100.     End
  101.     :LABEL004
  102.     PrintLn "@X0FPCB Dial On Demand v1.80 is Unregistered. Please ask Your Sysop to Register"
  103.     PrintLn "this program. The latest version can be found on New JerseyLand."
  104.     PrintLn "(908) 918-8682"
  105.     Delay 15
  106.     Print "."
  107.     Delay 15
  108.     Print "."
  109.     Delay 15
  110.     Print "."
  111.     Delay 15
  112.     Print "."
  113.     Delay 15
  114.     Print "."
  115.     Delay 15
  116.     Print "."
  117.     Delay 15
  118.     Print "."
  119.     Delay 15
  120.     Print "."
  121.     Delay 15
  122.     Print "."
  123.     Delay 15
  124.     Print "."
  125.     Delay 15
  126.     Print "."
  127.     PrintLn 
  128.     Return
  129.     :LABEL005
  130.     STRING021 = Time()
  131.     Log STRING020 + ": ISDN Mode. Time: " + STRING021, 1
  132.     :LABEL006
  133.     If (Exist(STRING006)) Goto LABEL003
  134.     Delay 15
  135.     INTEGER001 = INTEGER001 + 1
  136.     If (INTEGER001 > 35) Goto LABEL009
  137.     Goto LABEL006
  138.     :LABEL007
  139.     Print "Waiting for PPP "
  140.     STRING021 = Time()
  141.     Log STRING020 + ": PPP Mode. Time: " + STRING021, 1
  142.     :LABEL008
  143.     Print "."
  144.     If (Exist(STRING006)) Then
  145.         PrintLn "OK"
  146.         KbdStuff "Open " + STRING001 + " " + STRING007 + " " + STRING008 + " " + STRING009 + " " + STRING010 + " " + STRING011 + " " + STRING012
  147.         Bye
  148.     Endif
  149.     Delay 31
  150.     INTEGER001 = INTEGER001 + 1
  151.     If (INTEGER001 > 55) Goto LABEL009
  152.     Goto LABEL008
  153.     :LABEL009
  154.     PrintLn 
  155.     PrintLn STRING022
  156.     STRING021 = Time()
  157.     Log STRING020 + ": Internet Connection Failed at " + STRING021, 1
  158.     Delete STRING005
  159.     Delete STRING006
  160.     Delete STRING024
  161.     End
  162.     :LABEL010
  163.     Delay 5
  164.     If (Exist(STRING006)) Goto LABEL011
  165.     PrintLn STRING016
  166.     STRING021 = Time()
  167.     Log STRING020 + ": Internet Not Ready Yet. Time: " + STRING021, 1
  168.     If (STRING018 == "NONE") Wait
  169.     End
  170.     Goto LABEL012
  171.     :LABEL011
  172.     Return
  173.     :LABEL012
  174.  
  175. ;------------------------------------------------------------------------------
  176. ;
  177. ; Usage report (before postprocessing)
  178. ;
  179. ; ■ Statements used :
  180. ;
  181. ;    5       End
  182. ;    2       Wait
  183. ;    17      Goto 
  184. ;    12      Let 
  185. ;    13      Print 
  186. ;    10      PrintLn 
  187. ;    18      If 
  188. ;    2       FOpen 
  189. ;    2       FClose 
  190. ;    13      FGet 
  191. ;    1       FPut 
  192. ;    3       Delete 
  193. ;    5       Log 
  194. ;    2       Gosub 
  195. ;    2       Return
  196. ;    14      Delay 
  197. ;    6       GetToken 
  198. ;    2       KbdStuff 
  199. ;    1       Bye
  200. ;
  201. ;
  202. ; ■ Functions used :
  203. ;
  204. ;    48      +
  205. ;    8       ==
  206. ;    1       <>
  207. ;    2       >
  208. ;    6       !
  209. ;    1       Len(
  210. ;    1       Asc()
  211. ;    5       Time()
  212. ;    5       PPEPath()
  213. ;    7       Exist()
  214. ;    2       I2S()
  215. ;    1       PPEName()
  216. ;
  217. ;------------------------------------------------------------------------------
  218. ;
  219. ; Analysis flags : No flag
  220. ;
  221. ;------------------------------------------------------------------------------
  222. ;
  223. ; Postprocessing report
  224. ;
  225. ;    0       For/Next
  226. ;    0       While/EndWhile
  227. ;    2       If/Then or If/Then/Else
  228. ;    0       Select Case
  229. ;
  230. ;------------------------------------------------------------------------------
  231. ;                 AEGiS Corp - Break the routines, code against the machines!
  232. ;------------------------------------------------------------------------------
  233.