home *** CD-ROM | disk | FTP | other *** search
/ Groovy Bytes: Behind the Moon / groovybytes.iso / GROOVY / PPE / ALF / ALF_LC10.ZIP / WRITE.PPE (.txt) < prev   
Encoding:
PCBoard Programming Language Executable  |  1994-08-03  |  3.9 KB  |  260 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.     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   TSTRING013(10)
  32.     String   STRING014
  33.     String   STRING015
  34.     String   STRING016
  35.     String   STRING017
  36.     String   STRING018
  37.     String   TSTRING019(8)
  38.     String   STRING020
  39.     String   STRING021
  40.     String   STRING022
  41.     String   STRING023
  42.     String   STRING024
  43.     String   STRING025
  44.  
  45. ;------------------------------------------------------------------------------
  46.  
  47.     STRING017 = U_LDir()
  48.     STRING018 = PcbNode()
  49.     Goto LABEL001
  50.     Print " DON'T FUCKING PLAY AROUND WITH MY CODE OR I'LL KILL YAH!"
  51.     :LABEL001
  52.     If (Exist(PPEPath() + "LASTCALL.CNF")) Then
  53.         FOpen 1, PPEPath() + "LASTCALL.CNF", 2, 3
  54.         FGet 1, STRING020
  55.         FGet 1, STRING021
  56.         FGet 1, STRING022
  57.         FGet 1, STRING023
  58.         FGet 1, STRING024
  59.         FGet 1, STRING025
  60.         FClose 1
  61.     Endif
  62.     If (Exist(PPEPath() + STRING018)) Then
  63.         FOpen 1, PPEPath() + STRING018, 2, 3
  64.         FGet 1, STRING001
  65.         FGet 1, STRING002
  66.         FGet 1, STRING003
  67.         FGet 1, STRING004
  68.         FGet 1, STRING005
  69.         FGet 1, STRING006
  70.         FGet 1, STRING007
  71.         FGet 1, STRING008
  72.         FGet 1, STRING009
  73.         FGet 1, STRING010
  74.         FGet 1, STRING011
  75.         FGet 1, STRING012
  76.         FGet 1, STRING014
  77.         FClose 1
  78.     Else
  79.         Goto LABEL002
  80.     Endif
  81.     Select Case (STRING012)
  82.         Case "1"
  83.             STRING016 = "01"
  84.         Case "2"
  85.             STRING016 = "02"
  86.         Case "3"
  87.             STRING016 = "03"
  88.         Case "4"
  89.             STRING016 = "04"
  90.         Case "5"
  91.             STRING016 = "05"
  92.         Case "6"
  93.             STRING016 = "06"
  94.         Case "7"
  95.             STRING016 = "07"
  96.         Case "8"
  97.             STRING016 = "08"
  98.         Case "9"
  99.             STRING016 = "09"
  100.         Case "10"
  101.             STRING016 = "10"
  102.     End Select
  103.     If (STRING008 == U_Stat(2)) Then
  104.         TSTRING013(5) = "·"
  105.     Else
  106.         TSTRING013(5) = "■"
  107.     Endif
  108.     If (STRING008 == U_Stat(2)) Then
  109.         TSTRING013(6) = "·"
  110.     ElseIf (PageStat() == 1) Then
  111.         TSTRING013(6) = "·"
  112.     Else
  113.         TSTRING013(6) = "■"
  114.     Endif
  115.     If (STRING009 == U_Stat(3)) Then
  116.         TSTRING013(7) = "·"
  117.     Else
  118.         TSTRING013(7) = "■"
  119.     Endif
  120.     If (STRING010 == U_Stat(10)) Then
  121.         TSTRING013(8) = "·"
  122.     Else
  123.         TSTRING013(8) = "■"
  124.     Endif
  125.     If (STRING011 == STRING017) Then
  126.         TSTRING013(9) = "·"
  127.     Else
  128.         TSTRING013(9) = "■"
  129.     Endif
  130.     PutUser
  131.     GetAltUser STRING001
  132.     If (STRING004 == U_Fdl()) Then
  133.         TSTRING013(1) = "·"
  134.     Else
  135.         TSTRING013(1) = "■"
  136.     Endif
  137.     If (STRING005 == U_Ful()) Then
  138.         TSTRING013(2) = "·"
  139.     Else
  140.         TSTRING013(2) = "■"
  141.     Endif
  142.     If (STRING006 == U_MsgWr()) Then
  143.         TSTRING013(3) = "·"
  144.     Else
  145.         TSTRING013(3) = "■"
  146.     Endif
  147.     If (STRING007 == U_MsgRd()) Then
  148.         TSTRING013(4) = "·"
  149.     Else
  150.         TSTRING013(4) = "■"
  151.     Endif
  152.     If (Exist(PPEPath() + "CALL.DAT")) Then
  153.         FOpen 1, PPEPath() + "CALL.DAT", 2, 3
  154.         FGet 1, TSTRING019(1)
  155.         FGet 1, TSTRING019(2)
  156.         FGet 1, TSTRING019(3)
  157.         FGet 1, TSTRING019(4)
  158.         FGet 1, TSTRING019(5)
  159.         FGet 1, TSTRING019(6)
  160.         FGet 1, TSTRING019(7)
  161.         FClose 1
  162.     Endif
  163.     STRING015 = STRING020 + STRING001 + "@POS:24@" + STRING021 + STRING002 + "@POS:48@" + STRING022 + STRING003 + "@POS:56@" + STRING023 + Left(String(Time()), 5) + "@POS:64@" + STRING024 + STRING016 + "@POS:69@" + STRING025 + TSTRING013(1) + TSTRING013(2) + TSTRING013(3) + TSTRING013(4) + TSTRING013(5) + TSTRING013(6) + TSTRING013(7) + TSTRING013(8) + TSTRING013(9)
  164.     If (TSTRING019(1) == STRING014) Then
  165.         TSTRING019(1) = STRING015
  166.     ElseIf (TSTRING019(2) == STRING014) Then
  167.         TSTRING019(2) = STRING015
  168.     ElseIf (TSTRING019(3) == STRING014) Then
  169.         TSTRING019(3) = STRING015
  170.     ElseIf (TSTRING019(4) == STRING014) Then
  171.         TSTRING019(4) = STRING015
  172.     ElseIf (TSTRING019(5) == STRING014) Then
  173.         TSTRING019(5) = STRING015
  174.     ElseIf (TSTRING019(6) == STRING014) Then
  175.         TSTRING019(6) = STRING015
  176.     ElseIf (TSTRING019(7) == STRING014) Then
  177.         TSTRING019(7) = STRING015
  178.     Endif
  179.     FCreate 1, PPEPath() + "CALL.DAT", 1, 3
  180.     FPutLn 1, TSTRING019(1)
  181.     FPutLn 1, TSTRING019(2)
  182.     FPutLn 1, TSTRING019(3)
  183.     FPutLn 1, TSTRING019(4)
  184.     FPutLn 1, TSTRING019(5)
  185.     FPutLn 1, TSTRING019(6)
  186.     FPutLn 1, TSTRING019(7)
  187.     FClose 1
  188.     Delete PPEPath() + STRING018
  189.     :LABEL002
  190.     End
  191.  
  192. ;------------------------------------------------------------------------------
  193. ;
  194. ; Usage report (before postprocessing)
  195. ;
  196. ; ■ Statements used :
  197. ;
  198. ;    1       End
  199. ;    58      Goto 
  200. ;    39      Let 
  201. ;    1       Print 
  202. ;    30      If 
  203. ;    1       FCreate 
  204. ;    3       FOpen 
  205. ;    4       FClose 
  206. ;    26      FGet 
  207. ;    7       FPutLn 
  208. ;    1       PutUser
  209. ;    1       Delete 
  210. ;    1       GetAltUser 
  211. ;
  212. ;
  213. ; ■ Functions used :
  214. ;
  215. ;    32      +
  216. ;    27      ==
  217. ;    30      !
  218. ;    1       Left()
  219. ;    1       Time()
  220. ;    1       U_LDir()
  221. ;    1       U_Ful()
  222. ;    1       U_Fdl()
  223. ;    1       String()
  224. ;    8       PPEPath()
  225. ;    1       U_MsgRd()
  226. ;    1       U_MsgWr()
  227. ;    1       PcbNode()
  228. ;    3       Exist()
  229. ;    4       U_Stat()
  230. ;    1       PageStat()
  231. ;
  232. ;------------------------------------------------------------------------------
  233. ;
  234. ; Analysis flags : WR
  235. ;
  236. ; W - Write user ■ 5
  237. ;     Program writes a user record. Although this may be normal for a
  238. ;     User Editor, it may also be a way to modify an account level.
  239. ;     ■ Search for : PUTUSER
  240. ;
  241. ; R - Read user ■ 5
  242. ;     User records are read, this may signify that someone wants to get
  243. ;     various informations about a user (for example his password), but
  244. ;     this may also be normal for a program accessing user records (for
  245. ;     example a User Editor)
  246. ;     ■ Search for : GETALTUSER
  247. ;
  248. ;------------------------------------------------------------------------------
  249. ;
  250. ; Postprocessing report
  251. ;
  252. ;    0       For/Next
  253. ;    0       While/EndWhile
  254. ;    20      If/Then or If/Then/Else
  255. ;    1       Select Case
  256. ;
  257. ;------------------------------------------------------------------------------
  258. ;                 AEGiS Corp - Break the routines, code against the machines!
  259. ;------------------------------------------------------------------------------
  260.