home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / PWAULTP3.ZIP / PWAPRGMS.A02 / PWA95 / PWAFSE15.ZIP / EDITOR.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-04-09  |  2KB  |  121 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.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     String   STRING001
  23.     String   STRING002
  24.     BigStr   BIGSTR001
  25.     BigStr   BIGSTR002
  26.     BigStr   BIGSTR003
  27.     BigStr   BIGSTR004
  28.     BigStr   BIGSTR005
  29.     BigStr   BIGSTR006
  30.     BigStr   BIGSTR007
  31.  
  32. ;------------------------------------------------------------------------------
  33.  
  34.     STRING002 = PPEPath() + "CONFIG.DAT"
  35.     FOpen 1, STRING002, 2, 0
  36.     FGet 1, BIGSTR002
  37.     FGet 1, BIGSTR003
  38.     FGet 1, BIGSTR005
  39.     FGet 1, BIGSTR004
  40.     FGet 1, BIGSTR001
  41.     FGet 1, BIGSTR007
  42.     FGet 1, BIGSTR006
  43.     STRING001 = ScrText(1, 1, 80, 0)
  44.     INTEGER002 = 0
  45.     While (Upper(Mid(STRING001, INTEGER002, 1)) <> "T") Do
  46.         INTEGER002 = INTEGER002 + 1
  47.     EndWhile
  48.     INTEGER003 = INTEGER002
  49.     While (Upper(Mid(STRING001, INTEGER003, 5)) <> "SUBJ:") Do
  50.         INTEGER003 = INTEGER003 + 1
  51.     EndWhile
  52.     Print BIGSTR001
  53.     Print "@QOFF@@POFF@H"
  54.     Print BIGSTR005 + STRING001
  55.     AnsiPos INTEGER002, 1
  56.     Print BIGSTR002 + "To:"
  57.     AnsiPos INTEGER003, 1
  58.     PrintLn BIGSTR003 + "Subj:"
  59.     Print BIGSTR004
  60.     STRING001 = ScrText(4, 3, 1, 0)
  61.     Select Case (STRING001)
  62.         Case ":"
  63.             STRING001 = ScrText(4, 4, 1, 0)
  64.         Case ":"
  65.             INTEGER001 = 3
  66.             While (ScrText(4, INTEGER001, 1, 0) == ":") Do
  67.                 AnsiPos 1, INTEGER001
  68.                 STRING001 = ScrText(1, INTEGER001, 5, 0)
  69.                 Print BIGSTR007 + Left(STRING001, 3)
  70.                 Print BIGSTR006 + "│"
  71.                 INTEGER001 = INTEGER001 + 1
  72.             EndWhile
  73.     End Select
  74.     FClose 1
  75.  
  76. ;------------------------------------------------------------------------------
  77. ;
  78. ; Usage report (before postprocessing)
  79. ;
  80. ; ■ Statements used :
  81. ;
  82. ;    8       Goto 
  83. ;    11      Let 
  84. ;    7       Print 
  85. ;    1       PrintLn 
  86. ;    5       If 
  87. ;    1       FOpen 
  88. ;    1       FClose 
  89. ;    7       FGet 
  90. ;    3       AnsiPos 
  91. ;
  92. ;
  93. ; ■ Functions used :
  94. ;
  95. ;    9       +
  96. ;    3       ==
  97. ;    2       <>
  98. ;    5       !
  99. ;    2       Upper()
  100. ;    2       Mid()
  101. ;    1       Left()
  102. ;    1       PPEPath()
  103. ;    5       ScrText()
  104. ;
  105. ;------------------------------------------------------------------------------
  106. ;
  107. ; Analysis flags : No flag
  108. ;
  109. ;------------------------------------------------------------------------------
  110. ;
  111. ; Postprocessing report
  112. ;
  113. ;    0       For/Next
  114. ;    3       While/EndWhile
  115. ;    0       If/Then or If/Then/Else
  116. ;    1       Select Case
  117. ;
  118. ;------------------------------------------------------------------------------
  119. ;                 AEGiS Corp - Break the routines, code against the machines!
  120. ;------------------------------------------------------------------------------
  121.