home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #1
/
monster.zip
/
monster
/
PCBOARD
/
POWRPK10.ZIP
/
ADUPD.ZIP
/
ADUPD.PPS
< prev
next >
Wrap
Text File
|
1994-03-02
|
5KB
|
122 lines
; User Address Update PPL
; Copyright 1993 By Ralph LoBianco
;
; This PPL will check let users update there address information if the
; first address field 'ADDR(0)' is empty. If They do have Address info
; in that field then they will be returned to the BBS.
;
; Im useing this as a Logon PPL For all user to Complete by useing the
; !FILESPEC Option In PCBoard 15.0
;DEFINE VAIABLE'S
STRING COMMAND
STRING ANYTEXT
STRING COMMAND2
ANYTEXT = " 1234567890qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM"
;GET USER INFO
GETUSER
;TEST TO SEE IF USER HAS ENTERED ADDRESS INFORMATION
IF (U_ADDR(0)="" | LEFT(U_ADDR(0),1)=" ") GOTO MAIN
GOTO END
:MAIN
println
Println "@X09┌───────────────────────────────────────────────────────────────────┐"
Println "@X09│ @X0B**** Address Update Menu **** @X09 │"
Println "@X09├───────────────────────────────────────────────────────────────────┤"
Println "@X09│ │"
Println "@X09│ @X0BYou have not filled out your extra account information, you will @X09 │"
Println "@X09│ @X0Basked a few questions so we can have a full record account. @X09 │"
Println "@X09│ │"
Println "@X09└───────────────────────────────────────────────────────────────────┘"
println
println "@X0AFor any information that does not apply to you, enter N/A."
:reask
println
println "@X0E"+"1"+" @X0F- @X0BStreet (1 of 2): @X0F",U_ADDR(0)
println "@X0E"+"2"+" @X0F- @X0BStreet (2 of 2): @X0F",U_ADDR(1)
println "@X0E"+"3"+" @X0F- @X0BCity : @X0F",U_ADDR(2)
println "@X0E"+"4"+" @X0F- @X0BState : @X0F",U_ADDR(3)
println "@X0E"+"5"+" @X0F- @X0BZip Code : @X0F",U_ADDR(4)
println "@X0E"+"6"+" @X0F- @X0BCountry : @X0F",U_ADDR(5)
PRINTLN
INPUTstr "@X0EAddress Info Command (@X0A1@X0F-@X0A6@X0E,@X0AQ@X0F/@X0AS to quit@X0E)",coMMAND,@X0E,1,"1234567890SsQq",10
println
IF (COMMAND="") Goto Main
if (Command="1") goto ADDR0
if (Command="2") goto ADDR1
if (Command="3") goto ADDR2
if (Command="4") goto ADDR3
if (Command="5") goto ADDR4
if (Command="6") goto ADDR5
if (Command="S") goto END
if (Command="s") goto end
if (Command="Q") goto end
if (Command="q") goto end
if (Command>6) goto reask
goto reask
:ADDR0
Inputstr "@X0AEnter Street Address (1 of 2)",U_ADDR(0),@X0E,45,anytext,10
println
goto main
:ADDR1
Inputstr "@X0AEnter Street Address (2 of 2)",U_ADDR(1),@X0E,30,anytext,10
println
goto main
:ADDR2
Inputstr "@X0AEnter City",U_ADDR(2),@X0E,30,anytext,10
println
goto main
:ADDR3
Inputstr "@X0AEnter State (2 letter code)",U_ADDR(3),@X0E,2,anytext,10
println
goto main
:ADDR4
Inputstr "@X0AEnter Zip Code",U_ADDR(4),@X0E,12,"1234567890-",10
println
goto main
:ADDR5
Inputstr "@X0AEnter Country",U_ADDR(5),@X0E,10,anytext,10
println
goto main
;WRITE NEW USER INFO AND EXIT
:END
IF (U_ADDR(0)="" | LEFT(U_ADDR(0),1)=" ") GOTO NOINFO
GOTO byebye
:NOINFO
PRINTLN " You will be placed here everytime until you fill out your address"
PRINTLN " information. If there is some sort of problem, notify the sysop."
Inputyn " Do you still want to Exit (y/N)",COMMAND2,@X0F
If (COMMAND2="Y") goto byebye
if (COMMAND2="N") Goto Main
if (COMMAND2="y") goto byebye
if (COMMAND2="n") goto Main
if (COMMAND2="") Goto Main
Println " Thanks for taking the time to update your Address Information"
Println " It will enable us to keep you in touch with future changes and"
println " changing Membership features. In the future if you need you"
println " update your Address Information please use the W command at"
println " the main board prompt."
MORE
:byebye
PUTUSER
println
println "Extra information updated (if at all) ..."
PRINTLN "@X0AModule revised by Michael Cherin - DynaSOFT."
println "@X0AOriginal copy written by Ralph LoBianco."
println
END