home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / BCQT03.ZIP / PROMPT.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-12-13  |  1KB  |  106 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.  
  24. ;------------------------------------------------------------------------------
  25.  
  26.     If (TokCount() > 0) Then
  27.         STRING003 = GetToken()
  28.         STRING004 = PPEPath() + "quote.cfg"
  29.         If (STRING003 == 222) Then
  30.             STRING003 = ""
  31.             InputStr ReadLine(STRING004, 5), STRING003, 7, 10, Mask_Pwd(), 8
  32.             Goto LABEL001
  33.         Endif
  34.         STRING003 = ""
  35.         InputStr ReadLine(STRING004, 6), STRING003, 7, 10, Mask_Pwd(), 8
  36.         :LABEL001
  37.         FreshLine
  38.         KbdStuff STRING003
  39.     Endif
  40.     STRING002 = Inkey()
  41.     STRING001 = ""
  42.     While (STRING002 <> "") Do
  43.         STRING001 = STRING001 + STRING002
  44.         STRING002 = Inkey()
  45.     EndWhile
  46.     If (STRING001 == "Q") Then
  47.         Tokenize "/normal"
  48.         Call PPEPath() + "quote.ppe"
  49.         End
  50.     Endif
  51.     KbdStuff STRING001 + Chr(13)
  52.  
  53. ;------------------------------------------------------------------------------
  54. ;
  55. ; Usage report (before postprocessing)
  56. ;
  57. ; ■ Statements used :
  58. ;
  59. ;    1       End
  60. ;    6       Goto 
  61. ;    8       Let 
  62. ;    4       If 
  63. ;    2       InputStr 
  64. ;    1       Tokenize 
  65. ;    2       KbdStuff 
  66. ;    1       Call 
  67. ;    1       FreshLine
  68. ;
  69. ;
  70. ; ■ Functions used :
  71. ;
  72. ;    4       +
  73. ;    2       ==
  74. ;    1       <>
  75. ;    1       >
  76. ;    4       !
  77. ;    1       Chr()
  78. ;    2       Inkey()
  79. ;    2       Mask_Pwd()
  80. ;    2       PPEPath()
  81. ;    2       ReadLine()
  82. ;    1       GetToken()
  83. ;    1       TokCount()
  84. ;
  85. ;------------------------------------------------------------------------------
  86. ;
  87. ; Analysis flags : C
  88. ;
  89. ; C - Call child PPE ■ 3
  90. ;     This is usually normal, but may be a tricky way to launch some
  91. ;     sysop-only commands.
  92. ;     ■ Search for : CALL
  93. ;
  94. ;------------------------------------------------------------------------------
  95. ;
  96. ; Postprocessing report
  97. ;
  98. ;    0       For/Next
  99. ;    1       While/EndWhile
  100. ;    3       If/Then or If/Then/Else
  101. ;    0       Select Case
  102. ;
  103. ;------------------------------------------------------------------------------
  104. ;                 AEGiS Corp - Break the routines, code against the machines!
  105. ;------------------------------------------------------------------------------
  106.