AFA-TABELLE
FILE INFORMATION
FILENAME(S): AFA-TABELLE
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-11-30 21:12:03
APPEARS ON: 1 disk(s)
FILE HASH
06e82f7643452eebc0609249080e0d580ea208f4e40b3d5aafec15af232de5fc
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| KONTOMAT | AFA-TABELLE | PRG | DuncanTwain | 19 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 11 08 00 00 8F 22 14 14 14 14 14 14 14 22 |......."......."|
00000010: CC 00 3E 08 01 00 00 41 3A 3A 3A 3A 20 97 36 34 |..>....A:::: .64|
00000020: 39 2C 32 3A 97 37 39 32 2C 31 39 33 3A 97 37 37 |9,2:.792,193:.77|
00000030: 34 2C 32 32 36 3A 97 37 37 35 2C 32 35 32 00 57 |4,226:.775,252.W|
00000040: 08 02 00 00 3A 3A 3A 3A 3A 20 9F 31 2C 38 2C 31 |....::::: .1,8,1|
00000050: 35 2C 22 4E 3A 58 22 00 71 08 03 00 00 3A 3A 3A |5,"N:X".q....:::|
00000060: 3A 3A 20 84 31 2C 41 24 2C 42 24 2C 43 24 2C 44 |:: .1,A$,B$,C$,D|
00000070: 24 00 8D 08 04 00 00 3A 3A 3A 3A 3A 20 8B 41 24 |$......::::: .A$|
00000080: B3 B1 22 37 33 22 A7 9E 36 34 37 33 38 00 9D 08 |.."73"..64738...|
00000090: 05 00 00 3A 3A 3A 3A 3A 20 A0 31 3A 9C 00 B6 08 |...::::: .1:....|
000000A0: 0A 00 00 3A 3A 3A 3A 3A 20 86 41 24 28 32 30 2C |...::::: .A$(20,|
000000B0: 38 29 3A 49 B2 31 00 D3 08 0B 00 00 3A 3A 3A 3A |8):I.1......::::|
000000C0: 3A 20 97 35 33 32 38 30 2C 32 3A 97 35 33 32 38 |: .53280,2:.5328|
000000D0: 31 2C 32 00 FE 08 0F 00 99 22 93 9E 22 3B 3A 99 |1,2......"..";:.|
000000E0: A3 38 29 3B 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.8);"***********|
000000F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 22 |*************"."|
00000100: 09 14 00 99 A3 38 29 3B 22 41 20 46 20 41 20 20 |.....8);"A F A |
00000110: 2D 20 20 54 20 41 20 42 20 45 20 4C 20 4C 20 45 |- T A B E L L E|
00000120: 20 22 00 4A 09 19 00 99 A3 38 29 3B 22 2A 2A 2A | ".J.....8);"***|
00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000140: 2A 2A 2A 2A 2A 22 3A 99 3A 99 00 56 09 1A 00 8B |*****":.:..V....|
00000150: 49 B1 31 A7 35 30 00 6E 09 1E 00 99 22 4C 41 55 |I.1.50.n...."LAU|
00000160: 46 45 4E 44 45 53 20 4A 41 48 52 22 3B 3A 00 A2 |FENDES JAHR";:..|
00000170: 09 28 00 85 4A 5A 24 3A 8B C3 28 4A 5A 24 29 B3 |.(..JZ$:..(JZ$).|
00000180: B1 34 B0 4A 5A 24 B3 22 31 39 38 32 22 B0 4A 5A |.4.JZ$."1982".JZ|
00000190: 24 B1 22 32 31 30 30 22 A7 99 22 91 22 3B 3A 89 |$."2100"..".";:.|
000001A0: 34 30 00 AA 09 32 00 99 3A 99 00 CA 09 3C 00 99 |40...2..:....<..|
000001B0: 22 47 45 47 45 4E 53 54 41 4E 44 20 20 20 20 3A |"GEGENSTAND :|
000001C0: 20 22 3B 41 24 28 49 2C 31 29 00 EA 09 46 00 99 | ";A$(I,1)...F..|
000001D0: 22 41 4E 53 43 48 2E 2D 4A 41 48 52 20 20 20 3A |"ANSCH.-JAHR :|
000001E0: 20 22 3B 41 24 28 49 2C 32 29 00 0A 0A 50 00 99 | ";A$(I,2)...P..|
000001F0: 22 41 4E 53 43 48 2E 2D 57 45 52 54 20 20 20 3A |"ANSCH.-WERT :|
00000200: 20 22 3B 41 24 28 49 2C 33 29 00 2A 0A 5A 00 99 | ";A$(I,3).*.Z..|
00000210: 22 5A 45 49 54 57 45 52 54 20 31 2E 31 20 20 3A |"ZEITWERT 1.1 :|
00000220: 20 22 3B 41 24 28 49 2C 34 29 00 4A 0A 64 00 99 | ";A$(I,4).J.d..|
00000230: 22 41 46 41 2D 53 41 54 5A 20 28 25 29 20 20 3A |"AFA-SATZ (%) :|
00000240: 20 22 3B 41 24 28 49 2C 35 29 00 58 0A 69 00 99 | ";A$(I,5).X.i..|
00000250: 22 91 91 91 91 91 22 3B 00 63 0A 6E 00 81 58 B2 |".....";.c.n..X.|
00000260: 31 A4 35 00 6E 0A 73 00 99 A3 31 34 29 3B 00 7B |1.5.n.s...14);.{|
00000270: 0A 75 00 85 41 24 28 49 2C 58 29 00 82 0A 76 00 |.u..A$(I,X)...v.|
00000280: 82 58 00 A0 0A 78 00 99 3A 99 22 52 49 43 48 54 |.X...x..:."RICHT|
00000290: 49 47 20 28 12 46 31 92 2F 12 46 33 92 29 3F 22 |IG (.F1./.F3.)?"|
000002A0: 00 BD 0A 82 00 A1 58 24 3A 8B 58 24 B3 B1 22 85 |......X$:.X$..".|
000002B0: 22 AF 58 24 B3 B1 22 86 22 A7 31 33 30 00 D9 0A |".X$..".".130...|
000002C0: 8C 00 8B 58 24 B2 22 86 22 A7 99 22 91 91 91 91 |...X$.".".."....|
000002D0: 91 91 91 91 22 3A 89 36 30 00 04 0B 96 00 41 24 |....":.60.....A$|
000002E0: 28 49 2C 36 29 B2 C4 28 28 C5 28 41 24 28 49 2C |(I,6)..((.(A$(I,|
000002F0: 33 29 29 AD 31 30 30 29 AC C5 28 41 24 28 49 2C |3)).100)..(A$(I,|
00000300: 35 29 29 29 00 29 0B A0 00 41 24 28 49 2C 37 29 |5))).)...A$(I,7)|
00000310: B2 C4 28 C5 28 41 24 28 49 2C 34 29 29 AB C5 28 |..(.(A$(I,4))..(|
00000320: 41 24 28 49 2C 36 29 29 29 00 48 0B AA 00 99 22 |A$(I,6))).H...."|
00000330: 91 91 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..--------------|
00000340: 2D 2D 2D 2D 2D 2D 2D 22 00 68 0B B4 00 99 22 41 |-------".h...."A|
00000350: 42 53 43 48 52 45 49 42 55 4E 47 20 20 3A 20 22 |BSCHREIBUNG : "|
00000360: 3B 41 24 28 49 2C 36 29 00 88 0B BE 00 99 22 5A |;A$(I,6)......"Z|
00000370: 45 49 54 57 2E 20 20 33 31 2E 31 32 2E 3A 20 22 |EITW. 31.12.: "|
00000380: 3B 41 24 28 49 2C 37 29 00 B5 0B C8 00 99 3A 99 |;A$(I,7)......:.|
00000390: 22 57 45 49 54 45 52 45 20 41 42 53 43 48 52 45 |"WEITERE ABSCHRE|
000003A0: 49 42 55 4E 47 45 4E 20 28 12 46 31 92 2F 12 46 |IBUNGEN (.F1./.F|
000003B0: 33 92 29 3F 22 00 D2 0B D2 00 A1 58 24 3A 8B 58 |3.)?"......X$:.X|
000003C0: 24 B3 B1 22 85 22 AF 58 24 B3 B1 22 86 22 A7 32 |$..".".X$..".".2|
000003D0: 31 30 00 E9 0B DC 00 8B 58 24 B2 22 85 22 A7 49 |10......X$.".".I|
000003E0: B2 49 AA 31 3A 89 20 31 35 00 0D 0C E6 00 99 22 |.I.1:. 15......"|
000003F0: 44 52 55 43 4B 45 52 20 42 45 52 45 49 54 20 4D |DRUCKER BEREIT M|
00000400: 41 43 48 45 4E 20 20 20 12 46 37 92 22 00 22 0C |ACHEN .F7.".".|
00000410: F0 00 A1 58 24 3A 8B 58 24 B3 B1 22 88 22 A7 32 |...X$:.X$..".".2|
00000420: 34 30 00 2B 0C FA 00 9F 31 2C 34 00 58 0C FF 00 |40.+....1,4.X...|
00000430: 98 31 2C A6 32 35 29 3B 22 3D 3D 3D 3D 3D 3D 3D |.1,.25);"=======|
00000440: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000450: 3D 3D 3D 3D 3D 3D 3D 22 00 85 0C 04 01 98 31 2C |======="......1,|
00000460: A6 32 35 29 3B 22 41 20 46 20 41 20 20 2D 20 20 |.25);"A F A - |
00000470: 54 20 41 20 42 20 45 20 4C 20 4C 20 45 20 20 20 |T A B E L L E |
00000480: 22 3B 4A 5A 24 00 B2 0C 0E 01 98 31 2C A6 32 35 |";JZ$......1,.25|
00000490: 29 3B 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |);"=============|
000004A0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000004B0: 3D 22 00 BC 0C 18 01 98 31 3A 98 31 00 06 0D 22 |="......1:.1..."|
000004C0: 01 98 31 2C 22 47 45 47 45 4E 53 54 41 4E 44 20 |..1,"GEGENSTAND |
000004D0: 20 20 20 20 20 20 20 20 41 4E 53 43 48 41 46 46 | ANSCHAFF|
000004E0: 55 4E 47 53 2D 20 20 5A 45 49 54 57 45 52 54 20 |UNGS- ZEITWERT |
000004F0: 20 20 20 20 20 20 41 42 53 43 48 52 45 49 42 55 | ABSCHREIBU|
00000500: 4E 47 20 20 22 3B 00 18 0D 27 01 98 31 2C 22 5A |NG ";...'..1,"Z|
00000510: 45 49 54 57 45 52 54 22 00 54 0D 2C 01 98 31 2C |EITWERT".T.,..1,|
00000520: A6 31 39 29 3B 22 4A 41 48 52 20 20 57 45 52 54 |.19);"JAHR WERT|
00000530: 20 20 20 20 20 20 20 31 2E 31 2E 20 20 20 20 20 | 1.1. |
00000540: 20 20 20 20 25 20 20 20 20 44 4D 20 20 20 20 20 | % DM |
00000550: 20 20 22 3B 00 65 0D 36 01 98 31 2C 22 20 33 31 | ";.e.6..1," 31|
00000560: 2E 31 32 2E 22 00 AF 0D 40 01 98 31 2C 22 2D 2D |.12."...@..1,"--|
00000570: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000580: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000590: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000005A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3B 00 |-------------";.|
000005B0: C7 0D 4A 01 98 31 2C 22 2D 2D 2D 2D 2D 2D 2D 2D |..J..1,"--------|
000005C0: 2D 2D 2D 2D 2D 2D 22 00 D2 0D 54 01 81 58 B2 31 |------"...T..X.1|
000005D0: A4 49 00 F2 0D 5E 01 98 31 2C 41 24 28 58 2C 31 |.I...^..1,A$(X,1|
000005E0: 29 3B A6 31 39 AB C3 28 41 24 28 58 2C 31 29 29 |);.19..(A$(X,1))|
000005F0: 29 3B 00 06 0E 68 01 98 31 2C 41 24 28 58 2C 32 |);...h..1,A$(X,2|
00000600: 29 3B A6 32 29 3B 00 26 0E 72 01 98 31 2C 41 24 |);.2);.&.r..1,A$|
00000610: 28 58 2C 33 29 3B A6 31 31 AB C3 28 41 24 28 58 |(X,3);.11..(A$(X|
00000620: 2C 33 29 29 29 3B 00 46 0E 7C 01 98 31 2C 41 24 |,3)));.F.|..1,A$|
00000630: 28 58 2C 34 29 3B A6 31 33 AB C3 28 41 24 28 58 |(X,4);.13..(A$(X|
00000640: 2C 34 29 29 29 3B 00 65 0E 86 01 98 31 2C 41 24 |,4)));.e....1,A$|
00000650: 28 58 2C 35 29 3B A6 34 AB C3 28 41 24 28 58 2C |(X,5);.4..(A$(X,|
00000660: 35 29 29 29 3B 00 85 0E 90 01 98 31 2C 41 24 28 |5)));......1,A$(|
00000670: 58 2C 36 29 3B A6 31 30 AB C3 28 41 24 28 58 2C |X,6);.10..(A$(X,|
00000680: 36 29 29 29 3B 00 94 0E 9A 01 98 31 2C 41 24 28 |6)));......1,A$(|
00000690: 58 2C 37 29 00 9B 0E A4 01 82 58 00 E5 0E AE 01 |X,7)......X.....|
000006A0: 98 31 2C 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.1,"------------|
000006B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006E0: 2D 2D 2D 22 3B 00 FD 0E B8 01 98 31 2C 22 2D 2D |---";......1,"--|
000006F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 08 0F |------------"...|
00000700: BD 01 81 58 B2 31 A4 49 00 1D 0F C2 01 41 57 B2 |...X.1.I.....AW.|
00000710: 41 57 AA C5 28 41 24 28 58 2C 33 29 29 00 32 0F |AW..(A$(X,3)).2.|
00000720: CC 01 5A 41 B2 5A 41 AA C5 28 41 24 28 58 2C 34 |..ZA.ZA..(A$(X,4|
00000730: 29 29 00 47 0F D6 01 41 42 B2 41 42 AA C5 28 41 |)).G...AB.AB..(A|
00000740: 24 28 58 2C 36 29 29 00 5C 0F E0 01 5A 4E B2 5A |$(X,6)).\...ZN.Z|
00000750: 4E AA C5 28 41 24 28 58 2C 37 29 29 00 63 0F E5 |N..(A$(X,7)).c..|
00000760: 01 82 58 00 70 0F E6 01 98 31 2C A6 32 34 29 3B |..X.p....1,.24);|
00000770: 00 8C 0F EA 01 98 31 2C C4 28 41 57 29 3B A6 31 |......1,.(AW);.1|
00000780: 31 AB C3 28 C4 28 41 57 29 29 29 3B 00 A8 0F F4 |1..(.(AW)));....|
00000790: 01 98 31 2C C4 28 5A 41 29 3B A6 31 38 AB C3 28 |..1,.(ZA);.18..(|
000007A0: C4 28 5A 41 29 29 29 3B 00 C4 0F FE 01 98 31 2C |.(ZA)));......1,|
000007B0: C4 28 41 42 29 3B A6 31 30 AB C3 28 C4 28 41 42 |.(AB);.10..(.(AB|
000007C0: 29 29 29 3B 00 D1 0F 08 02 98 31 2C C4 28 5A 4E |)));......1,.(ZN|
000007D0: 29 00 D8 0F 12 02 A0 31 00 00 10 1C 02 99 22 93 |)......1......".|
000007E0: 11 11 11 50 52 4F 47 52 41 4D 4D 44 49 53 4B 45 |...PROGRAMMDISKE|
000007F0: 54 54 45 20 45 49 4E 4C 45 47 45 4E 21 21 11 22 |TTE EINLEGEN!!."|
00000800: 00 13 10 26 02 99 A6 32 30 29 3B 22 12 20 46 37 |...&...20);". F7|
00000810: 20 92 22 00 28 10 30 02 A1 58 24 3A 8B 58 24 B3 | .".(.0..X$:.X$.|
00000820: B1 22 88 22 A7 35 36 30 00 4A 10 3A 02 99 22 93 |.".".560.J.:..".|
00000830: 1C 11 11 11 4C 4F 41 44 22 C7 28 33 34 29 22 4D |....LOAD".(34)"M|
00000840: 22 C7 28 33 34 29 22 2C 38 22 00 65 10 44 02 97 |".(34)",8".e.D..|
00000850: 36 33 31 2C 31 33 3A 97 36 33 32 2C 31 33 3A 97 |631,13:.632,13:.|
00000860: 31 39 38 2C 32 00 74 10 4E 02 99 22 11 11 11 11 |198,2.t.N.."....|
00000870: 52 55 4E 22 00 A4 10 58 02 99 22 9E 11 11 44 41 |RUN"...X.."...DA|
00000880: 53 20 4D 45 4E 55 45 50 52 4F 47 52 41 4D 4D 20 |S MENUEPROGRAMM |
00000890: 57 49 52 44 20 49 4E 20 44 45 4E 20 52 45 43 48 |WIRD IN DEN RECH|
000008A0: 4E 45 52 22 00 D1 10 62 02 99 22 45 49 4E 47 45 |NER"...b.."EINGE|
000008B0: 4C 41 44 45 4E 20 55 4E 44 20 41 55 54 4F 4D 41 |LADEN UND AUTOMA|
000008C0: 54 49 53 43 48 20 47 45 53 54 41 52 54 45 54 2E |TISCH GESTARTET.|
000008D0: 22 00 F0 10 6C 02 99 22 42 49 54 54 45 20 45 54 |"...l.."BITTE ET|
000008E0: 57 41 53 20 47 45 44 55 4C 44 2E 2E 2E 1C 9E 22 |WAS GEDULD....."|
000008F0: 00 F6 10 76 02 80 00 00 00 |...v..... |
......."......."L.>....A:::: .649,2:.792
,193:.774,226:.775,252.W....::::: .1,8,1
5,"N:X".Q....::::: .1,A$,B$,C$,D$......:
:::: .A$.."73"..64738......::::: 1:....
...::::: .A$(20,8):I.1.S....::::: .53280
,2:.53281,2......"..";:..8);"***********
*************".".....8);"A F A - T A B
E L L E ".J.....8);"*******************
*****":.:..V....I.1.50.N...."LAUFENDES J
AHR";:...(..JZ$:.C(JZ$)..4.JZ$."1982".JZ
$."2100"..".";:.40...2..:..J.<.."GEGENST
AND : ";A$(I,1)...F.."ANSCH.-JAHR :
";A$(I,2)...P.."ANSCH.-WERT : ";A$(I,
3).*.Z.."ZEITWERT 1.1 : ";A$(I,4).J.D..
"AFA-SATZ (%) : ";A$(I,5).X.I..".....";
.C.N..X.1.5.N.S...14);.{.U..A$(I,X)...V.
.X. .X..:."RICHTIG (.F1./.F3.)?"......X$
:.X$..".".X$..".".130.Y....X$.".".."....
....":.60.....A$(I,6).D((E(A$(I,3)).100)
.E(A$(I,5))).). .A$(I,7).D(E(A$(I,4)).E(
A$(I,6))).H...."..---------------------"
.H...."ABSCHREIBUNG : ";A$(I,6)......"Z
EITW. 31.12.: ";A$(I,7)...H..:."WEITERE
ABSCHREIBUNGEN (.F1./.F3.)?".R.R..X$:.X
$..".".X$..".".210......X$.".".I.I.1:. 1
5......"DRUCKER BEREIT MACHEN .F7.".".
...X$:.X$..".".240.+....1,4.X....1,.25);
"=============================="......1,
.25);"A F A - T A B E L L E ";JZ$...
...1,.25);"=============================
="......1:.1..."..1,"GEGENSTAND
ANSCHAFFUNGS- ZEITWERT ABSCHREIBU
NG ";...'..1,"ZEITWERT".T.,..1,.19);"JA
HR WERT 1.1. % DM
";.E.6..1," 31.12."...@..1,"----------
----------------------------------------
-------------";.G.J..1,"--------------".
R.T..X.1.I...^..1,A$(X,1);.19.C(A$(X,1))
);...H..1,A$(X,2);.2);.&.R..1,A$(X,3);.1
1.C(A$(X,3)));.F.|..1,A$(X,4);.13.C(A$(X
,4)));.E....1,A$(X,5);.4.C(A$(X,5)));...
...1,A$(X,6);.10.C(A$(X,6)));......1,A$(
X,7)......X......1,"--------------------
----------------------------------------
---";......1,"--------------"......X.1.I
...B.AW.AW.E(A$(X,3)).2.L.ZA.ZA.E(A$(X,4
)).G.V.AB.AB.E(A$(X,6)).\...ZN.ZN.E(A$(X
,7)).C....X.P....1,.24);......1,D(AW);.1
1.C(D(AW)));......1,D(ZA);.18.C(D(ZA)));
.D....1,D(AB);.10.C(D(AB)));.Q....1,D(ZN
).X... 1......"....PROGRAMMDISKETTE EINL
EGEN!!."...&...20);". F7 .".(.0..X$:.X$.
.".".560.J.:..".....LOAD"G(34)"M"G(34)",
8".E.D..631,13:.632,13:.198,2.T.N.."....
RUN"...X.."...DAS MENUEPROGRAMM WIRD IN
DEN RECHNER".Q.B.."EINGELADEN UND AUTOMA
TISCH GESTARTET."...L.."BITTE ETWAS GEDU
LD....."...V.....
> CLICK IMAGE PREVIEW FOR FULL MODAL