Added address questions
This commit is contained in:
parent
e072e85ae4
commit
d9cb055906
41
working-with-files/writing-files.ldpl
Normal file
41
working-with-files/writing-files.ldpl
Normal file
|
@ -0,0 +1,41 @@
|
||||||
|
# Writing an application to write to text files
|
||||||
|
# In this case, we are pretending to write customer information to a text file
|
||||||
|
|
||||||
|
data:
|
||||||
|
|
||||||
|
fname is text # Customer's first name
|
||||||
|
lname is text # Customer's last name
|
||||||
|
add1 is text # First line of customer's address
|
||||||
|
add2 is text # Second line of customer's address
|
||||||
|
cit is text # City customer lives in
|
||||||
|
stat is text # State customer lives in
|
||||||
|
zip is number # Customer's zip code
|
||||||
|
phon is number # Customer's phone number
|
||||||
|
email is text # Customer's email
|
||||||
|
|
||||||
|
procedure:
|
||||||
|
|
||||||
|
display "Welcome to this customer database." crlf "Please enter the required information below." crlf
|
||||||
|
wait 1000 milliseconds
|
||||||
|
|
||||||
|
display "What is your first name?" crlf
|
||||||
|
accept fname
|
||||||
|
display "What is your last name?" crlf
|
||||||
|
accept lname
|
||||||
|
display "What is the name of your business?" crlf
|
||||||
|
accept add1
|
||||||
|
display "What is your street address?" crlf
|
||||||
|
accept add2
|
||||||
|
display "What is your city?" crlf
|
||||||
|
accept cit
|
||||||
|
display "What is your state" crlf
|
||||||
|
accept stat
|
||||||
|
display "What is your zipcode?" crlf
|
||||||
|
accept zip
|
||||||
|
display "What is your phone number?" crlf
|
||||||
|
accept phone
|
||||||
|
display "What is your email?" crlf
|
||||||
|
accept email
|
||||||
|
|
||||||
|
wait 1000 milliseconds
|
||||||
|
display "Please verify the information below."
|
Loading…
Reference in New Issue
Block a user