00000000: 01 1C 29 1C E8 03 FE 25 20 3A 20 99 20 C7 28 31 |..)....% : . .(1|
00000010: 34 29 20 3A 20 81 20 49 B2 31 20 A4 20 38 3A F9 |4) : . I.1 . 8:.|
00000020: 20 49 2C 22 22 3A 82 20 49 00 2F 1C F2 03 3A 00 | I,"":. I./...:.|
00000030: 3C 1C FC 03 3A 20 89 20 31 31 35 30 00 42 1C 06 |<...: . 1150.B..|
00000040: 04 3A 00 79 1C 10 04 8F 20 20 20 2A 20 2A 20 2A |.:.y.... * * *|
00000050: 20 20 20 55 4E 54 45 52 52 4F 55 54 49 4E 45 20 | UNTERROUTINE |
00000060: 5A 41 48 4C 45 4E 4B 4F 4D 42 49 4E 41 54 49 4F |ZAHLENKOMBINATIO|
00000070: 4E 20 20 20 2A 20 2A 20 2A 00 89 1C 1A 04 83 20 |N * * *...... |
00000080: 31 2C 36 2C 37 2C 38 2C 39 00 8F 1C 24 04 3A 00 |1,6,7,8,9...$.:.|
00000090: 9E 1C 2E 04 44 45 24 B2 22 22 3A 50 B2 30 00 B6 |....DE$."":P.0..|
000000A0: 1C 38 04 A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 |.8.. A$:. A$."" |
000000B0: A7 20 31 30 38 30 00 C2 1C 42 04 41 B2 C6 28 41 |. 1080...B.A..(A|
000000C0: 24 29 00 FA 1C 4C 04 8B 20 41 B2 34 36 20 B0 20 |$)...L.. A.46 . |
000000D0: 41 B1 34 37 20 AF 20 41 B3 35 38 20 AF 20 50 B3 |A.47 . A.58 . P.|
000000E0: 4C 20 A7 20 99 20 41 24 3B 3A 44 45 24 B2 44 45 |L . . A$;:DE$.DE|
000000F0: 24 AA 41 24 3A 50 B2 50 AA 31 00 31 1D 56 04 8B |$.A$:P.P.1.1.V..|
00000100: 20 41 B2 32 30 20 AF 20 50 B1 30 20 A7 20 99 22 | A.20 . P.0 . ."|
00000110: 9D 20 20 9D 9D 22 3B 3A 44 45 24 B2 C8 28 44 45 |. ..";:DE$..(DE|
00000120: 24 2C C3 28 44 45 24 29 AB 31 29 3A 50 B2 50 AB |$,.(DE$).1):P.P.|
00000130: 31 00 44 1D 60 04 8B 20 41 B3 B1 31 33 20 A7 20 |1.D.`.. A..13 . |
00000140: 31 30 38 30 00 4A 1D 6A 04 8E 00 50 1D 74 04 3A |1080.J.j...P.t.:|
00000150: 00 98 1D 7E 04 99 22 93 11 11 9B C6 45 53 54 4C |...~..".....ESTL|
00000160: 45 47 55 4E 47 20 44 45 53 20 D0 52 4F 5A 45 4E |EGUNG DES .ROZEN|
00000170: 54 53 41 54 5A 45 53 20 42 5A 47 4C 2E 20 DA 49 |TSATZES BZGL. .I|
00000180: 46 46 45 52 20 05 31 9B 2E 05 36 9B 2E 05 37 9B |FFER .1...6...7.|
00000190: 2E 05 38 9B 2E 05 39 22 00 D3 1D 88 04 99 22 C0 |..8...9"......".|
000001A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000001B0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000001C0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000001D0: C0 C0 22 00 02 1E 92 04 99 22 11 DA 49 46 46 45 |.."......"..IFFE|
000001E0: 52 20 36 20 55 4E 44 20 37 20 4A 45 57 45 49 4C |R 6 UND 7 JEWEIL|
000001F0: 53 20 9E CD 45 48 52 57 45 52 54 53 54 45 55 45 |S ..EHRWERTSTEUE|
00000200: 52 22 00 2C 1E 9C 04 99 22 05 DA 49 46 46 45 52 |R".,...."..IFFER|
00000210: 20 38 20 55 4E 44 20 39 20 4A 45 57 45 49 4C 53 | 8 UND 9 JEWEILS|
00000220: 20 96 D6 4F 52 53 54 45 55 45 52 22 00 40 1E A6 | ..ORSTEUER".@..|
00000230: 04 FE 1A 20 30 2C 30 37 2C 37 39 2C 32 34 2C 31 |... 0,07,79,24,1|
00000240: 00 4E 1E B0 04 81 20 49 B2 31 20 A4 20 35 00 56 |.N.... I.1 . 5.V|
00000250: 1E BA 04 87 20 41 00 5F 1E C4 04 99 22 93 22 00 |.... A._....".".|
00000260: 7C 1E CE 04 E0 2C 31 35 2C 35 3A 99 22 99 20 DA ||....,15,5:.". .|
00000270: 49 46 46 45 52 20 3D 20 05 22 3B 41 00 88 1E D8 |IFFER = .";A....|
00000280: 04 5A 49 28 49 29 B2 41 00 DA 1E E2 04 8B 20 41 |.ZI(I).A...... A|
00000290: B2 31 20 A7 20 E0 2C 31 35 2C 37 3A 99 22 9E 20 |.1 . .,15,7:.". |
000002A0: CB 45 49 4E 45 20 D3 54 45 55 45 52 20 20 20 20 |.EINE .TEUER |
000002B0: 3D 20 20 05 22 3B 41 AB 31 20 3A 20 A1 F9 20 51 |= .";A.1 : .. Q|
000002C0: 24 20 3A 20 20 20 20 20 20 20 20 20 44 45 24 B2 |$ : DE$.|
000002D0: 22 30 22 3A 89 20 31 32 38 30 00 20 1F EC 04 8B |"0":. 1280. ....|
000002E0: 20 41 B2 36 20 B0 20 41 B2 37 20 A7 20 E0 2C 31 | A.6 . A.7 . .,1|
000002F0: 35 2C 37 3A 99 22 9E 20 CD 45 48 52 57 45 52 54 |5,7:.". .EHRWERT|
00000300: 53 54 45 55 45 52 20 20 3D 20 20 05 22 3B 3A 4C |STEUER = .";:L|
00000310: B2 35 3A 8D 20 31 30 37 30 3A 89 20 31 32 38 30 |.5:. 1070:. 1280|
00000320: 00 51 1F F6 04 E0 2C 31 35 2C 37 3A 99 22 96 20 |.Q....,15,7:.". |
00000330: D6 4F 52 53 54 45 55 45 52 20 2E 2E 2E 2E 20 20 |.ORSTEUER .... |
00000340: 3D 20 20 05 22 3B 3A 4C B2 35 3A 8D 20 31 30 37 |= .";:L.5:. 107|
00000350: 30 00 62 1F 00 05 50 50 28 49 29 B2 C5 28 44 45 |0.b...PP(I)..(DE|
00000360: 24 29 00 68 1F 0A 05 82 00 7E 1F 14 05 3A 20 FE |$).h.....~...: .|
00000370: 1A 20 30 2C 31 30 2C 37 39 2C 32 34 2C 31 00 A0 |. 0,10,79,24,1..|
00000380: 1F 1E 05 99 22 9F 20 20 20 20 20 20 20 20 20 20 |....". |
00000390: D0 D2 CF DA C5 CE D4 D3 C1 C5 D4 DA C5 11 11 22 |..............."|
000003A0: 00 AE 1F 28 05 81 20 49 B2 31 20 A4 20 35 00 E6 |...(.. I.1 . 5..|
000003B0: 1F 32 05 99 22 20 20 20 20 20 20 20 05 5B 96 22 |.2.." .[."|
000003C0: 3B 5A 49 28 49 29 3B 22 05 5D 20 1E 20 3D 20 20 |;ZI(I);".] . = |
000003D0: 9B 22 3B 3A 99 FB 22 3E 23 23 2E 23 23 20 25 22 |.";:..">##.## %"|
000003E0: 3B 50 50 28 49 29 00 1A 20 3C 05 82 20 49 20 3A |;PP(I).. <.. I :|
000003F0: 20 99 A3 32 35 29 22 11 11 05 20 20 20 20 20 20 | ..25)"... |
00000400: 20 20 20 20 20 D2 49 43 48 54 49 47 20 20 20 99 | .ICHTIG .|
00000410: 5B 05 20 CA 2F CE 99 20 5D 22 00 24 20 46 05 A1 |[. ./.. ]".$ F..|
00000420: F9 20 51 24 00 43 20 50 05 8B 20 51 24 B3 B1 22 |. Q$.C P.. Q$.."|
00000430: 4A 22 20 AF 20 51 24 B3 B1 22 4E 22 20 A7 20 31 |J" . Q$.."N" . 1|
00000440: 33 35 30 00 5B 20 5A 05 8B 20 51 24 B2 22 4E 22 |350.[ Z.. Q$."N"|
00000450: 20 A7 20 8C 3A 89 20 31 31 39 30 00 61 20 64 05 | . .:. 1190.a d.|
00000460: 3A 00 8D 20 6E 05 99 A3 32 35 29 22 91 96 12 20 |:.. n...25)"... |
00000470: 20 C4 41 54 45 4E 20 57 45 52 44 45 4E 20 47 45 | .ATEN WERDEN GE|
00000480: 53 50 45 49 43 48 45 52 54 20 20 92 22 00 A7 20 |SPEICHERT .".. |
00000490: 78 05 FE 0D 23 31 2C 22 40 53 54 45 55 45 52 44 |x...#1,"@STEUERD|
000004A0: 41 54 45 4E 22 2C 57 00 B0 20 82 05 98 31 2C 35 |ATEN",W.. ...1,5|
000004B0: 00 BE 20 8C 05 81 20 49 B2 31 20 A4 20 35 00 CD |.. ... I.1 . 5..|
000004C0: 20 96 05 3A 20 98 31 2C 5A 49 28 49 29 00 DC 20 | ..: .1,ZI(I).. |
000004D0: A0 05 3A 20 98 31 2C 50 50 28 49 29 00 E4 20 AA |..: .1,PP(I).. .|
000004E0: 05 82 20 49 00 ED 20 B4 05 FE 0F 23 31 00 F3 20 |.. I.. ....#1.. |
000004F0: BE 05 3A 00 24 21 C8 05 99 A3 32 35 29 22 91 99 |..:.$!....25)"..|
00000500: 12 20 20 C4 41 54 45 4E 20 20 53 49 4E 44 20 20 |. .ATEN SIND |
00000510: 47 45 53 50 45 49 43 48 45 52 54 20 20 92 22 3A |GESPEICHERT .":|
00000520: FE 0B 20 32 00 83 21 D2 05 99 22 13 13 93 9B 20 |.. 2..!...".... |
00000530: 20 20 20 20 C3 4F 50 59 52 49 47 48 54 20 42 59 | .OPYRIGHT BY|
00000540: 20 05 CB 4C 41 55 53 20 CC 49 54 5A 49 4E 47 45 | ..LAUS .ITZINGE|
00000550: 52 20 2E 20 9B CB 4F 50 45 52 4E 49 4B 55 53 53 |R . ..OPERNIKUSS|
00000560: 54 52 41 53 53 45 20 31 37 20 2E 20 36 30 35 30 |TRASSE 17 . 6050|
00000570: 20 CF 46 46 45 4E 42 41 43 48 20 31 37 22 3A FE | .FFENBACH 17":.|
00000580: 0B 20 33 00 8F 21 DC 05 9E 20 35 37 33 34 34 00 |. 3..!... 57344.|
00000590: 95 21 E6 05 80 00 00 00 |.!...... |
..)....% : . G(14) : . I.1 . 8:. I,"":.
I./...:.<...: . 1150.B...:.Y.... * * *
UNTERROUTINE ZAHLENKOMBINATION * *
*...... 1,6,7,8,9...$.:.....DE$."":P.0..
.8.. A$:. A$."" . 1080.B.B.A.F(A$)...L..
A.46 . A.47 . A.58 . P.L . . A$;:DE$.DE
$.A$:P.P.1.1.V.. A.20 . P.0 . .". ..";:
DE$.H(DE$,C(DE$).1):P.P.1.D.`.. A..13 .
1080.J.J...P.T.:...~.."....FESTLEGUNG DE
S PROZENTSATZES BZGL. ZIFFER .1...6...7.
..8...9".S....".........................
.........................."......".ZIFFE
R 6 UND 7 JEWEILS .MEHRWERTSTEUER".,....
".ZIFFER 8 UND 9 JEWEILS .VORSTEUER".@..
... 0,07,79,24,1.N.... I.1 . 5.V.... A._
.D..".".|.N..,15,5:.". ZIFFER = .";A...X
.ZI(I).A.Z.... A.1 . .,15,7:.". KEINE ST
EUER = .";A.1 : .. Q$ : DE$.
"0":. 1280. .... A.6 . A.7 . .,15,7:.".
MEHRWERTSTEUER = .";:L.5:. 1070:. 1280
.Q....,15,7:.". VORSTEUER .... = .";:L
.5:. 1070.B...PP(I).E(DE$).H.....~...: .
. 0,10,79,24,1. ....". PROZENTS
AETZE.."...(.. I.1 . 5...2.." .[."
;ZI(I);".] . = .";:..">##.## %";PP(I)..
<.. I : ..25)"... RICHTIG .
[. J/N. ]".$ F... Q$.C P.. Q$.."J" . Q$.
."N" . 1350.[ Z.. Q$."N" . .:. 1190.A D.
:.. N...25)"... DATEN WERDEN GESPEICHER
T .".. X...#1,"@STEUERDATEN",W.. ...1,5
.. ... I.1 . 5.M ..: .1,ZI(I).. .: .1,P
P(I).. ... I.. ....#1.. ..:.$!H...25)"..
. DATEN SIND GESPEICHERT .":.. 2..!R
..".... COPYRIGHT BY .KLAUS LITZINGE
R . .KOPERNIKUSSTRASSE 17 . 6050 OFFENBA
CH 17":.. 3..!... 57344..!......
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL