home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / S / SSI!TLOG.ZIP / TLOGONC.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-10-16  |  3KB  |  195 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.     Integer  INTEGER004
  23.     String   STRING001
  24.     String   TSTRING002(16)
  25.     String   TSTRING003(16)
  26.     String   TSTRING004(10)
  27.     String   STRING005
  28.     String   TSTRING006(9)
  29.     String   STRING007
  30.     Declare  Procedure PROC001(Int INT001)
  31.  
  32. ;------------------------------------------------------------------------------
  33.  
  34.     TSTRING006(1) = "@X01"
  35.     TSTRING006(2) = "@X09"
  36.     TSTRING006(3) = "@X0B"
  37.     TSTRING006(4) = "@X0F"
  38.     TSTRING006(5) = "@X0F"
  39.     TSTRING006(6) = "@X0B"
  40.     TSTRING006(7) = "@X09"
  41.     TSTRING006(8) = "@X01"
  42.     TSTRING006(9) = "@X00"
  43.     GetUser
  44.     STRING001 = U_RecNum(U_Name())
  45.     FOpen 0, PPEPath() + "TLOGON.CFG", 2, 0
  46.     FGet 0, STRING007
  47.     FGet 0, INTEGER004
  48.     If (INTEGER004 > 10) Then
  49.         AnsiPos 1, 1
  50.         PrintLn "@X04TLOGON - @X0BT@X03O @X0BM@X03UCH @X0BP@X03PE'S @X0Bi@X03NFORM @X0BT@X03HE @X0BS@X03YSOP @X0BP@X03LEEZE!"
  51.         Wait
  52.         End
  53.     Endif
  54.     For INTEGER002 = 1 To INTEGER004
  55.         FGet 0, TSTRING004(INTEGER002)
  56.     Next
  57.     FGet 0, INTEGER001
  58.     If (INTEGER001 > 16) Then
  59.         AnsiPos 1, 1
  60.         PrintLn "@X04TLOGON - @X0BT@X03O @X0BM@X03UCH @X0BP@X03PE'S @X0Bi@X03NFORM @X0BT@X03HE @X0BS@X03YSOP @X0BP@X03LEEZE!"
  61.         Wait
  62.         End
  63.     Endif
  64.     For INTEGER002 = 1 To INTEGER001
  65.         FGet 0, TSTRING003(INTEGER002)
  66.         FGet 0, TSTRING002(INTEGER002)
  67.     Next
  68.     FCloseAll
  69.     Gosub LABEL002
  70.     FCreate 0, PPEPath() + STRING001, 1, 0
  71.     For INTEGER002 = 1 To INTEGER004
  72.         FPutLn 0, TSTRING004(INTEGER002)
  73.     Next
  74.     For INTEGER002 = 1 To INTEGER001
  75.         For INTEGER003 = 1 To 4
  76.             Color 14
  77.             AnsiPos (80 - Len(TSTRING003(INTEGER002))) / 2, (16 - INTEGER001) / 2 + 2 + INTEGER002
  78.             Print TSTRING006(INTEGER003) + TSTRING003(INTEGER002)
  79.             Delay 2
  80.         Next
  81.         :LABEL001
  82.         STRING005 = Inkey()
  83.         If (Upper(STRING005) == "Y") Then
  84.             FPutLn 0, TSTRING002(INTEGER002)
  85.             Continue
  86.         Endif
  87.         If (Upper(STRING005) == "N") Continue
  88.         Goto LABEL001
  89.     Next
  90.     FCloseAll
  91.     For INTEGER002 = 1 To INTEGER001
  92.         For INTEGER003 = 5 To 9
  93.             Color 0
  94.             AnsiPos (80 - Len(TSTRING003(INTEGER002))) / 2, (16 - INTEGER001) / 2 + 2 + INTEGER002
  95.             Print TSTRING006(INTEGER003) + TSTRING003(INTEGER002)
  96.             Delay 2
  97.         Next
  98.     Next
  99.     PROC001(10)
  100.     Color 7
  101.     Cls
  102.     End
  103.     :LABEL002
  104.     Color 0
  105.     PrintLn "@CLS@@POFF@@X07        @X03                @X08■]@X03 @X0BT@X03URBO @X0BL@X03OGON @X0BC@X03ONFiGURATiON @X08[■@X07"
  106.     PrintLn "@X08─  ─ ── ────@X07─@X08─@X07──@X08─@X07─────@X0F─@X07─@X0F──@X07─@X0F───@X07─@X0F──────────────@X07─@X0F───@X07─@X0F──@X07─@X0F─@X07─────@X08─@X07───@X08─@X07──@X08─@X07─@X08───── ── ─"
  107.     AnsiPos 1, 19
  108.     PrintLn "@X08─  ─ ── ────@X07─@X08─@X07──@X08─@X07─────@X0F─@X07─@X0F──@X07─@X0F───@X07─@X0F──────────────@X07─@X0F───@X07─@X0F──@X07─@X0F─@X07─────@X08─@X07───@X08─@X07──@X08─@X07─@X08───── ── ─"
  109.     PrintLn "                          ■] @X0BS@X03iMPLY @X0BP@X03RESS @X05Y@X03 @X0BO@X03R@X05 N@X08 [■@X07"
  110.     Return
  111.     End
  112.  
  113. ;------------------------------------------------------------------------------
  114.  
  115.     Procedure PROC001(Int INT001)
  116.  
  117.     String   STRING008
  118.  
  119.     STRING008 = "TURBO LOGON V1.0 φ DONE BY KeMNoZ"
  120.     For INTEGER002 = 1 To 9
  121.         Color 0
  122.         AnsiPos (80 - Len(STRING008)) / 2, INT001
  123.         Print TSTRING006(INTEGER002) + STRING008
  124.         Delay 2
  125.     Next
  126.     Color 7
  127.  
  128.     EndProc
  129.  
  130.  
  131. ;------------------------------------------------------------------------------
  132. ;
  133. ; Usage report (before postprocessing)
  134. ;
  135. ; ■ Statements used :
  136. ;
  137. ;    4       End
  138. ;    1       Cls
  139. ;    2       Wait
  140. ;    6       Color 
  141. ;    23      Goto 
  142. ;    28      Let 
  143. ;    3       Print 
  144. ;    6       PrintLn 
  145. ;    12      If 
  146. ;    1       FCreate 
  147. ;    1       FOpen 
  148. ;    6       FGet 
  149. ;    2       FPutLn 
  150. ;    1       GetUser
  151. ;    1       Gosub 
  152. ;    1       Return
  153. ;    3       Delay 
  154. ;    6       AnsiPos 
  155. ;    2       FCloseAll
  156. ;    1       EndProc
  157. ;
  158. ;
  159. ; ■ Functions used :
  160. ;
  161. ;    5       /
  162. ;    17      +
  163. ;    5       -
  164. ;    2       ==
  165. ;    8       <
  166. ;    8       <=
  167. ;    2       >
  168. ;    16      >=
  169. ;    11      !
  170. ;    16      &&
  171. ;    8       ||
  172. ;    3       Len(
  173. ;    2       Upper()
  174. ;    1       U_Name()
  175. ;    1       Inkey()
  176. ;    2       PPEPath()
  177. ;    1       U_RecNum()
  178. ;
  179. ;------------------------------------------------------------------------------
  180. ;
  181. ; Analysis flags : No flag
  182. ;
  183. ;------------------------------------------------------------------------------
  184. ;
  185. ; Postprocessing report
  186. ;
  187. ;    8       For/Next
  188. ;    0       While/EndWhile
  189. ;    3       If/Then or If/Then/Else
  190. ;    0       Select Case
  191. ;
  192. ;------------------------------------------------------------------------------
  193. ;                 AEGiS Corp - Break the routines, code against the machines!
  194. ;------------------------------------------------------------------------------
  195.