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