/ com!online 2002 February / comcd0202.iso / geld / akad / Steuerprogramm / data.z / TeleWerteNovember.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 ae 01 00 00 |ADB 4.04|........|
|00000010| 7f 02 00 00 4c 02 00 00 | 0f 00 00 00 72 01 00 00 |....L...|....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 65 6c 65 57 65 72 | 74 65 4e 6f 76 65 6d 62 |.TeleWer|teNovemb|
|000000a0| 65 72 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |er......|........|
|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 04 01 00 00 00 00 |.DG.....|. ......|
|000000e0| 00 e6 00 c6 00 00 00 13 | 00 03 00 47 52 34 01 00 |........|...GR4..|
|000000f0| 00 00 00 02 04 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 40 01 03 00 54 41 4f | 01 00 00 00 00 00 04 00 |.@...TAO|........|
|00000110| 00 06 00 06 00 da 00 a7 | 00 87 01 02 00 54 54 59 |........|.....TTY|
|00000120| 01 00 01 08 00 30 00 00 | 00 00 00 00 00 2f 03 00 |.....0..|...../..|
|00000130| 00 6c 01 bc 03 5e 01 54 | 4e 71 01 20 01 00 00 70 |.l...^.T|Nq. ...p|
|00000140| 00 00 00 00 00 00 00 b9 | 00 00 00 81 01 bb 03 78 |........|.......x|
|00000150| 01 06 20 53 54 00 00 00 | 00 00 00 20 00 00 00 06 |.. ST...|... ....|
|00000160| 00 b3 00 a0 00 0a 00 00 | 00 8d 01 45 4e b5 01 21 |........|...EN..!|
|00000170| 01 00 00 40 00 00 00 aa | 00 b1 00 28 00 0c 00 bc |...@....|...(....|
|00000180| 01 06 20 47 52 c2 01 00 | 00 00 00 02 04 00 00 00 |.. GR...|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 cc 01 04 00 54 41 db |........|.....TA.|
|000001a0| 01 00 00 00 00 00 04 00 | 00 06 00 06 00 da 00 a7 |........|........|
|000001b0| 00 87 01 03 00 54 54 e6 | 01 00 01 08 00 30 00 00 |.....TT.|.....0..|
|000001c0| 00 00 00 00 00 58 02 00 | 00 6c 01 bc 03 5e 01 54 |.....X..|.l...^.T|
|000001d0| 4e ec 01 20 01 00 00 70 | 00 00 00 00 00 00 00 c8 |N.. ...p|........|
|000001e0| 00 00 00 81 01 bb 03 78 | 01 06 20 54 4e f4 01 20 |.......x|.. TN.. |
|000001f0| 01 00 00 70 00 00 00 00 | 00 00 00 c8 00 00 00 10 |...p....|........|
|00000200| 02 ba 03 fd 01 06 20 53 | 54 00 00 00 00 00 00 20 |...... S|T...... |
|00000210| 00 00 00 06 00 b3 00 78 | 00 0a 00 00 00 16 02 45 |.......x|.......E|
|00000220| 4e 37 02 21 01 00 00 40 | 00 00 00 82 00 b1 00 28 |N7.!...@|.......(|
|00000230| 00 0c 00 bc 01 06 20 45 | 4e 3f 02 21 01 00 00 40 |...... E|N?.!...@|
|00000240| 00 00 00 ac 00 b1 00 28 | 00 0c 00 46 02 06 20 53 |.......(|...F.. S|
|00000250| 46 00 00 00 01 00 00 00 | 00 00 00 02 00 02 00 e2 |F.......|........|
|00000260| 00 c0 00 00 00 00 00 00 | 00 ee 00 e3 00 21 4e 00 |........|.....!N.|
|00000270| 00 00 00 05 00 03 00 04 | 00 09 00 0a 00 0b 00 00 |........|........|
|00000280| 54 65 6c 65 57 65 72 74 | 65 4e 6f 76 65 6d 62 65 |TeleWert|eNovembe|
|00000290| 72 00 69 66 28 4d 6f 64 | 75 73 3d 3d 33 7c 4d 6f |r.if(Mod|us==3|Mo|
|000002a0| 64 75 73 3d 3d 35 2c 73 | 74 72 69 6e 67 28 72 65 |dus==5,s|tring(re|
|000002b0| 63 4e 75 6d 29 2b 22 2e | 20 54 65 6c 65 66 6f 6e |cNum)+".| Telefon|
|000002c0| 61 62 72 65 63 68 6e 75 | 6e 67 3a 20 47 65 62 fc |abrechnu|ng: Geb.|
|000002d0| 68 72 65 6e 20 22 2b 5b | 24 32 33 39 30 5d 2c 73 |hren "+[|$2390],s|
|000002e0| 74 72 69 6e 67 28 72 65 | 63 4e 75 6d 29 2b 22 2e |tring(re|cNum)+".|
|000002f0| 20 54 65 6c 65 66 6f 6e | 61 62 72 65 63 68 6e 75 | Telefon|abrechnu|
|00000300| 6e 67 22 2b 69 66 28 5b | 5e 2e 5e 2e 5e 2e 5e 2e |ng"+if([|^.^.^.^.|
|00000310| 5e 2e 5e 2e 5e 2e 5e 2e | 24 31 30 37 2e 24 31 33 |^.^.^.^.|$107.$13|
|00000320| 30 5d 21 3d 22 22 2c 22 | 20 22 2c 22 22 29 2b 5b |0]!="","| ","")+[|
|00000330| 5e 2e 5e 2e 5e 2e 5e 2e | 5e 2e 5e 2e 5e 2e 5e 2e |^.^.^.^.|^.^.^.^.|
|00000340| 24 31 30 37 2e 24 31 33 | 30 5d 2b 22 3a 20 47 65 |$107.$13|0]+": Ge|
|00000350| 62 fc 68 72 65 6e 20 22 | 2b 5b 24 32 33 39 30 5d |b.hren "|+[$2390]|
|00000360| 29 00 22 74 65 6c 65 2e | 66 72 77 22 00 69 66 28 |)."tele.|frw".if(|
|00000370| 4d 6f 64 75 73 21 3d 32 | 2c 22 66 6f 72 6d 6e 32 |Modus!=2|,"formn2|
|00000380| 2e 66 72 77 22 2c 69 66 | 28 70 65 72 73 6f 6e 3d |.frw",if|(person=|
|00000390| 3d 30 2c 22 66 6f 72 6d | 61 6c 65 33 2e 66 72 77 |=0,"form|ale3.frw|
|000003a0| 22 2c 22 66 6f 72 6d 61 | 6c 65 34 2e 66 72 77 22 |","forma|le4.frw"|
|000003b0| 29 29 00 67 72 70 50 61 | 75 73 63 68 61 6c 00 5b |)).grpPa|uschal.[|
|000003c0| 5e 2e 5e 2e 5e 2e 24 32 | 30 5d 3d 3d 31 00 47 65 |^.^.^.$2|0]==1.Ge|
|000003d0| 62 75 65 68 72 65 6e 00 | 54 65 78 74 00 22 42 65 |buehren.|Text."Be|
|000003e0| 7a 65 69 63 68 6e 75 6e | 67 22 00 24 36 35 34 00 |zeichnun|g".$654.|
|000003f0| 47 65 73 61 6d 74 00 22 | 42 65 74 72 61 67 22 00 |Gesamt."|Betrag".|
|00000400| 24 31 37 31 39 00 24 32 | 31 37 39 00 22 53 75 6d |$1719.$2|179."Sum|
|00000410| 6d 65 20 64 65 72 20 54 | 65 6c 65 66 6f 6e 67 65 |me der T|elefonge|
|00000420| 62 fc 68 72 65 6e 20 69 | 6d 20 22 2b 5b 24 32 33 |b.hren i|m "+[$23|
|00000430| 39 30 5d 00 4d 6f 6e 47 | 65 73 00 24 31 32 37 38 |90].MonG|es.$1278|
|00000440| 00 67 72 70 45 69 6e 7a | 65 6c 00 5b 5e 2e 5e 2e |.grpEinz|el.[^.^.|
|00000450| 5e 2e 24 32 30 5d 3d 3d | 32 00 47 65 62 75 65 68 |^.$20]==|2.Gebueh|
|00000460| 72 65 6e 32 00 54 65 78 | 74 32 00 47 65 73 61 6d |ren2.Tex|t2.Gesam|
|00000470| 74 32 00 44 61 76 6f 6e | 46 69 78 00 22 64 61 76 |t2.Davon|Fix."dav|
|00000480| 6f 6e 5c 6e 46 69 78 6b | 6f 73 74 65 6e 22 00 24 |on\nFixk|osten".$|
|00000490| 32 30 33 37 00 22 53 75 | 6d 6d 65 20 64 65 72 20 |2037."Su|mme der |
|000004a0| 47 65 62 fc 68 72 65 6e | 20 69 6d 20 22 2b 5b 24 |Geb.hren| im "+[$|
|000004b0| 32 33 39 30 5d 00 4d 6f | 6e 47 65 73 32 00 4d 6f |2390].Mo|nGes2.Mo|
|000004c0| 6e 46 69 78 00 24 31 32 | 37 39 00                |nFix.$12|79.     |
+--------+-------------------------+-------------------------+--------+--------+