home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / LOGON-X.ZIP / HANDLE.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-08-18  |  4KB  |  246 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.     Boolean  BOOLEAN001
  20.     Integer  INTEGER001
  21.     Integer  INTEGER002
  22.     Integer  INTEGER003
  23.     Integer  INTEGER004
  24.     Integer  INTEGER005
  25.     Integer  INTEGER006
  26.     String   STRING001
  27.     String   STRING002
  28.     String   TSTRING003(4)
  29.     String   STRING004
  30.     String   STRING005
  31.     String   STRING006
  32.  
  33. ;------------------------------------------------------------------------------
  34.  
  35.     TSTRING003(0) = "/"
  36.     TSTRING003(1) = "-"
  37.     TSTRING003(2) = "\"
  38.     TSTRING003(3) = "|"
  39.     DispFile PPEPath() + "LOGON-X.PCB", 0
  40.     Delay 25
  41.     STRING004 = "LoGoN-X DoNe BY TRaNS FiGHTeR"
  42.     INTEGER004 = 7
  43.     INTEGER002 = 28
  44.     INTEGER003 = 6
  45.     Gosub LABEL005
  46.     Delay 25
  47.     INTEGER002 = 34
  48.     INTEGER003 = 9
  49.     STRING001 = "@X0Fe"
  50.     Gosub LABEL004
  51.     INTEGER002 = INTEGER002 + 1
  52.     STRING001 = "@X09N"
  53.     Gosub LABEL004
  54.     INTEGER002 = INTEGER002 + 1
  55.     STRING001 = "@X01T"
  56.     Gosub LABEL004
  57.     INTEGER002 = INTEGER002 + 1
  58.     STRING001 = "e"
  59.     Gosub LABEL004
  60.     INTEGER002 = INTEGER002 + 1
  61.     STRING001 = "R"
  62.     Gosub LABEL004
  63.     INTEGER002 = INTEGER002 + 1
  64.     STRING001 = " "
  65.     Gosub LABEL004
  66.     INTEGER002 = INTEGER002 + 1
  67.     STRING001 = "u"
  68.     Gosub LABEL004
  69.     INTEGER002 = INTEGER002 + 1
  70.     STRING001 = "R"
  71.     Gosub LABEL004
  72.     INTEGER002 = INTEGER002 + 1
  73.     STRING001 = " "
  74.     Gosub LABEL004
  75.     INTEGER002 = INTEGER002 + 1
  76.     STRING001 = "H"
  77.     Gosub LABEL004
  78.     INTEGER002 = INTEGER002 + 1
  79.     STRING001 = "a"
  80.     Gosub LABEL004
  81.     INTEGER002 = INTEGER002 + 1
  82.     STRING001 = "N"
  83.     Gosub LABEL004
  84.     INTEGER002 = INTEGER002 + 1
  85.     STRING001 = "D"
  86.     Gosub LABEL004
  87.     INTEGER002 = INTEGER002 + 1
  88.     STRING001 = "@X09L"
  89.     Gosub LABEL004
  90.     INTEGER002 = INTEGER002 + 1
  91.     STRING001 = "@X0Fe"
  92.     Gosub LABEL004
  93.     INTEGER002 = INTEGER002 + 1
  94.     STRING001 = "@X08:"
  95.     Gosub LABEL004
  96.     Delay 7
  97.     INTEGER002 = 37
  98.     INTEGER003 = 11
  99.     Print "@X0F"
  100.     AnsiPos 37, 11
  101.     BOOLEAN001 = 1
  102.     :LABEL001
  103.     STRING001 = ""
  104.     Gosub LABEL004
  105.     STRING001 = Inkey()
  106.     STRING001 = Upper(STRING001)
  107.     If (((((STRING001 == "A") || (STRING001 == "E")) || (STRING001 == "I")) || (STRING001 == "O")) || (STRING001 == "U")) STRING001 = Lower(STRING001)
  108.     If ((((STRING001 == "UP") || (STRING001 == "DOWN")) || (STRING001 == "LEFT")) || (STRING001 == "RIGHT")) Goto LABEL002
  109.     If ((STRING001 == Chr(8)) && !(STRING002 == "")) Then
  110.         AnsiPos INTEGER002, INTEGER003
  111.         Print "@X0F·"
  112.         STRING002 = Left(STRING002, Len(STRING002) - 1)
  113.         INTEGER002 = INTEGER002 - 1
  114.         STRING001 = " "
  115.     Else
  116.         If (STRING001 == Chr(8)) Goto LABEL002
  117.         If (STRING001 == Chr(13)) Goto LABEL003
  118.         If (Len(STRING002) == 18) Goto LABEL002
  119.         If (STRING001 == "") Goto LABEL002
  120.         STRING002 = STRING002 + STRING001
  121.         Gosub LABEL004
  122.         INTEGER002 = INTEGER002 + 1
  123.         STRING001 = ""
  124.     Endif
  125.     :LABEL002
  126.     Goto LABEL001
  127.     :LABEL003
  128.     KbdStuff Upper(STRING002) + Chr(13)
  129.     End
  130.     :LABEL004
  131.     If ((INTEGER001 == 0) && (BOOLEAN001 == 0)) Then
  132.         AnsiPos INTEGER002, INTEGER003
  133.         Print "/"
  134.         Delay 1
  135.         AnsiPos INTEGER002, INTEGER003
  136.         Print "-"
  137.         Delay 1
  138.         INTEGER001 = 1 - INTEGER001
  139.     ElseIf ((INTEGER001 == 1) && (BOOLEAN001 == 0)) Then
  140.         AnsiPos INTEGER002, INTEGER003
  141.         Print "\"
  142.         Delay 1
  143.         AnsiPos INTEGER002, INTEGER003
  144.         Print "|"
  145.         Delay 1
  146.         INTEGER001 = 1 - INTEGER001
  147.     ElseIf (BOOLEAN001 == 1) Then
  148.         AnsiPos INTEGER002, INTEGER003
  149.         Print TSTRING003(INTEGER001)
  150.         Delay 1
  151.         INTEGER001 = INTEGER001 + 1
  152.         If (INTEGER001 == 4) INTEGER001 = 0
  153.     Endif
  154.     AnsiPos INTEGER002, INTEGER003
  155.     Print STRING001
  156.     Delay 1
  157.     Return
  158.     :LABEL005
  159.     For INTEGER006 = 1 To Len(STRING004)
  160.         AnsiPos INTEGER002 + INTEGER006 - 1, INTEGER003
  161.         If (INTEGER001 == 0) Then
  162.             Print "/"
  163.             AnsiPos INTEGER002 + INTEGER006 - 1, INTEGER003
  164.             Print "-"
  165.             AnsiPos INTEGER002 + INTEGER006 - 1, INTEGER003
  166.         Else
  167.             Print "\"
  168.             AnsiPos INTEGER002 + INTEGER006 - 1, INTEGER003
  169.             Print "|"
  170.             AnsiPos INTEGER002 + INTEGER006 - 1, INTEGER003
  171.         Endif
  172.         INTEGER001 = 1 - INTEGER001
  173.         If (INTEGER004 == 7) Then
  174.             STRING005 = "@X07"
  175.             STRING006 = "@X08"
  176.         Else
  177.             STRING005 = "@X0" + String(INTEGER004 + 8)
  178.             STRING006 = "@X0" + String(INTEGER004)
  179.         Endif
  180.         If (INTEGER005 == 0) Print "@X0F"
  181.         If (INTEGER005 == 1) Print STRING005
  182.         If (INTEGER005 == 2) Print STRING006
  183.         Print Mid(STRING004, INTEGER006, 1)
  184.         INTEGER005 = INTEGER005 + 1
  185.         If (INTEGER005 == 3) INTEGER005 = 2
  186.         If (Mid(STRING004, INTEGER006, 1) == " ") INTEGER005 = 0
  187.     Next
  188.     Return
  189.  
  190. ;------------------------------------------------------------------------------
  191. ;
  192. ; Usage report (before postprocessing)
  193. ;
  194. ; ■ Statements used :
  195. ;
  196. ;    1       End
  197. ;    19      Goto 
  198. ;    68      Let 
  199. ;    16      Print 
  200. ;    19      If 
  201. ;    1       DispFile 
  202. ;    19      Gosub 
  203. ;    2       Return
  204. ;    9       Delay 
  205. ;    1       KbdStuff 
  206. ;    13      AnsiPos 
  207. ;
  208. ;
  209. ; ■ Functions used :
  210. ;
  211. ;    30      +
  212. ;    10      -
  213. ;    28      ==
  214. ;    1       <
  215. ;    1       <=
  216. ;    2       >=
  217. ;    8       !
  218. ;    5       &&
  219. ;    8       ||
  220. ;    4       Len(
  221. ;    1       Lower()
  222. ;    2       Upper()
  223. ;    2       Mid()
  224. ;    1       Left()
  225. ;    4       Chr()
  226. ;    1       Inkey()
  227. ;    2       String()
  228. ;    1       PPEPath()
  229. ;
  230. ;------------------------------------------------------------------------------
  231. ;
  232. ; Analysis flags : No flag
  233. ;
  234. ;------------------------------------------------------------------------------
  235. ;
  236. ; Postprocessing report
  237. ;
  238. ;    1       For/Next
  239. ;    0       While/EndWhile
  240. ;    6       If/Then or If/Then/Else
  241. ;    0       Select Case
  242. ;
  243. ;------------------------------------------------------------------------------
  244. ;                 AEGiS Corp - Break the routines, code against the machines!
  245. ;------------------------------------------------------------------------------
  246.