home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PCBOARD / POWRPK10.ZIP / ADUPD.ZIP / ADUPD.PPS < prev    next >
Text File  |  1994-03-02  |  5KB  |  122 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.         println
  28.         Println  "@X09┌───────────────────────────────────────────────────────────────────┐"
  29.         Println  "@X09│                  @X0B**** Address Update Menu ****                   @X09 │"
  30.         Println  "@X09├───────────────────────────────────────────────────────────────────┤"
  31.         Println  "@X09│                                                                   │"
  32.         Println  "@X09│ @X0BYou have not filled out your extra account information, you will @X09 │"
  33.         Println  "@X09│ @X0Basked a few questions so we can have a full record account.      @X09 │"
  34.         Println  "@X09│                                                                   │"
  35.         Println  "@X09└───────────────────────────────────────────────────────────────────┘"
  36.         println
  37.         println "@X0AFor any information that does not apply to you, enter N/A."
  38.         :reask
  39.         println
  40.         println "@X0E"+"1"+" @X0F- @X0BStreet (1 of 2): @X0F",U_ADDR(0)
  41.         println "@X0E"+"2"+" @X0F- @X0BStreet (2 of 2): @X0F",U_ADDR(1)
  42.         println "@X0E"+"3"+" @X0F- @X0BCity           : @X0F",U_ADDR(2)
  43.         println "@X0E"+"4"+" @X0F- @X0BState          : @X0F",U_ADDR(3)
  44.         println "@X0E"+"5"+" @X0F- @X0BZip Code       : @X0F",U_ADDR(4)
  45.         println "@X0E"+"6"+" @X0F- @X0BCountry        : @X0F",U_ADDR(5)
  46.         PRINTLN
  47.         INPUTstr "@X0EAddress Info Command (@X0A1@X0F-@X0A6@X0E,@X0AQ@X0F/@X0AS to quit@X0E)",coMMAND,@X0E,1,"1234567890SsQq",10
  48.         println
  49.         IF (COMMAND="")  Goto Main
  50.         if (Command="1") goto ADDR0
  51.         if (Command="2") goto ADDR1
  52.         if (Command="3") goto ADDR2
  53.         if (Command="4") goto ADDR3
  54.         if (Command="5") goto ADDR4
  55.         if (Command="6") goto ADDR5
  56.         if (Command="S") goto END
  57.         if (Command="s") goto end
  58.         if (Command="Q") goto end
  59.         if (Command="q") goto end
  60.         if (Command>6) goto reask
  61.         goto reask
  62. :ADDR0
  63.         Inputstr "@X0AEnter Street Address (1 of 2)",U_ADDR(0),@X0E,45,anytext,10
  64.         println
  65.       goto main
  66.  
  67. :ADDR1
  68.         Inputstr "@X0AEnter Street Address (2 of 2)",U_ADDR(1),@X0E,30,anytext,10
  69.         println
  70.       goto main
  71.  
  72. :ADDR2
  73.         Inputstr "@X0AEnter City",U_ADDR(2),@X0E,30,anytext,10
  74.         println
  75.      goto main
  76.  
  77. :ADDR3
  78.         Inputstr "@X0AEnter State (2 letter code)",U_ADDR(3),@X0E,2,anytext,10
  79.         println
  80.      goto main
  81.  
  82. :ADDR4
  83.         Inputstr "@X0AEnter Zip Code",U_ADDR(4),@X0E,12,"1234567890-",10
  84.         println
  85.      goto main
  86.  
  87. :ADDR5
  88.         Inputstr "@X0AEnter Country",U_ADDR(5),@X0E,10,anytext,10
  89.         println
  90.       goto main
  91.  
  92. ;WRITE NEW USER INFO AND EXIT
  93. :END
  94.         IF (U_ADDR(0)="" | LEFT(U_ADDR(0),1)=" ") GOTO NOINFO
  95.       GOTO byebye
  96.  
  97. :NOINFO
  98.         PRINTLN " You will be placed here everytime until you fill out your address"
  99.         PRINTLN " information.  If there is some sort of problem, notify the sysop."
  100.         Inputyn " Do you still want to Exit (y/N)",COMMAND2,@X0F
  101.      If (COMMAND2="Y") goto byebye
  102.      if (COMMAND2="N") Goto Main
  103.      if (COMMAND2="y") goto byebye
  104.      if (COMMAND2="n") goto Main
  105.      if (COMMAND2="") Goto Main
  106.  
  107.         Println " Thanks for taking the time to update your Address Information"
  108.         Println " It will enable us to keep you in touch with future changes and"
  109.         println " changing Membership features.  In the future if you need you"
  110.         println " update your Address Information please use the W command at"
  111.         println " the main board prompt."
  112.         MORE
  113.  
  114. :byebye
  115.         PUTUSER
  116.         println
  117.         println "Extra information updated (if at all) ..."
  118.         PRINTLN "@X0AModule revised by Michael Cherin - DynaSOFT."
  119.         println "@X0AOriginal copy written by Ralph LoBianco."
  120.         println
  121.         END
  122.