home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / DOS / Comunic / SLFDSTRC.ZIP / SLFDSTRC.PPE (.txt) < prev   
Encoding:
PCBoard Programming Language Executable  |  1996-08-07  |  7.4 KB  |  336 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.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.  
  22. ;------------------------------------------------------------------------------
  23.  
  24.     Cls
  25.     INTEGER001 = YesChar()
  26.     Print "@X04                          ███████████████                               "
  27.     Print "                          ████@X40DON'T@X04██████                               "
  28.     Print "                          ████@X40PUSH!@X04██████                               "
  29.     Print "                          ███████████████                               "
  30.     Print "                          ███████████████                               "
  31.     Print "@X0F                                                                        "
  32.     Print "You are alone now...not even the SysOp can see you. You can obviously "
  33.     Print "see that button in front of you. You have a choice: hit the button, or"
  34.     Print "totally wuss out and forget it all. Remember, nobody is watching; and "
  35.     Print "after  all, what harm could a little red button do?"
  36.     Input "@X0ESo, do you want to push the button? (Enter = Yes)", INTEGER001
  37.     If (INTEGER001 == YesChar()) Goto LABEL001
  38.     If (INTEGER001 == NoChar()) Goto LABEL000
  39.     Cls
  40.     Print "@X0A█     █ █ ██ ██ █▀▀▀▀█ █ █ █"
  41.     Print " █ █ █  █ █ █ █ █▄▄▄▄█ █ █ █"
  42.     Print "  █ █   █ █   █ █      ▄ ▄ ▄"
  43.     End
  44.     :LABEL001
  45.     Cls
  46.     Print "                                                                        "
  47.     Print "                                                                        "
  48.     Print "                                                                        "
  49.     Print "@X06You have activated the automatic hard drive formatter.  Formatting will "
  50.     Print "begin in 10 seconds."
  51.     Delay 90
  52.     Cls
  53.     Print " @X0F      ███             ██████████████████████████████████               "
  54.     Print "       ███             ███                            ███               "
  55.     Print "       ███             ███                            ███               "
  56.     Print "       ███             ███                            ███               "
  57.     Print "       ███             ███                            ███               "
  58.     Print "       ███             ███                            ███               "
  59.     Print "       ███             ███                            ███               "
  60.     Print "       ███             ███                            ███               "
  61.     Print "       ███             ███                            ███               "
  62.     Print "       ███             ███                            ███               "
  63.     Print "       ███             ███                            ███               "
  64.     Print "       ███             ███                            ███               "
  65.     Print "       ███             ███                            ███               "
  66.     Print "       ███             ███                            ███               "
  67.     Print "       ███             ███                            ███               "
  68.     Print "       ███             ███                            ███               "
  69.     Print "       ███             ███                            ███               "
  70.     Print "       ███             ███                            ███               "
  71.     Print "       ███             ███                            ███               "
  72.     Print "       ███             ██████████████████████████████████               "
  73.     Delay 27
  74.     Cls
  75.     Print "@X0F                ████████████████████████████████████                    "
  76.     Print "                ████████████████████████████████████                    "
  77.     Print "                ██                                ██                    "
  78.     Print "                ██                                ██                    "
  79.     Print "                ██                                ██                    "
  80.     Print "                ██                                ██                    "
  81.     Print "                ██                                ██                    "
  82.     Print "                ████████████████████████████████████                    "
  83.     Print "                ████████████████████████████████████                    "
  84.     Print "                                                  ██                    "
  85.     Print "                                                  ██                    "
  86.     Print "                                                  ██                    "
  87.     Print "                                                  ██                    "
  88.     Print "                                                  ██                    "
  89.     Print "                                                  ██                    "
  90.     Print "                                                  ██                    "
  91.     Print "                                                  ██                    "
  92.     Print "                                                  ██                    "
  93.     Print "                ████████████████████████████████████                    "
  94.     Print "                ████████████████████████████████████                    "
  95.     Delay 27
  96.     Cls
  97.     Print "@X0E                ████████████████████████████████████                    "
  98.     Print "                ████████████████████████████████████                    "
  99.     Print "                ██                               ███                    "
  100.     Print "                ██                               ███                    "
  101.     Print "                ██                               ███                    "
  102.     Print "                ██                               ███                    "
  103.     Print "                ██                               ███                    "
  104.     Print "                ██                               ███                    "
  105.     Print "                ██                               ███                    "
  106.     Print "                ████████████████████████████████████                    "
  107.     Print "                ████████████████████████████████████                    "
  108.     Print "                ██                               ███                    "
  109.     Print "                ██                               ███                    "
  110.     Print "                ██                               ███                    "
  111.     Print "                ██                               ███                    "
  112.     Print "                ██                               ███                    "
  113.     Print "                ██                               ███                    "
  114.     Print "                ██                               ███                    "
  115.     Print "                ████████████████████████████████████                    "
  116.     Print "                ████████████████████████████████████                    "
  117.     Delay 27
  118.     Cls
  119.     Print "                ████████████████████████████████████                    "
  120.     Print "                                                  ██                    "
  121.     Print "                                                 ██                     "
  122.     Print "                                                ██                      "
  123.     Print "                                               ██                       "
  124.     Print "                                              ██                        "
  125.     Print "                                             ██                         "
  126.     Print "                                            ██                          "
  127.     Print "                                           ██                           "
  128.     Print "                                          ██                            "
  129.     Print "                                         ██                             "
  130.     Print "                                        ██                              "
  131.     Print "                                       ██                               "
  132.     Print "                                      ██                                "
  133.     Print "                                     ██                                 "
  134.     Print "                                    ██                                  "
  135.     Print "                                   ██                                   "
  136.     Print "                                  ██                                    "
  137.     Print "                                 ██                                     "
  138.     Print "                                ██                                      "
  139.     Print "                               ██                                       "
  140.     Delay 27
  141.     Cls
  142.     Print "@X0C                ████████████████████████████████████                    "
  143.     Print "                ████████████████████████████████████                    "
  144.     Print "                ██                                                      "
  145.     Print "                ██                                                      "
  146.     Print "                ██                                                      "
  147.     Print "                ██                                                      "
  148.     Print "                ██                                                      "
  149.     Print "                ██                                                      "
  150.     Print "                ██                                                      "
  151.     Print "                ██                                                      "
  152.     Print "                ██                                                      "
  153.     Print "                ████████████████████████████████████                    "
  154.     Print "                ████████████████████████████████████                    "
  155.     Print "                ██                                ██                    "
  156.     Print "                ██                                ██                    "
  157.     Print "                ██                                ██                    "
  158.     Print "                ██                                ██                    "
  159.     Print "                ██                                ██                    "
  160.     Print "                ██                                ██                    "
  161.     Print "                ████████████████████████████████████                    "
  162.     Print "                ████████████████████████████████████                    "
  163.     Delay 27
  164.     Cls
  165.     Print "                ████████████████████████████████████                    "
  166.     Print "                ████████████████████████████████████                    "
  167.     Print "                ██                                                      "
  168.     Print "                ██                                                      "
  169.     Print "                ██                                                      "
  170.     Print "                ██                                                      "
  171.     Print "                ██                                                      "
  172.     Print "                ██                                                      "
  173.     Print "                ██                                                      "
  174.     Print "                ██                                                      "
  175.     Print "                ████████████████████████████████████                    "
  176.     Print "                ████████████████████████████████████                    "
  177.     Print "                                                  ██                    "
  178.     Print "                                                  ██                    "
  179.     Print "                                                  ██                    "
  180.     Print "                                                  ██                    "
  181.     Print "                                                  ██                    "
  182.     Print "                                                  ██                    "
  183.     Print "                                                  ██                    "
  184.     Print "                                                  ██                    "
  185.     Print "                ████████████████████████████████████                    "
  186.     Print "                ████████████████████████████████████                    "
  187.     Delay 27
  188.     Cls
  189.     Print "@X04                ██                                ██                    "
  190.     Print "                ██                                ██                    "
  191.     Print "                ██                                ██                    "
  192.     Print "                ██                                ██                    "
  193.     Print "                ██                                ██                    "
  194.     Print "                ██                                ██                    "
  195.     Print "                ██                                ██                    "
  196.     Print "                ██                                ██                    "
  197.     Print "                ████████████████████████████████████                    "
  198.     Print "                ████████████████████████████████████                    "
  199.     Print "                                                  ██                    "
  200.     Print "                                                  ██                    "
  201.     Print "                                                  ██                    "
  202.     Print "                                                  ██                    "
  203.     Print "                                                  ██                    "
  204.     Print "                                                  ██                    "
  205.     Print "                                                  ██                    "
  206.     Print "                                                  ██                    "
  207.     Print "                                                  ██                    "
  208.     Print "                                                  ██                    "
  209.     Print "                                                  ██                    "
  210.     Delay 27
  211.     Cls
  212.     Print "                ████████████████████████████████████                    "
  213.     Print "                ████████████████████████████████████                    "
  214.     Print "                                                  ██                    "
  215.     Print "                                                  ██                    "
  216.     Print "                                                  ██                    "
  217.     Print "                                                  ██                    "
  218.     Print "                                                  ██                    "
  219.     Print "                                                  ██                    "
  220.     Print "                                                  ██                    "
  221.     Print "                                                  ██                    "
  222.     Print "                              ██████████████████████                    "
  223.     Print "                              ██████████████████████                    "
  224.     Print "                                                  ██                    "
  225.     Print "                                                  ██                    "
  226.     Print "                                                  ██                    "
  227.     Print "                                                  ██                    "
  228.     Print "                                                  ██                    "
  229.     Print "                                                  ██                    "
  230.     Print "                                                  ██                    "
  231.     Print "                                                  ██                    "
  232.     Print "                ████████████████████████████████████                    "
  233.     Print "                ████████████████████████████████████                    "
  234.     Delay 27
  235.     Cls
  236.     Print "@X84                ████████████████████████████████████                    "
  237.     Print "                ████████████████████████████████████                    "
  238.     Print "                                                  ██                    "
  239.     Print "                                                  ██                    "
  240.     Print "                                                  ██                    "
  241.     Print "                                                  ██                    "
  242.     Print "                                                  ██                    "
  243.     Print "                ████████████████████████████████████                    "
  244.     Print "                ████████████████████████████████████                    "
  245.     Print "                ██                                                      "
  246.     Print "                ██                                                      "
  247.     Print "                ██                                                      "
  248.     Print "                ██                                                      "
  249.     Print "                ██                                                      "
  250.     Print "                ██                                                      "
  251.     Print "                ██                                                      "
  252.     Print "                ██                                                      "
  253.     Print "                ██                                                      "
  254.     Print "                ████████████████████████████████████                    "
  255.     Print "                ████████████████████████████████████                    "
  256.     Delay 27
  257.     Cls
  258.     Print "                               ████                                     "
  259.     Print "                               ████                                     "
  260.     Print "                               ████                                     "
  261.     Print "                               ████                                     "
  262.     Print "                               ████                                     "
  263.     Print "                               ████                                     "
  264.     Print "                               ████                                     "
  265.     Print "                               ████                                     "
  266.     Print "                               ████                                     "
  267.     Print "                               ████                                     "
  268.     Print "                               ████                                     "
  269.     Print "                               ████                                     "
  270.     Print "                               ████                                     "
  271.     Print "                               ████                                     "
  272.     Print "                               ████                                     "
  273.     Print "                               ████                                     "
  274.     Print "                               ████                                     "
  275.     Print "                               ████                                     "
  276.     Print "                               ████                                     "
  277.     Print "                               ████                                     "
  278.     Print "                               ████                                     "
  279.     Delay 27
  280.     INTEGER002 = INTEGER002
  281.     Cls
  282.     Print "@X07Deleting Doors.", INTEGER002, ".", INTEGER002, ".", INTEGER002, ".", INTEGER002, ".Done"
  283.     Print "Deleting Files.", INTEGER002, ".", INTEGER002, ".", INTEGER002, ".", INTEGER002, ".Done"
  284.     Print "Deleting DOS.", INTEGER002, ".", INTEGER002, ".", INTEGER002, ".", INTEGER002, ".Done"
  285.     Print "Deleting PCBoard.", INTEGER002, ".", INTEGER002, ".", INTEGER002, ".", INTEGER002, ".Done"
  286.     Delay 36
  287.     Cls
  288.     Print "FORMAT COMPLETE"
  289.     Hangup
  290.     End
  291.  
  292. ;------------------------------------------------------------------------------
  293. ;
  294. ; Usage report (before postprocessing)
  295. ;
  296. ; ■ Statements used :
  297. ;
  298. ;    2       End
  299. ;    15      Cls
  300. ;    2       Goto 
  301. ;    2       Let 
  302. ;    231     Print 
  303. ;    2       If 
  304. ;    1       Input 
  305. ;    1       Hangup
  306. ;    12      Delay 
  307. ;
  308. ;
  309. ; ■ Functions used :
  310. ;
  311. ;    2       ==
  312. ;    1       NoChar()
  313. ;    2       YesChar()
  314. ;
  315. ;------------------------------------------------------------------------------
  316. ;
  317. ; Analysis flags : B
  318. ;
  319. ; B - Brute hangup ■ 1
  320. ;     Program hangup without notification. This may be a good way to
  321. ;     disconnect a user, but if used randomly, may be very nasty
  322. ;     ■ Search for : HANGUP, DTROFF
  323. ;
  324. ;------------------------------------------------------------------------------
  325. ;
  326. ; Postprocessing report
  327. ;
  328. ;    0       For/Next
  329. ;    0       While/EndWhile
  330. ;    0       If/Then or If/Then/Else
  331. ;    0       Select Case
  332. ;
  333. ;------------------------------------------------------------------------------
  334. ;                 AEGiS Corp - Break the routines, code against the machines!
  335. ;------------------------------------------------------------------------------
  336.