/ com!online 2002 February / comcd0202.iso / geld / akad / Steuerprogramm / data.z / BEWERBREISEKFAHRTKFZ.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 9a 01 00 00 |ADB 4.04|........|
|00000010| 6b 02 00 00 52 03 00 00 | 0d 00 00 00 db 00 00 00 |k...R...|........|
|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 54 4b 46 5a 00 00 00 | 00 00 00 00 00 00 00 00 |.TKFZ...|........|
|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 c5 00 00 00 16 | 00 01 00 56 57 bb 00 09 |........|...VW...|
|000000f0| 01 00 00 04 00 00 00 00 | 00 00 00 00 00 09 00 53 |........|.......S|
|00000100| 54 00 00 00 00 00 00 20 | 00 00 00 08 00 5a 00 5d |T...... |.....Z.]|
|00000110| 00 0a 00 00 00 51 01 53 | 54 00 00 00 00 00 00 20 |.....Q.S|T...... |
|00000120| 00 00 00 08 00 05 00 92 | 00 0a 00 00 00 6a 01 53 |........|.....j.S|
|00000130| 54 00 00 00 60 00 00 21 | 00 00 00 08 00 79 00 d5 |T...`..!|.....y..|
|00000140| 00 2d 00 00 00 00 08 89 | 01 54 41 a5 02 00 00 00 |.-......|.TA.....|
|00000150| 00 00 04 00 00 06 00 10 | 00 da 00 42 00 1a 03 04 |........|...B....|
|00000160| 00 54 4e ad 02 00 01 00 | 00 70 00 00 00 00 00 00 |.TN.....|.p......|
|00000170| 00 fa 00 00 00 b5 02 8a | 00 b0 02 05 00 54 4f b9 |........|.....TO.|
|00000180| 02 00 00 00 00 30 08 00 | 00 00 00 00 00 2c 01 0c |.....0..|.....,..|
|00000190| 00 ee 02 8b 00 c0 02 2c | 01 3c 00 00 00 cb 02 cf |.......,|.<......|
|000001a0| 02 d8 02 00 00 54 4e f4 | 02 21 01 00 00 60 00 00 |.....TN.|.!...`..|
|000001b0| 00 00 00 00 00 fa 00 00 | 00 02 03 f8 02 06 20 54 |........|...... T|
|000001c0| 4e 06 03 21 01 00 00 60 | 00 00 00 00 00 00 00 c8 |N..!...`|........|
|000001d0| 00 00 00 14 03 0b 03 06 | 20 42 41 20 03 00 00 00 |........| BA ....|
|000001e0| 00 30 10 00 00 2b 00 b1 | 00 8c 00 0c 00 00 00 ff |.0...+..|........|
|000001f0| 0f 2a 03 b4 00 00 00 00 | 00 00 00 45 4e 4c 03 21 |.*......|...ENL.!|
|00000200| 01 00 00 40 00 00 00 b0 | 00 58 00 26 00 0c 00 1a |...@....|.X.&....|
|00000210| 03 06 20 53 46 00 00 00 | 01 00 00 00 00 00 00 02 |.. SF...|........|
|00000220| 00 02 00 e2 00 67 00 00 | 00 53 46 00 00 00 01 00 |.....g..|.SF.....|
|00000230| 00 00 00 00 00 02 00 ad | 00 e2 00 14 00 00 00 53 |........|.......S|
|00000240| 46 00 00 00 01 00 00 00 | 00 00 00 02 00 6e 00 e2 |F.......|.....n..|
|00000250| 00 3a 00 00 00 00 00 00 | 00 75 00 68 00 8d 3c 00 |.:......|.u.h..<.|
|00000260| 00 00 00 03 00 05 00 06 | 00 09 00 00 42 65 77 65 |........|....Bewe|
|00000270| 72 62 52 65 69 73 65 4b | 46 61 68 72 74 4b 46 5a |rbReiseK|FahrtKFZ|
|00000280| 00 22 42 65 77 65 72 62 | 75 6e 67 65 6e 20 22 2b |."Bewerb|ungen "+|
|00000290| 5b 5e 2e 5e 2e 5e 2e 5e | 2e 5e 2e 5e 2e 5e 2e 24 |[^.^.^.^|.^.^.^.$|
|000002a0| 31 30 37 2e 24 31 33 30 | 5d 2b 22 3a 20 22 2b 73 |107.$130|]+": "+s|
|000002b0| 74 72 69 6e 67 28 72 65 | 63 4e 75 6d 29 2b 22 2e |tring(re|cNum)+".|
|000002c0| 20 52 65 69 73 65 20 28 | 46 61 68 72 74 65 6e 29 | Reise (|Fahrten)|
|000002d0| 20 22 00 22 62 65 77 65 | 72 62 2e 66 72 77 22 00 | "."bewe|rb.frw".|
|000002e0| 69 66 28 4d 6f 64 75 73 | 21 3d 32 2c 22 66 6f 72 |if(Modus|!=2,"for|
|000002f0| 6d 6e 32 2e 66 72 77 22 | 2c 69 66 28 70 65 72 73 |mn2.frw"|,if(pers|
|00000300| 6f 6e 3d 3d 30 2c 22 66 | 6f 72 6d 61 6c 65 33 2e |on==0,"f|ormale3.|
|00000310| 66 72 77 22 2c 22 66 6f | 72 6d 61 6c 65 34 2e 66 |frw","fo|rmale4.f|
|00000320| 72 77 22 29 29 00 74 62 | 6c 53 75 6d 28 5b 24 31 |rw")).tb|lSum([$1|
|00000330| 33 37 35 5d 2c 28 5b 24 | 32 34 5d 21 3d 30 26 5b |375],([$|24]!=0&[|
|00000340| 24 31 34 30 30 5d 21 3d | 30 29 7c 28 5b 24 32 34 |$1400]!=|0)|([$24|
|00000350| 5d 3d 3d 30 26 5b 24 31 | 34 30 30 5d 3d 3d 30 29 |]==0&[$1|400]==0)|
|00000360| 2c 30 29 3d 3d 63 6f 75 | 6e 74 28 5b 24 31 33 37 |,0)==cou|nt([$137|
|00000370| 35 5d 29 00 22 49 68 72 | 65 20 41 6e 67 61 62 65 |5])."Ihr|e Angabe|
|00000380| 6e 20 73 69 6e 64 20 75 | 6e 76 6f 6c 6c 73 74 e4 |n sind u|nvollst.|
|00000390| 6e 64 69 67 2e 5c 6e 5c | 72 57 6f 6c 6c 65 6e 20 |ndig.\n\|rWollen |
|000003a0| 53 69 65 20 49 68 72 65 | 20 41 6e 67 61 62 65 6e |Sie Ihre| Angaben|
|000003b0| 20 65 72 67 e4 6e 7a 65 | 6e 3f 22 00 22 41 6e 73 | erg.nze|n?"."Ans|
|000003c0| 65 74 7a 62 61 72 65 20 | 46 61 68 72 74 6b 6f 73 |etzbare |Fahrtkos|
|000003d0| 74 65 6e 22 00 22 46 61 | 68 72 74 65 6e 20 6d 69 |ten"."Fa|hrten mi|
|000003e0| 74 20 65 69 67 65 6e 65 | 6d 20 46 61 68 72 7a 65 |t eigene|m Fahrze|
|000003f0| 75 67 22 00 22 49 68 72 | 65 20 46 61 68 72 74 6b |ug"."Ihr|e Fahrtk|
|00000400| 6f 73 74 65 6e 20 61 75 | 66 67 72 75 6e 64 20 76 |osten au|fgrund v|
|00000410| 6f 6e 20 42 65 77 65 72 | 62 75 6e 67 65 6e 20 6b |on Bewer|bungen k|
|00000420| f6 6e 6e 65 6e 20 53 69 | 65 20 6d 69 74 20 64 65 |.nnen Si|e mit de|
|00000430| 72 20 44 69 65 6e 73 74 | 72 65 69 73 65 70 61 75 |r Dienst|reisepau|
|00000440| 73 63 68 61 6c 65 20 61 | 6e 73 65 74 7a 65 6e 2e |schale a|nsetzen.|
|00000450| 20 44 69 65 73 65 20 62 | 65 74 72 e4 67 74 20 7a | Diese b|etr.gt z|
|00000460| 2e 20 42 2e 20 66 fc 72 | 20 65 69 6e 20 41 75 74 |. B. f.r| ein Aut|
|00000470| 6f 20 22 2b 73 74 72 69 | 6e 67 28 6b 6d 44 69 65 |o "+stri|ng(kmDie|
|00000480| 6e 73 74 2c 22 25 73 20 | 25 63 22 29 2b 22 20 70 |nst,"%s |%c")+" p|
|00000490| 72 6f 20 67 65 66 61 68 | 72 65 6e 65 6e 20 4b 69 |ro gefah|renen Ki|
|000004a0| 6c 6f 6d 65 74 65 72 2e | 48 61 62 65 6e 20 53 69 |lometer.|Haben Si|
|000004b0| 65 20 68 f6 68 65 72 65 | 20 4b 6f 73 74 65 6e 2c |e h.here| Kosten,|
|000004c0| 20 62 65 74 e4 74 69 67 | 65 6e 20 53 69 65 20 64 | bet.tig|en Sie d|
|000004d0| 65 6e 20 53 63 68 61 6c | 74 65 72 20 7a 75 72 20 |en Schal|ter zur |
|000004e0| 42 65 72 65 63 68 6e 75 | 6e 67 20 49 68 72 65 72 |Berechnu|ng Ihrer|
|000004f0| 20 74 61 74 73 e4 63 68 | 6c 69 63 68 65 6e 20 46 | tats.ch|lichen F|
|00000500| 61 68 72 7a 65 75 67 6b | 6f 73 74 65 6e 2e 22 00 |ahrzeugk|osten.".|
|00000510| 46 61 4f 50 65 72 31 00 | 6b 6d 00 22 6b 6d 22 00 |FaOPer1.|km."km".|
|00000520| 24 32 34 00 4b 46 5a 54 | 79 70 00 22 46 61 68 72 |$24.KFZT|yp."Fahr|
|00000530| 7a 65 75 67 22 00 24 32 | 37 00 2f 2e 24 34 2e 24 |zeug".$2|7./.$4.$|
|00000540| 31 39 00 6e 75 6d 49 6e | 54 62 6c 28 29 3c 39 26 |19.numIn|Tbl()<9&|
|00000550| 5b 24 32 30 5d 21 3d 30 | 00 24 31 34 30 30 00 6b |[$20]!=0|.$1400.k|
|00000560| 6d 53 00 22 6b 6d 2d 53 | 61 74 7a 22 00 24 31 37 |mS."km-S|atz".$17|
|00000570| 00 6b 6d 44 4d 00 22 42 | 65 74 72 61 67 22 00 24 |.kmDM."B|etrag".$|
|00000580| 31 34 30 31 00 24 31 33 | 37 35 00 62 74 6e 46 61 |1401.$13|75.btnFa|
|00000590| 68 72 7a 6b 00 22 54 61 | 74 73 e4 63 68 6c 69 63 |hrzk."Ta|ts.chlic|
|000005a0| 68 65 20 46 61 68 72 7a | 65 75 67 6b 6f 73 74 65 |he Fahrz|eugkoste|
|000005b0| 6e 20 2e 2e 2e 22 00 53 | 75 6d 6d 65 00          |n ...".S|umme.   |
+--------+-------------------------+-------------------------+--------+--------+