/ com!online 2002 February / comcd0202.iso / geld / akad / Steuerprogramm / data.z / RENTESA.adb

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 44 42 20 34 2e 30 34 | d1 00 00 00 f6 03 00 00 |ADB 4.04|........|
|00000010| c7 04 00 00 f9 09 00 00 | 1c 00 00 00 11 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 52 65 6e 74 65 53 41 | 00 00 00 00 00 00 00 00 |.RenteSA|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 44 47 01 00 00 00 00 | 00 20 05 01 00 00 00 00 |.DG.....|. ......|
|000000e0| 00 e6 00 0c 01 00 00 09 | 00 06 00 56 57 9b 00 fd |........|...VW...|
|000000f0| 00 96 01 0c 00 00 00 00 | 00 00 00 00 00 56 57 b4 |........|.....VW.|
|00000100| 01 17 02 bf 02 06 00 00 | 00 00 00 00 00 00 00 56 |........|.......V|
|00000110| 57 e8 02 48 03 04 04 10 | 00 00 00 00 00 00 00 00 |W..H....|........|
|00000120| 00 56 45 30 04 5f 04 9e | 04 0c 00 00 00 00 00 00 |.VE0._..|........|
|00000130| 00 00 00 56 45 c2 04 f3 | 04 9e 04 0e 00 00 00 00 |...VE...|........|
|00000140| 00 00 00 00 00 56 45 34 | 05 5f 05 a1 05 06 00 00 |.....VE4|._......|
|00000150| 00 00 00 00 00 00 00 18 | 00 53 46 00 00 00 01 00 |........|.SF.....|
|00000160| 00 00 00 00 00 02 00 02 | 00 e2 00 1d 00 00 00 53 |........|.......S|
|00000170| 54 00 00 00 00 00 00 20 | 00 00 00 06 00 05 00 74 |T...... |.......t|
|00000180| 00 09 00 00 00 ce 05 45 | 54 e8 05 00 01 08 00 10 |.......E|T.......|
|00000190| 00 00 00 06 00 0f 00 da | 00 0c 00 ee 05 79 08 53 |........|.....y.S|
|000001a0| 46 00 00 00 01 00 00 00 | 00 00 00 02 00 21 00 e2 |F.......|.....!..|
|000001b0| 00 16 00 00 00 53 54 00 | 00 00 00 00 00 20 00 00 |.....ST.|..... ..|
|000001c0| 00 06 00 28 00 71 00 0a | 00 00 00 f3 05 45 44 11 |...(.q..|.....ED.|
|000001d0| 06 00 01 00 00 10 01 00 | 00 b6 00 26 00 2a 00 0c |........|...&.*..|
|000001e0| 00 19 06 7f 08 03 00 56 | 45 1f 06 43 06 00 00 00 |.......V|E..C....|
|000001f0| 00 00 00 00 00 00 00 00 | 00 56 45 7b 06 a4 06 00 |........|.VE{....|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 56 45 e9 06 14 |........|...VE...|
|00000210| 07 00 00 00 00 00 00 00 | 00 00 00 00 00 53 46 00 |........|.....SF.|
|00000220| 00 00 01 00 00 00 00 00 | 00 02 00 39 00 e2 00 47 |........|...9...G|
|00000230| 00 00 00 53 54 00 00 00 | 00 00 00 20 00 00 00 06 |...ST...|... ....|
|00000240| 00 40 00 71 00 0a 00 00 | 00 56 07 53 54 00 00 00 |.@.q....|.V.ST...|
|00000250| 00 00 00 20 00 00 00 06 | 00 50 00 49 00 0b 00 00 |... ....|.P.I....|
|00000260| 00 6c 07 45 54 82 07 00 | 01 08 00 10 00 00 00 57 |.l.ET...|.......W|
|00000270| 00 4e 00 89 00 0c 00 8a | 07 80 08 53 54 00 00 00 |.N......|...ST...|
|00000280| 00 00 00 20 00 00 00 81 | 00 60 00 2c 00 0a 00 00 |... ....|.`.,....|
|00000290| 00 8d 07 45 44 9a 07 00 | 01 00 00 10 01 00 00 b6 |...ED...|........|
|000002a0| 00 5e 00 2a 00 0c 00 9e | 07 81 08 03 00 56 45 a3 |.^.*....|.....VE.|
|000002b0| 07 c8 07 00 00 00 00 00 | 00 00 00 00 00 00 00 56 |........|.......V|
|000002c0| 45 06 08 5f 04 00 00 00 | 00 00 00 00 00 00 00 00 |E.._....|........|
|000002d0| 00 56 45 e9 06 f3 04 00 | 00 00 00 00 00 00 00 00 |.VE.....|........|
|000002e0| 00 00 00 53 54 00 00 00 | 00 00 00 20 00 00 00 06 |...ST...|... ....|
|000002f0| 00 6f 00 a8 00 0a 00 00 | 00 31 08 45 44 65 08 00 |.o......|.1.EDe..|
|00000300| 01 00 00 10 01 00 00 b6 | 00 6e 00 2a 00 0c 00 26 |........|.n.*...&|
|00000310| 09 82 08 03 00 56 45 6a | 08 8d 08 00 00 00 00 00 |.....VEj|........|
|00000320| 00 00 00 00 00 00 00 56 | 45 be 08 f3 04 00 00 00 |.......V|E.......|
|00000330| 00 00 00 00 00 00 00 00 | 00 56 45 7b 06 e9 08 00 |........|.VE{....|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 53 46 00 00 00 |........|...SF...|
|00000350| 01 00 00 20 00 00 00 02 | 00 88 00 e2 00 82 00 00 |... ....|........|
|00000360| 00 2c 09 54 41 49 09 00 | 00 00 00 10 04 00 00 06 |.,.TAI..|........|
|00000370| 00 97 00 db 00 32 00 89 | 09 83 08 04 00 54 54 00 |.....2..|.....TT.|
|00000380| 00 00 01 08 00 30 00 00 | 00 00 00 00 00 1c 02 00 |.....0..|........|
|00000390| 00 5f 09 07 03 51 09 54 | 4e 00 00 00 61 00 00 70 |._...Q.T|N...a..p|
|000003a0| 00 00 00 00 00 00 00 50 | 00 00 00 6b 09 08 03 64 |.......P|...k...d|
|000003b0| 09 02 00 54 4e 00 00 20 | 01 00 00 70 00 00 00 00 |...TN.. |...p....|
|000003c0| 00 00 00 be 00 00 00 79 | 09 83 08 70 09 06 20 54 |.......y|...p.. T|
|000003d0| 4e 00 00 21 01 00 00 60 | 00 00 00 00 00 00 00 be |N..!...`|........|
|000003e0| 00 00 00 84 09 7c 09 06 | 20 53 54 00 00 00 00 00 |.....|..| ST.....|
|000003f0| 00 20 00 00 00 06 00 d1 | 00 64 00 0a 00 00 00 8e |. ......|.d......|
|00000400| 09 45 4e 00 00 21 01 00 | 00 40 00 00 00 ae 00 cf |.EN..!..|.@......|
|00000410| 00 26 00 0c 00 89 09 06 | 20 53 54 a1 09 00 00 00 |.&......| ST.....|
|00000420| 00 20 00 00 00 06 00 e1 | 00 64 00 0a 00 00 00 a9 |. ......|.d......|
|00000430| 09 45 4e b9 09 01 01 00 | 00 40 00 00 00 c0 00 df |.EN.....|.@......|
|00000440| 00 14 00 0c 00 c2 09 03 | 00 53 54 00 00 00 00 00 |........|.ST.....|
|00000450| 00 20 00 00 00 d6 00 e1 | 00 09 00 0a 00 00 00 c8 |. ......|........|
|00000460| 09 53 46 00 00 00 01 00 | 00 00 00 00 00 06 00 f0 |.SF.....|........|
|00000470| 00 ce 00 02 00 00 00 53 | 54 00 00 00 00 00 00 20 |.......S|T...... |
|00000480| 00 00 00 06 00 f9 00 78 | 00 0a 00 00 00 cc 09 45 |.......x|.......E|
|00000490| 4e ed 09 21 01 00 00 40 | 00 00 00 ae 00 f7 00 26 |N..!...@|.......&|
|000004a0| 00 0c 00 84 09 05 20 00 | 00 00 00 47 00 39 00 11 |...... .|...G.9..|
|000004b0| 27 00 00 00 00 08 00 03 | 00 06 00 0a 00 0c 00 0e |'.......|........|
|000004c0| 00 11 00 12 00 13 00 00 | 52 65 6e 74 65 53 41 00 |........|RenteSA.|
|000004d0| 22 53 6f 6e 64 65 72 61 | 75 73 67 61 62 65 6e 3a |"Sondera|usgaben:|
|000004e0| 20 22 2b 73 74 72 69 6e | 67 28 72 65 63 4e 75 6d | "+strin|g(recNum|
|000004f0| 29 2b 22 2e 20 4c 65 69 | 62 72 65 6e 74 65 22 00 |)+". Lei|brente".|
|00000500| 22 72 65 6e 74 65 73 61 | 2e 66 72 77 22 00 69 66 |"rentesa|.frw".if|
|00000510| 28 4d 6f 64 75 73 21 3d | 32 2c 69 66 28 21 5b 2f |(Modus!=|2,if(![/|
|00000520| 2e 24 39 30 2e 24 31 30 | 37 2e 24 31 31 37 2e 24 |.$90.$10|7.$117.$|
|00000530| 34 34 33 38 5d 2c 22 66 | 6f 72 6d 6d 33 2e 66 72 |4438],"f|ormm3.fr|
|00000540| 77 22 2c 22 66 6f 72 6d | 6d 6d 33 2e 66 72 77 22 |w","form|mm3.frw"|
|00000550| 29 2c 22 66 6f 72 6d 61 | 6c 65 34 2e 66 72 77 22 |),"forma|le4.frw"|
|00000560| 29 00 28 21 76 61 6c 69 | 64 28 5b 24 39 36 33 5d |).(!vali|d([$963]|
|00000570| 29 26 21 76 61 6c 69 64 | 28 5b 24 31 31 34 31 5d |)&!valid|([$1141]|
|00000580| 29 26 5b 24 33 5d 3d 3d | 30 2e 63 29 7c 28 76 61 |)&[$3]==|0.c)|(va|
|00000590| 6c 69 64 28 5b 24 39 36 | 33 5d 29 26 76 61 6c 69 |lid([$96|3])&vali|
|000005a0| 64 28 5b 24 31 31 34 31 | 5d 29 26 5b 24 33 5d 21 |d([$1141|])&[$3]!|
|000005b0| 3d 30 2e 63 29 7c 76 61 | 6c 69 64 28 5b 24 39 36 |=0.c)|va|lid([$96|
|000005c0| 33 5d 29 00 22 53 69 65 | 20 68 61 62 65 6e 20 64 |3])."Sie| haben d|
|000005d0| 61 73 20 47 65 62 75 72 | 74 73 64 61 74 75 6d 20 |as Gebur|tsdatum |
|000005e0| 6e 69 63 68 74 20 61 6e | 67 65 67 65 62 65 6e 2e |nicht an|gegeben.|
|000005f0| 20 5c 6e 4f 68 6e 65 20 | 64 69 65 73 65 73 20 44 | \nOhne |dieses D|
|00000600| 61 74 75 6d 20 6b 61 6e | 6e 20 64 65 72 20 45 72 |atum kan|n der Er|
|00000610| 74 72 61 67 73 61 6e 74 | 65 69 6c 20 6e 69 63 68 |tragsant|eil nich|
|00000620| 74 20 62 65 72 65 63 68 | 6e 65 74 20 77 65 72 64 |t berech|net werd|
|00000630| 65 6e 2e 20 5c 6e 20 5c | 6e 4d f6 63 68 74 65 6e |en. \n \|nM.chten|
|00000640| 20 53 69 65 20 49 68 72 | 65 20 41 6e 67 61 62 65 | Sie Ihr|e Angabe|
|00000650| 6e 20 65 72 67 e4 6e 7a | 65 6e 3f 22 00 22 44 61 |n erg.nz|en?"."Da|
|00000660| 73 20 47 65 62 75 72 74 | 73 64 61 74 75 6d 20 66 |s Geburt|sdatum f|
|00000670| 65 68 6c 74 20 6e 6f 63 | 68 22 00 28 21 76 61 6c |ehlt noc|h".(!val|
|00000680| 69 64 28 5b 24 39 36 33 | 5d 29 26 21 76 61 6c 69 |id([$963|])&!vali|
|00000690| 64 28 5b 24 31 31 34 31 | 5d 29 26 5b 24 33 5d 3d |d([$1141|])&[$3]=|
|000006a0| 3d 30 2e 63 29 7c 28 76 | 61 6c 69 64 28 5b 24 39 |=0.c)|(v|alid([$9|
|000006b0| 36 33 5d 29 26 76 61 6c | 69 64 28 5b 24 31 31 34 |63])&val|id([$114|
|000006c0| 31 5d 29 26 5b 24 33 5d | 21 3d 30 2e 63 29 7c 76 |1])&[$3]|!=0.c)|v|
|000006d0| 61 6c 69 64 28 5b 24 31 | 31 34 31 5d 29 00 22 53 |alid([$1|141])."S|
|000006e0| 69 65 20 68 61 62 65 6e | 20 64 61 73 20 44 61 74 |ie haben| das Dat|
|000006f0| 75 6d 20 64 65 73 20 42 | 65 67 69 6e 6e 73 20 64 |um des B|eginns d|
|00000700| 65 72 20 52 65 6e 74 65 | 20 6e 69 63 68 74 20 61 |er Rente| nicht a|
|00000710| 6e 67 65 67 65 62 65 6e | 2e 20 5c 6e 4f 68 6e 65 |ngegeben|. \nOhne|
|00000720| 20 64 69 65 73 65 73 20 | 44 61 74 75 6d 20 6b 61 | dieses |Datum ka|
|00000730| 6e 6e 20 64 65 72 20 45 | 72 74 72 61 67 73 61 6e |nn der E|rtragsan|
|00000740| 74 65 69 6c 20 6e 69 63 | 68 74 20 62 65 72 65 63 |teil nic|ht berec|
|00000750| 68 6e 65 74 20 77 65 72 | 64 65 6e 2e 20 5c 6e 20 |hnet wer|den. \n |
|00000760| 5c 6e 4d f6 63 68 74 65 | 6e 20 53 69 65 20 49 68 |\nM.chte|n Sie Ih|
|00000770| 72 65 20 41 6e 67 61 62 | 65 6e 20 65 72 67 e4 6e |re Angab|en erg.n|
|00000780| 7a 65 6e 3f 22 00 22 44 | 61 73 20 44 61 74 75 6d |zen?"."D|as Datum|
|00000790| 20 64 65 73 20 52 65 6e | 74 65 6e 62 65 67 69 6e | des Ren|tenbegin|
|000007a0| 6e 73 20 66 65 68 6c 74 | 20 6e 6f 63 68 22 00 28 |ns fehlt| noch".(|
|000007b0| 21 76 61 6c 69 64 28 5b | 24 39 36 33 5d 29 26 21 |!valid([|$963])&!|
|000007c0| 76 61 6c 69 64 28 5b 24 | 31 31 34 31 5d 29 26 5b |valid([$|1141])&[|
|000007d0| 24 33 5d 3d 3d 30 2e 30 | 63 29 7c 28 76 61 6c 69 |$3]==0.0|c)|(vali|
|000007e0| 64 28 5b 24 39 36 33 5d | 29 26 76 61 6c 69 64 28 |d([$963]|)&valid(|
|000007f0| 5b 24 31 31 34 31 5d 29 | 26 5b 24 33 5d 21 3d 30 |[$1141])|&[$3]!=0|
|00000800| 2e 30 63 29 7c 5b 24 33 | 5d 21 3d 30 2e 63 00 22 |.0c)|[$3|]!=0.c."|
|00000810| 53 69 65 20 68 61 62 65 | 6e 20 64 69 65 20 48 f6 |Sie habe|n die H.|
|00000820| 68 65 20 64 65 72 20 22 | 2b 73 56 4a 61 68 72 2b |he der "|+sVJahr+|
|00000830| 22 20 67 65 6c 65 69 73 | 74 65 74 65 6e 20 52 65 |" geleis|teten Re|
|00000840| 6e 74 65 6e 7a 61 68 6c | 75 6e 67 65 6e 20 6e 69 |ntenzahl|ungen ni|
|00000850| 63 68 74 20 61 6e 67 65 | 67 65 62 65 6e 2e 20 5c |cht ange|geben. \|
|00000860| 6e 4f 68 6e 65 20 64 69 | 65 73 65 73 20 44 61 74 |nOhne di|eses Dat|
|00000870| 75 6d 20 6b 61 6e 6e 20 | 64 65 72 20 45 72 74 72 |um kann |der Ertr|
|00000880| 61 67 73 61 6e 74 65 69 | 6c 20 6e 69 63 68 74 20 |agsantei|l nicht |
|00000890| 62 65 72 65 63 68 6e 65 | 74 20 77 65 72 64 65 6e |berechne|t werden|
|000008a0| 2e 20 5c 6e 20 5c 6e 4d | f6 63 68 74 65 6e 20 53 |. \n \nM|.chten S|
|000008b0| 69 65 20 49 68 72 65 20 | 41 6e 67 61 62 65 6e 20 |ie Ihre |Angaben |
|000008c0| 65 72 67 e4 6e 7a 65 6e | 3f 22 00 22 44 65 72 20 |erg.nzen|?"."Der |
|000008d0| 42 65 74 72 61 67 20 64 | 65 72 20 52 65 6e 74 65 |Betrag d|er Rente|
|000008e0| 6e 7a 61 68 6c 75 6e 67 | 65 6e 20 66 65 68 6c 74 |nzahlung|en fehlt|
|000008f0| 20 6e 6f 63 68 22 00 21 | 76 61 6c 69 64 28 5b 24 | noch".!|valid([$|
|00000900| 31 31 34 31 5d 29 7c 21 | 76 61 6c 69 64 28 5b 24 |1141])|!|valid([$|
|00000910| 39 36 33 5d 29 7c 5b 24 | 39 36 33 5d 3c 3d 5b 24 |963])|[$|963]<=[$|
|00000920| 31 31 34 31 5d 00 22 44 | 65 72 20 42 65 67 69 6e |1141]."D|er Begin|
|00000930| 6e 20 64 65 72 20 52 65 | 6e 74 65 20 64 61 72 66 |n der Re|nte darf|
|00000940| 20 6e 69 63 68 74 20 76 | 6f 72 20 64 65 6d 20 47 | nicht v|or dem G|
|00000950| 65 62 75 72 74 73 64 61 | 74 75 6d 20 6c 69 65 67 |eburtsda|tum lieg|
|00000960| 65 6e 2e 22 00 22 44 69 | 65 20 44 61 74 75 6d 73 |en."."Di|e Datums|
|00000970| 61 6e 67 61 62 65 6e 20 | 73 69 6e 64 20 66 65 68 |angaben |sind feh|
|00000980| 6c 65 72 68 61 66 74 22 | 00 21 76 61 6c 69 64 28 |lerhaft"|.!valid(|
|00000990| 5b 24 31 31 34 31 5d 29 | 7c 21 76 61 6c 69 64 28 |[$1141])||!valid(|
|000009a0| 5b 24 31 31 34 32 5d 29 | 7c 5b 24 31 31 34 32 5d |[$1142])||[$1142]|
|000009b0| 3e 3d 5b 24 31 31 34 31 | 5d 00 22 44 61 73 20 45 |>=[$1141|]."Das E|
|000009c0| 6e 64 65 20 64 65 72 20 | 52 65 6e 74 65 20 64 61 |nde der |Rente da|
|000009d0| 72 66 20 6e 69 63 68 74 | 20 76 6f 72 20 64 65 6d |rf nicht| vor dem|
|000009e0| 20 42 65 67 69 6e 6e 20 | 64 65 72 20 52 65 6e 74 | Beginn |der Rent|
|000009f0| 65 20 6c 69 65 67 65 6e | 2e 22 00 21 76 61 6c 69 |e liegen|.".!vali|
|00000a00| 64 28 5b 24 31 31 34 31 | 5d 29 7c 5b 24 31 31 34 |d([$1141|])|[$114|
|00000a10| 31 5d 3c 3d 64 61 74 65 | 28 33 31 2c 31 32 2c 56 |1]<=date|(31,12,V|
|00000a20| 4a 61 68 72 29 00 22 44 | 65 72 20 42 65 67 69 6e |Jahr)."D|er Begin|
|00000a30| 6e 20 64 65 72 20 52 65 | 6e 74 65 20 64 61 72 66 |n der Re|nte darf|
|00000a40| 20 73 70 e4 74 65 73 74 | 65 6e 73 20 64 65 72 20 | sp.test|ens der |
|00000a50| 33 31 2e 31 32 2e 22 2b | 73 56 4a 61 68 72 2b 22 |31.12."+|sVJahr+"|
|00000a60| 20 73 65 69 6e 2e 22 00 | 22 44 61 73 20 44 61 74 | sein.".|"Das Dat|
|00000a70| 75 6d 20 64 65 73 20 52 | 65 6e 74 65 6e 62 65 67 |um des R|entenbeg|
|00000a80| 69 6e 6e 73 20 69 73 74 | 20 66 65 68 6c 65 72 68 |inns ist| fehlerh|
|00000a90| 61 66 74 22 00 22 47 72 | 75 6e 64 20 64 65 72 20 |aft"."Gr|und der |
|00000aa0| 52 65 6e 74 65 6e 7a 61 | 68 6c 75 6e 67 22 00 47 |Rentenza|hlung".G|
|00000ab0| 72 75 6e 64 00 24 36 35 | 34 00 22 44 69 65 20 52 |rund.$65|4."Die R|
|00000ac0| 65 6e 74 65 20 6c e4 75 | 66 74 20 73 65 69 74 20 |ente l.u|ft seit |
|00000ad0| 64 65 6d 2e 2e 2e 22 00 | 52 65 6e 74 62 65 67 00 |dem...".|Rentbeg.|
|00000ae0| 24 31 31 34 31 00 21 76 | 61 6c 69 64 28 73 65 6c |$1141.!v|alid(sel|
|00000af0| 66 29 7c 73 65 6c 66 3c | 64 61 74 65 28 31 2c 31 |f)|self<|date(1,1|
|00000b00| 2c 56 4a 61 68 72 2b 31 | 29 00 22 44 65 72 20 42 |,VJahr+1|)."Der B|
|00000b10| 65 67 69 6e 6e 20 64 61 | 72 66 20 73 70 e4 74 65 |eginn da|rf sp.te|
|00000b20| 73 74 65 6e 73 20 64 65 | 72 20 33 31 2e 31 32 2e |stens de|r 31.12.|
|00000b30| 22 2b 73 56 4a 61 68 72 | 2b 22 20 73 65 69 6e 2e |"+sVJahr|+" sein.|
|00000b40| 22 00 21 76 61 6c 69 64 | 28 73 65 6c 66 29 7c 21 |".!valid|(self)|!|
|00000b50| 76 61 6c 69 64 28 5b 24 | 39 36 33 5d 29 7c 73 65 |valid([$|963])|se|
|00000b60| 6c 66 3e 3d 5b 24 39 36 | 33 5d 00 22 44 65 72 20 |lf>=[$96|3]."Der |
|00000b70| 42 65 67 69 6e 6e 20 64 | 65 72 20 52 65 6e 74 65 |Beginn d|er Rente|
|00000b80| 20 64 61 72 66 20 6e 69 | 63 68 74 20 6e 69 63 68 | darf ni|cht nich|
|00000b90| 74 20 76 6f 72 20 64 65 | 6d 20 47 65 62 75 72 74 |t vor de|m Geburt|
|00000ba0| 73 64 61 74 75 6d 20 6c | 69 65 67 65 6e 2e 22 00 |sdatum l|iegen.".|
|00000bb0| 21 76 61 6c 69 64 28 73 | 65 6c 66 29 7c 21 76 61 |!valid(s|elf)|!va|
|00000bc0| 6c 69 64 28 5b 24 31 31 | 34 32 5d 29 7c 73 65 6c |lid([$11|42])|sel|
|00000bd0| 66 3c 3d 5b 24 31 31 34 | 32 5d 00 22 44 65 72 20 |f<=[$114|2]."Der |
|00000be0| 42 65 67 69 6e 6e 20 64 | 65 72 20 52 65 6e 74 65 |Beginn d|er Rente|
|00000bf0| 20 64 61 72 66 20 6e 69 | 63 68 74 20 6e 61 63 68 | darf ni|cht nach|
|00000c00| 20 64 65 6d 20 45 6e 64 | 65 20 64 65 72 20 52 65 | dem End|e der Re|
|00000c10| 6e 74 65 20 6c 69 65 67 | 65 6e 2e 22 00 22 44 69 |nte lieg|en."."Di|
|00000c20| 65 20 52 65 6e 74 65 20 | 65 6e 64 65 74 20 2e 2e |e Rente |endet ..|
|00000c30| 2e 22 00 22 2e 2e 2e 6d | 69 74 20 64 65 6d 20 54 |."."...m|it dem T|
|00000c40| 6f 64 65 20 76 6f 6e 22 | 00 4e 61 6d 65 74 6f 74 |ode von"|.Nametot|
|00000c50| 00 24 39 00 22 67 65 62 | 6f 72 65 6e 20 61 6d 22 |.$9."geb|oren am"|
|00000c60| 00 47 65 62 00 24 39 36 | 33 00 21 76 61 6c 69 64 |.Geb.$96|3.!valid|
|00000c70| 28 73 65 6c 66 29 7c 73 | 65 6c 66 3c 3d 64 61 74 |(self)|s|elf<=dat|
|00000c80| 65 28 33 31 2c 31 32 2c | 56 4a 61 68 72 29 00 22 |e(31,12,|VJahr)."|
|00000c90| 44 61 73 20 47 65 62 75 | 72 74 73 64 61 74 75 6d |Das Gebu|rtsdatum|
|00000ca0| 20 64 61 72 66 20 73 70 | e4 74 65 73 74 65 6e 73 | darf sp|.testens|
|00000cb0| 20 64 65 72 20 33 31 2e | 31 32 2e 22 2b 73 56 4a | der 31.|12."+sVJ|
|00000cc0| 61 68 72 2b 22 20 73 65 | 69 6e 2e 22 00 21 76 61 |ahr+" se|in.".!va|
|00000cd0| 6c 69 64 28 5b 24 31 31 | 34 31 5d 29 7c 21 76 61 |lid([$11|41])|!va|
|00000ce0| 6c 69 64 28 73 65 6c 66 | 29 7c 73 65 6c 66 3c 3d |lid(self|)|self<=|
|00000cf0| 5b 24 31 31 34 31 5d 00 | 22 2e 2e 2e 73 70 e4 74 |[$1141].|"...sp.t|
|00000d00| 65 73 74 65 6e 73 20 61 | 62 65 72 20 61 6d 20 28 |estens a|ber am (|
|00000d10| 62 65 69 20 61 62 67 65 | 6b fc 72 7a 74 65 72 20 |bei abge|k.rzter |
|00000d20| 4c 65 69 62 72 65 6e 74 | 65 29 22 00 45 6e 64 65 |Leibrent|e)".Ende|
|00000d30| 00 21 76 61 6c 69 64 28 | 73 65 6c 66 29 7c 73 65 |.!valid(|self)|se|
|00000d40| 6c 66 3e 3d 64 61 74 65 | 28 31 2c 31 2c 56 4a 61 |lf>=date|(1,1,VJa|
|00000d50| 68 72 29 00 22 4e 75 72 | 20 57 65 72 74 65 20 61 |hr)."Nur| Werte a|
|00000d60| 62 20 64 65 6d 20 31 2e | 31 2e 22 2b 73 56 4a 61 |b dem 1.|1."+sVJa|
|00000d70| 68 72 2b 22 20 73 69 6e | 64 20 7a 75 6c e4 73 73 |hr+" sin|d zul.ss|
|00000d80| 69 67 2e 22 00 21 76 61 | 6c 69 64 28 5b 24 31 31 |ig.".!va|lid([$11|
|00000d90| 34 31 5d 29 7c 21 76 61 | 6c 69 64 28 73 65 6c 66 |41])|!va|lid(self|
|00000da0| 29 7c 73 65 6c 66 3e 3d | 5b 24 31 31 34 31 5d 00 |)|self>=|[$1141].|
|00000db0| 22 44 61 73 20 45 6e 64 | 65 20 64 65 72 20 52 65 |"Das End|e der Re|
|00000dc0| 6e 74 65 20 64 61 72 66 | 20 6e 69 63 68 74 20 76 |nte darf| nicht v|
|00000dd0| 6f 72 20 64 65 6d 20 47 | 65 62 75 72 74 73 64 61 |or dem G|eburtsda|
|00000de0| 74 75 6d 20 6c 69 65 67 | 65 6e 2e 22 00 24 31 31 |tum lieg|en.".$11|
|00000df0| 34 32 00 22 20 48 f6 68 | 65 20 64 65 72 20 52 65 |42." H.h|e der Re|
|00000e00| 6e 74 65 6e 7a 61 68 6c | 75 6e 67 65 6e 20 22 00 |ntenzahl|ungen ".|
|00000e10| 54 61 62 65 6c 6c 65 00 | 22 42 65 7a 65 69 63 68 |Tabelle.|"Bezeich|
|00000e20| 6e 75 6e 67 22 00 24 34 | 35 32 00 22 41 6e 7a 2e |nung".$4|52."Anz.|
|00000e30| 22 00 24 31 34 33 00 22 | 42 65 74 72 61 67 22 00 |".$143."|Betrag".|
|00000e40| 24 33 00 22 53 75 6d 6d | 65 22 00 24 31 37 33 00 |$3."Summ|e".$173.|
|00000e50| 24 31 38 33 00 22 53 75 | 6d 6d 65 20 64 65 72 20 |$183."Su|mme der |
|00000e60| 52 65 6e 74 65 6e 22 00 | 45 72 74 72 61 6e 74 00 |Renten".|Ertrant.|
|00000e70| 22 45 72 74 72 61 67 73 | 61 6e 74 65 69 6c 22 00 |"Ertrags|anteil".|
|00000e80| 45 61 77 69 65 64 65 72 | 00 24 31 31 34 35 00 22 |Eawieder|.$1145."|
|00000e90| 25 22 00 22 41 6c 73 20 | 53 6f 6e 64 65 72 61 75 |%"."Als |Sonderau|
|00000ea0| 73 67 61 62 65 6e 20 61 | 62 7a 75 67 73 66 e4 68 |sgaben a|bzugsf.h|
|00000eb0| 69 67 22 00 45 61 61 62 | 7a 69 65 68 62 61 72 00 |ig".Eaab|ziehbar.|
+--------+-------------------------+-------------------------+--------+--------+