home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 01 / layout / prog1.rsc < prev    next >
Encoding:
Text File  |  1990-10-15  |  3.3 KB  |  77 lines
  1. { --------------- Menu Information ----------------------- }
  2.  
  3. const
  4.         Menu_Struct_Table : menu_struct = (0,0);
  5.         Menu_Help_Table : word = 0;
  6.  
  7.  
  8. { ------------ Card Variables and Structures ------------- }
  9.  
  10. type
  11.   Rechenblatt_struct = record
  12.       laycard_header_structure : layout_card_header_struct;
  13.       Anfangskapital_struct : layout_card_desc_struct;
  14.       Zinssatz_struct : layout_card_desc_struct;
  15.       Laufzeit__Monate__struct : layout_card_desc_struct;
  16.       Fertig_Taste_struct : layout_card_desc_struct;
  17.       End_Kapital_struct : layout_card_desc_struct;
  18.       card_cond_data : array [1..1] of word;
  19.       card_back_data : array [1..80] of word;
  20.       Anfangskapital : double;
  21.       End_Kapital : double;
  22.       Zinssatz : double;
  23.       Laufzeit__Monate_ : integer;
  24.   end;
  25.  
  26. const
  27.   Rechenblatt : Rechenblatt_struct  = (
  28.     laycard_header_structure : (
  29.        card_header : ($0020, $050A, $01CC, $01B2, $0112,
  30.                       $0110, $0403, $1035);
  31.        card_name : 'Rechenblatt'#0#0#0#0#0);
  32.     Anfangskapital_struct : (
  33.        data_desc : ($0406, $0000, $0000, $001B, $0118,
  34.                     $0200, $0101, $0000, $0000);
  35.        data_name : 'Anfangskapital'#0#0#0#0#0#0#0#0;
  36.        data_blck : ($0005, $0000, $0000, $0000) );
  37.     Zinssatz_struct : (
  38.        data_desc : ($0406, $0000, $0000, $021B, $0118,
  39.                     $0200, $0101, $0000, $0010);
  40.        data_name : 'Zinssatz'#0#0#0#0#0#0#0#0#0#0#0#0#0#0;
  41.        data_blck : ($000E, $0000, $0000, $0000) );
  42.     Laufzeit__Monate__struct : (
  43.        data_desc : ($0405, $0000, $0000, $041B, $0118,
  44.                     $0000, $0101, $0000, $0018);
  45.        data_name : 'Laufzeit (Monate)'#0#0#0#0#0;
  46.        data_blck : ($0017, $0000, $0000, $0000) );
  47.     Fertig_Taste_struct : (
  48.        data_desc : ($800D, $0000, $0000, $0D09, $0208,
  49.                     $0000, $0101, $0071, $0000);
  50.        data_name : 'Fertig-Taste'#0#0#0#0#0#0#0#0#0#0;
  51.        data_blck : ($0020, $0000, $0000, $0000) );
  52.     End_Kapital_struct : (
  53.        data_desc : ($0406, $0000, $0000, $081B, $0118,
  54.                     $0200, $0101, $0000, $0008);
  55.        data_name : 'End-Kapital'#0#0#0#0#0#0#0#0#0#0#0;
  56.        data_blck : ($0029, $0000, $0000, $0000) );
  57.        card_cond_data : ($FFFF);
  58.        card_back_data : ($0000, $0029, $0000, $021C, $7541,
  59.                          $6773, $6E61, $7367, $616B, $6970,
  60.                          $6174, $206C, $2020, $2020, $2020,
  61.                          $2020, $3A20, $0D20, $2020, $0D20,
  62.                          $0000, $2400, $0000, $1C04, $4C01,
  63.                          $7561, $7A66, $6965, $2074, $5A28,
  64.                          $6965, $6574, $6E69, $6568, $7469,
  65.                          $6E65, $2029, $0D3A, $0000, $2400,
  66.                          $0000, $1C08, $4501, $646E, $616B,
  67.                          $6970, $6174, $206C, $2020, $2020,
  68.                          $2020, $2020, $2020, $2020, $2020,
  69.                          $0D3A, $0000, $0B01, $4600, $5245,
  70.                          $4954, $0047, $0000, $0024, $0200,
  71.                          $011C, $695A, $736E, $6173, $7A74,
  72.                          $5A2F, $6965, $6574, $6E69, $6568,
  73.                          $7469, $2820, $2925, $3A20, $000D)
  74.   );
  75.  
  76.   text_string1 : array [1..14] of char = ' RECHENBLATT '#0;
  77.