home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 15 / CD_ASCQ_15_070894.iso / vrac / caplnk94.zip / CAPLINK.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-05-28  |  13KB  |  591 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.     Integer  INTEGER002
  20.     Integer  INTEGER003
  21.     Integer  INTEGER004
  22.     Integer  INTEGER005
  23.     Integer  INTEGER006
  24.     Integer  INTEGER007
  25.     Integer  INTEGER008
  26.     Integer  INTEGER009
  27.     Integer  INTEGER010
  28.     Integer  INTEGER011
  29.     Integer  INTEGER012
  30.     Integer  INTEGER013
  31.     Integer  INTEGER014
  32.     Integer  INTEGER015
  33.     Integer  INTEGER016
  34.     Integer  INTEGER017
  35.     Integer  INTEGER018
  36.     Integer  INTEGER019
  37.     Integer  INTEGER020
  38.     Integer  INTEGER021
  39.     Integer  INTEGER022
  40.     Integer  INTEGER023
  41.     Integer  INTEGER024
  42.     Integer  INTEGER025
  43.     Integer  INTEGER026
  44.     Integer  INTEGER027
  45.     Integer  INTEGER028
  46.     Integer  INTEGER029
  47.     Integer  INTEGER030
  48.     Integer  INTEGER031
  49.     Integer  INTEGER032
  50.     Integer  INTEGER033
  51.     Integer  INTEGER034
  52.     Integer  INTEGER035
  53.     Integer  INTEGER036
  54.     Integer  INTEGER037
  55.     Integer  INTEGER038
  56.     Integer  INTEGER039
  57.     Integer  INTEGER040
  58.     Integer  INTEGER041
  59.     Integer  INTEGER042
  60.     Integer  INTEGER043
  61.     Integer  INTEGER044
  62.     Integer  INTEGER045
  63.     Integer  INTEGER046
  64.     Integer  INTEGER047
  65.     Integer  INTEGER048
  66.     Integer  INTEGER049
  67.     Integer  INTEGER050
  68.     String   STRING001
  69.     String   STRING002
  70.     String   STRING003
  71.     String   STRING004
  72.     String   STRING005
  73.     String   STRING006
  74.     String   STRING007
  75.     String   STRING008
  76.     String   STRING009
  77.     String   STRING010
  78.     String   STRING011
  79.     String   STRING012
  80.     String   STRING013
  81.     String   STRING014
  82.     String   STRING015
  83.     String   STRING016
  84.     String   STRING017
  85.     String   STRING018
  86.     String   STRING019
  87.     String   STRING020
  88.     String   STRING021
  89.     String   STRING022
  90.     String   STRING023
  91.     String   STRING024
  92.     String   STRING025
  93.     String   STRING026
  94.     String   STRING027
  95.     String   STRING028
  96.     String   STRING029
  97.     String   STRING030
  98.     String   TSTRING031(16)
  99.     String   TSTRING032(6)
  100.     String   TSTRING033(10)
  101.  
  102. ;------------------------------------------------------------------------------
  103.  
  104.     FOpen 1, PPEPath() + "CAPLINK.CNF", 0, 0
  105.     If (Ferr(1)) Then
  106.         PrintLn "@CLS@Error occured trying to open configuration file."
  107.         Log "Error opening configuration file.", 0
  108.         End
  109.     Endif
  110.     FGet 1, STRING002
  111.     FGet 1, INTEGER002
  112.     FGet 1, INTEGER004
  113.     FGet 1, STRING001
  114.     FGet 1, STRING004
  115.     FClose 1
  116.     STRING003 = ReadLine(PCBDat(), 179)
  117.     TSTRING031(1) = "PCBoard "
  118.     TSTRING031(2) = "Wildcat "
  119.     TSTRING031(3) = "GAP     "
  120.     TSTRING031(4) = "Spitfire"
  121.     TSTRING031(5) = "Auntie  "
  122.     TSTRING031(6) = "TriBBS  "
  123.     TSTRING031(7) = "MajorBBS"
  124.     TSTRING031(8) = "UltraBBS"
  125.     TSTRING031(9) = "RBBS    "
  126.     TSTRING031(10) = "QBBS    "
  127.     TSTRING031(11) = "PowerBBS"
  128.     TSTRING031(12) = "Searchlt"
  129.     TSTRING031(13) = "WWIV    "
  130.     TSTRING031(14) = "Renegade"
  131.     TSTRING031(15) = "Other"
  132.     TSTRING032(1) = "v.32bis "
  133.     TSTRING032(2) = "HST     "
  134.     TSTRING032(3) = "D/S 14.4"
  135.     TSTRING032(4) = "D/S 16.8"
  136.     TSTRING032(5) = "v.32terbo"
  137.     TSTRING032(6) = "V.FC"
  138.     TSTRING032(7) = "Zylex   "
  139.     TSTRING032(8) = "Other   "
  140.     TSTRING033(1) = "Rosemail"
  141.     TSTRING033(2) = "Qnet"
  142.     TSTRING033(3) = "Rnet"
  143.     TSTRING033(4) = "Cam-Mail"
  144.     TSTRING033(5) = "Tnet"
  145.     TSTRING033(6) = "Gapnet"
  146.     TSTRING033(7) = "Trinet"
  147.     TSTRING033(8) = "Jnet"
  148.     TSTRING033(9) = "QWiKerNet"
  149.     TSTRING033(10) = "FIDO"
  150.     INTEGER011 = 15
  151.     INTEGER012 = 1
  152.     INTEGER013 = 20
  153.     INTEGER014 = 3
  154.     INTEGER015 = 20
  155.     INTEGER016 = 5
  156.     INTEGER017 = 20
  157.     INTEGER018 = 7
  158.     INTEGER019 = 66
  159.     INTEGER020 = 3
  160.     INTEGER021 = 66
  161.     INTEGER022 = 5
  162.     INTEGER023 = 66
  163.     INTEGER024 = 7
  164.     INTEGER025 = 45
  165.     INTEGER026 = 10
  166.     INTEGER027 = 45
  167.     INTEGER028 = 13
  168.     INTEGER029 = 62
  169.     INTEGER030 = 15
  170.     INTEGER031 = 65
  171.     INTEGER032 = 17
  172.     INTEGER033 = 65
  173.     INTEGER034 = 19
  174.     INTEGER035 = 20
  175.     INTEGER036 = 9
  176.     INTEGER037 = 20
  177.     INTEGER038 = 11
  178.     INTEGER039 = 24
  179.     INTEGER040 = 13
  180.     INTEGER041 = 19
  181.     INTEGER042 = 15
  182.     INTEGER043 = 29
  183.     INTEGER044 = 17
  184.     INTEGER045 = 20
  185.     INTEGER046 = 19
  186.     INTEGER047 = 21
  187.     INTEGER048 = 21
  188.     INTEGER049 = 61
  189.     INTEGER050 = 21
  190.     GetUser
  191.     INTEGER010 = U_PageLen
  192.     If (AnsiOn()) Goto LABEL001
  193.     PrintLn "@CLS@This application program requires that you have ANSI"
  194.     PrintLn "capabilities.  Please change to ANSI mode and try again."
  195.     U_PageLen = INTEGER010
  196.     End
  197.     :LABEL001
  198.     INTEGER005 = Month(Date())
  199.     INTEGER006 = Mid(Year(Date()), 3, 2)
  200.     If ((INTEGER005 >= 1) && (INTEGER005 <= 9)) Then
  201.         STRING005 = "0" + String(INTEGER005)
  202.     Else
  203.         STRING005 = String(INTEGER005)
  204.     Endif
  205.     Log "CAPLink Mail Network Application Started.", 0
  206.     PrintLn "@CLS@@X0CStandby while we get the information needed..."
  207.     SaveScrn
  208.     Shell 0, INTEGER009, STRING004 + "PKUNZIP.EXE", STRING001 + "CAP_" + String(INTEGER006) + STRING005 + " *.PCB " + STRING003 + " -O"
  209.     RestScrn
  210.     If (INTEGER009 <> 0) Then
  211.         PrintLn "@CLS@"
  212.         PrintLn "@X0AError occured extracting the information from the packet."
  213.         PrintLn "Please inform the System Operator so it can be corrected."
  214.         Log "Error during extraction.  Error: " + String(INTEGER009), 0
  215.         U_PageLen = INTEGER010
  216.         End
  217.     Endif
  218.     If (TokCount() <> 1) Then
  219.         Goto LABEL005
  220.     Else
  221.         STRING029 = GetToken()
  222.     Endif
  223.     Select Case (Upper(STRING029))
  224.         Case "APPLY"
  225.             Goto LABEL002
  226.         Case "RULES"
  227.             Goto LABEL006
  228.         Case "NODES"
  229.             Goto LABEL007
  230.         Case "PACKET"
  231.             Goto LABEL003
  232.         Case Else
  233.             Goto LABEL005
  234.     End Select
  235.     :LABEL002
  236.     PrintLn "@CLS@"
  237.     STRING030 = "Y"
  238.     InputYN "Are you applying for CAPLink now", STRING030, 14
  239.     Select Case (STRING030)
  240.         Case "N", "n"
  241.             Log "Application Aborted.", 0
  242.             STRING016 = U_Name()
  243.             PrintLn "@CLS@@X0B" + STRING016 + " @X0Eshall we begin..."
  244.             PrintLn " "
  245.             DispFile STRING003 + "RULES.CAP", 1
  246.             STRING030 = "Y"
  247.             PrintLn " "
  248.             PrintLn " "
  249.             InputYN "Do you agree with the above set of rules for CAPLink", STRING030, 14
  250.         Case "N", "n"
  251.             Log "User did not agree with rules for CAPLink.  Aborted", 0
  252.         Case Else
  253.             PrintLn " "
  254.             FCreate 1, PPEPath() + "CAPAPP" + String(PcbNode()), 1, 0
  255.             FPutLn 1, "CAPLink Administration: "
  256.             FPutLn 1, " "
  257.             FPutLn 1, STRING016 + " is applying for CAPLink.  Please review the information."
  258.             PrintLn "@CLS@"
  259.             DispFile PPEPath() + "CAPAPPLY.SCN", 1
  260.             AnsiPos INTEGER011, INTEGER012
  261.             InputStr "", STRING006, 14, 17, Mask_Ascii(), 2 + 4
  262.             If ((STRING006 == "") || (Len(STRING006) == 0)) Then
  263.                 Goto LABEL004
  264.             Endif
  265.             AnsiPos INTEGER013, INTEGER014
  266.             InputStr "", STRING007, 14, 3, Mask_Num(), 2 + 4
  267.             If (STRING007 == "") Then
  268.                 Goto LABEL004
  269.             Endif
  270.             AnsiPos INTEGER015, INTEGER016
  271.             InputStr "", STRING008, 14, 3, Mask_Num(), 2 + 4
  272.             If (STRING008 == "") Then
  273.                 Goto LABEL004
  274.             Endif
  275.             AnsiPos INTEGER017, INTEGER018
  276.             InputStr "", STRING009, 14, 4, Mask_Num(), 2 + 4
  277.             If (((Len(STRING007) == 0) || (Len(STRING008) == 0)) || (Len(STRING009) == 0)) Then
  278.                 Goto LABEL004
  279.             Endif
  280.             AnsiPos INTEGER019, INTEGER020
  281.             InputStr "", STRING011, 14, 3, Mask_Num(), 2 + 4
  282.             If (STRING011 == "") Then
  283.                 Goto LABEL004
  284.             Endif
  285.             AnsiPos INTEGER021, INTEGER022
  286.             InputStr "", STRING012, 14, 3, Mask_Num(), 2 + 4
  287.             If (STRING012 == "") Then
  288.                 Goto LABEL004
  289.             Endif
  290.             AnsiPos INTEGER023, INTEGER024
  291.             InputStr "", STRING013, 14, 4, Mask_Num(), 2 + 4
  292.             If (((Len(STRING011) == 0) || (Len(STRING012) == 0)) || (Len(STRING013) == 0)) Then
  293.                 Goto LABEL004
  294.             Endif
  295.             AnsiPos INTEGER025, INTEGER026
  296.             InputStr "", STRING017, 14, 25, Mask_Ascii(), 2 + 4
  297.             STRING017 = Mixed(STRING017)
  298.             If ((STRING017 == "") || (Len(STRING017) == 0)) Then
  299.                 Goto LABEL004
  300.             Endif
  301.             AnsiPos INTEGER027, INTEGER028
  302.             InputStr "", STRING018, 14, 13, Mask_Ascii(), 2 + 4
  303.             STRING018 = Mixed(STRING018)
  304.             If ((STRING018 == "") || (Len(STRING018) == 0)) Then
  305.                 Goto LABEL004
  306.             Endif
  307.             AnsiPos INTEGER029, INTEGER030
  308.             InputStr "", STRING019, 14, 3, Mask_Ascii(), 8 + 2 + 4
  309.             If ((STRING019 == "") || (Len(STRING019) == 0)) Then
  310.                 Goto LABEL004
  311.             Endif
  312.             AnsiPos INTEGER031, INTEGER032
  313.             InputStr "", STRING021, 14, 10, Mask_Ascii(), 2 + 4
  314.             If ((STRING021 == "") || (Len(STRING021) == 0)) Then
  315.                 Goto LABEL004
  316.             Endif
  317.             AnsiPos INTEGER033, INTEGER034
  318.             InputStr "", STRING020, 14, 10, Mask_Ascii(), 2 + 4
  319.             If ((STRING020 == "") || (Len(STRING020) == 0)) Then
  320.                 Goto LABEL004
  321.             Endif
  322.             AnsiPos 80, 24
  323.             SaveScrn
  324.             DispFile PPEPath() + "SYSTEM.DSP", 4
  325.             PrintLn " "
  326.             Wait
  327.             RestScrn
  328.             INTEGER003 = 1
  329.             AnsiPos INTEGER035, INTEGER036
  330.             InputStr "", INTEGER003, 14, 2, Mask_Num(), 2 + 4
  331.             If ((INTEGER003 <= 0) || (INTEGER003 > 15)) Then
  332.                 Goto LABEL004
  333.             Else
  334.                 STRING010 = TSTRING031(INTEGER003)
  335.             Endif
  336.             AnsiPos 80, 24
  337.             SaveScrn
  338.             DispFile PPEPath() + "MODEM.DSP", 4
  339.             PrintLn " "
  340.             Wait
  341.             RestScrn
  342.             AnsiPos INTEGER037, INTEGER038
  343.             INTEGER008 = 8
  344.             InputStr "", INTEGER008, 14, 2, Mask_Num(), 2 + 4
  345.             If ((INTEGER008 <= 0) || (INTEGER008 > 8)) Then
  346.                 Goto LABEL004
  347.             Else
  348.                 STRING015 = TSTRING032(INTEGER008)
  349.             Endif
  350.             INTEGER007 = 1
  351.             AnsiPos 80, 24
  352.             SaveScrn
  353.             DispFile PPEPath() + "TOSSER.DSP", 4
  354.             PrintLn " "
  355.             Wait
  356.             RestScrn
  357.             AnsiPos INTEGER039, INTEGER040
  358.             InputStr "", INTEGER007, 14, 2, Mask_Num(), 2 + 4
  359.             If ((INTEGER007 <= 0) || (INTEGER007 > 10)) Then
  360.                 Goto LABEL004
  361.             Else
  362.                 STRING022 = TSTRING033(INTEGER007)
  363.             Endif
  364.             Select Case (INTEGER007)
  365.                 Case 1
  366.                     AnsiPos INTEGER041, INTEGER042
  367.                     InputStr "", STRING023, 14, 20, Mask_Ascii(), 2 + 4
  368.                     AnsiPos INTEGER043, INTEGER044
  369.                     InputStr "", STRING024, 14, 10, Mask_Num(), 2 + 4
  370.                 Case 10
  371.                     AnsiPos INTEGER045, INTEGER046
  372.                     InputStr "", STRING027, 14, 10, Mask_Ascii(), 2 + 4
  373.             End Select
  374.             AnsiPos 80, 24
  375.             SaveScrn
  376.             PrintLn "@CLS@"
  377.             PrintLn "@X0FAt this time we need to know what system you would like to call to"
  378.             PrintLn "get your mail from.  If you do not know the system that you would like"
  379.             PrintLn "get the mail from you will now have a change to view the node list and"
  380.             PrintLn "pick the Hub/Regional/Super Regional."
  381.             PrintLn " "
  382.             Wait
  383.             PrintLn "@CLS@@PON@"
  384.             DispFile STRING003 + "NODELIST.CAP", 4
  385.             PrintLn " "
  386.             Wait
  387.             RestScrn
  388.             AnsiPos INTEGER047, INTEGER048
  389.             InputStr "", STRING014, 14, 17, Mask_Ascii(), 2 + 4
  390.             AnsiPos INTEGER049, INTEGER050
  391.             InputStr "", STRING026, 14, 12, Mask_Pwd(), 2 + 4
  392.             If (STRING026 == "") Then
  393.                 Goto LABEL004
  394.             Endif
  395.             PrintLn "@CLS@"
  396.             InputStr "Enter your level you wish. {S)uper, R)egional, H)ub, N)ode}", STRING025, 14, 1, Mask_Alpha(), 2 + 4 + 8 + 64
  397.             Select Case (STRING025)
  398.                 Case "S"
  399.                     STRING025 = "Super Regional"
  400.                 Case "R"
  401.                     STRING025 = "Regional"
  402.                 Case "H"
  403.                     STRING025 = "Hub"
  404.                 Case Else
  405.                     STRING025 = "Node"
  406.             End Select
  407.             SaveScrn
  408.             PrintLn " "
  409.             DispFile PPEPath() + "ACCOUNT.INF", 4
  410.             PrintLn " "
  411.             PrintLn " "
  412.             InputStr "Enter the password for CAPLINK ADMIN", STRING028, 14, 12, Mask_Pwd(), 2 + 4 + 64
  413.             If (STRING028 == "") Then
  414.                 Goto LABEL004
  415.             Endif
  416.             FPutLn 1, " "
  417.             FPutLn 1, "SYSOP                : " + STRING016
  418.             FPutLn 1, " "
  419.             FPutLn 1, "BBS Name             : " + STRING006
  420.             FPutLn 1, "BBS Phone Number     : (" + STRING007 + ") " + STRING008 + "-" + STRING009
  421.             FPutLn 1, "BBS Software         : " + STRING010
  422.             FPutLn 1, " "
  423.             FPutLn 1, "Modem Type           : " + STRING015
  424.             FPutLn 1, " "
  425.             FPutLn 1, "Netmail Software     : " + STRING022
  426.             Select Case (INTEGER007)
  427.                 Case 1
  428.                     FPutLn 1, "Rosemail Serial No.  : " + STRING024
  429.                     FPutLn 1, "Rosemail ID          : " + STRING023
  430.                 Case 10
  431.                     FPutLn 1, "FIDO Address         : " + STRING027
  432.             End Select
  433.             FPutLn 1, " "
  434.             FPutLn 1, "Voice Phone Number   : (" + STRING011 + ") " + STRING012 + "-" + STRING013
  435.             FPutLn 1, "Address              : " + STRING017
  436.             FPutLn 1, "City, State          : " + STRING018 + ", " + STRING019
  437.             FPutLn 1, "Zip Code             : " + STRING021
  438.             FPutLn 1, "Country              : " + STRING020
  439.             FPutLn 1, " "
  440.             FPutLn 1, "System to Call       : " + STRING014
  441.             FPutLn 1, "Password for System  : " + STRING026
  442.             FPutLn 1, "Level Requested      : " + STRING025
  443.             FPutLn 1, " "
  444.             FPutLn 1, "Password for A/C     : " + STRING028
  445.             FClose 1
  446.             PrintLn "@CLS@@X0BInformation recorded.  Sending to Administrator, please wait..."
  447.             Log "Sending Application to Conference " + String(INTEGER004) + ".", 0
  448.             Message INTEGER004, "CAPLINK ADMIN", "", "CAPLink Application", "N", 0, 0, 1, PPEPath() + "CAPAPP" + String(PcbNode())
  449.             Log "Message sent.  CAPLink Application Completed.", 0
  450.             :LABEL003
  451.             PrintLn "@CLS@"
  452.             PrintLn "@X0FWe are now going to send you the latest CAPLINK Information Packet...."
  453.             PrintLn " "
  454.             Join 0
  455.             Download "CAP_" + String(INTEGER006) + STRING005 + ".ZIP"
  456.     End Select
  457.     :LABEL004
  458.     Shell 1, INTEGER009, "DEL ", STRING003 + "*.PCB"
  459.     RestScrn
  460.     U_PageLen = INTEGER010
  461.     Cls
  462.     End
  463.     :LABEL005
  464.     DispFile PPEPath() + "CAPLINK.MNU", 1 + 4
  465.     PrintLn " "
  466.     STRING030 = ""
  467.     InputStr "Enter your selection (Enter=Quit)", STRING030, 14, 1, Mask_Num(), 2 + 4
  468.     PrintLn " "
  469.     Select Case (STRING030)
  470.         Case ""
  471.             Goto LABEL004
  472.         Case "1"
  473.             Goto LABEL002
  474.         Case "2"
  475.             Goto LABEL006
  476.         Case "3"
  477.             Goto LABEL007
  478.         Case Else
  479.             Goto LABEL004
  480.     End Select
  481.     :LABEL006
  482.     PrintLn "@CLS@"
  483.     DispFile STRING003 + "OVERVIEW.PCB", 1
  484.     DispFile STRING003 + "RULES.PCB", 1
  485.     PrintLn " "
  486.     PrintLn " "
  487.     Wait
  488.     Goto LABEL005
  489.     :LABEL007
  490.     PrintLn "@CLS@"
  491.     DispFile STRING003 + "NODELIST.PCB", 1
  492.     PrintLn " "
  493.     PrintLn " "
  494.     Wait
  495.     Goto LABEL005
  496.  
  497. ;------------------------------------------------------------------------------
  498. ;
  499. ; Usage report (before postprocessing)
  500. ;
  501. ; ■ Statements used :
  502. ;
  503. ;    4       End
  504. ;    1       Cls
  505. ;    7       Wait
  506. ;    89      Goto 
  507. ;    99      Let 
  508. ;    41      PrintLn 
  509. ;    39      If 
  510. ;    11      DispFile 
  511. ;    1       FCreate 
  512. ;    1       FOpen 
  513. ;    2       FClose 
  514. ;    5       FGet 
  515. ;    28      FPutLn 
  516. ;    1       GetUser
  517. ;    7       Log 
  518. ;    23      InputStr 
  519. ;    2       InputYN 
  520. ;    2       Shell 
  521. ;    1       Join 
  522. ;    24      AnsiPos 
  523. ;    1       Message 
  524. ;    6       SaveScrn
  525. ;    6       RestScrn
  526. ;    1       Download 
  527. ;
  528. ;
  529. ; ■ Functions used :
  530. ;
  531. ;    90      +
  532. ;    43      ==
  533. ;    2       <>
  534. ;    4       <=
  535. ;    3       >
  536. ;    1       >=
  537. ;    39      !
  538. ;    1       &&
  539. ;    15      ||
  540. ;    12      Len(
  541. ;    4       Upper()
  542. ;    1       Mid()
  543. ;    1       Ferr()
  544. ;    2       Date()
  545. ;    1       U_Name()
  546. ;    1       Year()
  547. ;    1       Month()
  548. ;    8       String()
  549. ;    2       Mask_Pwd()
  550. ;    1       Mask_Alpha()
  551. ;    11      Mask_Num()
  552. ;    9       Mask_Ascii()
  553. ;    1       PCBDat()
  554. ;    9       PPEPath()
  555. ;    2       PcbNode()
  556. ;    1       ReadLine()
  557. ;    1       GetToken()
  558. ;    1       AnsiOn()
  559. ;    1       TokCount()
  560. ;    2       Mixed()
  561. ;
  562. ;------------------------------------------------------------------------------
  563. ;
  564. ; Analysis flags : Sd
  565. ;
  566. ; S - Shell to DOS ■ 5
  567. ;     This may be normal if the PPE need to execute an external command,
  568. ;     but may be actually anything... nasty (formating HD, rebooting,...)
  569. ;     or usefull (sorting, maintenance,...). Check!
  570. ;     ■ Search for : SHELL
  571. ;
  572. ; d - Access PCBOARD.DAT ■ 2
  573. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  574. ;     for many PPE so they can find various informations on the system
  575. ;     (system paths, max number of lines in messages, ...) but it may also
  576. ;     be a way to gather vital informations.
  577. ;     ■ Search for : PCBDAT()
  578. ;
  579. ;------------------------------------------------------------------------------
  580. ;
  581. ; Postprocessing report
  582. ;
  583. ;    0       For/Next
  584. ;    0       While/EndWhile
  585. ;    21      If/Then or If/Then/Else
  586. ;    6       Select Case
  587. ;
  588. ;------------------------------------------------------------------------------
  589. ;                 AEGiS Corp - Break the routines, code against the machines!
  590. ;------------------------------------------------------------------------------
  591.