home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / S / SENDFIL1.ZIP / SENDFILE.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-08-01  |  2KB  |  156 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.     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.     String   STRING010
  30.     String   STRING011
  31.  
  32. ;------------------------------------------------------------------------------
  33.  
  34.     FOpen 1, PPEPath() + PPEName() + ".CFG", 0, 2
  35.     If (Ferr(1)) Then
  36.         STRING001 = "Error opening file " + PPEPath() + PPEName() + ".CFG"
  37.         PrintLn STRING001
  38.         End
  39.     Endif
  40.     FDefIn 1
  41.     FDGet STRING006
  42.     Inc INTEGER001
  43.     FDGet STRING007
  44.     Inc INTEGER001
  45.     FDGet STRING008
  46.     Inc INTEGER001
  47.     FDGet STRING009
  48.     Inc INTEGER001
  49.     FDGet STRING010
  50.     Inc INTEGER001
  51.     If (Len(Trim(STRING006, " ")) == 0) Goto LABEL001
  52.     PrintLn STRING006
  53.     :LABEL001
  54.     If (Len(Trim(STRING007, " ")) == 0) Goto LABEL002
  55.     PrintLn STRING007
  56.     :LABEL002
  57.     If (Len(Trim(STRING008, " ")) == 0) Goto LABEL003
  58.     PrintLn STRING008
  59.     :LABEL003
  60.     If (Len(Trim(STRING009, " ")) == 0) Goto LABEL004
  61.     PrintLn STRING009
  62.     :LABEL004
  63.     If (Len(Trim(STRING010, " ")) == 0) Goto LABEL005
  64.     PrintLn STRING010
  65.     :LABEL005
  66.     If (Ferr(1)) Goto LABEL007
  67.     FDGet STRING001
  68.     Inc INTEGER001
  69.     FDGet STRING002
  70.     Inc INTEGER001
  71.     FDGet STRING003
  72.     Inc INTEGER001
  73.     FDGet STRING004
  74.     Inc INTEGER001
  75.     FDGet STRING005
  76.     If (Len(Trim(STRING001, " ")) == 0) Goto LABEL006
  77.     STRING011 = YesChar()
  78.     PrintLn "@X1C" + STRING001
  79.     PrintLn "@X1C" + STRING003
  80.     PrintLn "@X1C" + STRING004
  81.     PrintLn "@X1C" + STRING005
  82.     Newline
  83.     InputStr "Flag " + STRING001 + " for downloading (Y/N): ", STRING011, 31, 1, "YyNn", 16384 + 8192
  84.     Newline
  85.     If (Len(Trim(STRING011, " ")) == 0) Then
  86.         End
  87.     Endif
  88.     If (Upper(STRING011) == "Y") Then
  89.         Flag STRING002 + STRING001
  90.         PrintLn "@X1F*****" + STRING001 + " flagged for later downloading."
  91.         Newline
  92.     Endif
  93.     :LABEL006
  94.     Inc INTEGER001
  95.     Goto LABEL005
  96.     :LABEL007
  97.     FClose 1
  98.     End
  99.  
  100. ;------------------------------------------------------------------------------
  101. ;
  102. ; Usage report (before postprocessing)
  103. ;
  104. ; ■ Statements used :
  105. ;
  106. ;    3       End
  107. ;    11      Goto 
  108. ;    2       Let 
  109. ;    11      PrintLn 
  110. ;    10      If 
  111. ;    1       FOpen 
  112. ;    1       FClose 
  113. ;    1       InputStr 
  114. ;    10      Inc 
  115. ;    3       Newline
  116. ;    1       FDefIn 
  117. ;    10      FDGet 
  118. ;    1       Flag 
  119. ;
  120. ;
  121. ; ■ Functions used :
  122. ;
  123. ;    15      +
  124. ;    8       ==
  125. ;    10      !
  126. ;    7       Len(
  127. ;    1       Upper()
  128. ;    2       Ferr()
  129. ;    7       Trim()
  130. ;    1       YesChar()
  131. ;    2       PPEPath()
  132. ;    2       PPEName()
  133. ;
  134. ;------------------------------------------------------------------------------
  135. ;
  136. ; Analysis flags : f
  137. ;
  138. ; f - Flag files for download ■ 3
  139. ;     This may be normal if a PPE needs to send some files, but since
  140. ;     this statement allows flagging of any file on the hard disk, you
  141. ;     have to be carefull. Check!
  142. ;     ■ Search for : FLAG
  143. ;
  144. ;------------------------------------------------------------------------------
  145. ;
  146. ; Postprocessing report
  147. ;
  148. ;    0       For/Next
  149. ;    0       While/EndWhile
  150. ;    3       If/Then or If/Then/Else
  151. ;    0       Select Case
  152. ;
  153. ;------------------------------------------------------------------------------
  154. ;                 AEGiS Corp - Break the routines, code against the machines!
  155. ;------------------------------------------------------------------------------
  156.