home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / UPCHECK / UPLOAD20.ZIP / UPLOAD.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-10-24  |  2KB  |  166 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.     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.  
  30. ;------------------------------------------------------------------------------
  31.  
  32.     STRING006 = ""
  33.     STRING008 = TokenStr()
  34.     Tokenize STRING008
  35.     If (TokCount() > 0) GetToken STRING006
  36.     If (Upper(STRING006) == "/PCBTEXT") Then
  37.         STRING009 = ""
  38.         STRING006 = ""
  39.     Else
  40.         STRING009 = "U "
  41.     Endif
  42.     FOpen 1, PPEPath() + PPEName() + ".CFG", 0, 0
  43.     FGet 1, STRING002
  44.     If (Upper(STRING002) == "NONE") Goto LABEL001
  45.     FGet 1, STRING001
  46.     FGet 1, STRING001
  47.     For INTEGER001 = 1 To STRING002
  48.         FGet 1, STRING001
  49.         If (Ferr(1)) Goto LABEL003
  50.     Next
  51.     :LABEL001
  52.     If (STRING006 <> "") Goto LABEL002
  53.     If (Exist(PPEPath() + PPEName() + "." + String(CurConf()))) Then
  54.         DispFile PPEPath() + PPEName() + "." + String(CurConf()), 1 + 4
  55.     Else
  56.         DispFile PPEPath() + PPEName() + ".DEF", 4 + 1
  57.     Endif
  58.     InputStr "Enter the Filename to Upload (Enter)=none", STRING006, 14, 12, Mask_File(), 8 + 64 + 256 + 2 + 4
  59.     If (Len(STRING006) == 0) Then
  60.         STRING007 = Chr(13)
  61.     Else
  62.         :LABEL002
  63.         STRING006 = STRING009 + STRING006
  64.         FGet 1, STRING004
  65.         If (Upper(STRING004) == "NONE") Then
  66.             STRING007 = STRING006
  67.         Else
  68.             FGet 1, STRING005
  69.             While ((STRING004 <> String(CurConf())) && !Ferr(1)) Do
  70.                 For INTEGER001 = 1 To STRING005
  71.                     FGet 1, STRING003
  72.                 Next
  73.                 FGet 1, STRING004
  74.                 FGet 1, STRING005
  75.             EndWhile
  76.             If (Ferr(1)) Then
  77.                 STRING007 = STRING006
  78.             Else
  79.                 For INTEGER001 = 1 To STRING005
  80.                     FGet 1, STRING003
  81.                     If (Ferr(1)) Goto LABEL003
  82.                     If (Right(STRING006, Len(STRING006) - InStr(STRING006, ".")) == STRING003) Then
  83.                         PrintLn "You have tried to upload a filetype that is not allowed in this conference."
  84.                         PrintLn "Please join the appropriate conference and try your upload again."
  85.                         PrintLn 
  86.                         STRING007 = Chr(13)
  87.                         Wait
  88.                         Goto LABEL003
  89.                     Endif
  90.                 Next
  91.                 STRING007 = STRING006
  92.             Endif
  93.         Endif
  94.     Endif
  95.     :LABEL003
  96.     FClose 1
  97.     KbdStuff STRING007
  98.     End
  99.  
  100. ;------------------------------------------------------------------------------
  101. ;
  102. ; Usage report (before postprocessing)
  103. ;
  104. ; ■ Statements used :
  105. ;
  106. ;    1       End
  107. ;    1       Wait
  108. ;    24      Goto 
  109. ;    17      Let 
  110. ;    3       PrintLn 
  111. ;    15      If 
  112. ;    2       DispFile 
  113. ;    1       FOpen 
  114. ;    1       FClose 
  115. ;    10      FGet 
  116. ;    1       InputStr 
  117. ;    1       Tokenize 
  118. ;    1       GetToken 
  119. ;    1       KbdStuff 
  120. ;
  121. ;
  122. ; ■ Functions used :
  123. ;
  124. ;    20      +
  125. ;    1       -
  126. ;    5       ==
  127. ;    2       <>
  128. ;    3       <
  129. ;    3       <=
  130. ;    1       >
  131. ;    6       >=
  132. ;    11      !
  133. ;    7       &&
  134. ;    3       ||
  135. ;    2       Len(
  136. ;    3       Upper()
  137. ;    1       Right()
  138. ;    4       Ferr()
  139. ;    2       Chr()
  140. ;    1       InStr()
  141. ;    3       String()
  142. ;    1       Mask_File()
  143. ;    3       CurConf()
  144. ;    4       PPEPath()
  145. ;    1       Exist()
  146. ;    1       TokenStr()
  147. ;    4       PPEName()
  148. ;    1       TokCount()
  149. ;
  150. ;------------------------------------------------------------------------------
  151. ;
  152. ; Analysis flags : No flag
  153. ;
  154. ;------------------------------------------------------------------------------
  155. ;
  156. ; Postprocessing report
  157. ;
  158. ;    3       For/Next
  159. ;    1       While/EndWhile
  160. ;    6       If/Then or If/Then/Else
  161. ;    0       Select Case
  162. ;
  163. ;------------------------------------------------------------------------------
  164. ;                 AEGiS Corp - Break the routines, code against the machines!
  165. ;------------------------------------------------------------------------------
  166.