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