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