home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / TDA-DISC.ZIP / DISCLAIM.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-01-02  |  2KB  |  174 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.     String   STRING001
  23.     String   STRING002
  24.     String   STRING003
  25.     String   STRING004
  26.     String   STRING005
  27.     String   STRING006
  28.     String   TSTRING007(3)
  29.  
  30. ;------------------------------------------------------------------------------
  31.  
  32.     Print "@POFF@"
  33.     TSTRING007(1) = "@X08"
  34.     TSTRING007(2) = "@X07"
  35.     TSTRING007(3) = "@X0F"
  36.     Cls
  37.     DispFile PPEPath() + "DISCLAIM.ANS", 1
  38.     FOpen 1, PPEPath() + "DISCLAIM.CFG", 0, 1
  39.     FGet 1, STRING001
  40.     FGet 1, STRING002
  41.     FGet 1, STRING003
  42.     AnsiPos STRING001, STRING002
  43.     INTEGER003 = Len(STRING003)
  44.     :LABEL001
  45.     STRING004 = Inkey()
  46.     If (STRING004 <> "") Goto LABEL002
  47.     Goto LABEL001
  48.     :LABEL002
  49.     If (STRING004 == Chr(13)) Goto LABEL003
  50.     If (STRING004 == Chr(8)) Goto LABEL004
  51.     If (Len(STRING004) > 1) Goto LABEL001
  52.     If (Len(STRING005) == INTEGER003) Goto LABEL001
  53.     AnsiPos STRING001, STRING002
  54.     Print STRING004
  55.     STRING001 = STRING001 + 1
  56.     STRING005 = STRING005 + STRING004
  57.     Goto LABEL001
  58.     :LABEL003
  59.     If (Upper(STRING005) == Upper(STRING003)) Goto LABEL007
  60.     If (Upper(STRING005) == "TDA") Gosub LABEL005
  61.     INTEGER001 = INTEGER001 + 1
  62.     If (INTEGER001 == 3) Goto LABEL006
  63.     STRING001 = STRING001 - Len(STRING005)
  64.     STRING005 = ""
  65.     STRING006 = ""
  66.     AnsiPos STRING001, STRING002
  67.     INTEGER002 = 0
  68.     While (((1 < 0) && (INTEGER002 >= Len(STRING003) - 1)) || ((1 >= 0) && (INTEGER002 <= Len(STRING003) - 1))) Do
  69.         Print " "
  70.         INTEGER002 = INTEGER002 + 1
  71.     EndWhile
  72.     AnsiPos STRING001, STRING002
  73.     Goto LABEL001
  74.     :LABEL004
  75.     If (Len(STRING005) == 0) Goto LABEL001
  76.     STRING001 = STRING001 - 1
  77.     AnsiPos STRING001, STRING002
  78.     Print " "
  79.     STRING005 = Mid(STRING005, 1, Len(STRING005) - 1)
  80.     AnsiPos STRING001, STRING002
  81.     Goto LABEL001
  82.     :LABEL005
  83.     INTEGER001 = INTEGER001 - 1
  84.     For INTEGER002 = 1 To 3
  85.         AnsiPos 17, 24
  86.         Print TSTRING007(INTEGER002)
  87.         Print "-/ The Dark Ages - The Ever Growing PC Force \-"
  88.         Delay 4
  89.     Next
  90.     For INTEGER002 = 3 To 1 Step -1
  91.         AnsiPos 17, 24
  92.         Print TSTRING007(INTEGER002)
  93.         Print "-/ The Dark Ages - The Ever Growing PC Force \-"
  94.         Delay 4
  95.     Next
  96.     AnsiPos 17, 24
  97.     Print "@X0F"
  98.     Print "                                                "
  99.     Return
  100.     :LABEL006
  101.     AnsiPos 80, 23
  102.     PrintLn "@X0F Di@X07sco@X08nn@X07ect@X0Fing@X07..."
  103.     Hangup
  104.     :LABEL007
  105.     Print "@PON@"
  106.     AnsiPos 80, 23
  107.     End
  108.  
  109. ;------------------------------------------------------------------------------
  110. ;
  111. ; Usage report (before postprocessing)
  112. ;
  113. ; ■ Statements used :
  114. ;
  115. ;    1       End
  116. ;    1       Cls
  117. ;    18      Goto 
  118. ;    20      Let 
  119. ;    11      Print 
  120. ;    1       PrintLn 
  121. ;    12      If 
  122. ;    1       DispFile 
  123. ;    1       FOpen 
  124. ;    3       FGet 
  125. ;    1       Hangup
  126. ;    1       Gosub 
  127. ;    1       Return
  128. ;    2       Delay 
  129. ;    11      AnsiPos 
  130. ;
  131. ;
  132. ; ■ Functions used :
  133. ;
  134. ;    3       -
  135. ;    8       +
  136. ;    6       -
  137. ;    7       ==
  138. ;    1       <>
  139. ;    3       <
  140. ;    3       <=
  141. ;    1       >
  142. ;    6       >=
  143. ;    3       !
  144. ;    6       &&
  145. ;    3       ||
  146. ;    8       Len(
  147. ;    3       Upper()
  148. ;    1       Mid()
  149. ;    2       Chr()
  150. ;    1       Inkey()
  151. ;    2       PPEPath()
  152. ;
  153. ;------------------------------------------------------------------------------
  154. ;
  155. ; Analysis flags : B
  156. ;
  157. ; B - Brute hangup ■ 1
  158. ;     Program hangup without notification. This may be a good way to
  159. ;     disconnect a user, but if used randomly, may be very nasty
  160. ;     ■ Search for : HANGUP, DTROFF
  161. ;
  162. ;------------------------------------------------------------------------------
  163. ;
  164. ; Postprocessing report
  165. ;
  166. ;    2       For/Next
  167. ;    1       While/EndWhile
  168. ;    0       If/Then or If/Then/Else
  169. ;    0       Select Case
  170. ;
  171. ;------------------------------------------------------------------------------
  172. ;                 AEGiS Corp - Break the routines, code against the machines!
  173. ;------------------------------------------------------------------------------
  174.