KMAT AFATAB C140
FILE INFORMATION
FILENAME(S): KMAT AFATAB C140
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-11-30 21:12:11
APPEARS ON: 1 disk(s)
FILE HASH
285f200232338c4737a2059a4770ade242525a5ae0e606216554c3994fc61a36
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PROGRAMCOLLECTOR | KMAT AFATAB C140 | PRG | DuncanTwain | 19 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 64 00 97 36 34 39 2C 32 3A 97 37 39 |..'.d..649,2:.79|
00000010: 32 2C 31 39 33 3A 97 37 37 34 2C 32 32 36 3A 97 |2,193:.774,226:.|
00000020: 37 37 35 2C 32 35 32 00 39 08 65 00 86 41 24 28 |775,252.9.e..A$(|
00000030: 32 30 2C 38 29 3A 49 B2 31 00 4F 08 66 00 97 35 |20,8):I.1.O.f..5|
00000040: 33 32 38 30 2C 32 3A 97 35 33 32 38 31 2C 32 00 |3280,2:.53281,2.|
00000050: 7A 08 67 00 99 22 93 9E 22 3B 3A 99 A3 38 29 3B |z.g.."..";:..8);|
00000060: 22 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |"***************|
00000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 9E 08 68 00 99 |*********"...h..|
00000080: A3 38 29 3B 22 41 20 46 20 41 20 20 2D 20 20 54 |.8);"A F A - T|
00000090: 20 41 20 42 20 45 20 4C 20 4C 20 45 20 22 00 C6 | A B E L L E "..|
000000A0: 08 69 00 99 A3 38 29 3B 22 2A 2A 2A 2A 2A 2A 2A |.i...8);"*******|
000000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000C0: 2A 22 3A 99 3A 99 00 D3 08 6A 00 8B 49 B1 31 A7 |*":.:....j..I.1.|
000000D0: 31 30 39 00 EB 08 6B 00 99 22 4C 41 55 46 45 4E |109...k.."LAUFEN|
000000E0: 44 45 53 20 4A 41 48 52 22 3B 3A 00 20 09 6C 00 |DES JAHR";:. .l.|
000000F0: 85 4A 5A 24 3A 8B C3 28 4A 5A 24 29 B3 B1 34 B0 |.JZ$:..(JZ$)..4.|
00000100: 4A 5A 24 B3 22 31 39 38 32 22 B0 4A 5A 24 B1 22 |JZ$."1982".JZ$."|
00000110: 32 31 30 30 22 A7 99 22 91 22 3B 3A 89 31 30 38 |2100"..".";:.108|
00000120: 00 28 09 6D 00 99 3A 99 00 48 09 6E 00 99 22 47 |.(.m..:..H.n.."G|
00000130: 45 47 45 4E 53 54 41 4E 44 20 20 20 20 3A 20 22 |EGENSTAND : "|
00000140: 3B 41 24 28 49 2C 31 29 00 68 09 6F 00 99 22 41 |;A$(I,1).h.o.."A|
00000150: 4E 53 43 48 2E 2D 4A 41 48 52 20 20 20 3A 20 22 |NSCH.-JAHR : "|
00000160: 3B 41 24 28 49 2C 32 29 00 88 09 70 00 99 22 41 |;A$(I,2)...p.."A|
00000170: 4E 53 43 48 2E 2D 57 45 52 54 20 20 20 3A 20 22 |NSCH.-WERT : "|
00000180: 3B 41 24 28 49 2C 33 29 00 A8 09 71 00 99 22 5A |;A$(I,3)...q.."Z|
00000190: 45 49 54 57 45 52 54 20 31 2E 31 20 20 3A 20 22 |EITWERT 1.1 : "|
000001A0: 3B 41 24 28 49 2C 34 29 00 C8 09 72 00 99 22 41 |;A$(I,4)...r.."A|
000001B0: 46 41 2D 53 41 54 5A 20 28 25 29 20 20 3A 20 22 |FA-SATZ (%) : "|
000001C0: 3B 41 24 28 49 2C 35 29 00 D6 09 73 00 99 22 91 |;A$(I,5)...s..".|
000001D0: 91 91 91 91 22 3B 00 E1 09 74 00 81 58 B2 31 A4 |....";...t..X.1.|
000001E0: 35 00 EC 09 75 00 99 A3 31 34 29 3B 00 F9 09 76 |5...u...14);...v|
000001F0: 00 85 41 24 28 49 2C 58 29 00 00 0A 77 00 82 58 |..A$(I,X)...w..X|
00000200: 00 1E 0A 78 00 99 3A 99 22 52 49 43 48 54 49 47 |...x..:."RICHTIG|
00000210: 20 28 12 46 31 92 2F 12 46 33 92 29 3F 22 00 3B | (.F1./.F3.)?".;|
00000220: 0A 79 00 A1 58 24 3A 8B 58 24 B3 B1 22 85 22 AF |.y..X$:.X$..".".|
00000230: 58 24 B3 B1 22 86 22 A7 31 32 31 00 58 0A 7A 00 |X$..".".121.X.z.|
00000240: 8B 58 24 B2 22 86 22 A7 99 22 91 91 91 91 91 91 |.X$.".".."......|
00000250: 91 91 22 3A 89 31 31 30 00 83 0A 7B 00 41 24 28 |..":.110...{.A$(|
00000260: 49 2C 36 29 B2 C4 28 28 C5 28 41 24 28 49 2C 33 |I,6)..((.(A$(I,3|
00000270: 29 29 AD 31 30 30 29 AC C5 28 41 24 28 49 2C 35 |)).100)..(A$(I,5|
00000280: 29 29 29 00 A8 0A 7C 00 41 24 28 49 2C 37 29 B2 |)))...|.A$(I,7).|
00000290: C4 28 C5 28 41 24 28 49 2C 34 29 29 AB C5 28 41 |.(.(A$(I,4))..(A|
000002A0: 24 28 49 2C 36 29 29 29 00 C7 0A 7D 00 99 22 91 |$(I,6)))...}..".|
000002B0: 91 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.---------------|
000002C0: 2D 2D 2D 2D 2D 2D 22 00 E7 0A 7E 00 99 22 41 42 |------"...~.."AB|
000002D0: 53 43 48 52 45 49 42 55 4E 47 20 20 3A 20 22 3B |SCHREIBUNG : ";|
000002E0: 41 24 28 49 2C 36 29 00 07 0B 7F 00 99 22 5A 45 |A$(I,6)......"ZE|
000002F0: 49 54 57 2E 20 20 33 31 2E 31 32 2E 3A 20 22 3B |ITW. 31.12.: ";|
00000300: 41 24 28 49 2C 37 29 00 34 0B 80 00 99 3A 99 22 |A$(I,7).4....:."|
00000310: 57 45 49 54 45 52 45 20 41 42 53 43 48 52 45 49 |WEITERE ABSCHREI|
00000320: 42 55 4E 47 45 4E 20 28 12 46 31 92 2F 12 46 33 |BUNGEN (.F1./.F3|
00000330: 92 29 3F 22 00 51 0B 81 00 A1 58 24 3A 8B 58 24 |.)?".Q....X$:.X$|
00000340: B3 B1 22 85 22 AF 58 24 B3 B1 22 86 22 A7 31 32 |..".".X$..".".12|
00000350: 39 00 68 0B 82 00 8B 58 24 B2 22 85 22 A7 49 B2 |9.h....X$.".".I.|
00000360: 49 AA 31 3A 89 31 30 33 00 8C 0B 83 00 99 22 44 |I.1:.103......"D|
00000370: 52 55 43 4B 45 52 20 42 45 52 45 49 54 20 4D 41 |RUCKER BEREIT MA|
00000380: 43 48 45 4E 20 20 20 12 46 37 92 22 00 A1 0B 84 |CHEN .F7."....|
00000390: 00 A1 58 24 3A 8B 58 24 B3 B1 22 88 22 A7 31 33 |..X$:.X$..".".13|
000003A0: 32 00 AA 0B 85 00 9F 31 2C 34 00 D7 0B 86 00 98 |2......1,4......|
000003B0: 31 2C A6 32 35 29 3B 22 3D 3D 3D 3D 3D 3D 3D 3D |1,.25);"========|
000003C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000003D0: 3D 3D 3D 3D 3D 3D 22 00 04 0C 87 00 98 31 2C A6 |======"......1,.|
000003E0: 32 35 29 3B 22 41 20 46 20 41 20 20 2D 20 20 54 |25);"A F A - T|
000003F0: 20 41 20 42 20 45 20 4C 20 4C 20 45 20 20 20 22 | A B E L L E "|
00000400: 3B 4A 5A 24 00 31 0C 88 00 98 31 2C A6 32 35 29 |;JZ$.1....1,.25)|
00000410: 3B 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |;"==============|
00000420: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000430: 22 00 3B 0C 89 00 98 31 3A 98 31 00 85 0C 8A 00 |".;....1:.1.....|
00000440: 98 31 2C 22 47 45 47 45 4E 53 54 41 4E 44 20 20 |.1,"GEGENSTAND |
00000450: 20 20 20 20 20 20 20 41 4E 53 43 48 41 46 46 55 | ANSCHAFFU|
00000460: 4E 47 53 2D 20 20 5A 45 49 54 57 45 52 54 20 20 |NGS- ZEITWERT |
00000470: 20 20 20 20 20 41 42 53 43 48 52 45 49 42 55 4E | ABSCHREIBUN|
00000480: 47 20 20 22 3B 00 97 0C 8B 00 98 31 2C 22 5A 45 |G ";......1,"ZE|
00000490: 49 54 57 45 52 54 22 00 D3 0C 8C 00 98 31 2C A6 |ITWERT"......1,.|
000004A0: 31 39 29 3B 22 4A 41 48 52 20 20 57 45 52 54 20 |19);"JAHR WERT |
000004B0: 20 20 20 20 20 20 31 2E 31 2E 20 20 20 20 20 20 | 1.1. |
000004C0: 20 20 20 25 20 20 20 20 44 4D 20 20 20 20 20 20 | % DM |
000004D0: 20 22 3B 00 E4 0C 8D 00 98 31 2C 22 20 33 31 2E | ";......1," 31.|
000004E0: 31 32 2E 22 00 2E 0D 8E 00 98 31 2C 22 2D 2D 2D |12."......1,"---|
000004F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000500: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000510: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000520: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3B 00 46 |------------";.F|
00000530: 0D 8F 00 98 31 2C 22 2D 2D 2D 2D 2D 2D 2D 2D 2D |....1,"---------|
00000540: 2D 2D 2D 2D 2D 22 00 51 0D 90 00 81 58 B2 31 A4 |-----".Q....X.1.|
00000550: 49 00 71 0D 91 00 98 31 2C 41 24 28 58 2C 31 29 |I.q....1,A$(X,1)|
00000560: 3B A6 31 39 AB C3 28 41 24 28 58 2C 31 29 29 29 |;.19..(A$(X,1)))|
00000570: 3B 00 85 0D 92 00 98 31 2C 41 24 28 58 2C 32 29 |;......1,A$(X,2)|
00000580: 3B A6 32 29 3B 00 A5 0D 93 00 98 31 2C 41 24 28 |;.2);......1,A$(|
00000590: 58 2C 33 29 3B A6 31 31 AB C3 28 41 24 28 58 2C |X,3);.11..(A$(X,|
000005A0: 33 29 29 29 3B 00 C5 0D 94 00 98 31 2C 41 24 28 |3)));......1,A$(|
000005B0: 58 2C 34 29 3B A6 31 33 AB C3 28 41 24 28 58 2C |X,4);.13..(A$(X,|
000005C0: 34 29 29 29 3B 00 E4 0D 95 00 98 31 2C 41 24 28 |4)));......1,A$(|
000005D0: 58 2C 35 29 3B A6 34 AB C3 28 41 24 28 58 2C 35 |X,5);.4..(A$(X,5|
000005E0: 29 29 29 3B 00 04 0E 96 00 98 31 2C 41 24 28 58 |)));......1,A$(X|
000005F0: 2C 36 29 3B A6 31 30 AB C3 28 41 24 28 58 2C 36 |,6);.10..(A$(X,6|
00000600: 29 29 29 3B 00 13 0E 97 00 98 31 2C 41 24 28 58 |)));......1,A$(X|
00000610: 2C 37 29 00 1A 0E 98 00 82 58 00 64 0E 99 00 98 |,7)......X.d....|
00000620: 31 2C 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |1,"-------------|
00000630: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000640: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000650: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000660: 2D 2D 22 3B 00 7C 0E 9A 00 98 31 2C 22 2D 2D 2D |--";.|....1,"---|
00000670: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 87 0E 9B |-----------"....|
00000680: 00 81 58 B2 31 A4 49 00 9C 0E 9C 00 41 57 B2 41 |..X.1.I.....AW.A|
00000690: 57 AA C5 28 41 24 28 58 2C 33 29 29 00 B1 0E 9D |W..(A$(X,3))....|
000006A0: 00 5A 41 B2 5A 41 AA C5 28 41 24 28 58 2C 34 29 |.ZA.ZA..(A$(X,4)|
000006B0: 29 00 C6 0E 9E 00 41 42 B2 41 42 AA C5 28 41 24 |).....AB.AB..(A$|
000006C0: 28 58 2C 36 29 29 00 DB 0E 9F 00 5A 4E B2 5A 4E |(X,6)).....ZN.ZN|
000006D0: AA C5 28 41 24 28 58 2C 37 29 29 00 E2 0E A0 00 |..(A$(X,7)).....|
000006E0: 82 58 00 EF 0E A1 00 98 31 2C A6 32 34 29 3B 00 |.X......1,.24);.|
000006F0: 0B 0F A2 00 98 31 2C C4 28 41 57 29 3B A6 31 31 |.....1,.(AW);.11|
00000700: AB C3 28 C4 28 41 57 29 29 29 3B 00 27 0F A3 00 |..(.(AW)));.'...|
00000710: 98 31 2C C4 28 5A 41 29 3B A6 31 38 AB C3 28 C4 |.1,.(ZA);.18..(.|
00000720: 28 5A 41 29 29 29 3B 00 43 0F A4 00 98 31 2C C4 |(ZA)));.C....1,.|
00000730: 28 41 42 29 3B A6 31 30 AB C3 28 C4 28 41 42 29 |(AB);.10..(.(AB)|
00000740: 29 29 3B 00 50 0F A5 00 98 31 2C C4 28 5A 4E 29 |));.P....1,.(ZN)|
00000750: 00 57 0F A6 00 A0 31 00 7F 0F A7 00 99 22 93 11 |.W....1......"..|
00000760: 11 11 50 52 4F 47 52 41 4D 4D 44 49 53 4B 45 54 |..PROGRAMMDISKET|
00000770: 54 45 20 45 49 4E 4C 45 47 45 4E 21 21 11 22 00 |TE EINLEGEN!!.".|
00000780: 92 0F A8 00 99 A6 32 30 29 3B 22 12 20 46 37 20 |......20);". F7 |
00000790: 92 22 00 A7 0F A9 00 A1 58 24 3A 8B 58 24 B3 B1 |."......X$:.X$..|
000007A0: 22 88 22 A7 31 36 39 00 D4 0F AA 00 99 22 93 1C |".".169......"..|
000007B0: 11 11 11 4C 4F 41 44 22 C7 28 33 34 29 22 4B 4D |...LOAD".(34)"KM|
000007C0: 41 54 20 4C 4F 41 44 45 52 2A 22 C7 28 33 34 29 |AT LOADER*".(34)|
000007D0: 22 2C 38 22 00 EF 0F AB 00 97 36 33 31 2C 31 33 |",8"......631,13|
000007E0: 3A 97 36 33 32 2C 31 33 3A 97 31 39 38 2C 32 00 |:.632,13:.198,2.|
000007F0: FE 0F AC 00 99 22 11 11 11 11 52 55 4E 22 00 2E |....."....RUN"..|
00000800: 10 AD 00 99 22 9E 11 11 44 41 53 20 4D 45 4E 55 |...."...DAS MENU|
00000810: 45 50 52 4F 47 52 41 4D 4D 20 57 49 52 44 20 49 |EPROGRAMM WIRD I|
00000820: 4E 20 44 45 4E 20 52 45 43 48 4E 45 52 22 00 5B |N DEN RECHNER".[|
00000830: 10 AE 00 99 22 45 49 4E 47 45 4C 41 44 45 4E 20 |...."EINGELADEN |
00000840: 55 4E 44 20 41 55 54 4F 4D 41 54 49 53 43 48 20 |UND AUTOMATISCH |
00000850: 47 45 53 54 41 52 54 45 54 2E 22 00 7A 10 AF 00 |GESTARTET.".z...|
00000860: 99 22 42 49 54 54 45 20 45 54 57 41 53 20 47 45 |."BITTE ETWAS GE|
00000870: 44 55 4C 44 2E 2E 2E 1C 9E 22 00 80 10 B0 00 80 |DULD....."......|
00000880: 00 00 00 |... |
..'.D..649,2:.792,193:.774,226:.775,252.
9.E..A$(20,8):I.1.O.F..53280,2:.53281,2.
Z.G.."..";:..8);"***********************
*"...H...8);"A F A - T A B E L L E ".F
.I...8);"************************":.:..S
.J..I.1.109...K.."LAUFENDES JAHR";:. .L.
.JZ$:.C(JZ$)..4.JZ$."1982".JZ$."2100".."
.";:.108.(.M..:..H.N.."GEGENSTAND : "
;A$(I,1).H.O.."ANSCH.-JAHR : ";A$(I,2)
...P.."ANSCH.-WERT : ";A$(I,3)...Q.."Z
EITWERT 1.1 : ";A$(I,4).H.R.."AFA-SATZ
(%) : ";A$(I,5).V.S..".....";...T..X.1.
5...U...14);...V..A$(I,X)...W..X...X..:.
"RICHTIG (.F1./.F3.)?".;.Y..X$:.X$..".".
X$..".".121.X.Z..X$.".".."........":.110
...{.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)))
.G.}.."..---------------------"...~.."AB
SCHREIBUNG : ";A$(I,6)....."ZEITW. 31
.12.: ";A$(I,7).4....:."WEITERE ABSCHREI
BUNGEN (.F1./.F3.)?".Q....X$:.X$..".".X$
..".".129.H....X$.".".I.I.1:.103......"D
RUCKER BEREIT MACHEN .F7."......X$:.X$
..".".132......1,4.W....1,.25);"========
======================"......1,.25);"A F
A - T A B E L L E ";JZ$.1....1,.25)
;"==============================".;....1
:.1......1,"GEGENSTAND ANSCHAFFU
NGS- ZEITWERT ABSCHREIBUNG ";...
...1,"ZEITWERT".S....1,.19);"JAHR WERT
1.1. % DM ";.....
.1," 31.12."......1,"-------------------
----------------------------------------
----";.F....1,"--------------".Q....X.1.
I.Q....1,A$(X,1);.19.C(A$(X,1)));......1
,A$(X,2);.2);......1,A$(X,3);.11.C(A$(X,
3)));.E....1,A$(X,4);.13.C(A$(X,4)));...
...1,A$(X,5);.4.C(A$(X,5)));......1,A$(X
,6);.10.C(A$(X,6)));......1,A$(X,7).....
.X.D....1,"-----------------------------
----------------------------------";.|..
..1,"--------------"......X.1.I.....AW.A
W.E(A$(X,3)).....ZA.ZA.E(A$(X,4)).F...AB
.AB.E(A$(X,6)).....ZN.ZN.E(A$(X,7))... .
.X......1,.24);......1,D(AW);.11.C(D(AW)
));.'....1,D(ZA);.18.C(D(ZA)));.C....1,D
(AB);.10.C(D(AB)));.P....1,D(ZN).W... 1.
...."....PROGRAMMDISKETTE EINLEGEN!!.".
......20);". F7 ."......X$:.X$..".".169.
T....".....LOAD"G(34)"KMAT LOADER*"G(34)
",8"......631,13:.632,13:.198,2......"..
..RUN"......"...DAS MENUEPROGRAMM WIRD I
N DEN RECHNER".[...."EINGELADEN UND AUTO
MATISCH GESTARTET.".Z...."BITTE ETWAS GE
DULD.....".........
> CLICK IMAGE PREVIEW FOR FULL MODAL