home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / SCUM_FPS.ZIP / FPCOMMIS.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-02-28  |  3KB  |  186 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   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.     String   STRING012
  32.     String   STRING013
  33.     String   STRING014
  34.     String   STRING015
  35.     String   STRING016
  36.     String   STRING017
  37.     String   STRING018
  38.     String   STRING019
  39.     String   STRING020
  40.  
  41. ;------------------------------------------------------------------------------
  42.  
  43.     STRING007 = PPEPath() + "FPCOMMIS.PCB"
  44.     FOpen 2, STRING007, 0, 0
  45.     FGet 2, STRING008
  46.     FGet 2, STRING009
  47.     FGet 2, STRING010
  48.     FGet 2, STRING011
  49.     FGet 2, STRING012
  50.     FGet 2, STRING013
  51.     FGet 2, STRING014
  52.     FGet 2, STRING015
  53.     FGet 2, STRING016
  54.     FGet 2, STRING017
  55.     FGet 2, STRING018
  56.     FGet 2, STRING019
  57.     FGet 2, STRING020
  58.     FClose 2
  59.     BOOLEAN001 = Psa(6)
  60.     If (BOOLEAN001) Goto LABEL001
  61.     FCreate 7, PPEPath() + "ERROR.MSG", 2, 0
  62.     FPut 7, " " + Chr(13)
  63.     FPut 7, "The File Point System for PCB15 requires that you have the PSA 'NOTES'" + Chr(13)
  64.     FPut 7, "installed to work properly! You must go into PCBSM.EXE and install it" + Chr(13)
  65.     FPut 7, "before running this program again." + Chr(13)
  66.     FPut 7, "                                      -=\The Liquidater/=-" + Chr(13)
  67.     FClose 7
  68.     Message 0, "SYSOP", "LIQUIDATER", "ERROR IN SETUP", "R", 0, 0, 0, PPEPath() + "ERROR.MSG"
  69.     End
  70.     :LABEL001
  71.     GetUser
  72.     STRING002 = U_Notes(3)
  73.     Tokenize STRING002
  74.     If (TokCount() == 3) Then
  75.         STRING003 = GetToken()
  76.         STRING004 = GetToken()
  77.         STRING005 = GetToken()
  78.     Else
  79.         Goto LABEL002
  80.     Endif
  81.     If (STRING003 == "TIME") Goto LABEL002
  82.     INTEGER001 = STRING005
  83.     If (INTEGER001 == 0) End
  84.     DispStr STRING008
  85.     Newline
  86.     DispStr STRING009
  87.     Newline
  88.     DispStr STRING010
  89.     Newline
  90.     DispStr STRING011 + STRING005 + STRING012
  91.     Newline
  92.     DispStr STRING013
  93.     Newline
  94.     Newline
  95.     DispStr "                            @X08-[ FPS by -=\The Liquidater/=- TRSi/SCUM ]-"
  96.     Newline
  97.     Newline
  98.     DispStr "@X02"
  99.     U_Notes(3) = STRING003 + " " + STRING004 + " 0"
  100.     PutUser
  101.     More
  102.     Goto LABEL003
  103.     :LABEL002
  104.     STRING003 = "1.0"
  105.     STRING006 = ReadLine(PPEPath() + "PCBFPS.CFG", 3)
  106.     STRING005 = STRING006
  107.     DispStr STRING014
  108.     Newline
  109.     DispStr STRING015
  110.     Newline
  111.     DispStr STRING016
  112.     Newline
  113.     DispStr " "
  114.     Newline
  115.     DispStr STRING017
  116.     Newline
  117.     DispStr STRING018 + " " + STRING005 + STRING019
  118.     Newline
  119.     Newline
  120.     DispStr "                                 @X08-[ FPS by -=\The Liquidater/=- TRSi/SCUM ]-"
  121.     Newline
  122.     Newline
  123.     DispStr STRING020
  124.     U_Notes(3) = STRING003 + " " + STRING006 + " 0"
  125.     PutUser
  126.     :LABEL003
  127.     End
  128.  
  129. ;------------------------------------------------------------------------------
  130. ;
  131. ; Usage report (before postprocessing)
  132. ;
  133. ; ■ Statements used :
  134. ;
  135. ;    3       End
  136. ;    1       More
  137. ;    7       Goto 
  138. ;    12      Let 
  139. ;    4       If 
  140. ;    1       FCreate 
  141. ;    1       FOpen 
  142. ;    2       FClose 
  143. ;    13      FGet 
  144. ;    5       FPut 
  145. ;    1       GetUser
  146. ;    2       PutUser
  147. ;    17      Newline
  148. ;    1       Tokenize 
  149. ;    15      DispStr 
  150. ;    1       Message 
  151. ;
  152. ;
  153. ; ■ Functions used :
  154. ;
  155. ;    20      +
  156. ;    3       ==
  157. ;    2       !
  158. ;    5       Chr()
  159. ;    4       PPEPath()
  160. ;    1       ReadLine()
  161. ;    3       GetToken()
  162. ;    1       Psa()
  163. ;    1       TokCount()
  164. ;
  165. ;------------------------------------------------------------------------------
  166. ;
  167. ; Analysis flags : W
  168. ;
  169. ; W - Write user ■ 5
  170. ;     Program writes a user record. Although this may be normal for a
  171. ;     User Editor, it may also be a way to modify an account level.
  172. ;     ■ Search for : PUTUSER
  173. ;
  174. ;------------------------------------------------------------------------------
  175. ;
  176. ; Postprocessing report
  177. ;
  178. ;    0       For/Next
  179. ;    0       While/EndWhile
  180. ;    1       If/Then or If/Then/Else
  181. ;    0       Select Case
  182. ;
  183. ;------------------------------------------------------------------------------
  184. ;                 AEGiS Corp - Break the routines, code against the machines!
  185. ;------------------------------------------------------------------------------
  186.