home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / THGPPE02.ZIP / THGCMT.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1995-06-06  |  2KB  |  168 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.1O (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.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     String   STRING001
  28.     String   TSTRING002(10)
  29.     String   TSTRING003(10)
  30.     String   STRING004
  31.     String   STRING005
  32.     String   STRING006
  33.     String   STRING007
  34.     String   STRING008
  35.  
  36. ;------------------------------------------------------------------------------
  37.  
  38.     INTEGER003 = ReadLine(PPEPath() + "CMTCFG" + LangExt(), 1)
  39.     INTEGER002 = ReadLine(PPEPath() + "CMTCFG" + LangExt(), 2)
  40.     INTEGER004 = ReadLine(PPEPath() + "CMTCFG" + LangExt(), 3)
  41.     STRING004 = ReadLine(PPEPath() + "CMTCFG" + LangExt(), 4)
  42.     STRING005 = ReadLine(PPEPath() + "CMTCFG" + LangExt(), 5)
  43.     STRING001 = ReadLine(PPEPath() + "CMTCFG" + LangExt(), 6)
  44.     INTEGER001 = STRING001
  45.     For INTEGER008 = 1 To INTEGER001
  46.         TSTRING002(INTEGER008) = ReadLine(PPEPath() + "CMTCFG" + LangExt(), 6 + INTEGER008)
  47.     Next
  48.     STRING001 = 6 + INTEGER008 - 1
  49.     For INTEGER008 = 1 To INTEGER001
  50.         TSTRING003(INTEGER008) = ReadLine(PPEPath() + "CMTCFG" + LangExt(), STRING001 + INTEGER008)
  51.     Next
  52.     INTEGER005 = 1
  53.     INTEGER006 = 1
  54.     Cls
  55.     DispFile PPEPath() + "HEADER" + LangExt(), 1
  56.     AnsiPos 2, 1
  57.     Print "@X08■ CMT v1.0 (C)1995 by CáiHái / T.├┤.G @POS:63@∙PLεASε RεGiSTεR∙"
  58.     Gosub LABEL002
  59.     :LABEL001
  60.     STRING006 = ""
  61.     While (STRING006 == "") Do
  62.         STRING006 = Inkey()
  63.     EndWhile
  64.     If (STRING006 == "DOWN") Then
  65.         INTEGER006 = INTEGER006 + 1
  66.         If (INTEGER006 > INTEGER001) INTEGER006 = 1
  67.         Gosub LABEL002
  68.         Goto LABEL001
  69.     Endif
  70.     If (STRING006 == "UP") Then
  71.         INTEGER006 = INTEGER006 - 1
  72.         If (INTEGER006 == 0) INTEGER006 = INTEGER001
  73.         Gosub LABEL002
  74.         Goto LABEL001
  75.     Endif
  76.     If (STRING006 == Chr(27)) Then
  77.         DefColor
  78.         Cls
  79.         Stop
  80.     Endif
  81.     If (!(STRING006 == Chr(13))) Goto LABEL001
  82.     STRING007 = Chr(13)
  83.     STRING008 = "E" + STRING007 + TSTRING002(INTEGER006) + STRING007
  84.     STRING008 = STRING008 + "SYS0P COMMεNT" + STRING007
  85.     STRING008 = STRING008 + "R" + STRING007 + "N" + STRING007
  86.     DefColor
  87.     Cls
  88.     KbdStuff STRING008
  89.     Stop
  90.     :LABEL002
  91.     For INTEGER005 = 1 To INTEGER001
  92.         AnsiPos INTEGER002, INTEGER003 - 1 + INTEGER005
  93.         If (INTEGER006 == INTEGER005) Then
  94.             Print STRING005
  95.         Else
  96.             Print STRING004
  97.         Endif
  98.         Print TSTRING003(INTEGER005)
  99.         INTEGER007 = GetX()
  100.         If (INTEGER007 - INTEGER002 < INTEGER004 - 1) Then
  101.             If (INTEGER006 == INTEGER005) Then
  102.                 Print STRING005
  103.                 Goto LABEL003
  104.             Endif
  105.             Print STRING004
  106.             :LABEL003
  107.             Print Space(INTEGER004 - INTEGER007 - INTEGER002)
  108.         Endif
  109.     Next
  110.     Return
  111.  
  112. ;------------------------------------------------------------------------------
  113. ;
  114. ; Usage report (before postprocessing)
  115. ;
  116. ; ■ Statements used :
  117. ;
  118. ;    3       Cls
  119. ;    19      Goto 
  120. ;    29      Let 
  121. ;    7       Print 
  122. ;    13      If 
  123. ;    1       DispFile 
  124. ;    2       DefColor
  125. ;    3       Gosub 
  126. ;    1       Return
  127. ;    2       Stop
  128. ;    1       KbdStuff 
  129. ;    2       AnsiPos 
  130. ;
  131. ;
  132. ; ■ Functions used :
  133. ;
  134. ;    35      +
  135. ;    7       -
  136. ;    8       ==
  137. ;    4       <
  138. ;    3       <=
  139. ;    1       >
  140. ;    6       >=
  141. ;    11      !
  142. ;    6       &&
  143. ;    3       ||
  144. ;    1       Space()
  145. ;    3       Chr()
  146. ;    1       Inkey()
  147. ;    9       PPEPath()
  148. ;    8       ReadLine()
  149. ;    9       LangExt()
  150. ;    1       GetX()
  151. ;
  152. ;------------------------------------------------------------------------------
  153. ;
  154. ; Analysis flags : No flag
  155. ;
  156. ;------------------------------------------------------------------------------
  157. ;
  158. ; Postprocessing report
  159. ;
  160. ;    3       For/Next
  161. ;    1       While/EndWhile
  162. ;    6       If/Then or If/Then/Else
  163. ;    0       Select Case
  164. ;
  165. ;------------------------------------------------------------------------------
  166. ;                 AEGiS Corp - Break the routines, code against the machines!
  167. ;------------------------------------------------------------------------------
  168.