home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / FPCB270A.ZIP / FPCBRE.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-02-06  |  12KB  |  536 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  INTEGER001
  20.     Integer  INTEGER002
  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.     String   STRING025
  46.     String   STRING026
  47.     String   STRING027
  48.     String   STRING028
  49.     String   STRING029
  50.     String   STRING030
  51.     String   STRING031
  52.     String   STRING032
  53.     String   STRING033
  54.     String   STRING034
  55.     String   STRING035
  56.     String   STRING036
  57.     String   STRING037
  58.     String   STRING038
  59.     String   STRING039
  60.     String   STRING040
  61.     String   STRING041
  62.     String   STRING042
  63.     String   STRING043
  64.     String   STRING044
  65.  
  66. ;------------------------------------------------------------------------------
  67.  
  68.     STRING011 = Chr(13)
  69.     STRING028 = Space(6) + STRING011
  70.     STRING005 = "FPCBNM"
  71.     STRING007 = TokenStr()
  72.     Tokenize STRING007
  73.     If (TokCount() < 1) Then
  74.         Gosub LABEL012
  75.         PrintLn "@X0BPLEASE @X0Ftell the @X0BSYSOP @X0Fthat there is @X0BNO FPCBNM Configuration File Specified!@X07"
  76.         Log "@X0ENo FPCBNM Configuration File Specified@X07", 1
  77.     Else
  78.         GetToken STRING012
  79.         If (Exist(PPEPath() + STRING012)) Goto LABEL001
  80.         Gosub LABEL012
  81.         PrintLn "@X0BPLEASE @X0Ftell the @X0BSYSOP @X0Fthat there is @X0BNO FPCBNM Configuration File Found!@X07"
  82.         Log "@X0ENo FPCBNM Configuration File Found@X07", 1
  83.         Goto LABEL015
  84.         :LABEL001
  85.         FOpen 1, PPEPath() + STRING012, 2, 0
  86.         FGet 1, STRING002
  87.         FGet 1, STRING004
  88.         FGet 1, STRING019
  89.         FGet 1, STRING020
  90.         FGet 1, STRING023
  91.         FGet 1, STRING015
  92.         FGet 1, STRING016
  93.         FGet 1, STRING017
  94.         FClose 1
  95.         If (STRING002 == "") Goto LABEL014
  96.         If (STRING019 == "") Goto LABEL014
  97.         If (STRING020 == "") Goto LABEL014
  98.         If (STRING015 == "") Goto LABEL014
  99.         If (STRING016 == "") Goto LABEL014
  100.         If (STRING017 == "") Goto LABEL014
  101.         If (STRING004 == "00000000") Goto LABEL013
  102.         STRING001 = ReadLine(PCBDat(), 94)
  103.         STRING001 = Strip(STRING001, " ")
  104.         STRING002 = Strip(STRING002, " ")
  105.         STRING001 = Upper(STRING001)
  106.         STRING002 = Upper(STRING002)
  107.         STRING005 = Upper(STRING005)
  108.         STRING006 = STRING005 + STRING001 + STRING002
  109.         INTEGER002 = -1
  110.         INTEGER001 = 1
  111.         While (INTEGER001 <= Len(STRING006)) Do
  112.             INTEGER002 = (INTEGER002 * Asc(Mid(STRING006, INTEGER001, 1))) / 3
  113.             INTEGER002 = And(INTEGER002, 1073741823)
  114.             INTEGER001 = INTEGER001 + 1
  115.         EndWhile
  116.         STRING003 = I2S(INTEGER002, 16)
  117.         If (STRING003 <> STRING004) Then
  118.             Goto LABEL013
  119.         Endif
  120.         :LABEL002
  121.         STRING019 = Upper(STRING019)
  122.         STRING015 = "(" + STRING015 + ")"
  123.         If (STRING015 == STRING015) Then
  124.             STRING015 = Space(6)
  125.         Endif
  126.         STRING020 = Upper(STRING020)
  127.         If (STRING020 == "Y") Goto LABEL004
  128.         If (STRING020 == "N") Goto LABEL003
  129.         Goto LABEL015
  130.         :LABEL003
  131.         Goto LABEL005
  132.         Goto LABEL015
  133.         :LABEL004
  134.         If (STRING007 == "1") Goto LABEL005
  135.         If (STRING007 == "2") Goto LABEL009
  136.         If (STRING007 <> "") STRING008 = ""
  137.         Cls
  138.         STRING008 = ""
  139.         If (Exist(PPEPath() + "FPCBNM1")) Then
  140.             DispFile PPEPath() + "FPCBNM1", 1 + 2 + 4
  141.         Else
  142.             Newline
  143.             PrintLn "@X1E ┌──────────────────────────────────────────────────────────────────────────┐ @X07"
  144.             PrintLn "@X1E │ SYSDATE:8@       S E L E C T   T Y P E   O F   N E T M A I L         @SYSTIME:5R@ │ @X07"
  145.             PrintLn "@X1E └──────────────────────────────────────────────────────────────────────────┘ @X07"
  146.             PrintLn "@X1E ┌──────────────────────────────────────────────────────────────────────────┐ @X07"
  147.             PrintLn "@X1E │                (1) NetMail to a User at a Node in FidoNet                │ @X07"
  148.             PrintLn "@X1E │                (2) NetMail to a User at an InterNet Site                 │ @X07"
  149.             PrintLn "@X1E └──────────────────────────────────────────────────────────────────────────┘ @X07"
  150.             Newlines 2
  151.         Endif
  152.         If (Exist(PPEPath() + "FPCBTX1")) Then
  153.             DispFile PPEPath() + "FPCBTX1", 1 + 4 + 2
  154.             InputText "", STRING008, 14, 1
  155.         Else
  156.             InputStr " @X0FEnter@X0E=(@X0FQ@X0E)uit, Netmail Selection Command", STRING008, 14, 1, "q, Q, 1, 2", 2 + 4 + 128 + 8
  157.         Endif
  158.         If (STRING008 == "1") Goto LABEL005
  159.         If (STRING008 == "2") Goto LABEL009
  160.         If (STRING008 == "Q") Goto LABEL015
  161.         If (STRING008 == "") Goto LABEL015
  162.         Goto LABEL015
  163.         :LABEL005
  164.         Cls
  165.         If (Exist(PPEPath() + "FPCBNM6")) Then
  166.             DispFile PPEPath() + "FPCBNM6", 1 + 2 + 4
  167.         Else
  168.             Newline
  169.             PrintLn "@X1F ┌───────────────────────────────────────────────────────────────────────────┐ @X07"
  170.             PrintLn "@X1F │   You are about to REPLY to a FIDONET NETMAIL MESSAGE.  Ensure that you   │ @X07"
  171.             PrintLn "@X1F │                   have the following prior to beginning:                  │ @X07"
  172.             PrintLn "@X1F │                                                                           │ @X07"
  173.             PrintLn "@X1F │                o The MESSAGE NUMBER you INTEND to reply to                │ @X07"
  174.             PrintLn "@X1F │     o The FULL FIDONET NODE ADDRESS where the Recipient can be found.     │ @X07"
  175.             PrintLn "@X1F └───────────────────────────────────────────────────────────────────────────┘ @X07"
  176.         Endif
  177.         Newline
  178.         DispText 22, 32768
  179.         InputText "", STRING044, 10, 16
  180.         PrintLn 
  181.         DispText 200, 32768
  182.         InputText "", STRING013, 14, 60
  183.         If (Len(STRING013) < 2) Goto LABEL015
  184.         GetUser
  185.         Select Case (U_FSEP)
  186.             Case 0
  187.                 STRING010 = NoChar()
  188.             Case 1
  189.                 STRING010 = YesChar()
  190.         End Select
  191.         If (U_Sec >= STRING017) Then
  192.             STRING018 = NoChar()
  193.         Endif
  194.         Newline
  195.         If (Exist(PPEPath() + "FPCBTX4")) Then
  196.             DispFile PPEPath() + "FPCBTX4", 1 + 4 + 2
  197.             InputText "", STRING014, 14, 20
  198.         Else
  199.             InputStr "@X0EEnter FidoNet Node Number@X0E", STRING014, 14, 20, "1234567890/:.", 8
  200.         Endif
  201.         STRING014 = "(" + STRING014 + ")"
  202.         If (STRING019 == "INTERPCB") Goto LABEL006
  203.         If (U_Sec < STRING016) Then
  204.             Goto LABEL006
  205.         Endif
  206.         Cls
  207.         If (Exist(PPEPath() + "FPCBNM4")) Then
  208.             DispFile PPEPath() + "FPCBNM4", 1 + 2 + 4
  209.         Else
  210.             Newline
  211.             PrintLn " "
  212.             PrintLn "@X0F     Select the Netmail Priority You Wish Your Message To Be Routed As:@X07"
  213.             PrintLn " "
  214.             PrintLn "    @X0F(@X0EC@X0F)  @X0ACRASH       @X0F=  @X0ESend to FidoNet Node Directly.@X07"
  215.             PrintLn "    @X0F(@X0EH@X0F)  @X0AHOLD        @X0F=  @X0EHold for Pickup by FidoNet Node.@X07"
  216.             PrintLn "    @X0F(@X0EI@X0F)  @X0AIMMEDIATELY @X0F=  @X0EImmediately Route Along Normal FidoNet Chain.@X07"
  217.             PrintLn "    @X0F(@X0EN@X0F)  @X0ANONE        @X0F=  @X0ENo Transfer Mode Desired.@X07"
  218.             PrintLn " "
  219.             Newline
  220.         Endif
  221.         If (Exist(PPEPath() + "FPCBTX5")) Then
  222.             DispFile PPEPath() + "FPCBTX5", 1 + 4 + 2
  223.             InputText "", STRING009, 14, 1
  224.             STRING009 = Upper(STRING009)
  225.         Else
  226.             InputStr "@X0E Select NetMail Priority, (@X0FENTER@X0E) for Default Priority@X0E", STRING009, 15, 1, "C, c, I, i, H, h, n, N", 2 + 4 + 128 + 8
  227.         Endif
  228.         Select Case (STRING009)
  229.             Case "C"
  230.                 STRING015 = "(CRASH)"
  231.             Case "I"
  232.                 STRING015 = "(IMM)"
  233.             Case "H"
  234.                 STRING015 = "(HOLD)"
  235.             Case "N"
  236.                 STRING015 = Space(2)
  237.         End Select
  238.         :LABEL006
  239.         STRING029 = "RE " + STRING011 + STRING044 + STRING011 + STRING013 + STRING011 + STRING010 + STRING011
  240.         STRING030 = STRING014 + STRING011
  241.         STRING031 = STRING015 + STRING011
  242.         STRING032 = "RE " + STRING011 + STRING044 + STRING011 + STRING013 + STRING011
  243.         STRING033 = "@<" + STRING014 + STRING011
  244.         Select Case (STRING019)
  245.             Case "FIDOPCB"
  246.                 Goto LABEL007
  247.             Case "QFRONT"
  248.                 Goto LABEL007
  249.             Case Else
  250.                 Goto LABEL008
  251.         End Select
  252.         :LABEL007
  253.         If ((U_Sec < STRING017) && (U_FSEP == 0)) Then
  254.             KbdStuff STRING032 + STRING030 + STRING031
  255.             Goto LABEL015
  256.         ElseIf ((U_Sec >= STRING017) && (U_FSEP == 0)) Then
  257.             KbdStuff STRING032 + STRING030 + STRING031
  258.             Goto LABEL015
  259.         Else
  260.             KbdStuff STRING029 + STRING030 + STRING031
  261.             Goto LABEL015
  262.         Endif
  263.         Goto LABEL015
  264.         :LABEL008
  265.         If ((U_Sec < STRING017) && (U_FSEP == 0)) Then
  266.             KbdStuff STRING032 + STRING033
  267.             Goto LABEL015
  268.         ElseIf ((U_Sec >= STRING017) && (U_FSEP == 0)) Then
  269.             KbdStuff STRING032 + STRING033
  270.             Goto LABEL015
  271.         Else
  272.             KbdStuff STRING029 + STRING033
  273.             Goto LABEL015
  274.         Endif
  275.         Goto LABEL015
  276.         :LABEL009
  277.         If (STRING023 == "") Goto LABEL014
  278.         STRING023 = "(" + STRING023 + ")"
  279.         Cls
  280.         If (Exist(PPEPath() + "FPCBNM7")) Then
  281.             DispFile PPEPath() + "FPCBNM7", 1 + 2 + 4
  282.         Else
  283.             Newline
  284.             PrintLn "@X1F ┌───────────────────────────────────────────────────────────────────────────┐ @X07"
  285.             PrintLn "@X1F │   You are about to REPLY to a INTERNET E-MAIL MESSAGE.  Ensure that you   │ @X07"
  286.             PrintLn "@X1F │                   have the following prior to beginning:                  │ @X07"
  287.             PrintLn "@X1F │                                                                           │ @X07"
  288.             PrintLn "@X1F │          o the MESSAGE NUMBER of the MESSAGE you are replying to          │ @X07"
  289.             PrintLn "@X1F │        o Site and Domain where the Intended Recipient can be found        │ @X07"
  290.             PrintLn "@X1F └───────────────────────────────────────────────────────────────────────────┘ @X07"
  291.         Endif
  292.         Newline
  293.         DispText 22, 32768
  294.         InputText "", STRING044, 10, 16
  295.         Newline
  296.         DispText 200, 32768
  297.         InputText "", STRING013, 14, 53
  298.         If (Len(STRING013) < 2) Goto LABEL015
  299.         Newline
  300.         GetUser
  301.         Select Case (U_FSEP)
  302.             Case 0
  303.                 STRING010 = NoChar()
  304.             Case 1
  305.                 STRING010 = YesChar()
  306.         End Select
  307.         If (U_Sec >= STRING017) Then
  308.             STRING018 = NoChar()
  309.         Endif
  310.         If (Exist(PPEPath() + "FPCBTX7")) Then
  311.             DispFile PPEPath() + "FPCBTX7", 1 + 4 + 2
  312.             InputText "", STRING021, 14, 60
  313.             Newline
  314.         Else
  315.             InputStr "@X0EEnter the user's @X0FNAME@X0E mail is intended for", STRING021, 14, 60, Mask_Ascii(), 2 + 4 + 256
  316.         Endif
  317.         If (Exist(PPEPath() + "FPCBTX8")) Then
  318.             DispFile PPEPath() + "FPCBTX8", 1 + 4 + 2
  319.             InputText "", STRING024, 14, 60
  320.             Newline
  321.         Else
  322.             InputStr "@X0EEnter the InterNet @X0FSITE@X0E this msg is to be sent to", STRING024, 14, 60, Mask_Ascii(), 2 + 4 + 256
  323.         Endif
  324.         If (Exist(PPEPath() + "FPCBTX9")) Then
  325.             DispFile PPEPath() + "FPCBTX9", 1 + 4 + 2
  326.             InputText "", STRING026, 14, 60
  327.         Else
  328.             InputStr "@X0EEnter the InterNet @X0FDOMAIN@X0E this msg is to be sent to", STRING026, 14, 60, Mask_Ascii(), 2 + 4
  329.         Endif
  330.         STRING022 = Lower(STRING021)
  331.         STRING025 = Lower(STRING024)
  332.         STRING027 = Lower(STRING026)
  333.         STRING034 = "RE " + STRING011 + STRING044 + STRING011 + STRING013 + STRING011 + STRING010 + STRING011
  334.         STRING035 = "To: " + STRING022 + "@" + STRING025 + "." + STRING027 + STRING011 + STRING028 + STRING028
  335.         STRING036 = "RE " + STRING011 + STRING044 + STRING011 + STRING013 + STRING011 + STRING018 + STRING011 + STRING010 + STRING011
  336.         STRING037 = "RE " + STRING011 + STRING044 + STRING011 + STRING013 + STRING011
  337.         STRING038 = STRING023 + STRING011
  338.         STRING039 = "RE " + STRING011 + STRING044 + STRING011 + STRING013 + STRING011 + STRING010 + STRING011
  339.         STRING040 = "RE " + STRING011 + STRING044 + STRING011 + STRING013 + STRING011
  340.         STRING041 = "RE " + STRING011 + STRING044 + STRING011 + STRING013 + STRING011 + STRING018 + STRING011 + STRING010 + STRING011
  341.         STRING042 = "@<" + STRING023 + STRING011
  342.         STRING043 = "To: " + STRING022 + "@" + STRING025 + "." + STRING027 + STRING011 + STRING028 + STRING028
  343.         Select Case (STRING019)
  344.             Case "FIDOPCB"
  345.                 Goto LABEL010
  346.             Case "QFRONT"
  347.                 Goto LABEL010
  348.             Case Else
  349.                 Goto LABEL011
  350.         End Select
  351.         :LABEL010
  352.         If ((U_Sec < STRING017) && (U_FSEP == 0)) Then
  353.             KbdStuff STRING037 + STRING038 + STRING035
  354.             Goto LABEL015
  355.         ElseIf ((U_Sec >= STRING017) && (U_FSEP == 0)) Then
  356.             KbdStuff STRING037 + STRING038 + STRING035
  357.             Goto LABEL015
  358.         Else
  359.             KbdStuff STRING034 + STRING038 + STRING035
  360.             Goto LABEL015
  361.         Endif
  362.         Goto LABEL015
  363.         :LABEL011
  364.         If ((U_Sec < STRING017) && (U_FSEP == 0)) Then
  365.             KbdStuff STRING040 + STRING042 + STRING043
  366.             Goto LABEL015
  367.         ElseIf ((U_Sec >= STRING017) && (U_FSEP == 0)) Then
  368.             KbdStuff STRING040 + STRING042 + STRING043
  369.             Goto LABEL015
  370.         Else
  371.             KbdStuff STRING039 + STRING042 + STRING043
  372.             Goto LABEL015
  373.         Endif
  374.         Goto LABEL015
  375.         :LABEL012
  376.         Sound 440
  377.         Delay 9
  378.         Sound 0
  379.         Delay 9
  380.         Return
  381.         :LABEL013
  382.         Gosub LABEL012
  383.         Cls
  384.         Newlines 7
  385.         PrintLn "@X4F ┌───────────────────────────────────────────────────────────────────────────┐ @X07"
  386.         PrintLn "@X4F │                         FPCBNM V2.70 by John Luce                         │ @X07"
  387.         PrintLn "@X4F │                Copyright (c) 1993-94.  ALL RIGHTS RESERVED                │ @X07"
  388.         PrintLn "@X4F │                                                                           │ @X07"
  389.         PrintLn "@X4F │              * * * This Copy of FPCBNM is UNREGISTERED * * *              │ @X07"
  390.         PrintLn "@X4F │                  PLEASE ENCOURAGE YOUR SYSOP TO REGISTER                  │ @X07"
  391.         PrintLn "@X4F └───────────────────────────────────────────────────────────────────────────┘ @X07"
  392.         Delay 91
  393.         Goto LABEL002
  394.         :LABEL014
  395.         If (STRING002 == "") Then
  396.             PrintLn 
  397.             Gosub LABEL012
  398.             PrintLn "@X0EPLEASE @X0Ftell the @X0ESYSOP @X0Fthat there is a @X0EFPCBNM Configuration Error @X0Fon @X0ELine 1@X07"
  399.             Log "@X0EFPCBNM Configuration File Error Line 1@X07", 1
  400.         Endif
  401.         If (STRING019 == "") Then
  402.             PrintLn 
  403.             Gosub LABEL012
  404.             PrintLn "@X0DPLEASE @X0Ftell the @X0DSYSOP @X0Fthat there is a @X0DFPCBNM Configuration Error @X0Fon @X0DLine 2@X07"
  405.             Log "@X0EFPCBNM Configuration File Error Line 2@X07", 1
  406.         Endif
  407.         If (STRING020 == "") Then
  408.             PrintLn 
  409.             Gosub LABEL012
  410.             PrintLn "@X09PLEASE @X0Ftell the @X09SYSOP @X0Fthat there is a @X09FPCBNM Configuration Error @X0Fon @X09Line 3@X07"
  411.             Log "@X0EFPCBNM Configuration File Error Line 3@X07", 1
  412.         Endif
  413.         If (STRING023 == "") Then
  414.             PrintLn 
  415.             Gosub LABEL012
  416.             PrintLn "@X0APLEASE @X0Ftell the @X0ASYSOP @X0Fthat there is a @X0AFPCBNM Configuration Error @X0Fon @X0ALine 4@X07"
  417.             Log "@X0EFPCBNM Configuration File Error Line 4@X07", 1
  418.         Endif
  419.         If (STRING023 == "") Then
  420.             PrintLn 
  421.             Gosub LABEL012
  422.             PrintLn "@X0BPLEASE @X0Ftell the @X0BSYSOP @X0Fthat there is a @X0BFPCBNM Configuration Error @X0Fon @X0BLine 5@X07"
  423.             Log "@X0EFPCBNM Configuration File Error Line 5@X07", 1
  424.         Endif
  425.         If (STRING015 == "") Then
  426.             PrintLn 
  427.             Gosub LABEL012
  428.             PrintLn "@X0BPLEASE @X0Ftell the @X0BSYSOP @X0Fthat there is a @X0BFPCBNM Configuration Error @X0Fon @X0BLine 6@X07"
  429.             Log "@X0EFPCBNM Configuration File Error Line 6@X07", 1
  430.         Endif
  431.         If (STRING016 == "") Then
  432.             PrintLn 
  433.             Gosub LABEL012
  434.             PrintLn "@X0CPLEASE @X0Ftell the @X0CSYSOP @X0Fthat there is a @X0CFPCBNM Configuration Error @X0Fon @X0CLine 7@X07"
  435.             Log "@X0EFPCBNM Configuration File Error Line 7@X07", 1
  436.         Endif
  437.         If (STRING017 == "") Then
  438.             PrintLn 
  439.             Gosub LABEL012
  440.             PrintLn "@X0EPLEASE @X0Ftell the @X0ESYSOP @X0Fthat there is a @X0EFPCBNM Configuration Error @X0Fon @X0ELine 8@X07"
  441.             Log "@X0EFPCBNM Configuration File Error Line 8@X07", 1
  442.         Endif
  443.         Goto LABEL015
  444.     Endif
  445.     :LABEL015
  446.     End
  447.  
  448. ;------------------------------------------------------------------------------
  449. ;
  450. ; Usage report (before postprocessing)
  451. ;
  452. ; ■ Statements used :
  453. ;
  454. ;    1       End
  455. ;    5       Cls
  456. ;    125     Goto 
  457. ;    54      Let 
  458. ;    55      PrintLn 
  459. ;    66      If 
  460. ;    10      DispFile 
  461. ;    1       FOpen 
  462. ;    1       FClose 
  463. ;    8       FGet 
  464. ;    2       GetUser
  465. ;    10      Log 
  466. ;    6       InputStr 
  467. ;    11      Gosub 
  468. ;    1       Return
  469. ;    3       Delay 
  470. ;    12      Newline
  471. ;    2       Newlines 
  472. ;    1       Tokenize 
  473. ;    1       GetToken 
  474. ;    4       DispText 
  475. ;    10      InputText 
  476. ;    12      KbdStuff 
  477. ;    2       Sound 
  478. ;
  479. ;
  480. ; ■ Functions used :
  481. ;
  482. ;    1       -
  483. ;    1       *
  484. ;    1       /
  485. ;    161     +
  486. ;    46      ==
  487. ;    2       <>
  488. ;    8       <
  489. ;    1       <=
  490. ;    6       >=
  491. ;    46      !
  492. ;    8       &&
  493. ;    3       Len(
  494. ;    3       Lower()
  495. ;    6       Upper()
  496. ;    1       Mid()
  497. ;    3       Space()
  498. ;    1       Chr()
  499. ;    1       Asc()
  500. ;    4       NoChar()
  501. ;    2       YesChar()
  502. ;    2       Strip()
  503. ;    3       Mask_Ascii()
  504. ;    1       PCBDat()
  505. ;    22      PPEPath()
  506. ;    1       ReadLine()
  507. ;    11      Exist()
  508. ;    1       I2S()
  509. ;    1       TokenStr()
  510. ;    1       And()
  511. ;    1       TokCount()
  512. ;
  513. ;------------------------------------------------------------------------------
  514. ;
  515. ; Analysis flags : d
  516. ;
  517. ; d - Access PCBOARD.DAT ■ 2
  518. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  519. ;     for many PPE so they can find various informations on the system
  520. ;     (system paths, max number of lines in messages, ...) but it may also
  521. ;     be a way to gather vital informations.
  522. ;     ■ Search for : PCBDAT()
  523. ;
  524. ;------------------------------------------------------------------------------
  525. ;
  526. ; Postprocessing report
  527. ;
  528. ;    0       For/Next
  529. ;    1       While/EndWhile
  530. ;    32      If/Then or If/Then/Else
  531. ;    5       Select Case
  532. ;
  533. ;------------------------------------------------------------------------------
  534. ;                 AEGiS Corp - Break the routines, code against the machines!
  535. ;------------------------------------------------------------------------------
  536.