home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / J_CONFX.ZIP / J_CONF2.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-01-04  |  3KB  |  206 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.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     String   STRING001
  27.     String   STRING002
  28.     String   STRING003
  29.     String   STRING004
  30.     String   STRING005
  31.     String   STRING006
  32.     String   STRING007
  33.     String   TSTRING008(3)
  34.  
  35. ;------------------------------------------------------------------------------
  36.  
  37.     TSTRING008(0) = "-"
  38.     TSTRING008(1) = "\"
  39.     TSTRING008(2) = "|"
  40.     TSTRING008(3) = "/"
  41.     If (TokCount() > 0) Then
  42.         STRING003 = "J;" + STRING003
  43.         KbdStuff STRING003
  44.         End
  45.     Endif
  46.     INTEGER001 = ReadLine(PCBDat(), 108)
  47.     STRING001 = ReadLine(PCBDat(), 31)
  48.     If (CurColor() < 10) Then
  49.         STRING002 = "0F"
  50.     Else
  51.         STRING002 = I2S(CurColor(), 16)
  52.         INTEGER004 = S2I(Left(STRING002, 1), 16)
  53.         If (7 < INTEGER004) INTEGER004 = INTEGER004 - 8
  54.         If (INTEGER004 == 1) Then
  55.             STRING002 = I2S(INTEGER004, 16) + "F"
  56.         Else
  57.             STRING002 = I2S(INTEGER004, 16) + "8"
  58.         Endif
  59.     Endif
  60.     INTEGER002 = S2I(STRING002, 16)
  61.     GetUser
  62.     INTEGER003 = U_RecNum(U_Name())
  63.     INTEGER005 = 1
  64.     For INTEGER004 = 0 To INTEGER001
  65.         If (INTEGER005 == 1) Then
  66.             Color INTEGER002
  67.             Cls
  68.             PrintLn "  @INCONF@"
  69.             PrintLn " ###  Conference Name/Descripton                                    Access"
  70.             PrintLn " ---  ------------------------------------------------------------  -------"
  71.         Endif
  72.         Gosub LABEL003
  73.         STRING003 = ReadLine(STRING001, 33 * INTEGER004 + 1)
  74.         If (Len(Trim(STRING003, " ")) > 0) Then
  75.             STRING004 = ReadLine(STRING001, 33 * INTEGER004 + 20)
  76.             STRING005 = ReadLine(STRING001, 33 * INTEGER004 + 23)
  77.             If (U_InConf(INTEGER003, INTEGER004) || ((U_Sec >= S2I(STRING005, 10)) && (STRING004 == "-1"))) Then
  78.                 INTEGER005 = INTEGER005 + 1
  79.                 If (STRING004 == "-1") STRING004 = "Public"
  80.                 If (STRING004 == "0") STRING004 = "Private"
  81.                 STRING006 = Right("   " + I2S(INTEGER004, 10), 3)
  82.                 Backup 3
  83.                 Color INTEGER002
  84.                 If (STRING004 == "Private") Then
  85.                     PrintLn " ", STRING006, "  ", Mid(STRING003 + Space(62), 1, 62), STRING004
  86.                     Goto LABEL001
  87.                 Endif
  88.                 PrintLn " ", STRING006, "  ", Mid(STRING003 + Space(62), 1, 62), STRING005
  89.                 :LABEL001
  90.                 If (INTEGER005 == 4) PrintLn 
  91.                 If (INTEGER005 == 8) PrintLn 
  92.             Endif
  93.         Endif
  94.         If ((INTEGER005 == 13) || (INTEGER004 == INTEGER001)) Then
  95.             Backup 3
  96.             Color INTEGER002
  97.             If ((INTEGER005 == 13) && (INTEGER004 <> INTEGER001)) Then
  98.                 PrintLn " "
  99.                 InputStr "(@TIMELEFT@ min left), Conference (#) to join or Enter for More", STRING007, 14, 5, "1234567890N", 8 + 32
  100.                 Goto LABEL002
  101.             Endif
  102.             If (INTEGER004 == INTEGER001) Then
  103.                 PrintLn " "
  104.                 InputStr "(@TIMELEFT@ min left), Conference (#) to join or Enter for none", STRING007, 14, 5, "1234567890N", 8 + 32
  105.             Endif
  106.             :LABEL002
  107.             If (Len(Trim(STRING007, " ")) > 0) Then
  108.                 If (STRING007 == "N") Break
  109.                 STRING007 = "J;" + STRING007
  110.                 KbdStuff STRING007
  111.                 Break
  112.             Endif
  113.             INTEGER005 = 1
  114.         Endif
  115.     Next
  116.     DefColor
  117.     Cls
  118.     End
  119.     :LABEL003
  120.     Backup 2
  121.     Color INTEGER002
  122.     Print TSTRING008(INTEGER006 % 4), " "
  123.     Inc INTEGER006
  124.     INTEGER007 = 1
  125.     Inc INTEGER007
  126.     Return
  127.  
  128. ;------------------------------------------------------------------------------
  129. ;
  130. ; Usage report (before postprocessing)
  131. ;
  132. ; ■ Statements used :
  133. ;
  134. ;    2       End
  135. ;    2       Cls
  136. ;    4       Color 
  137. ;    19      Goto 
  138. ;    28      Let 
  139. ;    1       Print 
  140. ;    9       PrintLn 
  141. ;    18      If 
  142. ;    1       GetUser
  143. ;    1       DefColor
  144. ;    2       InputStr 
  145. ;    1       Gosub 
  146. ;    1       Return
  147. ;    2       Inc 
  148. ;    2       KbdStuff 
  149. ;    3       Backup 
  150. ;
  151. ;
  152. ; ■ Functions used :
  153. ;
  154. ;    3       *
  155. ;    1       %
  156. ;    14      +
  157. ;    1       -
  158. ;    13      ==
  159. ;    1       <>
  160. ;    3       <
  161. ;    1       <=
  162. ;    3       >
  163. ;    3       >=
  164. ;    12      !
  165. ;    4       &&
  166. ;    3       ||
  167. ;    2       Len(
  168. ;    2       Mid()
  169. ;    1       Left()
  170. ;    1       Right()
  171. ;    2       Space()
  172. ;    2       Trim()
  173. ;    1       U_Name()
  174. ;    2       PCBDat()
  175. ;    5       ReadLine()
  176. ;    4       I2S()
  177. ;    3       S2I()
  178. ;    2       CurColor()
  179. ;    1       TokCount()
  180. ;    1       U_RecNum()
  181. ;    1       U_InConf()
  182. ;
  183. ;------------------------------------------------------------------------------
  184. ;
  185. ; Analysis flags : d
  186. ;
  187. ; d - Access PCBOARD.DAT ■ 2
  188. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  189. ;     for many PPE so they can find various informations on the system
  190. ;     (system paths, max number of lines in messages, ...) but it may also
  191. ;     be a way to gather vital informations.
  192. ;     ■ Search for : PCBDAT()
  193. ;
  194. ;------------------------------------------------------------------------------
  195. ;
  196. ; Postprocessing report
  197. ;
  198. ;    1       For/Next
  199. ;    0       While/EndWhile
  200. ;    11      If/Then or If/Then/Else
  201. ;    0       Select Case
  202. ;
  203. ;------------------------------------------------------------------------------
  204. ;                 AEGiS Corp - Break the routines, code against the machines!
  205. ;------------------------------------------------------------------------------
  206.