home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / PWA-FR10.ZIP / FR.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-04-14  |  27KB  |  1,169 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.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Boolean  BOOLEAN004
  23.     Boolean  BOOLEAN005
  24.     Boolean  BOOLEAN006
  25.     Boolean  BOOLEAN007
  26.     Boolean  BOOLEAN008
  27.     Boolean  BOOLEAN009
  28.     Boolean  BOOLEAN010
  29.     Integer  INTEGER001
  30.     Integer  INTEGER002
  31.     Integer  INTEGER003
  32.     Integer  INTEGER004
  33.     Integer  INTEGER005
  34.     Integer  INTEGER006
  35.     Integer  INTEGER007
  36.     Integer  INTEGER008
  37.     Integer  INTEGER009
  38.     Integer  INTEGER010
  39.     Integer  INTEGER011
  40.     Integer  INTEGER012
  41.     Integer  INTEGER013
  42.     Integer  INTEGER014
  43.     Integer  INTEGER015
  44.     Integer  INTEGER016
  45.     Integer  INTEGER017
  46.     Integer  INTEGER018
  47.     String   STRING001
  48.     String   STRING002
  49.     String   STRING003
  50.     String   STRING004
  51.     String   STRING005
  52.     String   STRING006
  53.     String   STRING007
  54.     String   TSTRING008(149)
  55.     String   STRING009
  56.     String   STRING010
  57.     String   STRING011
  58.     String   TSTRING012(500)
  59.     String   STRING013
  60.     String   STRING014
  61.     String   STRING015
  62.     String   STRING016
  63.     String   STRING017
  64.     String   STRING018
  65.     String   STRING019
  66.     String   STRING020
  67.     String   STRING021
  68.     String   STRING022
  69.     String   STRING023
  70.     String   STRING024
  71.     String   STRING025
  72.     String   STRING026
  73.     String   STRING027
  74.     String   STRING028
  75.     String   STRING029
  76.     String   STRING030
  77.     String   STRING031
  78.     String   STRING032
  79.     String   STRING033
  80.     String   STRING034
  81.     String   STRING035
  82.     String   STRING036
  83.     String   STRING037
  84.     String   STRING038
  85.     String   STRING039
  86.     String   STRING040
  87.     String   STRING041
  88.     String   STRING042
  89.     String   STRING043
  90.     String   STRING044
  91.     String   STRING045
  92.     String   STRING046
  93.     String   STRING047
  94.     String   STRING048
  95.     Int      INT001
  96.  
  97. ;------------------------------------------------------------------------------
  98.  
  99.     If (!Exist(PPEPath() + "frdata\nul")) Shell 1, STRING031, "if not exist " + PPEPath() + "frdata\nul md " + PPEPath() + "frdata", ""
  100.     GetUser
  101.     INTEGER002 = 1
  102.     INTEGER014 = 1
  103.     INTEGER010 = 1
  104.     INTEGER015 = 1
  105.     INTEGER012 = 1
  106.     STRING042 = Upper(U_RecNum(U_Name()))
  107.     STRING009 = ReadLine(PCBDat(), 31)
  108.     STRING001 = ReadLine(STRING009, 33 * (CurConf() + 1) - 18)
  109.     STRING002 = ReadLine(STRING009, 33 * (CurConf() + 1) - 18 + 1)
  110.     If (U_PageLen == 0) BOOLEAN007 = 1
  111.     If (IsNonStop() == 1) BOOLEAN007 = 1
  112.     FOpen 1, PPEPath() + "strings.dat", 0, 0
  113.     While (INTEGER002 < 149) Do
  114.         FGet 1, TSTRING008(INTEGER002)
  115.         Inc INTEGER002
  116.     EndWhile
  117.     FClose 1
  118.     STRING048 = ""
  119.     STRING047 = U_Name()
  120.     For INT001 = 1 To Len(STRING047)
  121.         If ((InStr(Mask_Pwd(), Mid(STRING047, INT001, 1)) > 0) && (InStr(Chr(32) + Chr(34) + "+,/;<>=|*%.:\^`?", Mid(STRING047, INT001, 1)) == 0)) Then
  122.             STRING048 = STRING048 + Mid(STRING047, INT001, 1)
  123.             If (Len(STRING048) == 8) INT001 = Len(STRING047)
  124.         Endif
  125.     Next
  126.     STRING047 = PPEPath() + "FRDATA\" + STRING048 + ".DAT"
  127.     STRING043 = STRING047
  128.     FOpen 1, PPEPath() + "FR.CFG", 0, 0
  129.     FGet 1, INTEGER005
  130.     FGet 1, INTEGER006
  131.     FGet 1, INTEGER007
  132.     FGet 1, INTEGER011
  133.     FGet 1, INTEGER004
  134.     FGet 1, INTEGER016
  135.     FGet 1, INTEGER017
  136.     FGet 1, STRING033
  137.     FGet 1, STRING039
  138.     FGet 1, STRING044
  139.     FGet 1, STRING040
  140.     FGet 1, STRING041
  141.     FGet 1, STRING046
  142.     FClose 1
  143.     If (Upper(STRING044) == "Y") Then
  144.         BOOLEAN003 = 1
  145.     Else
  146.         If (Upper(STRING044) == "Y") Goto LABEL001
  147.         BOOLEAN003 = 0
  148.     Endif
  149.     :LABEL001
  150.     If (Upper(STRING040) == "Y") Then
  151.         INTEGER001 = 1
  152.     Else
  153.         If (Upper(STRING040) == "Y") Goto LABEL002
  154.         INTEGER001 = 0
  155.     Endif
  156.     :LABEL002
  157.     If (Upper(STRING041) == "Y") Then
  158.         BOOLEAN008 = 1
  159.     Else
  160.         If (Upper(STRING041) == "Y") Goto LABEL003
  161.         BOOLEAN008 = 0
  162.     Endif
  163.     :LABEL003
  164.     If (Exist(STRING043)) Then
  165.         FOpen 6, STRING043, 2, 0
  166.         FGet 6, BOOLEAN002
  167.         FGet 6, BOOLEAN003
  168.         FGet 6, INTEGER001
  169.         FGet 6, INTEGER005
  170.         FGet 6, INTEGER006
  171.         FGet 6, INTEGER007
  172.         FGet 6, INTEGER011
  173.         FGet 6, INTEGER004
  174.         FGet 6, STRING033
  175.         FGet 6, BOOLEAN008
  176.         FGet 6, INTEGER016
  177.         FGet 6, INTEGER017
  178.         FClose 6
  179.         Goto LABEL004
  180.     Endif
  181.     :LABEL004
  182.     Gosub LABEL005
  183.     Goto LABEL006
  184.     :LABEL005
  185.     If (BOOLEAN002 == 0) BOOLEAN006 = 0
  186.     If (BOOLEAN002 == 1) BOOLEAN006 = 1
  187.     If (BOOLEAN003 == 0) BOOLEAN004 = 0
  188.     If (BOOLEAN003 == 1) BOOLEAN004 = 1
  189.     If (INTEGER001 == 0) BOOLEAN005 = 0
  190.     If (INTEGER001 == 1) BOOLEAN005 = 1
  191.     If (INTEGER005 == 1) STRING003 = "@X01"
  192.     If (INTEGER005 == 2) STRING003 = "@X02"
  193.     If (INTEGER005 == 3) STRING003 = "@X03"
  194.     If (INTEGER005 == 4) STRING003 = "@X04"
  195.     If (INTEGER005 == 5) STRING003 = "@X05"
  196.     If (INTEGER005 == 6) STRING003 = "@X06"
  197.     If (INTEGER005 == 7) STRING003 = "@X07"
  198.     If (INTEGER005 == 8) STRING003 = "@X08"
  199.     If (INTEGER005 == 9) STRING003 = "@X09"
  200.     If (INTEGER005 == 10) STRING003 = "@X0A"
  201.     If (INTEGER005 == 11) STRING003 = "@X0B"
  202.     If (INTEGER005 == 12) STRING003 = "@X0C"
  203.     If (INTEGER005 == 13) STRING003 = "@X0D"
  204.     If (INTEGER005 == 14) STRING003 = "@X0E"
  205.     If (INTEGER005 == 15) STRING003 = "@X0F"
  206.     If (INTEGER006 == 1) STRING004 = "@X01"
  207.     If (INTEGER006 == 2) STRING004 = "@X02"
  208.     If (INTEGER006 == 3) STRING004 = "@X03"
  209.     If (INTEGER006 == 4) STRING004 = "@X04"
  210.     If (INTEGER006 == 5) STRING004 = "@X05"
  211.     If (INTEGER006 == 6) STRING004 = "@X06"
  212.     If (INTEGER006 == 7) STRING004 = "@X07"
  213.     If (INTEGER006 == 8) STRING004 = "@X08"
  214.     If (INTEGER006 == 9) STRING004 = "@X09"
  215.     If (INTEGER006 == 10) STRING004 = "@X0A"
  216.     If (INTEGER006 == 11) STRING004 = "@X0B"
  217.     If (INTEGER006 == 12) STRING004 = "@X0C"
  218.     If (INTEGER006 == 13) STRING004 = "@X0D"
  219.     If (INTEGER006 == 14) STRING004 = "@X0E"
  220.     If (INTEGER006 == 15) STRING004 = "@X0F"
  221.     If (INTEGER007 == 1) STRING005 = "@X01"
  222.     If (INTEGER007 == 2) STRING005 = "@X02"
  223.     If (INTEGER007 == 3) STRING005 = "@X03"
  224.     If (INTEGER007 == 4) STRING005 = "@X04"
  225.     If (INTEGER007 == 5) STRING005 = "@X05"
  226.     If (INTEGER007 == 6) STRING005 = "@X06"
  227.     If (INTEGER007 == 7) STRING005 = "@X07"
  228.     If (INTEGER007 == 8) STRING005 = "@X08"
  229.     If (INTEGER007 == 9) STRING005 = "@X09"
  230.     If (INTEGER007 == 10) STRING005 = "@X0A"
  231.     If (INTEGER007 == 11) STRING005 = "@X0B"
  232.     If (INTEGER007 == 12) STRING005 = "@X0C"
  233.     If (INTEGER007 == 13) STRING005 = "@X0D"
  234.     If (INTEGER007 == 14) STRING005 = "@X0E"
  235.     If (INTEGER007 == 15) STRING005 = "@X0F"
  236.     If (INTEGER011 == 1) STRING006 = "@X01"
  237.     If (INTEGER011 == 2) STRING006 = "@X02"
  238.     If (INTEGER011 == 3) STRING006 = "@X03"
  239.     If (INTEGER011 == 4) STRING006 = "@X04"
  240.     If (INTEGER011 == 5) STRING006 = "@X05"
  241.     If (INTEGER011 == 6) STRING006 = "@X06"
  242.     If (INTEGER011 == 7) STRING006 = "@X07"
  243.     If (INTEGER011 == 8) STRING006 = "@X08"
  244.     If (INTEGER011 == 9) STRING006 = "@X09"
  245.     If (INTEGER011 == 10) STRING006 = "@X0A"
  246.     If (INTEGER011 == 11) STRING006 = "@X0B"
  247.     If (INTEGER011 == 12) STRING006 = "@X0C"
  248.     If (INTEGER011 == 13) STRING006 = "@X0D"
  249.     If (INTEGER011 == 14) STRING006 = "@X0E"
  250.     If (INTEGER011 == 15) STRING006 = "@X0F"
  251.     If (INTEGER004 == 1) STRING007 = "@X01"
  252.     If (INTEGER004 == 2) STRING007 = "@X02"
  253.     If (INTEGER004 == 3) STRING007 = "@X03"
  254.     If (INTEGER004 == 4) STRING007 = "@X04"
  255.     If (INTEGER004 == 5) STRING007 = "@X05"
  256.     If (INTEGER004 == 6) STRING007 = "@X06"
  257.     If (INTEGER004 == 7) STRING007 = "@X07"
  258.     If (INTEGER004 == 8) STRING007 = "@X08"
  259.     If (INTEGER004 == 9) STRING007 = "@X09"
  260.     If (INTEGER004 == 10) STRING007 = "@X0A"
  261.     If (INTEGER004 == 11) STRING007 = "@X0B"
  262.     If (INTEGER004 == 12) STRING007 = "@X0C"
  263.     If (INTEGER004 == 13) STRING007 = "@X0D"
  264.     If (INTEGER004 == 14) STRING007 = "@X0E"
  265.     If (INTEGER004 == 15) STRING007 = "@X0F"
  266.     If (INTEGER016 == 1) STRING010 = "@X01"
  267.     If (INTEGER016 == 2) STRING010 = "@X02"
  268.     If (INTEGER016 == 3) STRING010 = "@X03"
  269.     If (INTEGER016 == 4) STRING010 = "@X04"
  270.     If (INTEGER016 == 5) STRING010 = "@X05"
  271.     If (INTEGER016 == 6) STRING010 = "@X06"
  272.     If (INTEGER016 == 7) STRING010 = "@X07"
  273.     If (INTEGER016 == 8) STRING010 = "@X08"
  274.     If (INTEGER016 == 9) STRING010 = "@X09"
  275.     If (INTEGER016 == 10) STRING010 = "@X0A"
  276.     If (INTEGER016 == 11) STRING010 = "@X0B"
  277.     If (INTEGER016 == 12) STRING010 = "@X0C"
  278.     If (INTEGER016 == 13) STRING010 = "@X0D"
  279.     If (INTEGER016 == 14) STRING010 = "@X0E"
  280.     If (INTEGER016 == 15) STRING010 = "@X0F"
  281.     If (INTEGER017 == 1) STRING011 = "@X01"
  282.     If (INTEGER017 == 2) STRING011 = "@X02"
  283.     If (INTEGER017 == 3) STRING011 = "@X03"
  284.     If (INTEGER017 == 4) STRING011 = "@X04"
  285.     If (INTEGER017 == 5) STRING011 = "@X05"
  286.     If (INTEGER017 == 6) STRING011 = "@X06"
  287.     If (INTEGER017 == 7) STRING011 = "@X07"
  288.     If (INTEGER017 == 8) STRING011 = "@X08"
  289.     If (INTEGER017 == 9) STRING011 = "@X09"
  290.     If (INTEGER017 == 10) STRING011 = "@X0A"
  291.     If (INTEGER017 == 11) STRING011 = "@X0B"
  292.     If (INTEGER017 == 12) STRING011 = "@X0C"
  293.     If (INTEGER017 == 13) STRING011 = "@X0D"
  294.     If (INTEGER017 == 14) STRING011 = "@X0E"
  295.     If (INTEGER017 == 15) STRING011 = "@X0F"
  296.     Return
  297.     :LABEL006
  298.     If (TokCount() <> 0) Then
  299.         STRING015 = TokenStr()
  300.         Tokenize STRING015
  301.         GetToken STRING034
  302.         GetToken STRING035
  303.         GetToken STRING036
  304.         GetToken STRING037
  305.         GetToken STRING038
  306.         If (((((STRING034 == "?") || (STRING035 == "?")) || (STRING036 == "?")) || (STRING037 == "?")) || (STRING038 == "?")) Then
  307.             Cls
  308.             If (Exist(PPEPath() + "fr.pcb")) Then
  309.                 DispFile PPEPath() + "fr.pcb", 1
  310.                 Wait
  311.             Endif
  312.             End
  313.         Endif
  314.         If (((((Upper(STRING034) == "N") || (STRING035 == "N")) || (STRING036 == "N")) || (STRING037 == "N")) || (STRING038 == "N")) Then
  315.             BOOLEAN004 = 0
  316.         Endif
  317.         If (((((Upper(STRING034) == "Q") || (STRING035 == "Q")) || (STRING036 == "Q")) || (STRING037 == "Q")) || (STRING038 == "Q")) Then
  318.             BOOLEAN006 = 1
  319.         Endif
  320.         If (((((Upper(STRING034) == "C") || (STRING035 == "C")) || (STRING036 == "Q")) || (STRING037 == "Q")) || (STRING038 == "Q")) Then
  321.             BOOLEAN005 = 1
  322.         Endif
  323.         If (((((Upper(STRING034) == "NOUPDATE") || (STRING035 == "NOUPDATE")) || (STRING036 == "NOUPDATE")) || (STRING037 == "NOUPDATE")) || (STRING038 == "NOUPDATE")) Then
  324.             BOOLEAN001 = 1
  325.         Endif
  326.         If (Upper(STRING034) == "W") Then
  327.             :LABEL007
  328.             Cls
  329.             StartDisp 1
  330.             AnsiPos 1, 1
  331.             AnsiPos 1, 2
  332.             PrintLn "@X01--[ @X03FilesReverse-PC 1.0 by Mass Murderer @X01]------------[ @X03Copyright ⌐ 1995 PWA @X01]--"
  333.             AnsiPos TSTRING008(20), TSTRING008(21)
  334.             PrintLn TSTRING008(22)
  335.             AnsiPos TSTRING008(23), TSTRING008(24)
  336.             PrintLn TSTRING008(25)
  337.             AnsiPos TSTRING008(26), TSTRING008(27)
  338.             PrintLn TSTRING008(28)
  339.             AnsiPos TSTRING008(29), TSTRING008(30)
  340.             PrintLn TSTRING008(31)
  341.             AnsiPos TSTRING008(32), TSTRING008(33)
  342.             PrintLn TSTRING008(34)
  343.             AnsiPos TSTRING008(35), TSTRING008(36)
  344.             PrintLn TSTRING008(37)
  345.             AnsiPos TSTRING008(38), TSTRING008(39)
  346.             PrintLn TSTRING008(40)
  347.             AnsiPos TSTRING008(41), TSTRING008(42)
  348.             PrintLn TSTRING008(43)
  349.             AnsiPos TSTRING008(44), TSTRING008(45)
  350.             PrintLn TSTRING008(46)
  351.             AnsiPos TSTRING008(47), TSTRING008(48)
  352.             PrintLn TSTRING008(49)
  353.             AnsiPos TSTRING008(50), TSTRING008(51)
  354.             PrintLn TSTRING008(52)
  355.             AnsiPos TSTRING008(53), TSTRING008(54)
  356.             PrintLn TSTRING008(55)
  357.             AnsiPos TSTRING008(56), TSTRING008(57)
  358.             PrintLn TSTRING008(58)
  359.             AnsiPos TSTRING008(59), TSTRING008(60)
  360.             PrintLn TSTRING008(61)
  361.             AnsiPos TSTRING008(62), TSTRING008(63)
  362.             PrintLn TSTRING008(64)
  363.             PrintLn 
  364.             :LABEL008
  365.             If (BOOLEAN002 == 1) STRING018 = TSTRING008(3) + Space(9 - Len(StripAtx(TSTRING008(3))))
  366.             If (BOOLEAN002 == 0) STRING018 = TSTRING008(4) + Space(9 - Len(StripAtx(TSTRING008(4))))
  367.             If (BOOLEAN003 == 1) STRING019 = TSTRING008(3) + Space(9 - Len(StripAtx(TSTRING008(3))))
  368.             If (BOOLEAN003 == 0) STRING019 = TSTRING008(4) + Space(9 - Len(StripAtx(TSTRING008(4))))
  369.             If (INTEGER001 == 1) STRING020 = TSTRING008(3) + Space(9 - Len(StripAtx(TSTRING008(3))))
  370.             If (INTEGER001 == 0) STRING020 = TSTRING008(4) + Space(9 - Len(StripAtx(TSTRING008(4))))
  371.             If (BOOLEAN008 == 1) STRING029 = TSTRING008(3) + Space(9 - Len(StripAtx(TSTRING008(3))))
  372.             If (BOOLEAN008 == 0) STRING029 = TSTRING008(4) + Space(9 - Len(StripAtx(TSTRING008(4))))
  373.             If (INTEGER005 == 1) STRING021 = TSTRING008(5)
  374.             If (INTEGER005 == 2) STRING021 = TSTRING008(6)
  375.             If (INTEGER005 == 3) STRING021 = TSTRING008(7)
  376.             If (INTEGER005 == 4) STRING021 = TSTRING008(8)
  377.             If (INTEGER005 == 5) STRING021 = TSTRING008(9)
  378.             If (INTEGER005 == 6) STRING021 = TSTRING008(10)
  379.             If (INTEGER005 == 7) STRING021 = TSTRING008(11)
  380.             If (INTEGER005 == 8) STRING021 = TSTRING008(12)
  381.             If (INTEGER005 == 9) STRING021 = TSTRING008(13)
  382.             If (INTEGER005 == 10) STRING021 = TSTRING008(14)
  383.             If (INTEGER005 == 11) STRING021 = TSTRING008(15)
  384.             If (INTEGER005 == 12) STRING021 = TSTRING008(16)
  385.             If (INTEGER005 == 13) STRING021 = TSTRING008(17)
  386.             If (INTEGER005 == 14) STRING021 = TSTRING008(18)
  387.             If (INTEGER005 == 15) STRING021 = TSTRING008(19)
  388.             If (INTEGER006 == 1) STRING022 = TSTRING008(5)
  389.             If (INTEGER006 == 2) STRING022 = TSTRING008(6)
  390.             If (INTEGER006 == 3) STRING022 = TSTRING008(7)
  391.             If (INTEGER006 == 4) STRING022 = TSTRING008(8)
  392.             If (INTEGER006 == 5) STRING022 = TSTRING008(9)
  393.             If (INTEGER006 == 6) STRING022 = TSTRING008(10)
  394.             If (INTEGER006 == 7) STRING022 = TSTRING008(11)
  395.             If (INTEGER006 == 8) STRING022 = TSTRING008(12)
  396.             If (INTEGER006 == 9) STRING022 = TSTRING008(13)
  397.             If (INTEGER006 == 10) STRING022 = TSTRING008(14)
  398.             If (INTEGER006 == 11) STRING022 = TSTRING008(15)
  399.             If (INTEGER006 == 12) STRING022 = TSTRING008(16)
  400.             If (INTEGER006 == 13) STRING022 = TSTRING008(17)
  401.             If (INTEGER006 == 14) STRING022 = TSTRING008(18)
  402.             If (INTEGER006 == 15) STRING022 = TSTRING008(19)
  403.             If (INTEGER007 == 1) STRING023 = TSTRING008(5)
  404.             If (INTEGER007 == 2) STRING023 = TSTRING008(6)
  405.             If (INTEGER007 == 3) STRING023 = TSTRING008(7)
  406.             If (INTEGER007 == 4) STRING023 = TSTRING008(8)
  407.             If (INTEGER007 == 5) STRING023 = TSTRING008(9)
  408.             If (INTEGER007 == 6) STRING023 = TSTRING008(10)
  409.             If (INTEGER007 == 7) STRING023 = TSTRING008(11)
  410.             If (INTEGER007 == 8) STRING023 = TSTRING008(12)
  411.             If (INTEGER007 == 9) STRING023 = TSTRING008(13)
  412.             If (INTEGER007 == 10) STRING023 = TSTRING008(14)
  413.             If (INTEGER007 == 11) STRING023 = TSTRING008(15)
  414.             If (INTEGER007 == 12) STRING023 = TSTRING008(16)
  415.             If (INTEGER007 == 13) STRING023 = TSTRING008(17)
  416.             If (INTEGER007 == 14) STRING023 = TSTRING008(18)
  417.             If (INTEGER007 == 15) STRING023 = TSTRING008(19)
  418.             If (INTEGER011 == 1) STRING024 = TSTRING008(5)
  419.             If (INTEGER011 == 2) STRING024 = TSTRING008(6)
  420.             If (INTEGER011 == 3) STRING024 = TSTRING008(7)
  421.             If (INTEGER011 == 4) STRING024 = TSTRING008(8)
  422.             If (INTEGER011 == 5) STRING024 = TSTRING008(9)
  423.             If (INTEGER011 == 6) STRING024 = TSTRING008(10)
  424.             If (INTEGER011 == 7) STRING024 = TSTRING008(11)
  425.             If (INTEGER011 == 8) STRING024 = TSTRING008(12)
  426.             If (INTEGER011 == 9) STRING024 = TSTRING008(13)
  427.             If (INTEGER011 == 10) STRING024 = TSTRING008(14)
  428.             If (INTEGER011 == 11) STRING024 = TSTRING008(15)
  429.             If (INTEGER011 == 12) STRING024 = TSTRING008(16)
  430.             If (INTEGER011 == 13) STRING024 = TSTRING008(17)
  431.             If (INTEGER011 == 14) STRING024 = TSTRING008(18)
  432.             If (INTEGER011 == 15) STRING024 = TSTRING008(19)
  433.             If (INTEGER004 == 1) STRING025 = TSTRING008(5)
  434.             If (INTEGER004 == 2) STRING025 = TSTRING008(6)
  435.             If (INTEGER004 == 3) STRING025 = TSTRING008(7)
  436.             If (INTEGER004 == 4) STRING025 = TSTRING008(8)
  437.             If (INTEGER004 == 5) STRING025 = TSTRING008(9)
  438.             If (INTEGER004 == 6) STRING025 = TSTRING008(10)
  439.             If (INTEGER004 == 7) STRING025 = TSTRING008(11)
  440.             If (INTEGER004 == 8) STRING025 = TSTRING008(12)
  441.             If (INTEGER004 == 9) STRING025 = TSTRING008(13)
  442.             If (INTEGER004 == 10) STRING025 = TSTRING008(14)
  443.             If (INTEGER004 == 11) STRING025 = TSTRING008(15)
  444.             If (INTEGER004 == 12) STRING025 = TSTRING008(16)
  445.             If (INTEGER004 == 13) STRING025 = TSTRING008(17)
  446.             If (INTEGER004 == 14) STRING025 = TSTRING008(18)
  447.             If (INTEGER004 == 15) STRING025 = TSTRING008(19)
  448.             If (INTEGER016 == 1) STRING026 = TSTRING008(5)
  449.             If (INTEGER016 == 2) STRING026 = TSTRING008(6)
  450.             If (INTEGER016 == 3) STRING026 = TSTRING008(7)
  451.             If (INTEGER016 == 4) STRING026 = TSTRING008(8)
  452.             If (INTEGER016 == 5) STRING026 = TSTRING008(9)
  453.             If (INTEGER016 == 6) STRING026 = TSTRING008(10)
  454.             If (INTEGER016 == 7) STRING026 = TSTRING008(11)
  455.             If (INTEGER016 == 8) STRING026 = TSTRING008(12)
  456.             If (INTEGER016 == 9) STRING026 = TSTRING008(13)
  457.             If (INTEGER016 == 10) STRING026 = TSTRING008(14)
  458.             If (INTEGER016 == 11) STRING026 = TSTRING008(15)
  459.             If (INTEGER016 == 12) STRING026 = TSTRING008(16)
  460.             If (INTEGER016 == 13) STRING026 = TSTRING008(17)
  461.             If (INTEGER016 == 14) STRING026 = TSTRING008(18)
  462.             If (INTEGER016 == 15) STRING026 = TSTRING008(19)
  463.             If (INTEGER017 == 1) STRING027 = TSTRING008(5)
  464.             If (INTEGER017 == 2) STRING027 = TSTRING008(6)
  465.             If (INTEGER017 == 3) STRING027 = TSTRING008(7)
  466.             If (INTEGER017 == 4) STRING027 = TSTRING008(8)
  467.             If (INTEGER017 == 5) STRING027 = TSTRING008(9)
  468.             If (INTEGER017 == 6) STRING027 = TSTRING008(10)
  469.             If (INTEGER017 == 7) STRING027 = TSTRING008(11)
  470.             If (INTEGER017 == 8) STRING027 = TSTRING008(12)
  471.             If (INTEGER017 == 9) STRING027 = TSTRING008(13)
  472.             If (INTEGER017 == 10) STRING027 = TSTRING008(14)
  473.             If (INTEGER017 == 11) STRING027 = TSTRING008(15)
  474.             If (INTEGER017 == 12) STRING027 = TSTRING008(16)
  475.             If (INTEGER017 == 13) STRING027 = TSTRING008(17)
  476.             If (INTEGER017 == 14) STRING027 = TSTRING008(18)
  477.             If (INTEGER017 == 15) STRING027 = TSTRING008(19)
  478.             AnsiPos TSTRING008(65), TSTRING008(66)
  479.             PrintLn STRING018 + Space(9 - Len(StripAtx(STRING018)))
  480.             AnsiPos TSTRING008(67), TSTRING008(68)
  481.             PrintLn STRING019 + Space(9 - Len(StripAtx(STRING019)))
  482.             AnsiPos TSTRING008(69), TSTRING008(70)
  483.             PrintLn STRING020 + Space(9 - Len(StripAtx(STRING020)))
  484.             AnsiPos TSTRING008(71), TSTRING008(72)
  485.             PrintLn STRING029 + Space(9 - Len(StripAtx(STRING029)))
  486.             AnsiPos TSTRING008(73), TSTRING008(74)
  487.             PrintLn STRING026 + Space(9 - Len(StripAtx(STRING026)))
  488.             AnsiPos TSTRING008(75), TSTRING008(76)
  489.             PrintLn STRING021 + Space(9 - Len(StripAtx(STRING021)))
  490.             AnsiPos TSTRING008(77), TSTRING008(78)
  491.             PrintLn STRING022 + Space(9 - Len(StripAtx(STRING022)))
  492.             AnsiPos TSTRING008(79), TSTRING008(80)
  493.             PrintLn STRING023 + Space(9 - Len(StripAtx(STRING023)))
  494.             AnsiPos TSTRING008(81), TSTRING008(82)
  495.             PrintLn STRING024 + Space(9 - Len(StripAtx(STRING024)))
  496.             AnsiPos TSTRING008(83), TSTRING008(84)
  497.             PrintLn STRING025 + Space(9 - Len(StripAtx(STRING025)))
  498.             AnsiPos TSTRING008(130), TSTRING008(131)
  499.             PrintLn STRING027 + Space(9 - Len(StripAtx(STRING027)))
  500.             Newlines 5
  501.             :LABEL009
  502.             STRING016 = Inkey()
  503.             If (STRING016 == "0") Then
  504.                 BOOLEAN009 = 1
  505.                 BOOLEAN002 = !BOOLEAN002
  506.                 Goto LABEL008
  507.                 Goto LABEL015
  508.             Endif
  509.             If (STRING016 == "1") Then
  510.                 BOOLEAN009 = 1
  511.                 BOOLEAN003 = !BOOLEAN003
  512.                 Goto LABEL008
  513.                 Goto LABEL015
  514.             Endif
  515.             If (STRING016 == "2") Then
  516.                 BOOLEAN009 = 1
  517.                 INTEGER001 = !INTEGER001
  518.                 Goto LABEL008
  519.                 Goto LABEL015
  520.             Endif
  521.             If (STRING016 == "3") Then
  522.                 BOOLEAN009 = 1
  523.                 BOOLEAN008 = !BOOLEAN008
  524.                 Goto LABEL008
  525.                 Goto LABEL015
  526.             Endif
  527.             If (STRING016 == "4") Then
  528.                 BOOLEAN009 = 1
  529.                 Inc INTEGER016
  530.                 If (INTEGER016 > 15) INTEGER016 = 1
  531.                 Goto LABEL008
  532.                 Goto LABEL015
  533.             Endif
  534.             If (STRING016 == "5") Then
  535.                 BOOLEAN009 = 1
  536.                 Inc INTEGER005
  537.                 If (INTEGER005 > 15) INTEGER005 = 1
  538.                 Goto LABEL008
  539.                 Goto LABEL015
  540.             Endif
  541.             If (STRING016 == "6") Then
  542.                 BOOLEAN009 = 1
  543.                 Inc INTEGER006
  544.                 If (INTEGER006 > 15) INTEGER006 = 1
  545.                 Goto LABEL008
  546.                 Goto LABEL015
  547.             Endif
  548.             If (STRING016 == "7") Then
  549.                 BOOLEAN009 = 1
  550.                 Inc INTEGER007
  551.                 If (INTEGER007 > 15) INTEGER007 = 1
  552.                 Goto LABEL008
  553.                 Goto LABEL015
  554.             Endif
  555.             If (STRING016 == "8") Then
  556.                 Inc INTEGER011
  557.                 If (INTEGER011 > 15) INTEGER011 = 1
  558.                 Goto LABEL008
  559.                 Goto LABEL015
  560.             Endif
  561.             If (STRING016 == "9") Then
  562.                 BOOLEAN009 = 1
  563.                 Inc INTEGER004
  564.                 If (INTEGER004 > 15) INTEGER004 = 1
  565.                 Goto LABEL008
  566.                 Goto LABEL015
  567.             Endif
  568.             If (Upper(STRING016) == "A") Then
  569.                 BOOLEAN009 = 1
  570.                 Inc INTEGER017
  571.                 If (INTEGER017 > 15) INTEGER017 = 1
  572.                 Goto LABEL008
  573.                 Goto LABEL015
  574.             Endif
  575.             If (STRING016 == "?") Then
  576.                 Goto LABEL007
  577.                 Goto LABEL015
  578.             Endif
  579.             If (Upper(STRING016) == "S") Then
  580.                 PrintLn 
  581.                 Print TSTRING008(85)
  582.                 FCreate 3, STRING043, 1, 0
  583.                 FPutLn 3, String(BOOLEAN002)
  584.                 FPutLn 3, String(BOOLEAN003)
  585.                 FPutLn 3, String(INTEGER001)
  586.                 FPutLn 3, String(INTEGER005)
  587.                 FPutLn 3, String(INTEGER006)
  588.                 FPutLn 3, String(INTEGER007)
  589.                 FPutLn 3, String(INTEGER011)
  590.                 FPutLn 3, String(INTEGER004)
  591.                 FPutLn 3, String(STRING033)
  592.                 FPutLn 3, String(BOOLEAN008)
  593.                 FPutLn 3, String(INTEGER016)
  594.                 FPutLn 3, String(INTEGER017)
  595.                 PrintLn TSTRING008(86)
  596.                 FClose 3
  597.                 Gosub LABEL005
  598.                 If (BOOLEAN010 == 1) Then
  599.                     BOOLEAN010 = 0
  600.                     Cls
  601.                     Goto LABEL019
  602.                 Endif
  603.                 End
  604.                 Goto LABEL015
  605.             Endif
  606.             If (Upper(STRING016) == "D") Then
  607.                 Cls
  608.                 StartDisp 1
  609.                 AnsiPos 1, 1
  610.                 PrintLn 
  611.                 AnsiPos 1, 2
  612.                 PrintLn "@X01--[ @X03FilesReverse-PC 1.0 by Mass Murderer @X01]------------[ @X03Copyright ⌐ 1995 PWA @X01]--"
  613.                 AnsiPos 1, 3
  614.                 PrintLn 
  615.                 :LABEL010
  616.                 If (INTEGER010 == 1) STRING032 = "@X01"
  617.                 If (INTEGER010 == 2) STRING032 = "@X02"
  618.                 If (INTEGER010 == 3) STRING032 = "@X03"
  619.                 If (INTEGER010 == 4) STRING032 = "@X04"
  620.                 If (INTEGER010 == 5) STRING032 = "@X05"
  621.                 If (INTEGER010 == 6) STRING032 = "@X06"
  622.                 If (INTEGER010 == 7) STRING032 = "@X07"
  623.                 If (INTEGER010 == 8) STRING032 = "@X08"
  624.                 If (INTEGER010 == 9) STRING032 = "@X09"
  625.                 If (INTEGER010 == 10) STRING032 = "@X0A"
  626.                 If (INTEGER010 == 11) STRING032 = "@X0B"
  627.                 If (INTEGER010 == 12) STRING032 = "@X0C"
  628.                 If (INTEGER010 == 13) STRING032 = "@X0D"
  629.                 If (INTEGER010 == 14) STRING032 = "@X0E"
  630.                 If (INTEGER010 == 15) STRING032 = "@X0F"
  631.                 AnsiPos TSTRING008(87), TSTRING008(88)
  632.                 PrintLn "  @X02(@X061@X02)  @X07`" + STRING032 + TSTRING008(89)
  633.                 AnsiPos TSTRING008(90), TSTRING008(91)
  634.                 PrintLn "  @X02(@X062@X02)  @X07`" + STRING032 + TSTRING008(92)
  635.                 AnsiPos TSTRING008(93), TSTRING008(94)
  636.                 PrintLn "  @X02(@X063@X02)  @X07`" + STRING032 + TSTRING008(95)
  637.                 AnsiPos TSTRING008(96), TSTRING008(97)
  638.                 PrintLn "  @X02(@X064@X02)  @X07`" + STRING032 + TSTRING008(98)
  639.                 AnsiPos TSTRING008(99), TSTRING008(100)
  640.                 PrintLn "  @X02(@X065@X02)  @X07`" + STRING032 + TSTRING008(101)
  641.                 AnsiPos TSTRING008(102), TSTRING008(103)
  642.                 PrintLn "  @X02(@X066@X02)  @X07" + TSTRING008(104)
  643.                 AnsiPos TSTRING008(105), TSTRING008(106)
  644.                 PrintLn "  @X02(@X06D@X02)  @X07" + TSTRING008(107)
  645.                 AnsiPos TSTRING008(108), TSTRING008(109)
  646.                 PrintLn "  @X02(@X06Y@X02)  @X07" + TSTRING008(110)
  647.                 AnsiPos TSTRING008(111), TSTRING008(112)
  648.                 PrintLn "  @X02(@X06C@X02)  @X07" + TSTRING008(113)
  649.                 AnsiPos TSTRING008(114), TSTRING008(115)
  650.                 PrintLn "  @X02(@X06Q@X02)  @X07" + TSTRING008(116)
  651.                 PrintLn 
  652.                 :LABEL011
  653.                 STRING016 = Inkey()
  654.                 If (STRING016 == "1") Then
  655.                     BOOLEAN009 = 1
  656.                     STRING033 = STRING032 + TSTRING008(117)
  657.                     Goto LABEL007
  658.                     Goto LABEL012
  659.                 Endif
  660.                 If (STRING016 == "2") Then
  661.                     BOOLEAN009 = 1
  662.                     STRING033 = STRING032 + TSTRING008(118)
  663.                     Goto LABEL007
  664.                     Goto LABEL012
  665.                 Endif
  666.                 If (STRING016 == "3") Then
  667.                     BOOLEAN009 = 1
  668.                     STRING033 = STRING032 + TSTRING008(119)
  669.                     Goto LABEL007
  670.                     Goto LABEL012
  671.                 Endif
  672.                 If (STRING016 == "4") Then
  673.                     BOOLEAN009 = 1
  674.                     STRING033 = STRING032 + TSTRING008(120)
  675.                     Goto LABEL007
  676.                     Goto LABEL012
  677.                 Endif
  678.                 If (STRING016 == "5") Then
  679.                     BOOLEAN009 = 1
  680.                     STRING033 = STRING032 + TSTRING008(121)
  681.                     Goto LABEL007
  682.                     Goto LABEL012
  683.                 Endif
  684.                 If (STRING016 == "6") Then
  685.                     BOOLEAN009 = 1
  686.                     STRING033 = STRING032 + "                                             "
  687.                     Goto LABEL007
  688.                     Goto LABEL012
  689.                 Endif
  690.                 If (Upper(STRING016) == "C") Then
  691.                     BOOLEAN009 = 1
  692.                     Inc INTEGER010
  693.                     If (INTEGER010 > 15) INTEGER010 = 1
  694.                     Goto LABEL010
  695.                     Goto LABEL012
  696.                 Endif
  697.                 If (Upper(STRING016) == "Y") Then
  698.                     BOOLEAN009 = 1
  699.                     PrintLn TSTRING008(122)
  700.                     Newline
  701.                     InputStr "-> _", STRING033, 15, 45, Mask_Ascii(), 4096
  702.                     STRING033 = "@X07" + STRING033
  703.                     Goto LABEL007
  704.                     Goto LABEL012
  705.                 Endif
  706.                 If (Upper(STRING016) == "D") Then
  707.                     STRING033 = ReadLine(PPEPath() + "fr.cfg", 8)
  708.                     BOOLEAN009 = 1
  709.                     Goto LABEL007
  710.                     Goto LABEL012
  711.                 Endif
  712.                 If (Upper(STRING016) == "Q") Then
  713.                     Goto LABEL007
  714.                 Endif
  715.                 :LABEL012
  716.                 Goto LABEL011
  717.                 Goto LABEL015
  718.             Endif
  719.             If (Upper(STRING016) == "Q") Then
  720.                 If (BOOLEAN009 == 0) Then
  721.                     Cls
  722.                     If (BOOLEAN010 == 1) Then
  723.                         BOOLEAN010 = 0
  724.                         Cls
  725.                         Goto LABEL019
  726.                     Endif
  727.                     End
  728.                     Goto LABEL013
  729.                 Endif
  730.                 If (BOOLEAN009 == 1) Then
  731.                     PrintLn 
  732.                     InputStr TSTRING008(144) + " _", STRING030, 15, 1, Mask_Ascii(), 4096
  733.                     If (Upper(STRING030) == "Y") Then
  734.                         Cls
  735.                         If (BOOLEAN010 == 1) Then
  736.                             BOOLEAN010 = 0
  737.                             Cls
  738.                             Goto LABEL019
  739.                         Endif
  740.                         End
  741.                         Goto LABEL013
  742.                     Endif
  743.                     If (Upper(STRING030) == "N") Then
  744.                         Goto LABEL007
  745.                     Endif
  746.                 Endif
  747.                 :LABEL013
  748.                 Goto LABEL015
  749.             Endif
  750.             If (Upper(STRING016) == "P") Then
  751.                 Gosub LABEL005
  752.                 If (Exist(PPEPath() + "FR.TOP")) Then
  753.                     Cls
  754.                     DispFile PPEPath() + "fr.top", 1
  755.                     Newline
  756.                 Endif
  757.                 If (BOOLEAN008 == 0) Then
  758.                     PrintLn STRING003 + "PWA-FR10.ZIP" + STRING004 + "    12345" + STRING005 + "  12-20-94" + STRING006 + "  ┌PWA-FR Files-Reverse v1.0 by Mass Murderer┐"
  759.                     Goto LABEL014
  760.                 Endif
  761.                 If (BOOLEAN008 == 1) Then
  762.                     PrintLn STRING011 + "[" + STRING010 + "1" + STRING011 + "] " + STRING003 + "PWA-FR.ZIP" + STRING004 + "     12345" + STRING005 + "  12-20" + STRING006 + "  ┌─WA-FR Files-Reverse v1.0 by Mass Murderer┐"
  763.                 Endif
  764.                 :LABEL014
  765.                 If (BOOLEAN006 == 0) PrintLn STRING007 + "                                 │   View the Newest Files Uploaded First!  │"
  766.                 If (BOOLEAN006 == 0) PrintLn STRING007 + "                                 │ Features : Multiple Conferences, Hotkeys │"
  767.                 If (BOOLEAN006 == 0) PrintLn STRING007 + "                                 │ File Numbering, Seperators, and more!    │"
  768.                 If (BOOLEAN006 == 0) PrintLn STRING007 + "                                 │       Coded by Mass Murderer [PWA]       │"
  769.                 If (BOOLEAN006 == 0) PrintLn STRING007 + "                                 └ ▄▄ ──────────────── ▀▄▄ ▀▄▄ ─────────────┘"
  770.                 If (BOOLEAN006 == 0) PrintLn STRING007 + "                                 ┌▐▄▀██▄▀███▄▄▀▄ ─────── ▀█▄ ▀██▄ ──────────┐"
  771.                 If (BOOLEAN006 == 0) PrintLn STRING007 + "                                 │▀▒▓▄▀     ▀██▄▀▄        ▐██  ▀███▄        │"
  772.                 If (BOOLEAN006 == 0) PrintLn STRING007 + "                                 │  ▀  ▄▀█▄▀██▀▀▄▀█▄▄  ▀▄  ▀▄▌  ▄▀███▄▄     │"
  773.                 If (BOOLEAN006 == 0) PrintLn STRING007 + "                                 │    ▀▒▓▄▀█▄▄  ▀▓▄▀██▄ ██▄██▌▐█▀▀▄▀████▄▄  │"
  774.                 If (BOOLEAN006 == 0) PrintLn STRING007 + "                                 │      ▀▒▓▄▀███▀ ▒▓▄▀▀█▄█ ▀█ ▀▄▒▒▓▓▄▀██▀▄▌ │"
  775.                 If (BOOLEAN006 == 0) PrintLn STRING007 + "                                 │        ▀▒▓▄▀▌   ▀▒▓▓▄▀▀▄▒▄▌▐▓▀▀ ▀▒▓▄▀▄▓▀ │"
  776.                 If (BOOLEAN006 == 0) PrintLn STRING007 + "                                 └───────── ▀▒▓ ──── ▀▀▒▓▓▀▀▓ ────── ▀▒▓▀ ──┘"
  777.                 If (BOOLEAN004 == 1) PrintLn Space(33) + STRING033
  778.                 Wait
  779.                 Goto LABEL007
  780.             Endif
  781.             :LABEL015
  782.             Goto LABEL009
  783.         Endif
  784.     Endif
  785.     :LABEL016
  786.     Cls
  787.     PrintLn 
  788.     PrintLn "@X01--[ @X03FilesReverse-PC 1.0 by Mass Murderer @X01]-----------[ @X03'fr ?' for options @X01]--"
  789.     PrintLn 
  790.     Print TSTRING008(2)
  791.     If (BOOLEAN001 == 0) Shell 1, STRING031, PPEPath() + "FR.EXE " + Left(PPEPath(), Len(PPEPath()) - 1) + " " + String(PcbNode()) + " " + STRING001, ""
  792.     PrintLn TSTRING008(86)
  793.     PrintLn 
  794.     FOpen 6, PPEPath() + "fr.top", 0, 0
  795.     :LABEL017
  796.     If (Ferr(6)) Goto LABEL018
  797.     FGet 6, STRING028
  798.     PrintLn STRING028
  799.     Inc INTEGER018
  800.     Goto LABEL017
  801.     :LABEL018
  802.     FClose 6
  803.     INTEGER018 = INTEGER018 + 4
  804.     Newline
  805.     FOpen 1, PPEPath() + "FR." + String(PcbNode()), 2, 0
  806.     :LABEL019
  807.     For INTEGER008 = 1 To U_PageLen - 1 - INTEGER018
  808.         If (Ferr(1)) Goto LABEL031
  809.         FGet 1, STRING028
  810.         If (Abort()) End
  811.         If (!(Left(STRING028, 1) == " ") && (BOOLEAN004 == 1)) Then
  812.             PrintLn Space(33) + STRING033
  813.             Inc INTEGER008
  814.             Inc INTEGER015
  815.         Endif
  816.         If (!(Left(STRING028, 1) == " ")) Inc INTEGER003
  817.         If (INTEGER003 > 500) INTEGER003 = 1
  818.         If (Left(STRING028, 1) == " ") Goto LABEL022
  819.         Inc INTEGER014
  820.         If (((BOOLEAN008 == 0) && !(Left(STRING028, 1) == "%")) && !(Left(STRING028, 1) == "!")) Then
  821.             If (STRING039 == "Y") Then
  822.                 PrintLn STRING003 + Left(STRING028, 12) + STRING004 + Mid(STRING028, 13, 9) + STRING005 + Mid(STRING028, 22, 10) + STRING006 + Upper(Mid(STRING028, 32, 47))
  823.             Else
  824.                 If (STRING039 == "Y") Goto LABEL020
  825.                 PrintLn STRING003 + Left(STRING028, 12) + STRING004 + Mid(STRING028, 13, 9) + STRING005 + Mid(STRING028, 22, 10) + STRING006 + Mid(STRING028, 32, 47)
  826.             Endif
  827.             :LABEL020
  828.         ElseIf (((BOOLEAN008 == 1) && !(Left(STRING028, 1) == "%")) && !(Left(STRING028, 1) == "!")) Then
  829.             If (STRING039 == "Y") Then
  830.                 PrintLn STRING011 + "[" + STRING010 + String(INTEGER003) + STRING011 + "]" + " " + STRING003 + Left(STRING028, 12) + STRING004 + Mid(STRING028, 13, 11 - Len(INTEGER003)) + " " + STRING005 + Mid(STRING028, 24, 5) + STRING006 + Upper(Mid(STRING028, 33, 46))
  831.                 Goto LABEL021
  832.             Endif
  833.             If (STRING039 == "Y") Goto LABEL021
  834.             PrintLn STRING011 + "[" + STRING010 + String(INTEGER003) + STRING011 + "]" + " " + STRING003 + Left(STRING028, 12) + STRING004 + Mid(STRING028, 13, 11 - Len(INTEGER003)) + " " + STRING005 + Mid(STRING028, 24, 5) + STRING006 + Mid(STRING028, 33, 46)
  835.             :LABEL021
  836.             TSTRING012(INTEGER003) = RTrim(Left(STRING028, 12), " ")
  837.         Endif
  838.         Inc INTEGER009
  839.         :LABEL022
  840.         If (Left(STRING028, 1) == " ") Then
  841.             Inc INTEGER014
  842.             If (STRING039 == "Y") Then
  843.                 STRING028 = LTrim(STRING028, " ")
  844.                 STRING028 = Space(32) + LTrim(STRING028, "|")
  845.                 If (BOOLEAN006 == 0) Then
  846.                     PrintLn STRING007 + Upper(STRING028)
  847.                     Goto LABEL023
  848.                 Endif
  849.                 If (BOOLEAN006 == 1) Then
  850.                     Dec INTEGER008
  851.                     INTEGER009 = 0
  852.                 Endif
  853.                 :LABEL023
  854.                 Continue
  855.             Endif
  856.             If (STRING039 == "Y") Continue
  857.             STRING028 = LTrim(STRING028, " ")
  858.             STRING028 = Space(32) + LTrim(STRING028, "|")
  859.             If (BOOLEAN006 == 0) Then
  860.                 If (!(STRING028 == "")) PrintLn STRING007 + STRING028
  861.                 Continue
  862.             Endif
  863.             If (BOOLEAN006 == 1) Then
  864.                 Dec INTEGER008
  865.                 INTEGER009 = 0
  866.             Endif
  867.         Endif
  868.     Next
  869.     :LABEL024
  870.     INTEGER018 = 0
  871.     AnsiPos 1, GetY() + 1
  872.     If (BOOLEAN007 == 0) Then
  873.         ClrEol
  874.         Print TSTRING008(140)
  875.     Endif
  876.     :LABEL025
  877.     STRING016 = Inkey()
  878.     Select Case (Upper(STRING016))
  879.         Case "N"
  880.             Print " " + TSTRING008(127)
  881.             :LABEL026
  882.             STRING017 = Inkey()
  883.             If (STRING017 == Chr(13)) Then
  884.                 Goto LABEL031
  885.             Else
  886.                 Select Case (Upper(STRING017))
  887.                     Case "S"
  888.                         AnsiPos 1, GetY() + 1
  889.                         BOOLEAN007 = 1
  890.                         Goto LABEL025
  891.                     Case Chr(8)
  892.                         Goto LABEL024
  893.                     Endif
  894.             End Select
  895.             Goto LABEL026
  896.         Case "Q"
  897.             AnsiPos 1, GetY() + 1
  898.             ClrEol
  899.             Goto LABEL031
  900.         Case "?"
  901.             SaveScrn
  902.             DispFile PPEPath() + "FR.HLP", 0
  903.             Print TSTRING008(126)
  904.             While (Inkey() == "") Do
  905.             EndWhile
  906.             RestScrn
  907.             Goto LABEL024
  908.         Case "F"
  909.             Select Case (BOOLEAN008)
  910.                 Case 0
  911.                     STRING045 = ""
  912.                     AnsiPos 1, GetY() + 1
  913.                     ClrEol
  914.                     InputStr TSTRING008(142) + " _", STRING045, 7, 12, Mask_File(), 32
  915.                     STRING045 = Strip(STRING045, ":")
  916.                     STRING045 = Strip(STRING045, "\")
  917.                     STRING045 = Strip(STRING045, "/")
  918.                     STRING013 = STRING002 + "\" + Upper(STRING045)
  919.                     If (STRING045 == "") Goto LABEL027
  920.                     If (Exist(STRING013)) Then
  921.                         Print Upper(STRING045) + " " + TSTRING008(128)
  922.                         Flag STRING013
  923.                         Delay 25
  924.                     Else
  925.                         Print Upper(STRING045) + " " + TSTRING008(129)
  926.                         Delay 25
  927.                     Endif
  928.                     :LABEL027
  929.                     Goto LABEL024
  930.                 Case 1
  931.                     AnsiPos 1, GetY() + 1
  932.                     ClrEol
  933.                     INTEGER012 = ""
  934.                     InputStr TSTRING008(145) + " _", INTEGER012, 7, 3, "0123456789", 32
  935.                     SaveScrn
  936.                     STRING013 = STRING002 + "\" + Upper(TSTRING012(INTEGER012))
  937.                     If (INTEGER012 == "") Goto LABEL028
  938.                     If (Exist(STRING013)) Then
  939.                         Flag STRING013
  940.                         Print String(Upper(TSTRING012(INTEGER012))) + " " + TSTRING008(128)
  941.                         Delay 25
  942.                         Goto LABEL028
  943.                     Endif
  944.                     Print String(Upper(TSTRING012(INTEGER012))) + " " + TSTRING008(129)
  945.                     Delay 25
  946.                     :LABEL028
  947.                     Goto LABEL024
  948.             End Select
  949.         Case "V"
  950.             Select Case (BOOLEAN008)
  951.                 Case 0
  952.                     STRING045 = ""
  953.                     AnsiPos 1, GetY() + 1
  954.                     ClrEol
  955.                     InputStr TSTRING008(143) + " _", STRING045, 7, 12, Mask_File(), 32
  956.                     SaveScrn
  957.                     STRING045 = Strip(STRING045, ":")
  958.                     STRING045 = Strip(STRING045, "\")
  959.                     STRING045 = Strip(STRING045, "/")
  960.                     If (STRING045 == "") Goto LABEL029
  961.                     If (Upper(STRING046) == "VIEW") Then
  962.                         If (Exist(STRING002 + "\" + Upper(STRING045))) Then
  963.                             Shell 1, STRING031, "pcbview.bat " + STRING002 + "\" + Upper(STRING045), ""
  964.                         Else
  965.                             Print Upper(STRING045) + " " + TSTRING008(129)
  966.                             Delay 25
  967.                         Endif
  968.                     Else
  969.                         DispStr STRING046 + " " + Upper(STRING045)
  970.                     Endif
  971.                     :LABEL029
  972.                     RestScrn
  973.                     Goto LABEL024
  974.                 Case 1
  975.                     AnsiPos 1, GetY() + 1
  976.                     ClrEol
  977.                     INTEGER012 = ""
  978.                     InputStr TSTRING008(146) + " _", INTEGER012, 7, 3, Mask_Num(), 32
  979.                     STRING013 = STRING002 + "\" + Upper(TSTRING012(INTEGER012))
  980.                     SaveScrn
  981.                     If (INTEGER012 == "") Goto LABEL030
  982.                     If (Exist(STRING013)) Then
  983.                         Shell 1, STRING031, "pcbview.bat " + STRING013, ""
  984.                         Goto LABEL030
  985.                     Endif
  986.                     Print String(Upper(TSTRING012(INTEGER012))) + " " + TSTRING008(129)
  987.                     Delay 25
  988.                     :LABEL030
  989.                     RestScrn
  990.                     Goto LABEL024
  991.             End Select
  992.         Case "W"
  993.             BOOLEAN010 = 1
  994.             Gosub LABEL007
  995.         Case "DOWN", "C", "2"
  996.             Newline
  997.             INTEGER015 = 1
  998.             Cls
  999.             Goto LABEL019
  1000.         Case "5"
  1001.             SaveScrn
  1002.             RestScrn
  1003.             Goto LABEL024
  1004.         Case "L"
  1005.             FClose 1
  1006.             Goto LABEL016
  1007.         Case "UP", "8"
  1008.             FClose 1
  1009.             FOpen 1, PPEPath() + "FR." + String(PcbNode()), 2, 0
  1010.             INTEGER014 = INTEGER014 - U_PageLen * 2 + INTEGER015
  1011.             INTEGER015 = 1
  1012.             If (INTEGER014 < 1) Then
  1013.                 INTEGER014 = 1
  1014.                 INTEGER013 = 0
  1015.                 Cls
  1016.                 Goto LABEL019
  1017.             Endif
  1018.             For INTEGER013 = 1 To INTEGER014
  1019.                 FGet 1, STRING014
  1020.             Next
  1021.             INTEGER013 = 0
  1022.             Cls
  1023.             Goto LABEL019
  1024.         Case Chr(13), "Y", " "
  1025.             AnsiPos 1, GetY() + 1
  1026.             ClrEol
  1027.             INTEGER015 = 1
  1028.             If (BOOLEAN005 == 1) Cls
  1029.             Goto LABEL019
  1030.             If (Abort()) End
  1031.         Case 0
  1032.             Goto LABEL025
  1033.         Case 1
  1034.             Goto LABEL019
  1035.     End Select
  1036.     :LABEL031
  1037.     AnsiPos 1, GetY() + 1
  1038.     ClrEol
  1039.     FClose 1
  1040.     DefColor
  1041.     ResetDisp
  1042.     PrintLn "@PON@"
  1043.     End
  1044.  
  1045. ;------------------------------------------------------------------------------
  1046. ;
  1047. ; Usage report (before postprocessing)
  1048. ;
  1049. ; ■ Statements used :
  1050. ;
  1051. ;    7       End
  1052. ;    14      Cls
  1053. ;    8       ClrEol
  1054. ;    2       Wait
  1055. ;    217     Goto 
  1056. ;    351     Let 
  1057. ;    11      Print 
  1058. ;    75      PrintLn 
  1059. ;    376     If 
  1060. ;    3       DispFile 
  1061. ;    1       FCreate 
  1062. ;    6       FOpen 
  1063. ;    8       FClose 
  1064. ;    29      FGet 
  1065. ;    12      FPutLn 
  1066. ;    1       ResetDisp
  1067. ;    2       StartDisp 
  1068. ;    1       GetUser
  1069. ;    1       DefColor
  1070. ;    6       InputStr 
  1071. ;    4       Gosub 
  1072. ;    1       Return
  1073. ;    6       Delay 
  1074. ;    16      Inc 
  1075. ;    2       Dec 
  1076. ;    4       Newline
  1077. ;    1       Newlines 
  1078. ;    1       Tokenize 
  1079. ;    5       GetToken 
  1080. ;    4       Shell 
  1081. ;    1       DispStr 
  1082. ;    50      AnsiPos 
  1083. ;    5       SaveScrn
  1084. ;    4       RestScrn
  1085. ;    2       Flag 
  1086. ;
  1087. ;
  1088. ; ■ Functions used :
  1089. ;
  1090. ;    3       *
  1091. ;    202     +
  1092. ;    29      -
  1093. ;    379     ==
  1094. ;    1       <>
  1095. ;    5       <
  1096. ;    3       <=
  1097. ;    10      >
  1098. ;    6       >=
  1099. ;    123     !
  1100. ;    12      &&
  1101. ;    28      ||
  1102. ;    26      Len(
  1103. ;    52      Upper()
  1104. ;    15      Mid()
  1105. ;    14      Left()
  1106. ;    23      Space()
  1107. ;    2       Ferr()
  1108. ;    5       Chr()
  1109. ;    2       InStr()
  1110. ;    2       Abort()
  1111. ;    4       LTrim()
  1112. ;    1       RTrim()
  1113. ;    2       U_Name()
  1114. ;    19      StripAtx()
  1115. ;    6       Strip()
  1116. ;    5       Inkey()
  1117. ;    20      String()
  1118. ;    1       Mask_Pwd()
  1119. ;    1       Mask_Num()
  1120. ;    2       Mask_File()
  1121. ;    2       Mask_Ascii()
  1122. ;    2       CurConf()
  1123. ;    1       PCBDat()
  1124. ;    18      PPEPath()
  1125. ;    3       PcbNode()
  1126. ;    4       ReadLine()
  1127. ;    8       Exist()
  1128. ;    1       TokenStr()
  1129. ;    9       GetY()
  1130. ;    1       TokCount()
  1131. ;    1       U_RecNum()
  1132. ;    1       IsNonStop()
  1133. ;
  1134. ;------------------------------------------------------------------------------
  1135. ;
  1136. ; Analysis flags : Sfd
  1137. ;
  1138. ; S - Shell to DOS ■ 5
  1139. ;     This may be normal if the PPE need to execute an external command,
  1140. ;     but may be actually anything... nasty (formating HD, rebooting,...)
  1141. ;     or usefull (sorting, maintenance,...). Check!
  1142. ;     ■ Search for : SHELL
  1143. ;
  1144. ; f - Flag files for download ■ 3
  1145. ;     This may be normal if a PPE needs to send some files, but since
  1146. ;     this statement allows flagging of any file on the hard disk, you
  1147. ;     have to be carefull. Check!
  1148. ;     ■ Search for : FLAG
  1149. ;
  1150. ; d - Access PCBOARD.DAT ■ 2
  1151. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  1152. ;     for many PPE so they can find various informations on the system
  1153. ;     (system paths, max number of lines in messages, ...) but it may also
  1154. ;     be a way to gather vital informations.
  1155. ;     ■ Search for : PCBDAT()
  1156. ;
  1157. ;------------------------------------------------------------------------------
  1158. ;
  1159. ; Postprocessing report
  1160. ;
  1161. ;    3       For/Next
  1162. ;    2       While/EndWhile
  1163. ;    68      If/Then or If/Then/Else
  1164. ;    4       Select Case
  1165. ;
  1166. ;------------------------------------------------------------------------------
  1167. ;                 AEGiS Corp - Break the routines, code against the machines!
  1168. ;------------------------------------------------------------------------------
  1169.