home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / S / SF11FDS.ZIP / SYSFILES.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1993-09-19  |  2KB  |  167 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 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     String   STRING001
  21.     String   STRING002
  22.     String   STRING003
  23.     String   STRING004
  24.     String   STRING005
  25.     String   STRING006
  26.     String   STRING007
  27.     String   STRING008
  28.     String   STRING009
  29.  
  30. ;------------------------------------------------------------------------------
  31.  
  32.     STRING008 = "@X03Enter Path & Filename: _"
  33.     STRING001 = ""
  34.     STRING002 = PPEPath() + PPEName() + ".CNF"
  35.     If (Exist(STRING002)) Then
  36.         FOpen 1, STRING002, 0, 0
  37.         FGet 1, STRING003
  38.         FGet 1, STRING004
  39.         FGet 1, STRING006
  40.     Endif
  41.     PrintLn 
  42.     Print "@X03SysFiles v1.1 by FDS @X08[@X0FD@X08]@X03ownload, @X08[@X0FU@X08]@X03pload, @X08[@X0FR@X08]@X03un PPE file, @X08[@X0FQ@X08]@X03uit @X0B:"
  43.     :LABEL001
  44.     If (BOOLEAN001) Goto LABEL002
  45.     STRING009 = Inkey()
  46.     STRING009 = Upper(STRING009)
  47.     If (STRING009 == "D") Then
  48.         BOOLEAN001 = 1
  49.     Else
  50.         If (STRING009 == "U") Then
  51.             BOOLEAN001 = 1
  52.         Else
  53.             If (STRING009 == "R") Then
  54.                 BOOLEAN001 = 1
  55.                 Goto LABEL003
  56.             Endif
  57.             If (STRING009 == "Q") Then
  58.                 BOOLEAN001 = 1
  59.                 Goto LABEL004
  60.             Endif
  61.             Goto LABEL001
  62.             :LABEL002
  63.             Goto LABEL004
  64.         Endif
  65.         Newline
  66.         Newline
  67.         InputStr STRING008, STRING001, 31, 120, Mask_Ascii(), 8 + 2
  68.         PrintLn 
  69.         InputStr "What is the upload password", STRING007, 3, 20, Mask_Pwd(), 8 + 2 + 128 + 256 + 1
  70.         If ((STRING001 <> "") && (STRING006 == STRING007)) Then
  71.             PrintLn 
  72.             PrintLn "@X0FReady to recieve (" + STRING001 + ")"
  73.             Wait
  74.             Shell 1, STRING005, STRING004, "1 " + "2 " + STRING001
  75.             Goto LABEL004
  76.         Endif
  77.         Goto LABEL004
  78.         :LABEL003
  79.         Newline
  80.         Newline
  81.         InputStr STRING008, STRING001, 31, 120, Mask_Ascii(), 8 + 2
  82.         If (STRING001 <> "") Then
  83.             Call STRING001
  84.         Endif
  85.         Goto LABEL004
  86.     Endif
  87.     Newline
  88.     Newline
  89.     InputStr STRING008, STRING001, 31, 120, Mask_Ascii(), 8 + 2
  90.     PrintLn 
  91.     InputStr "What is the download password", STRING007, 3, 20, Mask_Pwd(), 8 + 2 + 128 + 256 + 1
  92.     If (((STRING001 <> "") && Exist(STRING001)) && (STRING006 == STRING007)) Then
  93.         PrintLn 
  94.         PrintLn "@X0FReady To Send (" + STRING001 + ")"
  95.         Wait
  96.         Shell 1, STRING005, STRING003, "1 " + "2 " + STRING001
  97.         Goto LABEL004
  98.     Else
  99.         Goto LABEL004
  100.     Endif
  101.     :LABEL004
  102.     End
  103.  
  104. ;------------------------------------------------------------------------------
  105. ;
  106. ; Usage report (before postprocessing)
  107. ;
  108. ; ■ Statements used :
  109. ;
  110. ;    1       End
  111. ;    2       Wait
  112. ;    21      Goto 
  113. ;    9       Let 
  114. ;    1       Print 
  115. ;    7       PrintLn 
  116. ;    9       If 
  117. ;    1       FOpen 
  118. ;    3       FGet 
  119. ;    5       InputStr 
  120. ;    6       Newline
  121. ;    2       Shell 
  122. ;    1       Call 
  123. ;
  124. ;
  125. ; ■ Functions used :
  126. ;
  127. ;    21      +
  128. ;    6       ==
  129. ;    3       <>
  130. ;    9       !
  131. ;    3       &&
  132. ;    1       Upper()
  133. ;    1       Inkey()
  134. ;    2       Mask_Pwd()
  135. ;    3       Mask_Ascii()
  136. ;    1       PPEPath()
  137. ;    2       Exist()
  138. ;    1       PPEName()
  139. ;
  140. ;------------------------------------------------------------------------------
  141. ;
  142. ; Analysis flags : SC
  143. ;
  144. ; S - Shell to DOS ■ 5
  145. ;     This may be normal if the PPE need to execute an external command,
  146. ;     but may be actually anything... nasty (formating HD, rebooting,...)
  147. ;     or usefull (sorting, maintenance,...). Check!
  148. ;     ■ Search for : SHELL
  149. ;
  150. ; C - Call child PPE ■ 3
  151. ;     This is usually normal, but may be a tricky way to launch some
  152. ;     sysop-only commands.
  153. ;     ■ Search for : CALL
  154. ;
  155. ;------------------------------------------------------------------------------
  156. ;
  157. ; Postprocessing report
  158. ;
  159. ;    0       For/Next
  160. ;    0       While/EndWhile
  161. ;    8       If/Then or If/Then/Else
  162. ;    0       Select Case
  163. ;
  164. ;------------------------------------------------------------------------------
  165. ;                 AEGiS Corp - Break the routines, code against the machines!
  166. ;------------------------------------------------------------------------------
  167.