ISKONTIEREN EIN
FILE INFORMATION
FILENAME(S): ISKONTIEREN EIN
FILE TYPE(S): PRG
FILE SIZE: 4.5K
FIRST SEEN: 2025-11-30 01:12:47
APPEARS ON: 2 disk(s)
FILE HASH
26fe835db9290abf55440f23a743e38f80c8922d26acc947cba072258c49931b
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TEST | ISKONTIEREN EIN | PRG | C64er | 26 | 2 | DOWNLOAD FILE |
| 64 ER OKT 84 | ISKONTIEREN EIN | PRG | DuncanTwain | 26 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 08 00 97 34 35 2C C2 28 31 37 34 29 |.......45,.(174)| 00000010: 3A 97 34 36 2C C2 28 31 37 35 29 3A 9C 00 37 08 |:.46,.(175):..7.| 00000020: 09 00 9C 3A 86 41 24 28 31 35 29 2C 41 28 31 35 |...:.A$(15),A(15| 00000030: 29 3A 89 31 30 30 30 00 5F 08 0A 00 5A 31 B2 33 |):.1000._...Z1.3| 00000040: 3A 5A 32 B2 39 3A 53 B2 31 33 3A 8F 20 2A 20 4D |:Z2.9:S.13:. * M| 00000050: 41 53 4B 45 20 4C 4F 45 53 43 48 45 4E 20 2A 00 |ASKE LOESCHEN *.| 00000060: 97 08 14 00 81 5A B2 5A 31 A4 5A 32 3A 8D 39 30 |.....Z.Z1.Z2:.90| 00000070: 3A 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |:." | 00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 82 | ":.| 00000090: 3A 8B 43 B2 30 A7 8E 00 AF 08 1E 00 5A 31 B2 31 |:.C.0.......Z1.1| 000000A0: 32 3A 5A 32 B2 32 30 3A 43 B2 30 3A 89 32 30 00 |2:Z2.20:C.0:.20.| 000000B0: B5 08 32 00 8E 00 DE 08 46 00 41 24 28 31 32 29 |..2.....F.A$(12)| 000000C0: B2 C4 28 B5 28 41 28 31 32 29 AC 31 30 30 AA 2E |..(.(A(12).100..| 000000D0: 35 29 29 3A 8F 20 2A 20 52 55 4E 44 45 4E 00 0E |5)):. * RUNDEN..| 000000E0: 09 4B 00 41 42 24 B2 C8 28 41 24 28 31 32 29 2C |.K.AB$..(A$(12),| 000000F0: C3 28 41 24 28 31 32 29 29 AB 32 29 AA 22 2E 22 |.(A$(12)).2)."."| 00000100: AA C9 28 41 24 28 31 32 29 2C 32 29 3A 8E 00 2B |..(A$(12),2):..+| 00000110: 09 50 00 93 22 4D 45 4E 55 45 22 2C 38 3A 8F 20 |.P.."MENUE",8:. | 00000120: 2A 4C 4F 41 44 20 4D 45 4E 55 45 00 59 09 5A 00 |*LOAD MENUE.Y.Z.| 00000130: 97 32 31 34 2C 5A 3A 97 32 31 31 2C 53 3A 9E 35 |.214,Z:.211,S:.5| 00000140: 38 37 33 32 3A 8E 3A 8F 20 2A 20 43 55 52 53 4F |8732:.:. * CURSO| 00000150: 52 50 4F 53 49 54 49 4F 4E 00 88 09 5F 00 41 B2 |RPOSITION..._.A.| 00000160: 35 35 38 36 39 3A 81 49 B2 31 35 39 37 A4 31 36 |55869:.I.1597.16| 00000170: 32 32 3A 97 49 2C 31 30 30 3A 97 41 2C 31 3A 41 |22:.I,100:.A,1:A| 00000180: B2 41 AA 31 3A 82 3A 8E 00 A1 09 64 00 8F 20 2A |.A.1:.:....d.. *| 00000190: 20 41 55 53 57 41 48 4C 52 4F 55 54 49 4E 45 20 | AUSWAHLROUTINE | 000001A0: 2A 00 C5 09 6E 00 8D 39 30 3A 99 22 12 20 20 20 |*...n..90:.". | 000001B0: 20 20 20 20 20 20 20 20 92 22 3A 81 49 B2 31 A4 | .":.I.1.| 000001C0: 37 35 3A 82 49 00 E5 09 78 00 8D 39 30 3A 99 22 |75:.I...x..90:."| 000001D0: 12 22 41 24 28 59 29 22 92 22 3A 81 49 B2 31 A4 |."A$(Y)".":.I.1.| 000001E0: 31 32 35 3A 82 00 1D 0A 82 00 A1 47 24 3A 8B 47 |125:.......G$:.G| 000001F0: 24 B3 B1 C7 28 31 33 33 29 AF 47 24 B3 B1 C7 28 |$...(133).G$...(| 00000200: 31 33 34 29 AF 47 24 B3 B1 C7 28 31 33 35 29 AF |134).G$...(135).| 00000210: 47 24 B3 B1 C7 28 31 33 29 A7 31 31 30 00 34 0A |G$...(13).110.4.| 00000220: 8C 00 8B 47 24 B2 C7 28 31 33 33 29 AF 43 A7 43 |...G$..(133).C.C| 00000230: B2 30 3A 8E 00 4F 0A 96 00 8B 47 24 B2 C7 28 31 |.0:..O....G$..(1| 00000240: 33 29 A7 8D 39 30 3A 99 22 12 3E 92 22 3A 8E 00 |3)..90:.".>.":..| 00000250: 62 0A A0 00 8B 47 24 B2 C7 28 31 33 35 29 A7 31 |b....G$..(135).1| 00000260: 39 30 00 83 0A AA 00 5A B2 5A AA 53 57 3A 59 B2 |90.....Z.Z.SW:Y.| 00000270: 59 AA 31 3A 8B 5A B1 5A 32 A7 5A B2 5A 31 3A 59 |Y.1:.Z.Z2.Z.Z1:Y| 00000280: B2 59 31 00 8C 0A B4 00 89 31 31 30 00 AD 0A BE |.Y1......110....| 00000290: 00 5A B2 5A AB 53 57 3A 59 B2 59 AB 31 3A 8B 5A |.Z.Z.SW:Y.Y.1:.Z| 000002A0: B3 5A 31 A7 5A B2 5A 32 3A 59 B2 59 32 00 B6 0A |.Z1.Z.Z2:Y.Y2...| 000002B0: C3 00 89 31 31 30 00 D3 0A C8 00 8F 20 2A 20 57 |...110...... * W| 000002C0: 41 48 4C 2D 46 55 53 53 5A 45 49 4C 45 20 2A 3A |AHL-FUSSZEILE *:| 000002D0: 53 3D 30 00 FB 0A D2 00 5A B2 32 33 3A 8D 39 30 |S=0.....Z.23:.90| 000002E0: 3A 99 22 12 20 20 20 20 20 20 20 20 20 20 92 22 |:.". ."| 000002F0: 3B 3A 81 49 B2 31 A4 37 35 3A 82 00 1D 0B DC 00 |;:.I.1.75:......| 00000300: 8D 39 30 3A 99 22 12 22 42 41 24 28 59 29 22 92 |.90:."."BA$(Y)".| 00000310: 22 3B 3A 81 49 B2 31 A4 31 37 35 3A 82 00 4A 0B |";:.I.1.175:..J.| 00000320: E6 00 A1 47 24 3A 8B 47 24 B3 B1 C7 28 31 33 34 |...G$:.G$...(134| 00000330: 29 AF 47 24 B3 B1 C7 28 31 33 35 29 AF 47 24 B3 |).G$...(135).G$.| 00000340: B1 C7 28 31 33 29 A7 32 31 30 00 66 0B F0 00 8B |..(13).210.f....| 00000350: 47 24 B2 C7 28 31 33 29 A7 8D 39 30 3A 99 22 12 |G$..(13)..90:.".| 00000360: 3E 92 22 3B 3A 8E 00 79 0B FA 00 8B 47 24 B2 C7 |>.";:..y....G$..| 00000370: 28 31 33 35 29 A7 32 38 30 00 98 0B 04 01 53 B2 |(135).280.....S.| 00000380: 53 AA 31 30 3A 59 B2 59 AA 31 3A 8B 53 B1 33 31 |S.10:Y.Y.1:.S.31| 00000390: A7 53 B2 30 3A 59 B2 31 00 A1 0B 0E 01 89 32 31 |.S.0:Y.1......21| 000003A0: 30 00 C0 0B 18 01 53 B2 53 AB 31 30 3A 59 B2 59 |0.....S.S.10:Y.Y| 000003B0: AB 31 3A 8B 53 B3 30 A7 53 B2 33 30 3A 59 B2 34 |.1:.S.0.S.30:Y.4| 000003C0: 00 C9 0B 22 01 89 32 31 30 00 E2 0B 2C 01 8F 20 |..."..210...,.. | 000003D0: 2A 20 45 49 4E 47 41 42 45 52 4F 55 54 49 4E 45 |* EINGABEROUTINE| 000003E0: 20 2A 00 EA 0B 36 01 8D 39 30 00 F5 0B 40 01 49 | *...6..90...@.I| 000003F0: 4E 24 B2 22 22 00 00 0C 4A 01 99 22 A2 9D 22 3B |N$.""...J.."..";| 00000400: 00 13 0C 54 01 A1 47 24 3A 8B 47 24 B2 22 22 A7 |...T..G$:.G$."".| 00000410: 33 34 30 00 29 0C 5E 01 47 B2 C6 28 47 24 29 3A |340.).^.G..(G$):| 00000420: 8B 47 B2 31 33 A7 34 36 30 00 35 0C 68 01 8B 47 |.G.13.460.5.h..G| 00000430: B2 31 33 A7 8E 00 4C 0C 72 01 8B 47 24 B3 22 30 |.13...L.r..G$."0| 00000440: 22 B0 47 24 B1 22 39 22 A7 34 32 30 00 5B 0C 7C |".G$."9".420.[.|| 00000450: 01 49 4E 24 B2 49 4E 24 AA 47 24 00 64 0C 86 01 |.IN$.IN$.G$.d...| 00000460: 99 47 24 3B 00 8D 0C 90 01 8B C3 28 49 4E 24 29 |.G$;.......(IN$)| 00000470: B1 4E A7 81 49 B2 31 A4 C3 28 49 4E 24 29 3A 99 |.N..I.1..(IN$):.| 00000480: C7 28 32 30 29 3B 3A 82 3A 89 33 32 30 00 96 0C |.(20);:.:.320...| 00000490: 9A 01 89 33 33 30 00 A4 0C A4 01 8B 47 B2 34 36 |...330......G.46| 000004A0: A7 33 38 30 00 B5 0C A9 01 8B 47 24 B2 C7 28 31 |.380......G$..(1| 000004B0: 33 33 29 A7 39 00 C4 0C AE 01 8B 47 B3 B1 32 30 |33).9......G..20| 000004C0: A7 33 33 30 00 D6 0C B8 01 8B C3 28 49 4E 24 29 |.330.......(IN$)| 000004D0: B3 31 A7 33 33 30 00 F3 0C C2 01 49 4E 24 B2 C8 |.1.330.....IN$..| 000004E0: 28 49 4E 24 2C C3 28 49 4E 24 29 AB 31 29 3A 89 |(IN$,.(IN$).1):.| 000004F0: 33 39 30 00 22 0D CC 01 50 4E 24 B2 22 22 3A 81 |390."...PN$."":.| 00000500: 49 B2 31 A4 28 31 30 AB C3 28 49 4E 24 29 29 3A |I.1.(10..(IN$)):| 00000510: 50 4E 24 B2 50 4E 24 AA 22 2E 22 3A 82 3A 99 50 |PN$.PN$.".":.:.P| 00000520: 4E 24 00 34 0D D6 01 8B C3 28 49 4E 24 29 B3 31 |N$.4.....(IN$).1| 00000530: A7 33 31 30 00 3A 0D E0 01 8E 00 40 0D E7 03 3A |.310.:.....@...:| 00000540: 00 58 0D E8 03 8F 20 2A 2A 20 44 49 4B 4F 4E 54 |.X.... ** DIKONT| 00000550: 49 45 52 45 4E 20 2A 2A 00 67 0D F2 03 8D 35 30 |IEREN **.g....50| 00000560: 30 30 3A 99 4D 41 24 00 98 0D FC 03 41 B2 35 35 |00:.MA$.....A.55| 00000570: 33 38 38 3A 81 49 B2 31 30 37 36 A4 31 39 30 36 |388:.I.1076.1906| 00000580: A9 34 30 3A 97 49 2C 31 30 31 3A 97 41 2C 31 3A |.40:.I,101:.A,1:| 00000590: 41 B2 41 AA 34 30 3A 82 00 C5 0D 06 04 41 B2 35 |A.A.40:......A.5| 000005A0: 35 37 33 36 3A 81 49 B2 31 34 36 34 A4 31 34 37 |5736:.I.1464.147| 000005B0: 34 3A 97 49 2C 31 30 30 3A 97 41 2C 31 3A 41 B2 |4:.I,100:.A,1:A.| 000005C0: 41 AA 31 3A 82 00 F2 0D 10 04 41 B2 35 35 37 34 |A.1:......A.5574| 000005D0: 39 3A 81 49 B2 31 34 37 37 A4 31 35 30 32 3A 97 |9:.I.1477.1502:.| 000005E0: 49 2C 31 30 30 3A 97 41 2C 31 3A 41 B2 41 AA 31 |I,100:.A,1:A.A.1| 000005F0: 3A 82 00 08 0E 1A 04 5A B2 32 33 3A 53 B2 30 3A |:......Z.23:S.0:| 00000600: 8D 39 30 3A 99 4D 42 24 00 2E 0E 24 04 5A B2 33 |.90:.MB$...$.Z.3| 00000610: 3A 8D 39 30 3A 99 22 C1 55 53 57 41 48 4C 20 3A |:.90:.".USWAHL :| 00000620: 22 3A 99 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 56 |":.".........".V| 00000630: 0E 2E 04 5A B2 35 3A 81 49 B2 31 A4 35 3A 8D 39 |...Z.5:.I.1.5:.9| 00000640: 30 3A 99 22 12 22 41 24 28 49 29 22 92 22 3A 5A |0:."."A$(I)".":Z| 00000650: B2 5A AA 31 3A 82 00 94 0E 38 04 5A B2 35 3A 5A |.Z.1:....8.Z.5:Z| 00000660: 31 B2 5A 3A 5A 32 B2 39 3A 53 B2 30 3A 59 B2 31 |1.Z:Z2.9:S.0:Y.1| 00000670: 3A 59 31 B2 59 3A 59 32 B2 35 3A 53 57 B2 31 3A |:Y1.Y:Y2.5:SW.1:| 00000680: 43 B2 30 3A 8D 31 30 30 3A 46 B2 59 3A 8B 46 B2 |C.0:.100:F.Y:.F.| 00000690: 35 A7 38 30 00 C0 0E 7E 04 8B 46 B2 31 A7 41 24 |5.80...~..F.1.A$| 000006A0: 28 39 29 B2 4B 4E 24 3A 41 24 28 31 30 29 B2 50 |(9).KN$:A$(10).P| 000006B0: 24 3A 41 24 28 31 31 29 B2 4A 41 24 3A 4B B2 31 |$:A$(11).JA$:K.1| 000006C0: 00 EC 0E 88 04 8B 46 B2 32 A7 41 24 28 39 29 B2 |......F.2.A$(9).| 000006D0: 4B 42 24 3A 41 24 28 31 30 29 B2 50 24 3A 41 24 |KB$:A$(10).P$:A$| 000006E0: 28 31 31 29 B2 4A 41 24 3A 4B B2 31 00 19 0F 92 |(11).JA$:K.1....| 000006F0: 04 8B 46 B2 33 A7 41 24 28 39 29 B2 4B 4E 24 3A |..F.3.A$(9).KN$:| 00000700: 41 24 28 31 30 29 B2 4B 42 24 3A 41 24 28 31 31 |A$(10).KB$:A$(11| 00000710: 29 B2 4A 41 24 3A 4B B2 30 00 45 0F 9C 04 8B 46 |).JA$:K.0.E....F| 00000720: B2 34 A7 41 24 28 39 29 B2 4B 4E 24 3A 41 24 28 |.4.A$(9).KN$:A$(| 00000730: 31 30 29 B2 4B 42 24 3A 41 24 28 31 31 29 B2 50 |10).KB$:A$(11).P| 00000740: 24 3A 4B B2 32 00 5C 0F D0 07 8F 20 2A 20 45 49 |$:K.2.\.... * EI| 00000750: 4E 47 41 42 45 4D 41 53 4B 45 20 2A 00 8F 0F DA |NGABEMASKE *....| 00000760: 07 5A B2 33 3A 53 B2 31 33 3A 8D 39 30 3A 99 22 |.Z.3:S.13:.90:."| 00000770: C5 49 4E 47 41 42 45 20 3A 22 3A 5A B2 34 3A 8D |.INGABE :":Z.4:.| 00000780: 39 30 3A 99 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 |90:.".........".| 00000790: BC 0F E4 07 5A B2 35 3A 81 49 B2 39 A4 31 31 3A |....Z.5:.I.9.11:| 000007A0: 53 B2 31 33 3A 8D 39 30 3A 99 22 12 22 41 24 28 |S.13:.90:."."A$(| 000007B0: 49 29 22 92 20 3A 20 22 3B 50 4D 24 00 DA 0F EE |I)". : ";PM$....| 000007C0: 07 5A B2 5A AA 32 3A 82 3A 5A B2 32 33 3A 53 B2 |.Z.Z.2:.:Z.23:S.| 000007D0: 30 3A 8D 39 30 3A 99 4D 43 24 00 FD 0F F8 07 5A |0:.90:.MC$.....Z| 000007E0: B2 35 3A 53 B2 32 37 3A 4E B2 31 30 3A 8D 33 30 |.5:S.27:N.10:.30| 000007F0: 30 3A 41 28 39 29 B2 C5 28 49 4E 24 29 00 17 10 |0:A(9)..(IN$)...| 00000800: 02 08 5A B2 37 3A 8D 33 30 30 3A 41 28 31 30 29 |..Z.7:.300:A(10)| 00000810: B2 C5 28 49 4E 24 29 00 31 10 0C 08 5A B2 39 3A |..(IN$).1...Z.9:| 00000820: 8D 33 30 30 3A 41 28 31 31 29 B2 C5 28 49 4E 24 |.300:A(11)..(IN$| 00000830: 29 00 63 10 16 08 5A B2 31 33 3A 53 B2 31 33 3A |).c...Z.13:S.13:| 00000840: 8D 39 30 3A 99 22 C5 49 4E 47 41 42 45 20 4B 4F |.90:.".INGABE KO| 00000850: 52 52 45 4B 54 20 3F 20 28 4A 2F 4E 29 3A 22 3A |RREKT ? (J/N):":| 00000860: 8D 39 35 00 7C 10 20 08 5A B2 31 33 3A 53 B2 33 |.95.|. .Z.13:S.3| 00000870: 38 3A 8D 39 30 3A 99 22 A2 9D 22 3B 00 9A 10 2A |8:.90:."..";...*| 00000880: 08 A1 47 24 3A 8B 47 24 B3 B1 22 4A 22 AF 47 24 |..G$:.G$.."J".G$| 00000890: B3 B1 22 4E 22 A7 32 30 39 30 00 AE 10 34 08 99 |.."N".2090...4..| 000008A0: 47 24 3A 8B 47 24 B2 22 4A 22 A7 59 B2 31 00 BE |G$:.G$."J".Y.1..| 000008B0: 10 3E 08 8B 47 24 B2 22 4E 22 A7 59 B2 30 00 E0 |.>..G$."N".Y.0..| 000008C0: 10 48 08 A1 49 24 3A 8B 49 24 B3 B1 C7 28 31 33 |.H..I$:.I$...(13| 000008D0: 29 AF 49 24 B3 B1 C7 28 32 30 29 A7 32 31 32 30 |).I$...(20).2120| 000008E0: 00 F3 10 52 08 8B 49 24 B2 C7 28 32 30 29 A7 32 |...R..I$..(20).2| 000008F0: 30 38 30 00 09 11 5C 08 43 B2 31 3A 8D 31 30 3A |080...\.C.1:.10:| 00000900: 8B 59 B2 30 A7 32 30 31 30 00 1C 11 B8 0B 8F 20 |.Y.0.2010...... | 00000910: 2A 20 52 45 43 48 4E 55 4E 47 20 2A 00 4A 11 C2 |* RECHNUNG *.J..| 00000920: 0B 8B 46 B2 31 A7 41 28 31 32 29 B2 41 28 39 29 |..F.1.A(12).A(9)| 00000930: AC 28 31 AD 28 31 AA 28 41 28 31 30 29 AD 31 30 |.(1.(1.(A(10).10| 00000940: 30 29 29 AE 41 28 31 31 29 29 00 78 11 CC 0B 8B |0)).A(11)).x....| 00000950: 46 B2 32 A7 41 28 31 32 29 B2 41 28 39 29 AD 28 |F.2.A(12).A(9).(| 00000960: 31 AD 28 31 AA 28 41 28 31 30 29 AD 31 30 30 29 |1.(1.(A(10).100)| 00000970: 29 AE 41 28 31 31 29 29 00 A6 11 D6 0B 8B 46 B2 |).A(11))......F.| 00000980: 33 A7 41 28 31 32 29 B2 28 28 41 28 39 29 AD 41 |3.A(12).((A(9).A| 00000990: 28 31 30 29 29 AE 28 31 AD 41 28 31 31 29 29 AB |(10)).(1.A(11)).| 000009A0: 31 29 AC 31 30 30 00 D4 11 E0 0B 8B 46 B2 34 A7 |1).100......F.4.| 000009B0: 41 28 31 32 29 B2 BC 28 41 28 39 29 AD 41 28 31 |A(12)..(A(9).A(1| 000009C0: 30 29 29 AD BC 28 31 AA 28 41 28 31 31 29 AD 31 |0))..(1.(A(11).1| 000009D0: 30 30 29 29 00 E7 11 AC 0D 8F 20 2A 20 42 49 4C |00))...... * BIL| 000009E0: 44 53 43 48 49 52 4D 00 1B 12 B6 0D 5A B2 33 3A |DSCHIRM.....Z.3:| 000009F0: 53 B2 31 33 3A 8D 39 30 3A 99 22 C5 49 4E 47 41 |S.13:.90:.".INGA| 00000A00: 42 45 20 3A 22 3A 5A B2 34 3A 8D 39 30 3A 99 22 |BE :":Z.4:.90:."| 00000A10: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 46 12 C0 0D |..........".F...| 00000A20: 5A B2 35 3A 81 49 B2 39 A4 31 31 3A 8D 39 30 3A |Z.5:.I.9.11:.90:| 00000A30: 99 41 24 28 49 29 22 20 3A 22 41 28 49 29 3A 5A |.A$(I)" :"A(I):Z| 00000A40: B2 5A AA 32 3A 82 00 7C 12 CA 0D 5A B2 31 33 3A |.Z.2:..|...Z.13:| 00000A50: 8D 39 30 3A 99 22 D2 45 53 55 4C 54 41 54 20 3A |.90:.".ESULTAT :| 00000A60: 22 3A 5A B2 31 34 3A 8D 39 30 3A 99 22 A3 A3 A3 |":Z.14:.90:."...| 00000A70: A3 A3 A3 A3 A3 A3 A3 22 3A 8D 37 30 00 AA 12 D4 |.......":.70....| 00000A80: 0D 5A B2 31 36 3A 8D 39 30 3A 99 22 12 22 41 24 |.Z.16:.90:."."A$| 00000A90: 28 46 29 22 92 20 3A 22 3B 3A 99 A3 33 38 AB C3 |(F)". :";:..38..| 00000AA0: 28 41 42 24 29 29 3B 41 42 24 00 D2 12 DE 0D 99 |(AB$));AB$......| 00000AB0: A3 33 39 AB C3 28 41 42 24 29 29 3B 3A 81 49 B2 |.39..(AB$));:.I.| 00000AC0: 31 A4 C3 28 41 42 24 29 AB 31 3A 99 22 3D 22 3B |1..(AB$).1:."=";| 00000AD0: 3A 82 00 FE 12 E8 0D 5A B2 32 30 3A 8D 39 30 3A |:......Z.20:.90:| 00000AE0: 8B 4B B2 31 A7 99 22 C1 55 53 44 52 55 43 4B 20 |.K.1..".USDRUCK | 00000AF0: 49 4E 20 C4 CD A0 21 22 3A 89 33 35 38 30 00 20 |IN ...!":.3580. | 00000B00: 13 F2 0D 8B 4B B2 30 A7 99 22 C1 55 53 44 52 55 |....K.0..".USDRU| 00000B10: 43 4B 20 49 4E 20 D0 52 4F 5A 45 4E 54 20 21 22 |CK IN .ROZENT !"| 00000B20: 00 49 13 FC 0D 5A B2 32 33 3A 53 B2 30 3A 8D 39 |.I...Z.23:S.0:.9| 00000B30: 30 3A 81 49 B2 31 A4 34 3A 99 22 12 22 42 41 24 |0:.I.1.4:."."BA$| 00000B40: 28 49 29 22 92 22 3B 3A 82 00 5E 13 06 0E 59 B2 |(I)".";:..^...Y.| 00000B50: 31 3A 8D 32 30 30 3A 8B 59 B2 34 A7 38 30 00 6C |1:.200:.Y.4.80.l| 00000B60: 13 10 0E 8B 59 B2 33 A7 31 30 31 30 00 7A 13 1A |....Y.3.1010.z..| 00000B70: 0E 8B 59 B2 32 A7 34 35 30 30 00 8E 13 A0 0F 8F |..Y.2.4500......| 00000B80: 20 2A 20 41 45 4E 44 45 52 55 4E 47 20 2A 00 9A | * AENDERUNG *..| 00000B90: 13 AA 0F 43 B2 31 3A 8D 31 30 00 D1 13 B4 0F 5A |...C.1:.10.....Z| 00000BA0: B2 33 3A 53 B2 31 33 3A 8D 39 30 3A 99 22 C1 45 |.3:S.13:.90:.".E| 00000BB0: 4E 44 45 52 55 4E 47 20 3A 22 3A 5A B2 34 3A 8D |NDERUNG :":Z.4:.| 00000BC0: 39 30 3A 99 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |90:."...........| 00000BD0: 22 00 06 14 BE 0F 5A B2 35 3A 53 B2 31 33 3A 81 |".....Z.5:S.13:.| 00000BE0: 49 B2 39 A4 31 31 3A 8D 39 30 3A 99 22 12 22 41 |I.9.11:.90:."."A| 00000BF0: 24 28 49 29 22 92 20 3A 22 3B 41 28 49 29 3A 5A |$(I)". :";A(I):Z| 00000C00: B2 5A AA 32 3A 82 00 1D 14 C8 0F 5A B2 32 33 3A |.Z.2:......Z.23:| 00000C10: 53 B2 30 3A 8D 39 30 3A 99 4D 44 24 3B 00 51 14 |S.0:.90:.MD$;.Q.| 00000C20: D2 0F 5A B2 35 3A 5A 31 B2 5A 3A 5A 32 B2 39 3A |..Z.5:Z1.Z:Z2.9:| 00000C30: 53 B2 31 33 3A 59 B2 39 3A 59 31 B2 59 3A 59 32 |S.13:Y.9:Y1.Y:Y2| 00000C40: B2 31 31 3A 53 57 B2 32 3A 43 B2 31 3A 8D 31 30 |.11:SW.2:C.1:.10| 00000C50: 30 00 64 14 DC 0F 8B 43 B2 30 A7 8D 31 30 3A 89 |0.d....C.0..10:.| 00000C60: 33 30 30 30 00 8D 14 E6 0F 5A B2 31 33 3A 53 B2 |3000.....Z.13:S.| 00000C70: 31 33 3A 8D 39 30 3A 99 22 12 22 41 24 28 59 29 |13:.90:."."A$(Y)| 00000C80: 22 92 20 3A 20 22 50 4D 24 3A 8D 39 35 00 C5 14 |". : "PM$:.95...| 00000C90: F0 0F 5A B2 32 33 3A 53 B2 30 3A 8D 39 30 3A 99 |..Z.23:S.0:.90:.| 00000CA0: 4D 43 24 3B 3A 5A B2 31 33 3A 53 B2 32 37 3A 8D |MC$;:Z.13:S.27:.| 00000CB0: 33 30 30 3A 41 28 59 29 B2 C5 28 49 4E 24 29 3A |300:A(Y)..(IN$):| 00000CC0: 89 34 30 31 30 00 D8 14 94 11 8F 20 2A 20 41 55 |.4010...... * AU| 00000CD0: 53 44 52 55 43 4B 20 2A 00 F0 14 99 11 54 41 24 |SDRUCK *.....TA$| 00000CE0: B2 C7 28 31 30 29 3A 54 42 24 B2 C7 28 31 36 29 |..(10):TB$..(16)| 00000CF0: 00 27 15 9E 11 9F 34 2C 34 2C 37 3A 98 34 2C C7 |.'....4,4,7:.4,.| 00000D00: 28 31 34 29 3B 54 42 24 22 31 30 C4 C9 D3 CB CF |(14);TB$"10.....| 00000D10: CE D4 C9 C5 D2 C5 CE 20 C5 C9 CE C5 D3 A0 CB C1 |....... ........| 00000D20: D0 C9 D4 C1 CC D3 22 00 54 15 A8 11 98 34 2C 54 |......".T....4,T| 00000D30: 42 24 22 31 30 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |B$"10-----------| 00000D40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000D50: 22 54 41 24 00 86 15 B2 11 81 49 B2 39 A4 31 31 |"TA$......I.9.11| 00000D60: 3A 98 34 2C C7 28 31 35 29 3B 54 42 24 22 31 30 |:.4,.(15);TB$"10| 00000D70: 2A 2A 2A 20 22 41 24 28 49 29 22 20 3A 20 22 3B |*** "A$(I)" : ";| 00000D80: 41 28 49 29 3A 82 00 AA 15 BC 11 8D 37 30 3A 98 |A(I):.......70:.| 00000D90: 34 2C 54 41 24 3B 54 42 24 22 31 34 22 41 24 28 |4,TA$;TB$"14"A$(| 00000DA0: 46 29 22 20 3A 20 22 41 42 24 00 D8 15 C6 11 98 |F)" : "AB$......| 00000DB0: 34 2C 54 42 24 22 31 35 22 3B 3A 81 49 B2 31 A4 |4,TB$"15";:.I.1.| 00000DC0: 32 AA C3 28 41 24 28 46 29 AA 41 42 24 29 3A 98 |2..(A$(F).AB$):.| 00000DD0: 34 2C 22 3D 22 3B 3A 82 00 EB 15 D0 11 98 34 2C |4,"=";:.......4,| 00000DE0: 54 41 24 3B 54 41 24 3B 54 41 24 00 24 16 DA 11 |TA$;TA$;TA$.$...| 00000DF0: 98 34 2C C7 28 31 33 29 3B 54 42 24 22 31 30 2A |.4,.(13);TB$"10*| 00000E00: 2A 2A 20 20 20 C5 4E 44 4B 41 50 49 54 41 4C 20 |** .NDKAPITAL | 00000E10: 55 4E 44 20 C2 41 52 57 45 52 54 20 57 45 52 44 |UND .ARWERT WERD| 00000E20: 45 4E 22 3B 00 45 16 E4 11 98 34 2C 22 20 49 4E |EN";.E....4," IN| 00000E30: 20 27 20 C4 CD 20 27 20 41 55 53 47 45 44 52 55 | ' .. ' AUSGEDRU| 00000E40: 43 4B 54 2C 22 00 6B 16 EE 11 98 34 2C 54 42 24 |CKT,".k....4,TB$| 00000E50: 22 31 36 44 45 52 20 DA 49 4E 53 53 41 54 5A 20 |"16DER .INSSATZ | 00000E60: 49 4E 20 27 20 25 20 27 20 21 22 00 98 16 F8 11 |IN ' % ' !".....| 00000E70: 98 34 3A 81 49 B2 31 A4 34 30 3A 98 34 2C 22 3D |.4:.I.1.40:.4,"=| 00000E80: 3D 22 3B 3A 82 3A 98 34 2C 54 41 24 3B 54 41 24 |=";:.:.4,TA$;TA$| 00000E90: 3B 54 41 24 3B 54 41 24 00 BB 16 02 12 A0 34 3A |;TA$;TA$......4:| 00000EA0: 81 49 B2 35 36 31 37 36 A4 35 36 32 31 35 3A 97 |.I.56176.56215:.| 00000EB0: 49 2C 30 3A 82 3A 89 33 35 38 30 00 D4 16 88 13 |I,0:.:.3580.....| 00000EC0: 8F 20 2A 20 56 41 52 49 41 42 4C 45 4E 4C 49 53 |. * VARIABLENLIS| 00000ED0: 54 45 20 2A 00 09 17 92 13 4D 41 24 B2 22 93 12 |TE *.....MA$."..| 00000EE0: 20 20 20 20 20 20 C4 C9 D3 CB CF CE D4 C9 C5 D2 | ..........| 00000EF0: C5 CE A0 C5 C9 CE C5 D3 A0 CB C1 D0 C9 D4 C1 CC |................| 00000F00: D3 20 20 20 20 20 20 92 22 00 3D 17 9C 13 4D 42 |. .".=...MB| 00000F10: 24 B2 22 12 20 C6 33 20 55 2E 20 C6 35 20 2D 20 |$.". .3 U. .5 - | 00000F20: D7 41 48 4C 20 21 20 27 D2 C5 D4 D5 D2 CE 27 20 |.AHL ! '......' | 00000F30: 2D 20 C5 49 4E 47 41 42 45 20 21 92 22 00 71 17 |- .INGABE !.".q.| 00000F40: A6 13 4D 43 24 B2 22 12 20 20 C6 31 20 2D 20 CE |..MC$.". .1 - .| 00000F50: 45 55 20 21 20 20 20 20 20 20 C7 45 42 45 4E 20 |EU ! .EBEN | 00000F60: D3 49 45 20 45 49 4E 20 21 20 20 20 20 20 20 92 |.IE EIN ! .| 00000F70: 22 00 A5 17 B0 13 4D 44 24 B2 22 12 20 C6 31 20 |".....MD$.". .1 | 00000F80: 2D 20 D2 45 53 55 4C 54 41 54 20 21 20 20 20 20 |- .ESULTAT ! | 00000F90: 20 C6 33 20 55 2E 20 C6 35 20 2D 20 D7 41 48 4C | .3 U. .5 - .AHL| 00000FA0: 20 21 20 92 22 00 EF 17 BA 13 4B 4E 24 B2 22 20 | ! .".....KN$." | 00000FB0: C5 4E 44 4B 41 50 49 54 41 4C 22 3A 50 24 B2 22 |.NDKAPITAL":P$."| 00000FC0: 20 20 DA 49 4E 53 53 41 54 5A 20 22 3A 4A 41 24 | .INSSATZ ":JA$| 00000FD0: B2 22 20 20 CA 41 48 52 45 20 20 20 20 22 3A 50 |." .AHRE ":P| 00000FE0: 4D 24 B2 22 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 00 |M$."..........".| 00000FF0: 05 18 C4 13 4B 42 24 B2 22 20 20 C2 41 52 57 45 |....KB$." .ARWE| 00001000: 52 54 20 20 22 00 1D 18 F6 13 42 41 24 28 31 29 |RT ".....BA$(1)| 00001010: B2 22 20 20 C1 45 4E 44 45 52 4E 20 22 00 35 18 |." .ENDERN ".5.| 00001020: 00 14 42 41 24 28 32 29 B2 22 20 20 CB 4F 50 49 |..BA$(2)." .OPI| 00001030: 45 20 20 20 22 00 4D 18 0A 14 42 41 24 28 33 29 |E ".M...BA$(3)| 00001040: B2 22 20 20 CE 45 55 20 20 20 20 20 22 00 65 18 |." .EU ".e.| 00001050: 14 14 42 41 24 28 34 29 B2 22 20 CD 45 4E 55 45 |..BA$(4)." .ENUE| 00001060: 20 20 20 20 22 00 7D 18 86 15 41 24 28 31 29 B2 | ".}...A$(1).| 00001070: 22 20 20 C2 41 52 57 45 52 54 20 20 22 00 95 18 |" .ARWERT "...| 00001080: 90 15 41 24 28 32 29 B2 22 20 C5 4E 44 4B 41 50 |..A$(2)." .NDKAP| 00001090: 49 54 41 4C 22 00 AD 18 9A 15 41 24 28 33 29 B2 |ITAL".....A$(3).| 000010A0: 22 20 20 DA 49 4E 53 53 41 54 5A 20 22 00 C5 18 |" .INSSATZ "...| 000010B0: A4 15 41 24 28 34 29 B2 22 20 20 CC 41 55 46 5A |..A$(4)." .AUFZ| 000010C0: 45 49 54 20 22 00 DD 18 AE 15 41 24 28 35 29 B2 |EIT ".....A$(5).| 000010D0: 22 20 20 CD 45 4E 55 45 20 20 20 20 22 00 F6 18 |" .ENUE "...| 000010E0: D6 15 41 24 28 31 33 29 B2 22 20 20 C1 45 4E 44 |..A$(13)." .END| 000010F0: 45 52 4E 20 20 22 00 0F 19 E0 15 41 24 28 31 34 |ERN ".....A$(14| 00001100: 29 B2 22 20 20 D2 45 53 55 4C 54 41 54 20 22 00 |)." .ESULTAT ".| 00001110: 2A 19 EA 15 41 24 28 31 35 29 B2 22 20 20 CD 45 |*...A$(15)." .E| 00001120: 4E 55 45 20 20 20 20 22 3A 8E 00 00 00 15 41 24 |NUE ":.....A$| 00001130: 28 31 35 29 B2 22 20 20 CD 45 4E 55 45 20 20 20 |(15)." .ENUE | 00001140: 20 22 3A 8E 00 00 00 41 24 28 31 35 29 B2 22 20 | ":....A$(15)." | 00001150: 20 CD 45 4E 55 45 20 20 20 20 22 3A 8E 00 00 00 | .ENUE ":....| 00001160: 24 28 31 35 29 B2 22 20 20 CD 45 4E 55 45 20 20 |$(15)." .ENUE | 00001170: 20 20 22 3A 8E 00 00 00 22 00 F1 18 E0 15 41 24 | ":....".....A$| 00001180: 28 31 34 29 B2 22 20 20 D2 45 53 55 4C 54 41 54 |(14)." .ESULTAT| 00001190: 20 22 00 0C 19 EA 15 41 24 28 31 35 29 B2 22 20 | ".....A$(15)." | 000011A0: 20 CD 45 4E 55 45 20 20 20 20 22 3A 8E 00 00 00 | .ENUE ":....| 000011B0: 29 B2 22 20 20 D2 45 53 55 4C 54 41 54 20 22 00 |)." .ESULTAT ".| 000011C0: 39 19 EA 15 41 24 28 31 35 29 B2 22 20 20 CD 45 |9...A$(15)." .E| 000011D0: 4E 55 45 20 20 20 20 22 3A 8E 00 00 00 24 28 31 |NUE ":....$(1| 000011E0: 35 29 B2 22 20 20 CD 45 4E 55 45 20 20 20 20 22 |5)." .ENUE "| 000011F0: 3A 8E 00 00 00 24 28 31 35 29 B2 22 20 20 CD 45 |:....$(15)." .E| 00001200: 4E 55 45 20 20 20 20 22 3A 8E 00 00 00 24 28 31 |NUE ":....$(1| 00001210: 35 29 B2 22 20 20 CD 45 4E 55 45 20 20 20 20 22 |5)." .ENUE "| 00001220: 3A 8E 00 00 00 20 00 B3 |:.... .. |
.......45,B(174):.46,B(175):..7....:.A$(
15),A(15):.1000._...Z1.3:Z2.9:S.13:. * M
ASKE LOESCHEN *......Z.Z1.Z2:.90:."
":.:.C.0.......Z1.1
2:Z2.20:C.0:.20...2.....F.A$(12).D(.(A(1
2).100..5)):. * RUNDEN...K.AB$.H(A$(12),
C(A$(12)).2).".".I(A$(12),2):..+.P.."MEN
UE",8:. *LOAD MENUE.Y.Z..214,Z:.211,S:.5
8732:.:. * CURSORPOSITION..._.A.55869:.I
.1597.1622:.I,100:.A,1:A.A.1:.:....D.. *
AUSWAHLROUTINE *.E.N..90:.".
.":.I.1.75:.I...X..90:."."A$(Y)".":.I.1.
125:.......G$:.G$..G(133).G$..G(134).G$.
.G(135).G$..G(13).110.4....G$.G(133).C.C
.0:..O....G$.G(13)..90:.".>.":..B. ..G$.
G(135).190.....Z.Z.SW:Y.Y.1:.Z.Z2.Z.Z1:Y
.Y1......110.....Z.Z.SW:Y.Y.1:.Z.Z1.Z.Z2
:Y.Y2...C..110.S.H.. * WAHL-FUSSZEILE *:
S=0...R.Z.23:.90:.". .";:.I.1.7
5:.......90:."."BA$(Y)".";:.I.1.175:..J.
...G$:.G$..G(134).G$..G(135).G$..G(13).2
10.F....G$.G(13)..90:.".>.";:..Y....G$.G
(135).280.....S.S.10:Y.Y.1:.S.31.S.0:Y.1
......210.....S.S.10:Y.Y.1:.S.0.S.30:Y.4
.I."..210...,.. * EINGABEROUTINE *...6..
90...@.IN$.""...J.."..";...T..G$:.G$."".
340.).^.G.F(G$):.G.13.460.5.H..G.13...L.
R..G$."0".G$."9".420.[.|.IN$.IN$.G$.D...
.G$;......C(IN$).N..I.1.C(IN$):.G(20);:.
:.320......330......G.46.380......G$.G(1
33).9.D....G..20.330.V....C(IN$).1.330..
.B.IN$.H(IN$,C(IN$).1):.390.".L.PN$."":.
I.1.(10.C(IN$)):PN$.PN$.".":.:.PN$.4.V..
C(IN$).1.310.:.....@...:.X.... ** DIKONT
IEREN **.G....5000:.MA$.....A.55388:.I.1
076.1906.40:.I,101:.A,1:A.A.40:..E...A.5
5736:.I.1464.1474:.I,100:.A,1:A.A.1:....
..A.55749:.I.1477.1502:.I,100:.A,1:A.A.1
:......Z.23:S.0:.90:.MB$...$.Z.3:.90:."A
USWAHL :":.".........".V...Z.5:.I.1.5:.9
0:."."A$(I)".":Z.Z.1:....8.Z.5:Z1.Z:Z2.9
:S.0:Y.1:Y1.Y:Y2.5:SW.1:C.0:.100:F.Y:.F.
5.80...~..F.1.A$(9).KN$:A$(10).P$:A$(11)
.JA$:K.1......F.2.A$(9).KB$:A$(10).P$:A$
(11).JA$:K.1......F.3.A$(9).KN$:A$(10).K
B$:A$(11).JA$:K.0.E....F.4.A$(9).KN$:A$(
10).KB$:A$(11).P$:K.2.\.P.. * EINGABEMAS
KE *...Z.Z.3:S.13:.90:."EINGABE :":Z.4:.
90:.".........".....Z.5:.I.9.11:S.13:.90
:."."A$(I)". : ";PM$.Z...Z.Z.2:.:Z.23:S.
0:.90:.MC$.....Z.5:S.27:N.10:.300:A(9).E
(IN$).....Z.7:.300:A(10).E(IN$).1...Z.9:
.300:A(11).E(IN$).C...Z.13:S.13:.90:."EI
NGABE KORREKT ? (J/N):":.95.|. .Z.13:S.3
8:.90:."..";...*..G$:.G$.."J".G$.."N".20
90...4..G$:.G$."J".Y.1...>..G$."N".Y.0..
.H..I$:.I$..G(13).I$..G(20).2120...R..I$
.G(20).2080...\.C.1:.10:.Y.0.2010......
* RECHNUNG *.J.B..F.1.A(12).A(9).(1.(1.(
A(10).100)).A(11)).X.L..F.2.A(12).A(9).(
1.(1.(A(10).100)).A(11))...V..F.3.A(12).
((A(9).A(10)).(1.A(11)).1).100.T....F.4.
A(12)..(A(9).A(10))..(1.(A(11).100))....
.. * BILDSCHIRM.....Z.3:S.13:.90:."EINGA
BE :":Z.4:.90:."..........".F...Z.5:.I.9
.11:.90:.A$(I)" :"A(I):Z.Z.2:..|.J.Z.13:
.90:."RESULTAT :":Z.14:.90:.".........."
:.70...T.Z.16:.90:."."A$(F)". :";:..38.C
(AB$));AB$.R.....39.C(AB$));:.I.1.C(AB$)
.1:."=";:......Z.20:.90:.K.1.."AUSDRUCK
IN DM !":.3580. ....K.0.."AUSDRUCK IN PR
OZENT !".I...Z.23:S.0:.90:.I.1.4:."."BA$
(I)".";:..^...Y.1:.200:.Y.4.80.L....Y.3.
1010.Z....Y.2.4500... .. * AENDERUNG *..
...C.1:.10.Q...Z.3:S.13:.90:."AENDERUNG
:":Z.4:.90:."...........".....Z.5:S.13:.
I.9.11:.90:."."A$(I)". :";A(I):Z.Z.2:...
.H.Z.23:S.0:.90:.MD$;.Q.R.Z.5:Z1.Z:Z2.9:
S.13:Y.9:Y1.Y:Y2.11:SW.2:C.1:.100.D....C
.0..10:.3000.....Z.13:S.13:.90:."."A$(Y)
". : "PM$:.95.E...Z.23:S.0:.90:.MC$;:Z.1
3:S.27:.300:A(Y).E(IN$):.4010.X.... * AU
SDRUCK *.....TA$.G(10):TB$.G(16).'....4,
4,7:.4,G(14);TB$"10DISKONTIEREN EINES KA
PITALS".T....4,TB$"10-------------------
--------"TA$......I.9.11:.4,G(15);TB$"10
*** "A$(I)" : ";A(I):.......70:.4,TA$;TB
$"14"A$(F)" : "AB$.X.F..4,TB$"15";:.I.1.
2.C(A$(F).AB$):.4,"=";:....P..4,TA$;TA$;
TA$.$.Z..4,G(13);TB$"10*** ENDKAPITAL
UND BARWERT WERDEN";.E....4," IN ' DM '
AUSGEDRUCKT,".K....4,TB$"16DER ZINSSATZ
IN ' % ' !"......4:.I.1.40:.4,"==";:.:.4
,TA$;TA$;TA$;TA$..... 4:.I.56176.56215:.
I,0:.:.3580.T.... * VARIABLENLISTE *....
.MA$.".. DISKONTIEREN EINES KAPITAL
S .".=...MB$.". F3 U. F5 - WAHL ! '
RETURN' - EINGABE !.".Q...MC$.". F1 - N
EU ! GEBEN SIE EIN ! .".....MD
$.". F1 - RESULTAT ! F3 U. F5 - WAHL
! .".....KN$." ENDKAPITAL":P$." ZINSSA
TZ ":JA$." JAHRE ":PM$."..........".
..D.KB$." BARWERT ".....BA$(1)." AEND
ERN ".5...BA$(2)." KOPIE ".M...BA$(3)
." NEU ".E...BA$(4)." MENUE ".}.
..A$(1)." BARWERT ".....A$(2)." ENDKAP
ITAL".....A$(3)." ZINSSATZ ".E...A$(4).
" LAUFZEIT ".....A$(5)." MENUE "...
V.A$(13)." AENDERN ".....A$(14)." RES
ULTAT ".*...A$(15)." MENUE ":.....A$
(15)." MENUE ":....A$(15)." MENUE
":....$(15)." MENUE ":....".....A$
(14)." RESULTAT ".....A$(15)." MENUE
":....)." RESULTAT ".9...A$(15)." ME
NUE ":....$(15)." MENUE ":....$(1
5)." MENUE ":....$(15)." MENUE "
:.... ..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL