home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9206b.d64 / steuertabelle (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.