home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / PHRIPKI2.ZIP / ARDAP.ZIP / ARDAP.PPE (.txt) next >
PCBoard Programming Language Executable  |  1994-11-07  |  7KB  |  214 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.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     String   STRING007
  26.     String   STRING008
  27.     String   STRING009
  28.     String   STRING010
  29.     String   STRING011
  30.  
  31. ;------------------------------------------------------------------------------
  32.  
  33.     STRING005 = "fwrip"
  34.     STRING008 = ".KEY"
  35.     STRING007 = ".BOB"
  36.     STRING010 = "000-00-0000"
  37.     If (CheckRip()) Then
  38.         STRING011 = "Y"
  39.     Else
  40.         STRING011 = "N"
  41.     Endif
  42.     FOpen 1, PPEPath() + "PHRIPKIT.CNF", 0, 0
  43.     FGet 1, STRING002
  44.     FGet 1, STRING003
  45.     FGet 1, STRING004
  46.     FGet 1, STRING006
  47.     FClose 1
  48.     If (Exist(PPEPath() + STRING005 + STRING008)) Goto LABEL004
  49.     If (Exist(PPEPath() + "SUPP" + STRING008)) Goto LABEL003
  50.     Goto LABEL005
  51.     :LABEL001
  52.     If (STRING009 == "N") Goto LABEL009
  53.     :LABEL002
  54.     Gosub LABEL006
  55.     If (STRING011 == "N") Goto LABEL010
  56.     PrintLn "POFF"
  57.     PrintLn "@CLS@"
  58.     PrintLn "!|*|1K|w03042A0R11|S0100|B0A08GO6G|S0101|B0A08GO0O|W0|c08|=00000003|R0A08GO6G"
  59.     PrintLn "!|Y00000100|1B00000000LC0400000B010900000009000000|1U0B6PGT980000"
  60.     PrintLn "!|1B00000000LC040000010B0900000009000000|1U0K6XGK900000|c09"
  61.     PrintLn "!|l060L6X0L6X0L7IGK7IGK6X0M6X|=00000001|c08|l060K6W0K6W0K7HGJ7HGJ6W0L6W"
  62.     PrintLn "!|1B00000000LC0400000A080200000002000000|1UDX7PGB850000"
  63.     PrintLn "!|1B00000000LC0400000C080400000004000000|1UDY8FG88V0000"
  64.     PrintLn "!|1B00000000LC0400000F040C0000000C000000|1U0P70GF7F0000|c0F|Y08000100"
  65.     PrintLn "!|@0V6TA B C D E F G I J K L M N O P Q R S T U V W X Y Z"
  66.     PrintLn "!|1B00000000LC030000080F0700000007000000|1U0N7N3D7Y0000|1C0H7K3J820|1P3I7K000"
  67.     PrintLn "!|1P6J7K000|1P9L7K000|1C0I7KCK820|1P0H83000"
  68.     PrintLn "!|1B00000000LC0400000B010900000009000000|1UCR7PDM8U0000|@EA7IEnter|@EI88Quit"
  69.     PrintLn "!|Y08010100|@CQ7KMore|c00|Y00000100|@1J7QTest|@4S7PTS|@1M87QWK|@4I87Open"
  70.     PrintLn "!|@7K7ONews|@7N87Who|@AN7PHelp|@AN89Chat|c0F"
  71.     PrintLn "!|@2O8PThe Phantom Ansi / Rip Adapter 1.0"
  72.     PrintLn "!|@0H0CThis Phantom PPE is Registered to : ***" + String(STRING002) + " ***|c0E|Y00010100"
  73.     PrintLn "!|@H007The Phantom BBS 716-366-3884|1M000Q701A7F1000000a^M"
  74.     PrintLn "!|1M001D701X7G1000000b^M|1M00206Z2I7G1000000c^M|1M002N70377F1000000d^M"
  75.     PrintLn "!|1M0039703Q7F1000000e^M|1M003Y704E7F1000000f^M|1M004I71507F1000000g^M"
  76.     PrintLn "!|1M0055715G7F1000000i^M|1M005P70627F1000000j^M|1M0064706N7F1000000k^M"
  77.     PrintLn "!|1M00757E7B7G1000000l^M|1M006T707A7F1000000l^M|1M007F707Y7F1000000m^M"
  78.     PrintLn "!|1M00846U8N7I1000000n^M|1M008R70997H1000000o^M|1M009G6Z9V7F1000000p^M"
  79.     PrintLn "!|1M00A270AL7H1000000q^M|1M00AO70B57G1000000r^M|1M00BB70BP7F1000000s^M"
  80.     PrintLn "!|1M00BW70CB7G1000000t^M|1M00CI70CX7F1000000u^M|1M00D671DO7G1000000v^M"
  81.     PrintLn "!|1M00DV6ZEC7G1000000w^M|1M00EK6ZEZ7H1000000x^M|1M00F670FN7H1000000y^M"
  82.     PrintLn "!|1M00FU6ZGA7H1000000z^M|1M00DS7KGG8B1000000^M|1M00DS8AGF911000000Q^M"
  83.     PrintLn "!|1M00CK7KDS911000000More^M|1M000K7K3H821000000test^M|1M003K7J6I821000000ts^M"
  84.     PrintLn "!|1M006K7J9L831000000news^M|1M009L7KCI831000000Help^M|1M000I823H8N1000000qwk^M"
  85.     PrintLn "!|1M003J826G8M1000000op^M|1M006L839J8O1000000who^M|1M009M83CI8N1000000Chat^M"
  86.     PrintLn "@PON@"
  87.     If (STRING006 == "N") Goto LABEL010
  88.     Call STRING006
  89.     Goto LABEL010
  90.     :LABEL003
  91.     STRING009 = "Y"
  92.     Goto LABEL001
  93.     :LABEL004
  94.     STRING009 = "Y"
  95.     Goto LABEL001
  96.     :LABEL005
  97.     STRING009 = "N"
  98.     Goto LABEL007
  99.     :LABEL006
  100.     Return
  101.     :LABEL007
  102.     If (STRING011 == "Y") Goto LABEL008
  103.     Cls
  104.     PrintLn 
  105.     PrintLn 
  106.     PrintLn 
  107.     PrintLn "           @X1B┌────────────────────────────────────────────────────┐@X0B"
  108.     PrintLn "           @X1B│          @X10┌─────────────────────────────@X19┐  @X1B         │@X0B"
  109.     PrintLn "           @X1B│          @X10│  @X9CTHIS PPE IS UNREGISTERED   @X19│           @X1B│@X0B"
  110.     PrintLn "           @X1B│          @X10└@X19─────────────────────────────┘           @X1B│@X0B"
  111.     PrintLn "           @X1B│ @X1FThis is a unregistered PHANTOM WARE PPE. Please    @X1B│@X0B"
  112.     PrintLn "           @X1B│   @X1Fask your sysop to register it ! It only cost     @X1B│@X0B"
  113.     PrintLn "           @X1B│   @X1A$@X0A@X1C" + String("") + "@X1F!! When this ppe is registered this nag@X1B    │@X0B"
  114.     PrintLn "           @X1B│   screen will go away! @X1ERegistering this ppe will   @X1B│@X0B"
  115.     PrintLn "           @X1B│   @X1Ealso remove the unregistered notes and any       @X1B│@X0B"
  116.     PrintLn "           @X1B│   @X1Edealys!!    @X9CPlease register today!               @X9B@X1B│@X0B"
  117.     PrintLn "           @X1B└────────────────────────────────────────────────────┘@X0B"
  118.     PrintLn 
  119.     PrintLn "              @X0AThe Phantom BBS 134 Nevins ST. Dunkirk Ny. 140048"
  120.     PrintLn "                             @X0C(@X0B716@X0C)-@X0B366@X0C-@X0B3884      "
  121.     PrintLn "                             @X0C(@X0B716@X0C)-@X0B792@X0C-@X0B4374      "
  122.     PrintLn "                  @X0Cvoice help (@X0B716@X0C)-@X0B366@X0C-@X0B2003      "
  123.     PrintLn "            @X0D@X0E=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= "
  124.     PrintLn "                            PAUSEING FOR 10 SEC.  @X0E"
  125.     PrintLn 
  126.     Delay 120
  127.     Goto LABEL001
  128.     :LABEL008
  129.     PrintLn "!|*|1K|1B00000000LC030000010B0900000009000000|1U0Q0XHO9H0000"
  130.     PrintLn "!|1B00000000LC0500000F040C0000000C000000|1U1A1DGW3Q0000|W0|c00|Y01000300"
  131.     PrintLn "!|@241HThis Phantom-ware PPE is UNREGISTERED\!|c0F"
  132.     PrintLn "!|@332DPlease ask your sysop to registere it\!"
  133.     PrintLn "!|1B00000000LC0500000F000800000008000000|1U1284H8950000|c0A"
  134.     PrintLn "!|@4O87Pausing for a few seconds \!\!|1B00000000LC0400000F080700000007000000"
  135.     PrintLn "!|1U1A47GW7K0000|1B00000000LC040000080F0700000007000000|1U1J4FGN7C0000"
  136.     PrintLn "!|1B00000000LC0300000F080700000007000000|1U1O4IGI5F0000|c00|Y04000200"
  137.     PrintLn "!|@3N4K~~ Phantom Computer Sales & Service ~~|@4V5KVoice suport (716)-366-2003"
  138.     PrintLn "!|@5G6CBBS. # (716)-366-3884|c0F|Y07000100"
  139.     Delay 120
  140.     Goto LABEL001
  141.     :LABEL009
  142.     If (STRING010 == STRING004) Goto LABEL002
  143.     Cls
  144.     For STRING001 = 1 To 7
  145.         PrintLn 
  146.     Next
  147.     PrintLn " -------->@X8C " + String(STRING004)
  148.     PrintLn "  @X8C┌────────────────────────────────────────────────────────────────┐ "
  149.     PrintLn "  @X8C│ @X0ESo you thought you might change the ser# and it might make     @X8C│ "
  150.     PrintLn "  @X8C│  @X0Ethis ppe run as if it where registered! @X8CNOT!! @X0BNow change      @X8C│ "
  151.     PrintLn "  │  @X8B@X0Bit back to @X0F@X0A000-00-0000 @X0Band the program will work agin!        @X0C@X8C│ "
  152.     PrintLn "  └────────────────────────────────────────────────────────────────┘ @X0F"
  153.     Delay 100
  154.     :LABEL010
  155.     End
  156.  
  157. ;------------------------------------------------------------------------------
  158. ;
  159. ; Usage report (before postprocessing)
  160. ;
  161. ; ■ Statements used :
  162. ;
  163. ;    1       End
  164. ;    2       Cls
  165. ;    19      Goto 
  166. ;    11      Let 
  167. ;    70      PrintLn 
  168. ;    9       If 
  169. ;    1       FOpen 
  170. ;    1       FClose 
  171. ;    4       FGet 
  172. ;    1       Gosub 
  173. ;    1       Return
  174. ;    3       Delay 
  175. ;    1       Call 
  176. ;
  177. ;
  178. ; ■ Functions used :
  179. ;
  180. ;    11      +
  181. ;    5       ==
  182. ;    1       <
  183. ;    1       <=
  184. ;    2       >=
  185. ;    2       !
  186. ;    2       &&
  187. ;    1       ||
  188. ;    3       String()
  189. ;    3       PPEPath()
  190. ;    2       Exist()
  191. ;    1       CheckRip()
  192. ;
  193. ;------------------------------------------------------------------------------
  194. ;
  195. ; Analysis flags : C
  196. ;
  197. ; C - Call child PPE ■ 3
  198. ;     This is usually normal, but may be a tricky way to launch some
  199. ;     sysop-only commands.
  200. ;     ■ Search for : CALL
  201. ;
  202. ;------------------------------------------------------------------------------
  203. ;
  204. ; Postprocessing report
  205. ;
  206. ;    1       For/Next
  207. ;    0       While/EndWhile
  208. ;    1       If/Then or If/Then/Else
  209. ;    0       Select Case
  210. ;
  211. ;------------------------------------------------------------------------------
  212. ;                 AEGiS Corp - Break the routines, code against the machines!
  213. ;------------------------------------------------------------------------------
  214.