// =============================================================================
//  Module Name: Lab 7 Customer Information
// Student Name: Juan San Martin
// Date Created: 10/22/2009 9:15:32 PM
//  Description:
// =============================================================================

Module Main()
// Define Variables
   Declare String salutation = ""
   Declare String firstName = ""
   Declare String lastName = ""
   Declare String streetAdd = ""
   Declare String state = ""
   Declare Integer zipCode = 0
   Declare String companyName = ""
   Declare Integer telephoneNum = 0
   Declare Real creditLimit = 0

   Display "Customer Information"
   Display ""


// This calls the module that retrieves salutation

Call GetSalutation(salutation)
Call GetFirstName(firstName)
Call GetLastName(lastName)
Call GetStreetAdd(streetAdd)
Call GetState(state)
Call GetZipCode(zipCode)
Call GetCompanyName(companyName)
Call GetTelephoneNum(telephoneNum)
Call GetCreditLimit(creditLimit)
Call GetDisplayAll(String Ref salutation,String Ref firstName,String Ref lastName,String Ref streetAdd,String Ref state,Integer Ref zipCode,String Ref companyName,
Integer Ref telephoneNum,Real Ref creditLimit)

End Module

// Module that retrieves customer salutation

   Module GetSalutation(String Ref salutation)

   Display ""
  
   Input "Enter Salutation Ex:Mr. Mrs. Ms, Messrs., Dr., Ph.D.:" salutation

   End Module

// Module that retrieves first name

   Module GetFirstName(String Ref firstName)
  
   Input "Enter First Name:" firstName
  
   End Module

// Module that retrieves last name

   Module GetLastName(String Ref lastName)

   Input "Enter Last Name:" lastName

   End Module

// Module that retrieves street address

   Module GetStreetAdd(String Ref streetAdd)

   Input "Enter Street Address:" streetAdd

   End Module

// Module that retrieves state

   Module GetState(String Ref state)

   Input "Enter the State:" state
  
   End Module

End Module

//Module That retrieves zip code

   Module GetZipCode(String Ref zipCode)

   Input "Enter Zip Code:" zipCode

   End Module

// Module That retrievs company name

   Module GetCompanyName(String Ref companyName)

   Input "Enter Company Name:" companyName

   End Module

//Module that retrieves Telephone Number

   Module GetTelephoneNum(Integer Ref telephoneNum)

   Input "Enter Telephone Number: " telephoneNum

   End Module

// Module that retrives Credit Limit

   Module GetCreditLimit(Real Ref creditLimit)

   Input "Enter Credit Limit:" creditLimit

   End Module

// Module Display All Information

   Module GetDisplayAll(String salutation,String firstName,String lastName, String streetAdd, String state, Integer zipCode, String companyName, Integer telephoneNum, Real creditLimit)

Display "COMPANY NAME: "
Display "CONTACT: " salutation "." firstName
Display "            "      
Display "             "            
Display "TELEPHONE NUMBER:"
Display "CREDIT LIMIT:" Format(, "$###,###.00")
End Module
End Module