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