home *** CD-ROM | disk | FTP | other *** search
/ The Equalizer BBS / equalizer-bbs-collection_2004.zip / equalizer-bbs-collection / BBS-PCBOARD-STUFF / TLY-NUP1.ZIP / TLY-NUP.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-12-14  |  2KB  |  164 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.     Integer  INTEGER001
  20.     String   STRING001
  21.     String   STRING002
  22.     String   STRING003
  23.     String   STRING004
  24.     String   STRING005
  25.     String   STRING006
  26.     String   STRING007
  27.     String   STRING008
  28.     String   STRING009
  29.     String   STRING010
  30.     String   STRING011
  31.     String   STRING012
  32.     String   STRING013
  33.  
  34. ;------------------------------------------------------------------------------
  35.  
  36.     STRING004 = PPEPath()
  37.     FOpen 1, STRING004 + "TLY-NUP.CFG", 2, 0
  38.     FGet 1, STRING003
  39.     FGet 1, STRING001
  40.     FGet 1, STRING006
  41.     FGet 1, STRING007
  42.     FGet 1, STRING008
  43.     FGet 1, STRING009
  44.     FGet 1, STRING010
  45.     FGet 1, STRING011
  46.     FGet 1, STRING012
  47.     FGet 1, STRING013
  48.     FClose 1
  49.     Cls
  50.     DispFile STRING004 + "_NUP.PCB", 1
  51.     INTEGER001 = 1
  52.     :LABEL001
  53.     STRING005 = "Enter The New User Password."
  54.     Gosub LABEL006
  55.     AnsiPos STRING011, STRING012
  56.     Print "                          "
  57.     AnsiPos STRING011, STRING012
  58.     InputStr "_", STRING002, 1, 26, Mask_Ascii(), 8
  59.     AnsiPos STRING011, STRING012
  60.     Print STRING006 + Upper(STRING002)
  61.     Delay STRING013
  62.     AnsiPos STRING011, STRING012
  63.     Print STRING007 + Upper(STRING002)
  64.     Delay STRING013
  65.     AnsiPos STRING011, STRING012
  66.     Print STRING008 + Upper(STRING002)
  67.     Delay STRING013
  68.     If (Upper(STRING002) == Upper(STRING003)) Goto LABEL002
  69.     Gosub LABEL003
  70.     Goto LABEL003
  71.     :LABEL002
  72.     Goto LABEL005
  73.     :LABEL003
  74.     If (INTEGER001 == STRING001) Goto LABEL004
  75.     Inc INTEGER001
  76.     STRING005 = "    Wrong Nup Entered!!     "
  77.     Gosub LABEL006
  78.     Goto LABEL001
  79.     :LABEL004
  80.     STRING005 = "Too Many Tries! Hanging Up! "
  81.     Gosub LABEL006
  82.     Hangup
  83.     End
  84.     :LABEL005
  85.     STRING005 = "  Yeah! Right On! Welcome!  "
  86.     Gosub LABEL006
  87.     Delay 10
  88.     Cls
  89.     STRING009 = 28
  90.     STRING010 = 12
  91.     STRING005 = "CODED BY SPEED FREAK/TLY '95"
  92.     STRING013 = 3
  93.     Gosub LABEL006
  94.     Delay 10
  95.     Cls
  96.     End
  97.     :LABEL006
  98.     AnsiPos STRING009, STRING010
  99.     Print STRING006 + STRING005
  100.     Delay STRING013
  101.     AnsiPos STRING009, STRING010
  102.     Print STRING007 + STRING005
  103.     Delay STRING013
  104.     AnsiPos STRING009, STRING010
  105.     Print STRING008 + STRING005
  106.     Delay STRING013
  107.     Return
  108.  
  109. ;------------------------------------------------------------------------------
  110. ;
  111. ; Usage report (before postprocessing)
  112. ;
  113. ; ■ Statements used :
  114. ;
  115. ;    2       End
  116. ;    3       Cls
  117. ;    5       Goto 
  118. ;    10      Let 
  119. ;    7       Print 
  120. ;    2       If 
  121. ;    1       DispFile 
  122. ;    1       FOpen 
  123. ;    1       FClose 
  124. ;    10      FGet 
  125. ;    1       Hangup
  126. ;    1       InputStr 
  127. ;    6       Gosub 
  128. ;    1       Return
  129. ;    8       Delay 
  130. ;    1       Inc 
  131. ;    8       AnsiPos 
  132. ;
  133. ;
  134. ; ■ Functions used :
  135. ;
  136. ;    8       +
  137. ;    2       ==
  138. ;    1       !
  139. ;    5       Upper()
  140. ;    1       Mask_Ascii()
  141. ;    1       PPEPath()
  142. ;
  143. ;------------------------------------------------------------------------------
  144. ;
  145. ; Analysis flags : B
  146. ;
  147. ; B - Brute hangup ■ 1
  148. ;     Program hangup without notification. This may be a good way to
  149. ;     disconnect a user, but if used randomly, may be very nasty
  150. ;     ■ Search for : HANGUP, DTROFF
  151. ;
  152. ;------------------------------------------------------------------------------
  153. ;
  154. ; Postprocessing report
  155. ;
  156. ;    0       For/Next
  157. ;    0       While/EndWhile
  158. ;    0       If/Then or If/Then/Else
  159. ;    0       Select Case
  160. ;
  161. ;------------------------------------------------------------------------------
  162. ;                 AEGiS Corp - Break the routines, code against the machines!
  163. ;------------------------------------------------------------------------------
  164.