64'er 1992 June/64er_Magazin_92-06_1992_Markt__Technik_de_Side_B.d64/steuertabelle

Commodore BASIC | 1992-01-01 | 865 b | 21 lines

1 print"[147]             steuer-tabelle           as"
2 ue$(1)="[147]        steuern lt. grundtabelle        [146]":printchr$(142);chr$(8)
3 ue$(2)="[147]      steuern lt. splittingtabelle      [146]":a$="veranlagung"
4 deffna(a)=.19*x-1067:deffnb(b)=151.94*y^2+1900*y+472:deffnc(c)=.53*x-22842
5 print"1. einzel - "a$:print"2. zusammen - "a$:print"3. ende
6 [161]v$:[139]v$[179][177]"1"[175]v$[179][177]"2"[175]v$[179][177]"3"[167]6
7 [145] [197](v$)[137]8,18,20
8 u[178]1:[153]ue$(u):[133]"zu versteuerndes einkommen";xx:[139]xx[179][178]0[167]8
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 [139]xx[177][178]5617[175]xx[179][178]8153[167]za[178][165]a(x)
11 [139]xx[177][178]8154[175]xx[179][178]120041[167]za[178][165]b(y)
12 [139]xx[177]120041[167]za[178][165]c(x)
13 [139]v [167]za[178][181](za)[172]2:xx[178]xx[172]2
14 [153]ue$(u);"einkommen dm"xx:[153]:[153]" steuern   dm"[181](za[172]1.0375)
15 [153]"weiter ->  space wait
16 getwa$:ifwa$=""then16
17 run
18 v=1:u=2:printue$(u)
19 input"1. einkommen";x(1):input"2. einkommen";x(2):xx=(x(1)+x(2))/2:goto9
20 print"[147]ende":end