42 lines
1.1 KiB
Plaintext
42 lines
1.1 KiB
Plaintext
|
# 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."
|