home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / pcboard / addupd.zip / ADUPD.PPS < prev    next >
Text File  |  1993-04-15  |  4KB  |  111 lines
  1. ; User Address Update PPL
  2. ; Copyright 1993 By Ralph LoBianco
  3. ;
  4. ; This PPL will check let users update there address information if the
  5. ; first address field 'ADDR(0)' is empty. If They do have Address info
  6. ; in that field then they will be returned to the BBS.
  7. ;
  8. ; Im useing this as a Logon PPL For all user to Complete by useing the
  9. ; !FILESPEC Option In PCBoard 15.0
  10.  
  11.  
  12. ;DEFINE VAIABLE'S
  13.         STRING COMMAND
  14.         STRING ANYTEXT
  15.         STRING COMMAND2
  16.  
  17. ANYTEXT = " 1234567890qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM"
  18.  
  19. ;GET USER INFO
  20.         GETUSER
  21.  
  22. ;TEST TO SEE IF USER HAS ENTERED ADDRESS INFORMATION
  23.         IF (U_ADDR(0)="" | LEFT(U_ADDR(0),1)=" ") GOTO MAIN
  24.       GOTO END
  25.  
  26. :MAIN
  27.         CLS
  28.         Println  "User Address Update PPL Copyright 1993 By Ralph LoBianco"
  29.         Println  "@X09┌───────────────────────────────────────────────────────────────────┐"
  30.         Println  "@X09│                  @X0B**** Address Update Menu ****                   @X09 │"
  31.         Println  "@X09├───────────────────────────────────────────────────────────────────┤"
  32.         Println  "@X09│                                                                   │"
  33.         Println  "@X09│ @X0BYou are about to update your Account Information Please take the @X09 │"
  34.         Println  "@X09│ @X0Btime to insure that everything is correct.                       @X09 │"
  35.         Println  "@X09│                                                                   │"
  36.         Println  "@X09└───────────────────────────────────────────────────────────────────┘"
  37.         println
  38.         println "@X0E"+"1"+" @X0F- @X0BStreet (1 of 2): @X0F",U_ADDR(0)
  39.         println "@X0E"+"2"+" @X0F- @X0BStreet (2 of 2): @X0F",U_ADDR(1)
  40.         println "@X0E"+"3"+" @X0F- @X0BCity           : @X0F",U_ADDR(2)
  41.         println "@X0E"+"4"+" @X0F- @X0BState          : @X0F",U_ADDR(3)
  42.         println "@X0E"+"5"+" @X0F- @X0BZip Code       : @X0F",U_ADDR(4)
  43.         println "@X0E"+"6"+" @X0F- @X0BCountry        : @X0F",U_ADDR(5)
  44.         PRINTLN
  45.         INPUTstr "EDIT 1 - 6 or S to Save Then quit?",COMMAND,@X0E,1,"1234567890S",10
  46.         println
  47.         IF (COMMAND="")  Goto Main
  48.         if (Command="1") goto ADDR0
  49.         if (Command="2") goto ADDR1
  50.         if (Command="3") goto ADDR2
  51.         if (Command="4") goto ADDR3
  52.         if (Command="5") goto ADDR4
  53.         if (Command="6") goto ADDR5
  54.         if (Command="S") goto END
  55.  
  56.  
  57. :ADDR0
  58.         Inputstr "@X0AStreet (1 of 2):",U_ADDR(0),@X0E,45,anytext,10
  59.         println
  60.       goto main
  61.  
  62. :ADDR1
  63.         Inputstr "@X0AStreet (2 of 2):",U_ADDR(1),@X0E,30,anytext,10
  64.         println
  65.       goto main
  66.  
  67. :ADDR2
  68.         Inputstr "@X0ACity:",U_ADDR(2),@X0E,30,anytext,10
  69.         println
  70.      goto main
  71.  
  72. :ADDR3
  73.         Inputstr "@X0AState:",U_ADDR(3),@X0E,2,anytext,10
  74.         println
  75.      goto main
  76.  
  77. :ADDR4
  78.         Inputstr "@X0AZip Code:",U_ADDR(4),@X0E,12,"1234567890-",10
  79.         println
  80.      goto main
  81.  
  82. :ADDR5
  83.         Inputstr "@X0ACountry:",U_ADDR(5),@X0E,10,anytext,10
  84.         println
  85.       goto main
  86.  
  87. ;WRITE NEW USER INFO AND EXIT
  88. :END
  89.         IF (U_ADDR(0)="" | LEFT(U_ADDR(0),1)=" ") GOTO NOINFO
  90.       GOTO SEEYA
  91.  
  92. :NOINFO
  93.         PRINTLN " You must answer the Above Info or you will be placed in this section"
  94.         PRINTLN " Each time you log on untill your address information is logged"
  95.         Inputyn " Do you still want to Exit (Y/N)",COMMAND2,@X0F
  96.      If (COMMAND2="Y") goto SEEYA
  97.      if (COMMAND2="N") Goto Main
  98.      if (COMMAND2="") Goto Main
  99.  
  100.         Println " Thanks for taking the time to update your Address Information"
  101.         Println " It will enable us to keep you in touch with future changes and"
  102.         println " changing Membership features."
  103.         println " In the Future if you need you update your Address Information"
  104.         Println " Please use the W command on the Main Menu."
  105.         MORE
  106.  
  107. :SEEYA
  108.         cls
  109.         PUTUSER
  110.         END
  111.