home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / GAN-AR04.ZIP / INITAREA.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-05-21  |  5KB  |  379 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.1O (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.     Integer  INTEGER009
  28.     Integer  INTEGER010
  29.     Integer  INTEGER011
  30.     Integer  INTEGER012
  31.     Integer  INTEGER013
  32.     Integer  INTEGER014
  33.     Integer  INTEGER015
  34.     Integer  INTEGER016
  35.     Integer  TINTEGER017(100)
  36.     String   STRING001
  37.     String   STRING002
  38.     String   STRING003
  39.     String   STRING004
  40.     String   STRING005
  41.     String   STRING006
  42.     String   STRING007
  43.     String   STRING008
  44.     String   STRING009
  45.     String   STRING010
  46.     String   STRING011
  47.     String   STRING012
  48.     String   STRING013
  49.     String   STRING014
  50.  
  51. ;------------------------------------------------------------------------------
  52.  
  53.     INTEGER002 = 100000
  54.     INTEGER008 = 31
  55.     INTEGER010 = 15
  56.     INTEGER011 = 18
  57.     INTEGER004 = 0
  58.     INTEGER009 = 0
  59.     If (TokCount() == 0) Goto LABEL008
  60.     INTEGER016 = 0
  61.     INTEGER015 = 0
  62.     INTEGER012 = TokCount()
  63.     For INTEGER001 = 1 To INTEGER012
  64.         STRING014 = GetToken()
  65.         If (Len(STRING014) > 2) Then
  66.             STRING010 = TokenStr()
  67.             STRING014 = Replace(STRING014, "-", " ")
  68.             Tokenize STRING014
  69.             GetToken STRING011
  70.             GetToken STRING012
  71.             INTEGER013 = STRING011
  72.             INTEGER014 = STRING012
  73.             For STRING013 = INTEGER013 To INTEGER014
  74.                 STRING011 = INTEGER013
  75.                 TINTEGER017(INTEGER016) = STRING011
  76.                 Inc INTEGER015
  77.                 Inc INTEGER016
  78.                 Inc INTEGER013
  79.             Next
  80.             Tokenize STRING010
  81.             Continue
  82.         Endif
  83.         TINTEGER017(INTEGER016) = STRING014
  84.         Inc INTEGER015
  85.         Inc INTEGER016
  86.     Next
  87.     For INTEGER001 = 0 To INTEGER015 - 1
  88.         PrintLn "@X07 Conference=", TINTEGER017(INTEGER001)
  89.     Next
  90.     PrintLn "@WAIT@"
  91.     STRING004 = ReadLine(PCBDat(), 31)
  92.     INTEGER007 = ReadLine(PCBDat(), 108)
  93.     PrintLn "********* GaNDaLFs GReaT aRea LiST CReaToR **********"
  94.     PrintLn "************ WRiTTeN BY RaLF KeFFeRPueTZ ************"
  95.     PrintLn ""
  96.     PrintLn "             NuMBeR oF CoNFeReNCeS To uPDaTe: ", INTEGER015
  97.     PrintLn "@POFF@"
  98.     For INTEGER004 = 0 To INTEGER015 - 1
  99.         If (TINTEGER017(INTEGER004) == 0) Then
  100.             INTEGER008 = 31
  101.             INTEGER010 = 15
  102.             INTEGER011 = 18
  103.             STRING005 = ReadLine(STRING004, INTEGER008)
  104.             STRING007 = ReadLine(STRING004, INTEGER010)
  105.             STRING008 = ReadLine(STRING004, INTEGER011)
  106.         Else
  107.             INTEGER008 = 31
  108.             INTEGER010 = 15
  109.             INTEGER011 = 18
  110.             INTEGER008 = INTEGER008 + 33 * TINTEGER017(INTEGER004)
  111.             INTEGER010 = INTEGER010 + 33 * TINTEGER017(INTEGER004)
  112.             INTEGER011 = INTEGER011 + 33 * TINTEGER017(INTEGER004)
  113.             STRING005 = ReadLine(STRING004, INTEGER008)
  114.             STRING007 = ReadLine(STRING004, INTEGER010)
  115.             STRING008 = ReadLine(STRING004, INTEGER011)
  116.         Endif
  117.         If (Exist(STRING005)) Goto LABEL001
  118.         PrintLn "*** WaRNiNG!! DIR.LST " + STRING005 + " FoR CoNF " + String(TINTEGER017(INTEGER004)) + " DoeS NoT eXiST, SkiPPiNG!! **"
  119.         Continue
  120.         :LABEL001
  121.         INTEGER009 = 1
  122.         STRING006 = PPEPath() + String(TINTEGER017(INTEGER004)) + "dir"
  123.         FOpen 1, STRING005, 2, 0
  124.         FCreate 5, STRING006, 2, 2
  125.         FSeek 1, 0, 1
  126.         FRead 1, STRING002, 30
  127.         FSeek 1, 30, 1
  128.         FRead 1, STRING001, 35
  129.         :LABEL002
  130.         If (Ferr(1)) Goto LABEL003
  131.         PrintLn "WoRKiNG iN CoNFeReNCe ", TINTEGER017(INTEGER004), " oN ", STRING002
  132.         Gosub LABEL016
  133.         Gosub LABEL019
  134.         FPutPad 5, INTEGER005, 5
  135.         FPutPad 5, STRING009, 15
  136.         FPutLn 5
  137.         FSeek 1, 1, 1
  138.         FRead 1, STRING002, 30
  139.         FSeek 1, 30, 1
  140.         FRead 1, STRING001, 35
  141.         INTEGER003 = 0
  142.         Goto LABEL002
  143.         :LABEL003
  144.         PrintLn "WoRKiNG iN CoNFeReNCe ", TINTEGER017(INTEGER004), " oN ", STRING007
  145.         If (Exist(STRING007)) Goto LABEL004
  146.         PrintLn "*** HiNT!! uPLoaD-PaTH FoR CoNF " + String(TINTEGER017(INTEGER004)) + " DoeS NoT eXiST!! **"
  147.         INTEGER005 = 0
  148.         STRING009 = 0
  149.         FPutPad 5, INTEGER005, 5
  150.         FPutPad 5, STRING009, 15
  151.         FPutLn 5
  152.         Goto LABEL005
  153.         :LABEL004
  154.         STRING002 = STRING007
  155.         Gosub LABEL016
  156.         Gosub LABEL019
  157.         FPutPad 5, INTEGER005, 5
  158.         FPutPad 5, STRING009, 15
  159.         FPutLn 5
  160.         :LABEL005
  161.         PrintLn "WoRKiNG iN CoNFeReNCe ", TINTEGER017(INTEGER004), " oN ", STRING008
  162.         If (Exist(STRING008)) Goto LABEL006
  163.         PrintLn "*** HiNT!! PRiVuPLoaD-PaTH FoR CoNF " + String(TINTEGER017(INTEGER004)) + " DoeS NoT eXiST!! **"
  164.         PrintLn 
  165.         INTEGER005 = 0
  166.         STRING009 = 0
  167.         Goto LABEL007
  168.         :LABEL006
  169.         STRING002 = STRING008
  170.         Gosub LABEL016
  171.         Gosub LABEL019
  172.         :LABEL007
  173.         FPutPad 5, INTEGER005, 5
  174.         FPutPad 5, STRING009, 15
  175.         FCloseAll
  176.         Continue
  177.     Next
  178.     Goto LABEL020
  179.     :LABEL008
  180.     STRING004 = ReadLine(PCBDat(), 31)
  181.     INTEGER007 = ReadLine(PCBDat(), 108)
  182.     Inc INTEGER007
  183.     STRING005 = ReadLine(STRING004, INTEGER008)
  184.     STRING007 = ReadLine(STRING004, INTEGER010)
  185.     STRING008 = ReadLine(STRING004, INTEGER011)
  186.     PrintLn "********* GaNDaLFs GReaT aRea LiST CReaToR **********"
  187.     PrintLn "************ WRiTTeN BY RaLF KeFFeRPueTZ ************"
  188.     PrintLn ""
  189.     PrintLn "             NuMBeR oF CoNFeReNCeS : ", INTEGER007
  190.     PrintLn "@POFF@"
  191.     For INTEGER004 = 1 To INTEGER007
  192.         If (INTEGER009 == 1) Then
  193.             INTEGER008 = INTEGER008 + 33
  194.             INTEGER010 = INTEGER010 + 33
  195.             INTEGER011 = INTEGER011 + 33
  196.             STRING005 = ReadLine(STRING004, INTEGER008)
  197.             STRING007 = ReadLine(STRING004, INTEGER010)
  198.             STRING008 = ReadLine(STRING004, INTEGER011)
  199.         Endif
  200.         If (Exist(STRING005)) Goto LABEL009
  201.         PrintLn "*** WaRNiNG!! DIR.LST " + STRING005 + " FoR CoNF " + String(INTEGER004 - 1) + " DoeS NoT eXiST, SkiPPiNG!! **"
  202.         Continue
  203.         :LABEL009
  204.         INTEGER009 = 1
  205.         STRING006 = PPEPath() + String(INTEGER004 - 1) + "dir"
  206.         FOpen 1, STRING005, 2, 0
  207.         FCreate 5, STRING006, 2, 2
  208.         FSeek 1, 0, 1
  209.         FRead 1, STRING002, 30
  210.         FSeek 1, 30, 1
  211.         FRead 1, STRING001, 35
  212.         :LABEL010
  213.         If (Ferr(1)) Goto LABEL011
  214.         PrintLn "WoRKiNG iN CoNFeReNCe ", INTEGER004 - 1, " oN ", STRING002
  215.         Gosub LABEL016
  216.         Gosub LABEL019
  217.         FPutPad 5, INTEGER005, 5
  218.         FPutPad 5, STRING009, 15
  219.         FPutLn 5
  220.         FSeek 1, 1, 1
  221.         FRead 1, STRING002, 30
  222.         FSeek 1, 30, 1
  223.         FRead 1, STRING001, 35
  224.         INTEGER003 = 0
  225.         Goto LABEL010
  226.         :LABEL011
  227.         PrintLn "WoRKiNG iN CoNFeReNCe ", INTEGER004 - 1, " oN ", STRING007
  228.         If (Exist(STRING007)) Goto LABEL012
  229.         PrintLn "*** HiNT!! uPLoaD-PaTH FoR CoNF " + String(INTEGER004 - 1) + " DoeS NoT eXiST!! **"
  230.         INTEGER005 = 0
  231.         STRING009 = 0
  232.         FPutPad 5, INTEGER005, 5
  233.         FPutPad 5, STRING009, 15
  234.         FPutLn 5
  235.         Goto LABEL013
  236.         :LABEL012
  237.         STRING002 = STRING007
  238.         Gosub LABEL016
  239.         Gosub LABEL019
  240.         FPutPad 5, INTEGER005, 5
  241.         FPutPad 5, STRING009, 15
  242.         FPutLn 5
  243.         :LABEL013
  244.         PrintLn "WoRKiNG iN CoNFeReNCe ", INTEGER004 - 1, " oN ", STRING008
  245.         If (Exist(STRING008)) Goto LABEL014
  246.         PrintLn "*** HiNT!! PRiVuPLoaD-PaTH FoR CoNF " + String(INTEGER004 - 1) + " DoeS NoT eXiST!! **"
  247.         PrintLn 
  248.         INTEGER005 = 0
  249.         STRING009 = 0
  250.         Goto LABEL015
  251.         :LABEL014
  252.         STRING002 = STRING008
  253.         Gosub LABEL016
  254.         Gosub LABEL019
  255.         :LABEL015
  256.         FPutPad 5, INTEGER005, 5
  257.         FPutPad 5, STRING009, 15
  258.         FCloseAll
  259.         Continue
  260.         :LABEL016
  261.         INTEGER005 = 0
  262.         INTEGER006 = 0
  263.         FOpen 2, STRING002, 0, 2
  264.         If (Ferr(2)) Then
  265.             FClose 2
  266.             Return
  267.         Endif
  268.         FGet 2, STRING003
  269.         :LABEL017
  270.         If (Ferr(2)) Goto LABEL018
  271.         If (Left(STRING003, 8) <> "Filename") Then
  272.             If (Left(STRING003, 8) <> "========") Then
  273.                 If (Left(STRING003, 1) <> " ") Then
  274.                     Inc INTEGER005
  275.                     INTEGER006 = INTEGER006 + Mid(STRING003, 14, 22)
  276.                 Endif
  277.             Endif
  278.         Endif
  279.         FGet 2, STRING003
  280.         Goto LABEL017
  281.         :LABEL018
  282.         FClose 2
  283.         Return
  284.     Next
  285.     Goto LABEL020
  286.     :LABEL019
  287.     If (Len(INTEGER006) < 4) Then
  288.         STRING009 = String(INTEGER006)
  289.     ElseIf (Len(INTEGER006) < 7) Then
  290.         STRING009 = Left(String(INTEGER006), Len(INTEGER006) - 3) + "." + Right(String(INTEGER006), 3)
  291.     ElseIf (Len(INTEGER006) < 10) Then
  292.         STRING009 = Left(String(INTEGER006), Len(INTEGER006) - 6) + "." + Mid(String(INTEGER006), Len(INTEGER006) - 5, 3) + "." + Right(String(INTEGER006), 3)
  293.     Else
  294.         STRING009 = Left(String(INTEGER006), Len(INTEGER006) - 6) + "." + Mid(String(INTEGER006), Len(INTEGER006) - 5, 3) + "." + Right(String(INTEGER006), 3)
  295.     Endif
  296.     Return
  297.     :LABEL020
  298.     End
  299.  
  300. ;------------------------------------------------------------------------------
  301. ;
  302. ; Usage report (before postprocessing)
  303. ;
  304. ; ■ Statements used :
  305. ;
  306. ;    1       End
  307. ;    48      Goto 
  308. ;    80      Let 
  309. ;    26      PrintLn 
  310. ;    25      If 
  311. ;    2       FCreate 
  312. ;    3       FOpen 
  313. ;    2       FClose 
  314. ;    2       FGet 
  315. ;    6       FPutLn 
  316. ;    16      FPutPad 
  317. ;    12      Gosub 
  318. ;    3       Return
  319. ;    7       Inc 
  320. ;    2       Tokenize 
  321. ;    2       GetToken 
  322. ;    8       FSeek 
  323. ;    8       FRead 
  324. ;    2       FCloseAll
  325. ;
  326. ;
  327. ; ■ Functions used :
  328. ;
  329. ;    3       *
  330. ;    42      +
  331. ;    16      -
  332. ;    3       ==
  333. ;    3       <>
  334. ;    8       <
  335. ;    5       <=
  336. ;    1       >
  337. ;    10      >=
  338. ;    24      !
  339. ;    10      &&
  340. ;    5       ||
  341. ;    9       Len(
  342. ;    3       Mid()
  343. ;    6       Left()
  344. ;    3       Right()
  345. ;    4       Ferr()
  346. ;    1       Replace()
  347. ;    17      String()
  348. ;    4       PCBDat()
  349. ;    2       PPEPath()
  350. ;    16      ReadLine()
  351. ;    1       GetToken()
  352. ;    6       Exist()
  353. ;    1       TokenStr()
  354. ;    2       TokCount()
  355. ;
  356. ;------------------------------------------------------------------------------
  357. ;
  358. ; Analysis flags : d
  359. ;
  360. ; d - Access PCBOARD.DAT ■ 2
  361. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  362. ;     for many PPE so they can find various informations on the system
  363. ;     (system paths, max number of lines in messages, ...) but it may also
  364. ;     be a way to gather vital informations.
  365. ;     ■ Search for : PCBDAT()
  366. ;
  367. ;------------------------------------------------------------------------------
  368. ;
  369. ; Postprocessing report
  370. ;
  371. ;    5       For/Next
  372. ;    0       While/EndWhile
  373. ;    10      If/Then or If/Then/Else
  374. ;    0       Select Case
  375. ;
  376. ;------------------------------------------------------------------------------
  377. ;                 AEGiS Corp - Break the routines, code against the machines!
  378. ;------------------------------------------------------------------------------
  379.