home *** CD-ROM | disk | FTP | other *** search
/ Groovy Bytes: Behind the Moon / groovybytes.iso / GROOVY / PPE / DIAMOND / CKDIZ130.ZIP / PCB151.ZIP / SENT.PPE (.txt) < prev   
Encoding:
PCBoard Programming Language Executable  |  1994-11-30  |  3.5 KB  |  197 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.     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.  
  31. ;------------------------------------------------------------------------------
  32.  
  33.     FOpen 1, PPEPath() + "DIZ-CFG", 0, 0
  34.     FGet 1, STRING002
  35.     FGet 1, STRING002
  36.     FClose 1
  37.     If ((STRING002 <> 0) && !Exist(PPEPath() + "USERS\CHECKDIZ.OUT")) Then
  38.         FCreate 1, "DATA.BAT", 2, 0
  39.         FPutLn 1, "@ECHO OFF"
  40.         FPutLn 1, "MD " + PPEPath() + "USERS"
  41.         FPutLn 1, "REM > " + PPEPath() + "USERS\CHECKDIZ.OUT"
  42.         FClose 1
  43.         SaveScrn
  44.         Shell 1, STRING008, "DATA.BAT", 0
  45.         RestScrn
  46.         Delete "DATA.BAT"
  47.     Endif
  48.     If ((STRING002 <> 0) && (CurSec() >= STRING002)) Then
  49.         For INTEGER001 = 1 To Len(U_Name())
  50.             STRING007 = STRING007 + Asc(Mid(Mixed(U_Name()), INTEGER001, 1)) / 4
  51.         Next
  52.         STRING006 = Strip(U_Name(), " ")
  53.         STRING006 = Strip(STRING006, ".")
  54.         If (Len(U_Name()) < 14) STRING005 = STRING006 + "." + STRING007
  55.         If (STRING005 <> "") Goto LABEL001
  56.         STRING005 = Mid(STRING006, 1, 1)
  57.         STRING005 = STRING005 + Mid(STRING006, 3, 1)
  58.         STRING005 = STRING005 + Mid(STRING006, 5, 1)
  59.         STRING005 = STRING005 + Mid(STRING006, 7, 1)
  60.         STRING005 = STRING005 + Mid(STRING006, 9, 1)
  61.         STRING005 = STRING005 + Mid(STRING006, 11, 1)
  62.         STRING005 = STRING005 + Mid(STRING006, 13, 1)
  63.         STRING005 = STRING005 + Mid(STRING006, 15, 1)
  64.         STRING005 = STRING005 + "." + STRING007
  65.         :LABEL001
  66.         If (Exist(PPEPath() + "USERS\" + STRING005)) Then
  67.             STRING001 = ReadLine(PPEPath() + "USERS\" + STRING005, 1)
  68.             FClose -1
  69.         Endif
  70.         If (Exist(PPEPath() + "USERS\" + STRING005)) Goto LABEL002
  71.         STRING001 = "Uploaded by: " + Mixed(U_Name())
  72.         STRING004 = 1
  73.         :LABEL002
  74.     Else
  75.         Newline
  76.         Print "@X0CSORRY , " + U_Name() + " YOU ARE NOT ALLOWED TO MODiFY YOUR UPLOADED BY STRING !"
  77.         End
  78.     Endif
  79.     Newline
  80.     PrintLn "@X08I@X07F @X0FYOU WANT TO CHANGE YOUR UGLY @X07`@X0F" + STRING001 + "@X07'"
  81.     PrintLn "@X08Y@X07OU@X0F'RE ABLE TO DO SO @X07-@X0F IF NOT @X07-@X0F SiMPLY PRESS ENTE@X07R @X08!"
  82.     STRING003 = STRING001
  83.     STRING010 = " !" + Chr(34) + "#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ÇüéâäàåçêëèïîìÄÅÉæÆôöòûùÿÖÜ¢£¥₧ƒáíóúñѪº¿⌐¬½¼¡«»░▒▓│┤╡╢╖╕╣║╗╝╜╛┐└┴┬├─┼╞╟╚╔╩╦╠═╬╧╨╤╥╙╘╒╓╫╪┘┌█▄▌▐▀αßΓπΣσµτΦΘΩδ∞φε∩≡±≥≤⌠⌡÷≈°∙·√ⁿ²■"
  84.     STRING009 = "@X08E@X07NT@X0FER YOUR NEW UPLOAD STR@X07IN@X08G "
  85.     InputStr STRING009, STRING001, 0, 45, STRING010, 2 + 4 + 128 + 8192
  86.     If ((STRING004 == 1) && (STRING003 == STRING001)) Goto LABEL004
  87.     If (Strip(STRING001, " ") == "") Goto LABEL003
  88.     If (STRING003 == STRING001) Goto LABEL003
  89.     FCreate 1, PPEPath() + "USERS\" + STRING005, 2, 0
  90.     FPutLn 1, STRING001
  91.     FClose 1
  92.     If (GrafMode() <> "N") Then
  93.         Backup 80
  94.         ClrEol
  95.     Endif
  96.     If (GrafMode() == "N") Newlines 2
  97.     PrintLn "@X07`@X0F" + STRING001 + "@X07'@X0F iS YOUR NEW SENT BY STRiN@X07G @X08!"
  98.     Log "" + U_Name() + " CHANGED HiS `UPLOADED BY' STRiNG", 0
  99.     End
  100.     :LABEL003
  101.     If (GrafMode() <> "N") Then
  102.         Backup 80
  103.         ClrEol
  104.     Endif
  105.     If (GrafMode() == "N") Newlines 2
  106.     PrintLn "@X08Y@X07OU@X0F DiDN'T MODiFY YOUR @X07`@X0F" + STRING003 + "@X07'@X0F STRi@X07NG@X08 ?"
  107.     End
  108.     :LABEL004
  109.     FCreate 1, PPEPath() + "USERS\" + STRING005, 2, 0
  110.     FPutLn 1, STRING001
  111.     FClose 1
  112.     If (GrafMode() <> "N") Then
  113.         Backup 80
  114.         ClrEol
  115.     Endif
  116.     If (GrafMode() == "N") Newlines 2
  117.     PrintLn "@X08Y@X07OU@X0F DiDN'T MODiFY YOUR @X07`@X0F" + STRING003 + "@X07'@X0F STRi@X07NG@X08 ?"
  118.     End
  119.  
  120. ;------------------------------------------------------------------------------
  121. ;
  122. ; Usage report (before postprocessing)
  123. ;
  124. ; ■ Statements used :
  125. ;
  126. ;    4       End
  127. ;    3       ClrEol
  128. ;    14      Goto 
  129. ;    21      Let 
  130. ;    1       Print 
  131. ;    5       PrintLn 
  132. ;    16      If 
  133. ;    3       FCreate 
  134. ;    1       FOpen 
  135. ;    5       FClose 
  136. ;    2       FGet 
  137. ;    5       FPutLn 
  138. ;    1       Delete 
  139. ;    1       Log 
  140. ;    1       InputStr 
  141. ;    2       Newline
  142. ;    3       Newlines 
  143. ;    1       Shell 
  144. ;    3       Backup 
  145. ;    1       SaveScrn
  146. ;    1       RestScrn
  147. ;
  148. ;
  149. ; ■ Functions used :
  150. ;
  151. ;    1       -
  152. ;    1       /
  153. ;    47      +
  154. ;    7       ==
  155. ;    6       <>
  156. ;    2       <
  157. ;    1       <=
  158. ;    3       >=
  159. ;    9       !
  160. ;    5       &&
  161. ;    1       ||
  162. ;    3       Len(
  163. ;    9       Mid()
  164. ;    1       Chr()
  165. ;    1       Asc()
  166. ;    8       U_Name()
  167. ;    3       Strip()
  168. ;    9       PPEPath()
  169. ;    1       ReadLine()
  170. ;    1       CurSec()
  171. ;    3       Exist()
  172. ;    6       GrafMode()
  173. ;    2       Mixed()
  174. ;
  175. ;------------------------------------------------------------------------------
  176. ;
  177. ; Analysis flags : S
  178. ;
  179. ; S - Shell to DOS ■ 5
  180. ;     This may be normal if the PPE need to execute an external command,
  181. ;     but may be actually anything... nasty (formating HD, rebooting,...)
  182. ;     or usefull (sorting, maintenance,...). Check!
  183. ;     ■ Search for : SHELL
  184. ;
  185. ;------------------------------------------------------------------------------
  186. ;
  187. ; Postprocessing report
  188. ;
  189. ;    1       For/Next
  190. ;    0       While/EndWhile
  191. ;    6       If/Then or If/Then/Else
  192. ;    0       Select Case
  193. ;
  194. ;------------------------------------------------------------------------------
  195. ;                 AEGiS Corp - Break the routines, code against the machines!
  196. ;------------------------------------------------------------------------------
  197.