home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / TS!LINER.ZIP / TS!LINER.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1995-08-31  |  5KB  |  244 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.     Integer  INTEGER005
  24.     String   STRING001
  25.     String   STRING002
  26.     String   STRING003
  27.     String   STRING004
  28.     String   STRING005
  29.     String   STRING006
  30.     String   STRING007
  31.     String   STRING008
  32.     String   TSTRING009(255)
  33.     String   TSTRING010(255)
  34.  
  35. ;------------------------------------------------------------------------------
  36.  
  37.     If (Exist(PPEPath() + "ts!liner.cnf")) Then
  38.         :LABEL001
  39.         FOpen 1, PPEPath() + "ts!liner.cnf", 2, 0
  40.         FGet 1, STRING005
  41.         FGet 1, STRING006
  42.         FGet 1, STRING004
  43.         FGet 1, STRING008
  44.         FClose 1
  45.         GetUser
  46.         STRING007 = U_Name()
  47.         STRING003 = U_Sec
  48.         Cls
  49.         PrintLn " @X08──────────────────────────────────────────────────────────────────────────────@X07"
  50.         PrintLn " @X7F@X08                @X08           @X0CT@X04H@X08ε @X0CS@X04P@X08εÇiÆL-@X0CL@X04i@X08NεR @X0Cv.@X041.@X08o           (c) '1995 by TS! @X07@X07@X08@X07"
  51.         PrintLn "@X08 ──────────────────────────────────────────────────────────────────────────────@X07"
  52.         If (STRING003 < STRING005) Goto LABEL002
  53.         PrintLn "@X0F @X08─────@X07@X08──────────@X08────────────────────────────────────────────────@X07@X08──────────@X0F@X08─────@X07"
  54.         DispFile PPEPath() + "ts!liner.dat", 1
  55.         PrintLn "@X08@X0F @X08─────@X08@X07@X08──────────@X08────────────────────────────────────────────────@X07@X08──────────@X0F@X08─────@X07"
  56.         :LABEL002
  57.         If (STRING003 < STRING006) Goto LABEL009
  58.         PrintLn "                           @X0CΘ@X04N@X08εLiNεR @X0CH@X04i@X08NZUFÜGεN ? @X03@X0C@X08[@X0CY@X08/@X03@X04n@X08] @X07                      "
  59.         INTEGER001 = GetX()
  60.         INTEGER002 = GetY()
  61.         :LABEL003
  62.         STRING001 = ""
  63.         STRING001 = Inkey()
  64.         If (Upper(STRING001) == "N") Goto LABEL011
  65.         If (Upper(STRING001) == "Y") Goto LABEL004
  66.         If (Upper(STRING001) == Chr(13)) Goto LABEL004
  67.         Goto LABEL003
  68.         :LABEL004
  69.         Cls
  70.         PrintLn "@X0F @X08──────────────────────────────────────────────────────────────────────────────"
  71.         PrintLn " @X7F@X78@X79@X78@X08                                 @X0CP@X04C@X08B @X0C@@X04X@X08-@X0CC@X04O@X08DES                              @X78@X08   "
  72.         PrintLn "@X08 ──────────────────────────────────────────────────────────────────────────────"
  73.         PrintLn "    @X01    X01 BLUε   @X04X04 RεD   @X07X07 GRεY       @X0AX0A LiGHT GRεεN  @X0DX0D MÆGεNTÆ       "
  74.         PrintLn " @X02       X02 GRεεN  @X05X05 LiLÆ  @X08X08 BLÆCK      @X0BX0B SoMε BLUε    @X0EX0E YεLLoW        "
  75.         PrintLn " @X03       X03 MÆGεN  @X06X06 BRoWN @X09X09 LiGHT BLUε @X0CX0C LiGHT RεD    @X0FX0F WHiTε         "
  76.         PrintLn "                                                                               "
  77.         PrintLn "                   @X0C @X03@X0CE@X04X@X08AMPLE : @X03@X08@X0(CODE)..Hello ! (CODE1=BLUE)"
  78.         PrintLn "                                                                               "
  79.         PrintLn "@X0F @X08─────@X08@X08──────────@X08────────────────────────────────────────────────@X07@X08──────────@X08─────"
  80.         PrintLn "                                                                               "
  81.         PrintLn "@X0F @X08───────────────@X08────────────────────────────────────────────────@X07@X08──────────@X0F@X08─────"
  82.         AnsiPos 3, 11
  83.         InputStr "@X07_", STRING002, 0, 76, Mask_Ascii(), 4096 + 4
  84.         If (STRING002 == "") Goto LABEL010
  85.         FAppend 1, PPEPath() + "ts!liner.dat", 2, 0
  86.         FPutLn 1, "@X07 ", STRING002, "@X07"
  87.         FClose 1
  88.         AnsiPos 1, 13
  89.         Print "@X03@X08@X0CÆ@X04D@X08D @X0CY@X04Θ@X08UR @X0CΘ@X04N@X08εLiNεR !@X07"
  90.         FOpen 1, PPEPath() + "ts!liner.dat", 2, 0
  91.         INTEGER003 = 0
  92.         :LABEL005
  93.         Inc INTEGER003
  94.         FGet 1, TSTRING009(INTEGER003)
  95.         If (Len(TSTRING009(INTEGER003)) < 1) Then
  96.             Goto LABEL006
  97.         Endif
  98.         Goto LABEL005
  99.         :LABEL006
  100.         Dec INTEGER003
  101.         INTEGER004 = INTEGER003
  102.         If (INTEGER003 > STRING004) Goto LABEL007
  103.         FClose 1
  104.         Goto LABEL009
  105.         :LABEL007
  106.         If (Upper(STRING008) == "Y") Goto LABEL012
  107.         FClose 1
  108.         INTEGER003 = 0
  109.         INTEGER005 = 1
  110.         Delete PPEPath() + "ts!liner.dat"
  111.         FCreate 1, PPEPath() + "ts!liner.dat", 2, 0
  112.         :LABEL008
  113.         Inc INTEGER003
  114.         If (INTEGER003 <> INTEGER005) Then
  115.             FPutLn 1, TSTRING009(INTEGER003)
  116.         Endif
  117.         If (INTEGER003 == INTEGER004) Goto LABEL009
  118.         Goto LABEL008
  119.         :LABEL009
  120.         Newline
  121.         FClose 1
  122.         End
  123.         :LABEL010
  124.         Print "@X0C@X0AI @X02Ç@X08ÆN'T @X0AW@X02R@X08iTε @X0AÆ Θ@X02N@X08εLiNεR. @X0AI@X02'@X08@X02Æ@X07@X08M @X0AÆ L@X02Æ@X08MMεR !@X07"
  125.         AnsiPos 1, 13
  126.         End
  127.         :LABEL011
  128.         AnsiPos INTEGER001, INTEGER002
  129.         Print "                           @X08@X0CN@X04Θ@X08Pε...@X07"
  130.         Goto LABEL009
  131.     Endif
  132.     FCreate 1, PPEPath() + "ts!liner.cnf", 2, 0
  133.     FPutLn 1, "10"
  134.     FPutLn 1, "20"
  135.     FPutLn 1, "10"
  136.     FPutLn 1, "N"
  137.     FPutLn 1, ""
  138.     FClose 1
  139.     Goto LABEL001
  140.     :LABEL012
  141.     FClose 1
  142.     INTEGER003 = 0
  143.     INTEGER005 = 1
  144.     Delete PPEPath() + "ts!liner.dat"
  145.     FCreate 1, PPEPath() + "ts!liner.dat", 2, 0
  146.     :LABEL013
  147.     Inc INTEGER003
  148.     If (INTEGER003 <> INTEGER005) Then
  149.         FPutLn 1, TSTRING009(INTEGER003)
  150.     Endif
  151.     If (INTEGER003 == INTEGER004) Goto LABEL014
  152.     Goto LABEL013
  153.     :LABEL014
  154.     FClose 1
  155.     FOpen 1, PPEPath() + "ts!liner.dat", 2, 0
  156.     INTEGER003 = 0
  157.     :LABEL015
  158.     Inc INTEGER003
  159.     FGet 1, TSTRING010(INTEGER003)
  160.     If (Len(TSTRING010(INTEGER003)) < 1) Then
  161.         Goto LABEL016
  162.     Endif
  163.     Goto LABEL015
  164.     :LABEL016
  165.     Dec INTEGER003
  166.     INTEGER004 = INTEGER003
  167.     FClose 1
  168.     INTEGER003 = 0
  169.     INTEGER005 = 1
  170.     Delete PPEPath() + "ts!liner.dat"
  171.     FCreate 1, PPEPath() + "ts!liner.dat", 2, 0
  172.     :LABEL017
  173.     Inc INTEGER003
  174.     If (INTEGER003 <> INTEGER005) Then
  175.         FPutLn 1, TSTRING010(INTEGER003)
  176.     Endif
  177.     If (INTEGER003 == INTEGER004) Goto LABEL009
  178.     Goto LABEL017
  179.  
  180. ;------------------------------------------------------------------------------
  181. ;
  182. ; Usage report (before postprocessing)
  183. ;
  184. ; ■ Statements used :
  185. ;
  186. ;    2       End
  187. ;    2       Cls
  188. ;    30      Goto 
  189. ;    16      Let 
  190. ;    3       Print 
  191. ;    18      PrintLn 
  192. ;    17      If 
  193. ;    1       DispFile 
  194. ;    4       FCreate 
  195. ;    3       FOpen 
  196. ;    1       FAppend 
  197. ;    9       FClose 
  198. ;    6       FGet 
  199. ;    9       FPutLn 
  200. ;    1       GetUser
  201. ;    3       Delete 
  202. ;    1       InputStr 
  203. ;    5       Inc 
  204. ;    2       Dec 
  205. ;    1       Newline
  206. ;    4       AnsiPos 
  207. ;
  208. ;
  209. ; ■ Functions used :
  210. ;
  211. ;    14      +
  212. ;    8       ==
  213. ;    3       <>
  214. ;    4       <
  215. ;    1       >
  216. ;    6       !
  217. ;    2       Len(
  218. ;    4       Upper()
  219. ;    1       Chr()
  220. ;    1       U_Name()
  221. ;    1       Inkey()
  222. ;    1       Mask_Ascii()
  223. ;    13      PPEPath()
  224. ;    1       Exist()
  225. ;    1       GetX()
  226. ;    1       GetY()
  227. ;
  228. ;------------------------------------------------------------------------------
  229. ;
  230. ; Analysis flags : No flag
  231. ;
  232. ;------------------------------------------------------------------------------
  233. ;
  234. ; Postprocessing report
  235. ;
  236. ;    0       For/Next
  237. ;    0       While/EndWhile
  238. ;    6       If/Then or If/Then/Else
  239. ;    0       Select Case
  240. ;
  241. ;------------------------------------------------------------------------------
  242. ;                 AEGiS Corp - Break the routines, code against the machines!
  243. ;------------------------------------------------------------------------------
  244.