home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / SCUM_FPS.ZIP / FPEDITOR.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-03-04  |  3KB  |  208 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.     Integer  INTEGER002
  22.     String   STRING002
  23.     String   STRING003
  24.     String   STRING004
  25.     String   STRING005
  26.     String   STRING006
  27.     String   STRING007
  28.     String   STRING008
  29.     String   STRING009
  30.  
  31. ;------------------------------------------------------------------------------
  32.  
  33.     GetUser
  34.     BOOLEAN001 = 0
  35.     STRING002 = U_Notes(3)
  36.     Tokenize STRING002
  37.     STRING003 = GetToken()
  38.     STRING004 = GetToken()
  39.     STRING005 = GetToken()
  40.     DispStr "@CLS@"
  41.     DispStr " "
  42.     Newline
  43.     DispStr "                     @X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
  44.     Newline
  45.     DispStr "                     @X70@X70           File Point Editor           @X70"
  46.     Newline
  47.     DispStr "@X08                     ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀"
  48.     Newline
  49.     DispStr " "
  50.     Newline
  51.     DispStr "                         @X04[ @X0FC @X04]  @X01Edit Current Online User"
  52.     Newline
  53.     DispStr "                         @X04[ @X0FA @X04]  @X01Edit Another User's record"
  54.     Newline
  55.     DispStr "                         @X04[ @X0FQ @X04]  @X01Quit back to the board"
  56.     Newline
  57.     DispStr "                         @X04[ @X0FG @X04]  @X01Goodbye (logoff)"
  58.     Newline
  59.     DispStr " "
  60.     Newline
  61.     DispStr "  @X01┌───[@X0F@MINLEFT@ Mins Left@X01]────[@X0F@CONFNAME@ Conference (@CONFNUM@)@X01]──────────────"
  62.     Newline
  63.     DispStr "  └────────[@X0FYour Selection@X01]─┤@X07"
  64.     :LABEL001
  65.     If (BOOLEAN001) Goto LABEL003
  66.     InputStr " ", STRING006, 7, 1, Mask_Ascii(), 8 + 256
  67.     If (STRING006 == "") Then
  68.         BOOLEAN001 = 1
  69.         Newline
  70.         DispStr "@X08File Point Editor v1.0 coded by Liquidater"
  71.         Newline
  72.         End
  73.     Endif
  74.     If (STRING006 == "C") Then
  75.         BOOLEAN001 = 1
  76.         Newline
  77.         DispStr "@X01Current File Points [@X0F" + STRING004 + "@X01]"
  78.         Newline
  79.         Newline
  80.         DispStr "@X03Enter the new value (@X07ENTER@X03)=Abort :"
  81.         InputStr " ", STRING007, 7, 12, Mask_Ascii(), 256
  82.         INTEGER001 = S2I(STRING007, 10)
  83.         If (INTEGER001 > 0) Then
  84.             U_Notes(3) = STRING003 + " " + STRING007 + " " + STRING005
  85.             PutUser
  86.             DispStr "@X07User record has been updated!"
  87.             Newline
  88.         Endif
  89.     Endif
  90.     If (STRING006 == "A") Then
  91.         BOOLEAN001 = 1
  92.         Newline
  93.         DispStr "@X04Enter user's handle to edit : @X07"
  94.         InputStr " ", STRING008, 7, 25, Mask_Ascii(), 8 + 256
  95.         INTEGER002 = U_RecNum(STRING008)
  96.         If (INTEGER002 < 0) Then
  97.             Newline
  98.             DispStr "@X04User not found! (@X0F" + STRING008 + "@X04)"
  99.             Newline
  100.             InputStr "@X08Press ENTER to continue...", STRING009, 8, 1, Mask_Ascii(), 256
  101.             Goto LABEL002
  102.         Endif
  103.         If (INTEGER002 >= 0) Then
  104.             GetAltUser INTEGER002
  105.             STRING002 = U_Notes(3)
  106.             Tokenize STRING002
  107.             STRING003 = GetToken()
  108.             STRING004 = GetToken()
  109.             STRING005 = GetToken()
  110.             Newline
  111.             DispStr "@X01Current File Points [@X0F" + STRING004 + "@X01]"
  112.             Newline
  113.             Newline
  114.             DispStr "@X03Enter the new value (@X07ENTER@X03)=Abort :"
  115.             InputStr " ", STRING007, 7, 12, Mask_Ascii(), 256
  116.             INTEGER001 = S2I(STRING007, 10)
  117.             If (INTEGER001 > 0) Then
  118.                 U_Notes(3) = STRING003 + " " + STRING007 + " " + STRING005
  119.                 PutUser
  120.                 DispStr "@X07User record has been Updated!"
  121.                 Newline
  122.             Endif
  123.         Endif
  124.     Endif
  125.     :LABEL002
  126.     If (STRING006 == "G") Then
  127.         BOOLEAN001 = 1
  128.         Newline
  129.         DispStr "@X08File Point Editor v1.0 coded by Liquidater"
  130.         Newline
  131.         Goodbye
  132.         End
  133.     Endif
  134.     If (STRING006 == "Q") Then
  135.         BOOLEAN001 = 1
  136.         Newline
  137.         DispStr "@X08File Point Editor v1.0 coded by Liquidater"
  138.         End
  139.     Endif
  140.     Goto LABEL001
  141.     :LABEL003
  142.     Newline
  143.     DispStr "@X08File Point Editor v1.0 coded by Liquidater"
  144.     Newline
  145.     End
  146.  
  147. ;------------------------------------------------------------------------------
  148. ;
  149. ; Usage report (before postprocessing)
  150. ;
  151. ; ■ Statements used :
  152. ;
  153. ;    4       End
  154. ;    12      Goto 
  155. ;    19      Let 
  156. ;    10      If 
  157. ;    1       GetUser
  158. ;    2       PutUser
  159. ;    5       InputStr 
  160. ;    29      Newline
  161. ;    2       Tokenize 
  162. ;    1       Goodbye
  163. ;    25      DispStr 
  164. ;    1       GetAltUser 
  165. ;
  166. ;
  167. ; ■ Functions used :
  168. ;
  169. ;    16      +
  170. ;    5       ==
  171. ;    1       <
  172. ;    2       >
  173. ;    1       >=
  174. ;    10      !
  175. ;    5       Mask_Ascii()
  176. ;    6       GetToken()
  177. ;    2       S2I()
  178. ;    1       U_RecNum()
  179. ;
  180. ;------------------------------------------------------------------------------
  181. ;
  182. ; Analysis flags : WR
  183. ;
  184. ; W - Write user ■ 5
  185. ;     Program writes a user record. Although this may be normal for a
  186. ;     User Editor, it may also be a way to modify an account level.
  187. ;     ■ Search for : PUTUSER
  188. ;
  189. ; R - Read user ■ 5
  190. ;     User records are read, this may signify that someone wants to get
  191. ;     various informations about a user (for example his password), but
  192. ;     this may also be normal for a program accessing user records (for
  193. ;     example a User Editor)
  194. ;     ■ Search for : GETALTUSER
  195. ;
  196. ;------------------------------------------------------------------------------
  197. ;
  198. ; Postprocessing report
  199. ;
  200. ;    0       For/Next
  201. ;    0       While/EndWhile
  202. ;    9       If/Then or If/Then/Else
  203. ;    0       Select Case
  204. ;
  205. ;------------------------------------------------------------------------------
  206. ;                 AEGiS Corp - Break the routines, code against the machines!
  207. ;------------------------------------------------------------------------------
  208.