home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / TIDQWK.ZIP / TIDQWK.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1996-03-09  |  7KB  |  465 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 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.  
  22. ;------------------------------------------------------------------------------
  23.  
  24.     StartDisp 1
  25.     GetUser
  26.     STRING002 = U_Trans
  27.     Cls
  28.     PrintLn "@X07"
  29.     PrintLn "@X07"
  30.     PrintLn "@X07                       @X7F┌───────@X74The Crypt Mail System@X78─────@X70┐"
  31.     PrintLn "@X07                       @X7F│@X7F┌───────────────────────────────@X70┐@X70│"
  32.     PrintLn "@X07                       @X7F││    @X79Select Conferences to QWK  @X70│@X70│"
  33.     PrintLn "@X07                       @X7F│└@X70───────────────────────────────┘@X70│"
  34.     PrintLn "@X07                       @X7F│  @X78Upload Packet and Stay Online  @X70│"
  35.     PrintLn "@X07                       @X7F│                                 @X70│"
  36.     PrintLn "@X07                       @X7F│ @X71@X78Download Packet and Stay Online @X70│"
  37.     PrintLn "@X07                       @X7F│                                 @X70│"
  38.     PrintLn "@X07                       @X7F│  @X78Upload Packet and Auto-Logoff  @X70│"
  39.     PrintLn "@X07                       @X7F│                                 @X70│"
  40.     PrintLn "@X07                       @X7F│ @X71@X78Download Packet and Auto-Logoff @X70│"
  41.     PrintLn "@X07                       @X7F│                                 @X70│"
  42.     PrintLn "@X07                       @X7F└@X70─────────────────────────────────┘"
  43.     PrintLn "@X07                            @X7F┌───────────────────────@X70┐"
  44.     PrintLn "@X07                            @X7F│ @X74A =  <───────>  = Z @X70│"
  45.     PrintLn "@X07                            @X7F│   @X74<ENTER> to Select   @X70│"
  46.     PrintLn "@X07                            @X7F└@X70───────────────────────┘@X07"
  47.     STRING001 = ""
  48.     :LABEL001
  49.     While (STRING001 == "") Do
  50.         STRING001 = Inkey()
  51.         If (STRING001 == "z") Then
  52.             Goto LABEL008
  53.             Continue
  54.         Endif
  55.         If (STRING001 == "Z") Then
  56.             Goto LABEL008
  57.             Continue
  58.         Endif
  59.         If (STRING001 == "A") Then
  60.             Goto LABEL020
  61.             Continue
  62.         Endif
  63.         If (STRING001 == "a") Then
  64.             Goto LABEL020
  65.             Continue
  66.         Endif
  67.         If (STRING001 == Chr(13)) Then
  68.             Goto LABEL022
  69.             Goto LABEL001
  70.         Endif
  71.     EndWhile
  72.     :LABEL002
  73.     AnsiPos 1, 4
  74.     PrintLn "@X07                       @X7F│@X7F┌───────────────────────────────@X70┐@X70│"
  75.     PrintLn "@X07                       @X7F││    @X79Select Confrences to QWK   @X70│@X70│"
  76.     PrintLn "@X07                       @X7F│└@X70───────────────────────────────┘@X70│"
  77.     PrintLn "@X07                       @X7F│@X07██@X71@X78Upload Packet and Stay Online@X07██@X70│"
  78.     PrintLn "@X07                       @X7F│@X07█████████████████████████████████@X70│"
  79.     STRING001 = ""
  80.     :LABEL003
  81.     While (STRING001 == "") Do
  82.         STRING001 = Inkey()
  83.         If (STRING001 == "A") Then
  84.             Goto LABEL018
  85.             Continue
  86.         Endif
  87.         If (STRING001 == "a") Then
  88.             Goto LABEL018
  89.             Continue
  90.         Endif
  91.         If (STRING001 == "Z") Then
  92.             Goto LABEL008
  93.             Continue
  94.         Endif
  95.         If (STRING001 == "z") Then
  96.             Goto LABEL008
  97.             Continue
  98.         Endif
  99.         If (STRING001 == Chr(13)) Then
  100.             Goto LABEL022
  101.             Goto LABEL003
  102.         Endif
  103.     EndWhile
  104.     :LABEL004
  105.     AnsiPos 1, 12
  106.     PrintLn "@X07                       @X7F│@X07█████████████████████████████████@X70│"
  107.     PrintLn "@X07                       @X7F│@X07█@X71@X78Download Packet and Auto-Logoff@X07█@X70│"
  108.     PrintLn "@X07                       @X7F│@X07█████████████████████████████████@X70│"
  109.     AnsiPos 1, 4
  110.     PrintLn "@X07                       @X7F│@X7F┌───────────────────────────────@X70┐@X70│"
  111.     PrintLn "@X07                       @X7F││    @X79Select Confrences to QWK   @X70│@X70│"
  112.     PrintLn "@X07                       @X7F│└@X70───────────────────────────────┘@X70│"
  113.     STRING001 = ""
  114.     :LABEL005
  115.     While (STRING001 == "") Do
  116.         STRING001 = Inkey()
  117.         If (STRING001 == "A") Then
  118.             Goto LABEL018
  119.             Continue
  120.         Endif
  121.         If (STRING001 == "a") Then
  122.             Goto LABEL018
  123.             Continue
  124.         Endif
  125.         If (STRING001 == "Z") Then
  126.             Goto LABEL008
  127.             Continue
  128.         Endif
  129.         If (STRING001 == "z") Then
  130.             Goto LABEL008
  131.             Continue
  132.         Endif
  133.         If (STRING001 == Chr(13)) Then
  134.             Goto LABEL022
  135.             Goto LABEL005
  136.         Endif
  137.     EndWhile
  138.     :LABEL006
  139.     AnsiPos 1, 6
  140.     PrintLn "@X07                       @X7F│┌───────────────────────────────@X70┐@X70│"
  141.     PrintLn "@X07                       @X7F││ @X7B@X78Upload Packet and Stay Online @X70│@X70│"
  142.     PrintLn "@X07                       @X7F│└@X70───────────────────────────────┘@X70│"
  143.     PrintLn "@X07                       @X7F│@X07█@X08@X08@X71@X78Download Packet and Stay Online@X07█@X70│"
  144.     PrintLn "@X07                       @X7F│@X07█████████████████████████████████@X70│"
  145.     STRING001 = ""
  146.     :LABEL007
  147.     While (STRING001 == "") Do
  148.         STRING001 = Inkey()
  149.         If (STRING001 == "A") Then
  150.             Goto LABEL002
  151.             Continue
  152.         Endif
  153.         If (STRING001 == "a") Then
  154.             Goto LABEL002
  155.             Continue
  156.         Endif
  157.         If (STRING001 == "Z") Then
  158.             Goto LABEL010
  159.             Continue
  160.         Endif
  161.         If (STRING001 == "z") Then
  162.             Goto LABEL010
  163.             Continue
  164.         Endif
  165.         If (STRING001 == Chr(13)) Then
  166.             Goto LABEL023
  167.             Goto LABEL007
  168.         Endif
  169.     EndWhile
  170.     :LABEL008
  171.     AnsiPos 1, 4
  172.     PrintLn "@X07                       @X7F│@X07█████████████████████████████████@X70│"
  173.     PrintLn "@X07                       @X7F│@X07█████@X71@X79Select Confrences to QWK@X07████@X70│"
  174.     PrintLn "@X07                       @X7F│┌───────────────────────────────@X70┐@X70│"
  175.     PrintLn "@X07                       @X7F││ @X7B@X78Upload Packet and Stay Online @X70│@X70│"
  176.     PrintLn "@X07                       @X7F│└@X70───────────────────────────────┘@X70│"
  177.     STRING001 = ""
  178.     :LABEL009
  179.     While (STRING001 == "") Do
  180.         STRING001 = Inkey()
  181.         If (STRING001 == "A") Then
  182.             Goto LABEL002
  183.             Continue
  184.         Endif
  185.         If (STRING001 == "a") Then
  186.             Goto LABEL002
  187.             Continue
  188.         Endif
  189.         If (STRING001 == "Z") Then
  190.             Break
  191.             Continue
  192.         Endif
  193.         If (STRING001 == "z") Then
  194.             Break
  195.             Continue
  196.         Endif
  197.         If (STRING001 == Chr(13)) Then
  198.             Goto LABEL023
  199.             Goto LABEL009
  200.         Endif
  201.     EndWhile
  202.     :LABEL010
  203.     AnsiPos 1, 6
  204.     PrintLn "@X07                       @X7F│@X07█████████████████████████████████@X70│"
  205.     PrintLn "@X07                       @X7F│@X07██@X71@X78Upload Packet and Stay Online@X07██@X70│"
  206.     PrintLn "@X07                       @X7F│@X7F┌───────────────────────────────@X70┐@X70│"
  207.     PrintLn "@X07                       @X7F││@X7B@X78Download Packet and Stay Online@X70│@X70│"
  208.     PrintLn "@X07                       @X7F│└@X70───────────────────────────────┘@X70│"
  209.     STRING001 = ""
  210.     :LABEL011
  211.     While (STRING001 == "") Do
  212.         STRING001 = Inkey()
  213.         If (STRING001 == "A") Then
  214.             Goto LABEL006
  215.             Continue
  216.         Endif
  217.         If (STRING001 == "a") Then
  218.             Goto LABEL006
  219.             Continue
  220.         Endif
  221.         If (STRING001 == "Z") Then
  222.             Goto LABEL014
  223.             Continue
  224.         Endif
  225.         If (STRING001 == "z") Then
  226.             Goto LABEL014
  227.             Continue
  228.         Endif
  229.         If (STRING001 == Chr(13)) Then
  230.             Goto LABEL024
  231.             Goto LABEL011
  232.         Endif
  233.     EndWhile
  234.     :LABEL012
  235.     AnsiPos 1, 8
  236.     PrintLn "@X07                       @X7F│┌───────────────────────────────@X70┐@X70│"
  237.     PrintLn "@X07                       @X7F││@X7B@X78Download Packet and Stay Online@X70│@X70│"
  238.     PrintLn "@X07                       @X7F│└@X70───────────────────────────────┘@X70│"
  239.     PrintLn "@X07                       @X7F│@X07██@X71@X78Upload Packet and Auto-Logoff@X07██@X70│"
  240.     PrintLn "@X07                       @X7F│@X07█████████████████████████████████@X70│"
  241.     STRING001 = ""
  242.     :LABEL013
  243.     While (STRING001 == "") Do
  244.         STRING001 = Inkey()
  245.         If (STRING001 == "A") Then
  246.             Goto LABEL006
  247.             Continue
  248.         Endif
  249.         If (STRING001 == "a") Then
  250.             Goto LABEL006
  251.             Continue
  252.         Endif
  253.         If (STRING001 == "Z") Then
  254.             Break
  255.             Continue
  256.         Endif
  257.         If (STRING001 == "z") Then
  258.             Break
  259.             Continue
  260.         Endif
  261.         If (STRING001 == Chr(13)) Then
  262.             Goto LABEL024
  263.             Goto LABEL013
  264.         Endif
  265.     EndWhile
  266.     :LABEL014
  267.     AnsiPos 1, 8
  268.     PrintLn "@X07                       @X7F│@X07█████████████████████████████████@X70│"
  269.     PrintLn "@X07                       @X7F│@X07█@X71@X78Download Packet and Stay Online@X07█@X70│"
  270.     PrintLn "@X07                       @X7F│┌───────────────────────────────@X70┐@X70│"
  271.     PrintLn "@X07                       @X7F││ @X7B@X78Upload Packet and Auto-Logoff @X70│@X70│"
  272.     PrintLn "@X07                       @X7F│└@X70───────────────────────────────┘@X70│"
  273.     STRING001 = ""
  274.     :LABEL015
  275.     While (STRING001 == "") Do
  276.         STRING001 = Inkey()
  277.         If (STRING001 == "A") Then
  278.             Goto LABEL012
  279.             Continue
  280.         Endif
  281.         If (STRING001 == "a") Then
  282.             Goto LABEL012
  283.             Continue
  284.         Endif
  285.         If (STRING001 == "Z") Then
  286.             Goto LABEL020
  287.             Continue
  288.         Endif
  289.         If (STRING001 == "z") Then
  290.             Goto LABEL020
  291.             Continue
  292.         Endif
  293.         If (STRING001 == Chr(13)) Then
  294.             Goto LABEL025
  295.             Goto LABEL015
  296.         Endif
  297.     EndWhile
  298.     :LABEL016
  299.     AnsiPos 1, 10
  300.     PrintLn "@X07                       @X7F│┌───────────────────────────────@X70┐@X70│"
  301.     PrintLn "@X07                       @X7F││ @X78Upload Packet and Auto-Logoff @X70│@X70│"
  302.     PrintLn "@X07                       @X7F│└@X70───────────────────────────────┘@X70│"
  303.     PrintLn "@X07                       @X7F│@X07█@X71@X08@X78Download Packet and Auto-Logoff@X07█@X70│"
  304.     PrintLn "@X07                       @X7F│@X07█████████████████████████████████@X70│"
  305.     STRING001 = ""
  306.     :LABEL017
  307.     While (STRING001 == "") Do
  308.         STRING001 = Inkey()
  309.         If (STRING001 == "A") Then
  310.             Goto LABEL012
  311.             Continue
  312.         Endif
  313.         If (STRING001 == "a") Then
  314.             Goto LABEL012
  315.             Continue
  316.         Endif
  317.         If (STRING001 == "Z") Then
  318.             Goto LABEL020
  319.             Continue
  320.         Endif
  321.         If (STRING001 == "z") Then
  322.             Goto LABEL020
  323.             Continue
  324.         Endif
  325.         If (STRING001 == Chr(13)) Then
  326.             Goto LABEL025
  327.             Goto LABEL017
  328.         Endif
  329.     EndWhile
  330.     :LABEL018
  331.     AnsiPos 1, 4
  332.     PrintLn "@X07                       @X7F│@X7F@X07█████████████████████████████████@X70│"
  333.     PrintLn "@X07                       @X7F│@X07█████@X71@X79Select Conferences to QWK@X07███@X70│"
  334.     PrintLn "@X07                       @X7F│@X07█████████████████████████████████@X70│"
  335.     AnsiPos 1, 12
  336.     PrintLn "@X07                       @X7F│┌───────────────────────────────@X70┐@X70│"
  337.     PrintLn "@X07                       @X7F││@X7B@X78Download Packet and Auto-Logoff@X70│@X70│"
  338.     PrintLn "@X07                       @X7F│└@X70───────────────────────────────┘@X70│"
  339.     STRING001 = ""
  340.     :LABEL019
  341.     While (STRING001 == "") Do
  342.         STRING001 = Inkey()
  343.         If (STRING001 == "A") Then
  344.             Goto LABEL016
  345.             Continue
  346.         Endif
  347.         If (STRING001 == "a") Then
  348.             Goto LABEL016
  349.             Continue
  350.         Endif
  351.         If (STRING001 == "Z") Then
  352.             Goto LABEL004
  353.             Continue
  354.         Endif
  355.         If (STRING001 == "z") Then
  356.             Goto LABEL004
  357.             Continue
  358.         Endif
  359.         If (STRING001 == Chr(13)) Then
  360.             Goto LABEL026
  361.             Goto LABEL019
  362.         Endif
  363.     EndWhile
  364.     :LABEL020
  365.     AnsiPos 1, 10
  366.     PrintLn "@X07                       @X7F│@X07█████████████████████████████████@X70│"
  367.     PrintLn "@X07                       @X7F│@X07██@X71@X78Upload Packet and Auto-Logoff@X07██@X70│"
  368.     PrintLn "@X07                       @X7F│┌───────────────────────────────@X70┐@X70│"
  369.     PrintLn "@X07                       @X7F││@X7B@X78Download Packet and Auto-Logoff@X70│@X70│"
  370.     PrintLn "@X07                       @X7F│└@X70───────────────────────────────┘@X70│"
  371.     STRING001 = ""
  372.     :LABEL021
  373.     While (STRING001 == "") Do
  374.         STRING001 = Inkey()
  375.         If (STRING001 == "A") Then
  376.             Goto LABEL016
  377.             Continue
  378.         Endif
  379.         If (STRING001 == "a") Then
  380.             Goto LABEL016
  381.             Continue
  382.         Endif
  383.         If (STRING001 == "Z") Then
  384.             Goto LABEL004
  385.             Continue
  386.         Endif
  387.         If (STRING001 == "z") Then
  388.             Goto LABEL004
  389.             Continue
  390.         Endif
  391.         If (STRING001 == Chr(13)) Then
  392.             Goto LABEL026
  393.             Goto LABEL021
  394.         Endif
  395.     EndWhile
  396.     :LABEL022
  397.     Color 7
  398.     Cls
  399.     KbdStuff "SELECT" + Chr(13)
  400.     End
  401.     :LABEL023
  402.     Color 7
  403.     Cls
  404.     KbdStuff "QWK U " + STRING002 + Chr(13)
  405.     End
  406.     :LABEL024
  407.     Color 7
  408.     Cls
  409.     KbdStuff "QWK D " + STRING002 + Chr(13)
  410.     End
  411.     :LABEL025
  412.     Color 7
  413.     Cls
  414.     KbdStuff "QWK U " + STRING002 + " BYE" + Chr(13)
  415.     End
  416.     :LABEL026
  417.     Color 7
  418.     Cls
  419.     KbdStuff "QWK D " + STRING002 + " BYE" + Chr(13)
  420.     End
  421.  
  422. ;------------------------------------------------------------------------------
  423. ;
  424. ; Usage report (before postprocessing)
  425. ;
  426. ; ■ Statements used :
  427. ;
  428. ;    5       End
  429. ;    6       Cls
  430. ;    5       Color 
  431. ;    187     Goto 
  432. ;    23      Let 
  433. ;    71      PrintLn 
  434. ;    66      If 
  435. ;    1       StartDisp 
  436. ;    1       GetUser
  437. ;    5       KbdStuff 
  438. ;    12      AnsiPos 
  439. ;
  440. ;
  441. ; ■ Functions used :
  442. ;
  443. ;    11      +
  444. ;    66      ==
  445. ;    66      !
  446. ;    16      Chr()
  447. ;    11      Inkey()
  448. ;
  449. ;------------------------------------------------------------------------------
  450. ;
  451. ; Analysis flags : No flag
  452. ;
  453. ;------------------------------------------------------------------------------
  454. ;
  455. ; Postprocessing report
  456. ;
  457. ;    0       For/Next
  458. ;    11      While/EndWhile
  459. ;    55      If/Then or If/Then/Else
  460. ;    0       Select Case
  461. ;
  462. ;------------------------------------------------------------------------------
  463. ;                 AEGiS Corp - Break the routines, code against the machines!
  464. ;------------------------------------------------------------------------------
  465.