home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / THTMSG11.ZIP / MORE196.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-05-31  |  7KB  |  191 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 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     String   TSTRING001(45)
  25.     String   STRING002
  26.     String   STRING003
  27.     String   STRING004
  28.     String   STRING005
  29.     String   STRING006
  30.     String   STRING007
  31.     String   STRING008
  32.     String   STRING009
  33.     String   STRING010
  34.     String   STRING011
  35.  
  36. ;------------------------------------------------------------------------------
  37.  
  38.     STRING002 = ScrText(1, 2, 5, 0)
  39.     INTEGER003 = GetY() + 1
  40.     STRING003 = PPEPath() + "tht-msg.ppe"
  41.     If ((((STRING002 == "  To:") || (STRING002 == "From:")) || (STRING002 == "  To:")) || (STRING002 == "Subj:")) Then
  42.         DispStr "!" + STRING003
  43.     Endif
  44.     DefColor
  45.     FOpen 1, PPEPath() + PPEName() + ".cnf", 0, 0
  46.     FGet 1, STRING004
  47.     FGet 1, STRING006
  48.     FGet 1, STRING005
  49.     FGet 1, INTEGER004
  50.     FGet 1, STRING008
  51.     FGet 1, STRING009
  52.     FGet 1, STRING010
  53.     FClose 1
  54.     TSTRING001(0) = STRING006 + "∞ " + STRING005 + "Press (Y) or (N) or ENTER to Continue@X08" + STRING006 + " ∞"
  55.     TSTRING001(2) = STRING005 + " Press (Y) or (N) or ENTER to Continue@X08" + STRING006 + " ∞ ∞@X08"
  56.     TSTRING001(3) = STRING005 + "Press (Y) or (N) or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08"
  57.     TSTRING001(4) = STRING005 + "ress (Y) or (N) or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "P@X08"
  58.     TSTRING001(5) = STRING005 + "ess (Y) or (N) or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Pr@X08"
  59.     TSTRING001(6) = STRING005 + "ss (Y) or (N) or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Pre@X08"
  60.     TSTRING001(7) = STRING005 + "s (Y) or (N) or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Pres@X08"
  61.     TSTRING001(8) = STRING005 + " (Y) or (N) or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press@X08"
  62.     TSTRING001(9) = STRING005 + "(Y) or (N) or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press @X08"
  63.     TSTRING001(10) = STRING005 + "Y) or (N) or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (@X08"
  64.     TSTRING001(11) = STRING005 + ") or (N) or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y@X08"
  65.     TSTRING001(12) = STRING005 + " or (N) or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y)@X08"
  66.     TSTRING001(13) = STRING005 + "or (N) or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) @X08"
  67.     TSTRING001(14) = STRING005 + "r (N) or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) o@X08"
  68.     TSTRING001(15) = STRING005 + " (N) or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or@X08"
  69.     TSTRING001(16) = STRING005 + "(N) or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or @X08"
  70.     TSTRING001(17) = STRING005 + "N) or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (@X08"
  71.     TSTRING001(18) = STRING005 + ") or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N@X08"
  72.     TSTRING001(19) = STRING005 + " or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N)@X08"
  73.     TSTRING001(20) = STRING005 + "or ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) @X08"
  74.     TSTRING001(21) = STRING005 + "r ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) o@X08"
  75.     TSTRING001(22) = STRING005 + " ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or@X08"
  76.     TSTRING001(23) = STRING005 + "ENTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or @X08"
  77.     TSTRING001(24) = STRING005 + "NTER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or E@X08"
  78.     TSTRING001(25) = STRING005 + "TER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or EN@X08"
  79.     TSTRING001(26) = STRING005 + "ER to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or ENT@X08"
  80.     TSTRING001(27) = STRING005 + "R to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or ENTE@X08"
  81.     TSTRING001(28) = STRING005 + " to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or ENTER@X08"
  82.     TSTRING001(29) = STRING005 + "to Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or ENTER @X08"
  83.     TSTRING001(30) = STRING005 + "o Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or ENTER t@X08"
  84.     TSTRING001(31) = STRING005 + " Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or ENTER to@X08"
  85.     TSTRING001(32) = STRING005 + "Continue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or ENTER to @X08"
  86.     TSTRING001(33) = STRING005 + "ontinue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or ENTER to C@X08"
  87.     TSTRING001(34) = STRING005 + "ntinue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or ENTER to Co@X08"
  88.     TSTRING001(35) = STRING005 + "tinue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or ENTER to Con@X08"
  89.     TSTRING001(36) = STRING005 + "inue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or ENTER to Cont@X08"
  90.     TSTRING001(37) = STRING005 + "nue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or ENTER to Conti@X08"
  91.     TSTRING001(38) = STRING005 + "ue@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or ENTER to Contin@X08"
  92.     TSTRING001(39) = STRING005 + "e@X08" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or ENTER to Continu@X08"
  93.     TSTRING001(40) = STRING005 + "" + STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or ENTER to Continue@X08"
  94.     TSTRING001(41) = STRING006 + " ∞ ∞ @X08" + STRING005 + "Press (Y) or (N) or ENTER to Continue@X08"
  95.     TSTRING001(42) = STRING006 + " ∞ @X08" + STRING005 + "Press (Y) or (N) or ENTER to Continue@X08" + STRING006 + " ∞@X08"
  96.     TSTRING001(43) = STRING006 + "∞ @X08" + STRING005 + "Press (Y) or (N) or ENTER to Continue@X08" + STRING006 + " ∞@X08"
  97.     INTEGER002 = GetX()
  98.     If (AnsiOn()) Goto LABEL001
  99.     For INTEGER001 = 1 To 10000000
  100.         Print "3H Press Enter to Continue "
  101.         If (STRING007 <> "") Goto LABEL002
  102.     Next
  103.     :LABEL001
  104.     AnsiPos 1, INTEGER003
  105.     Print STRING008 + STRING004 + STRING009 + "                                           " + STRING010
  106.     STRING008 = StripAtx(STRING008)
  107.     INTEGER005 = Len(STRING008)
  108.     AnsiPos INTEGER002 + INTEGER005 - 5, INTEGER003
  109.     Print TSTRING001(0)
  110.     For INTEGER001 = 1 To 1000000
  111.         STRING007 = Inkey()
  112.         For STRING011 = 2 To 43
  113.             If (STRING007 <> "") Then
  114.                 Goto LABEL002
  115.             Endif
  116.             Delay INTEGER004
  117.             AnsiPos INTEGER002 + INTEGER005 - 5, INTEGER003
  118.             Print TSTRING001(STRING011)
  119.             STRING007 = Inkey()
  120.             If (STRING007 <> "") Then
  121.                 Goto LABEL002
  122.             Endif
  123.         Next
  124.     Next
  125.     :LABEL002
  126.     KbdStuff STRING007
  127.     AnsiPos INTEGER002, INTEGER003
  128.     ClrEol
  129.     End
  130.  
  131. ;------------------------------------------------------------------------------
  132. ;
  133. ; Usage report (before postprocessing)
  134. ;
  135. ; ■ Statements used :
  136. ;
  137. ;    1       End
  138. ;    1       ClrEol
  139. ;    14      Goto 
  140. ;    57      Let 
  141. ;    4       Print 
  142. ;    8       If 
  143. ;    1       FOpen 
  144. ;    1       FClose 
  145. ;    7       FGet 
  146. ;    1       DefColor
  147. ;    1       Delay 
  148. ;    1       KbdStuff 
  149. ;    1       DispStr 
  150. ;    4       AnsiPos 
  151. ;
  152. ;
  153. ; ■ Functions used :
  154. ;
  155. ;    223     +
  156. ;    2       -
  157. ;    4       ==
  158. ;    3       <>
  159. ;    3       <
  160. ;    3       <=
  161. ;    6       >=
  162. ;    7       !
  163. ;    6       &&
  164. ;    6       ||
  165. ;    1       Len(
  166. ;    1       StripAtx()
  167. ;    2       Inkey()
  168. ;    2       PPEPath()
  169. ;    1       AnsiOn()
  170. ;    1       GetX()
  171. ;    1       GetY()
  172. ;    1       PPEName()
  173. ;    1       ScrText()
  174. ;
  175. ;------------------------------------------------------------------------------
  176. ;
  177. ; Analysis flags : No flag
  178. ;
  179. ;------------------------------------------------------------------------------
  180. ;
  181. ; Postprocessing report
  182. ;
  183. ;    3       For/Next
  184. ;    0       While/EndWhile
  185. ;    3       If/Then or If/Then/Else
  186. ;    0       Select Case
  187. ;
  188. ;------------------------------------------------------------------------------
  189. ;                 AEGiS Corp - Break the routines, code against the machines!
  190. ;------------------------------------------------------------------------------
  191.