home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / SMK-RUMO.ZIP / RUMOR.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-04-18  |  3KB  |  180 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.2O (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.  
  28. ;------------------------------------------------------------------------------
  29.  
  30.     STRING004 = " 0123456789!#$%^&*()-=_+`~qwertyuiop[]\|asdfghjkl;'zxcvbnm,./<>?:{}QWERTYUIOPASDFGHJKLZXCVBNM"
  31.     GetUser
  32.     :LABEL001
  33.     FOpen 1, PPEPath() + "RUMOURS.DAT", 2, 3
  34.     DispFile PPEPath() + "RUMOUR.PCB", 0
  35.     :LABEL002
  36.     AnsiPos 16, 20
  37.     Print "@X5F aDD tO LiST @X07      vIEW LiST      qUIT tO BBS "
  38.     :LABEL003
  39.     STRING001 = Inkey()
  40.     If (STRING001 == Chr(13)) Goto LABEL008
  41.     If (STRING001 == "RIGHT") Goto LABEL004
  42.     If (STRING001 == "LEFT") Goto LABEL006
  43.     Goto LABEL003
  44.     :LABEL004
  45.     AnsiPos 16, 20
  46.     Print " aDD tO LiST    @X07  @X5F vIEW LiST @X07     qUIT tO BBS "
  47.     :LABEL005
  48.     STRING001 = Inkey()
  49.     If (STRING001 == Chr(13)) Goto LABEL014
  50.     If (STRING001 == "RIGHT") Goto LABEL006
  51.     If (STRING001 == "LEFT") Goto LABEL002
  52.     Goto LABEL005
  53.     :LABEL006
  54.     AnsiPos 16, 20
  55.     Print " aDD tO LiST       vIEW LiST     @X5F qUIT tO BBS @X07"
  56.     :LABEL007
  57.     STRING001 = Inkey()
  58.     If (STRING001 == Chr(13)) Goto LABEL015
  59.     If (STRING001 == "RIGHT") Goto LABEL002
  60.     If (STRING001 == "LEFT") Goto LABEL004
  61.     Goto LABEL007
  62.     :LABEL008
  63.     AnsiPos 17, 18
  64.     Print "                                              "
  65.     AnsiPos 25, 10
  66.     Print "@X08┌───────────────────────────┐"
  67.     AnsiPos 25, 11
  68.     Print "│@X08                           │"
  69.     AnsiPos 25, 12
  70.     Print "└@X08───────────────────────────┘"
  71.     STRING002 = ""
  72.     AnsiPos 27, 11
  73.     Color 7
  74.     STRING006 = U_Name()
  75.     Print STRING006
  76.     STRING008 = 23 - Len(STRING006) - 4
  77.     Color 15
  78.     InputStr " _", STRING002, 8, STRING008, STRING004, 0
  79.     If (STRING002 == "") Then
  80.         STRING002 = "YELLS"
  81.         AnsiPos 27 + Len(STRING006) + 1, 11
  82.         Print STRING002
  83.     Endif
  84.     STRING007 = STRING006 + " " + STRING002 + " : "
  85.     AnsiPos 10, 14
  86.     Print "@X08┌──────────────────────────────────────────────────────────┐"
  87.     AnsiPos 10, 15
  88.     Print "@X08│                                                          │"
  89.     AnsiPos 10, 16
  90.     Print "@X08└──────────────────────────────────────────────────────────┘"
  91.     STRING003 = ""
  92.     AnsiPos 12, 15
  93.     Color 15
  94.     InputStr "_", STRING003, 15, 56, STRING004, 0
  95.     If (STRING003 == "") Goto LABEL001
  96.     STRING005 = "@X0F" + STRING007 + STRING003
  97.     AnsiPos 1, 22
  98.     :LABEL009
  99.     AnsiPos 24, 18
  100.     Print "@X07sAVE tHIS rUMOUR!  @X5F yES @X57@X07  no "
  101.     :LABEL010
  102.     STRING001 = Inkey()
  103.     If (STRING001 == Chr(13)) Goto LABEL013
  104.     If (STRING001 == "RIGHT") Goto LABEL011
  105.     Goto LABEL010
  106.     :LABEL011
  107.     AnsiPos 24, 18
  108.     Print "sAVE tHIS rUMOUR!   yes  @X5F nO @X07"
  109.     :LABEL012
  110.     STRING001 = Inkey()
  111.     If (STRING001 == Chr(13)) Goto LABEL001
  112.     If (STRING001 == "LEFT") Goto LABEL009
  113.     Goto LABEL012
  114.     :LABEL013
  115.     FSeek 1, 0, 2
  116.     FPutLn 1, STRING005
  117.     FClose 1
  118.     Goto LABEL001
  119.     :LABEL014
  120.     Cls
  121.     DispFile PPEPath() + "RUMORTOP.PCB", 1
  122.     FClose 1
  123.     DispFile PPEPath() + "RUMOURS.DAT", 1
  124.     DispFile PPEPath() + "RUMORBOT.PCB", 1
  125.     Goto LABEL001
  126.     :LABEL015
  127.     End
  128.  
  129. ;------------------------------------------------------------------------------
  130. ;
  131. ; Usage report (before postprocessing)
  132. ;
  133. ; ■ Statements used :
  134. ;
  135. ;    1       End
  136. ;    1       Cls
  137. ;    3       Color 
  138. ;    22      Goto 
  139. ;    13      Let 
  140. ;    14      Print 
  141. ;    15      If 
  142. ;    4       DispFile 
  143. ;    1       FOpen 
  144. ;    2       FClose 
  145. ;    1       FPutLn 
  146. ;    1       GetUser
  147. ;    2       InputStr 
  148. ;    16      AnsiPos 
  149. ;    1       FSeek 
  150. ;
  151. ;
  152. ; ■ Functions used :
  153. ;
  154. ;    12      +
  155. ;    2       -
  156. ;    15      ==
  157. ;    1       !
  158. ;    2       Len(
  159. ;    5       Chr()
  160. ;    1       U_Name()
  161. ;    5       Inkey()
  162. ;    5       PPEPath()
  163. ;
  164. ;------------------------------------------------------------------------------
  165. ;
  166. ; Analysis flags : No flag
  167. ;
  168. ;------------------------------------------------------------------------------
  169. ;
  170. ; Postprocessing report
  171. ;
  172. ;    0       For/Next
  173. ;    0       While/EndWhile
  174. ;    1       If/Then or If/Then/Else
  175. ;    0       Select Case
  176. ;
  177. ;------------------------------------------------------------------------------
  178. ;                 AEGiS Corp - Break the routines, code against the machines!
  179. ;------------------------------------------------------------------------------
  180.