home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / TABDMC10.ZIP / CONNECT.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-03-23  |  4KB  |  263 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.O1 (Encryption type I) - 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.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     String   STRING001
  28.     String   STRING002
  29.     String   STRING003
  30.     String   STRING004
  31.     String   STRING005
  32.     String   STRING006
  33.     String   STRING007
  34.  
  35. ;------------------------------------------------------------------------------
  36.  
  37.     FOpen 1, PPEPath() + "connect.cfg", 0, 0
  38.     If (Ferr(1) == 1) Goto LABEL003
  39.     FGet 1, INTEGER002
  40.     FClose 1
  41.     STRING001 = "(C)DarK MooN - φ TaBoU φ - 1995"
  42.     STRING004 = "DMC V1.00ß - ReGisteRed VeRSioN"
  43.     INTEGER001 = 1
  44.     INTEGER003 = 1
  45.     INTEGER005 = 1
  46.     INTEGER007 = 0
  47.     INTEGER004 = 1
  48.     STRING005 = "@X08"
  49.     STRING003 = "────────────────────────────────────────────────────────────────────────────────"
  50.     Cls
  51.     AnsiPos INTEGER004, INTEGER003
  52.     INTEGER005 = 1
  53.     Gosub LABEL001
  54.     INTEGER001 = 1
  55.     INTEGER003 = 2
  56.     INTEGER005 = 3
  57.     STRING005 = "@X0F"
  58.     INTEGER004 = 26
  59.     AnsiPos INTEGER004, INTEGER003
  60.     Gosub LABEL001
  61.     INTEGER001 = 1
  62.     INTEGER003 = 3
  63.     INTEGER005 = 2
  64.     STRING005 = "@X0B"
  65.     INTEGER004 = 26
  66.     AnsiPos INTEGER004, INTEGER003
  67.     Gosub LABEL001
  68.     AnsiPos INTEGER004, INTEGER003
  69.     INTEGER001 = 1
  70.     INTEGER003 = 4
  71.     INTEGER005 = 1
  72.     INTEGER004 = 1
  73.     STRING005 = "@X08"
  74.     Gosub LABEL001
  75.     Goto LABEL002
  76.     :LABEL001
  77.     If (INTEGER001 == 1) STRING002 = "@X0F"
  78.     If (INTEGER001 == 2) STRING002 = "@X0B"
  79.     If (INTEGER001 == 3) STRING002 = "@X07"
  80.     If (INTEGER001 == 4) STRING002 = "@X03"
  81.     If (INTEGER001 == 5) STRING002 = "@X09"
  82.     If (INTEGER001 == 6) STRING002 = "@X08"
  83.     If (INTEGER001 == 7) STRING002 = "@X00"
  84.     If (INTEGER001 == 8) STRING002 = "@X08"
  85.     If (INTEGER001 == 9) STRING002 = "@X09"
  86.     If (INTEGER001 == 10) STRING002 = "@X03"
  87.     If (INTEGER001 == 11) STRING002 = "@X07"
  88.     If (INTEGER001 == 12) STRING002 = "@X0B"
  89.     If (INTEGER001 == 13) STRING002 = "@X0F"
  90.     If (INTEGER001 == 14) STRING002 = STRING005
  91.     AnsiPos INTEGER004, INTEGER003
  92.     If (INTEGER005 == 1) Print STRING002 + STRING003
  93.     If (INTEGER005 == 2) Print STRING002 + STRING001
  94.     If (INTEGER005 == 3) Print STRING002 + STRING004
  95.     If (INTEGER005 == 4) Print STRING002 + STRING006
  96.     INTEGER001 = INTEGER001 + 1
  97.     If (INTEGER001 == 15) Return
  98.     Delay INTEGER002
  99.     Goto LABEL001
  100.     :LABEL002
  101.     INTEGER002 = 0
  102.     AnsiPos 25, 6
  103.     STRING006 = "@X07Setting Up The Connection"
  104.     Print STRING006
  105.     INTEGER004 = GetX()
  106.     INTEGER003 = 6
  107.     INTEGER005 = 4
  108.     INTEGER001 = 1
  109.     STRING005 = "@X09"
  110.     AnsiPos INTEGER004, INTEGER003
  111.     STRING006 = "."
  112.     For INTEGER007 = 0 To 3
  113.         Gosub LABEL001
  114.         INTEGER001 = 1
  115.         INTEGER004 = GetX()
  116.     Next
  117.     AnsiPos 25, 6
  118.     Print "                                                       "
  119.     AnsiPos 25, 6
  120.     Print "@X07Board name      "
  121.     INTEGER004 = GetX()
  122.     INTEGER001 = 1
  123.     INTEGER003 = 6
  124.     STRING005 = "@X0B"
  125.     STRING006 = "@BOARDNAME@"
  126.     AnsiPos INTEGER004, INTEGER003
  127.     Gosub LABEL001
  128.     AnsiPos 25, 7
  129.     Print "@X07Connect Speed   "
  130.     INTEGER004 = GetX()
  131.     INTEGER003 = 7
  132.     INTEGER005 = 4
  133.     INTEGER001 = 1
  134.     STRING005 = "@X0F"
  135.     AnsiPos INTEGER004, INTEGER003
  136.     INTEGER006 = Carrier()
  137.     STRING006 = I2S(INTEGER006, 10)
  138.     Gosub LABEL001
  139.     AnsiPos 25, 8
  140.     Print "@X07Color Mode   "
  141.     INTEGER004 = GetX()
  142.     INTEGER001 = 1
  143.     INTEGER003 = 8
  144.     STRING005 = "@X09"
  145.     STRING007 = GrafMode()
  146.     If (STRING007 == "R") STRING006 = "   Ripscript Supported"
  147.     If (STRING007 == "A") STRING006 = "   Ansi/bbs No color"
  148.     If (STRING007 == "G") STRING006 = "   Ansi/bbs Color"
  149.     If (STRING007 == "N") STRING006 = "   No graphics supported"
  150.     AnsiPos INTEGER004, INTEGER003
  151.     Gosub LABEL001
  152.     AnsiPos 25, 9
  153.     Print "@X07BBS call number "
  154.     INTEGER004 = GetX()
  155.     INTEGER001 = 1
  156.     INTEGER003 = 9
  157.     STRING005 = "@X0F"
  158.     INTEGER008 = CallNum()
  159.     STRING006 = I2S(INTEGER008, 10)
  160.     AnsiPos INTEGER004, INTEGER003
  161.     Gosub LABEL001
  162.     AnsiPos 25, 10
  163.     Print "@X07Call on node    "
  164.     INTEGER004 = GetX()
  165.     INTEGER001 = 1
  166.     INTEGER003 = 10
  167.     STRING005 = "@X0B"
  168.     INTEGER008 = PcbNode()
  169.     STRING006 = I2S(INTEGER008, 10)
  170.     AnsiPos INTEGER004, INTEGER003
  171.     Gosub LABEL001
  172.     AnsiPos 25, 11
  173.     Print "@X07System Date     "
  174.     INTEGER004 = GetX()
  175.     INTEGER001 = 1
  176.     INTEGER003 = 11
  177.     STRING005 = "@X09"
  178.     STRING006 = "@SYSDATE@"
  179.     AnsiPos INTEGER004, INTEGER003
  180.     Gosub LABEL001
  181.     AnsiPos 25, 12
  182.     Print "@X07System Time     "
  183.     INTEGER004 = GetX()
  184.     INTEGER001 = 1
  185.     INTEGER003 = 12
  186.     STRING005 = "@X0F"
  187.     STRING006 = "@SYSTIME@"
  188.     AnsiPos INTEGER004, INTEGER003
  189.     Gosub LABEL001
  190.     Goto LABEL004
  191.     :LABEL003
  192.     FClose 1
  193.     PrintLn "@X09Sorry, config file missing !!! Please read the Doc !!"
  194.     Goto LABEL005
  195.     :LABEL004
  196.     INTEGER001 = 1
  197.     INTEGER003 = 15
  198.     INTEGER005 = 1
  199.     INTEGER004 = 1
  200.     STRING005 = "@X08"
  201.     Gosub LABEL001
  202.     PrintLn ""
  203.     :LABEL005
  204.     Wait
  205.  
  206. ;------------------------------------------------------------------------------
  207. ;
  208. ; Usage report (before postprocessing)
  209. ;
  210. ; ■ Statements used :
  211. ;
  212. ;    1       Cls
  213. ;    1       Wait
  214. ;    7       Goto 
  215. ;    100     Let 
  216. ;    13      Print 
  217. ;    2       PrintLn 
  218. ;    25      If 
  219. ;    1       FOpen 
  220. ;    2       FClose 
  221. ;    1       FGet 
  222. ;    13      Gosub 
  223. ;    1       Return
  224. ;    1       Delay 
  225. ;    22      AnsiPos 
  226. ;
  227. ;
  228. ; ■ Functions used :
  229. ;
  230. ;    7       +
  231. ;    24      ==
  232. ;    1       <
  233. ;    1       <=
  234. ;    2       >=
  235. ;    1       !
  236. ;    2       &&
  237. ;    1       ||
  238. ;    1       Ferr()
  239. ;    1       PPEPath()
  240. ;    1       PcbNode()
  241. ;    3       I2S()
  242. ;    1       Carrier()
  243. ;    9       GetX()
  244. ;    1       GrafMode()
  245. ;    1       CallNum()
  246. ;
  247. ;------------------------------------------------------------------------------
  248. ;
  249. ; Analysis flags : No flag
  250. ;
  251. ;------------------------------------------------------------------------------
  252. ;
  253. ; Postprocessing report
  254. ;
  255. ;    1       For/Next
  256. ;    0       While/EndWhile
  257. ;    0       If/Then or If/Then/Else
  258. ;    0       Select Case
  259. ;
  260. ;------------------------------------------------------------------------------
  261. ;                 AEGiS Corp - Break the routines, code against the machines!
  262. ;------------------------------------------------------------------------------
  263.