home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_07 / ACS_PRO.LZH / ASC / DEMO_PP.PRG / ADRESS / ADRESS.I < prev    next >
Text File  |  1993-01-09  |  18KB  |  287 lines
  1. {
  2.  
  3.         This file was created with ACS 2.0 (c) Stefan Bachert 1991, 1992
  4.  
  5.         The contents are based on file: F:\PASCAL\ACS2\ADRESS\ADRESS.ACS
  6.  
  7.         compiled at: Fri Jan 01 19:50:42 1993 
  8. }
  9.  
  10. Const
  11.  
  12. {        STRINGS        }
  13.     NULL_STRING: packed array [1..1] of char =
  14.      (#0);
  15.     TEXT_001: packed array [1..9] of char =
  16.      'Vorname:'#0;
  17.     TEXT_002: packed array [1..6] of char =
  18.      'Name:'#0;
  19.     TEXT_003: packed array [1..8] of char =
  20.      'Stra₧e:'#0;
  21.     TEXT_004: packed array [1..5] of char =
  22.      'Ort:'#0;
  23.     TEXT_005: packed array [1..5] of char =
  24.      'PLZ:'#0;
  25.     TEXT_006: packed array [1..5] of char =
  26.      'Tel:'#0;
  27.     TEXT_007: packed array [1..12] of char =
  28.      'Geburtstag:'#0;
  29.     TEXT_008: packed array [1..9] of char =
  30.      'Hobbies:'#0;
  31.     TEXT_009: packed array [1..12] of char =
  32.      'Geschenk- :'#0;
  33.     TEXT_01: packed array [1..7] of char =
  34.      ' 1234 '#0;
  35.     TEXT_010: packed array [1..13] of char =
  36.      'Abneigungen:'#0;
  37.     TEXT_011: packed array [1..36] of char =
  38.      '12345678901234567890123456789012345'#0;
  39.     TEXT_012: packed array [1..36] of char =
  40.      '___________________________________'#0;
  41.     TEXT_013: packed array [1..36] of char =
  42.      'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'#0;
  43.     TEXT_014: packed array [1..6] of char =
  44.      'Ideen'#0;
  45.     TEXT_015: packed array [1..6] of char =
  46.      'W1234'#0;
  47.     TEXT_016: packed array [1..7] of char =
  48.      '_-____'#0;
  49.     TEXT_017: packed array [1..6] of char =
  50.      'ANNNN'#0;
  51.     TEXT_018: packed array [1..7] of char =
  52.      '121212'#0;
  53.     TEXT_019: packed array [1..9] of char =
  54.      '__-__-__'#0;
  55.     TEXT_020: packed array [1..7] of char =
  56.      'NNNNNN'#0;
  57.     TEXT_021: packed array [1..14] of char =
  58.      '0703112345678'#0;
  59.     TEXT_022: packed array [1..17] of char =
  60.      '_____ / ________'#0;
  61.     TEXT_023: packed array [1..14] of char =
  62.      'NNNNNNNNNNNNN'#0;
  63.     TEXT_024: packed array [1..31] of char =
  64.      '123456789012345678901234567890'#0;
  65.     TEXT_025: packed array [1..31] of char =
  66.      '______________________________'#0;
  67.     TEXT_026: packed array [1..31] of char =
  68.      'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'#0;
  69.     TEXT_027: packed array [1..21] of char =
  70.      '  Über mich ...     '#0;
  71.     TEXT_028: packed array [1..21] of char =
  72.      '--------------------'#0;
  73.     TEXT_029: packed array [1..8] of char =
  74.      ' Datei '#0;
  75.     TEXT_030: packed array [1..15] of char =
  76.      '  Speichern ^S'#0;
  77.     TEXT_031: packed array [1..16] of char =
  78.      '---------------'#0;
  79.     TEXT_032: packed array [1..11] of char =
  80.      ' Adressen '#0;
  81.     TEXT_033: packed array [1..11] of char =
  82.      ' Position '#0;
  83.     TEXT_034: packed array [1..14] of char =
  84.      '  Erster   ^A'#0;
  85.     TEXT_035: packed array [1..14] of char =
  86.      '  Letzter  ^E'#0;
  87.     TEXT_036: packed array [1..14] of char =
  88.      '  Nächster ^N'#0;
  89.     TEXT_037: packed array [1..14] of char =
  90.      '  Voriger  ^V'#0;
  91.     TEXT_038: packed array [1..9] of char =
  92.      ' Aktion '#0;
  93.     TEXT_039: packed array [1..13] of char =
  94.      '  Neu     N'#0;
  95.     TEXT_040: packed array [1..13] of char =
  96.      '  Ändern  M'#0;
  97.     TEXT_041: packed array [1..13] of char =
  98.      '  Löschen D'#0;
  99.     TEXT_044: packed array [1..15] of char =
  100.      '--------------'#0;
  101.     TEXT_045: packed array [1..15] of char =
  102.      '  Beenden   ^L'#0;
  103.  
  104.  
  105. {        TEDINFOS        }
  106.  
  107.     TEDINFO_001: TEDINFO = (te_ptext: @TEXT_011; te_ptmplt: @TEXT_012; te_pvalid: @TEXT_013;
  108.      te_font: 3; te_just: 0; te_color: $1180; te_thickness: -1; te_txtlen: 36; te_tmplen: 36);
  109.     TEDINFO_002: TEDINFO = (te_ptext: @TEXT_015; te_ptmplt: @TEXT_016; te_pvalid: @TEXT_017;
  110.      te_font: 3; te_just: 2; te_color: $1180; te_thickness: -1; te_txtlen: 6; te_tmplen: 7);
  111.     TEDINFO_003: TEDINFO = (te_ptext: @TEXT_018; te_ptmplt: @TEXT_019; te_pvalid: @TEXT_020;
  112.      te_font: 3; te_just: 2; te_color: $1180; te_thickness: -1; te_txtlen: 7; te_tmplen: 9);
  113.     TEDINFO_004: TEDINFO = (te_ptext: @TEXT_021; te_ptmplt: @TEXT_022; te_pvalid: @TEXT_023;
  114.      te_font: 3; te_just: 2; te_color: $1180; te_thickness: -1; te_txtlen: 14; te_tmplen: 17);
  115.     TEDINFO_005: TEDINFO = (te_ptext: @TEXT_024; te_ptmplt: @TEXT_025; te_pvalid: @TEXT_026;
  116.      te_font: 3; te_just: 0; te_color: $1180; te_thickness: -1; te_txtlen: 31; te_tmplen: 31);
  117.     TEDINFO_01: TEDINFO = (te_ptext: @TEXT_01; te_ptmplt: @NULL_STRING; te_pvalid: @NULL_STRING;
  118.      te_font: 5; te_just: 2; te_color: $1180; te_thickness: -1; te_txtlen: 7; te_tmplen: 1);
  119.  
  120.  
  121. {        AUSERBLK        }
  122.  
  123.  A_INNERFRAME02: AUSERBLK = (ub_code: A_innerframe; ub_parm: $8011101; ub_serv: Auo_string; ub_ptr1: NIL; ub_ptr2: NIL; ub_ptr3: NIL);
  124.  A_INNERFRAME03: AUSERBLK = (ub_code: A_innerframe; ub_parm: $a011181; ub_serv: Auo_string; ub_ptr1: NIL; ub_ptr2: NIL; ub_ptr3: NIL);
  125.  
  126. {        MENU TREES        }
  127. AD_MLAST = 31;
  128. AD_MFIRST = 33;
  129. AD_MNEXT = 35;
  130. AD_MPREV = 37;
  131. TASKS : Array [0 .. 39] of ACSOBJECT = ( (aes: (ob_next: -1; ob_head:  1; ob_tail:  7; ob_type: 25; ob_flags: $0000; ob_state: $0000;ob_spec: (index: $00000000);ob_x:  0; ob_y:  0; ob_width: 90; ob_height: 25)),
  132.  (aes: (ob_next:  7; ob_head:  2; ob_tail:  2; ob_type: 20; ob_flags: $0000; ob_state: $0000;ob_spec: (index: $00001100);ob_x:  0; ob_y:  0; ob_width: 90; ob_height: 513)),
  133.  (aes: (ob_next:  1; ob_head:  3; ob_tail:  6; ob_type: 25; ob_flags: $0000; ob_state: $0000;ob_spec: (index: $00000000);ob_x:  2; ob_y:  0; ob_width: 31; ob_height: 769)),
  134.  (aes: (ob_next:  4; ob_head: -1; ob_tail: -1; ob_type: 32; ob_flags: $0000; ob_state: $2000;ob_spec: (free_string: @NULL_STRING);ob_x:  0; ob_y:  0; ob_width:  6; ob_height: 769)),
  135.  (aes: (ob_next:  5; ob_head: -1; ob_tail: -1; ob_type: 32; ob_flags: $0000; ob_state: $0000;ob_spec: (free_string: @TEXT_029);ob_x:  6; ob_y:  0; ob_width:  7; ob_height: 769)),
  136.  (aes: (ob_next:  6; ob_head: -1; ob_tail: -1; ob_type: 32; ob_flags: $0000; ob_state: $0000;ob_spec: (free_string: @TEXT_038);ob_x: 13; ob_y:  0; ob_width:  8; ob_height: 769)),
  137.  (aes: (ob_next:  2; ob_head: -1; ob_tail: -1; ob_type: 32; ob_flags: $0000; ob_state: $0000;ob_spec: (free_string: @TEXT_033);ob_x: 21; ob_y:  0; ob_width: 10; ob_height: 769)),
  138.  (aes: (ob_next:  0; ob_head:  8; ob_tail: 30; ob_type: 25; ob_flags: $0000; ob_state: $0000;ob_spec: (index: $00000000);ob_x:  0; ob_y: 769; ob_width: 80; ob_height: 19)),
  139.  (aes: (ob_next: 17; ob_head:  9; ob_tail: 16; ob_type: 20; ob_flags: $0000; ob_state: $0000;ob_spec: (index: $00ff1100);ob_x:  2; ob_y:  0; ob_width: 20; ob_height:  8)),
  140.  (aes: (ob_next: 10; ob_head: -1; ob_tail: -1; ob_type: 28; ob_flags: $0000; ob_state: $2000;ob_spec: (free_string: @TEXT_027);ob_x:  0; ob_y:  0; ob_width: 20; ob_height:  1)),
  141.  (aes: (ob_next: 11; ob_head: -1; ob_tail: -1; ob_type: 28; ob_flags: $0000; ob_state: $2008;ob_spec: (free_string: @TEXT_028);ob_x:  0; ob_y:  1; ob_width: 20; ob_height:  1)),
  142.  (aes: (ob_next: 12; ob_head: -1; ob_tail: -1; ob_type: 28; ob_flags: $0000; ob_state: $2000;ob_spec: (free_string: @NULL_STRING);ob_x:  0; ob_y:  2; ob_width: 20; ob_height:  1)),
  143.  (aes: (ob_next: 13; ob_head: -1; ob_tail: -1; ob_type: 28; ob_flags: $0000; ob_state: $2000;ob_spec: (free_string: @NULL_STRING);ob_x:  0; ob_y:  3; ob_width: 20; ob_height:  1)),
  144.  (aes: (ob_next: 14; ob_head: -1; ob_tail: -1; ob_type: 28; ob_flags: $0000; ob_state: $2000;ob_spec: (free_string: @NULL_STRING);ob_x:  0; ob_y:  4; ob_width: 20; ob_height:  1)),
  145.  (aes: (ob_next: 15; ob_head: -1; ob_tail: -1; ob_type: 28; ob_flags: $0000; ob_state: $2000;ob_spec: (free_string: @NULL_STRING);ob_x:  0; ob_y:  5; ob_width: 20; ob_height:  1)),
  146.  (aes: (ob_next: 16; ob_head: -1; ob_tail: -1; ob_type: 28; ob_flags: $0000; ob_state: $2000;ob_spec: (free_string: @NULL_STRING);ob_x:  0; ob_y:  6; ob_width: 20; ob_height:  1)),
  147.  (aes: (ob_next:  8; ob_head: -1; ob_tail: -1; ob_type: 28; ob_flags: $0000; ob_state: $2000;ob_spec: (free_string: @NULL_STRING);ob_x:  0; ob_y:  7; ob_width: 20; ob_height:  1)),
  148.  (aes: (ob_next: 23; ob_head: 18; ob_tail: 22; ob_type: 20; ob_flags: $0000; ob_state: $0020;ob_spec: (index: $00ff1101);ob_x:  8; ob_y:  0; ob_width: 15; ob_height:  3)),
  149.  (aes: (ob_next: 20; ob_head: -1; ob_tail: -1; ob_type: 28; ob_flags: $0000; ob_state: $0000;ob_spec: (free_string: @TEXT_030);ob_x:  0; ob_y:  0; ob_width: 15; ob_height:  1)),
  150.  (acs :(click: ad_save; ob_flags: $8000; key: $0013;userp1: NIL;userp2: NIL;mo_index: 0; aob_type: 0)),
  151.  (aes: (ob_next: 22; ob_head: -1; ob_tail: -1; ob_type: 28; ob_flags: $0000; ob_state: $0000;ob_spec: (free_string: @TEXT_045);ob_x:  0; ob_y:  2; ob_width: 15; ob_height:  1)),
  152.  (acs :(click: ad_leave; ob_flags: $8000; key: $000c;userp1: NIL;userp2: NIL;mo_index: 0; aob_type: 0)),
  153.  (aes: (ob_next: 17; ob_head: -1; ob_tail: -1; ob_type: 28; ob_flags: $0000; ob_state: $0008;ob_spec: (free_string: @TEXT_031);ob_x:  0; ob_y:  1; ob_width: 15; ob_height:  1)),
  154.  (aes: (ob_next: 30; ob_head: 24; ob_tail: 28; ob_type: 20; ob_flags: $0000; ob_state: $0020;ob_spec: (index: $00ff1101);ob_x: 15; ob_y:  0; ob_width: 13; ob_height:  3)),
  155.  (aes: (ob_next: 26; ob_head: -1; ob_tail: -1; ob_type: 28; ob_flags: $0000; ob_state: $0000;ob_spec: (free_string: @TEXT_040);ob_x:  0; ob_y:  1; ob_width: 13; ob_height:  1)),
  156.  (acs :(click: ad_modify; ob_flags: $8000; key: $8832;userp1: NIL;userp2: NIL;mo_index: 0; aob_type: 0)),
  157.  (aes: (ob_next: 28; ob_head: -1; ob_tail: -1; ob_type: 28; ob_flags: $0000; ob_state: $0000;ob_spec: (free_string: @TEXT_041);ob_x:  0; ob_y:  2; ob_width: 13; ob_height:  1)),
  158.  (acs :(click: ad_delete; ob_flags: $8000; key: $8820;userp1: NIL;userp2: NIL;mo_index: 0; aob_type: 0)),
  159.  (aes: (ob_next: 23; ob_head: -1; ob_tail: -1; ob_type: 28; ob_flags: $0000; ob_state: $0000;ob_spec: (free_string: @TEXT_039);ob_x:  0; ob_y:  0; ob_width: 13; ob_height:  1)),
  160.  (acs :(click: ad_new; ob_flags: $8000; key: $8831;userp1: NIL;userp2: NIL;mo_index: 0; aob_type: 0)),
  161.  (aes: (ob_next:  7; ob_head: 31; ob_tail: 39; ob_type: 20; ob_flags: $0000; ob_state: $0020;ob_spec: (index: $00ff1101);ob_x: 23; ob_y:  0; ob_width: 14; ob_height:  5)),
  162.  (aes: (ob_next: 33; ob_head: -1; ob_tail: -1; ob_type: 28; ob_flags: $0000; ob_state: $0000;ob_spec: (free_string: @TEXT_035);ob_x:  0; ob_y:  1; ob_width: 14; ob_height:  1)),
  163.  (acs :(click: ad_last; ob_flags: $8000; key: $0005;userp1: NIL;userp2: NIL;mo_index: 0; aob_type: 0)),
  164.  (aes: (ob_next: 35; ob_head: -1; ob_tail: -1; ob_type: 28; ob_flags: $0000; ob_state: $0000;ob_spec: (free_string: @TEXT_034);ob_x:  0; ob_y:  0; ob_width: 14; ob_height:  1)),
  165.  (acs :(click: ad_first; ob_flags: $8000; key: $0001;userp1: NIL;userp2: NIL;mo_index: 0; aob_type: 0)),
  166.  (aes: (ob_next: 37; ob_head: -1; ob_tail: -1; ob_type: 28; ob_flags: $0000; ob_state: $0000;ob_spec: (free_string: @TEXT_036);ob_x:  0; ob_y:  3; ob_width: 14; ob_height:  1)),
  167.  (acs :(click: ad_next; ob_flags: $8000; key: $000e;userp1: NIL;userp2: NIL;mo_index: 0; aob_type: 0)),
  168.  (aes: (ob_next: 39; ob_head: -1; ob_tail: -1; ob_type: 28; ob_flags: $0000; ob_state: $0000;ob_spec: (free_string: @TEXT_037);ob_x:  0; ob_y:  4; ob_width: 14; ob_height:  1)),
  169.  (acs :(click: ad_prev; ob_flags: $8000; key: $0016;userp1: NIL;userp2: NIL;mo_index: 0; aob_type: 0)),
  170.  (aes: (ob_next: 30; ob_head: -1; ob_tail: -1; ob_type: 28; ob_flags: $0020; ob_state: $0008;ob_spec: (free_string: @TEXT_044);ob_x:  0; ob_y:  2; ob_width: 14; ob_height:  1))
  171. );
  172.  
  173. {        OBJECT TREES        }
  174. AD_FIRSTNAME = 4;
  175. AD_LASTNAME = 6;
  176. AD_STREET = 8;
  177. AD_PLZ = 10;
  178. AD_TOWN = 12;
  179. AD_PHONE = 14;
  180. AD_INDEX = 15;
  181. AD_BIRTHDAY = 18;
  182. AD_1HOBBY = 20;
  183. AD_2HOBBY = 21;
  184. AD_1IDEA = 22;
  185. AD_2IDEA = 23;
  186. AD_1DONTS = 24;
  187. AD_2DONTS = 25;
  188. DETAIL : Array [0 .. 29] of ACSOBJECT = ( (aes: (ob_next: -1; ob_head:  2; ob_tail: 16; ob_type: 20; ob_flags: $0002; ob_state: $0000;ob_spec: (index: $00ff1100);ob_x:  0; ob_y:  0; ob_width: 53; ob_height: 16)),
  189.  (acs :(click: ad_new; ob_flags: $8000; key: $0000;userp1: NIL;userp2: NIL;mo_index: 0; aob_type: 0)),
  190.  (aes: (ob_next: 16; ob_head:  3; ob_tail: 15; ob_type: 24; ob_flags: $0000; ob_state: $0000;ob_spec: (free_string: @A_INNERFRAME02);ob_x:  1; ob_y:  0; ob_width: 51; ob_height:  7)),
  191.  (aes: (ob_next:  4; ob_head: -1; ob_tail: -1; ob_type: 28; ob_flags: $0000; ob_state: $0000;ob_spec: (free_string: @TEXT_001);ob_x:  2; ob_y:  1; ob_width:  8; ob_height:  1)),
  192.  (aes: (ob_next:  5; ob_head: -1; ob_tail: -1; ob_type: 29; ob_flags: $0008; ob_state: $0000;ob_spec: (free_string: @TEDINFO_001);ob_x: 14; ob_y:  1; ob_width: 35; ob_height:  1)),
  193.  (aes: (ob_next:  6; ob_head: -1; ob_tail: -1; ob_type: 28; ob_flags: $0000; ob_state: $0000;ob_spec: (free_string: @TEXT_002);ob_x:  2; ob_y:  2; ob_width:  5; ob_height:  1)),
  194.  (aes: (ob_next:  7; ob_head: -1; ob_tail: -1; ob_type: 29; ob_flags: $0008; ob_state: $0000;ob_spec: (free_string: @TEDINFO_001);ob_x: 14; ob_y:  2; ob_width: 35; ob_height:  1)),
  195.  (aes: (ob_next:  8; ob_head: -1; ob_tail: -1; ob_type: 28; ob_flags: $0000; ob_state: $0000;ob_spec: (free_string: @TEXT_003);ob_x:  2; ob_y:  3; ob_width:  7; ob_height:  1)),
  196.  (aes: (ob_next:  9; ob_head: -1; ob_tail: -1; ob_type: 29; ob_flags: $0008; ob_state: $0000;ob_spec: (free_string: @TEDINFO_001);ob_x: 14; ob_y:  3; ob_width: 35; ob_height:  1)),
  197.  (aes: (ob_next: 10; ob_head: -1; ob_tail: -1; ob_type: 28; ob_flags: $0000; ob_state: $0000;ob_spec: (free_string: @TEXT_005);ob_x:  2; ob_y:  4; ob_width:  4; ob_height:  1)),
  198.  (aes: (ob_next: 11; ob_head: -1; ob_tail: -1; ob_type: 29; ob_flags: $0008; ob_state: $0000;ob_spec: (free_string: @TEDINFO_002);ob_x:  7; ob_y:  4; ob_width:  6; ob_height:  1)),
  199.  (aes: (ob_next: 12; ob_head: -1; ob_tail: -1; ob_type: 28; ob_flags: $0000; ob_state: $0000;ob_spec: (free_string: @TEXT_004);ob_x: 14; ob_y:  4; ob_width:  4; ob_height:  1)),
  200.  (aes: (ob_next: 13; ob_head: -1; ob_tail: -1; ob_type: 29; ob_flags: $0008; ob_state: $0000;ob_spec: (free_string: @TEDINFO_005);ob_x: 19; ob_y:  4; ob_width: 30; ob_height:  1)),
  201.  (aes: (ob_next: 14; ob_head: -1; ob_tail: -1; ob_type: 28; ob_flags: $0000; ob_state: $0000;ob_spec: (free_string: @TEXT_006);ob_x:  2; ob_y:  5; ob_width:  4; ob_height:  1)),
  202.  (aes: (ob_next: 15; ob_head: -1; ob_tail: -1; ob_type: 29; ob_flags: $0008; ob_state: $0000;ob_spec: (free_string: @TEDINFO_004);ob_x:  7; ob_y:  5; ob_width: 16; ob_height:  1)),
  203.  (aes: (ob_next:  2; ob_head: -1; ob_tail: -1; ob_type: 21; ob_flags: $0000; ob_state: $0000;ob_spec: (free_string: @TEDINFO_01);ob_x: 40; ob_y:  0; ob_width:  6; ob_height:  1)),
  204.  (aes: (ob_next:  0; ob_head: 17; ob_tail: 28; ob_type: 24; ob_flags: $0000; ob_state: $0000;ob_spec: (free_string: @A_INNERFRAME03);ob_x:  1; ob_y:  7; ob_width: 51; ob_height:  9)),
  205.  (aes: (ob_next: 18; ob_head: -1; ob_tail: -1; ob_type: 28; ob_flags: $0000; ob_state: $0000;ob_spec: (free_string: @TEXT_007);ob_x:  1; ob_y:  1; ob_width: 11; ob_height:  1)),
  206.  (aes: (ob_next: 19; ob_head: -1; ob_tail: -1; ob_type: 29; ob_flags: $0008; ob_state: $0000;ob_spec: (free_string: @TEDINFO_003);ob_x: 14; ob_y:  1; ob_width:  8; ob_height:  1)),
  207.  (aes: (ob_next: 20; ob_head: -1; ob_tail: -1; ob_type: 28; ob_flags: $0000; ob_state: $0000;ob_spec: (free_string: @TEXT_008);ob_x:  1; ob_y:  2; ob_width:  8; ob_height:  1)),
  208.  (aes: (ob_next: 21; ob_head: -1; ob_tail: -1; ob_type: 29; ob_flags: $0008; ob_state: $0000;ob_spec: (free_string: @TEDINFO_001);ob_x: 14; ob_y:  2; ob_width: 35; ob_height:  1)),
  209.  (aes: (ob_next: 22; ob_head: -1; ob_tail: -1; ob_type: 29; ob_flags: $0008; ob_state: $0000;ob_spec: (free_string: @TEDINFO_001);ob_x: 14; ob_y:  3; ob_width: 35; ob_height:  1)),
  210.  (aes: (ob_next: 23; ob_head: -1; ob_tail: -1; ob_type: 29; ob_flags: $0008; ob_state: $0000;ob_spec: (free_string: @TEDINFO_001);ob_x: 14; ob_y:  4; ob_width: 35; ob_height:  1)),
  211.  (aes: (ob_next: 24; ob_head: -1; ob_tail: -1; ob_type: 29; ob_flags: $0008; ob_state: $0000;ob_spec: (free_string: @TEDINFO_001);ob_x: 14; ob_y:  5; ob_width: 35; ob_height:  1)),
  212.  (aes: (ob_next: 25; ob_head: -1; ob_tail: -1; ob_type: 29; ob_flags: $0008; ob_state: $0000;ob_spec: (free_string: @TEDINFO_001);ob_x: 14; ob_y:  6; ob_width: 35; ob_height:  1)),
  213.  (aes: (ob_next: 26; ob_head: -1; ob_tail: -1; ob_type: 29; ob_flags: $0008; ob_state: $0000;ob_spec: (free_string: @TEDINFO_001);ob_x: 14; ob_y:  7; ob_width: 35; ob_height:  1)),
  214.  (aes: (ob_next: 27; ob_head: -1; ob_tail: -1; ob_type: 28; ob_flags: $0000; ob_state: $0000;ob_spec: (free_string: @TEXT_010);ob_x:  1; ob_y:  6; ob_width: 12; ob_height:  1)),
  215.  (aes: (ob_next: 28; ob_head: -1; ob_tail: -1; ob_type: 28; ob_flags: $0000; ob_state: $0000;ob_spec: (free_string: @TEXT_014);ob_x:  1; ob_y:  5; ob_width:  6; ob_height:  1)),
  216.  (aes: (ob_next: 16; ob_head: -1; ob_tail: -1; ob_type: 28; ob_flags: $0000; ob_state: $0000;ob_spec: (free_string: @TEXT_009);ob_x:  1; ob_y:  4; ob_width: 11; ob_height:  1)),
  217.  (acs :(ob_flags: $8020; key: $003a;userp1: NIL;userp2: NIL;mo_index: 0; aob_type: 0))
  218. );
  219.  
  220.  
  221. {        WINDOWS        }
  222.  
  223.     ADDRESS: Awindow = ( user: NIL;
  224.  service: ad_service;
  225.  create: ad_make;
  226.  open: Awi_open;
  227.  init: Awi_init;
  228.  work: @DETAIL;
  229.  ob_edit: -1; ob_col: -1; wi_id: -1;
  230.  wi_kind: $0fff; wi_act: (x:  0; y:  0; w: 56; h: 21);
  231.  wi_slider: (x: -1; y: -1; w: -1; h: -1);
  232.  snap_mask: $fff8;
  233.  name: @TEXT_032; info: @NULL_STRING;
  234.  wi_type: $2710; kind: $0003; icon : -1;
  235.  iconblk: NIL;
  236.  menu: @TASKS;
  237.  keys: Awi_keys;
  238.  obchange: Awi_obchange;
  239.  redraw: Awi_redraw;
  240.  topped: Awi_topped;
  241.  closed: Awi_closed;
  242.  fulled: Awi_fulled;
  243.  arrowed: Awi_arrowed;
  244.  hslid: Awi_hslid;
  245.  vslid: Awi_vslid;
  246.  sized: Awi_sized;
  247.  moved: Awi_moved);
  248.  
  249.  
  250.  
  251. ACSdescr: Adescr = (
  252.         magic: 'ACS 2.0'#0; version: 200; dx:  0; dy: -4; flags: $000b;
  253.  acc_reg: '  ACS ACCESSORY'#0'                ';
  254.  root: NIL; acc: NIL; mouse: (
  255.  (number:   0; form: NIL),
  256.  (number:   2; form: NIL),
  257.  (number:   3; form: NIL),
  258.  (number:   4; form: NIL),
  259.  (number:   1; form: NIL),
  260.  (number:   5; form: NIL),
  261.  (number:   6; form: NIL),
  262.  (number:   7; form: NIL),
  263.  (number:   0; form: NIL),
  264.  (number:   0; form: NIL),
  265.  (number:   0; form: NIL),
  266.  (number:   0; form: NIL),
  267.  (number:   0; form: NIL),
  268.  (number:   0; form: NIL),
  269.  (number:   0; form: NIL),
  270.  (number:   0; form: NIL),
  271.  (number:   0; form: NIL),
  272.  (number:   0; form: NIL),
  273.  (number:   0; form: NIL),
  274.  (number:   0; form: NIL),
  275.  (number:   0; form: NIL),
  276.  (number:   0; form: NIL),
  277.  (number:   0; form: NIL),
  278.  (number:   0; form: NIL),
  279.  (number:   0; form: NIL),
  280.  (number:   0; form: NIL),
  281.  (number:   0; form: NIL),
  282.  (number:   0; form: NIL),
  283.  (number:   0; form: NIL),
  284.  (number:   0; form: NIL),
  285.  (number:   0; form: NIL),
  286.  (number:   0; form: NIL)) );
  287.