home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 15 / CD_ASCQ_15_070894.iso / vrac / bccm100.zip / CM.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-05-02  |  2KB  |  128 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.     Boolean  BOOLEAN001
  20.     Integer  INTEGER001
  21.     String   STRING001
  22.     String   STRING002
  23.     String   STRING003
  24.     String   STRING004
  25.     String   STRING005
  26.     String   STRING006
  27.     String   STRING007
  28.     String   STRING008
  29.     Word     WORD001
  30.  
  31. ;------------------------------------------------------------------------------
  32.  
  33.     STRING001 = PPEPath() + "cm.cfg"
  34.     STRING002 = ReadLine(STRING001, 1)
  35.     STRING003 = PPEPath() + "desc.lst"
  36.     STRING006 = PPEPath() + "graph\cnfn"
  37.     STRING007 = ReadLine(STRING001, 2)
  38.     FOpen 1, STRING002, 0, 0
  39.     If (Ferr(1)) Then
  40.         PrintLn "ERROR opening conference file ", STRING002
  41.         Wait
  42.         End
  43.     Endif
  44.     FRead 1, WORD001, 2
  45.     FCreate 2, STRING006, 1, 0
  46.     INTEGER001 = 1
  47.     Newline
  48.     Print "Processing conferences"
  49.     While (1) Do
  50.         FRead 1, STRING008, 14
  51.         STRING008 = LTrim(STRING008, " ")
  52.         FRead 1, BOOLEAN001, 1
  53.         FSeek 1, WORD001 - 15, 1
  54.         If (Ferr(1)) Break
  55.         STRING005 = ReplaceStr(STRING007, "%CNR%", Left("0000", 5 - Len(String(INTEGER001 - 1))) + String(INTEGER001 - 1))
  56.         STRING005 = ReplaceStr(STRING005, "%CNAME%", Left(STRING008, 14))
  57.         STRING004 = ReadLine(STRING003, INTEGER001)
  58.         If (STRING004 <> "") Then
  59.             STRING005 = ReplaceStr(STRING005, "%DESC%", Left(STRING004, 30))
  60.         Else
  61.             STRING005 = ReplaceStr(STRING005, "%DESC%", Left("None available", 30))
  62.         Endif
  63.         If (BOOLEAN001) Then
  64.             STRING005 = ReplaceStr(STRING005, "%PUB%", "Yes")
  65.         Else
  66.             STRING005 = ReplaceStr(STRING005, "%PUB%", "No ")
  67.         Endif
  68.         FPutLn 2, STRING005
  69.         Inc INTEGER001
  70.         Print "."
  71.     EndWhile
  72.     Print " Done"
  73.     Newline
  74.  
  75. ;------------------------------------------------------------------------------
  76. ;
  77. ; Usage report (before postprocessing)
  78. ;
  79. ; ■ Statements used :
  80. ;
  81. ;    1       End
  82. ;    1       Wait
  83. ;    8       Goto 
  84. ;    14      Let 
  85. ;    3       Print 
  86. ;    1       PrintLn 
  87. ;    5       If 
  88. ;    1       FCreate 
  89. ;    1       FOpen 
  90. ;    1       FPutLn 
  91. ;    1       Inc 
  92. ;    2       Newline
  93. ;    1       FSeek 
  94. ;    3       FRead 
  95. ;
  96. ;
  97. ; ■ Functions used :
  98. ;
  99. ;    4       +
  100. ;    4       -
  101. ;    1       <>
  102. ;    4       !
  103. ;    1       Len(
  104. ;    4       Left()
  105. ;    2       Ferr()
  106. ;    1       LTrim()
  107. ;    2       String()
  108. ;    3       PPEPath()
  109. ;    3       ReadLine()
  110. ;    6       ReplaceStr()
  111. ;
  112. ;------------------------------------------------------------------------------
  113. ;
  114. ; Analysis flags : No flag
  115. ;
  116. ;------------------------------------------------------------------------------
  117. ;
  118. ; Postprocessing report
  119. ;
  120. ;    0       For/Next
  121. ;    1       While/EndWhile
  122. ;    3       If/Then or If/Then/Else
  123. ;    0       Select Case
  124. ;
  125. ;------------------------------------------------------------------------------
  126. ;                 AEGiS Corp - Break the routines, code against the machines!
  127. ;------------------------------------------------------------------------------
  128.