home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / INTR_DMO.ZIP / DEMO-CTV.INC < prev    next >
Encoding:
Text File  |  1985-10-01  |  1.5 KB  |  47 lines
  1. { DEMO-CTV.INC Global types and variables unique to the CDS system }
  2.  
  3. const ADD_REC    = #59; { F1 key }
  4.       UPDT_REC   = #61; { F3 key }
  5.       SLCT_FLD   = #62; { F4 key }
  6.       DEL_REC    = #65; { F6 key }
  7.  
  8.       ADD_SET    : Any_Char = [PREV_FLD,ALT_PREV];
  9.       DEL_SET    : Any_Char = [ALT_DEL,DEL_CHAR];
  10.       UPDT_SET   : Any_Char = [CUR_LEFT,ALT_LEFT,CUR_RIGHT,ALT_RIGHT];
  11.       ACPT_SET   : Any_Char = [ACCEPT];
  12.       CANCEL_SET : Any_Char = [ESC];
  13.       HELP_SET   : Any_Char = [HELP];
  14.  
  15.  
  16. type Str_4          = string[4];
  17.  
  18.      Zip_Code       = record
  19.                         zip1   : Str_5;
  20.                         zip2   : Str_4;
  21.                       end;
  22.  
  23.      Phone_No       = record
  24.                         area,
  25.                         prefix,
  26.                         number : Integer;
  27.                       end;
  28.  
  29.       Address_Rec  = record
  30.                        attn   : Str_30;
  31.                        addr   : Str_30;
  32.                        city   : Str_20;
  33.                        state  : Str_2;
  34.                        zip1   : Str_5;
  35.                        zip2   : Str_4;
  36.                      end;
  37.  
  38.       Demo_Record  = record
  39.                        name   : Str_30;
  40.                        addr   : Address_Rec;
  41.                        phone  : Phone_No;
  42.                      end;
  43.  
  44. var   demo              : Demo_Record;
  45.       demo_file         : File of Demo_Record;
  46.       num_str           : Str_20;
  47.       current_selection : Integer;