home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ob140os2.zip / TYPEDEMO.B < prev    next >
Text File  |  1997-09-12  |  659b  |  25 lines
  1. * This shows the use of user defined types
  2.  
  3.  TYPE UsrType
  4.         Name AS STRING*20
  5.         Address AS STRING*30
  6.         City AS STRING*20
  7.         State AS STRING*2
  8.         ZipCode AS LONG
  9.         PhoneNum(2) AS STRING*12 \ notice that arrays are allowed in types!
  10.  END TYPE
  11.  DIM Record AS UsrType
  12.  
  13.  Record.Name="John Doe"
  14.  Record.Address="123 Main St"
  15.  Record.City="Chicago"
  16.  Record.State="IL"
  17.  Record.ZipCode=12345
  18.  Record.PhoneNum(1)="312-555-1212"
  19.  Record.PhoneNum(2)="708-555-1212"
  20.  PRINT Record.Name
  21.  PRINT Record.Address
  22.  PRINT Record.City;",";Record.State;" ";Record.ZipCode
  23.  PRINT Record.PhoneNum(1)
  24.  PRINT Record.PhoneNum(2)
  25.