home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / ENAME101.ZIP / ENAME.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-01-11  |  2KB  |  135 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.     String   STRING001
  21.     String   STRING002
  22.     String   STRING003
  23.     String   STRING004
  24.     String   STRING005
  25.     String   STRING006
  26.     String   STRING007
  27.     String   STRING008
  28.     String   STRING009
  29.     String   STRING010
  30.     String   STRING011
  31.  
  32. ;------------------------------------------------------------------------------
  33.  
  34.     FOpen 1, PPEPath() + "ENAME.INI", 0, 0
  35.     FGet 1, STRING006
  36.     FGet 1, STRING007
  37.     FGet 1, STRING008
  38.     FGet 1, STRING009
  39.     FGet 1, STRING011
  40.     FClose 1
  41.     STRING001 = U_Name()
  42.     If (Upper(STRING011) == "YES") STRING001 = Lower(STRING001)
  43.     STRING002 = ""
  44.     STRING005 = ReadLine(PCBDat(), 289)
  45.     STRING010 = ReadLine(PCBDat(), 294)
  46.     For INTEGER001 = 1 To Len(STRING001)
  47.         STRING003 = Mid(STRING001, INTEGER001, 1)
  48.         Select Case (STRING003)
  49.             Case " "
  50.                 STRING004 = STRING010
  51.             Case "."
  52.                 STRING004 = "#d#"
  53.             Case "_"
  54.                 STRING004 = "#u#"
  55.             Case "("
  56.                 STRING004 = "#l#"
  57.             Case ")"
  58.                 STRING004 = "#r#"
  59.             Case ","
  60.                 STRING004 = "#m#"
  61.             Case ":"
  62.                 STRING004 = "#c#"
  63.             Case "\"
  64.                 STRING004 = "#b#"
  65.             Case "#"
  66.                 STRING004 = "#h#"
  67.             Case "="
  68.                 STRING004 = "#e#"
  69.             Case "/"
  70.                 STRING004 = "#s#"
  71.             Case Else
  72.                 STRING004 = STRING003
  73.         End Select
  74.         STRING002 = STRING002 + STRING004
  75.     Next
  76.     Print STRING008 + " " + STRING006 + STRING002 + STRING007 + "@" + STRING005 + STRING009 + "@X07"
  77.  
  78. ;------------------------------------------------------------------------------
  79. ;
  80. ; Usage report (before postprocessing)
  81. ;
  82. ; ■ Statements used :
  83. ;
  84. ;    24      Goto 
  85. ;    21      Let 
  86. ;    1       Print 
  87. ;    13      If 
  88. ;    1       FOpen 
  89. ;    1       FClose 
  90. ;    5       FGet 
  91. ;
  92. ;
  93. ; ■ Functions used :
  94. ;
  95. ;    11      +
  96. ;    12      ==
  97. ;    1       <
  98. ;    1       <=
  99. ;    2       >=
  100. ;    12      !
  101. ;    2       &&
  102. ;    1       ||
  103. ;    2       Len(
  104. ;    1       Lower()
  105. ;    1       Upper()
  106. ;    1       Mid()
  107. ;    1       U_Name()
  108. ;    2       PCBDat()
  109. ;    1       PPEPath()
  110. ;    2       ReadLine()
  111. ;
  112. ;------------------------------------------------------------------------------
  113. ;
  114. ; Analysis flags : d
  115. ;
  116. ; d - Access PCBOARD.DAT ■ 2
  117. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  118. ;     for many PPE so they can find various informations on the system
  119. ;     (system paths, max number of lines in messages, ...) but it may also
  120. ;     be a way to gather vital informations.
  121. ;     ■ Search for : PCBDAT()
  122. ;
  123. ;------------------------------------------------------------------------------
  124. ;
  125. ; Postprocessing report
  126. ;
  127. ;    1       For/Next
  128. ;    0       While/EndWhile
  129. ;    0       If/Then or If/Then/Else
  130. ;    1       Select Case
  131. ;
  132. ;------------------------------------------------------------------------------
  133. ;                 AEGiS Corp - Break the routines, code against the machines!
  134. ;------------------------------------------------------------------------------
  135.