home *** CD-ROM | disk | FTP | other *** search
/ Groovy Bytes: Behind the Moon / groovybytes.iso / GROOVY / PPE / ALF / ALFREAD2.ZIP / ALFREAD2.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1994-09-01  |  9.6 KB  |  464 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.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     String   STRING007
  26.     String   STRING008
  27.     String   STRING009
  28.     String   STRING010
  29.     String   STRING011
  30.     String   STRING012
  31.     String   STRING013
  32.     String   STRING014
  33.     String   STRING015
  34.     String   STRING016
  35.     String   STRING017
  36.     String   STRING018
  37.     String   STRING019
  38.     String   STRING020
  39.     String   STRING021
  40.     String   STRING022
  41.  
  42. ;------------------------------------------------------------------------------
  43.  
  44.     STRING018 = Chr(13)
  45.     STRING017 = Chr(27)
  46.     STRING003 = "@X1F"
  47.     STRING004 = "@X1F   A    Scan All Selected Conferences                   @X0F"
  48.     STRING005 = "@X1F   ALL  Scan All Selected Conferences you have access to@X0F"
  49.     STRING006 = "@X1F   F    Read Mail From You                              @X0F"
  50.     STRING007 = "@X1F   FROM Read Mail From a selected user                  @X0F"
  51.     STRING008 = "@X1F   N    Scan New Messages By Date                       @X0F"
  52.     STRING009 = "@X1F   S    Scan for New Messages                           @X0F"
  53.     STRING010 = "@X1F   TO   Messages to a user                              @X0F"
  54.     STRING011 = "@X1F   TS   Text Search for Specific Text                   @X0F"
  55.     STRING012 = "@X1F   U    Unread Messages                                 @X0F"
  56.     STRING013 = "@X1F   USER Search Messages To or From a Certain User       @X0F"
  57.     STRING014 = "@X1F   WAIT Scan Conferences Where You Have Mail Waiting    @X0F"
  58.     STRING015 = "@X1F   Y    Read Messages Addressed to You                  @X0F"
  59.     STRING016 = "@X1F   YA   Read Messages Addressed to You or to All        @X0F"
  60.     If (TokCount() <> 0) Then
  61.         STRING002 = TokenStr()
  62.         Tokenize STRING002
  63.         GetToken STRING019
  64.         GetToken STRING020
  65.         GetToken STRING021
  66.         GetToken STRING022
  67.         KbdStuff "R " + STRING019 + " " + STRING020 + " " + STRING021 + " " + STRING022 + Chr(13)
  68.     Else
  69.         DispFile PPEPath() + "READ.PCB", 0
  70.         PrintLn "   @POFF@@X08─@X07─@X0F─────────────────────────────────────────────────────────────────@X07─@X08─@X0F"
  71.         PrintLn "            @X0F   A    Scan All Selected Conferences                   "
  72.         PrintLn "            @X0F   ALL  Scan All Selected Conferences you have access to"
  73.         PrintLn "            @X0F   F    Read Mail From You                              "
  74.         PrintLn "            @X0F   FROM Read Mail From a selected user                  "
  75.         PrintLn "            @X0F   N    Scan New Messages By Date                       "
  76.         PrintLn "            @X0F   S    Scan for New Messages                           "
  77.         PrintLn "            @X0F   TO   Messages to a user                              "
  78.         PrintLn "            @X0F   TS   Text Search for Specific Text                   "
  79.         PrintLn "            @X0F   U    Unread Messages                                 "
  80.         PrintLn "            @X0F   USER Search Messages To or From a Certain User       "
  81.         PrintLn "            @X0F   WAIT Scan Conferences Where You Have Mail Waiting    "
  82.         PrintLn "            @X0F   Y    Read Messages Addressed to You                  "
  83.         PrintLn "            @X0F   YA   Read Messages Addressed to You or to All        "
  84.         :LABEL001
  85.         AnsiPos 13, 10
  86.         Print STRING004
  87.         AnsiPos 13, 11
  88.         Print "@X0F   ALL  Scan All Selected Conferences you have access to@X0F"
  89.         AnsiPos 13, 22
  90.         Print "@X0F   YA   Read Messages Addressed to You or to All        "
  91.         AnsiPos 13, 10
  92.         :LABEL002
  93.         STRING001 = Inkey()
  94.         If (STRING001 == "8") Goto LABEL025
  95.         If (STRING001 == "UP") Goto LABEL025
  96.         If ((STRING001 == "A") || (STRING001 == "a")) Goto LABEL025
  97.         If (STRING001 == "DOWN") Goto LABEL003
  98.         If ((STRING001 == "Z") || (STRING001 == "z")) Goto LABEL003
  99.         If (STRING001 == "2") Goto LABEL003
  100.         If (STRING001 == "") Goto LABEL002
  101.         If (STRING001 == STRING018) Goto LABEL027
  102.         If (STRING001 == STRING017) Goto LABEL040
  103.         Goto LABEL002
  104.         :LABEL003
  105.         AnsiPos 13, 10
  106.         Print "@X0F   A    Scan All Selected Conferences                   @X0F"
  107.         AnsiPos 13, 11
  108.         Print STRING005
  109.         AnsiPos 13, 12
  110.         Print "@X0F   F    Read Mail From You                              "
  111.         AnsiPos 13, 11
  112.         :LABEL004
  113.         STRING001 = Inkey()
  114.         If (STRING001 == "DOWN") Goto LABEL005
  115.         If ((STRING001 == "Z") || (STRING001 == "z")) Goto LABEL005
  116.         If (STRING001 == "8") Goto LABEL001
  117.         If (STRING001 == "UP") Goto LABEL001
  118.         If ((STRING001 == "A") || (STRING001 == "a")) Goto LABEL001
  119.         If (STRING001 == "2") Goto LABEL005
  120.         If (STRING001 == "") Goto LABEL004
  121.         If (STRING001 == STRING018) Goto LABEL028
  122.         If (STRING001 == STRING017) Goto LABEL040
  123.         Goto LABEL004
  124.         :LABEL005
  125.         AnsiPos 13, 11
  126.         Print "@X0F   ALL  Scan All Selected Conferences you have access to"
  127.         AnsiPos 13, 12
  128.         Print STRING006
  129.         AnsiPos 13, 13
  130.         Print "@X0F   FROM Read Mail From a selected user                  "
  131.         AnsiPos 13, 12
  132.         :LABEL006
  133.         STRING001 = Inkey()
  134.         If (STRING001 == "DOWN") Goto LABEL007
  135.         If ((STRING001 == "Z") || (STRING001 == "z")) Goto LABEL007
  136.         If (STRING001 == "8") Goto LABEL003
  137.         If (STRING001 == "UP") Goto LABEL003
  138.         If ((STRING001 == "A") || (STRING001 == "a")) Goto LABEL003
  139.         If (STRING001 == "2") Goto LABEL007
  140.         If (STRING001 == "") Goto LABEL006
  141.         If (STRING001 == STRING018) Goto LABEL029
  142.         If (STRING001 == STRING017) Goto LABEL040
  143.         Goto LABEL006
  144.         :LABEL007
  145.         AnsiPos 13, 12
  146.         Print "@X0F   F    Read Mail From You                              "
  147.         AnsiPos 13, 13
  148.         Print STRING007
  149.         AnsiPos 13, 14
  150.         Print "@X0F   N    Scan New Messages By Date                       "
  151.         AnsiPos 13, 13
  152.         :LABEL008
  153.         STRING001 = Inkey()
  154.         If (STRING001 == "DOWN") Goto LABEL009
  155.         If ((STRING001 == "Z") || (STRING001 == "z")) Goto LABEL009
  156.         If (STRING001 == "8") Goto LABEL005
  157.         If (STRING001 == "UP") Goto LABEL005
  158.         If ((STRING001 == "A") || (STRING001 == "a")) Goto LABEL005
  159.         If (STRING001 == "2") Goto LABEL009
  160.         If (STRING001 == "") Goto LABEL008
  161.         If (STRING001 == STRING018) Goto LABEL030
  162.         If (STRING001 == STRING017) Goto LABEL040
  163.         Goto LABEL008
  164.         :LABEL009
  165.         AnsiPos 13, 13
  166.         Print "@X0F   FROM Read Mail From a selected user                  "
  167.         AnsiPos 13, 14
  168.         Print STRING008
  169.         AnsiPos 13, 15
  170.         Print "@X0F   S    Scan for New Messages                           "
  171.         AnsiPos 13, 14
  172.         :LABEL010
  173.         STRING001 = Inkey()
  174.         If (STRING001 == "DOWN") Goto LABEL011
  175.         If ((STRING001 == "Z") || (STRING001 == "z")) Goto LABEL011
  176.         If (STRING001 == "8") Goto LABEL007
  177.         If (STRING001 == "UP") Goto LABEL007
  178.         If ((STRING001 == "A") || (STRING001 == "a")) Goto LABEL007
  179.         If (STRING001 == "2") Goto LABEL011
  180.         If (STRING001 == "") Goto LABEL010
  181.         If (STRING001 == STRING018) Goto LABEL031
  182.         If (STRING001 == STRING017) Goto LABEL040
  183.         Goto LABEL010
  184.         :LABEL011
  185.         AnsiPos 13, 14
  186.         Print "@X0F   N    Scan New Messages By Date                       "
  187.         AnsiPos 13, 15
  188.         Print STRING009
  189.         AnsiPos 13, 16
  190.         Print "@X0F   TO   Messages to a user                              "
  191.         AnsiPos 13, 15
  192.         :LABEL012
  193.         STRING001 = Inkey()
  194.         If (STRING001 == "DOWN") Goto LABEL013
  195.         If ((STRING001 == "Z") || (STRING001 == "z")) Goto LABEL013
  196.         If (STRING001 == "8") Goto LABEL009
  197.         If (STRING001 == "UP") Goto LABEL009
  198.         If ((STRING001 == "A") || (STRING001 == "a")) Goto LABEL009
  199.         If (STRING001 == "2") Goto LABEL013
  200.         If (STRING001 == "") Goto LABEL012
  201.         If (STRING001 == STRING018) Goto LABEL032
  202.         If (STRING001 == STRING017) Goto LABEL040
  203.         Goto LABEL012
  204.         :LABEL013
  205.         AnsiPos 13, 15
  206.         Print "@X0F   S    Scan for New Messages                           "
  207.         AnsiPos 13, 16
  208.         Print STRING010
  209.         AnsiPos 13, 17
  210.         Print "@X0F   TS   Text Search for Specific Text                   "
  211.         AnsiPos 13, 16
  212.         :LABEL014
  213.         STRING001 = Inkey()
  214.         If (STRING001 == "DOWN") Goto LABEL015
  215.         If ((STRING001 == "Z") || (STRING001 == "z")) Goto LABEL015
  216.         If (STRING001 == "8") Goto LABEL011
  217.         If (STRING001 == "UP") Goto LABEL011
  218.         If ((STRING001 == "A") || (STRING001 == "a")) Goto LABEL011
  219.         If (STRING001 == "2") Goto LABEL015
  220.         If (STRING001 == "") Goto LABEL014
  221.         If (STRING001 == STRING018) Goto LABEL033
  222.         If (STRING001 == STRING017) Goto LABEL040
  223.         Goto LABEL014
  224.         :LABEL015
  225.         AnsiPos 13, 16
  226.         Print "@X0F   TO   Messages to a user                              "
  227.         AnsiPos 13, 17
  228.         Print STRING011
  229.         AnsiPos 13, 18
  230.         Print "@X0F   U    Unread Messages                                 "
  231.         AnsiPos 13, 17
  232.         :LABEL016
  233.         STRING001 = Inkey()
  234.         If (STRING001 == "DOWN") Goto LABEL017
  235.         If ((STRING001 == "Z") || (STRING001 == "z")) Goto LABEL017
  236.         If (STRING001 == "8") Goto LABEL013
  237.         If (STRING001 == "UP") Goto LABEL013
  238.         If ((STRING001 == "A") || (STRING001 == "a")) Goto LABEL013
  239.         If (STRING001 == "2") Goto LABEL017
  240.         If (STRING001 == "") Goto LABEL016
  241.         If (STRING001 == STRING018) Goto LABEL034
  242.         If (STRING001 == STRING017) Goto LABEL040
  243.         Goto LABEL016
  244.         :LABEL017
  245.         AnsiPos 13, 17
  246.         Print "@X0F   TS   Text Search for Specific Text                   "
  247.         AnsiPos 13, 18
  248.         Print STRING012
  249.         AnsiPos 13, 19
  250.         Print "@X0F   USER Search Messages To or From a Certain User       "
  251.         AnsiPos 13, 18
  252.         :LABEL018
  253.         STRING001 = Inkey()
  254.         If (STRING001 == "DOWN") Goto LABEL019
  255.         If ((STRING001 == "Z") || (STRING001 == "z")) Goto LABEL019
  256.         If (STRING001 == "8") Goto LABEL015
  257.         If (STRING001 == "UP") Goto LABEL015
  258.         If ((STRING001 == "A") || (STRING001 == "a")) Goto LABEL015
  259.         If (STRING001 == "2") Goto LABEL019
  260.         If (STRING001 == "") Goto LABEL018
  261.         If (STRING001 == STRING018) Goto LABEL035
  262.         If (STRING001 == STRING017) Goto LABEL040
  263.         Goto LABEL018
  264.         :LABEL019
  265.         AnsiPos 13, 18
  266.         Print "@X0F   U    Unread Messages                                 "
  267.         AnsiPos 13, 19
  268.         Print STRING013
  269.         AnsiPos 13, 20
  270.         Print "@X0F   WAIT Scan Conferences Where You Have Mail Waiting    "
  271.         AnsiPos 13, 19
  272.         :LABEL020
  273.         STRING001 = Inkey()
  274.         If (STRING001 == "DOWN") Goto LABEL021
  275.         If ((STRING001 == "Z") || (STRING001 == "z")) Goto LABEL021
  276.         If (STRING001 == "8") Goto LABEL017
  277.         If (STRING001 == "UP") Goto LABEL017
  278.         If ((STRING001 == "A") || (STRING001 == "a")) Goto LABEL017
  279.         If (STRING001 == "2") Goto LABEL021
  280.         If (STRING001 == "") Goto LABEL020
  281.         If (STRING001 == STRING018) Goto LABEL036
  282.         If (STRING001 == STRING017) Goto LABEL040
  283.         Goto LABEL020
  284.         :LABEL021
  285.         AnsiPos 13, 19
  286.         Print "@X0F   USER Search Messages To or From a Certain User       "
  287.         AnsiPos 13, 20
  288.         Print STRING014
  289.         AnsiPos 13, 21
  290.         Print "@X0F   Y    Read Messages Addressed to You                  "
  291.         AnsiPos 13, 20
  292.         :LABEL022
  293.         STRING001 = Inkey()
  294.         If (STRING001 == "DOWN") Goto LABEL023
  295.         If ((STRING001 == "Z") || (STRING001 == "z")) Goto LABEL023
  296.         If (STRING001 == "8") Goto LABEL019
  297.         If (STRING001 == "UP") Goto LABEL019
  298.         If ((STRING001 == "A") || (STRING001 == "a")) Goto LABEL019
  299.         If (STRING001 == "2") Goto LABEL023
  300.         If (STRING001 == "") Goto LABEL022
  301.         If (STRING001 == STRING018) Goto LABEL037
  302.         If (STRING001 == STRING017) Goto LABEL040
  303.         Goto LABEL022
  304.         :LABEL023
  305.         AnsiPos 13, 20
  306.         Print "@X0F   WAIT Scan Conferences Where You Have Mail Waiting    "
  307.         AnsiPos 13, 21
  308.         Print STRING015
  309.         AnsiPos 13, 22
  310.         Print "@X0F   YA   Read Messages Addressed to You or to All        "
  311.         AnsiPos 13, 21
  312.         :LABEL024
  313.         STRING001 = Inkey()
  314.         If (STRING001 == "DOWN") Goto LABEL025
  315.         If ((STRING001 == "Z") || (STRING001 == "z")) Goto LABEL025
  316.         If (STRING001 == "8") Goto LABEL021
  317.         If (STRING001 == "UP") Goto LABEL021
  318.         If ((STRING001 == "A") || (STRING001 == "a")) Goto LABEL021
  319.         If (STRING001 == "2") Goto LABEL025
  320.         If (STRING001 == "") Goto LABEL024
  321.         If (STRING001 == STRING018) Goto LABEL038
  322.         If (STRING001 == STRING017) Goto LABEL040
  323.         Goto LABEL024
  324.         :LABEL025
  325.         AnsiPos 13, 21
  326.         Print "@X0F   Y    Read Messages Addressed to You                  "
  327.         AnsiPos 13, 22
  328.         Print STRING016
  329.         AnsiPos 13, 10
  330.         Print "@X0F   A    Scan All Selected Conferences                   "
  331.         AnsiPos 13, 22
  332.         :LABEL026
  333.         STRING001 = Inkey()
  334.         If (STRING001 == "DOWN") Goto LABEL001
  335.         If ((STRING001 == "Z") || (STRING001 == "z")) Goto LABEL001
  336.         If (STRING001 == "8") Goto LABEL023
  337.         If (STRING001 == "UP") Goto LABEL023
  338.         If ((STRING001 == "A") || (STRING001 == "a")) Goto LABEL023
  339.         If (STRING001 == "2") Goto LABEL001
  340.         If (STRING001 == "") Goto LABEL026
  341.         If (STRING001 == STRING018) Goto LABEL039
  342.         If (STRING001 == STRING017) Goto LABEL040
  343.         Goto LABEL026
  344.         :LABEL027
  345.         Cls
  346.         PrintLn "@PON@@X0FP@X07P@X08E By Mass Murderer [ALF]"
  347.         KbdStuff "R;A" + Chr(13)
  348.         End
  349.         :LABEL028
  350.         Cls
  351.         PrintLn "@PON@@X0FP@X07P@X08E By Mass Murderer [ALF]"
  352.         KbdStuff "R;ALL" + Chr(13)
  353.         End
  354.         :LABEL029
  355.         Cls
  356.         PrintLn "@PON@@X0FP@X07P@X08E By Mass Murderer [ALF]"
  357.         KbdStuff "R;F" + Chr(13)
  358.         End
  359.         :LABEL030
  360.         Cls
  361.         PrintLn "@PON@@X0FP@X07P@X08E By Mass Murderer [ALF]"
  362.         KbdStuff "R;FROM" + Chr(13)
  363.         End
  364.         :LABEL031
  365.         Cls
  366.         PrintLn "@PON@@X0FP@X07P@X08E By Mass Murderer [ALF]"
  367.         KbdStuff "R;N" + Chr(13)
  368.         End
  369.         :LABEL032
  370.         Cls
  371.         PrintLn "@PON@@X0FP@X07P@X08E By Mass Murderer [ALF]"
  372.         KbdStuff "R;S" + Chr(13)
  373.         End
  374.         :LABEL033
  375.         Cls
  376.         PrintLn "@PON@@X0FP@X07P@X08E By Mass Murderer [ALF]"
  377.         KbdStuff "R;TO" + Chr(13)
  378.         End
  379.         :LABEL034
  380.         Cls
  381.         PrintLn "@PON@@X0FP@X07P@X08E By Mass Murderer [ALF]"
  382.         KbdStuff "R;TS" + Chr(13)
  383.         End
  384.         :LABEL035
  385.         Cls
  386.         PrintLn "@PON@@X0FP@X07P@X08E By Mass Murderer [ALF]"
  387.         KbdStuff "R;U" + Chr(13)
  388.         End
  389.         :LABEL036
  390.         Cls
  391.         PrintLn "@PON@@X0FP@X07P@X08E By Mass Murderer [ALF]"
  392.         KbdStuff "R;USER" + Chr(13)
  393.         End
  394.         :LABEL037
  395.         Cls
  396.         PrintLn "@PON@@X0FP@X07P@X08E By Mass Murderer [ALF]"
  397.         KbdStuff "R;WAIT" + Chr(13)
  398.         End
  399.         :LABEL038
  400.         Cls
  401.         PrintLn "@PON@@X0FP@X07P@X08E By Mass Murderer [ALF]"
  402.         KbdStuff "R;Y" + Chr(13)
  403.         End
  404.         :LABEL039
  405.         Cls
  406.         PrintLn "@PON@@X0FP@X07P@X08E By Mass Murderer [ALF]"
  407.         KbdStuff "R;YA" + Chr(13)
  408.         End
  409.     Endif
  410.     :LABEL040
  411.     Cls
  412.     PrintLn "@PON@@X0FP@X07P@X08E By Mass Murderer [ALF]"
  413.     End
  414.  
  415. ;------------------------------------------------------------------------------
  416. ;
  417. ; Usage report (before postprocessing)
  418. ;
  419. ; ■ Statements used :
  420. ;
  421. ;    14      End
  422. ;    14      Cls
  423. ;    132     Goto 
  424. ;    30      Let 
  425. ;    39      Print 
  426. ;    28      PrintLn 
  427. ;    118     If 
  428. ;    1       DispFile 
  429. ;    1       Tokenize 
  430. ;    4       GetToken 
  431. ;    14      KbdStuff 
  432. ;    52      AnsiPos 
  433. ;
  434. ;
  435. ; ■ Functions used :
  436. ;
  437. ;    22      +
  438. ;    143     ==
  439. ;    1       <>
  440. ;    1       !
  441. ;    26      ||
  442. ;    16      Chr()
  443. ;    13      Inkey()
  444. ;    1       PPEPath()
  445. ;    1       TokenStr()
  446. ;    1       TokCount()
  447. ;
  448. ;------------------------------------------------------------------------------
  449. ;
  450. ; Analysis flags : No flag
  451. ;
  452. ;------------------------------------------------------------------------------
  453. ;
  454. ; Postprocessing report
  455. ;
  456. ;    0       For/Next
  457. ;    0       While/EndWhile
  458. ;    1       If/Then or If/Then/Else
  459. ;    0       Select Case
  460. ;
  461. ;------------------------------------------------------------------------------
  462. ;                 AEGiS Corp - Break the routines, code against the machines!
  463. ;------------------------------------------------------------------------------
  464.