home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / SCUMRQ1.ZIP / RQST1.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-03-02  |  6KB  |  330 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.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Integer  INTEGER001
  23.     Integer  INTEGER002
  24.     Integer  INTEGER003
  25.     Integer  INTEGER004
  26.     String   STRING001
  27.     String   STRING002
  28.     String   STRING003
  29.     String   STRING004
  30.     String   STRING005
  31.     String   STRING006
  32.     String   STRING007
  33.     String   STRING008
  34.     String   STRING009
  35.  
  36. ;------------------------------------------------------------------------------
  37.  
  38.     GetUser
  39.     StartDisp 1
  40.     INTEGER004 = 17
  41.     STRING006 = Date()
  42.     STRING008 = Chr(27)
  43.     STRING009 = Chr(13)
  44.     If (Exist(PPEPath() + "request.dat")) Goto LABEL001
  45.     Gosub LABEL013
  46.     :LABEL001
  47.     Gosub LABEL011
  48.     Gosub LABEL003
  49.     STRING003 = "q"
  50.     AnsiPos 1, INTEGER004
  51.     InputStr "@X07@X02 @X0F(A)@X02D@X0Ed@X02, @X0F(L)@X0Ai@X02ST, @X0E@X0F(K)@X0Ai@X0ELL @X02o@X06@X0Er @X0F(Q)@X0Au@X0Eit-@X02> _", STRING003, 0, 1, "LAQKlaqk", 32
  52.     While ((Lower(STRING003) <> "q") && (STRING003 <> "")) Do
  53.         Select Case (Lower(STRING003))
  54.             Case "l"
  55.                 Gosub LABEL003
  56.             Case "a"
  57.                 Gosub LABEL002
  58.             Case "k"
  59.                 Gosub LABEL005
  60.         End Select
  61.         AnsiPos 1, INTEGER004
  62.         InputStr "@X07@X02 @X0F(A)@X02D@X0Ed@X02, @X0F(L)@X0Ai@X02ST, @X0E@X0F(K)@X0Ai@X0ELL @X02o@X06@X0Er @X0F(Q)@X0Au@X0Eit-@X02> _", STRING003, 0, 1, "LAQKlaqk", 32
  63.     EndWhile
  64.     StartDisp 2
  65.     End
  66.     :LABEL002
  67.     STRING002 = ""
  68.     Gosub LABEL015
  69.     AnsiPos 1, INTEGER004
  70.     InputStr " @X02W@X0EhaTs @X0Bt@X05H@X0BE R@X02eQ@X0BUes@X09T@X0A", STRING002, 0, 42, Mask_Ascii(), 2 + 4096 + 32
  71.     If (STRING002 <> "") Then
  72.         FAppend 1, PPEPath() + "request.dat", 1, 3
  73.         FPutLn 1, StripAtx(STRING002)
  74.         FPutLn 1, Mixed(StripAtx(U_Name()))
  75.         FPutLn 1, STRING006
  76.         FClose 1
  77.         Gosub LABEL003
  78.     Else
  79.         AnsiPos 1, INTEGER004 - 1
  80.         DispStr "@X0B @X02i@X0E'@X0BM @X0ET@X0Be@X05LL@X0BiN t@X05He Sys@X02Op @X09Yo@X02Ur @X0Ba@X05N i@X0EDiOt@X02!@X05! "
  81.         Log STRING008 + "[1;37mReQueSt: " + U_Name() + " iS aN IdiOt!!!!" + STRING008 + "[0m", 0
  82.         Newline
  83.         AnsiPos 1, INTEGER004
  84.         Print Space(79)
  85.     Endif
  86.     Return
  87.     :LABEL003
  88.     STRING005 = ""
  89.     INTEGER001 = 0
  90.     FOpen 1, PPEPath() + "request.dat", 0, 0
  91.     FGet 1, STRING004
  92.     FGet 1, STRING005
  93.     FGet 1, STRING007
  94.     INTEGER003 = 6
  95.     BOOLEAN002 = 1
  96.     While (STRING005 <> "") Do
  97.         If ((INTEGER001 % (INTEGER004 - 8) == 0) && (INTEGER001 > 0)) Then
  98.             Gosub LABEL007
  99.             INTEGER003 = 6
  100.             BOOLEAN002 = 1
  101.         Endif
  102.         If (BOOLEAN002) Goto LABEL004
  103.         INTEGER003 = GetY()
  104.         :LABEL004
  105.         AnsiPos 2, INTEGER003
  106.         Print "@X0B", INTEGER001 + 1, Space(3 - Len(I2S(INTEGER001 + 1, 10)))
  107.         AnsiPos 7, INTEGER003
  108.         Print "@X0F", STRING004, Space(42 - Len(STRING004))
  109.         AnsiPos 50, INTEGER003
  110.         Print "@X08", STRING005, Space(19 - Len(STRING005))
  111.         AnsiPos 70, INTEGER003
  112.         Print "@X04", STRING007
  113.         Newline
  114.         Inc INTEGER001
  115.         FGet 1, STRING004
  116.         FGet 1, STRING005
  117.         FGet 1, STRING007
  118.         BOOLEAN002 = 0
  119.     EndWhile
  120.     Gosub LABEL010
  121.     FClose 1
  122.     Return
  123.     :LABEL005
  124.     Gosub LABEL015
  125.     BOOLEAN003 = 0
  126.     STRING001 = "q"
  127.     AnsiPos 1, INTEGER004
  128.     InputStr "@X07@X0CEn@X07Te@X0Er @X0F(#) @X0Ct@X0EO @X0CKi@X07L@X0EL@X0C, @X0F(L)@X0Ci@X0ES@X07t @X0Co@X07R @X0F(Q)@X0CU@X0Ei@X07T @X0C-> _", STRING001, 0, 3, "0123456789lqLQ", 32
  129.     While (Lower((Left(STRING001, 1) <> "q")) && (STRING001 <> "")) Do
  130.         If (Lower(Left(STRING001, 1)) == "l") Then
  131.             Gosub LABEL003
  132.             Goto LABEL005
  133.         Endif
  134.         If (S2I(STRING001, 10)) Goto LABEL006
  135.         AnsiPos 1, INTEGER004 - 1
  136.         PrintLn "@X0F!!!!!!!!!!INVALID INPUT!!!!!!!!!!!"
  137.         :LABEL006
  138.         INTEGER002 = S2I(STRING001, 10)
  139.         INTEGER001 = 0
  140.         FOpen 1, PPEPath() + "request.dat", 0, 0
  141.         FCreate 2, PPEPath() + "request.tmp", 1, 3
  142.         FGet 1, STRING004
  143.         FGet 1, STRING005
  144.         FGet 1, STRING007
  145.         While (STRING005 <> "") Do
  146.             If (INTEGER001 <> INTEGER002 - 1) Then
  147.                 FPutLn 2, STRING004
  148.                 FPutLn 2, STRING005
  149.                 FPutLn 2, STRING007
  150.             Else
  151.                 Log STRING008 + "[1;33mReQueSt: " + U_Name() + " *DeLeTeD: " + STRING004 + STRING008 + "[0m", 0
  152.                 Log STRING008 + "[1;33mRequest: Orgin " + STRING005 + " on " + STRING007 + STRING008 + "[0m", 0
  153.                 BOOLEAN003 = 1
  154.             Endif
  155.             Inc INTEGER001
  156.             FGet 1, STRING004
  157.             FGet 1, STRING005
  158.             FGet 1, STRING007
  159.         EndWhile
  160.         FClose 1
  161.         FClose 2
  162.         Delete PPEPath() + "request.dat"
  163.         Rename PPEPath() + "request.tmp", PPEPath() + "request.dat"
  164.         If (FileInf(PPEPath() + "request.dat", 4) == 0) Then
  165.             INTEGER003 = 6
  166.             Gosub LABEL014
  167.         Endif
  168.         If (BOOLEAN003) Then
  169.             AnsiPos 1, INTEGER004 - 1
  170.             Print "@X0C ReQUeSt @X0F" + String(INTEGER002) + "@X0C KiLLeD!   @X0F!!ReMoVal LogGeD......"
  171.         Else
  172.             AnsiPos 1, INTEGER004 - 1
  173.             Print "@X0FInVaLid NuMbeR!!"
  174.         Endif
  175.         Newline
  176.         STRING001 = "q"
  177.         AnsiPos 1, INTEGER004
  178.         InputStr "@X07@X0CEn@X07Te@X0Er @X0F(#) @X0Ct@X0EO @X0CKi@X07L@X0EL@X0C, @X0F(L)@X0Ci@X0ES@X07t @X0Co@X07R @X0F(Q)@X0CU@X0Ei@X07T @X0C-> _", STRING001, 0, 3, "0123456789lqLQ", 32
  179.     EndWhile
  180.     Gosub LABEL015
  181.     If (BOOLEAN003) Gosub LABEL003
  182.     Return
  183.     :LABEL007
  184.     BOOLEAN001 = 0
  185.     DefColor
  186.     INTEGER003 = INTEGER004 - 2
  187.     :LABEL008
  188.     If (BOOLEAN001) Goto LABEL009
  189.     Color Random(15)
  190.     AnsiPos 30, INTEGER003
  191.     Print "Press Enter for More"
  192.     AnsiPos 80, 1
  193.     Delay 5
  194.     BOOLEAN001 = (Inkey() == STRING009)
  195.     Goto LABEL008
  196.     :LABEL009
  197.     DefColor
  198.     Return
  199.     :LABEL010
  200.     INTEGER003 = GetY()
  201.     While (INTEGER003 <= INTEGER004 - 3) Do
  202.         Gosub LABEL014
  203.         Newline
  204.         INTEGER003 = GetY()
  205.     EndWhile
  206.     Gosub LABEL015
  207.     AnsiPos 1, INTEGER004 - 2
  208.     Print "@X07└───┴──────────────────────────────────────────────────────────────────────────┘"
  209.     Return
  210.     :LABEL011
  211.     Gosub LABEL012
  212.     For INTEGER001 = GetY() To INTEGER004 - 3
  213.         Print "@X07│   │                                                                          │"
  214.     Next
  215.     Print "@X07└───┴──────────────────────────────────────────────────────────────────────────┘"
  216.     Return
  217.     :LABEL012
  218.     PrintLn "@CLS@     @X0FRe@X09Q@X07ueS@X09t@X0FeR  @X09v@X071.@X090@X07.@X0Fby@X07.@X0FC@X07a@X09FFi@X07N@X0Fe                  @X0Ei@X02F @X0EY@X0Ao@X0EU G@X02oT@X0Es @X0AOnE @X0EoF @X0A'e@X0EM@X02..@X0E."
  219.     PrintLn "       @X09!@X0F!@X09YoMaMa@X0F!@X09! @X07B@X09r@X0Fa@X09n@X07d @X09P@X07PE@X09's                       @X0F!!! UPLOAD IT !!!"
  220.     Print "@X07┌───┬──────────────────────────────────────────────────────────────────────────┐│@X01#@X07#@X01#@X07│ @X01R@X09e@X07Que"
  221.     Print "@X09S@X01t                                    Re@X09Q@X07ueS@X09t@X01eR             D@X09aT@X01e    @X07│├───┼──────────────────────────────────────────────────────────────────────────┤"
  222.     Return
  223.     :LABEL013
  224.     FCreate 1, PPEPath() + "request.dat", 1, 3
  225.     FPutLn 1, "more ¡¡YoMaMa!! Brand PPE's"
  226.     FPutLn 1, "¡¡YoMaMa!!"
  227.     FPutLn 1, STRING006
  228.     FClose 1
  229.     Return
  230.     :LABEL014
  231.     AnsiPos 2, INTEGER003
  232.     Print Space(3)
  233.     AnsiPos 7, INTEGER003
  234.     Print Space(42)
  235.     AnsiPos 50, INTEGER003
  236.     Print Space(19)
  237.     AnsiPos 70, INTEGER003
  238.     Print Space(8)
  239.     Return
  240.     :LABEL015
  241.     AnsiPos 1, INTEGER004 - 1
  242.     Print Space(79)
  243.     Return
  244.  
  245. ;------------------------------------------------------------------------------
  246. ;
  247. ; Usage report (before postprocessing)
  248. ;
  249. ; ■ Statements used :
  250. ;
  251. ;    1       End
  252. ;    1       Color 
  253. ;    32      Goto 
  254. ;    28      Let 
  255. ;    18      Print 
  256. ;    3       PrintLn 
  257. ;    20      If 
  258. ;    2       FCreate 
  259. ;    2       FOpen 
  260. ;    1       FAppend 
  261. ;    5       FClose 
  262. ;    12      FGet 
  263. ;    9       FPutLn 
  264. ;    2       StartDisp 
  265. ;    1       GetUser
  266. ;    2       DefColor
  267. ;    1       Delete 
  268. ;    3       Log 
  269. ;    5       InputStr 
  270. ;    18      Gosub 
  271. ;    10      Return
  272. ;    1       Delay 
  273. ;    2       Inc 
  274. ;    4       Newline
  275. ;    1       DispStr 
  276. ;    22      AnsiPos 
  277. ;    1       Rename 
  278. ;
  279. ;
  280. ; ■ Functions used :
  281. ;
  282. ;    1       %
  283. ;    34      +
  284. ;    15      -
  285. ;    7       ==
  286. ;    8       <>
  287. ;    1       <
  288. ;    2       <=
  289. ;    1       >
  290. ;    2       >=
  291. ;    19      !
  292. ;    5       &&
  293. ;    1       ||
  294. ;    3       Len(
  295. ;    6       Lower()
  296. ;    2       Left()
  297. ;    9       Space()
  298. ;    2       Chr()
  299. ;    1       Random()
  300. ;    1       Date()
  301. ;    3       U_Name()
  302. ;    2       StripAtx()
  303. ;    1       Inkey()
  304. ;    1       String()
  305. ;    1       Mask_Ascii()
  306. ;    10      PPEPath()
  307. ;    1       Exist()
  308. ;    1       I2S()
  309. ;    2       S2I()
  310. ;    4       GetY()
  311. ;    1       FileInf()
  312. ;    1       Mixed()
  313. ;
  314. ;------------------------------------------------------------------------------
  315. ;
  316. ; Analysis flags : No flag
  317. ;
  318. ;------------------------------------------------------------------------------
  319. ;
  320. ; Postprocessing report
  321. ;
  322. ;    1       For/Next
  323. ;    5       While/EndWhile
  324. ;    6       If/Then or If/Then/Else
  325. ;    1       Select Case
  326. ;
  327. ;------------------------------------------------------------------------------
  328. ;                 AEGiS Corp - Break the routines, code against the machines!
  329. ;------------------------------------------------------------------------------
  330.