home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / S / SCL!FL10.ZIP / FILES.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-06-23  |  4KB  |  193 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.     Boolean  BOOLEAN001
  20.     Integer  INTEGER001
  21.     Integer  INTEGER002
  22.     Integer  INTEGER003
  23.     Integer  INTEGER004
  24.     String   STRING001
  25.     String   TSTRING002(500)
  26.     String   STRING003
  27.  
  28. ;------------------------------------------------------------------------------
  29.  
  30.     STRING001 = "   ************************OKAY, LET'S START!************************"
  31.     Goto LABEL002
  32.     :LABEL001
  33.     STRING003 = Inkey()
  34.     If (STRING003 == "") Goto LABEL001
  35.     Return
  36.     :LABEL002
  37.     INTEGER002 = 1
  38.     INTEGER001 = 0
  39.     INTEGER003 = 1
  40.     FOpen 1, PPEPath() + "FILES." + String(CurConf()), 0, 0
  41.     While (Ferr(1) == 0) Do
  42.         FGet 1, TSTRING002(INTEGER003)
  43.         Inc INTEGER003
  44.     EndWhile
  45.     FClose 1
  46.     PrintLn "@CLS@@X07"
  47.     PrintLn 
  48.     PrintLn "@X03  @X07_________________________ ________    __________         _______    _____"
  49.     PrintLn "@X07 _\_ª_______/___ª/\_  ____/_\_ ____/__  \  _      |    __ _\_ª___/____\   /___"
  50.     PrintLn "@X07\_  ____(__)____)\__  ______)____    \\    \     ª|___(__)_____    \\    _____)"
  51.     PrintLn "@X07 |     \   ª\  /   /  /ª   \    /    ª/    _      |   / ª\    /     /  ª/    \"
  52.     PrintLn "@X07 l     /____/_____/________/__________\    \  ___________/__________\________/"
  53.     PrintLn "@X03=@X07:____/@X03==========================Files=List=1.0=Coding=by=Light=Vader/Seclusion"
  54.     PrintLn ""
  55.     PrintLn ""
  56.     PrintLn ""
  57.     PrintLn ""
  58.     PrintLn ""
  59.     PrintLn ""
  60.     PrintLn ""
  61.     PrintLn ""
  62.     PrintLn ""
  63.     PrintLn ""
  64.     PrintLn "@X03==============================================================================="
  65.     PrintLn "@X03  @X02Use @X06(@X03Up@X06/@X03Down@X06) @X02Arrows or @X06(@X03A@X06/@X03Z@X06) @X02to move bar, @X06(@X03ESC@X06) @X02to Quit, @X06(@X03Enter@X06) @X02to select"
  66.     :LABEL003
  67.     For INTEGER004 = 1 To 10
  68.         AnsiPos 1, 8 + INTEGER004
  69.         Print "@X00                                                                              "
  70.     Next
  71.     For INTEGER004 = 1 To 10
  72.         AnsiPos (80 - Len(TSTRING002(10 * INTEGER001 + INTEGER004))) / 2, 8 + INTEGER004
  73.         Print "@X01" + TSTRING002(10 * INTEGER001 + INTEGER004)
  74.     Next
  75.     :LABEL004
  76.     AnsiPos 1, 8 + INTEGER002
  77.     Print "@X07                                                                              "
  78.     AnsiPos (80 - Len(TSTRING002(10 * INTEGER001 + INTEGER002))) / 2, 8 + INTEGER002
  79.     Print "@X07" + TSTRING002(10 * INTEGER001 + INTEGER002)
  80.     Gosub LABEL001
  81.     AnsiPos (80 - Len(TSTRING002(10 * INTEGER001 + INTEGER002))) / 2, 8 + INTEGER002
  82.     Print "@X01" + TSTRING002(10 * INTEGER001 + INTEGER002)
  83.     AnsiPos 1, 8 + INTEGER002
  84.     Print "@X0F                                                                             "
  85.     AnsiPos (80 - Len(TSTRING002(10 * INTEGER001 + INTEGER002))) / 2, 8 + INTEGER002
  86.     Print "@X01" + TSTRING002(10 * INTEGER001 + INTEGER002)
  87.     If (STRING003 == "DOWN") Inc INTEGER002
  88.     If (STRING003 == "UP") Dec INTEGER002
  89.     If (STRING003 == "Z") Inc INTEGER002
  90.     If (STRING003 == "A") Dec INTEGER002
  91.     If (STRING003 == "z") Inc INTEGER002
  92.     If (STRING003 == "a") Dec INTEGER002
  93.     If (STRING003 == Chr(13)) Goto LABEL007
  94.     If (STRING003 == Chr(27)) Goto LABEL008
  95.     If (10 * INTEGER001 + INTEGER002 + 1 > INTEGER003) Then
  96.         INTEGER002 = INTEGER003 - 10 * INTEGER001 - 1
  97.         Goto LABEL004
  98.     Endif
  99.     If (INTEGER002 < 1) Goto LABEL005
  100.     If (INTEGER002 > 10) Goto LABEL006
  101.     Goto LABEL004
  102.     :LABEL005
  103.     BOOLEAN001 = 0
  104.     If (INTEGER001 == 0) Then
  105.         INTEGER001 = 0
  106.         INTEGER002 = 1
  107.         BOOLEAN001 = 1
  108.     Else
  109.         Dec INTEGER001
  110.         INTEGER002 = 10
  111.     Endif
  112.     If ((INTEGER001 == 0) && (BOOLEAN001 == 1)) Then
  113.         Goto LABEL004
  114.     Else
  115.         Goto LABEL003
  116.     Endif
  117.     :LABEL006
  118.     If (INTEGER001 < INTEGER003 / 10) Then
  119.         Inc INTEGER001
  120.         INTEGER002 = 1
  121.     Endif
  122.     Goto LABEL003
  123.     :LABEL007
  124.     Cls
  125.     KbdStuff String(INTEGER001 * 10 + INTEGER002) + Chr(13)
  126.     End
  127.     :LABEL008
  128.     Cls
  129.     End
  130.  
  131. ;------------------------------------------------------------------------------
  132. ;
  133. ; Usage report (before postprocessing)
  134. ;
  135. ; ■ Statements used :
  136. ;
  137. ;    2       End
  138. ;    2       Cls
  139. ;    23      Goto 
  140. ;    16      Let 
  141. ;    7       Print 
  142. ;    20      PrintLn 
  143. ;    18      If 
  144. ;    1       FOpen 
  145. ;    1       FClose 
  146. ;    1       FGet 
  147. ;    1       Gosub 
  148. ;    1       Return
  149. ;    5       Inc 
  150. ;    4       Dec 
  151. ;    1       KbdStuff 
  152. ;    7       AnsiPos 
  153. ;
  154. ;
  155. ; ■ Functions used :
  156. ;
  157. ;    11      *
  158. ;    5       /
  159. ;    27      +
  160. ;    6       -
  161. ;    13      ==
  162. ;    4       <
  163. ;    2       <=
  164. ;    2       >
  165. ;    4       >=
  166. ;    7       !
  167. ;    5       &&
  168. ;    2       ||
  169. ;    4       Len(
  170. ;    1       Ferr()
  171. ;    3       Chr()
  172. ;    1       Inkey()
  173. ;    2       String()
  174. ;    1       CurConf()
  175. ;    1       PPEPath()
  176. ;
  177. ;------------------------------------------------------------------------------
  178. ;
  179. ; Analysis flags : No flag
  180. ;
  181. ;------------------------------------------------------------------------------
  182. ;
  183. ; Postprocessing report
  184. ;
  185. ;    2       For/Next
  186. ;    1       While/EndWhile
  187. ;    4       If/Then or If/Then/Else
  188. ;    0       Select Case
  189. ;
  190. ;------------------------------------------------------------------------------
  191. ;                 AEGiS Corp - Break the routines, code against the machines!
  192. ;------------------------------------------------------------------------------
  193.