AFA-TABELLE
FILE INFORMATION
FILENAME(S): AFA-TABELLE
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-11-02 22:11:20
APPEARS ON: 1 disk(s)
FILE HASH
c18ec8fc1da56fcc1615683a2dcc66bc64d5e6014bbc7c8904ebd2c322908447
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ANWENDER | AFA-TABELLE | PRG | Treasure Chest - ToGuMi | 29 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 14 08 00 00 8F 22 41 46 41 2D 54 41 42 45 |......."AFA-TABE|
00000010: 4C 4C 45 22 00 3A 08 01 00 97 36 34 39 2C 32 3A |LLE".:....649,2:|
00000020: 97 37 39 32 2C 31 39 33 3A 97 37 37 34 2C 32 32 |.792,193:.774,22|
00000030: 36 3A 97 37 37 35 2C 32 35 32 00 4C 08 02 00 9F |6:.775,252.L....|
00000040: 31 2C 38 2C 31 35 2C 22 49 30 3A 22 00 5F 08 03 |1,8,15,"I0:"._..|
00000050: 00 84 31 2C 41 24 2C 42 24 2C 43 24 2C 44 24 00 |..1,A$,B$,C$,D$.|
00000060: 73 08 04 00 8B 41 24 B2 22 37 33 22 A7 9E 36 34 |s....A$."73"..64|
00000070: 37 33 38 00 7C 08 05 00 A0 31 3A 9C 00 8E 08 0A |738.|....1:.....|
00000080: 00 86 41 24 28 32 30 2C 38 29 3A 49 B2 31 00 A4 |..A$(20,8):I.1..|
00000090: 08 0B 00 97 35 33 32 38 30 2C 32 3A 97 35 33 32 |....53280,2:.532|
000000A0: 38 31 2C 32 00 CF 08 0F 00 99 22 93 9E 22 3B 3A |81,2......"..";:|
000000B0: 99 A3 38 29 3B 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..8);"**********|
000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 |**************".|
000000D0: F3 08 14 00 99 A3 38 29 3B 22 41 20 46 20 41 20 |......8);"A F A |
000000E0: 20 2D 20 20 54 20 41 20 42 20 45 20 4C 20 4C 20 | - T A B E L L |
000000F0: 45 20 22 00 1B 09 19 00 99 A3 38 29 3B 22 2A 2A |E ".......8);"**|
00000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000110: 2A 2A 2A 2A 2A 2A 22 3A 99 3A 99 00 27 09 1A 00 |******":.:..'...|
00000120: 8B 49 B1 31 A7 35 30 00 3F 09 1E 00 99 22 4C 41 |.I.1.50.?...."LA|
00000130: 55 46 45 4E 44 45 53 20 4A 41 48 52 22 3B 3A 00 |UFENDES JAHR";:.|
00000140: 73 09 28 00 85 4A 5A 24 3A 8B C3 28 4A 5A 24 29 |s.(..JZ$:..(JZ$)|
00000150: B3 B1 34 B0 4A 5A 24 B3 22 31 39 38 32 22 B0 4A |..4.JZ$."1982".J|
00000160: 5A 24 B1 22 32 31 30 30 22 A7 99 22 91 22 3B 3A |Z$."2100"..".";:|
00000170: 89 34 30 00 7B 09 32 00 99 3A 99 00 9B 09 3C 00 |.40.{.2..:....<.|
00000180: 99 22 47 45 47 45 4E 53 54 41 4E 44 20 20 20 20 |."GEGENSTAND |
00000190: 3A 20 22 3B 41 24 28 49 2C 31 29 00 BB 09 46 00 |: ";A$(I,1)...F.|
000001A0: 99 22 41 4E 53 43 48 2E 2D 4A 41 48 52 20 20 20 |."ANSCH.-JAHR |
000001B0: 3A 20 22 3B 41 24 28 49 2C 32 29 00 DB 09 50 00 |: ";A$(I,2)...P.|
000001C0: 99 22 41 4E 53 43 48 2E 2D 57 45 52 54 20 20 20 |."ANSCH.-WERT |
000001D0: 3A 20 22 3B 41 24 28 49 2C 33 29 00 FB 09 5A 00 |: ";A$(I,3)...Z.|
000001E0: 99 22 5A 45 49 54 57 45 52 54 20 31 2E 31 20 20 |."ZEITWERT 1.1 |
000001F0: 3A 20 22 3B 41 24 28 49 2C 34 29 00 1B 0A 64 00 |: ";A$(I,4)...d.|
00000200: 99 22 41 46 41 2D 53 41 54 5A 20 28 25 29 20 20 |."AFA-SATZ (%) |
00000210: 3A 20 22 3B 41 24 28 49 2C 35 29 00 29 0A 69 00 |: ";A$(I,5).).i.|
00000220: 99 22 91 91 91 91 91 22 3B 00 34 0A 6E 00 81 58 |.".....";.4.n..X|
00000230: B2 31 A4 35 00 3F 0A 73 00 99 A3 31 34 29 3B 00 |.1.5.?.s...14);.|
00000240: 4C 0A 75 00 85 41 24 28 49 2C 58 29 00 53 0A 76 |L.u..A$(I,X).S.v|
00000250: 00 82 58 00 71 0A 78 00 99 3A 99 22 52 49 43 48 |..X.q.x..:."RICH|
00000260: 54 49 47 20 28 12 46 31 92 2F 12 46 33 92 29 3F |TIG (.F1./.F3.)?|
00000270: 22 00 8E 0A 82 00 A1 58 24 3A 8B 58 24 B3 B1 22 |"......X$:.X$.."|
00000280: 85 22 AF 58 24 B3 B1 22 86 22 A7 31 33 30 00 AA |.".X$..".".130..|
00000290: 0A 8C 00 8B 58 24 B2 22 86 22 A7 99 22 91 91 91 |....X$.".".."...|
000002A0: 91 91 91 91 91 22 3A 89 36 30 00 D5 0A 96 00 41 |.....":.60.....A|
000002B0: 24 28 49 2C 36 29 B2 C4 28 28 C5 28 41 24 28 49 |$(I,6)..((.(A$(I|
000002C0: 2C 33 29 29 AD 31 30 30 29 AC C5 28 41 24 28 49 |,3)).100)..(A$(I|
000002D0: 2C 35 29 29 29 00 FA 0A A0 00 41 24 28 49 2C 37 |,5))).....A$(I,7|
000002E0: 29 B2 C4 28 C5 28 41 24 28 49 2C 34 29 29 AB C5 |)..(.(A$(I,4))..|
000002F0: 28 41 24 28 49 2C 36 29 29 29 00 19 0B AA 00 99 |(A$(I,6)))......|
00000300: 22 91 91 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |"..-------------|
00000310: 2D 2D 2D 2D 2D 2D 2D 2D 22 00 39 0B B4 00 99 22 |--------".9...."|
00000320: 41 42 53 43 48 52 45 49 42 55 4E 47 20 20 3A 20 |ABSCHREIBUNG : |
00000330: 22 3B 41 24 28 49 2C 36 29 00 59 0B BE 00 99 22 |";A$(I,6).Y...."|
00000340: 5A 45 49 54 57 2E 20 20 33 31 2E 31 32 2E 3A 20 |ZEITW. 31.12.: |
00000350: 22 3B 41 24 28 49 2C 37 29 00 86 0B C8 00 99 3A |";A$(I,7)......:|
00000360: 99 22 57 45 49 54 45 52 45 20 41 42 53 43 48 52 |."WEITERE ABSCHR|
00000370: 45 49 42 55 4E 47 45 4E 20 28 12 46 31 92 2F 12 |EIBUNGEN (.F1./.|
00000380: 46 33 92 29 3F 22 00 A3 0B D2 00 A1 58 24 3A 8B |F3.)?"......X$:.|
00000390: 58 24 B3 B1 22 85 22 AF 58 24 B3 B1 22 86 22 A7 |X$..".".X$..".".|
000003A0: 32 31 30 00 BA 0B DC 00 8B 58 24 B2 22 85 22 A7 |210......X$.".".|
000003B0: 49 B2 49 AA 31 3A 89 20 31 35 00 DE 0B E6 00 99 |I.I.1:. 15......|
000003C0: 22 44 52 55 43 4B 45 52 20 42 45 52 45 49 54 20 |"DRUCKER BEREIT |
000003D0: 4D 41 43 48 45 4E 20 20 20 12 46 37 92 22 00 F3 |MACHEN .F7."..|
000003E0: 0B F0 00 A1 58 24 3A 8B 58 24 B3 B1 22 88 22 A7 |....X$:.X$..".".|
000003F0: 32 34 30 00 FC 0B FA 00 9F 31 2C 34 00 29 0C FF |240......1,4.)..|
00000400: 00 98 31 2C A6 32 35 29 3B 22 3D 3D 3D 3D 3D 3D |..1,.25);"======|
00000410: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000420: 3D 3D 3D 3D 3D 3D 3D 3D 22 00 56 0C 04 01 98 31 |========".V....1|
00000430: 2C A6 32 35 29 3B 22 41 20 46 20 41 20 20 2D 20 |,.25);"A F A - |
00000440: 20 54 20 41 20 42 20 45 20 4C 20 4C 20 45 20 20 | T A B E L L E |
00000450: 20 22 3B 4A 5A 24 00 83 0C 0E 01 98 31 2C A6 32 | ";JZ$......1,.2|
00000460: 35 29 3B 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |5);"============|
00000470: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000480: 3D 3D 22 00 8D 0C 18 01 98 31 3A 98 31 00 D7 0C |=="......1:.1...|
00000490: 22 01 98 31 2C 22 47 45 47 45 4E 53 54 41 4E 44 |"..1,"GEGENSTAND|
000004A0: 20 20 20 20 20 20 20 20 20 41 4E 53 43 48 41 46 | ANSCHAF|
000004B0: 46 55 4E 47 53 2D 20 20 5A 45 49 54 57 45 52 54 |FUNGS- ZEITWERT|
000004C0: 20 20 20 20 20 20 20 41 42 53 43 48 52 45 49 42 | ABSCHREIB|
000004D0: 55 4E 47 20 20 22 3B 00 E9 0C 27 01 98 31 2C 22 |UNG ";...'..1,"|
000004E0: 5A 45 49 54 57 45 52 54 22 00 25 0D 2C 01 98 31 |ZEITWERT".%.,..1|
000004F0: 2C A6 31 39 29 3B 22 4A 41 48 52 20 20 57 45 52 |,.19);"JAHR WER|
00000500: 54 20 20 20 20 20 20 20 31 2E 31 2E 20 20 20 20 |T 1.1. |
00000510: 20 20 20 20 20 25 20 20 20 20 44 4D 20 20 20 20 | % DM |
00000520: 20 20 20 22 3B 00 36 0D 36 01 98 31 2C 22 20 33 | ";.6.6..1," 3|
00000530: 31 2E 31 32 2E 22 00 80 0D 40 01 98 31 2C 22 2D |1.12."...@..1,"-|
00000540: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000550: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000560: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000570: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3B |--------------";|
00000580: 00 98 0D 4A 01 98 31 2C 22 2D 2D 2D 2D 2D 2D 2D |...J..1,"-------|
00000590: 2D 2D 2D 2D 2D 2D 2D 22 00 A3 0D 54 01 81 58 B2 |-------"...T..X.|
000005A0: 31 A4 49 00 C3 0D 5E 01 98 31 2C 41 24 28 58 2C |1.I...^..1,A$(X,|
000005B0: 31 29 3B A6 31 39 AB C3 28 41 24 28 58 2C 31 29 |1);.19..(A$(X,1)|
000005C0: 29 29 3B 00 D7 0D 68 01 98 31 2C 41 24 28 58 2C |));...h..1,A$(X,|
000005D0: 32 29 3B A6 32 29 3B 00 F7 0D 72 01 98 31 2C 41 |2);.2);...r..1,A|
000005E0: 24 28 58 2C 33 29 3B A6 31 31 AB C3 28 41 24 28 |$(X,3);.11..(A$(|
000005F0: 58 2C 33 29 29 29 3B 00 17 0E 7C 01 98 31 2C 41 |X,3)));...|..1,A|
00000600: 24 28 58 2C 34 29 3B A6 31 33 AB C3 28 41 24 28 |$(X,4);.13..(A$(|
00000610: 58 2C 34 29 29 29 3B 00 36 0E 86 01 98 31 2C 41 |X,4)));.6....1,A|
00000620: 24 28 58 2C 35 29 3B A6 34 AB C3 28 41 24 28 58 |$(X,5);.4..(A$(X|
00000630: 2C 35 29 29 29 3B 00 56 0E 90 01 98 31 2C 41 24 |,5)));.V....1,A$|
00000640: 28 58 2C 36 29 3B A6 31 30 AB C3 28 41 24 28 58 |(X,6);.10..(A$(X|
00000650: 2C 36 29 29 29 3B 00 65 0E 9A 01 98 31 2C 41 24 |,6)));.e....1,A$|
00000660: 28 58 2C 37 29 00 6C 0E A4 01 82 58 00 B6 0E AE |(X,7).l....X....|
00000670: 01 98 31 2C 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..1,"-----------|
00000680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006B0: 2D 2D 2D 2D 22 3B 00 CE 0E B8 01 98 31 2C 22 2D |----";......1,"-|
000006C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 D9 |-------------"..|
000006D0: 0E BD 01 81 58 B2 31 A4 49 00 EE 0E C2 01 41 57 |....X.1.I.....AW|
000006E0: B2 41 57 AA C5 28 41 24 28 58 2C 33 29 29 00 03 |.AW..(A$(X,3))..|
000006F0: 0F CC 01 5A 41 B2 5A 41 AA C5 28 41 24 28 58 2C |...ZA.ZA..(A$(X,|
00000700: 34 29 29 00 18 0F D6 01 41 42 B2 41 42 AA C5 28 |4)).....AB.AB..(|
00000710: 41 24 28 58 2C 36 29 29 00 2D 0F E0 01 5A 4E B2 |A$(X,6)).-...ZN.|
00000720: 5A 4E AA C5 28 41 24 28 58 2C 37 29 29 00 34 0F |ZN..(A$(X,7)).4.|
00000730: E5 01 82 58 00 41 0F E6 01 98 31 2C A6 32 34 29 |...X.A....1,.24)|
00000740: 3B 00 5D 0F EA 01 98 31 2C C4 28 41 57 29 3B A6 |;.]....1,.(AW);.|
00000750: 31 31 AB C3 28 C4 28 41 57 29 29 29 3B 00 79 0F |11..(.(AW)));.y.|
00000760: F4 01 98 31 2C C4 28 5A 41 29 3B A6 31 38 AB C3 |...1,.(ZA);.18..|
00000770: 28 C4 28 5A 41 29 29 29 3B 00 95 0F FE 01 98 31 |(.(ZA)));......1|
00000780: 2C C4 28 41 42 29 3B A6 31 30 AB C3 28 C4 28 41 |,.(AB);.10..(.(A|
00000790: 42 29 29 29 3B 00 A2 0F 08 02 98 31 2C C4 28 5A |B)));......1,.(Z|
000007A0: 4E 29 00 A9 0F 12 02 A0 31 00 D1 0F 1C 02 99 22 |N)......1......"|
000007B0: 93 11 11 11 50 52 4F 47 52 41 4D 4D 44 49 53 4B |....PROGRAMMDISK|
000007C0: 45 54 54 45 20 45 49 4E 4C 45 47 45 4E 21 21 11 |ETTE EINLEGEN!!.|
000007D0: 22 00 E4 0F 26 02 99 A6 32 30 29 3B 22 12 20 46 |"...&...20);". F|
000007E0: 37 20 92 22 00 F9 0F 30 02 A1 58 24 3A 8B 58 24 |7 ."...0..X$:.X$|
000007F0: B3 B1 22 88 22 A7 35 36 30 00 1B 10 3A 02 99 22 |..".".560...:.."|
00000800: 93 1C 11 11 11 4C 4F 41 44 22 C7 28 33 34 29 22 |.....LOAD".(34)"|
00000810: 4D 22 C7 28 33 34 29 22 2C 38 22 00 36 10 44 02 |M".(34)",8".6.D.|
00000820: 97 36 33 31 2C 31 33 3A 97 36 33 32 2C 31 33 3A |.631,13:.632,13:|
00000830: 97 31 39 38 2C 32 00 45 10 4E 02 99 22 11 11 11 |.198,2.E.N.."...|
00000840: 11 52 55 4E 22 00 75 10 58 02 99 22 9E 11 11 44 |.RUN".u.X.."...D|
00000850: 41 53 20 4D 45 4E 55 45 50 52 4F 47 52 41 4D 4D |AS MENUEPROGRAMM|
00000860: 20 57 49 52 44 20 49 4E 20 44 45 4E 20 52 45 43 | WIRD IN DEN REC|
00000870: 48 4E 45 52 22 00 A2 10 62 02 99 22 45 49 4E 47 |HNER"...b.."EING|
00000880: 45 4C 41 44 45 4E 20 55 4E 44 20 41 55 54 4F 4D |ELADEN UND AUTOM|
00000890: 41 54 49 53 43 48 20 47 45 53 54 41 52 54 45 54 |ATISCH GESTARTET|
000008A0: 2E 22 00 C1 10 6C 02 99 22 42 49 54 54 45 20 45 |."...l.."BITTE E|
000008B0: 54 57 41 53 20 47 45 44 55 4C 44 2E 2E 2E 1C 9E |TWAS GEDULD.....|
000008C0: 22 00 C7 10 76 02 80 00 00 00 |"...v..... |
......."AFA-TABELLE".:....649,2:.792,193
:.774,226:.775,252.L....1,8,15,"I0:"._..
..1,A$,B$,C$,D$.S....A$."73"..64738.|...
1:.......A$(20,8):I.1......53280,2:.532
81,2.O...."..";:..8);"******************
******".......8);"A F A - T A B E L L
E ".......8);"************************":
.:..'....I.1.50.?...."LAUFENDES JAHR";:.
S.(..JZ$:.C(JZ$)..4.JZ$."1982".JZ$."2100
"..".";:.40.{.2..:....<.."GEGENSTAND
: ";A$(I,1)...F.."ANSCH.-JAHR : ";A$(I
,2)...P.."ANSCH.-WERT : ";A$(I,3)...Z.
."ZEITWERT 1.1 : ";A$(I,4)...D.."AFA-SA
TZ (%) : ";A$(I,5).).I..".....";.4.N..X
.1.5.?.S...14);.L.U..A$(I,X).S.V..X.Q.X.
.:."RICHTIG (.F1./.F3.)?"......X$:.X$.."
.".X$..".".130......X$.".".."........":.
60.U...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)
))......"..---------------------".9...."
ABSCHREIBUNG : ";A$(I,6).Y...."ZEITW.
31.12.: ";A$(I,7)...H..:."WEITERE ABSCHR
EIBUNGEN (.F1./.F3.)?"...R..X$:.X$..".".
X$..".".210......X$.".".I.I.1:. 15......
"DRUCKER BEREIT MACHEN .F7."......X$:.
X$..".".240......1,4.)....1,.25);"======
========================".V....1,.25);"A
F A - T A B E L L E ";JZ$......1,.2
5);"==============================".....
.1:.1.W."..1,"GEGENSTAND ANSCHAF
FUNGS- ZEITWERT ABSCHREIBUNG ";.
..'..1,"ZEITWERT".%.,..1,.19);"JAHR WER
T 1.1. % DM ";.6.
6..1," 31.12."...@..1,"-----------------
----------------------------------------
------";...J..1,"--------------"...T..X.
1.I.C.^..1,A$(X,1);.19.C(A$(X,1)));.W.H.
.1,A$(X,2);.2);...R..1,A$(X,3);.11.C(A$(
X,3)));...|..1,A$(X,4);.13.C(A$(X,4)));.
6....1,A$(X,5);.4.C(A$(X,5)));.V....1,A$
(X,6);.10.C(A$(X,6)));.E....1,A$(X,7).L.
...X......1,"---------------------------
------------------------------------";.N
....1,"--------------".Y....X.1.I...B.AW
.AW.E(A$(X,3))...L.ZA.ZA.E(A$(X,4))...V.
AB.AB.E(A$(X,6)).-...ZN.ZN.E(A$(X,7)).4.
...X.A....1,.24);.]....1,D(AW);.11.C(D(A
W)));.Y....1,D(ZA);.18.C(D(ZA)));......1
,D(AB);.10.C(D(AB)));......1,D(ZN).....
1.Q...."....PROGRAMMDISKETTE EINLEGEN!!.
"...&...20);". F7 ."...0..X$:.X$..".".56
0...:..".....LOAD"G(34)"M"G(34)",8".6.D.
.631,13:.632,13:.198,2.E.N.."....RUN".U.
X.."...DAS MENUEPROGRAMM WIRD IN DEN REC
HNER"...B.."EINGELADEN UND AUTOMATISCH G
ESTARTET.".A.L.."BITTE ETWAS GEDULD.....
".G.V.....
> CLICK IMAGE PREVIEW FOR FULL MODAL