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