home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / T / TBH-CMNT.ZIP / TBHCMNT.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1994-11-03  |  4KB  |  147 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 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     String   STRING001
  23.     String   STRING002
  24.     String   STRING003
  25.     String   STRING004
  26.     String   STRING005
  27.     String   STRING006
  28.     String   STRING007
  29.     String   TSTRING008(8)
  30.     String   TSTRING009(8)
  31.     String   STRING010
  32.     String   STRING011
  33.  
  34. ;------------------------------------------------------------------------------
  35.  
  36.     STRING001 = "Coded By: Napalm Death"
  37.     STRING002 = "By: nAPALM dEATH (TBH)"
  38.     STRING003 = "Comment to SysOp"
  39.     STRING004 = "v1.0"
  40.     STRING007 = Chr(13)
  41.     INTEGER002 = 8
  42.     FOpen 1, PPEPath() + "COMMENT.CFG", 0, 0
  43.     For INTEGER001 = 1 To INTEGER002
  44.         FGet 1, STRING010
  45.         FGet 1, STRING011
  46.         If (Len(STRING010) > 25) STRING010 = Left(STRING010, 25)
  47.         If (Len(STRING011) > 40) STRING011 = Left(STRING011, 40)
  48.         If (Len(STRING010) > 0) Then
  49.             INTEGER003 = INTEGER003 + 1
  50.             TSTRING008(INTEGER003) = STRING010
  51.             TSTRING009(INTEGER003) = STRING011
  52.         Endif
  53.     Next
  54.     FClose 1
  55.     Cls
  56.     PrintLn 
  57.     PrintLn "@X0F ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07▄"
  58.     PrintLn "@X0F █@X7F  @X7B" + STRING003 + "@X7F@POS:48@" + STRING004 + "@X7E@POS:56@" + STRING002 + "@POS:79@@X08█"
  59.     PrintLn "@X07 ▀@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  60.     PrintLn "@X0F ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X70▀@X07"
  61.     PrintLn "@X0F █@X70                                                                            @X08█"
  62.     PrintLn "@X0F █@X70          Please select the SYSOP you wish to leave a comment to.           @X08█"
  63.     PrintLn "@X0F █@X70         The different sysop's are responsible for their own areas.         @X08█"
  64.     PrintLn "@X0F █@X70  @X74-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-≡  ≡-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-    @X08█"
  65.     PrintLn "@X0F █@X70                                                                            @X08█"
  66.     For INTEGER001 = 1 To INTEGER003
  67.         PrintLn "@X0F █@X74  " + String(INTEGER001) + "@X7F) @X7F" + TSTRING008(INTEGER001) + "@X76@POS:36@" + TSTRING009(INTEGER001) + "@POS:79@@X08█"
  68.     Next
  69.     PrintLn "@X0F █@X70                                                                            @X08█"
  70.     PrintLn "@X0F @X70▄@X08▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  71.     :LABEL001
  72.     AnsiPos 1, 22
  73.     InputStr "@X08(@X04@TIMELEFT@@X0C min. left@X08) @X08C@X07om@X0Fment @X08t@X07o @X08S@X07ys@X0Fop# (1-" + String(INTEGER003) + "), @X08(@X04Enter@X08)@X08=@X04E@X0Cxi@X08t ", STRING005, 14, 1, "123456789", 2 + 4 + 32
  74.     If (STRING005 == "") Goto LABEL003
  75.     If (STRING005 > INTEGER003) Goto LABEL001
  76.     :LABEL002
  77.     AnsiPos 1, 22
  78.     InputStr " @X08S@X07ub@X0Fject, @X08(@X0CEnter@X08)@X01=@X08E@X07x@X0Fit ", STRING006, 14, 53, Mask_Ascii(), 2 + 4 + 8 + 32
  79.     If (STRING006 == "") Goto LABEL003
  80.     If (Len(STRING006) < 5) Then
  81.         AnsiPos 19, 21
  82.         PrintLn "@X8CSubject@X0F @X08n@X07o@X0Ft @X08l@X07on@X08g @X08e@X07no@X0Fugh, @X08p@X07le@X0Fase @X08t@X07r@X0Fy @X08a@X07ga@X0Fin."
  83.         Goto LABEL002
  84.     Endif
  85.     Log "Comment sent to: " + TSTRING008(STRING005), 0
  86.     KbdStuff "E" + STRING007 + TSTRING008(STRING005) + STRING007 + STRING006 + STRING007 + STRING007
  87.     :LABEL003
  88.     AnsiPos 1, 21
  89.     PrintLn "@X04CoDeD bY: nAPALM dEATH @X08[TBH]"
  90.     End
  91.  
  92. ;------------------------------------------------------------------------------
  93. ;
  94. ; Usage report (before postprocessing)
  95. ;
  96. ; ■ Statements used :
  97. ;
  98. ;    1       End
  99. ;    1       Cls
  100. ;    10      Goto 
  101. ;    15      Let 
  102. ;    15      PrintLn 
  103. ;    9       If 
  104. ;    1       FOpen 
  105. ;    1       FClose 
  106. ;    2       FGet 
  107. ;    1       Log 
  108. ;    2       InputStr 
  109. ;    1       KbdStuff 
  110. ;    4       AnsiPos 
  111. ;
  112. ;
  113. ; ■ Functions used :
  114. ;
  115. ;    30      +
  116. ;    2       ==
  117. ;    3       <
  118. ;    2       <=
  119. ;    4       >
  120. ;    4       >=
  121. ;    4       !
  122. ;    4       &&
  123. ;    2       ||
  124. ;    4       Len(
  125. ;    2       Left()
  126. ;    1       Chr()
  127. ;    2       String()
  128. ;    1       Mask_Ascii()
  129. ;    1       PPEPath()
  130. ;
  131. ;------------------------------------------------------------------------------
  132. ;
  133. ; Analysis flags : No flag
  134. ;
  135. ;------------------------------------------------------------------------------
  136. ;
  137. ; Postprocessing report
  138. ;
  139. ;    2       For/Next
  140. ;    0       While/EndWhile
  141. ;    2       If/Then or If/Then/Else
  142. ;    0       Select Case
  143. ;
  144. ;------------------------------------------------------------------------------
  145. ;                 AEGiS Corp - Break the routines, code against the machines!
  146. ;------------------------------------------------------------------------------
  147.