home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / DMNOLAC.ZIP / anarchy.ppe (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1996-07-27  |  26.8 KB  |  901 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 1.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.  
  27. ;------------------------------------------------------------------------------
  28.  
  29.     :LABEL001
  30.     Cls
  31.     PrintLn "@PON@  @X0F  ┌─@X0B──@X03──@X08─────────────────────────────────────────────────────────────┐  "
  32.     PrintLn "    @X0F│   Th@X0Be o@X03nl@X08ine Anarchists Cook Book version 666 viewer and sorter  @X08│  "
  33.     PrintLn "    @X0F└─@X0B──@X03──@X08─────────────────────────────────────────────────────────────┘  "
  34.     PrintLn "                                                        @X0FBy@X0B: D@X03an@X08te [DMN]   "
  35.     PrintLn "                               @X0FTa@X0Bbl@X03e o@X08f Contents                          "
  36.     PrintLn "  ────────────────────────────────────────────────────────────────────────"
  37.     PrintLn "  @X0FSe@X0Bct@X03io@X08n Number  │ @X0FCo@X0Bnt@X03en@X08ts of Section                                   "
  38.     PrintLn "  @X0F1               @X08│ @X0FIn@X0Btr@X03od@X08uction                                          "
  39.     PrintLn "  @X0F2               @X08│ @X0FGe@X0Btt@X03in@X08g Materials                                     "
  40.     PrintLn "  @X0F3               @X08│ @X0FEx@X0Bpl@X03os@X08ives                                            "
  41.     PrintLn "  @X0F4               @X08│ @X0FUs@X0Bin@X03g E@X08xplosives                                      "
  42.     PrintLn "  @X0F5               @X08│ @X0F@X0FSp@X0Bec@X03ia@X08l Ammunition for Projectile Weapons             "
  43.     PrintLn "  @X0F6               @X08│ @X0FRo@X0Bck@X03et@X08s And Cannons                                   "
  44.     PrintLn "  @X0F7               @X08│ @X0FPy@X0Bro@X03te@X08chnica Errata                                   "
  45.     PrintLn "  @X0F8               @X08│ @X0FLi@X0Bst@X03s o@X08f Suppliers and further information            "
  46.     PrintLn "  @X0F9               @X08│ @X0FCh@X0Bec@X03kl@X08ists for raids on Labs                          "
  47.     PrintLn "  @X0F10              @X08│ @X0FUs@X0Bef@X03ul@X08 Pyrochemistry                                  "
  48.     PrintLn "  @X0F11              @X08│ @X0FAb@X0Bou@X03t t@X08he Author                                      "
  49.     PrintLn "  @X0F12              @X08│ @X0FMy@X0B A@X03dd@X08ition and Disclaimer                            "
  50.     PrintLn "  ────────────────────────────────────────────────────────────────────────"
  51.     Newline
  52.     InputStr "@X0FWh@X0Bat@X03 se@X08ction do you wish to view", STRING001, "@X08", 3, "1234567890Qq", 0
  53.     If (STRING001 == "1") Goto LABEL002
  54.     If (STRING001 == "2") Goto LABEL003
  55.     If (STRING001 == "3") Goto LABEL018
  56.     If (STRING001 == "4") Goto LABEL046
  57.     If (STRING001 == "5") Goto LABEL071
  58.     If (STRING001 == "6") Goto LABEL083
  59.     If (STRING001 == "7") Goto LABEL092
  60.     If (STRING001 == "8") Goto LABEL101
  61.     If (STRING001 == "9") Goto LABEL102
  62.     If (STRING001 == "10") Goto LABEL103
  63.     If (STRING001 == "11") Goto LABEL104
  64.     If (STRING001 == "12") Goto LABEL105
  65.     If ((STRING001 == "Q") || (STRING001 == "q")) Goto LABEL107
  66.     Goto LABEL106
  67.     :LABEL002
  68.     DispFile PPEPath() + "0000.pcb", 0
  69.     Wait
  70.     Goto LABEL001
  71.     :LABEL003
  72.     Cls
  73.     PrintLn "                             @X0FCo@X0Bnt@X03en@X08ts                                     "
  74.     PrintLn " ─────────────────────────────────────────────────────────────────────────"
  75.     PrintLn " @X0FSu@X0Bb S@X03ec@X08tions │ @X0FDe@X0Bsc@X03ri@X08ptions                                              "
  76.     PrintLn " @X0F20           @X08│ @X0FBu@X0Byi@X03ng@X08 Explosives and Propellants                         "
  77.     PrintLn " @X0F201          @X08│  @X0F-B@X0Bla@X03ck@X08 Powder                                             "
  78.     PrintLn " @X0F202          @X08│  @X0F-P@X0Byr@X03od@X08ex                                                  "
  79.     PrintLn " @X0F203          @X08│ @X0F -R@X0Boc@X03ke@X08t Engine Powder                                     "
  80.     PrintLn " @X0F204          @X08│ @X0F -R@X0Bif@X03le@X08/Shotgun Powder                                     "
  81.     PrintLn " @X0F205          @X08│ @X0F -F@X0Bla@X03sh@X08 Powder                                             "
  82.     PrintLn " @X0F206          @X08│ @X0F -A@X0Bmm@X03on@X08ium Nitrate                                         "
  83.     PrintLn " @X0F21           @X08│ @X0FAc@X0Bqu@X03ir@X08ing Chemicals                                       "
  84.     PrintLn " @X0F211          @X08│ @X0F -T@X0Bec@X03hn@X08igues for Lock Picking                              "
  85.     PrintLn " @X0F22           @X08│ @X0FLi@X0Bst@X03 of@X08 Common Household Items                            "
  86.     PrintLn " @X0F23           @X08│ @X0FPr@X0Bep@X03er@X08ation of Chemicals                                  "
  87.     PrintLn " @X0F231          @X08│  @X0F-N@X0Bit@X03ri@X08c Acid                                              "
  88.     PrintLn " @X0F232          @X08│  @X0F-S@X0Bul@X03fu@X08ric Acid                                            "
  89.     PrintLn " @X0F233          @X08│ @X0F -A@X0Bmm@X03on@X08ium Nitrate                                         "
  90.     PrintLn " ─────────────────────────────────────────────────────────────────────────"
  91.     Newline
  92.     InputStr "@X0FWh@X0Bat@X03 se@X08ction do you wish to view", STRING002, "@X08", 3, "1234567890Qq", 0
  93.     If (STRING002 == "20") Gosub LABEL004
  94.     If (STRING002 == "201") Gosub LABEL005
  95.     If (STRING002 == "202") Gosub LABEL006
  96.     If (STRING002 == "203") Gosub LABEL007
  97.     If (STRING002 == "204") Gosub LABEL008
  98.     If (STRING002 == "205") Gosub LABEL009
  99.     If (STRING002 == "206") Gosub LABEL010
  100.     If (STRING002 == "21") Gosub LABEL011
  101.     If (STRING002 == "211") Gosub LABEL012
  102.     If (STRING002 == "22") Gosub LABEL013
  103.     If (STRING002 == "23") Gosub LABEL014
  104.     If (STRING002 == "231") Gosub LABEL015
  105.     If (STRING002 == "232") Gosub LABEL016
  106.     If (STRING002 == "233") Gosub LABEL017
  107.     If ((STRING002 == "Q") || (STRING002 == "q")) Goto LABEL107
  108.     Goto LABEL106
  109.     :LABEL004
  110.     Cls
  111.     DispFile PPEPath() + "020.pcb", 0
  112.     Wait
  113.     Goto LABEL001
  114.     :LABEL005
  115.     Cls
  116.     DispFile PPEPath() + "0201.pcb", 0
  117.     Wait
  118.     Goto LABEL001
  119.     :LABEL006
  120.     Cls
  121.     DispFile PPEPath() + "0202.pcb", 0
  122.     Wait
  123.     Goto LABEL001
  124.     :LABEL007
  125.     Cls
  126.     DispFile PPEPath() + "0203.pcb", 0
  127.     Wait
  128.     Goto LABEL001
  129.     :LABEL008
  130.     Cls
  131.     DispFile PPEPath() + "0204.pcb", 0
  132.     Wait
  133.     Goto LABEL001
  134.     :LABEL009
  135.     Cls
  136.     DispFile PPEPath() + "0205.pcb", 0
  137.     Wait
  138.     Goto LABEL001
  139.     :LABEL010
  140.     Cls
  141.     DispFile PPEPath() + "0206.pcb", 0
  142.     Wait
  143.     Goto LABEL001
  144.     :LABEL011
  145.     Cls
  146.     DispFile PPEPath() + "021.pcb", 0
  147.     Wait
  148.     Goto LABEL001
  149.     :LABEL012
  150.     Cls
  151.     DispFile PPEPath() + "0211.pcb", 0
  152.     Wait
  153.     Goto LABEL001
  154.     :LABEL013
  155.     Cls
  156.     DispFile PPEPath() + "022.pcb", 0
  157.     Wait
  158.     Goto LABEL001
  159.     :LABEL014
  160.     Cls
  161.     DispFile PPEPath() + "023.pcb", 0
  162.     Wait
  163.     Goto LABEL001
  164.     :LABEL015
  165.     Cls
  166.     DispFile PPEPath() + "0231.pcb", 0
  167.     Wait
  168.     Goto LABEL001
  169.     :LABEL016
  170.     Cls
  171.     DispFile PPEPath() + "0232.pcb", 0
  172.     Wait
  173.     Goto LABEL001
  174.     :LABEL017
  175.     Cls
  176.     DispFile PPEPath() + "0233.pcb", 0
  177.     Wait
  178.     Goto LABEL001
  179.     :LABEL018
  180.     Cls
  181.     PrintLn "                            @X0FCo@X0Bnt@X03en@X08ts                                      "
  182.     PrintLn " ─────────────────────────────────────────────────────────────────────────"
  183.     PrintLn " @X0FSu@X0Bb S@X03ec@X08tions │ @X0F@X0FDe@X0Bsc@X03ri@X08ptions                                              "
  184.     PrintLn "@X0F 30           @X08│ @X0FEx@X0Bpl@X03os@X08ive Recipes                                         "
  185.     PrintLn "@X0F 301          @X08│  @X0F-E@X0Bxp@X03lo@X08sive Theory                                         "
  186.     PrintLn "@X0F 31           @X08│ @X0FIm@X0Bpa@X03ct@X08 Explosives                                         "
  187.     PrintLn "@X0F 311          @X08│ @X0F -A@X0Bmm@X03on@X08ium Triiodide Crystals                              "
  188.     PrintLn "@X0F 312          @X08│ @X0F -M@X0Ber@X03cu@X08ry Fulminate                                        "
  189.     PrintLn "@X0F 313          @X08│ @X0F -N@X0Bit@X03ro@X08glycerine                                           "
  190.     PrintLn "@X0F 314          @X08│ @X0F -P@X0Bic@X03ra@X08tes                                                 "
  191.     PrintLn "@X0F 32           @X08│ @X0FLo@X0Bw @X03Or@X08der Explosives                                      "
  192.     PrintLn "@X0F 321          @X08│ @X0F -B@X0Bla@X03ck@X08 Powder                                             "
  193.     PrintLn "@X0F 322          @X08│ @X0F -N@X0Bit@X03ro@X08cellulose                                           "
  194.     PrintLn "@X0F 324          @X08│ @X0F -P@X0Ber@X03ch@X08lorates                                             "
  195.     PrintLn "@X0F 33           @X08│ @X0FHi@X0Bgh@X03 O@X08rder Explosives                                     "
  196.     PrintLn "@X0F 331          @X08│ @X0F -R@X0B.D@X03.X@X08. (Cyclonite)                                       "
  197.     PrintLn "@X0F 332          @X08│ @X0F -A@X0Bmm@X03on@X08ium Nitrate                                         "
  198.     PrintLn "@X0F 333          @X08│ @X0F -A@X0BNF@X03OS@X08                                                    "
  199.     PrintLn "@X0F 334          @X08│ @X0F -T@X0B.N@X03.T@X08.                                                   "
  200.     PrintLn "@X0F 335          @X08│ @X0F -P@X0Bot@X03as@X08sium Chlorate                                       "
  201.     PrintLn "@X0F 336          @X08│ @X0F -D@X0Byn@X03am@X08ite                                                 "
  202.     PrintLn "@X0F 337          @X08│ @X0F -N@X0Bit@X03ro@X08starch Explosives                                   "
  203.     PrintLn "@X0F 338          @X08│ @X0F -P@X0Bic@X03ri@X08c Acid                                              "
  204.     PrintLn "@X0F 339          @X08│ @X0F -A@X0Bmm@X03on@X08ium Picrate (Explosive D)                           "
  205.     PrintLn "@X0F 340          @X08│ @X0F -N@X0Bit@X03ro@X08gen Trichloride                                     "
  206.     PrintLn "@X0F 341          @X08│ @X0F -L@X0Bea@X03d @X08Azide                                               "
  207.     PrintLn "@X0F 35           @X08│ @X0FOt@X0Bhe@X03r E@X08xplosives                                        "
  208.     PrintLn "@X0F 351          @X08│ @X0F -T@X0Bhe@X03rm@X08it                                                  "
  209.     PrintLn "@X0F 352          @X08│ @X0F -M@X0Bol@X03ot@X08ov Cocktails                                        "
  210.     PrintLn "@X0F 353          @X08│ @X0F -C@X0Bhe@X03mi@X08cal Fire Bottle                                     "
  211.     PrintLn "@X0F 354          @X08│ @X0F -B@X0Bot@X03tl@X08ed Gas Explosives                                   "
  212.     PrintLn " ───────────────────────────────────────────────────────────────────────── "
  213.     InputStr "@X0FWh@X0Bat@X03 se@X08ction do you wish to view", STRING003, "@X08", 3, "1234567890Qq", 0
  214.     If (STRING003 == "30") Goto LABEL019
  215.     If (STRING003 == "301") Goto LABEL020
  216.     If (STRING003 == "31") Goto LABEL021
  217.     If (STRING003 == "311") Goto LABEL022
  218.     If (STRING003 == "312") Goto LABEL023
  219.     If (STRING003 == "313") Goto LABEL024
  220.     If (STRING003 == "314") Goto LABEL025
  221.     If (STRING003 == "32") Goto LABEL026
  222.     If (STRING003 == "321") Goto LABEL027
  223.     If (STRING003 == "322") Goto LABEL028
  224.     If (STRING003 == "323") Goto LABEL029
  225.     If (STRING003 == "33") Goto LABEL030
  226.     If (STRING003 == "331") Goto LABEL031
  227.     If (STRING003 == "332") Goto LABEL032
  228.     If (STRING003 == "333") Goto LABEL033
  229.     If (STRING003 == "334") Goto LABEL034
  230.     If (STRING003 == "335") Goto LABEL035
  231.     If (STRING003 == "336") Goto LABEL036
  232.     If (STRING003 == "337") Goto LABEL037
  233.     If (STRING003 == "338") Goto LABEL038
  234.     If (STRING003 == "339") Goto LABEL039
  235.     If (STRING003 == "340") Goto LABEL040
  236.     If (STRING003 == "341") Goto LABEL041
  237.     If (STRING003 == "35") Goto LABEL035
  238.     If (STRING003 == "351") Goto LABEL042
  239.     If (STRING003 == "352") Goto LABEL043
  240.     If (STRING003 == "353") Goto LABEL044
  241.     If (STRING003 == "354") Goto LABEL045
  242.     If ((STRING003 == "Q") || (STRING003 == "q")) Goto LABEL107
  243.     Goto LABEL106
  244.     :LABEL019
  245.     Cls
  246.     DispFile PPEPath() + "030.pcb", 0
  247.     Wait
  248.     Goto LABEL001
  249.     :LABEL020
  250.     Cls
  251.     DispFile PPEPath() + "0301.pcb", 0
  252.     Wait
  253.     Goto LABEL001
  254.     :LABEL021
  255.     Cls
  256.     DispFile PPEPath() + "031.pcb", 0
  257.     Wait
  258.     Goto LABEL001
  259.     :LABEL022
  260.     Cls
  261.     DispFile PPEPath() + "0311.pcb", 0
  262.     Wait
  263.     Goto LABEL001
  264.     :LABEL023
  265.     Cls
  266.     DispFile PPEPath() + "0312.pcb", 0
  267.     Wait
  268.     Goto LABEL001
  269.     :LABEL024
  270.     Cls
  271.     DispFile PPEPath() + "0313.pcb", 0
  272.     Wait
  273.     Goto LABEL001
  274.     :LABEL025
  275.     Cls
  276.     DispFile PPEPath() + "0314.pcb", 0
  277.     Wait
  278.     Goto LABEL001
  279.     :LABEL026
  280.     Cls
  281.     DispFile PPEPath() + "032.pcb", 0
  282.     Wait
  283.     Goto LABEL001
  284.     :LABEL027
  285.     Cls
  286.     DispFile PPEPath() + "030.pcb", 0
  287.     Wait
  288.     Goto LABEL001
  289.     :LABEL028
  290.     Cls
  291.     DispFile PPEPath() + "0322.pcb", 0
  292.     Wait
  293.     Goto LABEL001
  294.     :LABEL029
  295.     Cls
  296.     DispFile PPEPath() + "0323.pcb", 0
  297.     Wait
  298.     Goto LABEL001
  299.     :LABEL030
  300.     Cls
  301.     DispFile PPEPath() + "033.pcb", 0
  302.     Wait
  303.     Goto LABEL001
  304.     :LABEL031
  305.     Cls
  306.     DispFile PPEPath() + "0331.pcb", 0
  307.     Wait
  308.     Goto LABEL001
  309.     :LABEL032
  310.     Cls
  311.     DispFile PPEPath() + "0332.pcb", 0
  312.     Wait
  313.     Goto LABEL001
  314.     :LABEL033
  315.     Cls
  316.     DispFile PPEPath() + "0333.pcb", 0
  317.     Wait
  318.     Goto LABEL001
  319.     :LABEL034
  320.     Cls
  321.     DispFile PPEPath() + "0334.pcb", 0
  322.     Wait
  323.     Goto LABEL001
  324.     :LABEL035
  325.     Cls
  326.     DispFile PPEPath() + "0335.pcb", 0
  327.     Wait
  328.     Goto LABEL001
  329.     :LABEL036
  330.     Cls
  331.     DispFile PPEPath() + "0336.pcb", 0
  332.     Wait
  333.     Goto LABEL001
  334.     :LABEL037
  335.     Cls
  336.     DispFile PPEPath() + "0337.pcb", 0
  337.     Wait
  338.     Goto LABEL001
  339.     :LABEL038
  340.     Cls
  341.     DispFile PPEPath() + "0338.pcb", 0
  342.     Wait
  343.     Goto LABEL001
  344.     :LABEL039
  345.     Cls
  346.     DispFile PPEPath() + "0339.pcb", 0
  347.     Wait
  348.     Goto LABEL001
  349.     :LABEL040
  350.     Cls
  351.     DispFile PPEPath() + "0340.pcb", 0
  352.     Wait
  353.     Goto LABEL001
  354.     :LABEL041
  355.     Cls
  356.     DispFile PPEPath() + "0341.pcb", 0
  357.     Wait
  358.     Goto LABEL001
  359.     :LABEL042
  360.     Cls
  361.     DispFile PPEPath() + "0351.pcb", 0
  362.     Wait
  363.     Goto LABEL001
  364.     :LABEL043
  365.     Cls
  366.     DispFile PPEPath() + "0352.pcb", 0
  367.     Wait
  368.     Goto LABEL001
  369.     :LABEL044
  370.     Cls
  371.     DispFile PPEPath() + "0353.pcb", 0
  372.     Wait
  373.     Goto LABEL001
  374.     :LABEL045
  375.     Cls
  376.     DispFile PPEPath() + "0354.pcb", 0
  377.     Wait
  378.     Goto LABEL001
  379.     :LABEL046
  380.     Cls
  381.     PrintLn "                            @X0FCo@X0Bnt@X03en@X08ts                                      "
  382.     PrintLn " ─────────────────────────────────────────────────────────────────────────"
  383.     PrintLn " @X0FSu@X0Bb S@X03ec@X08tions │ @X0F@X0FDe@X0Bsc@X03ri@X08ptions                                              "
  384.     PrintLn "@X0F 40           @X08│ @X0FUs@X0Bin@X03g E@X08xplosives                                         "
  385.     PrintLn "@X0F 41           @X08│ @X0FSa@X0Bft@X03ey@X08                                                    "
  386.     PrintLn "@X0F 42           @X08│ @X0FIg@X0Bni@X03ti@X08on Devices                                          "
  387.     PrintLn "@X0F 421          @X08│ @X0F -F@X0Bus@X03e I@X08gnition                                             "
  388.     PrintLn "@X0F 422          @X08│ @X0F -I@X0Bmp@X03ac@X08t Ignition                                         "
  389.     PrintLn "@X0F 423          @X08│ @X0F -E@X0Ble@X03ct@X08rical Ignition                                      "
  390.     PrintLn "@X0F 424          @X08│ @X0F -E@X0Ble@X03ct@X08ro Mechanical Ignition                          "
  391.     PrintLn "@X0F 4241         @X08│ @X0F  -M@X0Ber@X03cu@X08ry Switches                                         "
  392.     PrintLn "@X0F 4242         @X08│ @X0F  -T@X0Bri@X03pw@X08ire Switches                                        "
  393.     PrintLn "@X0F 4243         @X08│ @X0F  -R@X0Bad@X03io @X08Detantors                                           "
  394.     PrintLn "@X0F 43           @X08│ @X0FDe@X0Bla@X03ys@X08                                                      "
  395.     PrintLn "@X0F 431          @X08│ @X0F -F@X0Bus@X03e D@X08elays                                              "
  396.     PrintLn "@X0F 432          @X08│ @X0F -Ch@X0Bem@X03ic@X08al Delays                                           "
  397.     PrintLn "@X0F 433          @X08│ @X0F -T@X0Bim@X03er@X08 Delays                                              "
  398.     PrintLn "@X0F 44           @X08│ @X0FEx@X0Bpl@X03os@X08ve Containers                                      "
  399.     PrintLn "@X0F 441          @X08│ @X0F -P@X0Bap@X03er@X08 Containers                                         "
  400.     PrintLn "@X0F 442          @X08│ @X0F -M@X0Bet@X03al@X08 Containers                                         "
  401.     PrintLn "@X0F 443          @X08│ @X0F -G@X0Bla@X03ss@X08 Containers                                          "
  402.     PrintLn "@X0F 444          @X08│  @X0F-P@X0Bla@X03st@X08ic Containers                                       "
  403.     PrintLn "@X0F 45           @X08│ @X0FAd@X0Bva@X03nc@X08ed Uses For Explosives                              "
  404.     PrintLn "@X0F 451          @X08│  @X0F-S@X0Bha@X03pe@X08d Charges                                           "
  405.     PrintLn "@X0F 452          @X08│ @X0F -T@X0Bub@X03e E@X08xplosives                                           "
  406.     PrintLn "@X0F 453          @X08│ @X0F -A@X0Bto@X03mi@X08zed Partical Explosions                          "
  407.     PrintLn "@X0F 454          @X08│  @X0F-L@X0Big@X03ht@X08bulb Bombs                                   "
  408.     PrintLn "@X0F 455          @X08│  @X0F-B@X0Boo@X03k B@X08ombs                                                "
  409.     PrintLn "@X0F 456          @X08│  @X0F-P@X0Bho@X03ne @X08Bombs                                               "
  410.     PrintLn " ───────────────────────────────────────────────────────────────────────── "
  411.     InputStr "@X0FWh@X0Bat@X03 se@X08ction do you wish to view", STRING004, "@X08", 4, "1234567890Qq", 0
  412.     If (STRING004 == "40") Goto LABEL047
  413.     If (STRING004 == "41") Goto LABEL048
  414.     If (STRING004 == "42") Goto LABEL049
  415.     If (STRING004 == "421") Goto LABEL050
  416.     If (STRING004 == "422") Goto LABEL051
  417.     If (STRING004 == "423") Goto LABEL052
  418.     If (STRING004 == "424") Goto LABEL053
  419.     If (STRING004 == "4241") Goto LABEL054
  420.     If (STRING004 == "4242") Goto LABEL055
  421.     If (STRING004 == "4243") Goto LABEL056
  422.     If (STRING004 == "43") Goto LABEL057
  423.     If (STRING004 == "431") Goto LABEL058
  424.     If (STRING004 == "432") Goto LABEL059
  425.     If (STRING004 == "433") Goto LABEL060
  426.     If (STRING004 == "44") Goto LABEL061
  427.     If (STRING004 == "441") Goto LABEL062
  428.     If (STRING004 == "442") Goto LABEL063
  429.     If (STRING004 == "443") Goto LABEL064
  430.     If (STRING004 == "444") Goto LABEL065
  431.     If (STRING004 == "45") Goto LABEL066
  432.     If (STRING004 == "451") Goto LABEL073
  433.     If (STRING004 == "452") Goto LABEL077
  434.     If (STRING004 == "453") Goto LABEL067
  435.     If (STRING004 == "454") Goto LABEL068
  436.     If (STRING004 == "455") Goto LABEL069
  437.     If (STRING004 == "456") Goto LABEL070
  438.     If ((STRING004 == "Q") || (STRING004 == "q")) Goto LABEL107
  439.     Goto LABEL106
  440.     :LABEL047
  441.     Cls
  442.     DispFile PPEPath() + "040.pcb", 0
  443.     Wait
  444.     Goto LABEL001
  445.     :LABEL048
  446.     Cls
  447.     DispFile PPEPath() + "041.pcb", 0
  448.     Wait
  449.     Goto LABEL001
  450.     :LABEL049
  451.     Cls
  452.     DispFile PPEPath() + "042.pcb", 0
  453.     Wait
  454.     Goto LABEL001
  455.     :LABEL050
  456.     Cls
  457.     DispFile PPEPath() + "0421.pcb", 0
  458.     Wait
  459.     Goto LABEL001
  460.     :LABEL051
  461.     Cls
  462.     DispFile PPEPath() + "0422.pcb", 0
  463.     Wait
  464.     Goto LABEL001
  465.     :LABEL052
  466.     Cls
  467.     DispFile PPEPath() + "0423.pcb", 0
  468.     Wait
  469.     Goto LABEL001
  470.     :LABEL053
  471.     Cls
  472.     DispFile PPEPath() + "0424.pcb", 0
  473.     Wait
  474.     Goto LABEL001
  475.     :LABEL054
  476.     Cls
  477.     DispFile PPEPath() + "04241.pcb", 0
  478.     Wait
  479.     Goto LABEL001
  480.     :LABEL055
  481.     Cls
  482.     DispFile PPEPath() + "04242.pcb", 0
  483.     Wait
  484.     Goto LABEL001
  485.     :LABEL056
  486.     Cls
  487.     DispFile PPEPath() + "04243.pcb", 0
  488.     Wait
  489.     Goto LABEL001
  490.     :LABEL057
  491.     Cls
  492.     DispFile PPEPath() + "043.pcb", 0
  493.     Wait
  494.     Goto LABEL001
  495.     :LABEL058
  496.     Cls
  497.     DispFile PPEPath() + "0431.pcb", 0
  498.     Wait
  499.     Goto LABEL001
  500.     :LABEL059
  501.     Cls
  502.     DispFile PPEPath() + "0432.pcb", 0
  503.     Wait
  504.     Goto LABEL001
  505.     :LABEL060
  506.     Cls
  507.     DispFile PPEPath() + "0433.pcb", 0
  508.     Wait
  509.     Goto LABEL001
  510.     :LABEL061
  511.     Cls
  512.     DispFile PPEPath() + "044.pcb", 0
  513.     Wait
  514.     Goto LABEL001
  515.     :LABEL062
  516.     Cls
  517.     DispFile PPEPath() + "0441.pcb", 0
  518.     Wait
  519.     Goto LABEL001
  520.     :LABEL063
  521.     Cls
  522.     DispFile PPEPath() + "0442.pcb", 0
  523.     Wait
  524.     Goto LABEL001
  525.     :LABEL064
  526.     Cls
  527.     DispFile PPEPath() + "0443.pcb", 0
  528.     Wait
  529.     Goto LABEL001
  530.     :LABEL065
  531.     Cls
  532.     DispFile PPEPath() + "0444.pcb", 0
  533.     Wait
  534.     Goto LABEL001
  535.     :LABEL066
  536.     Cls
  537.     DispFile PPEPath() + "045.pcb", 0
  538.     Wait
  539.     Goto LABEL001
  540.     :LABEL067
  541.     Cls
  542.     DispFile PPEPath() + "0453.pcb", 0
  543.     Wait
  544.     Goto LABEL001
  545.     :LABEL068
  546.     Cls
  547.     DispFile PPEPath() + "0454.pcb", 0
  548.     Wait
  549.     Goto LABEL001
  550.     :LABEL069
  551.     Cls
  552.     DispFile PPEPath() + "0455.pcb", 0
  553.     Wait
  554.     Goto LABEL001
  555.     :LABEL070
  556.     Cls
  557.     DispFile PPEPath() + "0456.pcb", 0
  558.     Wait
  559.     Goto LABEL001
  560.     :LABEL071
  561.     Cls
  562.     PrintLn "                            @X0FCo@X0Bnt@X03en@X08ts                                       "
  563.     PrintLn " ───────────────────────────────────────────────────────────────────────── "
  564.     PrintLn " @X0FSu@X0Bb S@X03ec@X08tions │ @X0F@X0FDe@X0Bsc@X03ri@X08ptions                                               "
  565.     PrintLn "@X0F 50           @X08│ @X0FSp@X0Bec@X03ia@X08l Ammunition for Projectile Weapons                  "
  566.     PrintLn "@X0F 51           @X08│ @X0FPr@X0Boj@X03ec@X08tile Ammunition (primitive)                          "
  567.     PrintLn "@X0F 511          @X08│  @X0F-B@X0Bow@X03 an@X08d Crossbow Ammuntion                               "
  568.     PrintLn "@X0F 512          @X08│ @X0F -B@X0Blo@X03wg@X08un Ammunition                                       "
  569.     PrintLn "@X0F 513          @X08│ @X0F -W@X0Bri@X03st @X08Rocket and Slingshot Ammuntion                     "
  570.     PrintLn "@X0F 52           @X08│ @X0FPr@X0Boj@X03ec@X08tile Weapons (firearms)                              "
  571.     PrintLn " @X0F521          @X08│ @X0F -H@X0Ban@X03dg@X08un Ammunition                                      "
  572.     PrintLn "@X0F 522          @X08│ @X0F -S@X0Bho@X03tg@X08un Ammunition                                       "
  573.     PrintLn "@X0F 53           @X08│ @X0FPr@X0Boj@X03ec@X08tile Weapons (compressed gas)                    "
  574.     PrintLn "@X0F 531          @X08│ @X0F -.@X0B17@X037 C@X08aliber BB gun Ammunition                            "
  575.     PrintLn "@X0F 532          @X08│ @X0F -.@X0B22@X03 Ca@X08liber Pellet Gun Ammunition                      "
  576.     PrintLn " ───────────────────────────────────────────────────────────────────────── "
  577.     InputStr "@X0FWh@X0Bat@X03 se@X08ction do you wish to view", STRING005, "@X08", 3, "1234567890Qq", 0
  578.     If (STRING005 == "50") Goto LABEL072
  579.     If (STRING005 == "51") Goto LABEL073
  580.     If (STRING005 == "511") Goto LABEL074
  581.     If (STRING005 == "512") Goto LABEL075
  582.     If (STRING005 == "513") Goto LABEL076
  583.     If (STRING005 == "52") Goto LABEL077
  584.     If (STRING005 == "521") Goto LABEL078
  585.     If (STRING005 == "522") Goto LABEL079
  586.     If (STRING005 == "53") Goto LABEL080
  587.     If (STRING005 == "531") Goto LABEL081
  588.     If (STRING005 == "532") Goto LABEL082
  589.     If ((STRING005 == "Q") || (STRING005 == "q")) Goto LABEL107
  590.     Goto LABEL106
  591.     :LABEL072
  592.     Cls
  593.     DispFile PPEPath() + "050.pcb", 0
  594.     Wait
  595.     Goto LABEL001
  596.     :LABEL073
  597.     Cls
  598.     DispFile PPEPath() + "051.pcb", 0
  599.     Wait
  600.     Goto LABEL001
  601.     :LABEL074
  602.     Cls
  603.     DispFile PPEPath() + "0511.pcb", 0
  604.     Wait
  605.     Goto LABEL001
  606.     :LABEL075
  607.     Cls
  608.     DispFile PPEPath() + "0512.pcb", 0
  609.     Wait
  610.     Goto LABEL001
  611.     :LABEL076
  612.     Cls
  613.     DispFile PPEPath() + "0513.pcb", 0
  614.     Wait
  615.     Goto LABEL001
  616.     :LABEL077
  617.     Cls
  618.     DispFile PPEPath() + "052.pcb", 0
  619.     Wait
  620.     Goto LABEL001
  621.     :LABEL078
  622.     Cls
  623.     DispFile PPEPath() + "0521.pcb", 0
  624.     Wait
  625.     Goto LABEL001
  626.     :LABEL079
  627.     Cls
  628.     DispFile PPEPath() + "0522.pcb", 0
  629.     Wait
  630.     Goto LABEL001
  631.     :LABEL080
  632.     Cls
  633.     DispFile PPEPath() + "053.pcb", 0
  634.     Wait
  635.     Goto LABEL001
  636.     :LABEL081
  637.     Cls
  638.     DispFile PPEPath() + "0531.pcb", 0
  639.     Wait
  640.     Goto LABEL001
  641.     :LABEL082
  642.     Cls
  643.     DispFile PPEPath() + "0532.pcb", 0
  644.     Wait
  645.     Goto LABEL001
  646.     :LABEL083
  647.     Cls
  648.     PrintLn "                            @X0FCo@X0Bnt@X03en@X08ts                                      "
  649.     PrintLn " ─────────────────────────────────────────────────────────────────────────"
  650.     PrintLn " @X0FSu@X0Bb S@X03ec@X08tions │ @X0F@X0FDe@X0Bsc@X03ri@X08ptions                                              "
  651.     PrintLn "@X0F 60           @X08│ @X0FRo@X0Bck@X03et@X08s And Cannons                                     "
  652.     PrintLn "@X0F 61           @X08│ @X0FCa@X0Bnn@X03on@X08s                                                   "
  653.     PrintLn "@X0F 611          @X08│ @X0F -B@X0Bas@X03ic@X08 Rocket-Bomb                                      "
  654.     PrintLn "@X0F 612          @X08│ @X0F -L@X0Bon@X03g R@X08ange Rocket-Bomb                                  "
  655.     PrintLn "@X0F 613          @X08│ @X0F -M@X0Bul@X03ti@X08ple Warhead Rocket-Bombs                           "
  656.     PrintLn "@X0F 62           @X08│ @X0FCa@X0Bnn@X03on@X08s                                                   "
  657.     PrintLn "@X0F 621          @X08│ @X0F -B@X0Bas@X03ic@X08 Pipe Cannon                                        "
  658.     PrintLn "@X0F 622          @X08│ @X0F -R@X0Boc@X03ke@X08t-Firing Cannon                                  "
  659.     PrintLn " ───────────────────────────────────────────────────────────────────────── "
  660.     InputStr "@X0FWh@X0Bat@X03 se@X08ction do you wish to view", STRING006, "@X08", 3, "1234567890Qq", 0
  661.     If (STRING006 == "60") Goto LABEL084
  662.     If (STRING006 == "61") Goto LABEL085
  663.     If (STRING006 == "611") Goto LABEL086
  664.     If (STRING006 == "612") Goto LABEL087
  665.     If (STRING006 == "613") Goto LABEL088
  666.     If (STRING006 == "62") Goto LABEL089
  667.     If (STRING006 == "621") Goto LABEL090
  668.     If (STRING006 == "622") Goto LABEL091
  669.     If ((STRING006 == "Q") || (STRING006 == "q")) Goto LABEL107
  670.     Goto LABEL106
  671.     :LABEL084
  672.     Cls
  673.     DispFile PPEPath() + "060.pcb", 0
  674.     Wait
  675.     Goto LABEL001
  676.     :LABEL085
  677.     Cls
  678.     DispFile PPEPath() + "061.pcb", 0
  679.     Wait
  680.     Goto LABEL001
  681.     :LABEL086
  682.     Cls
  683.     DispFile PPEPath() + "061.pcb", 0
  684.     Wait
  685.     Goto LABEL001
  686.     :LABEL087
  687.     Cls
  688.     DispFile PPEPath() + "0612.pcb", 0
  689.     Wait
  690.     Goto LABEL001
  691.     :LABEL088
  692.     Cls
  693.     DispFile PPEPath() + "0613.pcb", 0
  694.     Wait
  695.     Goto LABEL001
  696.     :LABEL089
  697.     Cls
  698.     DispFile PPEPath() + "062.pcb", 0
  699.     Wait
  700.     Goto LABEL001
  701.     :LABEL090
  702.     Cls
  703.     DispFile PPEPath() + "0621.pcb", 0
  704.     Wait
  705.     Goto LABEL001
  706.     :LABEL091
  707.     Cls
  708.     DispFile PPEPath() + "0622.pcb", 0
  709.     Wait
  710.     Goto LABEL001
  711.     :LABEL092
  712.     Cls
  713.     PrintLn "                            @X0FCo@X0Bnt@X03en@X08ts                                      "
  714.     PrintLn " ─────────────────────────────────────────────────────────────────────────"
  715.     PrintLn " @X0FSu@X0Bb S@X03ec@X08tions │ @X0F@X0FDe@X0Bsc@X03ri@X08ptions                                              "
  716.     PrintLn "@X0F 70           @X08│ @X0FPy@X0Bro@X03te@X08chnia Errata                                        "
  717.     PrintLn "@X0F 71           @X08│ @X0FSm@X0Bok@X03e B@X08ombs                                               "
  718.     PrintLn "@X0F 72           @X08│ @X0FCo@X0Blo@X03re@X08d Flares                                            "
  719.     PrintLn "@X0F 73           @X08│ @X0FTe@X0Bar @X03Ga@X08s                                                   "
  720.     PrintLn "@X0F 74           @X08│ @X0FFi@X0Bre@X03wo@X08rks                                                 "
  721.     PrintLn "@X0F 741          @X08│ @X0F -F@X0Bir@X03ec@X08rackers                                             "
  722.     PrintLn "@X0F 742          @X08│ @X0F -S@X0Bky@X03ro@X08ckets                                              "
  723.     PrintLn "@X0F 743          @X08│ @X0F -R@X0Bom@X03an@X08 Candles                                           "
  724.     PrintLn " ───────────────────────────────────────────────────────────────────────── "
  725.     InputStr "@X0FWh@X0Bat@X03 se@X08ction do you wish to view", STRING007, "@X08", 3, "1234567890Qq", 0
  726.     If (STRING007 == "70") Goto LABEL093
  727.     If (STRING007 == "71") Goto LABEL094
  728.     If (STRING007 == "72") Goto LABEL095
  729.     If (STRING007 == "73") Goto LABEL096
  730.     If (STRING007 == "74") Goto LABEL097
  731.     If (STRING007 == "741") Goto LABEL098
  732.     If (STRING007 == "742") Goto LABEL099
  733.     If (STRING007 == "743") Goto LABEL100
  734.     If ((STRING007 == "Q") || (STRING007 == "q")) Goto LABEL107
  735.     Goto LABEL106
  736.     :LABEL093
  737.     Cls
  738.     DispFile PPEPath() + "070.pcb", 0
  739.     Wait
  740.     Goto LABEL001
  741.     :LABEL094
  742.     Cls
  743.     DispFile PPEPath() + "071.pcb", 0
  744.     Wait
  745.     Goto LABEL001
  746.     :LABEL095
  747.     Cls
  748.     DispFile PPEPath() + "072.pcb", 0
  749.     Wait
  750.     Goto LABEL001
  751.     :LABEL096
  752.     Cls
  753.     DispFile PPEPath() + "073.pcb", 0
  754.     Wait
  755.     Goto LABEL001
  756.     :LABEL097
  757.     Cls
  758.     DispFile PPEPath() + "074.pcb", 0
  759.     Wait
  760.     Goto LABEL001
  761.     :LABEL098
  762.     Cls
  763.     DispFile PPEPath() + "0741.pcb", 0
  764.     Wait
  765.     Goto LABEL001
  766.     :LABEL099
  767.     Cls
  768.     DispFile PPEPath() + "0742.pcb", 0
  769.     Wait
  770.     Goto LABEL001
  771.     :LABEL100
  772.     Cls
  773.     DispFile PPEPath() + "0743.pcb", 0
  774.     Wait
  775.     Goto LABEL001
  776.     :LABEL101
  777.     Cls
  778.     DispFile PPEPath() + "080.pcb", 0
  779.     Wait
  780.     Goto LABEL001
  781.     :LABEL102
  782.     Cls
  783.     DispFile PPEPath() + "090.pcb", 0
  784.     Wait
  785.     Goto LABEL001
  786.     :LABEL103
  787.     Cls
  788.     DispFile PPEPath() + "010.pcb", 0
  789.     Wait
  790.     Goto LABEL001
  791.     :LABEL104
  792.     Cls
  793.     DispFile PPEPath() + "011.PCB", 0
  794.     Wait
  795.     Goto LABEL001
  796.     :LABEL105
  797.     Cls
  798.     PrintLn "@X0812@X05.@X080  @X03MY OWN ADDITION"
  799.     PrintLn "                    "
  800.     PrintLn "   @X08I wrote this @X05PPE @X08for @X04EDUCATIONAL USE ONLY@X05!!!! @X08Any use of the contents "
  801.     PrintLn "is prohibited by law@X05. @X08I made no other changes other than this final page@X05,@X08 and"
  802.     PrintLn "the color to every page in@X05-@X08between@X05.@X08 I am in no way associated with the author"
  803.     PrintLn "of the cookbook and am in no way responsible for any damage casued by the use"
  804.     PrintLn "of the contents containd herin. "
  805.     PrintLn "                                "
  806.     PrintLn " Greets go out to@X05:                                                           "
  807.     PrintLn "     @X0BEntropy@X05:@X08 Get you board up Lazy ass :)                                   "
  808.     PrintLn "     @X0BPrimus@X05: @X08If your still around thanx for the color scheme!                "
  809.     PrintLn "     @X0BTrite@X05: @X08Stay cool.                                                       "
  810.     PrintLn "     @X0BVio@X05: @X08Keep the CD's coming.                                              "
  811.     PrintLn "                                                                             "
  812.     PrintLn " @X0FDa@X0Bnt@X03e  [@X08DMN Coder]                                                          "
  813.     PrintLn ""
  814.     Wait
  815.     Goto LABEL001
  816.     :LABEL106
  817.     Cls
  818.     Newlines 4
  819.     PrintLn " ─────────────────────────────────────────────────────────────────────── "
  820.     PrintLn "     │   @X0FTh@X0Bat@X03 is@X08 an invalid Section Number, please select again.   │    "
  821.     PrintLn " ─────────────────────────────────────────────────────────────────────── "
  822.     Wait
  823.     Goto LABEL001
  824.     :LABEL107
  825.     Cls
  826.     Delay 5
  827.     Print "@X08Thanx for using the online Anarchists Cookbook v.666 by @X0FD@X08ante [@X03   @X08]"
  828.     Backup 100
  829.     Delay 5
  830.     Print "@X08Thanx for using the online Anarchists Cookbook v.666 by D@X0Fa@X08nte [DMN@X08]"
  831.     Backup 100
  832.     Delay 5
  833.     Print "@X08Thanx for using the online Anarchists Cookbook v.666 by Da@X0Fn@X08te [@X03DMN@X08]"
  834.     Backup 100
  835.     Delay 5
  836.     Print "@X08Thanx for using the online Anarchists Cookbook v.666 by Dan@X0Ft@X08e [@X0BDMN@X08]"
  837.     Backup 100
  838.     Delay 5
  839.     Print "@X08Thanx for using the online Anarchists Cookbook v.666 by Dant@X0Fe @X08[@X0FDMN@X08]"
  840.     Backup 100
  841.     Delay 5
  842.     Print "@X08Thanx for using the online Anarchists Cookbook v.666 by Dan@X0Ft@X08e [@X0BDMN@X08]"
  843.     Backup 100
  844.     Delay 5
  845.     Print "@X08Thanx for using the online Anarchists Cookbook v.666 by Da@X0Fn@X08te [@X03DMN@X08]"
  846.     Backup 100
  847.     Delay 5
  848.     Print "@X08Thanx for using the online Anarchists Cookbook v.666 by D@X0Fa@X08nte [DMN@X08]"
  849.     Backup 100
  850.     Delay 5
  851.     Print "@X08Thanx for using the online Anarchists Cookbook v.666 by @X0FD@X08ante [   @X08]"
  852.     Backup 100
  853.     Delay 5
  854.     Print "@X08Thanx for using the online Anarchists Cookbook v.666 by Dante [@X0FDMN@X08]"
  855.     Backup 100
  856.  
  857. ;------------------------------------------------------------------------------
  858. ;
  859. ; Usage report (before postprocessing)
  860. ;
  861. ; ■ Statements used :
  862. ;
  863. ;    106     Cls
  864. ;    99      Wait
  865. ;    206     Goto 
  866. ;    10      Print 
  867. ;    158     PrintLn 
  868. ;    114     If 
  869. ;    97      DispFile 
  870. ;    7       InputStr 
  871. ;    14      Gosub 
  872. ;    10      Delay 
  873. ;    2       Newline
  874. ;    1       Newlines 
  875. ;    10      Backup 
  876. ;
  877. ;
  878. ; ■ Functions used :
  879. ;
  880. ;    97      +
  881. ;    121     ==
  882. ;    7       ||
  883. ;    97      PPEPath()
  884. ;
  885. ;------------------------------------------------------------------------------
  886. ;
  887. ; Analysis flags : No flag
  888. ;
  889. ;------------------------------------------------------------------------------
  890. ;
  891. ; Postprocessing report
  892. ;
  893. ;    0       For/Next
  894. ;    0       While/EndWhile
  895. ;    0       If/Then or If/Then/Else
  896. ;    0       Select Case
  897. ;
  898. ;------------------------------------------------------------------------------
  899. ;                 AEGiS Corp - Break the routines, code against the machines!
  900. ;------------------------------------------------------------------------------
  901.