home *** CD-ROM | disk | FTP | other *** search
/ The Pier Shareware 6 / The_Pier_Shareware_Number_6_(The_Pier_Exchange)_(1995).iso / 005 / autop2_0.zip / AUTOVIEW.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-10-23  |  2KB  |  184 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.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     String   STRING007
  26.     String   STRING008
  27.     String   STRING009
  28.     String   STRING010
  29.     String   STRING011
  30.     String   STRING012
  31.     String   STRING013
  32.     String   STRING014
  33.     String   STRING015
  34.     String   STRING016
  35.     String   STRING017
  36.     String   STRING018
  37.     String   STRING019
  38.     String   STRING020
  39.     String   STRING021
  40.     String   STRING022
  41.     String   STRING023
  42.     String   STRING024
  43.  
  44. ;------------------------------------------------------------------------------
  45.  
  46.     STRING001 = PPEPath() + "AUTOM.PLS"
  47.     Cls
  48.     FOpen 1, STRING001, 2, 0
  49.     :LABEL001
  50.     If (Ferr(1)) Goto LABEL002
  51.     FGet 1, STRING002
  52.     Tokenize STRING002
  53.     GetToken STRING004
  54.     GetToken STRING005
  55.     GetToken STRING009
  56.     GetToken STRING010
  57.     GetToken STRING006
  58.     GetToken STRING011
  59.     FGet 1, STRING012
  60.     Tokenize STRING012
  61.     GetToken STRING007
  62.     GetToken STRING015
  63.     GetToken STRING008
  64.     GetToken STRING013
  65.     GetToken STRING014
  66.     Select Case (STRING015)
  67.         Case "YES"
  68.             FGet 1, STRING003
  69.             FGet 1, STRING016
  70.             FGet 1, STRING017
  71.             FGet 1, STRING018
  72.             FGet 1, STRING019
  73.             FGet 1, STRING020
  74.             FGet 1, STRING021
  75.             FGet 1, STRING022
  76.             FGet 1, STRING023
  77.             PrintLn "@X0AAutomessage By: @X09" + STRING009 + " " + STRING010 + " @X0AOn: @X09" + STRING011
  78.             PrintLn "@X0AQuoted Text By: @X09" + STRING013 + " " + STRING014
  79.             PrintLn "@X0A" + STRING003
  80.             PrintLn "@X0B-> @X09" + STRING016
  81.             PrintLn "@X0B-> @X09" + STRING017
  82.             PrintLn STRING018
  83.             PrintLn "@X09" + STRING019
  84.             PrintLn "@X09" + STRING020
  85.             PrintLn "@X09" + STRING021
  86.             PrintLn "@X09" + STRING022
  87.             PrintLn "@X09" + STRING023
  88.             Newline
  89.             Goto LABEL003
  90.         Case "NO"
  91.             FGet 1, STRING003
  92.             FGet 1, STRING019
  93.             FGet 1, STRING020
  94.             FGet 1, STRING021
  95.             FGet 1, STRING022
  96.             FGet 1, STRING023
  97.             PrintLn "@X0AAutomessage By: @X09" + STRING009 + " " + STRING010 + " @X0AOn: @X09" + STRING011
  98.             PrintLn "@X0A" + STRING003
  99.             PrintLn "@X09" + STRING019
  100.             PrintLn "@X09" + STRING020
  101.             PrintLn "@X09" + STRING021
  102.             PrintLn "@X09" + STRING022
  103.             PrintLn "@X09" + STRING023
  104.             Newline
  105.             Goto LABEL003
  106.     End Select
  107.     Goto LABEL001
  108.     :LABEL002
  109.     PrintLn "@X0CError! (" + STRING001 + ")"
  110.     FClose 1
  111.     Wait
  112.     End
  113.     :LABEL003
  114.     FClose 1
  115.     Newline
  116.     Print "@X0APress a [@X02ENTER@X0A] to continue ..."
  117.     While (STRING024 <> Chr(13)) Do
  118.         STRING024 = Inkey()
  119.         Print " /"
  120.         Delay 2
  121.         Backup 2
  122.         Print " -"
  123.         Delay 2
  124.         Backup 2
  125.         Print " \"
  126.         Delay 2
  127.         Backup 2
  128.         Print " |"
  129.         Delay 2
  130.         Backup 2
  131.     EndWhile
  132.  
  133. ;------------------------------------------------------------------------------
  134. ;
  135. ; Usage report (before postprocessing)
  136. ;
  137. ; ■ Statements used :
  138. ;
  139. ;    1       End
  140. ;    1       Cls
  141. ;    1       Wait
  142. ;    9       Goto 
  143. ;    2       Let 
  144. ;    5       Print 
  145. ;    19      PrintLn 
  146. ;    4       If 
  147. ;    1       FOpen 
  148. ;    2       FClose 
  149. ;    17      FGet 
  150. ;    4       Delay 
  151. ;    3       Newline
  152. ;    2       Tokenize 
  153. ;    11      GetToken 
  154. ;    4       Backup 
  155. ;
  156. ;
  157. ; ■ Functions used :
  158. ;
  159. ;    30      +
  160. ;    2       ==
  161. ;    1       <>
  162. ;    4       !
  163. ;    1       Ferr()
  164. ;    1       Chr()
  165. ;    1       Inkey()
  166. ;    1       PPEPath()
  167. ;
  168. ;------------------------------------------------------------------------------
  169. ;
  170. ; Analysis flags : No flag
  171. ;
  172. ;------------------------------------------------------------------------------
  173. ;
  174. ; Postprocessing report
  175. ;
  176. ;    0       For/Next
  177. ;    1       While/EndWhile
  178. ;    0       If/Then or If/Then/Else
  179. ;    1       Select Case
  180. ;
  181. ;------------------------------------------------------------------------------
  182. ;                 AEGiS Corp - Break the routines, code against the machines!
  183. ;------------------------------------------------------------------------------
  184.