home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / TNT-LOG.ZIP / FAT-LOG.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-09-29  |  5KB  |  249 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.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     String   STRING001
  24.     String   STRING002
  25.     String   STRING003
  26.     String   STRING004
  27.     String   STRING005
  28.     String   STRING006
  29.     String   STRING007
  30.     String   STRING008
  31.     String   STRING009
  32.     String   STRING010
  33.     String   STRING011
  34.  
  35. ;------------------------------------------------------------------------------
  36.  
  37.     STRING011 = "YES"
  38.     INTEGER003 = 1
  39.     STRING008 = "          "
  40.     STRING009 = "00000"
  41.     STRING010 = "NO"
  42.     STRING007 = Chr(13)
  43.     STRING005 = "... FA7-lOGOFF v1.0 by ViPER\TNT ...                                                                         Use your Cursorz to select an option and kick <ENTER> to activate...              UNREGISTERED -+- UNREGISTERED -+- UNREGISTERED"
  44.     INTEGER002 = Len(STRING005) + 80
  45.     STRING006 = ""
  46.     STRING001 = "@X08G@X07o@X0Fodb@X07y@X08e"
  47.     STRING002 = "@X08B@X07a@X0Fck to B@X07B@X08S"
  48.     STRING003 = "@X04G@X04o@X0Codb@X04y@X04e"
  49.     STRING004 = "@X04B@X04a@X0Cck to B@X04B@X04S"
  50.     INTEGER004 = 2
  51.     Cls
  52.     Print "@X08┌─@X07─@X08──@X07─@X08─@X07──@X0F─@X07─@X0F────────────────────────────────────────────────────────────────@X07─@X0F─@X07──@X08┐"
  53.     Print "│ @X01░▒▓@X1B                                                                     @X01█▓▒░ @X08│"
  54.     Print "└@X07──@X0F─@X07─@X0F─────────────────@X07─@X0F─@X07──@X0F┬@X07─@X0F───────────────────@X07─@X0F┬@X07──@X0F─@X07─@X0F─────────────────@X07─@X0F─@X07──@X08─@X07─@X08─@X07─@X08─┘"
  55.     Print "                          @X07│                     │"
  56.     Newline
  57.     Print "@X07                          @X08│                     │"
  58.     Newline
  59.     Print "@X08                          └─@X07─@X08──@X07─@X08─@X07──@X0F─@X07─@X0F─@X07─@X0F─@X07──@X08─@X07─@X08──@X07─@X08─┘"
  60.     AnsiPos 34, 4
  61.     Print STRING001
  62.     AnsiPos 32, 5
  63.     Print STRING002
  64.     While (STRING006 <> Chr(13)) Do
  65.         AnsiPos 6, 2
  66.         Print "@X1B"
  67.         Print Right(Left(STRING005, INTEGER001), 70)
  68.         Delay 1
  69.         INTEGER001 = INTEGER001 + 1
  70.         STRING006 = Inkey()
  71.         If (STRING006 == "UP") Then
  72.             INTEGER003 = INTEGER003 - 1
  73.             STRING011 = "YES"
  74.             If (INTEGER003 < 1) Then
  75.                 INTEGER003 = 1
  76.             Endif
  77.         Endif
  78.         If (STRING006 == "DOWN") Then
  79.             STRING011 = "YES"
  80.             INTEGER003 = INTEGER003 + 1
  81.             If (INTEGER003 > INTEGER004) Then
  82.                 INTEGER003 = INTEGER004
  83.             Endif
  84.         Endif
  85.         If (STRING011 == "YES") Then
  86.             If (INTEGER003 == 1) Then
  87.                 AnsiPos 34, 4
  88.                 Print STRING003
  89.                 AnsiPos 32, 5
  90.                 Print STRING002
  91.                 Goto LABEL001
  92.             Endif
  93.             If (INTEGER003 == 2) Then
  94.                 AnsiPos 32, 5
  95.                 Print STRING004
  96.                 AnsiPos 34, 4
  97.                 Print STRING001
  98.             Endif
  99.         Endif
  100.         :LABEL001
  101.         If (INTEGER001 > INTEGER002) Then
  102.             INTEGER001 = 0
  103.         Endif
  104.         STRING011 = "NÖ"
  105.     EndWhile
  106.     If (INTEGER003 == 1) Then
  107.         Goto LABEL002
  108.     Endif
  109.     While (STRING006 == "DON'T HACK MY TOOLS, LAMER!") Do
  110.     EndWhile
  111.     If (INTEGER003 == 2) Then
  112.         Goto LABEL003
  113.     Endif
  114.     :LABEL002
  115.     Print "@X01"
  116.     Cls
  117.     AnsiPos 1, 1
  118.     Print "@X0F             @X08T@X07H@X0FANX FOR USING FAT-LOGOFF v1.0 BY ViPER^TNT (c)19@X079@X085"
  119.     Newline
  120.     If (STRING010 <> "YES") Then
  121.         Delay Random(5)
  122.         Print "@X0CU"
  123.         Delay Random(5)
  124.         Print " N"
  125.         Delay Random(5)
  126.         Print " R"
  127.         Delay Random(5)
  128.         Print " E"
  129.         Delay Random(5)
  130.         Print " G"
  131.         Delay Random(5)
  132.         Print " I"
  133.         Delay Random(5)
  134.         Print " S"
  135.         Delay Random(5)
  136.         Print " T"
  137.         Delay Random(5)
  138.         Print " E"
  139.         Delay Random(5)
  140.         Print " R"
  141.         Delay Random(5)
  142.         Print " E"
  143.         Delay Random(5)
  144.         Print " D"
  145.         Delay Random(5)
  146.         Print " !"
  147.         Delay Random(5)
  148.         Print "    wHY dUN't yA rEGIZTeR?"
  149.         Delay 18
  150.         AnsiPos 1, 2
  151.         Print "                                                                 "
  152.     Endif
  153.     Hangup
  154.     End
  155.     :LABEL003
  156.     AnsiPos 1, 1
  157.     Print "@X01"
  158.     Cls
  159.     Print "@X0F             @X08T@X07H@X0FANX FOR USING FAT-LOGOFF v1.0 BY ViPER^TNT (c)19@X079@X085"
  160.     AnsiPos 1, 2
  161.     Print "@X08                     @X0A┌────@X02─@X0A─@X02──@X0A─@X02────────────────────────┐"
  162.     AnsiPos 1, 3
  163.     Print "@X02                     @X0A│ @X0BREGISTERED TO @X1B"
  164.     If (STRING008 == "          ") Then
  165.         STRING008 = "dR.nOBODY!"
  166.     Endif
  167.     Print STRING008
  168.     Print "@X0B @X1B#"
  169.     Print STRING009
  170.     Print "@X09 @X02│"
  171.     AnsiPos 1, 4
  172.     Print "@X02                     @X0A└@X02─@X0A─@X02──@X0A─@X02────────────────────────────┘"
  173.     If (STRING009 == "00000") Then
  174.         AnsiPos 24, 5
  175.         Print "@X08PLEASE REGISTER THIS FINE TOOL!"
  176.         Delay 3
  177.         AnsiPos 24, 5
  178.         Print "@X07PLEASE REGISTER THIS FINE TOOL!"
  179.         Delay 5
  180.         AnsiPos 24, 5
  181.         Print "@X0FPLEASE REGISTER THIS FINE TOOL!"
  182.         Delay 25
  183.         AnsiPos 24, 5
  184.         Print "@X07PLEASE REGISTER THIS FINE TOOL!"
  185.         Delay 5
  186.         AnsiPos 24, 5
  187.         Print "@X08PLEASE REGISTER THIS FINE TOOL!"
  188.         Delay 3
  189.         AnsiPos 24, 5
  190.         Print "                                   "
  191.     Endif
  192.     End
  193.  
  194. ;------------------------------------------------------------------------------
  195. ;
  196. ; Usage report (before postprocessing)
  197. ;
  198. ; ■ Statements used :
  199. ;
  200. ;    2       End
  201. ;    3       Cls
  202. ;    20      Goto 
  203. ;    25      Let 
  204. ;    46      Print 
  205. ;    15      If 
  206. ;    1       Hangup
  207. ;    21      Delay 
  208. ;    3       Newline
  209. ;    19      AnsiPos 
  210. ;
  211. ;
  212. ; ■ Functions used :
  213. ;
  214. ;    3       +
  215. ;    1       -
  216. ;    10      ==
  217. ;    2       <>
  218. ;    1       <
  219. ;    2       >
  220. ;    15      !
  221. ;    1       Len(
  222. ;    1       Left()
  223. ;    1       Right()
  224. ;    2       Chr()
  225. ;    14      Random()
  226. ;    1       Inkey()
  227. ;
  228. ;------------------------------------------------------------------------------
  229. ;
  230. ; Analysis flags : B
  231. ;
  232. ; B - Brute hangup ■ 1
  233. ;     Program hangup without notification. This may be a good way to
  234. ;     disconnect a user, but if used randomly, may be very nasty
  235. ;     ■ Search for : HANGUP, DTROFF
  236. ;
  237. ;------------------------------------------------------------------------------
  238. ;
  239. ; Postprocessing report
  240. ;
  241. ;    0       For/Next
  242. ;    2       While/EndWhile
  243. ;    13      If/Then or If/Then/Else
  244. ;    0       Select Case
  245. ;
  246. ;------------------------------------------------------------------------------
  247. ;                 AEGiS Corp - Break the routines, code against the machines!
  248. ;------------------------------------------------------------------------------
  249.