home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 12 / Commodore_Disc_12_19xx_-_de.d64 / ekst.10e (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  10KB  |  296 lines
  1. 50 rem * copyright a. goerl 1987/08/16*
  2. 60 poke53280,0:poke53281,0
  3. 100 clr
  4. 101 print"[147]"chr$(14)
  5. 110 print" [197]rmittlung der abzugfaehigen [211]onder-  ":print
  6. 120 print"ausgaben fuer selbstgenutzte [197]igentums-":print
  7. 130 print"wohnung, [197]in-, [218]wei- oder sonstiges    ":print
  8. 140 print"[200]aus im [211]inne des $ 21a (1) [211]atz 2 [197][211][212][199]":print
  9. 150 print"gemaess [146] $ 10e [197][211][212][199]  bei [203]auf oder [194]au ":print
  10. 160 print"nach dem 31.12.1986 und [211]elbstnutzung  ":print
  11. 170 print"          durch den [197]igentuemer        ":print
  12. 175 print" <return>"
  13. 176 print"[145] <return>
  14. 177 [129]t[178]1[164]500:[130]
  15. 178 [153]"on                    "
  16. 180 [129]t[178]1[164]200:[130]
  17. 181 [161]x$:[139]x$[179][177][199](13)[167]176
  18. 200 [153]"loadvalingabe der erforderlichen (NULL)erte":[153]:[153]
  19. 206 [153]"(NULL)aufpreis lt. (NULL)ertrag   :"ka
  20. 208 [133]"on(NULL)aufpreis lt. (NULL)ertrag   ";ka
  21. 209 [139]ka[179]0[167]208
  22. 210 [153]"nachtraeg.chr$ebaeudekosten:"ng
  23. 218 [133]"onnachtraeg.chr$ebaeudekosten";ng
  24. 219 [139]ng[179]0[167]218
  25. 220 [153]"chr$runderwerbssteuer      :"ge
  26. 228 [133]"onchr$runderwerbssteuer      ";ge
  27. 229 [139]ge[179]0[167]228
  28. 230 [153]"(NULL)otarkosten             :"no
  29. 238 [133]"on(NULL)otarkosten             ";no
  30. 239 [139]no[179]0[167]238
  31. 240 [153]"chr$rundbuchkosten         :"gr
  32. 248 [133]"onchr$rundbuchkosten         ";gr
  33. 249 [139]gr[179]0[167]248
  34. 250 [153]"(NULL)aklerkosten            :"ma
  35. 258 [133]"on(NULL)aklerkosten            ";ma
  36. 259 [139]ma[179]0[167]258
  37. 260 [153]"sonstige (NULL)osten         :"ko
  38. 263 [133]"onsonstige (NULL)osten         ";ko
  39. 264 [139]ko[179]0[167]263
  40. 265 [153]"qm des chr$rundstuecks     :"g
  41. 267 [133]"onqm des chr$rundstuecks     ";g
  42. 268 [139]g[179]0[167]267
  43. 269 [153]"str$(NULL) je qm                :"dm
  44. 271 [133]"onstr$(NULL) je qm                ";dm
  45. 272 [139]g[172]dm[177]ka[167][153]"on str$(NULL) pro qm zu hoch !!! wait":[129]i[178]1[164]2000:[130]:[137]271
  46. 274 [139]zx[178]1[167]be[178]be[172]2
  47. 275 [153]"sonst.chr$rundstueckskosten:"gk
  48. 277 [133]"onsonst.chr$rundstueckskosten";gk
  49. 278 [139]gk[179]0[167]277
  50. 279 [153]"(NULL)onderausgaben vor peekezug:"be
  51. 281 [133]"on(NULL)onderausgaben vor peekezug";be
  52. 282 [139]be[179]0[167]281
  53. 290 [153]"(NULL)ird ein (NULL)eil der (NULL)ohnflaeche vermietet? mid$/(NULL) "
  54. 291 [161]x$:[139]x$[178]""[167]291
  55. 292 [139]x$[178]"j"[167]zx[178]1:[137]296
  56. 293 [139]x$[179][177]"j"[167]zx[178]0:[137]380
  57. 296 [153]"chr$esamtwohnflaeche       :"gw
  58. 298 [133]"onchr$esamtwohnflaeche       ";gw
  59. 299 [139]gw[179][178]0[167]298
  60. 300 [153]"selbstgenutzt asclaeche    "sg
  61. 302 [133]"onselbstgenutzte asclaeche  ";sg
  62. 303 [139]sg[179][178]0[167][153]"on(NULL)ein ascall d. $10e val(NULL)(NULL)chr$wait":[129]i[178]1[164]2000:[130]:[137]302
  63. 304 [139]sg[177]gw[167]302
  64. 380 [153]"atnlle valingaben richtig? mid$/(NULL)":[129]i[178]1[164]2000:[130]
  65. 381 [153]"on                                     ":[129]i[178]1[164]200:[130]:[153]"ononon"
  66. 382 [161]x$:[139]x$[178]""[167]380
  67. 383 [139]x$[178]"n"[167]385
  68. 384 [139]x$[178]"j"[167]386
  69. 385 [153]"load":[137]200
  70. 386 ne[178]ge[170]no[170]gr[170]ma[170]ko :[143] nebenkosten
  71. 387 gq[178]g[172]dm[170]gk :[143] wert d.grundstuecks
  72. 388 wg[178]ka[170]ng[170]gk[171]gq:[143] wert d.gebaedes
  73. 389 [139]wg[179][178]0[167]wg[178]0
  74. 390 [139]wg[170]gq[179][178]0[167]p[178]100:[137]392
  75. 391 p[178][181](gq[173]((wg[170]gq)[173]100)):[143] %d.grubo  bei nebenkosten
  76. 392 gn[178][181]((ne[172]p)[173]100):[143] grundstuecksnebenkosten
  77. 393 ab[178][181](wg[170]ne[171]gn[170]((gq[173]2)[170](gn[173]2)))
  78. 394 [139]zx[178]1[167]ab[178][181](ab[173]gw[172]sg)
  79. 395 [139]ab[177]300000[167]ab[178]300000
  80. 396 af[178][181](ab[172].05)[170]1:[139]af[178]1[167]af[178]0
  81. 397 [139]zx[178]1[167]be[178][181](be[173]gw[172]sg)
  82. 398 sa[178][181](af[170]be)
  83. 400 [153]"load(NULL)oll die ca.jaehrliche (NULL)teuererspar-
  84. 405 print"nis berechnet werden?    [202]/[206]        "
  85. 406 getx$:ifx$=""then406
  86. 407 ifx$="j"thenzv(2)=1:goto409
  87. 408 ifx$<>"j"thenzv(2)=0:goto5000
  88. 409 cp=0
  89. 410 print"[147][211]ind [211]ie verheiratet? [202]/[206]       :"ve$
  90. 412 input"[145][211]ind [211]ie verheiratet? [202]/[206]      ";ve$
  91. 414 ifve$="j"thencp=2
  92. 415 ifve$<>"j"thencp=0
  93. 420 print:print"[215]ieviele [203]inder gem. $34f [197][211][212][199]  "ki
  94. 422 input"[145][215]ieviele [203]inder gem. $34f [197][211][212][199] ";ki
  95. 425 ifsa=0thenki=0
  96. 430 print:print"[218]uversteuerndes [197]inkommen       "zv(1)
  97. 432 input"[145][218]uversteuerndes [197]inkommen      ";zv(1)
  98. 434 zve=zv(1)
  99. 440 print"[193]lles richtig? [202]/[206][146]"
  100. 441 getx$:ifx$=""then441
  101. 442 ifx$="n"then400
  102. 443 ifx$="j"then450
  103. 444 goto441
  104. 450 zn=zve-sa: rem neues zve
  105. 460 ifcp=2thenzve=zve/2: rem altes zve
  106. 461 zve=int(zve/54)*54
  107. 462 ifzve<4536thenst(1)=0:goto472
  108. 463 ifzve>18035then465
  109. 464 st(1)=int(.22*zve-998):goto472
  110. 465 ifzve>=80028then468
  111. 466 y=(zve-18000)/10000
  112. 467 st(1)=int((((2.1*y-56.02)*y+600)*y+2200)*y+2962):goto472
  113. 468 ifst(1)>=130032then471
  114. 469 z=(zve-80000)/10000
  115. 470 st(1)=int((42*z+5180)*z+29417):goto472
  116. 471 st(1)=int(.56*zve-16433)
  117. 472 ifst(1)<0thenst(1)=0
  118. 473 ifcp=2thenst(1)=st(1)*2
  119. 560 ifcp=2thenzn=zn/2: rem neues zve
  120. 561 zn=int(zn/54)*54
  121. 562 ifzn<4536thenst(2)=0:goto572
  122. 563 ifzn>18035then565
  123. 564 st(2)=int(.22*zn-998):goto572
  124. 565 ifzn>=80028then568
  125. 566 y=(zn-18000)/10000
  126. 567 st(2)=int((((2.1*y-56.02)*y+600)*y+2200)*y+2962):goto572
  127. 568 ifst(2)>=130032then571
  128. 569 z=(zn-80000)/10000
  129. 570 st(2)=int((42*z+5180)*z+29417):goto572
  130. 571 st(2)=int(.56*zn-16433)
  131. 572 ifst(2)<0thenst(2)=0
  132. 573 ifcp=2thenst(2)=st(2)*2
  133. 575 st(3)=st(1)-(st(2)-600*ki)
  134. 577 ifst(1)<ki*600thenst(3)=st(1)
  135. 578 ifst(3)>st(1)thenst(3)=st(1)
  136. 600 rem print"[147]":goto5000
  137. 5000 print"[147]"
  138. 5002 a$="         "
  139. 5003 rem hilfvariaben fuer ausdruck
  140. 5004 h1$=a$+str$(ne-gn):h1$=right$(h1$,7)
  141. 5005 h2$=a$+str$(int(gq/2)):h2$=right$(h2$,7)
  142. 5006 h3$=a$+str$(int(gn/2)):h3$=right$(h3$,7)
  143. 5007 h4$=a$+str$(ne):h4$=right$(h4$,7)
  144. 5009 ka$=a$+str$(ka):ka$=right$(ka$,7)
  145. 5010 print"[203]aufpreis lt. [214]ertrag   :"ka$
  146. 5015 ng$=a$+str$(ng):ng$=right$(ng$,7)
  147. 5020 print:print"nachtraeg.[199]ebaeudekosten:"ng$
  148. 5025 ge$=a$+str$(ge):ge$=right$(ge$,7)
  149. 5030 print:print"[199]runderwerbssteuer      :"ge$
  150. 5035 gr$=a$+str$(gr):gr$=right$(gr$,7)
  151. 5040 print:print"[199]rundbuchkosten         :"gr$
  152. 5045 no$=a$+str$(no):no$=right$(no$,7)
  153. 5050 print:print"[206]otarkosten             :"no$
  154. 5055 ma$=a$+str$(ma):ma$=right$(ma$,7)
  155. 5060 print:print"[205]aklerkosten            :"ma$
  156. 5065 ko$=a$+str$(ko):ko$=right$(ko$,7)
  157. 5070 print:print"sonstige [203]osten         :"ko$
  158. 5075 gk$=a$+str$(gk):gk$=right$(gk$,7)
  159. 5080 print:print"sonst.[199]rundstueckskosten:"gk$
  160. 5090 print:print"---------------------------------"
  161. 5094 hv=wg+gq+ne: rem hilfvarialbe
  162. 5095 hv$=a$+str$(hv):hv$=right$(hv$,7)
  163. 5100 print:print"[199]esamtkosten            :"hv$
  164. 5110 print:print"================================="
  165. 5120 print"             [210][197][212][213][210][206] [146]":wait198,1:poke198,0
  166. 5121 print"[147]"
  167. 5125 g$=a$+str$(g):g$=right$(g$,7)
  168. 5130 print"[199]rundstuecksgroesse   [209][205]:"g$
  169. 5135 dm$=a$+str$(dm):dm$=right$(dm$,7)
  170. 5140 print:print"[209][205]/[208]reis d.[199]rundstuecks :"dm$
  171. 5145 gk$=a$+str$(gk):gk$=right$(gk$,7)
  172. 5150 print:print"sonst.[199]rundstueckskosten:"gk$
  173. 5155 gq$=a$+str$(gq):gq$=right$(gq$,7)
  174. 5160 print:print"[215]ert des [199]rundstuecks   :"gq$
  175. 5165 wg$=a$+str$(wg):wg$=right$(wg$,7)
  176. 5170 print:print"[215]ert des [199]ebaeudes      :"wg$
  177. 5174 ifzx=0then5200
  178. 5175 gw$=a$+str$(gw):gw$=right$(gw$,7)
  179. 5180 print:print"[199]esamtwohnflaeche       :"gw$
  180. 5185 sg$=a$+str$(sg):sg$=right$(sg$,7)
  181. 5190 print:print"selbstgenutzte [215]ohnfl.  :"sg$
  182. 5200 print:print"---------------------------------"
  183. 5210 print"             [210][197][212][213][210][206] [146]":wait198,1:poke198,0:print"[147]"
  184. 5220 print"[147]"
  185. 5225 ab$=a$+str$(ab):ab$=right$(ab$,7)
  186. 5230 print:print"[194]emessungsgrundlage     :"ab$
  187. 5240 print"( hoechstens 300000[196][205] )"
  188. 5245 af$=a$+str$(af):af$=right$(af$,7)
  189. 5250 print:print"abzugsfaehig n. $ 10 [197]  :"af$
  190. 5255 be$=a$+str$(be):be$=right$(be$,7)
  191. 5260 print:print"[211]onderausgaben vor [194]ezug:"be$
  192. 5270 print:print"---------------------------------"
  193. 5275 sa$=a$+str$(sa):sa$=right$(sa$,7)
  194. 5280 print:print"[211]umme                   ="sa$
  195. 5285 print"================================="
  196. 5290 ifzv(2)=0then5300
  197. 5291 s1$=a$+str$(st(1)):s1$=right$(s1$,7)
  198. 5292 s2$=a$+str$(st(2)):s2$=right$(s2$,7)
  199. 5293 s3$=a$+str$(st(3)):s3$=right$(s3$,7)
  200. 5294 ki$=a$+str$(ki):ki$=right$(ki$,2)
  201. 5295 print:print"letzte [202]ahressteuer     :"s1$
  202. 5296 print:print"neue [202]ahressteuer       :"s2$
  203. 5297 print"- $34f[197][211][212][199] f."ki$" [203]ind/er :"right$((a$+str$(ki*600)),7)
  204. 5298 print:print"[211]teuerersparnis ca.     ="s3$
  205. 5299 print"================================="
  206. 5300 print" [194]ildschirmausgabe ? [202]/[206] ":fori=1to1000:next
  207. 5305 print"[145]                                     ":fori=1to200:next:print"[145][145][145][145]"
  208. 5310 getx$:ifx$=""then5300
  209. 5320 ifx$="j"then5000
  210. 5330 ifx$<>"j"then5400
  211. 5400 print"       [196]ruckausgabe ? [202]/[206]      ":fori=1to1000:next
  212. 5405 print"[145]                                     ":fori=1to200:next:print"[145][145][145][145]"
  213. 5410 getx$:ifx$=""then5400
  214. 5420 ifx$="j"then7000
  215. 5430 ifx$<>"j"then101
  216. 6000 open4,4,7:print#4,chr$(27)chr$(93)chr$(48);
  217. 6001 print#4,chr$(27)chr$(114)chr$(1);
  218. 6002 print#4,chr$(27)chr$(108)chr$(15);
  219. 6003 print#4,chr$(27)chr$(120)chr$(49);:rem 49=(NULL)(NULL) on
  220. 6005 print#4,chr$(17)"[203]aufpreis laut [214]ertrag               [196][205] "ka$
  221. 6007 print#4,"nachtraegliche [199]ebaeudekosten        [196][205] "ng$
  222. 6010 print#4,"[199]rundstuecksgroesse                  [209][205] "g$
  223. 6020 print#4,"qm/[208]reis des [199]rundstuecks            [196][205] "dm$
  224. 6025 print#4,"sonstige [199]rundstueckskosten          [196][205] "gk$
  225. 6030 print#4,"[215]ert des [199]rundstuecks                [196][205] "gq$
  226. 6040 print#4,"[215]ert des [199]ebaeudes                   [196][205] "wg$
  227. 6050 print#4,"==============================================="
  228. 6060 print#4
  229. 6080 print#4,"[199]runderwerbsteuer                    [196][205] "ge$
  230. 6090 print#4,"[199]rundbuchkosten                      [196][205] "gr$
  231. 6100 print#4,"[206]otarkosten                          [196][205] "no$
  232. 6110 print#4,"[205]aklerkosten                         [196][205] "ma$
  233. 6120 print#4,"sonstige [203]osten                      [196][205] "ko$
  234. 6125 print#4,"-----------------------------------------------"
  235. 6130 print#4,"[199]esamtnebenkosten                    [196][205] "h4$
  236. 6135 print#4,"===============================================":print#4
  237. 6140 print#4,"[194]erechnung der [193]f[193]-[194]emessungsgrundlage"
  238. 6145 print#4,"gem. $10e [197][211][212][199] ( hoechstens 300000[196][205] )":print#4
  239. 6150 print#4,"[215]ert des [199]ebaeudes                   [196][205] "wg$
  240. 6155 print#4,"[199]ebaeudenebenkosten                  [196][205] "h1$
  241. 6160 print#4,"50% des [199]rundstuecks                 [196][205] "h2$
  242. 6165 print#4,"50% d. [199]rundst.nebenkosten           [196][205] "h3$
  243. 6166 ifzx=0then6180
  244. 6167 print#4,"[199]esamtwohnflaeche                    [209][205] "gw$
  245. 6168 print#4,"selbstgenutzte [215]ohnflaeche           [209][205] "sg$
  246. 6180 print#4,"-----------------------------------------------"
  247. 6190 print#4,"[194]emessungsgrundlage                  [196][205] "ab$
  248. 6192 print#4,"5% der [194]emessungsgrundlage           [196][205] "af$
  249. 6194 print#4,"[211]onderausgaben vor [194]ezug             [196][205] "be$
  250. 6196 print#4,"-----------------------------------------------":print#4
  251. 6197 print#4,"als [211]onderausgaben"
  252. 6198 print#4,"abzugsfaehiger [194]etrag                [196][205] "sa$
  253. 6200 print#4,"***********************************************"
  254. 6210 print#4,chr$(12);
  255. 6220 close4
  256. 6300 print"    nochmal drucken ? [202]/[206] "
  257. 6310 getx$:ifx$=""then6310
  258. 6320 ifx$="j"then7000
  259. 6330 ifx$<>"j"then200
  260. 7000 rem
  261. 7020 print"[147][193]nlage zur [197]inkommensteuererklaerung"
  262. 7030 print"/[204]ohnsteuerermaessigungsantrag? [202]/[206] ":fori=1to2000:next
  263. 7035 print"[145][145]                                     "
  264. 7036 print"                                      ":fori=1to100:next
  265. 7040 getx$:ifx$=""then7020
  266. 7050 ifx$="j"then7070
  267. 7060 ifx$<>"j"then6000
  268. 7070 print:print:print"fuer welches [203]alenderjahr  :";kj
  269. 7080 input"[145]fuer welches [203]alenderjahr  ";kj
  270. 7090 ifkj<1987thenprint"[145][203]ein [198]all d. $10e [197][211][212][199][146]   ":fori=1to2000:next:goto7080
  271. 7095 print
  272. 7100 print"[206]ame, [214]orname   :";n$","v$
  273. 7110 input"[145][206]ame, [214]orname  ";n$,v$
  274. 7115 print
  275. 7120 print"[211]teuernummer    :";sn$
  276. 7130 input"[145][211]teuernummer   ";sn$
  277. 7131 print
  278. 7132 print"[207]bjekt          :";ob$
  279. 7133 input"[145][207]bjekt         ";ob$
  280. 7135 print"[193]lle [197]ingaben richtig? [202]/[206]"
  281. 7136 getx$:ifx$=""then7136
  282. 7137 ifx$="j"then7150
  283. 7138 ifx$<>"j"thenprint"[147]":goto7000
  284. 7150 open4,4,7:print#4,chr$(27)chr$(93)chr$(48)
  285. 7160 print#4,chr$(27)chr$(114)chr$(1)
  286. 7170 print#4,chr$(27)chr$(108)chr$(15)
  287. 7175 print#4,chr$(27)chr$(45)chr$(49)
  288. 7177 print#4,chr$(27)chr$(120)chr$(49);:rem 49=(NULL)(NULL) on
  289. 7180 print#4,"[193]nlage zur [197]inkommensteuererklaerung/[204]ohnsteuer-"
  290. 7190 print#4,"ermaessigungsantrag"kj"fuer "n$", "v$
  291. 7200 print#4,"[211]teuernummer: "sn$
  292. 7202 print#4,"[207]bjekt      : "ob$
  293. 7205 print#4,chr$(27)chr$(45)chr$(48)
  294. 7206 print#4:print#4:print#4
  295. 7210 goto6005
  296.