home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / VBUTIL / VBUTIL.ZIP / RANDOM.BAS < prev    next >
Encoding:
BASIC Source File  |  1992-10-09  |  508 b   |  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.