home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / BADBOY.ZIP / BADBOY.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-03-17  |  2KB  |  138 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.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Date     DATE001
  22.     Integer  INTEGER002
  23.     Integer  INTEGER003
  24.     String   STRING001
  25.     String   STRING002
  26.     String   STRING003
  27.     String   STRING004
  28.     String   STRING005
  29.     String   STRING006
  30.     String   STRING007
  31.     String   STRING008
  32.     String   STRING009
  33.     String   STRING010
  34.  
  35. ;------------------------------------------------------------------------------
  36.  
  37.     GetUser
  38.     INTEGER002 = U_Sec
  39.     If (INTEGER002 >= 50) Goto LABEL001
  40.     INTEGER002 = 5
  41.     INTEGER003 = 0
  42.     STRING001 = "SYSOP"
  43.     STRING002 = ""
  44.     STRING003 = "BAD BOY!"
  45.     STRING004 = "R"
  46.     DATE001 = Date() + 30
  47.     BOOLEAN001 = 0
  48.     BOOLEAN002 = 0
  49.     STRING005 = PPEPath() + "BadBoy" + ".MSG"
  50.     Message INTEGER003, STRING001, STRING002, STRING003, STRING004, DATE001, BOOLEAN001, BOOLEAN002, STRING005
  51.     If (INTEGER002 >= 10) U_Sec = 5
  52.     U_Sec = INTEGER002
  53.     PutUser
  54.     Log "User Attempted to DROP to DOS. SL reduced to 5", 1
  55.     STRING009 = TokenStr()
  56.     Cls
  57.     PrintLn "@X8CMistake!@X0F"
  58.     PrintLn ""
  59.     PrintLn "You attempted to access a command or function you had no"
  60.     PrintLn "right to think about, much less try."
  61.     PrintLn ""
  62.     PrintLn "But, we all make mistakes at one time or another so I will"
  63.     PrintLn "give you a chance to explain your action."
  64.     PrintLn ""
  65.     PrintLn "Depending on your response, and my mood, I may or may not"
  66.     PrintLn "reduce your access or, perhaps, delete you from MY board."
  67.     PrintLn ""
  68.     PrintLn "You'll have 3 lines. Make them good."
  69.     PrintLn ""
  70.     Wait
  71.     PrintLn ""
  72.     InputText "Well ", STRING006, 12, 65
  73.     PrintLn ""
  74.     InputText "     ", STRING007, 12, 65
  75.     PrintLn 
  76.     InputText "     ", STRING008, 12, 65
  77.     Log STRING006, 1
  78.     Log STRING007, 1
  79.     Log STRING008, 1
  80.     KbdStuff "BYE" + STRING009 + Chr(13)
  81.     End
  82.     :LABEL001
  83.     STRING010 = TokenStr()
  84.     KbdStuff "9" + STRING010 + Chr(13)
  85.     End
  86.  
  87. ;------------------------------------------------------------------------------
  88. ;
  89. ; Usage report (before postprocessing)
  90. ;
  91. ; ■ Statements used :
  92. ;
  93. ;    2       End
  94. ;    1       Cls
  95. ;    1       Wait
  96. ;    1       Goto 
  97. ;    15      Let 
  98. ;    16      PrintLn 
  99. ;    2       If 
  100. ;    1       GetUser
  101. ;    1       PutUser
  102. ;    4       Log 
  103. ;    3       InputText 
  104. ;    2       KbdStuff 
  105. ;    1       Message 
  106. ;
  107. ;
  108. ; ■ Functions used :
  109. ;
  110. ;    7       +
  111. ;    2       >=
  112. ;    2       Chr()
  113. ;    1       Date()
  114. ;    1       PPEPath()
  115. ;    2       TokenStr()
  116. ;
  117. ;------------------------------------------------------------------------------
  118. ;
  119. ; Analysis flags : W
  120. ;
  121. ; W - Write user ■ 5
  122. ;     Program writes a user record. Although this may be normal for a
  123. ;     User Editor, it may also be a way to modify an account level.
  124. ;     ■ Search for : PUTUSER
  125. ;
  126. ;------------------------------------------------------------------------------
  127. ;
  128. ; Postprocessing report
  129. ;
  130. ;    0       For/Next
  131. ;    0       While/EndWhile
  132. ;    0       If/Then or If/Then/Else
  133. ;    0       Select Case
  134. ;
  135. ;------------------------------------------------------------------------------
  136. ;                 AEGiS Corp - Break the routines, code against the machines!
  137. ;------------------------------------------------------------------------------
  138.