home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / UPDATE1.ZIP / UPDATE.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1993-04-21  |  4KB  |  175 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 1.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING002
  20.     String   STRING003
  21.     String   STRING004
  22.     String   STRING005
  23.  
  24. ;------------------------------------------------------------------------------
  25.  
  26.     STRING002 = " 1234567890qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM"
  27.     GetUser
  28.     :LABEL001
  29.     STRING003 = ""
  30.     STRING004 = ""
  31.     STRING005 = ""
  32.     Cls
  33.     DispFile PPEPath() + "update", 1 + 2 + 4
  34.     PrintLn "@X0E    1 @X0F- @X0BStreet & Number: @X0F", U_Addr(0)
  35.     PrintLn "@X0E    2 @X0F- @X0B  Suite or Unit: @X0F", U_Addr(1)
  36.     PrintLn "@X0E    3 @X0F- @X0B           City: @X0F", U_Addr(2)
  37.     PrintLn "@X0E    4 @X0F- @X0B Province/State: @X0F", U_Addr(3)
  38.     PrintLn "@X0E    5 @X0F- @X0BPostal/Zip Code: @X0F", U_Addr(4)
  39.     PrintLn "@X0E    6 @X0F- @X0B        Country: @X0F", U_Addr(5)
  40.     PrintLn 
  41.     InputStr "@X0E    Select @X0F1 - 6@X0E, (@X0FS@X0E)ave or (@X0FQ@X0E)uit without saving@X0F", STRING005, 14, 1, "123456SQ", 10
  42.     PrintLn 
  43.     If (STRING005 == "") Goto LABEL001
  44.     If (STRING005 == "1") Goto LABEL002
  45.     If (STRING005 == "2") Goto LABEL003
  46.     If (STRING005 == "3") Goto LABEL004
  47.     If (STRING005 == "4") Goto LABEL005
  48.     If (STRING005 == "5") Goto LABEL006
  49.     If (STRING005 == "6") Goto LABEL007
  50.     If (STRING005 == "S") Goto LABEL008
  51.     If (STRING005 == "Q") Goto LABEL011
  52.     :LABEL002
  53.     PrintLn 
  54.     InputStr "@X0A        Street & Number", STRING003, 14, 45, STRING002, 10
  55.     If ((STRING003 == "") || (Left(STRING003, 1) == " ")) Goto LABEL001
  56.     U_Addr(0) = STRING003
  57.     Goto LABEL001
  58.     :LABEL003
  59.     PrintLn 
  60.     InputStr "@X0A          Suite or Unit", STRING003, 14, 30, STRING002, 10
  61.     If ((STRING003 == "") || (Left(STRING003, 1) == " ")) Goto LABEL001
  62.     U_Addr(1) = STRING003
  63.     Goto LABEL001
  64.     :LABEL004
  65.     PrintLn 
  66.     InputStr "@X0A                   City", STRING003, 14, 30, STRING002, 10
  67.     If ((STRING003 == "") || (Left(STRING003, 1) == " ")) Goto LABEL001
  68.     U_Addr(2) = STRING003
  69.     Goto LABEL001
  70.     :LABEL005
  71.     PrintLn 
  72.     InputStr "@X0A         Province/State", STRING003, 14, 10, STRING002, 10
  73.     If ((STRING003 == "") || (Left(STRING003, 1) == " ")) Goto LABEL001
  74.     U_Addr(3) = STRING003
  75.     Goto LABEL001
  76.     :LABEL006
  77.     PrintLn 
  78.     InputStr "@X0A        Postal/Zip Code", STRING003, 14, 10, STRING002, 10
  79.     If ((STRING003 == "") || (Left(STRING003, 1) == " ")) Goto LABEL001
  80.     U_Addr(4) = STRING003
  81.     Goto LABEL001
  82.     :LABEL007
  83.     PrintLn 
  84.     InputStr "@X0A                Country", STRING003, 14, 15, STRING002, 10
  85.     If ((STRING003 == "") || (Left(STRING003, 1) == " ")) Goto LABEL001
  86.     U_Addr(5) = STRING003
  87.     Goto LABEL001
  88.     :LABEL008
  89.     If ((U_Addr(0) == "") || (Left(U_Addr(0), 1) == " ")) Then
  90.         Goto LABEL009
  91.     ElseIf ((U_Addr(2) == "") || (Left(U_Addr(2), 1) == " ")) Then
  92.         Goto LABEL009
  93.     ElseIf ((U_Addr(3) == "") || (Left(U_Addr(3), 1) == " ")) Then
  94.         Goto LABEL009
  95.     ElseIf ((U_Addr(4) == "") || (Left(U_Addr(4), 1) == " ")) Then
  96.         Goto LABEL009
  97.     Endif
  98.     Goto LABEL010
  99.     :LABEL009
  100.     PrintLn 
  101.     PrintLn "@X0A    You have NOT entered all the information required to complete"
  102.     PrintLn "@X0A    your USER record."
  103.     PrintLn 
  104.     InputYN "@X0E    Do you still want to Exit (y/N)@X07", STRING004, 15
  105.     If (STRING004 == "Y") Goto LABEL010
  106.     If (STRING004 == "N") Goto LABEL001
  107.     If (STRING004 == "") Goto LABEL001
  108.     :LABEL010
  109.     PrintLn 
  110.     PrintLn "@X0A    Thanks for taking the time to update your USER record @FIRST@."
  111.     PrintLn 
  112.     PrintLn "@X0A    In the future if you need to update this information, simply"
  113.     PrintLn "@X0A    type @X0FUPDATE@X0A at the Main Command prompt.@X07"
  114.     PrintLn 
  115.     PutUser
  116.     End
  117.     :LABEL011
  118.     PrintLn 
  119.     PrintLn "@X0A    Any changes you made will NOT be entered into your USER record."
  120.     PrintLn 
  121.     PrintLn "@X0A    In the future if you need to update this information, simply"
  122.     PrintLn "@X0A    type @X0FUPDATE@X0A at the Main Command prompt.@X07"
  123.     PrintLn 
  124.     End
  125.  
  126. ;------------------------------------------------------------------------------
  127. ;
  128. ; Usage report (before postprocessing)
  129. ;
  130. ; ■ Statements used :
  131. ;
  132. ;    2       End
  133. ;    1       Cls
  134. ;    36      Goto 
  135. ;    10      Let 
  136. ;    30      PrintLn 
  137. ;    22      If 
  138. ;    1       DispFile 
  139. ;    1       GetUser
  140. ;    1       PutUser
  141. ;    7       InputStr 
  142. ;    1       InputYN 
  143. ;
  144. ;
  145. ; ■ Functions used :
  146. ;
  147. ;    3       +
  148. ;    32      ==
  149. ;    4       !
  150. ;    10      ||
  151. ;    10      Left()
  152. ;    1       PPEPath()
  153. ;
  154. ;------------------------------------------------------------------------------
  155. ;
  156. ; Analysis flags : W
  157. ;
  158. ; W - Write user ■ 5
  159. ;     Program writes a user record. Although this may be normal for a
  160. ;     User Editor, it may also be a way to modify an account level.
  161. ;     ■ Search for : PUTUSER
  162. ;
  163. ;------------------------------------------------------------------------------
  164. ;
  165. ; Postprocessing report
  166. ;
  167. ;    0       For/Next
  168. ;    0       While/EndWhile
  169. ;    4       If/Then or If/Then/Else
  170. ;    0       Select Case
  171. ;
  172. ;------------------------------------------------------------------------------
  173. ;                 AEGiS Corp - Break the routines, code against the machines!
  174. ;------------------------------------------------------------------------------
  175.