home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 June / 64er_Magazin_92-06_1992_Markt__Technik_de_Side_B.d64 / steuertabelle (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  865b  |  21 lines
  1. 1 print"[147]             steuer-tabelle           as"
  2. 2 ue$(1)="[147]        steuern lt. grundtabelle        [146]":printchr$(142);chr$(8)
  3. 3 ue$(2)="[147]      steuern lt. splittingtabelle      [146]":a$="veranlagung"
  4. 4 deffna(a)=.19*x-1067:deffnb(b)=151.94*y^2+1900*y+472:deffnc(c)=.53*x-22842
  5. 5 print"1. einzel - "a$:print"2. zusammen - "a$:print"3. ende
  6. 6 [161]v$:[139]v$[179][177]"1"[175]v$[179][177]"2"[175]v$[179][177]"3"[167]6
  7. 7 [145] [197](v$)[137]8,18,20
  8. 8 u[178]1:[153]ue$(u):[133]"zu versteuerndes einkommen";xx:[139]xx[179][178]0[167]8
  9. 9 x[178][181](xx[173]54)[172]54:y[178](x[171]8100)[173]10000:y[178][181](y[172]1000)[173]1000
  10. 10 [139]xx[177][178]5617[175]xx[179][178]8153[167]za[178][165]a(x)
  11. 11 [139]xx[177][178]8154[175]xx[179][178]120041[167]za[178][165]b(y)
  12. 12 [139]xx[177]120041[167]za[178][165]c(x)
  13. 13 [139]v [167]za[178][181](za)[172]2:xx[178]xx[172]2
  14. 14 [153]ue$(u);"einkommen dm"xx:[153]:[153]" steuern   dm"[181](za[172]1.0375)
  15. 15 [153]"weiter ->  space wait
  16. 16 getwa$:ifwa$=""then16
  17. 17 run
  18. 18 v=1:u=2:printue$(u)
  19. 19 input"1. einkommen";x(1):input"2. einkommen";x(2):xx=(x(1)+x(2))/2:goto9
  20. 20 print"[147]ende":end
  21.