AFA-TABELLE
FILE INFORMATION
FILENAME(S): AFA-TABELLE
FILE TYPE(S): PRG
FILE SIZE: 2.3K
FIRST SEEN: 2025-11-02 16:54:36
APPEARS ON: 1 disk(s)
FILE HASH
2a84fd65e21fe397cd9f565009a093ba9bbddca76084762d1be3c9cdbd277d16
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 036B | AFA-TABELLE | PRG | Treasure Chest - Reamigation | 23 | 4 | 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 44 08 00 00 00 3A 3A 3A 3A 97 37 38 38 2C |..D....::::.788,| 00000020: 35 32 3A 97 37 39 32 2C 31 39 33 3A 97 36 34 39 |52:.792,193:.649| 00000030: 2C 32 3A 97 37 37 34 2C 32 32 36 3A 97 37 37 35 |,2:.774,226:.775| 00000040: 2C 32 35 32 00 64 08 00 00 00 3A 3A 3A 3A 9F 31 |,252.d....::::.1| 00000050: 2C 38 2C 32 2C 22 4B 55 4E 44 45 4E 54 45 58 54 |,8,2,"KUNDENTEXT| 00000060: 22 3A A0 31 00 75 08 00 00 00 3A 3A 3A 3A 9F 31 |":.1.u....::::.1| 00000070: 2C 38 2C 31 35 00 8D 08 00 00 00 3A 3A 3A 3A 84 |,8,15......::::.| 00000080: 31 2C 41 24 2C 42 24 2C 43 24 2C 44 24 00 A2 08 |1,A$,B$,C$,D$...| 00000090: 00 00 00 3A 3A 3A 3A 8B 41 24 B2 22 30 30 22 A7 |...::::.A$."00".| 000000A0: 31 30 00 B4 08 00 00 00 3A 3A 3A 3A 98 31 2C 22 |10......::::.1,"| 000000B0: 4E 3A 58 22 00 CC 08 00 00 00 3A 3A 3A 3A 84 31 |N:X"......::::.1| 000000C0: 2C 41 24 2C 42 24 2C 43 24 2C 44 24 00 E6 08 00 |,A$,B$,C$,D$....| 000000D0: 00 00 3A 3A 3A 3A 8B 41 24 B3 B1 22 37 33 22 A7 |..::::.A$.."73".| 000000E0: 9E 36 34 37 33 38 00 F4 08 00 00 00 3A 3A 3A 3A |.64738......::::| 000000F0: A0 31 3A 9C 00 18 09 0A 00 86 41 24 28 32 30 2C |.1:.......A$(20,| 00000100: 38 29 3A 49 B2 31 3A 97 35 33 32 38 30 2C 32 3A |8):I.1:.53280,2:| 00000110: 97 35 33 32 38 31 2C 32 00 43 09 0F 00 99 22 93 |.53281,2.C....".| 00000120: 9E 22 3B 3A 99 A3 38 29 3B 22 2A 2A 2A 2A 2A 2A |.";:..8);"******| 00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000140: 2A 2A 22 00 67 09 14 00 99 A3 38 29 3B 22 41 20 |**".g.....8);"A | 00000150: 46 20 41 20 20 2D 20 20 54 20 41 20 42 20 45 20 |F A - T A B E | 00000160: 4C 20 4C 20 45 20 22 00 8F 09 19 00 99 A3 38 29 |L L E ".......8)| 00000170: 3B 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;"**************| 00000180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 3A 99 3A 99 00 |**********":.:..| 00000190: 9B 09 1A 00 8B 49 B1 31 A7 35 30 00 B3 09 1E 00 |.....I.1.50.....| 000001A0: 99 22 4C 41 55 46 45 4E 44 45 53 20 4A 41 48 52 |."LAUFENDES JAHR| 000001B0: 22 3B 3A 00 E7 09 28 00 85 4A 5A 24 3A 8B C3 28 |";:...(..JZ$:..(| 000001C0: 4A 5A 24 29 B3 B1 34 B0 4A 5A 24 B3 22 31 39 38 |JZ$)..4.JZ$."198| 000001D0: 32 22 B0 4A 5A 24 B1 22 32 31 30 30 22 A7 99 22 |2".JZ$."2100".."| 000001E0: 91 22 3B 3A 89 34 30 00 EF 09 32 00 99 3A 99 00 |.";:.40...2..:..| 000001F0: 0F 0A 3C 00 99 22 47 45 47 45 4E 53 54 41 4E 44 |..<.."GEGENSTAND| 00000200: 20 20 20 20 3A 20 22 3B 41 24 28 49 2C 31 29 00 | : ";A$(I,1).| 00000210: 2F 0A 46 00 99 22 41 4E 53 43 48 2E 2D 4A 41 48 |/.F.."ANSCH.-JAH| 00000220: 52 20 20 20 3A 20 22 3B 41 24 28 49 2C 32 29 00 |R : ";A$(I,2).| 00000230: 4F 0A 50 00 99 22 41 4E 53 43 48 2E 2D 57 45 52 |O.P.."ANSCH.-WER| 00000240: 54 20 20 20 3A 20 22 3B 41 24 28 49 2C 33 29 00 |T : ";A$(I,3).| 00000250: 6F 0A 5A 00 99 22 5A 45 49 54 57 45 52 54 20 31 |o.Z.."ZEITWERT 1| 00000260: 2E 31 20 20 3A 20 22 3B 41 24 28 49 2C 34 29 00 |.1 : ";A$(I,4).| 00000270: 8F 0A 64 00 99 22 41 46 41 2D 53 41 54 5A 20 28 |..d.."AFA-SATZ (| 00000280: 25 29 20 20 3A 20 22 3B 41 24 28 49 2C 35 29 00 |%) : ";A$(I,5).| 00000290: 9D 0A 69 00 99 22 91 91 91 91 91 22 3B 00 A8 0A |..i..".....";...| 000002A0: 6E 00 81 58 B2 31 A4 35 00 B3 0A 73 00 99 A3 31 |n..X.1.5...s...1| 000002B0: 34 29 3B 00 C0 0A 75 00 85 41 24 28 49 2C 58 29 |4);...u..A$(I,X)| 000002C0: 00 C7 0A 76 00 82 58 00 E5 0A 78 00 99 3A 99 22 |...v..X...x..:."| 000002D0: 52 49 43 48 54 49 47 20 28 12 46 31 92 2F 12 46 |RICHTIG (.F1./.F| 000002E0: 33 92 29 3F 22 00 02 0B 82 00 A1 58 24 3A 8B 58 |3.)?"......X$:.X| 000002F0: 24 B3 B1 22 85 22 AF 58 24 B3 B1 22 86 22 A7 31 |$..".".X$..".".1| 00000300: 33 30 00 1E 0B 8C 00 8B 58 24 B2 22 86 22 A7 99 |30......X$."."..| 00000310: 22 91 91 91 91 91 91 91 91 22 3A 89 36 30 00 49 |"........":.60.I| 00000320: 0B 96 00 41 24 28 49 2C 36 29 B2 C4 28 28 C5 28 |...A$(I,6)..((.(| 00000330: 41 24 28 49 2C 33 29 29 AD 31 30 30 29 AC C5 28 |A$(I,3)).100)..(| 00000340: 41 24 28 49 2C 35 29 29 29 00 6E 0B A0 00 41 24 |A$(I,5))).n...A$| 00000350: 28 49 2C 37 29 B2 C4 28 C5 28 41 24 28 49 2C 34 |(I,7)..(.(A$(I,4| 00000360: 29 29 AB C5 28 41 24 28 49 2C 36 29 29 29 00 8D |))..(A$(I,6)))..| 00000370: 0B AA 00 99 22 91 91 2D 2D 2D 2D 2D 2D 2D 2D 2D |...."..---------| 00000380: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 AD 0B |------------"...| 00000390: B4 00 99 22 41 42 53 43 48 52 45 49 42 55 4E 47 |..."ABSCHREIBUNG| 000003A0: 20 20 3A 20 22 3B 41 24 28 49 2C 36 29 00 CD 0B | : ";A$(I,6)...| 000003B0: BE 00 99 22 5A 45 49 54 57 2E 20 20 33 31 2E 31 |..."ZEITW. 31.1| 000003C0: 32 2E 3A 20 22 3B 41 24 28 49 2C 37 29 00 FA 0B |2.: ";A$(I,7)...| 000003D0: C8 00 99 3A 99 22 57 45 49 54 45 52 45 20 41 42 |...:."WEITERE AB| 000003E0: 53 43 48 52 45 49 42 55 4E 47 45 4E 20 28 12 46 |SCHREIBUNGEN (.F| 000003F0: 31 92 2F 12 46 33 92 29 3F 22 00 17 0C D2 00 A1 |1./.F3.)?"......| 00000400: 58 24 3A 8B 58 24 B3 B1 22 85 22 AF 58 24 B3 B1 |X$:.X$..".".X$..| 00000410: 22 86 22 A7 32 31 30 00 2E 0C DC 00 8B 58 24 B2 |".".210......X$.| 00000420: 22 85 22 A7 49 B2 49 AA 31 3A 89 20 31 35 00 52 |".".I.I.1:. 15.R| 00000430: 0C E6 00 99 22 44 52 55 43 4B 45 52 20 42 45 52 |...."DRUCKER BER| 00000440: 45 49 54 20 4D 41 43 48 45 4E 20 20 20 12 46 37 |EIT MACHEN .F7| 00000450: 92 22 00 67 0C F0 00 A1 58 24 3A 8B 58 24 B3 B1 |.".g....X$:.X$..| 00000460: 22 88 22 A7 32 34 30 00 70 0C FA 00 9F 31 2C 34 |".".240.p....1,4| 00000470: 00 9D 0C FF 00 98 31 2C A6 32 35 29 3B 22 3D 3D |......1,.25);"==| 00000480: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00000490: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 00 CA 0C |============"...| 000004A0: 04 01 98 31 2C A6 32 35 29 3B 22 41 20 46 20 41 |...1,.25);"A F A| 000004B0: 20 20 2D 20 20 54 20 41 20 42 20 45 20 4C 20 4C | - T A B E L L| 000004C0: 20 45 20 20 20 22 3B 4A 5A 24 00 F7 0C 0E 01 98 | E ";JZ$......| 000004D0: 31 2C A6 32 35 29 3B 22 3D 3D 3D 3D 3D 3D 3D 3D |1,.25);"========| 000004E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 000004F0: 3D 3D 3D 3D 3D 3D 22 00 01 0D 18 01 98 31 3A 98 |======"......1:.| 00000500: 31 00 4B 0D 22 01 98 31 2C 22 47 45 47 45 4E 53 |1.K."..1,"GEGENS| 00000510: 54 41 4E 44 20 20 20 20 20 20 20 20 20 41 4E 53 |TAND ANS| 00000520: 43 48 41 46 46 55 4E 47 53 2D 20 20 5A 45 49 54 |CHAFFUNGS- ZEIT| 00000530: 57 45 52 54 20 20 20 20 20 20 20 41 42 53 43 48 |WERT ABSCH| 00000540: 52 45 49 42 55 4E 47 20 20 22 3B 00 5D 0D 27 01 |REIBUNG ";.].'.| 00000550: 98 31 2C 22 5A 45 49 54 57 45 52 54 22 00 99 0D |.1,"ZEITWERT"...| 00000560: 2C 01 98 31 2C A6 31 39 29 3B 22 4A 41 48 52 20 |,..1,.19);"JAHR | 00000570: 20 57 45 52 54 20 20 20 20 20 20 20 31 2E 31 2E | WERT 1.1.| 00000580: 20 20 20 20 20 20 20 20 20 25 20 20 20 20 44 4D | % DM| 00000590: 20 20 20 20 20 20 20 22 3B 00 AA 0D 36 01 98 31 | ";...6..1| 000005A0: 2C 22 20 33 31 2E 31 32 2E 22 00 F4 0D 40 01 98 |," 31.12."...@..| 000005B0: 31 2C 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |1,"-------------| 000005C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000005D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000005E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000005F0: 2D 2D 22 3B 00 0C 0E 4A 01 98 31 2C 22 2D 2D 2D |--";...J..1,"---| 00000600: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 17 0E 54 |-----------"...T| 00000610: 01 81 58 B2 31 A4 49 00 37 0E 5E 01 98 31 2C 41 |..X.1.I.7.^..1,A| 00000620: 24 28 58 2C 31 29 3B A6 31 39 AB C3 28 41 24 28 |$(X,1);.19..(A$(| 00000630: 58 2C 31 29 29 29 3B 00 4B 0E 68 01 98 31 2C 41 |X,1)));.K.h..1,A| 00000640: 24 28 58 2C 32 29 3B A6 32 29 3B 00 6B 0E 72 01 |$(X,2);.2);.k.r.| 00000650: 98 31 2C 41 24 28 58 2C 33 29 3B A6 31 31 AB C3 |.1,A$(X,3);.11..| 00000660: 28 41 24 28 58 2C 33 29 29 29 3B 00 8B 0E 7C 01 |(A$(X,3)));...|.| 00000670: 98 31 2C 41 24 28 58 2C 34 29 3B A6 31 33 AB C3 |.1,A$(X,4);.13..| 00000680: 28 41 24 28 58 2C 34 29 29 29 3B 00 AA 0E 86 01 |(A$(X,4)));.....| 00000690: 98 31 2C 41 24 28 58 2C 35 29 3B A6 34 AB C3 28 |.1,A$(X,5);.4..(| 000006A0: 41 24 28 58 2C 35 29 29 29 3B 00 CA 0E 90 01 98 |A$(X,5)));......| 000006B0: 31 2C 41 24 28 58 2C 36 29 3B A6 31 30 AB C3 28 |1,A$(X,6);.10..(| 000006C0: 41 24 28 58 2C 36 29 29 29 3B 00 D9 0E 9A 01 98 |A$(X,6)));......| 000006D0: 31 2C 41 24 28 58 2C 37 29 00 E0 0E A4 01 82 58 |1,A$(X,7)......X| 000006E0: 00 2A 0F AE 01 98 31 2C 22 2D 2D 2D 2D 2D 2D 2D |.*....1,"-------| 000006F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000700: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000710: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000720: 2D 2D 2D 2D 2D 2D 2D 2D 22 3B 00 42 0F B8 01 98 |--------";.B....| 00000730: 31 2C 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |1,"-------------| 00000740: 2D 22 00 4D 0F BD 01 81 58 B2 31 A4 49 00 62 0F |-".M....X.1.I.b.| 00000750: C2 01 41 57 B2 41 57 AA C5 28 41 24 28 58 2C 33 |..AW.AW..(A$(X,3| 00000760: 29 29 00 77 0F CC 01 5A 41 B2 5A 41 AA C5 28 41 |)).w...ZA.ZA..(A| 00000770: 24 28 58 2C 34 29 29 00 8C 0F D6 01 41 42 B2 41 |$(X,4)).....AB.A| 00000780: 42 AA C5 28 41 24 28 58 2C 36 29 29 00 A1 0F E0 |B..(A$(X,6))....| 00000790: 01 5A 4E B2 5A 4E AA C5 28 41 24 28 58 2C 37 29 |.ZN.ZN..(A$(X,7)| 000007A0: 29 00 A8 0F E5 01 82 58 00 B5 0F E6 01 98 31 2C |)......X......1,| 000007B0: A6 32 34 29 3B 00 D1 0F EA 01 98 31 2C C4 28 41 |.24);......1,.(A| 000007C0: 57 29 3B A6 31 31 AB C3 28 C4 28 41 57 29 29 29 |W);.11..(.(AW)))| 000007D0: 3B 00 ED 0F F4 01 98 31 2C C4 28 5A 41 29 3B A6 |;......1,.(ZA);.| 000007E0: 31 38 AB C3 28 C4 28 5A 41 29 29 29 3B 00 09 10 |18..(.(ZA)));...| 000007F0: FE 01 98 31 2C C4 28 41 42 29 3B A6 31 30 AB C3 |...1,.(AB);.10..| 00000800: 28 C4 28 41 42 29 29 29 3B 00 16 10 08 02 98 31 |(.(AB)));......1| 00000810: 2C C4 28 5A 4E 29 00 1D 10 12 02 A0 31 00 3F 10 |,.(ZN)......1.?.| 00000820: 1C 02 99 22 93 1C 11 11 11 4C 4F 41 44 22 C7 28 |...".....LOAD".(| 00000830: 33 34 29 22 4D 22 C7 28 33 34 29 22 2C 38 22 00 |34)"M".(34)",8".| 00000840: 5A 10 1D 02 97 36 33 30 2C 31 33 3A 97 36 33 31 |Z....630,13:.631| 00000850: 2C 31 33 3A 97 31 39 38 2C 32 00 69 10 1E 02 99 |,13:.198,2.i....| 00000860: 22 11 11 11 11 52 55 4E 22 00 8E 10 1F 02 99 22 |"....RUN"......"| 00000870: 9E 11 11 44 41 53 20 4D 45 4E 55 45 50 52 4F 47 |...DAS MENUEPROG| 00000880: 52 41 4D 4D 20 57 49 52 44 20 4E 55 4E 22 00 B0 |RAMM WIRD NUN"..| 00000890: 10 20 02 99 22 11 49 4E 20 44 45 4E 20 52 45 43 |. ..".IN DEN REC| 000008A0: 48 4E 45 52 20 45 49 4E 47 45 4C 45 53 45 4E 22 |HNER EINGELESEN"| 000008B0: 00 DA 10 21 02 99 22 11 55 4E 44 20 4E 41 43 48 |...!..".UND NACH| 000008C0: 20 44 45 4D 20 45 49 4E 4C 45 53 45 4E 20 41 55 | DEM EINLESEN AU| 000008D0: 54 4F 4D 41 54 49 53 43 48 22 00 03 11 22 02 99 |TOMATISCH"..."..| 000008E0: 22 11 47 45 53 54 41 52 54 45 54 2E 20 42 49 54 |".GESTARTET. BIT| 000008F0: 54 45 20 45 54 57 41 53 20 47 45 44 55 4C 44 2E |TE ETWAS GEDULD.| 00000900: 2E 2E 22 00 0F 11 23 02 99 22 1C 13 22 3A 80 00 |.."...#.."..":..| 00000910: 00 00 |.. |
......."......."L.D....::::.788,52:.792,
193:.649,2:.774,226:.775,252.D....::::.1
,8,2,"KUNDENTEXT": 1.U....::::.1,8,15...
...::::.1,A$,B$,C$,D$......::::.A$."00".
10......::::.1,"N:X".L....::::.1,A$,B$,C
$,D$......::::.A$.."73"..64738......::::
1:.......A$(20,8):I.1:.53280,2:.53281,2
.C...."..";:..8);"**********************
**".G.....8);"A F A - T A B E L L E ".
......8);"************************":.:..
.....I.1.50......"LAUFENDES JAHR";:...(.
.JZ$:.C(JZ$)..4.JZ$."1982".JZ$."2100".."
.";:.40...2..:....<.."GEGENSTAND : ";
A$(I,1)./.F.."ANSCH.-JAHR : ";A$(I,2).
O.P.."ANSCH.-WERT : ";A$(I,3).O.Z.."ZE
ITWERT 1.1 : ";A$(I,4)...D.."AFA-SATZ (
%) : ";A$(I,5)...I..".....";...N..X.1.5
...S...14);...U..A$(I,X).G.V..X...X..:."
RICHTIG (.F1./.F3.)?"......X$:.X$..".".X
$..".".130......X$.".".."........":.60.I
...A$(I,6).D((E(A$(I,3)).100).E(A$(I,5))
).N. .A$(I,7).D(E(A$(I,4)).E(A$(I,6)))..
...."..---------------------"......"ABSC
HREIBUNG : ";A$(I,6).M...."ZEITW. 31.1
2.: ";A$(I,7)...H..:."WEITERE ABSCHREIBU
NGEN (.F1./.F3.)?"...R..X$:.X$..".".X$..
".".210......X$.".".I.I.1:. 15.R...."DRU
CKER BEREIT MACHEN .F7.".G....X$:.X$..
".".240.P....1,4......1,.25);"==========
====================".J....1,.25);"A F A
- T A B E L L E ";JZ$......1,.25);"
=============================="......1:.
1.K."..1,"GEGENSTAND ANSCHAFFUNG
S- ZEITWERT ABSCHREIBUNG ";.].'.
.1,"ZEITWERT"...,..1,.19);"JAHR WERT
1.1. % DM ";...6..1
," 31.12."...@..1,"---------------------
----------------------------------------
--";...J..1,"--------------"...T..X.1.I.
7.^..1,A$(X,1);.19.C(A$(X,1)));.K.H..1,A
$(X,2);.2);.K.R..1,A$(X,3);.11.C(A$(X,3)
));...|..1,A$(X,4);.13.C(A$(X,4)));.....
.1,A$(X,5);.4.C(A$(X,5)));.J....1,A$(X,6
);.10.C(A$(X,6)));.Y....1,A$(X,7)......X
.*....1,"-------------------------------
--------------------------------";.B....
1,"--------------".M....X.1.I.B.B.AW.AW.
E(A$(X,3)).W.L.ZA.ZA.E(A$(X,4))...V.AB.A
B.E(A$(X,6)).....ZN.ZN.E(A$(X,7))......X
......1,.24);.Q....1,D(AW);.11.C(D(AW)))
;......1,D(ZA);.18.C(D(ZA)));......1,D(A
B);.10.C(D(AB)));......1,D(ZN)..... 1.?.
...".....LOAD"G(34)"M"G(34)",8".Z....630
,13:.631,13:.198,2.I...."....RUN"......"
...DAS MENUEPROGRAMM WIRD NUN"... ..".IN
DEN RECHNER EINGELESEN".Z.!..".UND NACH
DEM EINLESEN AUTOMATISCH"..."..".GESTAR
TET. BITTE ETWAS GEDULD..."...#.."..":..
..
> CLICK IMAGE PREVIEW FOR FULL MODAL