home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / QBAS / VBUTIL.ZIP / RANDOM.BAS < prev    next >
BASIC Source File  |  1992-10-08  |  508b  |  21 lines

  1. Global Const NAME_LEN = 30
  2. Global Const COMPANY_LEN = 40
  3. Global Const ADDRESS_LEN = 40
  4. Global Const CITY_LEN = 15
  5. Global Const STATE_LEN = 2
  6. Global Const ZIP_LEN = 10
  7. Global Const PHONE_LEN = 14
  8.  
  9. Type CardType
  10.   fName As String * NAME_LEN
  11.   fCompany As String * COMPANY_LEN
  12.   fAddress As String * ADDRESS_LEN
  13.   fCity As String * CITY_LEN
  14.   fState As String * STATE_LEN
  15.   fZip As String * ZIP_LEN
  16.   fPhone As String * PHONE_LEN
  17.   fFax As String * PHONE_LEN
  18.   IsDel As String * 1
  19. End Type
  20.  
  21.