home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / PWAULTP3.ZIP / PWAPRGMS.A02 / PWA95 / PWANK082.ZIP / HELP / HELP.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-04-09  |  5KB  |  382 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.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Integer  INTEGER001
  23.     Integer  INTEGER002
  24.     Integer  INTEGER003
  25.     Integer  INTEGER004
  26.     Integer  INTEGER005
  27.     Integer  INTEGER006
  28.     Integer  INTEGER007
  29.     Integer  INTEGER008
  30.     Integer  INTEGER009
  31.     Integer  INTEGER010
  32.     Integer  INTEGER011
  33.     Integer  INTEGER012
  34.     String   STRING001
  35.     String   STRING002
  36.     String   TSTRING003(15)
  37.     String   TSTRING004(15)
  38.     String   STRING005
  39.     String   STRING006
  40.     String   STRING007
  41.     String   STRING008
  42.     String   STRING009
  43.     String   STRING010
  44.     String   STRING011
  45.     String   STRING012
  46.  
  47. ;------------------------------------------------------------------------------
  48.  
  49.     STRING005 = PPEPath() + "POS" + String(PcbNode())
  50.     Goto LABEL008
  51.     :LABEL001
  52.     STRING002 = PPEPath()
  53.     STRING001 = GetToken()
  54.     STRING012 = GetToken()
  55.     If (STRING012 <> "") Then
  56.         INTEGER002 = STRING012
  57.     Else
  58.         INTEGER002 = 1
  59.     Endif
  60.     If (STRING001 == "") Then
  61.         PrintLn "No configuration parameter given"
  62.         Wait
  63.         End
  64.     Endif
  65.     If (Exist(STRING001)) Goto LABEL002
  66.     If (Exist(STRING002 + STRING001)) Then
  67.         STRING001 = STRING002 + STRING001
  68.     Else
  69.         PrintLn "Cannot find configuration ", STRING001
  70.         Wait
  71.         End
  72.     Endif
  73.     :LABEL002
  74.     If (AnsiOn()) Goto LABEL003
  75.     PrintLn 
  76.     PrintLn "No ansi capability, exiting lightbar kit"
  77.     End
  78.     :LABEL003
  79.     Tokenize ReadLine(STRING001, 1)
  80.     INTEGER003 = GetToken()
  81.     STRING011 = GetToken()
  82.     BOOLEAN003 = 0
  83.     BOOLEAN002 = 0
  84.     If (INTEGER003 > 15) Then
  85.         Redim TSTRING003, INTEGER003
  86.         Redim TSTRING004, INTEGER003
  87.     Endif
  88.     INTEGER006 = 1
  89.     STRING008 = Chr(13)
  90.     STRING009 = Chr(27)
  91.     BOOLEAN001 = IsNonStop()
  92.     StartDisp 1
  93.     INTEGER006 = INTEGER002
  94.     INTEGER007 = INTEGER003
  95.     DefColor
  96.     DefColor
  97.     INTEGER009 = 3
  98.     For INTEGER008 = 1 To INTEGER003
  99.         Tokenize ReadLine(STRING001, INTEGER008 + 1)
  100.         INTEGER004 = GetToken()
  101.         STRING010 = GetToken()
  102.         If (STRING010 == "C") Then
  103.             INTEGER005 = GetY()
  104.         Else
  105.             INTEGER005 = STRING010
  106.         Endif
  107.         INTEGER001 = GetToken()
  108.         TSTRING003(INTEGER008) = ScrText(INTEGER004, INTEGER005, INTEGER001, 1)
  109.         TSTRING004(INTEGER008) = GetToken()
  110.         INTEGER009 = INTEGER009 + 3
  111.     Next
  112.     INTEGER012 = 1
  113.     INTEGER011 = 1 + INTEGER003 - 1
  114.     Gosub LABEL007
  115.     Print STRING011, StripAtx(TSTRING003(INTEGER006))
  116.     :LABEL004
  117.     STRING006 = Inkey()
  118.     Select Case (STRING006)
  119.         Case "UP", "LEFT", ","
  120.             Gosub LABEL007
  121.             Print TSTRING003(INTEGER006)
  122.             If (INTEGER006 == 1) Then
  123.                 INTEGER006 = INTEGER007
  124.             Else
  125.                 INTEGER006 = INTEGER006 - 1
  126.             Endif
  127.             Gosub LABEL007
  128.             Print STRING011, StripAtx(TSTRING003(INTEGER006))
  129.             Goto LABEL004
  130.         Case "DOWN", "RIGHT", "."
  131.             Gosub LABEL007
  132.             Print TSTRING003(INTEGER006)
  133.             If (INTEGER006 == INTEGER007) Then
  134.                 INTEGER006 = 1
  135.             Else
  136.                 INTEGER006 = INTEGER006 + 1
  137.             Endif
  138.             Gosub LABEL007
  139.             Print STRING011, StripAtx(TSTRING003(INTEGER006))
  140.             Goto LABEL004
  141.         Case "?"
  142.             Tokenize ReadLine(STRING001, INTEGER006 + 1)
  143.             INTEGER004 = GetX()
  144.             INTEGER005 = GetY()
  145.             STRING010 = GetToken()
  146.             STRING010 = GetToken()
  147.             STRING010 = GetToken()
  148.             STRING010 = ""
  149.             STRING010 = GetToken()
  150.             If (STRING010 == "NOHLP") Goto LABEL004
  151.             If (STRING010 <> "") Then
  152.                 STRING007 = STRING010
  153.                 If (Exist(STRING007)) Then
  154.                     Goto LABEL005
  155.                     Goto LABEL005
  156.                 Endif
  157.                 If (Exist(HelpPath() + "hlp" + STRING007)) Then
  158.                     STRING007 = HelpPath() + "hlp" + STRING007
  159.                     Goto LABEL005
  160.                     Goto LABEL005
  161.                 Endif
  162.                 If (Exist(STRING002 + STRING007)) Then
  163.                     STRING007 = STRING002 + STRING007
  164.                     Goto LABEL005
  165.                 Endif
  166.             Endif
  167.             :LABEL005
  168.             AnsiPos 1, 23
  169.             SaveScrn
  170.             StartDisp 2
  171.             DefColor
  172.             Cls
  173.             DispFile STRING007, 1 + 4
  174.             Wait
  175.             StartDisp 1
  176.             RestScrn
  177.             AnsiPos INTEGER004, INTEGER005
  178.             Goto LABEL004
  179.         Case STRING008
  180.             INTEGER008 = INTEGER006
  181.             INTEGER004 = GetX()
  182.             INTEGER005 = GetY()
  183.             Gosub LABEL007
  184.             Print TSTRING003(INTEGER006)
  185.             Goto LABEL006
  186.             Return
  187.             Goto LABEL004
  188.         Case "HOME"
  189.             Gosub LABEL007
  190.             Print TSTRING003(INTEGER006)
  191.             INTEGER006 = INTEGER012
  192.             Gosub LABEL007
  193.             Print STRING011, StripAtx(TSTRING003(INTEGER006))
  194.             Goto LABEL004
  195.         Case "END"
  196.             Gosub LABEL007
  197.             Print TSTRING003(INTEGER006)
  198.             INTEGER006 = INTEGER011
  199.             Gosub LABEL007
  200.             Print STRING011, StripAtx(TSTRING003(INTEGER006))
  201.             Goto LABEL004
  202.         Case STRING009
  203.             If (!BOOLEAN002) Goto LABEL004
  204.             DefColor
  205.             If (BOOLEAN003) Then
  206.                 DefColor
  207.                 Cls
  208.             Endif
  209.             If (!BOOLEAN001) StartDisp 2
  210.             End
  211.         Case ""
  212.             INTEGER009 = (INTEGER006 + 1) * 3
  213.             INTEGER010 = INTEGER009 - 3
  214.             For INTEGER008 = 1 To INTEGER007
  215.                 If (Upper(TSTRING004(INTEGER008)) == Upper(STRING006)) Then
  216.                     Gosub LABEL007
  217.                     Print TSTRING003(INTEGER006)
  218.                     INTEGER006 = INTEGER008
  219.                     Gosub LABEL007
  220.                     Print STRING011, StripAtx(TSTRING003(INTEGER006))
  221.                     Goto LABEL006
  222.                 Endif
  223.             Next
  224.             Goto LABEL004
  225.             For INTEGER008 = INTEGER006 To INTEGER007
  226.                 If (Upper(Left(StripAtx(TSTRING003(INTEGER008)), 1)) == Upper(STRING006)) Then
  227.                     Gosub LABEL007
  228.                     Print TSTRING003(INTEGER006)
  229.                     INTEGER006 = INTEGER008
  230.                     Goto LABEL006
  231.                 Endif
  232.                 INTEGER009 = INTEGER009 + 3
  233.             Next
  234.             INTEGER009 = INTEGER012 * 3
  235.             For INTEGER008 = 1 To INTEGER006 - 1
  236.                 If (Upper(Left(StripAtx(TSTRING003(INTEGER008)), 1)) == Upper(STRING006)) Then
  237.                     Gosub LABEL007
  238.                     Print TSTRING003(INTEGER006)
  239.                     INTEGER006 = INTEGER008
  240.                     Goto LABEL006
  241.                 Endif
  242.                 INTEGER009 = INTEGER009 + 3
  243.             Next
  244.             Goto LABEL004
  245.     End Select
  246.     Goto LABEL004
  247.     :LABEL006
  248.     DefColor
  249.     Return
  250.     Return
  251.     :LABEL007
  252.     Tokenize ReadLine(STRING001, INTEGER006 + 1)
  253.     INTEGER004 = GetToken()
  254.     STRING010 = GetToken()
  255.     If (STRING010 == "C") Then
  256.         INTEGER005 = GetY()
  257.     Else
  258.         INTEGER005 = STRING010
  259.     Endif
  260.     AnsiPos INTEGER004, INTEGER005
  261.     Return
  262.     :LABEL008
  263.     DispFile PPEPath() + "menu", 0
  264.     Tokenize PPEPath() + "hlplb.cfg"
  265.     Gosub LABEL001
  266.     Select Case (INTEGER006)
  267.         Case 1
  268.             DispFile PPEPath() + "nuke", 0
  269.             Wait
  270.         Case 2
  271.             DispFile PPEPath() + "award", 0
  272.             Wait
  273.         Case 3
  274.             DispFile PPEPath() + "free", 0
  275.             Wait
  276.         Case 4
  277.             DispFile PPEPath() + "comment", 0
  278.             Wait
  279.         Case 5
  280.             DispFile PPEPath() + "edit", 0
  281.             Wait
  282.         Case 6
  283.             DispFile PPEPath() + "zippy", 0
  284.             Wait
  285.         Case 7
  286.             DispFile PPEPath() + "locate", 0
  287.             Wait
  288.         Case 8
  289.             DispFile PPEPath() + "newscan", 0
  290.             Wait
  291.         Case 9
  292.             DispFile PPEPath() + "batchdel", 0
  293.             Wait
  294.         Case 10
  295.             DispFile PPEPath() + "batched", 0
  296.             Wait
  297.         Case 11
  298.             DispFile PPEPath() + "turbo", 0
  299.             Wait
  300.         Case 12
  301.             DispFile PPEPath() + "wildcard", 0
  302.             Wait
  303.         Case 13
  304.             End
  305.     End Select
  306.     Goto LABEL008
  307.  
  308. ;------------------------------------------------------------------------------
  309. ;
  310. ; Usage report (before postprocessing)
  311. ;
  312. ; ■ Statements used :
  313. ;
  314. ;    5       End
  315. ;    2       Cls
  316. ;    15      Wait
  317. ;    94      Goto 
  318. ;    68      Let 
  319. ;    14      Print 
  320. ;    4       PrintLn 
  321. ;    46      If 
  322. ;    14      DispFile 
  323. ;    4       StartDisp 
  324. ;    6       DefColor
  325. ;    15      Gosub 
  326. ;    4       Return
  327. ;    5       Tokenize 
  328. ;    3       AnsiPos 
  329. ;    1       SaveScrn
  330. ;    1       RestScrn
  331. ;    2       Redim 
  332. ;
  333. ;
  334. ; ■ Functions used :
  335. ;
  336. ;    2       *
  337. ;    38      +
  338. ;    5       -
  339. ;    33      ==
  340. ;    3       <>
  341. ;    4       <
  342. ;    4       <=
  343. ;    1       >
  344. ;    8       >=
  345. ;    45      !
  346. ;    8       &&
  347. ;    8       ||
  348. ;    6       Upper()
  349. ;    2       Left()
  350. ;    2       Chr()
  351. ;    8       StripAtx()
  352. ;    1       Inkey()
  353. ;    1       String()
  354. ;    16      PPEPath()
  355. ;    1       PcbNode()
  356. ;    4       ReadLine()
  357. ;    14      GetToken()
  358. ;    5       Exist()
  359. ;    1       AnsiOn()
  360. ;    2       GetX()
  361. ;    4       GetY()
  362. ;    2       HelpPath()
  363. ;    1       ScrText()
  364. ;    1       IsNonStop()
  365. ;
  366. ;------------------------------------------------------------------------------
  367. ;
  368. ; Analysis flags : No flag
  369. ;
  370. ;------------------------------------------------------------------------------
  371. ;
  372. ; Postprocessing report
  373. ;
  374. ;    4       For/Next
  375. ;    0       While/EndWhile
  376. ;    16      If/Then or If/Then/Else
  377. ;    2       Select Case
  378. ;
  379. ;------------------------------------------------------------------------------
  380. ;                 AEGiS Corp - Break the routines, code against the machines!
  381. ;------------------------------------------------------------------------------
  382.