home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / UPDATE1.ZIP / UPDATE.PPS < prev   
Text File  |  1993-04-21  |  4KB  |  139 lines
  1. ; User Address Update PPS File - Original By Ralph LoBianco
  2. ;
  3. ; Modified by Brian Hillis - Ability OnLine - Toronto Canada.
  4. ;
  5. ; To allow for Provice as well as State, and to allow for Canadian
  6. ; Postal Codes (as well as a few other tid-bits) and the ability to
  7. ; Display language and/or security screens.
  8. ;
  9. ; This PPL will let users update there address information ONLY,
  10. ; rather than using the W command to update everything.
  11.  
  12. ;Define vaiable's
  13.  
  14.    STRING ANYTEXT
  15.    STRING COMMAND1
  16.    STRING COMMAND2
  17.    STRING COMMAND3
  18.  
  19. ANYTEXT=" 1234567890qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM"
  20.  
  21. ;Get user info from the USER record
  22.  
  23.    GETUSER
  24.  
  25. :MAIN
  26.    COMMAND1=""
  27.    COMMAND2=""
  28.    COMMAND3=""
  29.  
  30.    CLS
  31.    dispfile ppepath()+"update", GRAPH+SEC+LANG
  32.    println  "@X0E    1 @X0F- @X0BStreet & Number: @X0F",U_ADDR(0)
  33.    println  "@X0E    2 @X0F- @X0B  Suite or Unit: @X0F",U_ADDR(1)
  34.    println  "@X0E    3 @X0F- @X0B           City: @X0F",U_ADDR(2)
  35.    println  "@X0E    4 @X0F- @X0B Province/State: @X0F",U_ADDR(3)
  36.    println  "@X0E    5 @X0F- @X0BPostal/Zip Code: @X0F",U_ADDR(4)
  37.    println  "@X0E    6 @X0F- @X0B        Country: @X0F",U_ADDR(5)
  38.    println
  39.  
  40.    inputstr "@X0E    Select @X0F1 - 6@X0E, (@X0FS@X0E)ave or (@X0FQ@X0E)uit without saving@X0F",COMMAND3,@X0E,1,"123456SQ",10
  41.  
  42.    println
  43.    if (COMMAND3="")  goto MAIN
  44.    if (COMMAND3="1") goto ADDR0
  45.    if (COMMAND3="2") goto ADDR1
  46.    if (COMMAND3="3") goto ADDR2
  47.    if (COMMAND3="4") goto ADDR3
  48.    if (COMMAND3="5") goto ADDR4
  49.    if (COMMAND3="6") goto ADDR5
  50.    if (COMMAND3="S") goto SAVEIT
  51.    if (COMMAND3="Q") goto QUIT
  52.  
  53. :ADDR0
  54.    println
  55.    inputstr "@X0A        Street & Number",COMMAND1,@X0E,45,ANYTEXT,10
  56.    if (COMMAND1="" | LEFT(COMMAND1,1)=" ") goto MAIN
  57.    U_ADDR(0)=COMMAND1
  58.    goto MAIN
  59.  
  60. :ADDR1
  61.    println
  62.    inputstr "@X0A          Suite or Unit",COMMAND1,@X0E,30,ANYTEXT,10
  63.    if (COMMAND1="" | LEFT(COMMAND1,1)=" ") goto MAIN
  64.    U_ADDR(1)=COMMAND1
  65.    goto MAIN
  66.  
  67. :ADDR2
  68.    println
  69.    inputstr "@X0A                   City",COMMAND1,@X0E,30,ANYTEXT,10
  70.    if (COMMAND1="" | LEFT(COMMAND1,1)=" ") goto MAIN
  71.    U_ADDR(2)=COMMAND1
  72.    goto MAIN
  73.  
  74. :ADDR3
  75.    println
  76.    inputstr "@X0A         Province/State",COMMAND1,@X0E,10,ANYTEXT,10
  77.    if (COMMAND1="" | LEFT(COMMAND1,1)=" ") goto MAIN
  78.    U_ADDR(3)=COMMAND1
  79.    goto MAIN
  80.  
  81. :ADDR4
  82.    println
  83.    inputstr "@X0A        Postal/Zip Code",COMMAND1,@X0E,10,ANYTEXT,10
  84.    if (COMMAND1="" | LEFT(COMMAND1,1)=" ") goto MAIN
  85.    U_ADDR(4)=COMMAND1
  86.    goto MAIN
  87.  
  88. :ADDR5
  89.    println
  90.    inputstr "@X0A                Country",COMMAND1,@X0E,15,ANYTEXT,10
  91.    if (COMMAND1="" | LEFT(COMMAND1,1)=" ") goto MAIN
  92.    U_ADDR(5)=COMMAND1
  93.    goto MAIN
  94.  
  95. :SAVEIT
  96.    if (U_ADDR(0)="" | LEFT(U_ADDR(0),1)=" ") then
  97.       goto NOINFO
  98.    elseif (U_ADDR(2)="" | LEFT(U_ADDR(2),1)=" ") then
  99.       goto NOINFO
  100.    elseif (U_ADDR(3)="" | LEFT(U_ADDR(3),1)=" ") then
  101.       goto NOINFO
  102.    elseif (U_ADDR(4)="" | LEFT(U_ADDR(4),1)=" ") then 
  103.       goto NOINFO
  104.    endif
  105.    goto DONE
  106.  
  107. :NOINFO
  108.    println
  109.    println "@X0A    You have NOT entered all the information required to complete"
  110.    println "@X0A    your USER record."
  111.    println 
  112.    inputyn "@X0E    Do you still want to Exit (y/N)@X07",COMMAND2,@X0F
  113.  
  114.    If (COMMAND2="Y") goto DONE
  115.    if (COMMAND2="N") goto MAIN
  116.    if (COMMAND2="")  goto MAIN
  117.  
  118. :DONE
  119.    println
  120.    println "@X0A    Thanks for taking the time to update your USER record @FIRST@."
  121.    println
  122.    println "@X0A    In the future if you need to update this information, simply"
  123.    println "@X0A    type @X0FUPDATE@X0A at the Main Command prompt.@X07"
  124.    println
  125.    PUTUSER
  126.    END
  127.  
  128. :QUIT
  129.    println
  130.    println "@X0A    Any changes you made will NOT be entered into your USER record."
  131.    println
  132.    println "@X0A    In the future if you need to update this information, simply"
  133.    println "@X0A    type @X0FUPDATE@X0A at the Main Command prompt.@X07"
  134.    println
  135.  
  136. :END
  137.    END
  138.  
  139.