home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / w014 / screen.ein < prev    next >
Text File  |  1993-04-15  |  46KB  |  1,070 lines
  1. struct s abeh_scr[] = {
  2. {1, "",'s',__,__},
  3. {2, " Par 33b EStG: Minderung der Erwerbsfähigkeit in %",'x',__, __},
  4. {3, " Für Blinde & ständig Hilflose bitte 300 eingeben",'x',__, __},
  5. {4, " Behinderung in % : ----->#Gehbehinderung (1:Ja)->",'d',
  6. &a[14], &a[16]},
  7. {5, " Ef.Behinderung in %:---->#Gehbehinderung (1:Ja)->",'d',
  8. &b[14], &b[16]},
  9. {6, " Kind1 Behinderung in %-->#Kind1 Gehbeh.  (1:Ja)->",'d',
  10. &a[12], &a[17]},
  11. {7, " Kind2 Behinderung in %-->#Kind2 Gehbeh.  (1:Ja)->",'d',
  12. &a[13], &a[18]},
  13. {8, " Kind3 Behinderung in %-->#Kind3 Gehbeh.  (1:Ja)->",'d',
  14. &b[12], &b[17]},
  15. {9, " Kind4 Behinderung in %-->#Kind4 Gehbeh.  (1:Ja)->",'d',
  16. &b[13], &b[18]},
  17. {10," Pflegen Sie eine hilflose Person    ",'x',__,__},
  18. {11,"  1 für Ja, 0 für Nein:         ----->",'f',__,&a[322]},
  19. {12," Erhalten Sie einen laufenden Hinterbliebenebezug?",'x',__, __},
  20. {13,"  Wenn ja, bitte 1 eingeben --------->",'f',__,&a[15]},
  21. {0,"1130,3,3,75,17,1,j",'x',__, __}
  22. };
  23. struct s aendem_scr[] = {
  24. {2, "@   Änderung von...:               ", 'x',__, __},
  25. {4, "                                      Stpfl/Ehemann", 'x',__, __},
  26. {5, "Grundangaben                       --[F2]->",'t', __,str[0]},
  27. {6, "Land und Forstwirtschaft ------------[F2]->",'f',
  28. __,&a[40]},
  29. {7, "Gewerbebetrieb                     --[F2]->",'f',
  30. __,&a[70]},
  31. {8, "Selbst. Tätigkeit                  --[F2]->",'f',
  32. __,&a[75]},
  33. {9, "Nichtselbst. Tätigkeit             --[F2]->",'f',
  34. __,&a[491]},
  35. {10,"Kapitalvermögen                    --[F2]->",'f',
  36. __,&a[85]},
  37. {11,"Vermietung & Verpacht., FW.        --[F2]->",'f',
  38. __,&a[119]},
  39. {12,"Sonstige (Renten, ...)             --[F2]->",'f',
  40. __,&a[160]},
  41. {13,"Doppelbest.Abkommen / Außerord.Eink  -[F2]>",'f',
  42. __, &a[192]},
  43. {14,"Sonderausgaben (Vorsorge,Versicherung)[F2]>",'f',
  44. __, &a[205]},
  45. {15,"Außergewöhnliche Belastungen         -[F2]>",'f',
  46. __, &c[21]},
  47. {16,"Besondere Ermäß/Ausl. Steuern        -[F2]>",'f',
  48. __,&c[25]},
  49. {17,"Geleistete Steuervorauszahlungen     -[F2]>",'f',
  50. __,&c[138]},
  51. {18,"In Berlin (West) erzielte Einkünfte  -[F2]>",'f',
  52. __,&a[58]},
  53. {0,"1470,4,1,73,21,1,j",'x',__, __}
  54. };
  55. struct s aend_scr[] = {
  56. {2, "@   Änderung von...:               ", 'x',__, __},
  57. {4, "                                     Stpfl/Ehemann           Ehefrau",
  58. 'x',__,__},
  59. {5, "Grundangaben                       --[F2]->",'t', __,str[0]},
  60. {6, "Land und Forstwirtschaft  -----------[F2]->#[F2]>",'d',
  61. &a[40],&b[40]},
  62. {7, "Gewerbebetrieb                     --[F2]->#[F2]>",'d',
  63. &a[70],&b[70]},
  64. {8, "Selbst. Tätigkeit                  --[F2]->#[F2]>",'d',
  65. &a[75],&b[75]},
  66. {9, "Nichtselbst. Tät.                  --[F2]->#[F2]>",'d',
  67. &a[491],&b[491]},
  68. {10,"Kapitalvermögen                    --[F2]->#[F2]>",'d',
  69. &a[85],&b[85]},
  70. {11,"Vermietung & Verpacht.,FW.         --[F2]->#[F2]>",'d',
  71. &a[119],&b[119]},
  72. {12,"Sonstige (Renten, ...)             --[F2]->#[F2]>",'d',
  73. &a[160],&b[160]},
  74. {13,"Doppelbest.Abkommen / Außerord.Eink  -[F2]>#[F2]>",'d',
  75. &a[192], &b[192]},
  76. {14,"Sonderausgaben (Vorsorge,Versicherung)[F2]>#[F2]>",'d',
  77. &a[205], &b[205]},
  78. {15,"Außergewöhnliche Belastungen         -[F2]>#[F2]>",'d',
  79. &c[21], &d[21]},
  80. {16,"Besondere Ermäß/Ausl. Steuern        -[F2]>#[F2]>",'d',
  81. &c[25],&d[25]},
  82. {17,"Geleistete Steuervorauszahlungen     -[F2]>#[F2]>",'d',
  83. &c[138],&d[138]},
  84. {18,"In Berlin (West) erzielte Einkünfte  -[F2]>#[F2]>",'d',
  85. &a[58],&b[58]},
  86. {0,"1500,1,1,76,21,1,j",'x',__, __}
  87. };
  88.  struct s afa_scr[] = {
  89.  {2, " Afa insgesamt berechnen (10e Regelung)",'x',__, __},
  90.  {4, " Kaufpreis vom Objekt------------->",'f',__,&b[100]},
  91.  {5, " Kaufpreis vom Grund und Boden---->",'f',__,&b[103]},
  92.  {6, " Bereits 4 J.AfA abgezogen? 1:Ja-->",'f',__,&b[127]},
  93.  {7, " Innerhalb 2.J. nach Herst.? 1:Ja->",'f',__,&b[128]},
  94.  {8, " Wohnzwecke %--------------------->",'f',__,&b[104]},
  95.  {9 ," AfA nach 82 (Baumaßnahmen) ----->",'f',__,&b[101]},
  96.  {10," AfA Nachtrag--------------------->",'f',__,&b[102]},
  97.  {0,"550,8,3,55,14,1,j",'x',__, __}
  98.  };
  99.  struct s anl_scr[] = {
  100.  {1, "@Anlagen drucken ", 'x',__,__},
  101.  {2 ,"Unfallkosten  -[F2]->#KFZ-Kosten ---[F2]->",'d',&f[1],&f[1]},
  102.  {3 ,"Umzugskosten  -[F2]->#Arbeitszimmer-[F2]->",'d',&f[1],&f[1]},
  103.  {4 ,"Dopp. Haush.F.-[F2]->#Dienstreise  -[F2]->",'d',&f[1],&f[1]},
  104.  {5 ,"Bewerbungsk.  -[F2]->#Fortbildungsk.[F2]->",'d',&f[1],&f[1]},
  105.  {6 ,"Krankheitsk.  -[F2]->#Kinderbetr.K.-[F2]->",'d',&f[1],&f[1]},
  106.  {8, "Um die deutschen Umlaute richtig zu drucken muß Option/Konfigureren:",'x',__,__},
  107.  {9, "Druckertyp richtig eingestellt sein",'x',__,__},
  108.  {0, "1700,1,5,73,12,1,j",'x',__, __}
  109.  };
  110.  struct s arbzi_scr[]={
  111.  {2,"   Arbeitszimmer: ",'x',__,__},
  112.  {4,"  Anteilige Afa:             ---->",'f',__,&b[513]},
  113.  {5,"  Anteilige Schuldzinsen:     --->",'f',__,&b[514]},
  114.  {6,"  Einrichtung unter DM 800     -->",'f',__,&b[515]},
  115.  {7,"  Einrichtung über  DM 800(AfA)-->",'f',__,&b[516]},
  116.  {8,"  Betriebskosten               -->",'f',__,&b[517]},
  117.  {0,"450,4,5,50,11,1,j",'x',__, __}
  118.  };
  119.  struct s ausb_scr[] = {
  120.  {2, "Falls das Kind über 18 Jahre alt ist: Für wieviele volle Monate war",
  121.  'x',__,__},
  122.  {3, "das Kind 18 Jahre alt--->",'f',__,&b[301]},
  123.  {4, "War das Kind",'x',__,__},
  124.  {5, " 1. Im Haushalt der Stpfl",'x',__,__},
  125.  {6, " 2. Auswärtig untergebracht",'x',__,__},
  126.  {7, " 1 oder 2   ------------>",'f',__, &b[302]},
  127.  {8, "Einkünfte der Kindes --->#Erh. Bafög Beträge   ---> ",
  128.  'd',&b[303],&b[304]},
  129.  {9,"Wieviele volle Monate lang im Jahr hat die",'x',__,__},
  130.  {10," Ausbildung gedauert --->",'f',__,&b[305]},
  131.  {11,"Wohnsitz des Kindes",'x',__,__},
  132.  {12, " 1. Inland und Ländergruppe 1 z. B EG (1/1)",'x',__,__},
  133.  {13, " 2. Ausland und Ländergruppe 2 (Ostblock, Türkei) (2/3)",'x',__,__},
  134.  {14, " 3. Ausland und Ländergruppe 3 (1/3)",'x',__,__},
  135.  {15," 1,2 oder 3     -------->",'f',__,&b[306]},
  136.  {16, "Eingegebene Daten zu den bisherigen addieren (1:ja,0:nein)---->",
  137.  'f',__,&f[0]},
  138.  {0,"1110,2,1,78,19,1,j",'x',__, __}
  139.  };
  140.  struct s ausl_scr[] = {
  141.  {1, "", 's',__, __},
  142.  {3, "Falls Vermögenswirksame Leistungen als Arbeitgeber:",'x',__, __},
  143.  {4, "  Ermäßigungsbetrag -->",'f',__,&b[452]},
  144.  {5, "Falls Sie Ausländische Einkünfte haben die nicht unter ein ",'x',__, __},
  145.  {6, "Doppelbesteuerungsabkommen fallen:",'x',__, __},
  146.  {7 ,"   Ausl. Einkünfte  34c. Abs I,II,V",'x',__, __},
  147.  {8 ,"   Einkünfte  -------->",'f',__,&b[453]},
  148.  {9 ,"   Ausl.Steuer-------->",'f',__,&b[454]},
  149.  {10,"       W A H L R E C H T ",'x',__, __},
  150.  {11,"    1. Abzug von der ESt nach 34c I",'x',__, __},
  151.  {12,"    2. Abzug vom Gesamtbetrag der Einkünfte nach 34c II(Antrag!!)",'x',__, __},
  152.  {13,"      Ihre Wahl------->",'f',__,&b[455]},
  153.  {15,"   Ausländische Steuer nach 34c.III --->",'f',__, &b[456]},
  154.  {17,"Nach 24b EStG enthaltene Beträge ------>",'f',__,&b[457]},
  155.  {0,"1150,2,1,73,21,1,j",'x',__, __}
  156.  };
  157.  struct s ausserv_scr_voll_abz[] = {
  158.  {2, "",'s',__,__},
  159.  {3,"@     Außergewöhliche Belastungen (voll_abzugsfähig):       ",
  160.  'x',__, __},
  161.  {4, " Nach 33a Aufwendungen für Haushaltsgehilfin,",'x',__,__},
  162.  {5, "  Heim- und Pflegeunterbringung       ------->",'f',__,
  163.  &b[278]},
  164.  {6 , "  Erhöhte Pflegepauschale (1:Ja, 0:Nein) ---->",'f',__,
  165.  &b[321]},
  166.  {7 , " Nach 10 Abs 1 Nr 8 Aufwendungen für eine  ",'x',__,__},
  167.  {8 , "  hauswirtschaftliche Beschäftigung   ------->",'f',__,
  168.  &b[323]},
  169.  {9 , " Unterstützung bedürftiger Personen   --[F2]->",
  170.  'f',__,&b[266]},
  171.  {0,"1050,6,3,70,13,1,i",'x',__, __}
  172.  };
  173.  struct s ausserz_scr_zumutbar[] = {
  174.  {1, "",'s',__,__},
  175.  {2,"@     Außergewöhnliche Belastungen (zumutbar):       ",'x',__, __},
  176.  {4, " Kinderbetreuungskosten --[F2]->",'f',__,&b[263]},
  177.  {5, " Krankheitskosten           --->",'f',__,&b[272]},
  178.  {6, " Umzugskosten               --->",'f',__,&b[273]},
  179.  {7, " Ehescheidungskosten        --->",'f',__,&b[274]},
  180.  {8 ," Beerdigungskosten          --->",'f',__,&b[275]},
  181.  {9 ," Sonstige                   --->",'f',__,&b[276]},
  182.  {0,"1010,8,6,60,13,1,i",'x',__, __}
  183.  };
  184.  struct s baukind_scr[] = {
  185.  {2,"@Baukindergeld !!", 'x', __,__},
  186.  {3,"   Bitte  1 für ja, 0 für nein eingeben",'x',__,__},
  187.  {4,"Wird eine erhöhte Absetzung nach 7b oder 10e",'x',__,__},
  188.  {5,"     EStG Berücksichtigt? (1 / 0) ------------------->",'f',
  189.  __,&b[107]},
  190.  {0,"710,2,5,70,8,1,j",'x',__, __}
  191.  };
  192.  struct s berlef_scr[] = {
  193.  {2,"",'s',__,__},
  194.  {3,"  Bitte geben Sie hier die in Berlin (West) erzielten",'x',__,__},
  195.  {4,"                Einkünfte ein", 'x',__,__},
  196.  {6,"  Einkunftsart              Insgesamt    davon aus Berlin", 'x',__,__},
  197.  {7,"  ---------                 ---------   ------------------",'x',__,__},
  198.  {10,"Land_und_Forstw  ---->",'g', &d[1], &b[50]},
  199.  {11,"Gewerbebetrieb   ---->",'g', &d[2], &b[51]},
  200.  {12,"Selbst_Tät       ---->",'g', &d[3], &b[52]},
  201.  {13,"Nichtselbst_Tät  ---->",'g', &d[4], &b[53]},
  202.  {14,"    Erhaltene Berlin-Zulage ------->",'f',__, &b[57]},
  203.  {15,"Kapitalvermögen  ---->",'g', &d[5], &b[54]},
  204.  {16,"Verm_Verpachtung ---->",'g', &d[6], &b[55]},
  205.  {17,"Renten           ---->",'g', &d[7], &b[56]},
  206.  {0,"1250,2,2,65,20,1,j",'x',__, __}
  207.  };
  208.  struct s berl_scr[] = {
  209.  {2,"",'s',__,__},
  210.  {3,"  Bitte geben Sie hier die in Berlin (West) erzielten",'x',__,__},
  211.  {4,"                Einkünfte ein", 'x',__,__},
  212.  {6,"  Einkunftsart              Insgesamt    davon aus Berlin", 'x',__,__},
  213.  {7,"  ---------                 ---------   ------------------",'x',__,__},
  214.  {10,"Land_und_Forstw  ---->",'g', &c[1], &a[50]},
  215.  {11,"Gewerbebetrieb   ---->",'g', &c[2], &a[51]},
  216.  {12,"Selbst_Tät       ---->",'g', &c[3], &a[52]},
  217.  {13,"Nichtselbst_Tät  ---->",'g', &c[4], &a[53]},
  218.  {14,"    Erhaltene Berlin-Zulage ------->",'f',__, &a[57]},
  219.  {15,"Kapitalvermögen  ---->",'g', &c[5], &a[54]},
  220.  {16,"Verm_Verpachtung ---->",'g', &c[6], &a[55]},
  221.  {17,"Renten           ---->",'g', &c[7], &a[56]},
  222.  {0,"1250,2,2,65,20,1,j",'x',__, __}
  223.  };
  224.  struct s cabst_scr[] = {
  225.  {1, "Abstand vom:Linken Seitenrand          Oberen Rand (in mm, +-10)", 'x',__,__},
  226.  {2, "Mantelbogen Seite 1 ----->#Mantelbogen Seite 1 --> ",
  227.  'd',&m_proz[58],&m_proz[73]},
  228.  {3, "Mantelbogen Seite 2 ----->#Mantelbogen Seite 2 --> ",
  229.  'd',&m_proz[59],&m_proz[74]},
  230.  {4, "Mantelbogen Seite 3 ----->#Mantelbogen Seite 2 --> ",
  231.  'd',&m_proz[60],&m_proz[75]},
  232.  {5, "Mantelbogen Seite 4 ----->#Mantelbogen Seite 2 --> ",
  233.  'd',&m_proz[61],&m_proz[76]},
  234.  {6, "Anlage L & F Seite 1----->#Anlage L & F Seite 1--> ",
  235.  'd',&m_proz[62],&m_proz[77]},
  236.  {7, "Anlage GSE   Seite 1----->#Anlage GSE   Seite 1--> ",
  237.  'd',&m_proz[63],&m_proz[78]},
  238.  {8, "Anlage GSE   Seite 2----->#Anlage GSE   Seite 2--> ",
  239.  'd',&m_proz[64],&m_proz[79]},
  240.  {9, "Anlage N     Seite 1----->#Anlage N     Seite 1--> ",
  241.  'd',&m_proz[65],&m_proz[80]},
  242.  {10,"Anlage N     Seite 2----->#Anlage N     Seite 2--> ",
  243.  'd',&m_proz[66],&m_proz[81]},
  244.  {11,"Anlage V     Seite 1----->#Anlage V     Seite 1--> ",
  245.  'd',&m_proz[67],&m_proz[82]},
  246.  {12,"Anlage V     Seite 2----->#Anlage V     Seite 2--> ",
  247.  'd',&m_proz[68],&m_proz[83]},
  248.  {13,"Anlage FW    Seite 1----->#Anlage FW    Seite 1--> ",
  249.  'd',&m_proz[69],&m_proz[84]},
  250.  {14,"Anlage FW    Seite 2----->#Anlage FW    Seite 2--> ",
  251.  'd',&m_proz[70],&m_proz[85]},
  252.  {15,"Anlage KSO   Seite 1----->#Anlage KSO   Seite 1--> ",
  253.  'd',&m_proz[71],&m_proz[86]},
  254.  {16,"Anlage KSO   Seite 2----->#Anlage KSO   Seite 2--> ",
  255.  'd',&m_proz[72],&m_proz[87]},
  256.  {0, "1830,2,1,77,19,1,j",'x',__, __} 
  257.  };
  258.  struct s conf_scr[] = {
  259.  {1, "@Konfiguration des Programmes Allgemein ", 'x',__,__},
  260.  {2, "Kirchensteuer % ------>#Neues Bundesl. (1:Ja)--> ",
  261.  'd',&m_proz[1],&m_proz[6]},
  262.  {3, "Druckerabfrage (1:Ja)->#Laufwerkcheck  (1:Ja)--> ",
  263.  'd',&m_proz[13],&m_proz[14]},
  264.  {4, "Ausdruck: Linker Rand (0..10)----->",'f',__,&m_proz[21]},
  265.  {6, "@Formulardruck ",'x',__,__},
  266.  {7, "Seitenvorsch. (1:Ja)-->#Abst.von Seitenr.-[F2]-> ",
  267.  'd',&m_proz[15], &m_proz[18]},
  268.  {8, "Druckertyp (1:El.SchrM 2:24Nadel 3:9Nadel 4:Seitendr. 5:PostScript",'x',__,__},
  269.  {9 ,"Druckertyp ( 1..5 ) -->#Papierposition-Check---> ",
  270.  'd',&m_proz[19], &m_proz[53]},
  271.  {10,"Formular: Datei steuer.ps (1:Ja)-->",'f',__,&m_proz[20]},
  272.  {12,"@Ermittlung ",'x',__,__},
  273.  {13,"Jahr Voreinstellung--->#Krankenkasse Prozent --> ",
  274.  'd',&m_proz[52],&m_proz[22]},
  275.  {14,"Arbeitslosenvers %'94->#Arbeitslosenvers % '95-> ",
  276.  'd',&m_proz[2],&m_proz[3]},
  277.  {15,"Rentenvers %  '94----->#Rentenvers % '95-------> ",
  278.  'd',&m_proz[4],&m_proz[5]},
  279.  {17,"VorsPausch/Hoechst --->#Konf.in Datei  (1:Ja)--> ",
  280.  'd',&m_proz[55],&f[2]},
  281.  {0, "1610,2,1,78,20,1,j",'x',__, __} 
  282.  };
  283.  struct s doppel_scr[] = {
  284.  {1, "", 's',__, __},
  285.  {3, "Nach Doppelbesteuerungsabkommen",'x',__, __},
  286.  {4, "    steuerfrei -------------------->",'f',__, &b[192]},
  287.  {5, "    Darin außerordentliche Eink. -->",'f',__, &b[193]},
  288.  {7,"Sonstige außerordentliche Einkünfte",'x',__, __},
  289.  {9 ,"    Entschädigungen nach ",'x',__,__},
  290.  {10,"         24 Nr.1 EStG ------------>",'f',__, &b[190]},
  291.  {11,"    Nutzungsvergütungen nach ",'x',__,__},
  292.  {12,"         24 Nr.3 EStG ------------>",'f',__, &b[191]},
  293.  {0,"950,6,3,56,15,1,j",'x',__, __}
  294.  };
  295.  struct s dreise_scr[] = {
  296.  {1, "", 's',__, __},
  297.  {2, "@Verpflegungsmehraufwand-Pauschale bei Dienstreisen(über 20 km)/",'x',__, __},
  298.  {3, "@Dienstgänge (unter 20 km) - Bitte Anzahl Tage eingeben",'x',__, __},
  299.  {4, "Dienstreise  1 Tägig                    Mehrtägig",'x',__,__},
  300.  {6 ,"Mehr als 6 Std ----->#Mehr als 6 Std ---->",'d',&b[547],&b[548]},
  301.  {7 ,"Mehr als 8 Std ----->#Mehr als 8 Std ---->",'d',&b[549],&b[550]},
  302.  {8 ,"Mehr als 10 Std ---->#Mehr als 10 Std --->",'d',&b[551],&b[552]},
  303.  {9 ,"Mehr als 12 Std ---->#Mehr als 12 Std --->",'d',&b[553],&b[554]},
  304.  {11 ,"Dienstgänge - mehr als 6 Std  ----->",'f',__, &b[555]},
  305.  {12 ,"Nachgewiesene Kosten insgesamt----->",'f',__, &b[556]},
  306.  {13 ,"Vom Arbeitgeber erstattet --------->",'f',__, &b[557]},
  307.  {0,"1750,1,3,76,17,1,j",'x',__, __}
  308.  };
  309.  struct s efrfr_scr[] = {
  310.  {2,"Ehefrau:",'x',__, __},
  311.  {3,"Gewinn aus selbständiger ",'x',__, __},
  312.  {4,"    Tätigkeit------------>",'f',__, &b[75]},
  313.  {5,"Darin Veräußerungsgewinn nach 18, Abs.3",'x',__, __},
  314.  {6,"    EStG----------------->",'f',__, &b[76]},
  315.  {0,"210,6,4,50,9,1,j",'x',__, __}
  316.  };
  317.  struct s efr_scr[] = {
  318.  {2,"Stpfl/Ehemann:",'x',__, __},
  319.  {3,"Gewinn aus selbständiger ",'x',__, __},
  320.  {4,"    Tätigkeit------------>",'f',__, &a[75]},
  321.  {5,"Darin Veräußerungsgewinn nach 18, Abs.3",'x',__, __},
  322.  {6,"    EStG----------------->",'f',__, &a[76]},
  323.  {0,"210,6,4,50,9,1,j",'x',__, __}
  324.  };
  325.  struct s egwfr_scr[] = {
  326.  {1,"Ehefrau: Einkünfte aus Gewerbebetrieb", 'x',__, __},
  327.  {3, "    Gewinn---->",'f',__,&b[70]},
  328.  {4, "Darin Veräußerungsgewinn nach 16,17 ",'x',__, __},
  329.  {5, "    EStG ----->",'f',__,&b[71]},
  330.  {0,"190,8,7,52,8,1,j",'x',__, __}
  331.  };
  332.  struct s egw_scr[] = {
  333.  {1, "Stpfl/Ehemann: Einkünfte aus Gewerbebetrieb", 'x',__, __},
  334.  {3, "    Gewinn---->",'f',__,&a[70]},
  335.  {4, "Darin Veräußerungsgewinn nach 16,17 ",'x',__, __},
  336.  {5, "    EStG ----->",'f',__,&a[71]},
  337.  {0,"190,8,7,52,8,1,j",'x',__, __}
  338.  };
  339.  struct s einkem_scr[] = {
  340.  {2, "Grundangaben           --[F2]->",'t', __,str[0]},
  341.  {4,"@        Einkünfte aus:           ", 'x',__, __},
  342.  {5, "                                Stpfl/Ehemann",
  343.  'x',__, __},
  344.  {6, "Land und Forstwirtschaft [F2]->",'f', __,&a[40]},
  345.  {7, "Gewerbebetrieb         --[F2]->",'f', __,&a[70]},
  346.  {8, "Selbst. Tätigkeit      --[F2]->",'f', __,&a[75]},
  347.  {9, "Nichtselbst. Tät.      --[F2]->",'f', __,&a[491]},
  348.  {10,"Kapitalvermögen        --[F2]->",'f', __,&a[85]},
  349.  {11,"Vermiet.& Verpacht.,FW.--[F2]->",'f', __,&a[119]},
  350.  {12,"Sonstige (Renten, ...) --[F2]->",'f', __,&a[160]},
  351.  {0,"110,4,3,65,18,1,i",'x',__, __}
  352.  };
  353.  struct s eink_scr[] = {
  354.  {2, "Grundangaben           --[F2]->",'t', __,str[0]},
  355.  {4,"@        Einkünfte aus:           ", 'x',__, __},
  356.  {5, "                                Stpfl/Ehemann        Ehefrau",
  357.  'x',__, __},
  358.  {6, "Land und Forstwirtschaft [F2]->#[F2]->",'d',
  359.  &a[40],&b[40]},
  360.  {7, "Gewerbebetrieb         --[F2]->#[F2]->",'d',
  361.  &a[70],&b[70]},
  362.  {8, "Selbst. Tätigkeit      --[F2]->#[F2]->",'d',
  363.  &a[75],&b[75]},
  364.  {9, "Nichtselbst. Tätigkeit --[F2]->#[F2]->",'d',
  365.  &a[491],&b[491]},
  366.  {10,"Kapitalvermögen        --[F2]->#[F2]->",'d',
  367.  &a[85],&b[85]},
  368.  {11,"Vermiet.& Verpacht.,FW.--[F2]->#[F2]->",'d',
  369.  &a[119],&b[119]},
  370.  {12,"Sonstige (Renten, ...) --[F2]->#[F2]->",'d',
  371.  &a[160],&b[160]},
  372.  {0,"130,2,1,75,18,1,i",'x',__, __}
  373.  };
  374.  struct s ermaesem_scr[] = {
  375.  {2,"@        Beträge die zur Steuerermäßigung führen          ",
  376.  'x',__,__},
  377.  {3,"@   oder bei der Steuerprogression berücksichtigt werden     ",
  378.  'x', __,__},
  379.  {4, "                                          Stpfl/Ehemann",
  380.  'x',__, __},
  381.  {6, "Doppelbest.Abkommen / außerord.Eink   -[F2]->",'f',
  382.  __, &a[192]},
  383.  {7, "Sonderausgaben (Vorsorge,Versicherung)-[F2]->",'f',
  384.  __, &a[205]},
  385.  {8, "Außergewöhnliche Belastungen          -[F2]->",'f',
  386.  __, &c[21]},
  387.  {9, "Besondere Ermäß / Ausl. Steuern       -[F2]->",'f',
  388.  __,&c[25]},
  389.  {10,"Geleistete Steuervorauszahlungen      -[F2]->",'f',
  390.  __,&c[138]},
  391.  {11,"In Berlin (West) erzielte Einkünfte   -[F2]->",'f',
  392.  __,&a[58]},
  393.  {0,"910,5,3,63,18,1,i",'x',__, __}
  394.  };
  395.  struct s ermaes_scr[] = {
  396.  {2,"@        Beträge die zur Steuerermäßigung führen          ",
  397.  'x',__,__},
  398.  {3,"@   oder bei der Steuerprogression berücksichtigt werden     ",
  399.  'x', __,__},
  400.  {4, "                                        Stpfl/Ehemann         Ehefrau",
  401.  'x',__, __},
  402.  {6, "Doppelbest.Abkommen / außerord.Eink   [F2]>#[F2]>",'d',
  403.  &a[192], &b[192]},
  404.  {7, "Sonderausgaben (Vorsorge,Versicherung)[F2]>#[F2]>",'d',
  405.  &a[205], &b[205]},
  406.  {8, "Außergewöhnliche Belastungen          [F2]>#[F2]>",'d',
  407.  &c[21], &d[21]},
  408.  {9, "Besondere Ermäß / Ausl. Steuern       [F2]>#[F2]>",'d',
  409.  &c[25],&b[25]},
  410.  {10,"Geleistete Steuervorauszahlungen      [F2]>#[F2]>",'d',
  411.  &c[138],&d[138]},
  412.  {11,"In Berlin (West) erzielte Einkünfte   [F2]>#[F2]>",'d',
  413.  &a[58],&b[58]},
  414.  {0,"780,1,1,79,18,1,i",'x',__, __}
  415.  };
  416.  struct s formdr1_scr[] = {
  417.  { 2, "1.Kind Vorname    ->",'t',__,str[14]},
  418.  { 3, "1.Kind Geb: TTMMJJ->",'t',__,str[15]},
  419.  { 4, "1.Kind Wohnort    ->",'t',__,str[16]},
  420.  { 5, "2.Kind Vorname    ->",'t',__,str[17]},
  421.  { 6, "2.Kind Geb: TTMMJJ->",'t',__,str[18]},
  422.  { 7, "2.Kind Wohnort    ->",'t',__,str[19]},
  423.  { 8, "3.Kind Vorname    ->",'t',__,str[20]},
  424.  { 9, "3.Kind Geb: TTMMJJ->",'t',__,str[21]},
  425.  {10, "3.Kind Wohnort    ->",'t',__,str[22]},
  426.  {11, "4.Kind Vorname    ->",'t',__,str[27]},
  427.  {12, "4.Kind Geb: TTMMJJ->",'t',__,str[28]},
  428.  {13, "4.Kind Wohnort    ->",'t',__,str[29]},
  429.  {0,"50,4,5,73,16,1,j",'x',__, __}
  430.  };
  431.  struct s formdr_scr[] = {
  432.  {2, "Vorname Stpfl/Em  ->",'t',__,str[5]},
  433.  {3, "Beruf   Stpfl/Em  ->",'t',__,str[6]},
  434.  {4, "Vorname  Ef       ->",'t',__,str[7]},
  435.  {5, "Beruf    Ef       ->",'t',__,str[8]},
  436.  {6, "Nachname Ehefrau  ->",'t',__,str[30]},
  437.  {7, "PLZ/Wohnort       ->",'t',__,str[9]},
  438.  {8, "Str/Hausnummer    ->",'t',__,str[10]},
  439.  {9, "Kontonummer       ->",'t',__,str[11]},
  440.  {10,"Bankleitzahl      ->",'t',__,str[12]},
  441.  {11,"Geldinstitut      ->",'t',__,str[13]},
  442.  {12,"Falls Steuerbescheid an eine andere Person",'x',__,__},
  443.  {13,"Name der Person   ->",'t',__,str[69]},
  444.  {14,"Vorname der Person->",'t',__,str[70]},
  445.  {15,"Str/Hausnummer    ->",'t',__,str[71]},
  446.  {16,"PLZ/Wohnort       ->",'t',__,str[72]},
  447.  {0,"30,4,1,73,19,1,j",'x',__, __}
  448.  };
  449.  struct s grund_scr[] = {
  450.  {2, "@Grundangaben", 'x',__, __},
  451.  {3, " Name (* für Ende)  -------->",'t',__,str[0]},
  452.  {4, " Familienstand: 1. Ledig 2. Verheiratet",'x',__,__},
  453.  {5, "    Bitte 1 oder 2 eingeben-------------------->",'f',__,&a[1]},
  454.  {6, " Steuerklasse (Falls ledig) ------------------->",'f',__,&a[9]},
  455.  {7, " Geburtsdatum (TTMMJJ) (Stpfl/Ehemann)--------->",'t',__,str[1]},
  456.  {8, " Geburtsdatum (TTMMJJ) (Ehefrau)--------------->",'t',__,str[2]},
  457.  {9, " Kinderfreibeträge / Witwensplitting  ----[F2]->",
  458.  'f',__,&a[8]},
  459.  {10," Angaben für den Formulardruck        ----[F2]->",'f',__,&a[475]},
  460.  {11," Angaben zur Religion                 ----[F2]->",
  461.  'f',__,&a[486]},
  462.  {12," Körperbehinderung/Hinterbliebene     ----[F2]->",
  463.  'f',__,&a[14]},
  464.  {13," Steuernummer:                               -->",
  465.  't',__,str[4]},
  466.  {0,"70,4,4,66,16,1,j",'x',__, __}
  467.  };
  468.  struct s haus1_scr[] = {
  469.  {2,"Schuldzinsen vor Selbstnutzung--->",'f',__,
  470.  &b[115]},
  471.  {3,"Schuldzinsen nach Selbstnutz.---->",'f',__,
  472.  &b[125]},
  473.  {4,"Datum Herstellung/Ansch.(TTMMJJ)->",
  474.  't',__,str[32]},
  475.  {5,"AfA Insgesamt---------------[F2]->",'f',__,&b[117]},
  476.  {6," Falls die Wohnung/ das EFH vor dem 31.12.1986 fertiggestellt",
  477.  'x', __,__},
  478.  {7," bzw bezogen oder gekauft wurden, dann haben Sie   W A H L R E C H T :"
  479.  ,'x', __,__},
  480.  {8 ," 1. Behandlung wie vor 1987 (Nutzungswertbesteuerung)",'x',__,__},
  481.  {9 ," 2. Keine Nutzungswertbesteuerung aber weniger Abzüge möglich",
  482.  'x',__,__},
  483.  {10,"   1 für 1.  2 für 2.    ------->",'f',__, &b[109]},
  484.  {0,"530,3,4,75,13,1,j",'x',__, __}
  485.  };
  486.  struct s haus2_scr[] = {
  487.  {2,"", 's', __, __},
  488.  {4,"Eingaben für Nutzungswertbesteuerung (Wie vor 1987)",'x',__, __},
  489.  {6," Einheitswert--------------------->",'f',__,&b[112]},
  490.  {7," Wohnzwecke %--------------------->", 'f',__,&b[113]},
  491.  {8," Selbstnutzung in Monaten--------->",'f',__,&b[114]},
  492.  {9," Schuldzinsen nach Selbstn.------->",'f', __, &b[116]},
  493.  {0,"570,8,7,55,12,1,j",'x',__, __}
  494.  };
  495.  struct s haus3_scr[] = {
  496.  {2,"", 's', __, __},
  497.  {4,"Weitere Einnahmen aus Vermietung & Verpachtung",'x',__, __},
  498.  {6," Sonstige Mieteinnahmen  --->",'f',__,&b[119]},
  499.  {7," Abschreibungen (z.B. 7b)--->",'f',__,&b[110]},
  500.  {8," Werbungskosten          --->",'f',__,&b[120]},
  501.  {0,"590,8,7,55,11,1,j",'x',__, __}
  502.  };
  503.  struct s kapitalef_scr[] = {
  504.  {1, "Ehefrau: Kapitalvermögen", 'x',__, __},
  505.  {3, " Sparguthaben    ---->#Bausparguthaben------>",'d',
  506.  &b[80],&b[81]},
  507.  {4, " Festverz.Wertpap.--->#Aktien + Anteile ---->",'d', 
  508.  &b[82],&b[83]},
  509.  {5, " Lebensversicherung      ------------------------------>",
  510.  'f', __,&b[87]},
  511.  {7, "   Werbungskosten --->",'f',__, &b[86]},
  512.  {0,"490,3,5,72,10,1,j",'x',__, __} 
  513.  };
  514.  struct s kapital_scr[] = {
  515.  {1, "Stpfl/Ehemann: Kapitalvermögen", 'x', __, __},
  516.  {3, " Sparguthaben    ---->#Bausparguthaben------>",'d', 
  517.  &a[80],&a[81]},
  518.  {4, " Festverz.Wertpap.--->#Aktien + Anteile ---->",'d',
  519.  &a[82],&a[83]},
  520.  {5, " Lebensversicherung      ------------------------------>",
  521.  'f', __,&a[87]},
  522.  {7, "   Werbungskosten --->",'f',__, &a[86]},
  523.  {0,"490,3,5,72,10,1,j",'x',__, __}
  524.  };
  525.  struct s kindbetr_scr[] = {
  526.  {2, "@  Aufwendungen für Kinderbetreuung  die durch Behinderung,  ",'x',__,__},
  527.  {3, "@  Krankheit über 3 Monate oder Berufstätigkeit entstanden sind    ",'x',__,__},
  528.  {5, "Für wieviele Kinder sind Aufwendungen ", 'x',__,__},
  529.  {6, " entstanden -->", 'f',__,&b[258]},
  530.  {8, "Wieviele Monate gehörten die einzelnen Kinder zum Haushalt ",
  531.  'x',__,__},
  532.  {9, "Kind No 1. ---># Kind No 2 --->",'d',&b[259],
  533.  &b[284]},
  534.  {10,"Kind No 3. ---># Kind No 4 --->",'d',
  535.  &b[285],&b[286]},
  536.  {11,"Kind No 5. ---># Kind No 6 --->",'d',
  537.  &b[287],&b[288]},
  538.  {12,"Kind No 7. ---># Kind No 8 --->",'d',
  539.  &b[289],&b[290]},
  540.  {13,"Kind No 9. ---># Kind No 10 -->",'d',
  541.  &b[291],&b[292]},
  542.  {14,"Kind No 11. --># Kind No 12 -->",'d',
  543.  &b[293],&b[294]},
  544.  {15,"Kind No 13.---># Kind No 14 -->",'d',
  545.  &b[295],&b[296]},
  546.  {17,"Wie hoch waren die Aufwendungen --------->",'f', __, &b[263]},
  547.  {0,"1030,2,1,70,20,1,j",'x',__, __}
  548.  };
  549.  struct s kinder_scr[] = {
  550.  {2, " @>>> Kinderfreibetrag (KFB) - Bitte Anzahl Kinder eingeben <<<",'x',__, __},
  551.  {3, " Voller Kinderfreibetrag-(KFB)->",'f',__,&a[5]},
  552.  {4 ," Halber Kinderfreibetrag------->",'f',__,&b[5]},
  553.  {5, " Ausbildungsfreibeträge --[F2]->",
  554.  'f',__,&a[267]},
  555.  {7, " Witwensplitting (Kann noch für das Kalenderjahr",'x', __, __},
  556.  {8, "  nach dem Todesjahr angewendet werden)",'x',__, __},
  557.  {9, " Bitte 1 für Ja eingeben------->",'f',__,&a[8]},
  558.  {10," Daten für das Formular --[F2]->",'f',__,&a[475]},
  559.  {0,"90,2,3,66,13,1,j",'x',__, __}
  560.  };
  561.  struct s lohn_scr[] = {
  562.  {2, "", 's',__, __},
  563.  {3, " Bruttoarbeitslohn -->#Lohnsteuer---------->",'d',
  564.  &b[525],&b[496]},
  565.  {4, " Lohn-Kist ev ------->#Lohn-Kist rk ------->",'d',
  566.  &b[497],&b[498]},
  567.  {5 ,"Einkünfte aus mehrjähriger Tätigkeit   --------------->",
  568.  'f',__,&b[489]},
  569.  {6, " Versorgungsbezüge -->#Solidarit.Zuschl.--->",'d',
  570.  &b[492],&b[487]},
  571.  {7, " Arbeitslohn ohne Steuerabzug          --------------->",
  572.  'f',__, &b[559]},
  573.  {8 ," Aufwandsentschädigungen (z.B. Übungsleiter)---------->",
  574.  'f',__, &b[505]},
  575.  {9 ," Lohnersatzleist.---->",'f',__,&b[493]},
  576.  {11," Beteiligt sich Ihr Arbeitgeber an Ihren Krankheitskosten?",'x',__,__},
  577.  {12," 1 für Ja,0 für Nein->",'f',__,&b[490]},
  578.  {13,"Vom Arbeitgeber bescheinigte vermögensw. Leistungen",'x',__,__},
  579.  {14," Vermögensw.L.  [F2]->",'f', __,&b[578]},
  580.  {15," Werbungskosten [F2]->",'f',__,&b[495]},
  581.  {17,"Bitte Abfindungen zum Arbeitslohn addieren und die",'x',__,__},
  582.  {18,"nochmal bei den außerordentlichen Einkünften eingeben!!",'x',__,__},
  583.  {0,"230,3,1,76,21,1,j",'x',__, __}
  584.  };
  585.  struct s luf_scr[] = {
  586.  {1,"",'s',__,__},
  587.  {2, "Einkünfte aus Land und Forstwirtschaft", 'x',__, __},
  588.  {3, "Einkünfte nach 13  --->",'f',__,&b[40]},
  589.  {4, "13a (Kleinbetrieb)",'x',__,__},
  590.  {5, "Einkünfte nach 13a --->",'f',__,&b[41]},
  591.  {0,"170,8,7,52,8,1,j",'x',__, __}
  592.  };
  593.  struct s reli_scr[] = {
  594.  {1, "",'s',__, __},
  595.  {2, " Religion: 0. Keine/Vd. 1. Ev. 2. Rk.",'x',__,__},
  596.  {3, " Religion Stpfl/Em:Bitte 0, 1 oder 2 eingeben-->",'f',__,&a[4]},
  597.  {4, " Stpfl/Em:in Kirche Anzahl Monate  0..12     -->",'f',__,&a[10]},
  598.  {5, " Religion Ehefrau: Bitte 0, 1 oder 2 eingeben-->",'f',__,&b[4]},
  599.  {6, " Ehefrau: In Kirche Anzahl Monate  0..12     -->",'f',__,&b[10]},
  600.  {7, " Ihr Bundesland Bayern, Baden-W, Hamburg oder Bremen?",'x',__,__}, 
  601.  {8, " Bitte eingeben (1: Ja 0: Nein) --------------->",'f',__,&b[11]},
  602.  {0,"1230,1,4,66,12,1,j",'x',__, __}
  603.  };
  604.  struct s renten_scr[] = {
  605.  {2, "",'s',__, __},
  606.  {4, "    Einnahmen aus Renten------------->",'f', __, &b[160]},
  607.  {5, "    Wie alt bei erstem Rentenbezug?-->",'f',__, &b[163]},
  608.  {6, " oder: Ertragsanteil in %:         -->",'f',__, &b[161]},
  609.  {7, "    Weitere Einnahmen aus Renten----->",'f', __, &b[164]},
  610.  {8, "    Wie alt bei erstem Rentenbezug?-->",'f',__, &b[165]},
  611.  {9, " oder: Ertragsanteil in %:         -->",'f',__, &b[166]},
  612.  {10, "    Weitere Einnahmen aus Renten----->",'f', __, &b[167]},
  613.  {11, "    Wie alt bei erstem Rentenbezug?-->",'f',__, &b[168]},
  614.  {12, " oder: Ertragsanteil in %:         -->",'f',__, &b[169]},
  615.  {14, "Einnahmen aus wiederkehrenden Bezügen außer",'x', __, __},
  616.  {15, "    Rente---------------------------->",'f',__, &b[174]},
  617.  {16,"   Werb.Kosten auf Renten u.Wied.Bez->",'f',__, &b[171]},
  618.  {17,"   Sonstige Einnahmen---------------->",'f',__, &b[172]},
  619.  {18,"   Darauf Werbungskosten------------->",'f',__, &b[173]},
  620.  {0,"730,3,2,54,21,1,j",'x',__, __}
  621.  };
  622.  struct s spenden_scr[] = {
  623.  {1, "@ Spenden nach 10b EStG: ", 'x',__,__},
  624.  {2, " Beiträge und Spenden an ",'x',__,__},
  625.  {3, "  politische Parteien-> ",'f',__,&b[210]},
  626.  {4, " Spenden für wissentschaftliche und als",'x',__,__},
  627.  {5, "     besonders förderungswürdig anerkannte",'x',__,__},
  628.  {6, "    Zwecke     ----->   ",'f',__,&b[212]},
  629.  {7, " Sonstige Spenden -->   ",'f',__,&b[209]},
  630.  {8, "@   W a h l r e c h t:   ",'x',__,__},
  631.  {9, "Begrenzung des Spendeabzugs auf",'x',__,__},
  632.  {10,"   1 = 5 v. 100 des Gesamtbetrages der Einkünfte",'x',__,__},
  633.  {11,"   2 = 2 v. T. der Summe der gesamten Löhne und Gehälter",'x',__,__},
  634.  {12," (2 nur bei Arbeitgebern)",'x',__,__},
  635.  {13," Falls 2 gewählt: Summe Löhne und Gehälter   --->",'f',__,
  636.  &b[211]},
  637.  {14,"@ Verlustabzug",'x',__,__},
  638.  {15,"   Verlust aus 1989 --->#Verlust aus 1990 --->",
  639.  'd',&b[213],&b[216]},
  640.  {16,"   Verlust aus 1991 --->#Verlust aus 1992 --->",
  641.  'd',&b[218],&b[219]},
  642.  {17,"   Verlust aus 1993 --->#Verlust aus 1995 --->",
  643.  'd',&b[214],&b[215]},
  644.  {18,"   Verlust aus 1996 --->",'f',__,&b[217]},
  645.  {19,"Bitte F.d.Wohneigentums Daten bei Verm&Verp. eingeben! ",'x',__,__},
  646.  {0,"990,2,1,75,22,1,j",'x',__, __}
  647.  };
  648.  struct s sterm_scr[] = {
  649.  {1, "           S T E U E R E R M I T T L U N G ",'x',__, __},
  650.  {3, "Zeitraum:(1:J.2:M.3:W.4:T)->#Jahr (4-1994,5-1995)-> ",
  651.  'd',&f[11],&f[7]},
  652.  {4, "Bruttolohn (Steuer-Brutto)->#Steuer-Freibetrag ---> ",
  653.  'd',&f[9],&f[10]},
  654.  {5, "Steuerklasse(1..6)     ---->#Anzahl Kinder -------> ",
  655.  'd',&f[12],&f[13]},
  656.  {6 ,"Versorgungsbezüge  -------->#Vermwirks.Leistungen-> ",
  657.  'd',&f[14], &f[15]},
  658.  {7 ,"Über 64 Jahre alt (1: Ja) ->#Rentvers.Pfl.(1: Ja)-> ",
  659.  'd',&f[16],&f[17]},
  660.  {8 ,"Kirchensteuer_Prozent  ---->#Krankenkasse_Prozent-> ",
  661.  'd',&f[18],&f[19]},
  662.  {9 ,"Neues Bundesland (1:Ja)---->#Beschr.Stpfl (1:Ja)--> ", 
  663.  'd',&f[20], &f[40]},
  664.  {10,"Name   -------------------->", 't',__,g[1]},
  665.  {11,"Zahlungsmonat/Jahr   ------>", 't',__,g[2]},
  666.  {12,"Journal (Datei:erm.jou) 0:Nein, 1: Ja, in Datei 2:Drucken----->",
  667.  'f',__,&f[21]},
  668.  {13,"------------------------------------------------",'x',__, __},
  669.  {14,"Maßgebender Arbeitslohn   :                  Auszahlungsbetr.: ",
  670.  'x',__, __},
  671.  {15,"Zu versteuerndes Einkommen:                  Krankenkasse    :",
  672.  'x', __, __},
  673.  {16,"Lohnsteuer                :                  Arbeitslosenvers: ",
  674.  'x', __, __},
  675.  {17,"Kirchensteuer             :                  Rentenvers      : ",
  676.  'x', __, __},
  677.  {18,"Solidaritätszuschlag      :                                    ",
  678.  'x', __, __},
  679.  {0,"1530,1,1,78,21,1,f",'x',__, __}
  680.  };
  681.  struct s svors_scr[] = {
  682.  {1, "           VORSORGEPAUSCHALE / HÖCHSTBETRAG ",'x',__, __},
  683.  {2, "Familienstand 1: Ledig, 2: Verheiratet 3: Witwensplitting",
  684.  'x', __,__},
  685.  {3, "Jahr (4-1994, 5- 1995)--->#Familienstand --------> ",
  686.  'd',&f[22],&f[23]},
  687.  {4, "Alter:1 wenn älter als 64 Jahre, 0 sonst",'x',__,__},
  688.  {5, " Alter (Stpfl/Em)-------->#Alter (Ef)   ---------> ",
  689.  'd', &f[24], &f[25]},
  690.  {6, "Arbeitslohn (Stpfl/Em)--->#Arbeitslohn(Ef)-------> ",
  691.  'd',&f[26],&f[27]},
  692.  {7, "Lohnersatzl.(Stpfl/Em)--->#Lohnersatzl.(Ef)------> ",
  693.  'd',&f[28],&f[29]},
  694.  {8, "Versorgungsbez.(Stpl/Em)->#Versorgungsbez.(Ef)---> ",
  695.  'd',&f[30], &f[31]},
  696.  {9, "AN.Anteil ges.Sozvers/Em->#AN.Ant. ges.Sozv./Ef--> ",
  697.  'd', &f[32], &f[33]},
  698.  {10, "1:AG Anteil erhalten, -1:von Rentenvers.Pflicht befreit, Beamte: 0",
  699.  'x', __,__},
  700.  {11,"AG.Anteil Rentenvers/Em-->#AG.Ant. Rentenv./Ef---> ",
  701.  'd',&f[34],&f[35]},
  702.  {12,"Gezahlte Versicherungen ->#Gezahlte Bausparbetr.-> ",
  703.  'd',&f[36], &f[37]},
  704.  {13,"Beteiligt sich der Arbeitgeber an den Krankheitskosten (1:Ja,0:Nein)",
  705.  'x',__,__},
  706.  {14 ,"Stpfl/Em  --------------->#Ehefrau---------------> ",
  707.  'd',&f[38], &f[39]},
  708.  {15,"--------------------------------------------------------------------",
  709.  'x',__, __},
  710.  {16,"Höchstbetrag            :                  Pauschbetrag    : ",
  711.  'x',__, __},
  712.  {17,"Noch Abzugsfähig / Jahr :                  Abz.fähig/Monat : ",
  713.  'x', __, __},
  714.  {18,"Ab 1990 sind Bausparbeiträge nur zur Hälfte berücksichtigt!",
  715.  'x',__,__},
  716.  {0,"1550,1,1,77,21,1,f",'x',__, __}
  717.  };
  718.  struct s unterhalt_scr[] = {
  719.  {2, "Wurde ein Ehepaar unterstützt?",'x',__,__},
  720.  {3, "1: Ja, 0:Nein   -------->",'f',__,&b[307]},
  721.  {4, "Höhe der Unterh.Aufw. -->#Unterhaltsaufw. Dritter-> ",
  722.  'd',&b[308], &b[309]},
  723.  {5, "Einkünfte & Bezüge der                Unterstützungszeitraum",
  724.  'x',__,__},
  725.  {6, " unterstützten Person -->#   in Monaten-----------> ",
  726.  'd',&b[310],&b[311]},
  727.  {7, "Hat die Person das 18.Lebensjahr noch nicht vollendet und/oder",
  728.  'x',__, __},
  729.  {8, " erfüllt die Voraussetzungen für einen Ausbildungsfreibetrag?",
  730.  'x',__, __},
  731.  {9, "1: Ja, 0:Nein  --------->",'f',__,&b[312]},
  732.  {10,"Wohnsitz der Person:",'x',__,__},
  733.  {11," 1. Inland und Ländergruppe 1 z. B EG (1/1)",'x',__,__},
  734.  {12," 2. Ausland und Ländergruppe 2 (Ostblock, Türkei) (2/3)",'x',__,__},
  735.  {13," 3. Ausland und Ländergruppe 3 (1/3)",'x',__,__},
  736.  {14,"  1,2 oder 3 ----------->",'f',__,&b[313]},
  737.  {15," Ist die unterstützte Person Ihr Ehegatte oder Kind?",'x',__,__},
  738.  {16,"1: Ja, 0:Nein  --------->",'f',__,&b[264]},
  739.  {17,"Eingegebene Daten zu den bisherigen addieren(1:ja,0:nein)---->",
  740.  'f',__,&f[0]},
  741.  {0,"1070,2,1,78,20,1,j",'x',__, __}
  742.  };
  743.  struct s unt_zus_scr[] = {
  744.  {2, "Für die Berechnung der Opfergrenze brauche ich",'x',__,__},
  745.  {3, " noch folgende Angaben:",'x',__,__},
  746.  {5, "Erhaltenes Kindergeld            ------>",'f',__,&b[314]},
  747.  {6, "Erhaltenes Krankengeld           ------>",'f',__,&b[315]},
  748.  {7, "Erhaltenes Mutterschaftsgeld     ------>",'f',__,&b[316]},
  749.  {8, "Weitere, noch nicht eingegebene ",'x',__,__},
  750.  {9, "  Lohnersatzleistungen           ------>",'f',__,&b[317]},
  751.  {10,"Arbeitnehmer Sparzulage          ------>",'f',__,&b[318]},
  752.  {11,"Berlin Zulage                    ------>",'f',__,&b[319]},
  753.  {12,"Steuererstattung vom Vorjahr     ------>",'f',__,&b[320]},
  754.  {13,"Falls Sie Kinder im Ausland haben: ",'x',__,__},
  755.  {14," Anzahl der Kinder im Ausland    ------>",'f',__,
  756.  &b[2]},
  757.  {0,"1090,5,2,62,17,1,j",'x',__, __}
  758.  };
  759.  struct s vermw_scr[] = {
  760.  {2, "Vermögensbeteiligungen ----->",'f',__,&b[488]},
  761.  {3, "Vertragsart,Unternehmen,Nr.->",'t',__, str[33]},
  762.  {4, "Vertragsabschlussdatum------>",'t',__, str[34]},
  763.  {5, "Bausparvertrag         ----->",'f',__,&b[573]},
  764.  {6, "Bausparkasse, Nr.   -------->",'t',__, str[35]},
  765.  {7, "Lebensversicherung     ----->",'f',__,&b[574]},
  766.  {8, "Vers.Unternehmen, Nr.------->",'t',__, str[36]},
  767.  {9, "Vertragsabschlussdatum------>",'t',__, str[37]},
  768.  {10,"Ratensparvertrag       ----->",'f',__,&b[577]},
  769.  {11,"Kreditinstitut, Nr.  ------->",'t',__, str[38]},
  770.  {12,"Vertragsabschlussdatum------>",'t',__, str[39]},
  771.  {13,"Wertpapier-Sparvertrag ----->",'f',__,&b[575]},
  772.  {14,"Kreditinstitut, Nr.  ------->",'t',__, str[40]},
  773.  {15,"Vertragsabschlussdatum------>",'t',__, str[41]},
  774.  {16,"Wohnungsbau ---------------->",'f',__,&b[576]},
  775.  {17,"Empfänger, Anlageart, Nr.--->",'t',__, str[42]},
  776.  {0,"1870,2,1,77,20,1,j",'x',__, __}
  777.  };
  778.  struct s vors_vers_scr[] = {
  779.  {2, " Sozialversicherung AN Anteil---->",'f',__,&b[206]},
  780.  {3, ">> Beamte = 0 , 1 falls AG Anteil erhalten <<", 'x', __, __},
  781.  {4, ">> -1, falls von Rentenversicherungspflicht befreit!<<", 'x', __, __},
  782.  {5, " Rentenversicherung AG Anteil --->",'f',__,&b[207]},
  783.  {7,"Beschränkt abzugsfähige Sonderausgaben (Vorsorge)",'x',__, __},
  784.  {8," Freiwillige Rentenhöherversicherung abz. Arbeitgeberant. -->",
  785.  'f',__, &b[234]},
  786.  {9, " Krankenversicherung--->#Unfallversicherung------>",'d',
  787.  &b[231], &b[232]},
  788.  {10, " Lebensversicherung---->#Haftpflichtversicherung->",'d',
  789.  &b[233],&b[235]},
  790.  {11, " Bausparbeiträge  ----->",'f',__,&b[208]},
  791.  {13, "Unbeschränkte Sonderausgaben ohne Spenden:",'x',__, __},
  792.  {14, " Gezahlte Renten ------>#Gez.Renten abziehbar % ->",'d',
  793.  &b[222],&b[228]},
  794.  {15, " Unterhaltsleistungen an             Im Vorjahr erstattete",
  795.  'x',__, __},
  796.  {16, "  geschied. Ehegatten-->#  Kirchensteuer        ->",'d',
  797.  &b[224], &b[236]},
  798.  {17, " Steuerberatungskosten->#Berufsausbildung ------->",'d',
  799.  &b[227], &b[226]},
  800.  {18, " Dauernde Lasten ------>#Stundungszinsen     ---->",'d',
  801.  &b[223],&b[221]},
  802.  {19, "Spenden,Verluste -[F2]->",'f',__,&a[475]},
  803.  {0,"970,2,1,78,22,1,j",'x',__, __}
  804.  };
  805.  struct s voraus1_scr[] = {
  806.  {2,"", 's',__, __},
  807.  {3,"Kapitalertragsteuer           ---->",
  808.  'f',__,&b[470]},
  809.  {4,"Anrechenbare Körperschaftsteuer -->",'f',__,&b[471]},
  810.  {5,"Geleistete Vorauszahlungen",'x',__, __},
  811.  {6,"   Einkommensteuer            ---->",'f',__,&b[472]},
  812.  {7,"   Kirchensteuer rk           ---->",'f',__,&b[473]},
  813.  {8,"   Kirchensteuer ev           ---->",'f',__,&b[474]},
  814.  {0,"1190,10,5,52,11,1,j",'x',__, __}
  815.  };
  816.  struct s werb_1_scr[]={
  817.  {2, "@          Werbungskosten        ",'x', __,__},
  818.  {4, "Fahrten zur Arbeitsstätte:  --[F2]->", 'f',__,&b[542]},
  819.  {5, "Besondere Pauschsätze für bestimmte", 'x',__,__},
  820.  {6, "    Berufsgruppen           --[F2]->", 'f',__,&b[506]},
  821.  {7, "Doppelte Haushaltsführung:  --[F2]->", 'f',__,&b[265]},
  822.  {8, "Mehraufwendungen für Verpfl. -[F2]->", 'f',__,&b[503]},
  823.  {9, "Diensreisen/Dienstgänge  -----[F2]->", 'f',__,&b[558]},
  824.  {10,"Arbeitszimmer                -[F2]->", 'f',__,&b[507]},
  825.  {11,"Weitere Werbungskosten       -[F2]->", 'f',__,&b[508]},
  826.  {0,"250,6,5,52,14,1,j",'x',__, __}
  827.  };
  828.  struct s werb1_f_scr[]={
  829.  {2, "Benützen Sie 1.Auto 2.Krad/Motorroller 3.Moped/Mofa 4.Fahrrad?",'x',__,__},
  830.  {3, "   Bitte 1,2,3 oder 4 eingeben  --->",'f',__, &b[560]},
  831.  {4, "   An wievielen Arbeitstagen?   --->",'f',__, &b[561]},
  832.  {5, "   Entfernungskilometer         --->",'f',__, &b[562]},
  833.  {6, "   Arbeitstätte (Ort, Str.)     --->",'t',__,  str[44]},
  834.  {7, "     Noch weitere Fahrten ( 1: ja, 0: nein)",'x',__,__},
  835.  {8, "       Bitte 1 oder 0 eingeben ---->",'f',__, &b[512]},
  836.  {9, " Datensatz Nr.  ------------------->",'f',__, &b[563]},
  837.  {10," Fahrtkosten für diesen Datensatz-->",'f',__, &b[564]},
  838.  {0,"380,2,3,75,13,1,j",'x',__, __}
  839.  };
  840.  struct s werb2_f_scr[]={
  841.  {2, "Benützen Sie 1.Auto 2.Krad/Motorroller 3.Moped/Mofa 4.Fahrrad?",'x',__,__},
  842.  {3, "   Bitte 1,2,3 oder 4 eingeben  --->",'f',__, &b[565]},
  843.  {4, "   An wievielen Arbeitstagen?   --->",'f',__, &b[566]},
  844.  {5, "   Entfernungskilometer         --->",'f',__, &b[567]},
  845.  {6, "   Arbeitstätte (Ort, Str.)     --->",'t',__,  str[45]},
  846.  {7, "     Noch weitere Fahrten ( 1: ja, 0: nein)",'x',__,__},
  847.  {8, "       Bitte 1 oder 0 eingeben ---->",'f',__, &b[512]},
  848.  {9, " Datensatz Nr.  ------------------->",'f',__, &b[563]},
  849.  {10," Fahrtkosten für diesen Datensatz-->",'f',__, &b[568]},
  850.  {0,"380,2,3,75,13,1,j",'x',__, __}
  851.  };
  852.  struct s werb3_f_scr[]={
  853.  {2, "Benützen Sie 1.Auto 2.Krad/Motorroller 3.Moped/Mofa 4.Fahrrad?",'x',__,__},
  854.  {3, "   Bitte 1,2,3 oder 4 eingeben  --->",'f',__, &b[569]},
  855.  {4, "   An wievielen Arbeitstagen?   --->",'f',__, &b[570]},
  856.  {5, "   Entfernungskilometer         --->",'f',__, &b[571]},
  857.  {6, "   Arbeitstätte (Ort, Str.)     --->",'t',__,  str[46]},
  858.  {7, "     Noch weitere Fahrten ( 1: ja, 0: nein)",'x',__,__},
  859.  {8, "       Bitte 1 oder 0 eingeben ---->",'f',__, &b[512]},
  860.  {9, " Datensatz Nr.  ------------------->",'f',__, &b[563]},
  861.  {10," Fahrtkosten für diesen Datensatz-->",'f',__, &b[572]},
  862.  {0,"380,2,3,75,13,1,j",'x',__, __}
  863.  };
  864.  struct s werb_f_scr[]={
  865.  {2, "Benützen Sie 1.Auto 2.Krad/Motorroller 3.Moped/Mofa 4.Fahrrad?",'x',__,__},
  866.  {3, "   Bitte 1,2,3 oder 4 eingeben  --->",'f',__, &b[509]},
  867.  {4, "   An wievielen Arbeitstagen?   --->",'f',__, &b[510]},
  868.  {5, "   Entfernungskilometer         --->",'f',__, &b[511]},
  869.  {6, "     Noch weitere Fahrten ( 1: ja, 0: nein)",'x',__,__},
  870.  {7, "       Bitte 1 oder 0 eingeben ---->",'f',__, &b[512]},
  871.  {8, "   Eingegebene Daten zu den bisherigen addieren ( 1: ja, 0: nein)",
  872.  'x',__,__},
  873.  {9 , "       Bitte 1 oder 0 eingeben ---->",'f',__,
  874.  &b[543]},
  875.  {10," Bisherige Fahrtkosten:             ",'f',__, &b[499]},
  876.  {0,"370,2,3,68,13,1,j",'x',__, __}
  877.  };
  878.  struct s werb_p_scr[]={
  879.  {2, "Besondere Pauschsätze für bestimmte Berufsgruppen",'x', __,__},
  880.  {3, "Bitte die Anzahl der Monate eingeben (0 ... 12)", 'x',__, __},
  881.  {5, "Ihre Kategorie:",'x',__,__},
  882.  {6, "Journalist              115,- DM/Monat-->", 'f',__, &b[529]},
  883.  {7, "Artisten/Darst.Künstler 265,- DM/Monat-->", 'f',__, &b[530]},
  884.  {8, "Darst.Künstler/Solist   365,- DM/Monat-->", 'f',__, &b[531]},
  885.  {9, "Landtagsjournalist      280,- DM/Monat-->", 'f',__, &b[532]},
  886.  {10,"Parlamentsjour./Bonn    730,- DM/Monat-->", 'f',__, &b[533]},
  887.  {11,"Art der Tätigkeit  --------------------->", 't',__, 
  888.   str[49]},
  889.  {0,"390,3,4,75,14,1,j",'x',__, __}
  890.  };
  891.  struct s werb_d_scr[]={
  892.  {2, "  Kosten für doppelte Haushaltsführung",'x', __,__},
  893.  {3, "Kosten der ersten und letzten Fahrt zum Beschäftigungsort", 'x',__, __},
  894.  {4, "und zurück:  ---------------------------->",'f',__,
  895.  &b[536]},
  896.  {5, "Heimfahrten: Wie Fahrten zur Arbeit", 'x',__, __},
  897.  {6, "  Einfache Entfernung  in km.------------>",'f',__, &b[535]},
  898.  {7, "  Wieviele Male heimgefahren ------------>",'f',__, &b[537]},
  899.  {8, "  Kosten für öffentliche Verkehrsmittel:->",'f',__, &b[538]},
  900.  {9, " Unterkunftskosten ---------------------->",'f',__, &b[539]},
  901.  {10," Verpflegungskosten 16DM/Tag,Anzahl Tage->",'f',__, &b[540]},
  902.  {11," Wegen Doppelter Haushaltsführung vom Arbeitgeber",'x',__,__},
  903.  {12,"    ersetzte Kosten---------------------->",'f',__,&b[541]},
  904.  {13," Beschäftigungsort ---------------------->",'t',__, 
  905.   str[50]},
  906.  {0,"410,1,4,75,16,1,j",'x',__, __}
  907.  };
  908.  struct s werb_m_scr[]={
  909.  {2, "Mehraufwand für Verpflegung: ",'x',__,__},
  910.  {3, "  Bitte immer Anzahl der Tage eingeben !",'x',__,__},
  911.  {5, "A. Einsatzwechseltätigkeit über",'x',__,__},
  912.  {6, "    6 Stunden                         -->",'f',__,&b[526]},
  913.  {7, "B. Fahrtätigkeit, mehr als 6 Stunden  -->",'f',__,&b[527]},
  914.  {8, "C. Fahrtätigkeit, mehr als 12 Stunden -->",'f',__,&b[528]},
  915.  {9, "Vom Arbeitg. steuerfrei ersetzte Kosten->",
  916.  'f',__,&b[544]},
  917.  {10,"Art der Tätigkeit  --------------------->",'t',__,
  918.   str[48]},
  919.  {0,"430,4,5,75,13,1,j",'x',__, __}
  920.  };
  921.  struct s werb21_scr[]={
  922.  {2, "Fahrtkosten öffentl.Verkehrsm.  ->",'f',__,&b[500]},
  923.  {3, "Erstattung Arbeitgeber          ->",'f',__,
  924.  &b[501]},
  925.  {5, "Falls Sie auch ein privates Fahrzeug Benutzen:",'x',__,__},
  926.  {6, "Amtliches Kennz.Ihres Fahrzeuges->",'t',__,
  927.   str[43]},
  928.  {0,"480,4,9,75,9,1,j",'x',__, __}
  929.  };
  930.  struct s werb2_scr[]={
  931.  {2, "    Weitere Werbungskosten: ",'x',__,__},
  932.  {4, "Beiträge zu Berufsverbänden         --->",'f',__,
  933.  &b[502]},
  934.  {5, "Dienstlich veranlaßte Umzugskosten  --->",'f',__,&b[524]},
  935.  {6, "Bewerbungskosten                    --->",'f',__,&b[518]},
  936.  {7 ,"Arbeitskleidung                     --->",'f',__,&b[519]},
  937.  {8 ,"Kontogebühren                       --->",'f',__,&b[520]},
  938.  {9 ,"Fortbildungskosten                  --->",'f',__,&b[521]},
  939.  {10,"Fachliteratur                       --->",'f',__,&b[522]},
  940.  {11,"Computer                            --->",'f',__,&b[523]},
  941.  {12,"   Weitere Werbungskosten           --->",'f',__,&b[504]},
  942.  {0,"470,1,1,58,16,1,j",'x',__, __}
  943.  };
  944.  struct s xeinl_scr[] = {
  945.  {2,"Abspeichern unter Datename (* für Ende)-->",'t',__,h[0]},
  946.  {0,"1630,4,10,60,3,1,c",'x',__,__}
  947.  };
  948.  struct s xtdemo_scr[] = {
  949.  {2,"@  Unregistrierte Sharewareversion  ",'x',__,__},
  950.  {10,"   Bitte keine Taste drücken",'x',__,__},
  951.  {12,"     8 Sekunden Wartezeit... ",'x',__,__},
  952.  {0,"0,5,3,52,15,1,w",'x',__,__} 
  953.  };
  954.  struct s znotf_scr[] = {
  955.  {1,"$0", 'x',__,__},
  956.  {2,"$1",'x',__,__},
  957.  {3,"$2",'x',__,__},
  958.  {5,"Bitte eingeben (j/n)",'j',__,g[3]},
  959.  {0,"0,10,10,40,8,0,c",'x',__,__}
  960.  };
  961.  struct s xcalc_scr[] = {
  962.  {1, "@Kalkulator- ESC: Ergebnis", 'x',__,__},
  963.  {2, "@F5: Zwischenpuffer F6: Puffer kopieren", 'x',__,__},
  964.  {3, "1. Operand ---------->",'f',__,&f[3]},
  965.  {4, " Operator (+,-,/,*)-->",'t',__,g[0]},
  966. : {5, "2. Operand ---------->",'f',__,&f[4]},
  967. : {6, "Ergebnis   ---------->",'f',__,&f[5]},
  968. : {7, "Weitere Berechnungen->",'f',__,&f[6]},
  969. : {0, "1780,10,12,47,10,1,k",'x',__,__}
  970. : };
  971. : 
  972. : struct s xdown_scr[] = {
  973. : {1,"$@ Pfad-F4 Bild  \031 ",'x',__,__},
  974. : {0,"1633,58,20,19,2,1,n",'x',__,__}
  975. : };
  976. : struct s xend_scr[] = {
  977. : {2," Programm wirklich", 'x',__,__},
  978. : {3,"   verlassen? j/n ...", 'j',__,g[3]},
  979. : {0,"0,15,10,26,5,1,c",'x',__,__}
  980. : };
  981. : 
  982. : struct s xhaupt_scr[] = {
  983. : {1,"$@F1-Hilfe F3-Calc ESC \030 \031 \032 \033 Return a..f ",'x',__,__},
  984. : {0,"0,1,21,45,2,1,n",'x',__,__}
  985. : };
  986. : struct s xhaupt1_scr[] = {
  987. : {1,"$@Bild \030 \031 ",'x',__,__},
  988. : {0,"0,48,21,11,2,1,n",'x',__,__}
  989. : };
  990. : struct s xhelph_scr[] = {
  991. : {1,"$@ESC \030 \031 Return",'x',__,__},
  992. : {0,"0,52,22,17,2,1,x",'x',__,__}
  993. : };
  994. : struct s xinfo_scr[] = {
  995. : 
  996. : 
  997. : 
  998. : 
  999. : 
  1000. : 
  1001. : 
  1002. : 
  1003. : 
  1004. : 
  1005. : {2, "@                  S T E U E R - P R O F I                      ",       'x',__,__},
  1006. : {3, "                Lohn- und Einkommensteuer       ",  'x',__,__},
  1007. : {4, "           Berechnungsprogramm für das Jahr 1994",  'x',__,__},
  1008. : {6, "                (c) Kriegl-Soft 1984, 1994",        'x',__,__},
  1009. : {7, "               Erfurter Str.8, 80993 München",      'x',__,__},
  1010. : {8, "                  Tel/Fax: 089/1411201",            'x',__,__},
  1011. : {9, "                  Seriennummer 512791",             'x',__,__},
  1012. : 
  1013. : {11,"Die Unkenntnis von Steuergesetzen befreit nicht von der Pflicht,",'x',__,__},
  1014. : {12,"                   Steuer zu zahlen",'x',__,__},
  1015. : {13,"                 Die Kenntnis aber häufig       -Baron Rotschild",'x',__,__},
  1016. : {15,"                    Return oder ESC...",             't',__,g[3]},
  1017. : 
  1018. : 
  1019. : 
  1020. : 
  1021. : {0, "0,6,3,67,16,1,c",                          'x',__,__}
  1022. : 
  1023. : };
  1024. : struct s xmeld_scr[] = {
  1025. : {1,"Bitte Return drücken",'t',__,g[3]},
  1026. : {0,"0,10,22,30,2,0,c",'x',__,__}
  1027. : };
  1028. : struct s xnoarrow_scr[] = {
  1029. : {1,"@ Pfad-F4 ",'x',__,__},
  1030. : {0,"1633,58,20,19,2,1,n",'x',__,__}
  1031. : };
  1032. : struct s xnotf_scr[] = {
  1033. : {1,"Alles Richtig(j/n)-->",'j',__,g[3]},
  1034. : {0,"0,10,22,37,2,0,c",'x',__,__}
  1035. : };
  1036. : struct s xpath_scr[] = {
  1037. : {1,"@ Pfad:",'x',__,__},
  1038. : {2,"",'s',__,__},
  1039. : {0,"1634,48,5,29,3,1,n",'x',__,__}
  1040. : };
  1041. : struct s xpfad_scr[] = {
  1042. : {2,"Einlesen Pfad (* für Ende)->",'t',__,h[0]},
  1043. : {0,"1630,4,10,60,3,1,c",'x',__,__}
  1044. : };
  1045. : struct s xupdown_scr[] = {
  1046. : {1,"$@ Pfad-F4 Bild  \030 \031 ",'x',__,__},
  1047. : {0,"1632,58,20,21,2,1,n",'x',__,__}
  1048. : };
  1049. : struct s xup_scr[] = {
  1050. : {1,"$@ Pfad-F4 Bild  \030 ",'x',__,__},
  1051. : {0,"1633,58,20,19,2,1,n",'x',__,__}
  1052. : };
  1053. : 
  1054. : 
  1055. : struct s xxnotf_scr[] = {
  1056. : {1,"Noch ein Fall(j/n)-->",'j',__,g[3]},
  1057. : {0,"0,1,2,30,2,0,c",'x',__,__}
  1058. : };
  1059. : 
  1060. : struct s ynotf_scr[] = {
  1061. : {3,"$0", 'x',__,__},
  1062. : {4,"$1",'x',__,__},
  1063. : {6,"Bitte Return drücken",'t',__,g[3]},
  1064. : {0,"0,10,10,40,8,0,c",'x',__,__}
  1065. : };
  1066. : 
  1067. : 
  1068. : 
  1069. struct s MAX_SCREENS[] = {
  1070.