♦INSESZINSRECHNU
FILE INFORMATION
FILENAME(S): ♦INSESZINSRECHNU
FILE TYPE(S): PRG
FILE SIZE: 4.8K
FIRST SEEN: 2025-11-30 21:13:10
APPEARS ON: 1 disk(s)
FILE HASH
95ac68d5f8b347f335bcfe464fbd9411163bc6705d2e8a3f4c04f0f332995e17
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64 ER OKT 84 | ♦INSESZINSRECHNU | PRG | DuncanTwain | 10 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 07 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 38 08 |:.46,.(175):..8.|
00000020: 08 00 8F 20 28 43 29 20 42 59 20 4B 4C 41 55 53 |... (C) BY KLAUS|
00000030: 20 4B 4C 4F 45 4B 45 52 00 59 08 09 00 9C 3A 86 | KLOEKER.Y....:.|
00000040: 41 24 28 31 39 29 2C 41 28 31 39 29 2C 42 41 24 |A$(19),A(19),BA$|
00000050: 28 34 29 3A 89 31 30 30 30 00 81 08 0A 00 5A 31 |(4):.1000.....Z1|
00000060: B2 32 3A 5A 32 B2 31 30 3A 53 B2 31 33 3A 8F 20 |.2:Z2.10:S.13:. |
00000070: 2A 20 4D 41 53 4B 45 4C 4F 45 53 43 48 45 4E 20 |* MASKELOESCHEN |
00000080: 2A 00 B9 08 14 00 81 5A B2 5A 31 A4 5A 32 3A 8D |*......Z.Z1.Z2:.|
00000090: 38 30 3A 99 22 20 20 20 20 20 20 20 20 20 20 20 |80:." |
000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
000000B0: 3A 82 3A 8B 43 B2 30 A7 8E 00 D1 08 1E 00 5A 31 |:.:.C.0.......Z1|
000000C0: B2 31 32 3A 5A 32 B2 32 30 3A 43 B2 30 3A 89 32 |.12:Z2.20:C.0:.2|
000000D0: 30 00 F9 08 28 00 53 B2 30 3A 81 5A B2 31 32 A4 |0...(.S.0:.Z.12.|
000000E0: 32 30 3A 8D 38 30 3A 99 22 20 20 20 20 20 20 20 |20:.80:." |
000000F0: 20 20 20 20 22 3A 82 3A 8E 00 20 09 32 00 41 24 | ":.:.. .2.A$|
00000100: 28 41 29 B2 C4 28 B5 28 41 28 41 29 AC 31 30 30 |(A)..(.(A(A).100|
00000110: AA 2E 35 29 29 3A 8F 20 2A 20 52 55 4E 44 45 4E |..5)):. * RUNDEN|
00000120: 00 4D 09 3C 00 41 42 24 B2 C8 28 41 24 28 41 29 |.M.<.AB$..(A$(A)|
00000130: 2C C3 28 41 24 28 41 29 29 AB 32 29 AA 22 2E 22 |,.(A$(A)).2)."."|
00000140: AA C9 28 41 24 28 41 29 2C 32 29 3A 8E 00 60 09 |..(A$(A),2):..`.|
00000150: 46 00 93 22 4D 45 4E 55 45 22 2C 38 3A 8F 20 2A |F.."MENUE",8:. *|
00000160: 00 8E 09 50 00 97 32 31 34 2C 5A 3A 97 32 31 31 |...P..214,Z:.211|
00000170: 2C 53 3A 9E 35 38 37 33 32 3A 8E 3A 8F 20 2A 20 |,S:.58732:.:. * |
00000180: 43 55 52 53 4F 52 50 4F 53 49 54 49 4F 4E 00 BD |CURSORPOSITION..|
00000190: 09 5A 00 41 B2 35 35 38 36 39 3A 81 49 B2 31 35 |.Z.A.55869:.I.15|
000001A0: 39 37 A4 31 36 32 32 3A 97 49 2C 31 30 30 3A 97 |97.1622:.I,100:.|
000001B0: 41 2C 31 3A 41 B2 41 AA 31 3A 82 3A 8E 00 D4 09 |A,1:A.A.1:.:....|
000001C0: 64 00 8F 20 2A 20 41 55 53 57 41 48 4C 52 4F 55 |d.. * AUSWAHLROU|
000001D0: 54 49 4E 45 00 F7 09 6E 00 8D 38 30 3A 99 22 12 |TINE...n..80:.".|
000001E0: 20 20 20 20 20 20 20 20 20 20 20 92 22 3A 81 49 | .":.I|
000001F0: B2 31 A4 37 35 3A 82 00 17 0A 78 00 8D 38 30 3A |.1.75:....x..80:|
00000200: 99 22 12 22 41 24 28 59 29 22 92 22 3A 81 49 B2 |."."A$(Y)".":.I.|
00000210: 31 A4 31 32 35 3A 82 00 4F 0A 82 00 A1 47 24 3A |1.125:..O....G$:|
00000220: 8B 47 24 B3 B1 C7 28 31 33 33 29 AF 47 24 B3 B1 |.G$...(133).G$..|
00000230: C7 28 31 33 34 29 AF 47 24 B3 B1 C7 28 31 33 35 |.(134).G$...(135|
00000240: 29 AF 47 24 B3 B1 C7 28 31 33 29 A7 31 31 30 00 |).G$...(13).110.|
00000250: 66 0A 8C 00 8B 47 24 B2 C7 28 31 33 33 29 AF 43 |f....G$..(133).C|
00000260: A7 43 B2 30 3A 8E 00 82 0A 96 00 8B 47 24 B2 C7 |.C.0:.......G$..|
00000270: 28 31 33 29 A7 8D 38 30 3A 99 22 12 3E 92 22 3B |(13)..80:.".>.";|
00000280: 3A 8E 00 95 0A A0 00 8B 47 24 B2 C7 28 31 33 35 |:.......G$..(135|
00000290: 29 A7 31 39 30 00 B6 0A AA 00 5A B2 5A AA 53 57 |).190.....Z.Z.SW|
000002A0: 3A 59 B2 59 AA 31 3A 8B 5A B1 5A 32 A7 5A B2 5A |:Y.Y.1:.Z.Z2.Z.Z|
000002B0: 31 3A 59 B2 59 31 00 BF 0A B4 00 89 31 31 30 00 |1:Y.Y1......110.|
000002C0: E0 0A BE 00 5A B2 5A AB 53 57 3A 59 B2 59 AB 31 |....Z.Z.SW:Y.Y.1|
000002D0: 3A 8B 5A B3 5A 31 A7 5A B2 5A 32 3A 59 B2 59 32 |:.Z.Z1.Z.Z2:Y.Y2|
000002E0: 00 E9 0A C3 00 89 31 31 30 00 04 0B C8 00 8F 20 |......110...... |
000002F0: 2A 20 57 41 48 4C 2D 46 55 53 53 5A 45 49 4C 45 |* WAHL-FUSSZEILE|
00000300: 3A 53 3D 30 00 2C 0B D2 00 5A B2 32 33 3A 8D 38 |:S=0.,...Z.23:.8|
00000310: 30 3A 99 22 12 20 20 20 20 20 20 20 20 20 20 92 |0:.". .|
00000320: 22 3B 3A 81 49 B2 31 A4 37 35 3A 82 00 4E 0B DC |";:.I.1.75:..N..|
00000330: 00 8D 38 30 3A 99 22 12 22 42 41 24 28 59 29 22 |..80:."."BA$(Y)"|
00000340: 92 22 3B 3A 81 49 B2 31 A4 31 37 35 3A 82 00 7B |.";:.I.1.175:..{|
00000350: 0B E6 00 A1 47 24 3A 8B 47 24 B3 B1 C7 28 31 33 |....G$:.G$...(13|
00000360: 34 29 AF 47 24 B3 B1 C7 28 31 33 35 29 AF 47 24 |4).G$...(135).G$|
00000370: B3 B1 C7 28 31 33 29 A7 32 31 30 00 97 0B F0 00 |...(13).210.....|
00000380: 8B 47 24 B2 C7 28 31 33 29 A7 8D 38 30 3A 99 22 |.G$..(13)..80:."|
00000390: 12 3E 92 22 3B 3A 8E 00 AA 0B FA 00 8B 47 24 B2 |.>.";:.......G$.|
000003A0: C7 28 31 33 35 29 A7 32 38 30 00 C9 0B 04 01 53 |.(135).280.....S|
000003B0: B2 53 AA 31 30 3A 59 B2 59 AA 31 3A 8B 53 B1 33 |.S.10:Y.Y.1:.S.3|
000003C0: 30 A7 53 B2 30 3A 59 B2 31 00 D2 0B 0E 01 89 32 |0.S.0:Y.1......2|
000003D0: 31 30 00 F1 0B 18 01 53 B2 53 AB 31 30 3A 59 B2 |10.....S.S.10:Y.|
000003E0: 59 AB 31 3A 8B 53 B3 30 A7 53 B2 33 30 3A 59 B2 |Y.1:.S.0.S.30:Y.|
000003F0: 34 00 FA 0B 22 01 89 32 31 30 00 11 0C 2C 01 8F |4..."..210...,..|
00000400: 20 2A 20 45 49 4E 47 41 42 45 52 4F 55 54 49 4E | * EINGABEROUTIN|
00000410: 45 00 19 0C 36 01 8D 38 30 00 24 0C 3B 01 49 4E |E...6..80.$.;.IN|
00000420: 24 B2 22 22 00 2F 0C 40 01 99 22 A2 9D 22 3B 00 |$.""./.@.."..";.|
00000430: 42 0C 4A 01 A1 47 24 3A 8B 47 24 B2 22 22 A7 33 |B.J..G$:.G$."".3|
00000440: 33 30 00 58 0C 54 01 47 B2 C6 28 47 24 29 3A 8B |30.X.T.G..(G$):.|
00000450: 47 B2 31 33 A7 34 36 30 00 6B 0C 68 01 8B 47 B3 |G.13.460.k.h..G.|
00000460: 34 38 B0 47 B1 35 37 A7 34 31 30 00 84 0C 72 01 |48.G.57.410...r.|
00000470: 49 4E 24 B2 49 4E 24 AA 47 24 3A 49 4E B2 C3 28 |IN$.IN$.G$:IN..(|
00000480: 49 4E 24 29 00 8D 0C 7C 01 99 47 24 3B 00 AE 0C |IN$)...|..G$;...|
00000490: 86 01 8B 49 4E B1 4E A7 81 49 B2 31 A4 49 4E 3A |...IN.N..I.1.IN:|
000004A0: 99 C7 28 32 30 29 3B 3A 82 3A 89 33 31 30 00 B7 |..(20);:.:.310..|
000004B0: 0C 90 01 89 33 32 30 00 C5 0C 9A 01 8B 47 B2 34 |....320......G.4|
000004C0: 36 A7 33 37 30 00 D6 0C A4 01 8B 47 24 B2 C7 28 |6.370......G$..(|
000004D0: 31 33 33 29 A7 39 00 E5 0C AE 01 8B 47 B3 B1 32 |133).9......G..2|
000004E0: 30 A7 33 32 30 00 F3 0C B8 01 8B 49 4E B3 31 A7 |0.320......IN.1.|
000004F0: 33 32 30 00 0C 0D C2 01 49 4E 24 B2 C8 28 49 4E |320.....IN$..(IN|
00000500: 24 2C 49 4E AB 31 29 3A 89 33 38 30 00 3B 0D CC |$,IN.1):.380.;..|
00000510: 01 50 4E 24 B2 22 22 3A 81 49 B2 31 A4 28 31 30 |.PN$."":.I.1.(10|
00000520: AB C3 28 49 4E 24 29 29 3A 50 4E 24 B2 50 4E 24 |..(IN$)):PN$.PN$|
00000530: AA 22 2E 22 3A 82 3A 99 50 4E 24 00 4D 0D D6 01 |.".":.:.PN$.M...|
00000540: 8B C3 28 49 4E 24 29 B3 31 A7 33 31 30 00 53 0D |..(IN$).1.310.S.|
00000550: E0 01 8E 00 59 0D E7 03 3A 00 74 0D E8 03 8F 20 |....Y...:.t.... |
00000560: 2A 20 5A 49 4E 53 45 53 5A 49 4E 53 52 45 43 48 |* ZINSESZINSRECH|
00000570: 4E 55 4E 47 00 83 0D F2 03 8D 35 30 30 30 3A 99 |NUNG......5000:.|
00000580: 4D 41 24 00 B4 0D FC 03 41 B2 35 35 33 38 38 3A |MA$.....A.55388:|
00000590: 81 49 B2 31 30 37 36 A4 31 39 30 36 A9 34 30 3A |.I.1076.1906.40:|
000005A0: 97 49 2C 31 30 31 3A 97 41 2C 31 3A 41 B2 41 AA |.I,101:.A,1:A.A.|
000005B0: 34 30 3A 82 00 E1 0D 06 04 41 B2 35 35 37 33 36 |40:......A.55736|
000005C0: 3A 81 49 B2 31 34 36 34 A4 31 34 37 34 3A 97 49 |:.I.1464.1474:.I|
000005D0: 2C 31 30 30 3A 97 41 2C 31 3A 41 B2 41 AA 31 3A |,100:.A,1:A.A.1:|
000005E0: 82 00 0E 0E 10 04 41 B2 35 35 37 34 39 3A 81 49 |......A.55749:.I|
000005F0: B2 31 34 37 37 A4 31 35 30 32 3A 97 49 2C 31 30 |.1477.1502:.I,10|
00000600: 30 3A 97 41 2C 31 3A 41 B2 41 AA 31 3A 82 00 24 |0:.A,1:A.A.1:..$|
00000610: 0E 1A 04 5A B2 32 33 3A 53 B2 30 3A 8D 38 30 3A |...Z.23:S.0:.80:|
00000620: 99 4D 42 24 00 4A 0E 24 04 5A B2 32 3A 8D 38 30 |.MB$.J.$.Z.2:.80|
00000630: 3A 99 22 C1 55 53 57 41 48 4C 20 3A 22 3A 99 22 |:.".USWAHL :":."|
00000640: A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 72 0E 2E 04 5A |.........".r...Z|
00000650: B2 34 3A 81 49 B2 31 A4 35 3A 8D 38 30 3A 99 22 |.4:.I.1.5:.80:."|
00000660: 12 22 41 24 28 49 29 22 92 22 3A 5A B2 5A AA 31 |."A$(I)".":Z.Z.1|
00000670: 3A 82 00 B0 0E 38 04 5A B2 34 3A 5A 31 B2 5A 3A |:....8.Z.4:Z1.Z:|
00000680: 5A 32 B2 38 3A 53 B2 30 3A 59 B2 31 3A 59 31 B2 |Z2.8:S.0:Y.1:Y1.|
00000690: 59 3A 59 32 B2 35 3A 53 57 B2 31 3A 43 B2 30 3A |Y:Y2.5:SW.1:C.0:|
000006A0: 8D 31 30 30 3A 46 B2 59 3A 8B 46 B2 35 A7 37 30 |.100:F.Y:.F.5.70|
000006B0: 00 DB 0E 42 04 8B 46 B2 31 A7 41 24 28 39 29 B2 |...B..F.1.A$(9).|
000006C0: 4B 4F 24 3A 41 24 28 31 30 29 B2 50 24 3A 41 24 |KO$:A$(10).P$:A$|
000006D0: 28 31 31 29 B2 4E 24 3A 4B B2 31 00 06 0F 4C 04 |(11).N$:K.1...L.|
000006E0: 8B 46 B2 32 A7 41 24 28 39 29 B2 4B 4E 24 3A 41 |.F.2.A$(9).KN$:A|
000006F0: 24 28 31 30 29 B2 50 24 3A 41 24 28 31 31 29 B2 |$(10).P$:A$(11).|
00000700: 4E 24 3A 4B B2 31 00 32 0F 56 04 8B 46 B2 33 A7 |N$:K.1.2.V..F.3.|
00000710: 41 24 28 39 29 B2 4B 4F 24 3A 41 24 28 31 30 29 |A$(9).KO$:A$(10)|
00000720: B2 4B 4E 24 3A 41 24 28 31 31 29 B2 4E 24 3A 4B |.KN$:A$(11).N$:K|
00000730: B2 30 00 5E 0F 60 04 8B 46 B2 34 A7 41 24 28 39 |.0.^.`..F.4.A$(9|
00000740: 29 B2 4B 4F 24 3A 41 24 28 31 30 29 B2 4B 4E 24 |).KO$:A$(10).KN$|
00000750: 3A 41 24 28 31 31 29 B2 80 24 20 4A 12 32 00 E3 |:A$(11)..$ J.2..|
00000760: 0F D0 07 8F 20 2A 20 45 49 4E 47 41 42 45 4D 41 |.... * EINGABEMA|
00000770: 53 4B 45 00 A6 0F DA 07 5A B2 32 3A 53 B2 31 33 |SKE.....Z.2:S.13|
00000780: 3A 8D 38 30 3A 99 22 C5 49 4E 47 41 42 45 20 3A |:.80:.".INGABE :|
00000790: 22 3A 5A B2 33 3A 8D 38 30 3A 99 22 A3 A3 A3 A3 |":Z.3:.80:."....|
000007A0: A3 A3 A3 A3 A3 22 00 DB 0F E4 07 5A B2 34 3A 81 |.....".....Z.4:.|
000007B0: 49 B2 39 A4 31 32 3A 53 B2 31 33 3A 8D 38 30 3A |I.9.12:S.13:.80:|
000007C0: 99 22 12 22 41 24 28 49 29 22 92 20 3A 20 22 3B |."."A$(I)". : ";|
000007D0: 50 4D 24 3A 5A B2 5A AA 32 3A 82 00 F2 0F EE 07 |PM$:Z.Z.2:......|
000007E0: 5A B2 32 33 3A 53 B2 30 3A 8D 38 30 3A 99 4D 43 |Z.23:S.0:.80:.MC|
000007F0: 24 3B 00 15 10 F8 07 5A B2 34 3A 53 B2 32 37 3A |$;.....Z.4:S.27:|
00000800: 4E B2 31 30 3A 8D 33 30 30 3A 41 28 39 29 B2 C5 |N.10:.300:A(9)..|
00000810: 28 49 4E 24 29 00 2F 10 02 08 5A B2 36 3A 8D 33 |(IN$)./...Z.6:.3|
00000820: 30 30 3A 41 28 31 30 29 B2 C5 28 49 4E 24 29 00 |00:A(10)..(IN$).|
00000830: 49 10 0C 08 5A B2 38 3A 8D 33 30 30 3A 41 28 31 |I...Z.8:.300:A(1|
00000840: 31 29 B2 C5 28 49 4E 24 29 00 68 10 11 08 5A B2 |1)..(IN$).h...Z.|
00000850: 31 30 3A 4E B2 39 3A 8D 33 30 30 3A 41 28 31 32 |10:N.9:.300:A(12|
00000860: 29 B2 C5 28 49 4E 24 29 00 9A 10 16 08 5A B2 31 |)..(IN$).....Z.1|
00000870: 33 3A 53 B2 31 33 3A 8D 38 30 3A 99 22 C5 49 4E |3:S.13:.80:.".IN|
00000880: 47 41 42 45 20 4B 4F 52 52 45 4B 54 20 3F 20 28 |GABE KORREKT ? (|
00000890: 4A 2F 4E 29 3A 22 3A 8D 39 30 00 B3 10 20 08 5A |J/N):":.90... .Z|
000008A0: B2 31 33 3A 53 B2 33 38 3A 8D 38 30 3A 99 22 A2 |.13:S.38:.80:.".|
000008B0: 9D 22 3B 00 D1 10 2A 08 A1 47 24 3A 8B 47 24 B3 |.";...*..G$:.G$.|
000008C0: B1 22 4A 22 AF 47 24 B3 B1 22 4E 22 A7 32 30 39 |."J".G$.."N".209|
000008D0: 30 00 E5 10 34 08 99 47 24 3A 8B 47 24 B2 22 4A |0...4..G$:.G$."J|
000008E0: 22 A7 59 B2 31 00 F5 10 3E 08 8B 47 24 B2 22 4E |".Y.1...>..G$."N|
000008F0: 22 A7 59 B2 30 00 17 11 48 08 A1 49 24 3A 8B 49 |".Y.0...H..I$:.I|
00000900: 24 B3 B1 C7 28 31 33 29 AF 49 24 B3 B1 C7 28 32 |$...(13).I$...(2|
00000910: 30 29 A7 32 31 32 30 00 2A 11 52 08 8B 49 24 B2 |0).2120.*.R..I$.|
00000920: C7 28 32 30 29 A7 32 30 38 30 00 40 11 5C 08 43 |.(20).2080.@.\.C|
00000930: B2 31 3A 8D 31 30 3A 8B 59 B2 30 A7 32 30 31 30 |.1:.10:.Y.0.2010|
00000940: 00 51 11 B8 0B 8F 20 2A 20 52 45 43 48 4E 55 4E |.Q.... * RECHNUN|
00000950: 47 00 8B 11 C2 0B 8B 46 B2 31 A7 41 28 31 36 29 |G......F.1.A(16)|
00000960: B2 41 28 39 29 AC 28 31 AA 28 41 28 31 30 29 AD |.A(9).(1.(A(10).|
00000970: 28 41 28 31 32 29 AC 31 30 30 29 29 29 AE 28 41 |(A(12).100))).(A|
00000980: 28 31 31 29 AC 41 28 31 32 29 29 00 C4 11 CC 0B |(11).A(12)).....|
00000990: 8B 46 B2 31 A7 41 28 31 39 29 B2 31 30 30 AC 28 |.F.1.A(19).100.(|
000009A0: 28 31 AA 28 41 28 31 30 29 AD 28 41 28 31 32 29 |(1.(A(10).(A(12)|
000009B0: AC 31 30 30 29 29 29 AE 41 28 31 32 29 AB 31 29 |.100))).A(12).1)|
000009C0: 3A 44 B2 31 00 02 12 D6 0B 8B 46 B2 32 A7 41 28 |:D.1......F.2.A(|
000009D0: 31 36 29 B2 41 28 39 29 AD 28 31 AA 28 41 28 31 |16).A(9).(1.(A(1|
000009E0: 30 29 AD 28 41 28 31 32 29 AC 31 30 30 29 29 29 |0).(A(12).100)))|
000009F0: AE 28 41 28 31 31 29 AC 41 28 31 32 29 29 3A 44 |.(A(11).A(12)):D|
00000A00: B2 30 00 3C 12 E0 0B 8B 46 B2 33 A7 41 28 31 36 |.0.<....F.3.A(16|
00000A10: 29 B2 28 28 41 28 31 30 29 AD 41 28 39 29 29 AE |).((A(10).A(9)).|
00000A20: 28 31 AD 28 41 28 31 31 29 AC 41 28 31 32 29 29 |(1.(A(11).A(12))|
00000A30: 29 AB 31 29 AC 31 30 30 3A 44 B2 30 00 7E 12 EA |).1).100:D.0.~..|
00000A40: 0B 8B 46 B2 34 A7 41 28 31 36 29 B2 28 BC 28 41 |..F.4.A(16).(.(A|
00000A50: 28 31 30 29 AD 41 28 39 29 29 AD BC 28 31 AA 28 |(10).A(9))..(1.(|
00000A60: 41 28 31 31 29 AD 28 41 28 31 32 29 AC 31 30 30 |A(11).(A(12).100|
00000A70: 29 29 29 29 AD 41 28 31 32 29 3A 44 B2 30 00 8D |)))).A(12):D.0..|
00000A80: 12 AC 0D 8F 20 2A 20 53 43 52 45 45 4E 00 C1 12 |.... * SCREEN...|
00000A90: B6 0D 5A B2 32 3A 53 B2 31 33 3A 8D 38 30 3A 99 |..Z.2:S.13:.80:.|
00000AA0: 22 C5 49 4E 47 41 42 45 20 3A 22 3A 5A B2 33 3A |".INGABE :":Z.3:|
00000AB0: 8D 38 30 3A 99 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |.80:."..........|
00000AC0: 22 00 EC 12 C0 0D 5A B2 34 3A 81 49 B2 39 A4 31 |".....Z.4:.I.9.1|
00000AD0: 32 3A 8D 38 30 3A 99 41 24 28 49 29 22 20 3A 22 |2:.80:.A$(I)" :"|
00000AE0: 41 28 49 29 3A 5A B2 5A AA 32 3A 82 00 28 13 CA |A(I):Z.Z.2:..(..|
00000AF0: 0D 5A B2 31 33 3A 8D 38 30 3A 3A 99 22 D2 45 53 |.Z.13:.80::.".ES|
00000B00: 55 4C 54 41 54 20 3A 22 3A 5A B2 31 34 3A 8D 38 |ULTAT :":Z.14:.8|
00000B10: 30 3A 99 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 3A |0:."..........":|
00000B20: 41 B2 31 36 3A 8D 35 30 00 53 13 D4 0D 5A B2 31 |A.16:.50.S...Z.1|
00000B30: 35 3A 8D 38 30 3A 99 22 12 22 41 24 28 46 29 22 |5:.80:."."A$(F)"|
00000B40: 92 20 3A 22 A3 33 38 AB C3 28 41 42 24 29 29 3B |. :".38..(AB$));|
00000B50: 41 42 24 00 7B 13 DE 0D 99 A3 33 39 AB C3 28 41 |AB$.{.....39..(A|
00000B60: 42 24 29 29 3B 3A 81 49 B2 31 A4 C3 28 41 42 24 |B$));:.I.1..(AB$|
00000B70: 29 AB 31 3A 99 22 3D 22 3B 3A 82 00 A7 13 E8 0D |).1:."=";:......|
00000B80: 5A B2 32 30 3A 8D 38 30 3A 8B 4B B2 31 A7 99 22 |Z.20:.80:.K.1.."|
00000B90: C1 55 53 44 52 55 43 4B 20 49 4E 20 C4 CD 20 21 |.USDRUCK IN .. !|
00000BA0: 22 3A 89 33 35 38 30 00 C9 13 F2 0D 8B 4B B2 30 |":.3580......K.0|
00000BB0: A7 99 22 C1 55 53 44 52 55 43 4B 20 49 4E 20 D0 |..".USDRUCK IN .|
00000BC0: 52 4F 5A 45 4E 54 20 21 22 00 D7 13 FC 0D 8B 44 |ROZENT !"......D|
00000BD0: B2 30 A7 33 36 32 30 00 05 14 06 0E 5A B2 31 33 |.0.3620.....Z.13|
00000BE0: 3A 53 B2 30 3A 8D 38 30 3A 3A 99 22 12 22 41 24 |:S.0:.80::."."A$|
00000BF0: 28 31 37 29 22 92 22 3A 99 22 12 22 41 24 28 31 |(17)".":."."A$(1|
00000C00: 38 29 22 92 22 00 28 14 10 0E 5A B2 31 37 3A 53 |8)".".(...Z.17:S|
00000C10: B2 31 3A 8D 38 30 3A 41 B2 31 39 3A 8D 35 30 3A |.1:.80:A.19:.50:|
00000C20: 99 41 42 24 22 20 25 22 00 4F 14 1A 0E 99 A3 37 |.AB$" %".O.....7|
00000C30: AB C3 28 41 42 24 29 29 3B 3A 81 49 B2 31 A4 C3 |..(AB$));:.I.1..|
00000C40: 28 41 42 24 29 AA 31 3A 99 22 3D 22 3B 3A 82 00 |(AB$).1:."=";:..|
00000C50: 78 14 24 0E 5A B2 32 33 3A 53 B2 30 3A 8D 38 30 |x.$.Z.23:S.0:.80|
00000C60: 3A 81 49 B2 31 A4 34 3A 99 22 12 22 42 41 24 28 |:.I.1.4:."."BA$(|
00000C70: 49 29 22 92 22 3B 3A 82 00 8D 14 2E 0E 59 B2 31 |I)".";:......Y.1|
00000C80: 3A 8D 32 30 30 3A 8B 59 B2 34 A7 37 30 00 9B 14 |:.200:.Y.4.70...|
00000C90: 38 0E 8B 59 B2 33 A7 31 30 31 30 00 A9 14 42 0E |8..Y.3.1010...B.|
00000CA0: 8B 59 B2 32 A7 34 35 30 30 00 BB 14 A0 0F 8F 20 |.Y.2.4500...... |
00000CB0: 2A 20 41 45 4E 44 45 52 55 4E 47 00 CE 14 AA 0F |* AENDERUNG.....|
00000CC0: 43 B2 31 3A 8D 31 30 3A 8B 44 A7 8D 34 30 00 06 |C.1:.10:.D..40..|
00000CD0: 15 B4 0F 5A B2 32 3A 53 B2 31 33 3A 8D 38 30 3A |...Z.2:S.13:.80:|
00000CE0: 3A 99 22 C1 45 4E 44 45 52 55 4E 47 20 3A 22 3A |:.".ENDERUNG :":|
00000CF0: 5A B2 33 3A 8D 38 30 3A 99 22 A3 A3 A3 A3 A3 A3 |Z.3:.80:."......|
00000D00: A3 A3 A3 A3 A3 22 00 3C 15 BE 0F 5A B2 34 3A 53 |.....".<...Z.4:S|
00000D10: B2 31 33 3A 3A 81 49 B2 39 A4 31 32 3A 8D 38 30 |.13::.I.9.12:.80|
00000D20: 3A 99 22 12 22 41 24 28 49 29 22 92 20 3A 22 3B |:."."A$(I)". :";|
00000D30: 41 28 49 29 3A 5A B2 5A AA 32 3A 82 00 53 15 C8 |A(I):Z.Z.2:..S..|
00000D40: 0F 5A B2 32 33 3A 53 B2 30 3A 8D 38 30 3A 99 4D |.Z.23:S.0:.80:.M|
00000D50: 44 24 3B 00 88 15 D2 0F 5A B2 34 3A 5A 31 B2 5A |D$;.....Z.4:Z1.Z|
00000D60: 3A 5A 32 B2 31 30 3A 53 B2 31 33 3A 59 B2 39 3A |:Z2.10:S.13:Y.9:|
00000D70: 59 31 B2 59 3A 59 32 B2 31 32 3A 53 57 B2 32 3A |Y1.Y:Y2.12:SW.2:|
00000D80: 43 B2 31 3A 8D 31 30 30 00 9B 15 DC 0F 8B 43 B2 |C.1:.100......C.|
00000D90: 30 A7 8D 31 30 3A 89 33 30 30 30 00 C5 15 E6 0F |0..10:.3000.....|
00000DA0: 5A B2 31 33 3A 53 B2 31 33 3A 8D 38 30 3A 99 22 |Z.13:S.13:.80:."|
00000DB0: 12 22 41 24 28 59 29 22 92 20 3A 20 22 3B 50 4D |."A$(Y)". : ";PM|
00000DC0: 24 3A 8D 39 30 00 FD 15 F0 0F 5A B2 32 33 3A 53 |$:.90.....Z.23:S|
00000DD0: B2 30 3A 8D 38 30 3A 99 4D 43 24 3B 3A 5A B2 31 |.0:.80:.MC$;:Z.1|
00000DE0: 33 3A 53 B2 32 37 3A 8D 33 30 30 3A 41 28 59 29 |3:S.27:.300:A(Y)|
00000DF0: B2 C5 28 49 4E 24 29 3A 89 34 30 31 30 00 0D 16 |..(IN$):.4010...|
00000E00: 94 11 8F 20 2A 20 50 52 49 4E 54 45 52 00 25 16 |... * PRINTER.%.|
00000E10: 99 11 54 41 24 B2 C7 28 31 30 29 3A 54 42 24 B2 |..TA$..(10):TB$.|
00000E20: C7 28 31 36 29 00 53 16 9E 11 9F 34 2C 34 2C 37 |.(16).S....4,4,7|
00000E30: 3A 98 34 2C C7 28 31 34 29 3B 54 42 24 22 32 35 |:.4,.(14);TB$"25|
00000E40: DA C9 CE D3 C5 D3 DA C9 CE D3 D2 C5 C3 C8 CE D5 |................|
00000E50: CE C7 22 00 76 16 A8 11 98 34 2C 54 42 24 22 32 |..".v....4,TB$"2|
00000E60: 35 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |5---------------|
00000E70: 2D 2D 22 54 41 24 00 A6 16 B2 11 81 49 B2 39 A4 |--"TA$......I.9.|
00000E80: 31 32 3A 98 34 2C C7 28 31 35 29 54 42 24 22 31 |12:.4,.(15)TB$"1|
00000E90: 30 2A 2A 2A 20 22 41 24 28 49 29 22 20 3A 20 22 |0*** "A$(I)" : "|
00000EA0: 41 28 49 29 3A 82 00 CF 16 BC 11 41 B2 31 36 3A |A(I):......A.16:|
00000EB0: 8D 35 30 3A 98 34 2C 54 41 24 3B 54 42 24 22 31 |.50:.4,TA$;TB$"1|
00000EC0: 34 22 41 24 28 46 29 22 20 3A 20 22 41 42 24 00 |4"A$(F)" : "AB$.|
00000ED0: FD 16 C6 11 98 34 2C 54 42 24 22 31 35 22 3B 3A |.....4,TB$"15";:|
00000EE0: 81 49 B2 31 A4 32 AA C3 28 41 24 28 46 29 AA 41 |.I.1.2..(A$(F).A|
00000EF0: 42 24 29 3A 98 34 2C 22 3D 22 3B 3A 82 00 13 17 |B$):.4,"=";:....|
00000F00: D0 11 98 34 2C C7 28 31 33 29 3A 8B 44 A7 8D 34 |...4,.(13):.D..4|
00000F10: 36 32 30 00 26 17 D5 11 98 34 2C 54 41 24 3B 54 |620.&....4,TA$;T|
00000F20: 41 24 3B 54 41 24 00 5C 17 DA 11 98 34 2C C7 28 |A$;TA$.\....4,.(|
00000F30: 31 33 29 3B 54 42 24 22 31 30 2A 2A 2A 20 20 CB |13);TB$"10*** .|
00000F40: 41 50 49 54 41 4C 20 55 4E 44 20 DA 49 4E 53 53 |APITAL UND .INSS|
00000F50: 41 54 5A 20 57 45 52 44 45 4E 22 3B 00 7D 17 E4 |ATZ WERDEN";.}..|
00000F60: 11 98 34 2C 22 20 49 4E 20 27 20 C4 CD 20 27 20 |..4," IN ' .. ' |
00000F70: 41 55 53 47 45 44 52 55 43 4B 54 2C 22 00 C0 17 |AUSGEDRUCKT,"...|
00000F80: EE 11 98 34 2C 54 42 24 22 31 36 DA 49 4E 53 53 |...4,TB$"16.INSS|
00000F90: 41 54 5A 20 55 4E 44 20 CA 41 48 52 45 53 5A 49 |ATZ UND .AHRESZI|
00000FA0: 4E 53 20 28 46 41 4C 4C 53 20 56 4F 52 48 41 4E |NS (FALLS VORHAN|
00000FB0: 44 45 4E 29 20 49 4E 20 27 20 25 A0 27 20 21 22 |DEN) IN ' %.' !"|
00000FC0: 00 E9 17 F8 11 98 34 3A 81 49 B2 31 A4 34 30 3A |......4:.I.1.40:|
00000FD0: 98 34 2C 22 3D 3D 22 3B 3A 82 3A 98 34 2C 54 41 |.4,"==";:.:.4,TA|
00000FE0: 24 3B 54 41 24 3B 54 41 24 00 0C 18 02 12 A0 34 |$;TA$;TA$......4|
00000FF0: 3A 81 49 B2 35 36 31 37 36 A4 35 36 32 31 35 3A |:.I.56176.56215:|
00001000: 97 49 2C 30 3A 82 3A 89 33 36 32 30 00 37 18 0C |.I,0:.:.3620.7..|
00001010: 12 8B 44 A7 98 34 2C 54 41 24 3B 54 42 24 22 31 |..D..4,TA$;TB$"1|
00001020: 35 22 41 24 28 31 37 29 22 20 22 41 24 28 31 38 |5"A$(17)" "A$(18|
00001030: 29 22 20 3A 20 22 3B 00 4B 18 16 12 41 B2 31 39 |)" : ";.K...A.19|
00001040: 3A 8D 35 30 3A 98 34 2C 41 42 24 00 82 18 20 12 |:.50:.4,AB$... .|
00001050: 98 34 2C 54 42 24 22 31 35 22 3B 3A 81 49 B2 31 |.4,TB$"15";:.I.1|
00001060: A4 C3 28 41 24 28 31 38 29 AA 41 24 28 31 39 29 |..(A$(18).A$(19)|
00001070: AA 41 42 24 29 AA 31 30 3A 98 34 2C 22 3D 22 3B |.AB$).10:.4,"=";|
00001080: 3A 82 00 88 18 2A 12 8E 00 9A 18 88 13 8F 20 2A |:....*........ *|
00001090: 20 56 41 52 49 41 42 4C 45 4E 00 CF 18 92 13 4D | VARIABLEN.....M|
000010A0: 41 24 B2 22 93 12 20 20 DA A0 C9 A0 CE A0 D3 A0 |A$.".. ........|
000010B0: C5 A0 D3 A0 DA A0 C9 A0 CE A0 D3 A0 D2 A0 C5 A0 |................|
000010C0: C3 A0 C8 A0 CE A0 D5 A0 CE A0 C7 A0 A0 92 22 00 |..............".|
000010D0: 03 19 9C 13 4D 42 24 B2 22 12 20 C6 33 20 55 2E |....MB$.". .3 U.|
000010E0: 20 C6 35 20 2D 20 D7 41 48 4C 20 21 20 27 D2 C5 | .5 - .AHL ! '..|
000010F0: D4 D5 D2 CE 27 20 2D 20 C5 49 4E 47 41 42 45 20 |....' - .INGABE |
00001100: 21 92 22 00 37 19 A6 13 4D 43 24 B2 22 12 20 20 |!.".7...MC$.". |
00001110: C6 31 20 2D 20 CE 45 55 20 21 20 20 20 20 20 20 |.1 - .EU ! |
00001120: C7 45 42 45 4E 20 D3 49 45 20 45 49 4E 20 21 20 |.EBEN .IE EIN ! |
00001130: 20 20 20 20 20 92 22 00 6B 19 B0 13 4D 44 24 B2 | .".k...MD$.|
00001140: 22 12 20 C6 31 20 2D 20 D2 45 53 55 4C 54 41 54 |". .1 - .ESULTAT|
00001150: 20 21 20 20 20 20 20 C6 33 20 55 2E 20 C6 35 20 | ! .3 U. .5 |
00001160: 2D 20 D7 41 48 4C 20 21 20 92 22 00 A4 19 BA 13 |- .AHL ! .".....|
00001170: 4B 4F 24 B2 22 20 C1 4E 2E 4B 41 50 49 54 41 4C |KO$." .N.KAPITAL|
00001180: 22 3A 50 24 B2 22 20 20 DA 49 4E 53 53 41 54 5A |":P$." .INSSATZ|
00001190: 20 22 3A 4B 4E 24 B2 22 20 C5 4E 44 4B 41 50 49 | ":KN$." .NDKAPI|
000011A0: 54 41 4C 22 00 DF 19 C4 13 4E 24 B2 22 20 20 CA |TAL".....N$." .|
000011B0: 41 48 52 45 20 20 20 20 22 3A 41 24 28 31 32 29 |AHRE ":A$(12)|
000011C0: B2 22 20 DA 49 4E 53 50 45 52 2E 2F 41 22 3A 50 |." .INSPER./A":P|
000011D0: 4D 24 B2 22 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 00 |M$."..........".|
000011E0: F7 19 EC 13 42 41 24 28 31 29 B2 22 20 20 C1 45 |....BA$(1)." .E|
000011F0: 4E 44 45 52 4E 20 22 00 0F 1A F6 13 42 41 24 28 |NDERN ".....BA$(|
00001200: 32 29 B2 22 20 20 CB 4F 50 49 45 20 20 20 22 00 |2)." .OPIE ".|
00001210: 27 1A 00 14 42 41 24 28 33 29 B2 22 20 20 CE 45 |'...BA$(3)." .E|
00001220: 55 20 20 20 20 20 22 00 3F 1A 0A 14 42 41 24 28 |U ".?...BA$(|
00001230: 34 29 B2 22 20 CD 45 4E 55 45 20 20 20 20 22 00 |4)." .ENUE ".|
00001240: 4D 1A 7C 15 41 24 28 31 29 B2 4B 4E 24 00 5B 1A |M.|.A$(1).KN$.[.|
00001250: 86 15 41 24 28 32 29 B2 4B 4F 24 00 68 1A 90 15 |..A$(2).KO$.h...|
00001260: 41 24 28 33 29 B2 50 24 00 80 1A 9A 15 41 24 28 |A$(3).P$.....A$(|
00001270: 34 29 B2 22 20 20 CC 41 55 46 5A 45 49 54 20 22 |4)." .AUFZEIT "|
00001280: 00 98 1A A4 15 41 24 28 35 29 B2 22 20 20 CD 45 |.....A$(5)." .E|
00001290: 4E 55 45 20 20 20 20 22 00 B1 1A E0 15 41 24 28 |NUE ".....A$(|
000012A0: 31 33 29 B2 22 20 20 C1 45 4E 44 45 52 4E 20 20 |13)." .ENDERN |
000012B0: 22 00 CA 1A EA 15 41 24 28 31 34 29 B2 22 20 20 |".....A$(14)." |
000012C0: D2 45 53 55 4C 54 41 54 20 22 00 E3 1A F4 15 41 |.ESULTAT ".....A|
000012D0: 24 28 31 35 29 B2 22 20 20 CD 45 4E 55 45 20 20 |$(15)." .ENUE |
000012E0: 20 20 22 00 FB 1A FE 15 41 24 28 31 37 29 B2 22 | ".....A$(17)."|
000012F0: C5 46 46 45 4B 54 49 56 45 52 22 00 15 1B 08 16 |.FFEKTIVER".....|
00001300: 41 24 28 31 38 29 B2 22 CA 41 48 52 45 53 5A 49 |A$(18).".AHRESZI|
00001310: 4E 53 22 3A 8E 00 00 00 00 33 |NS":.....3 |
.......45,B(174):.46,B(175):..8.... (C)
BY KLAUS KLOEKER.Y....:.A$(19),A(19),BA$
(4):.1000.....Z1.2:Z2.10:S.13:. * MASKEL
OESCHEN *......Z.Z1.Z2:.80:."
":.:.C.0...Q...Z1.12:Z2.2
0:C.0:.20...(.S.0:.Z.12.20:.80:."
":.:.. .2.A$(A).D(.(A(A).100..5)):.
* RUNDEN.M.<.AB$.H(A$(A),C(A$(A)).2)."."
.I(A$(A),2):..`.F.."MENUE",8:. *...P..21
4,Z:.211,S:.58732:.:. * CURSORPOSITION..
.Z.A.55869:.I.1597.1622:.I,100:.A,1:A.A.
1:.:..T.D.. * AUSWAHLROUTINE...N..80:.".
.":.I.1.75:....X..80:."."A$(Y
)".":.I.1.125:..O....G$:.G$..G(133).G$..
G(134).G$..G(135).G$..G(13).110.F....G$.
G(133).C.C.0:.......G$.G(13)..80:.".>.";
:.... ..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...H.. * WAHL-F
USSZEILE:S=0.,.R.Z.23:.80:.". .
";:.I.1.75:..N....80:."."BA$(Y)".";:.I.1
.175:..{....G$:.G$..G(134).G$..G(135).G$
..G(13).210......G$.G(13)..80:.".>.";:..
.....G$.G(135).280.I...S.S.10:Y.Y.1:.S.3
0.S.0:Y.1.R....210.....S.S.10:Y.Y.1:.S.0
.S.30:Y.4..."..210...,.. * EINGABEROUTIN
E...6..80.$.;.IN$.""./.@.."..";.B.J..G$:
.G$."".330.X.T.G.F(G$):.G.13.460.K.H..G.
48.G.57.410...R.IN$.IN$.G$:IN.C(IN$)...|
..G$;......IN.N..I.1.IN:.G(20);:.:.310..
....320.E....G.46.370.V....G$.G(133).9..
....G..20.320......IN.1.320...B.IN$.H(IN
$,IN.1):.380.;.L.PN$."":.I.1.(10.C(IN$))
:PN$.PN$.".":.:.PN$.M.V..C(IN$).1.310.S.
....Y...:.T.... * ZINSESZINSRECHNUNG....
..5000:.MA$.....A.55388:.I.1076.1906.40:
.I,101:.A,1:A.A.40:......A.55736:.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:.80:.MB$.J.$.Z.2:.80:."AUSWAHL :":."
.........".R...Z.4:.I.1.5:.80:."."A$(I)"
.":Z.Z.1:....8.Z.4:Z1.Z:Z2.8:S.0:Y.1:Y1.
Y:Y2.5:SW.1:C.0:.100:F.Y:.F.5.70...B..F.
1.A$(9).KO$:A$(10).P$:A$(11).N$:K.1...L.
.F.2.A$(9).KN$:A$(10).P$:A$(11).N$:K.1.2
.V..F.3.A$(9).KO$:A$(10).KN$:A$(11).N$:K
.0.^.`..F.4.A$(9).KO$:A$(10).KN$:A$(11).
.$ J.2...P.. * EINGABEMASKE...Z.Z.2:S.13
:.80:."EINGABE :":Z.3:.80:."........."..
...Z.4:.I.9.12:S.13:.80:."."A$(I)". : ";
PM$:Z.Z.2:......Z.23:S.0:.80:.MC$;.....Z
.4:S.27:N.10:.300:A(9).E(IN$)./...Z.6:.3
00:A(10).E(IN$).I...Z.8:.300:A(11).E(IN$
).H...Z.10:N.9:.300:A(12).E(IN$).....Z.1
3:S.13:.80:."EINGABE KORREKT ? (J/N):":.
90... .Z.13:S.38:.80:."..";.Q.*..G$:.G$.
."J".G$.."N".2090...4..G$:.G$."J".Y.1...
>..G$."N".Y.0...H..I$:.I$..G(13).I$..G(2
0).2120.*.R..I$.G(20).2080.@.\.C.1:.10:.
Y.0.2010.Q.... * RECHNUNG...B..F.1.A(16)
.A(9).(1.(A(10).(A(12).100))).(A(11).A(1
2)).D.L..F.1.A(19).100.((1.(A(10).(A(12)
.100))).A(12).1):D.1...V..F.2.A(16).A(9)
.(1.(A(10).(A(12).100))).(A(11).A(12)):D
.0.<....F.3.A(16).((A(10).A(9)).(1.(A(11
).A(12))).1).100:D.0.~....F.4.A(16).(.(A
(10).A(9))..(1.(A(11).(A(12).100)))).A(1
2):D.0...... * SCREEN.A...Z.2:S.13:.80:.
"EINGABE :":Z.3:.80:."..........".....Z.
4:.I.9.12:.80:.A$(I)" :"A(I):Z.Z.2:..(.J
.Z.13:.80::."RESULTAT :":Z.14:.80:."....
......":A.16:.50.S.T.Z.15:.80:."."A$(F)"
. :".38.C(AB$));AB$.{.....39.C(AB$));:.I
.1.C(AB$).1:."=";:......Z.20:.80:.K.1.."
AUSDRUCK IN DM !":.3580.I....K.0.."AUSDR
UCK IN PROZENT !".W....D.0.3620.....Z.13
:S.0:.80::."."A$(17)".":."."A$(18)".".(.
..Z.17:S.1:.80:A.19:.50:.AB$" %".O.....7
.C(AB$));:.I.1.C(AB$).1:."=";:..X.$.Z.23
:S.0:.80:.I.1.4:."."BA$(I)".";:......Y.1
:.200:.Y.4.70...8..Y.3.1010...B..Y.2.450
0... .. * AENDERUNG.N...C.1:.10:.D..40..
...Z.2:S.13:.80::."AENDERUNG :":Z.3:.80:
."...........".<...Z.4:S.13::.I.9.12:.80
:."."A$(I)". :";A(I):Z.Z.2:..S.H.Z.23:S.
0:.80:.MD$;...R.Z.4:Z1.Z:Z2.10:S.13:Y.9:
Y1.Y:Y2.12:SW.2:C.1:.100......C.0..10:.3
000.E...Z.13:S.13:.80:."."A$(Y)". : ";PM
$:.90.....Z.23:S.0:.80:.MC$;:Z.13:S.27:.
300:A(Y).E(IN$):.4010...... * PRINTER.%.
..TA$.G(10):TB$.G(16).S....4,4,7:.4,G(14
);TB$"25ZINSESZINSRECHNUNG".V....4,TB$"2
5-----------------"TA$......I.9.12:.4,G(
15)TB$"10*** "A$(I)" : "A(I):..O...A.16:
.50:.4,TA$;TB$"14"A$(F)" : "AB$...F..4,T
B$"15";:.I.1.2.C(A$(F).AB$):.4,"=";:....
P..4,G(13):.D..4620.&.U..4,TA$;TA$;TA$.\
.Z..4,G(13);TB$"10*** KAPITAL UND ZINSS
ATZ WERDEN";.}....4," IN ' DM ' AUSGEDRU
CKT,"......4,TB$"16ZINSSATZ UND JAHRESZI
NS (FALLS VORHANDEN) IN ' % ' !"......4:
.I.1.40:.4,"==";:.:.4,TA$;TA$;TA$..... 4
:.I.56176.56215:.I,0:.:.3620.7....D..4,T
A$;TB$"15"A$(17)" "A$(18)" : ";.K...A.19
:.50:.4,AB$... ..4,TB$"15";:.I.1.C(A$(18
).A$(19).AB$).10:.4,"=";:....*........ *
VARIABLEN.O...MA$.".. Z I N S E S Z I
N S R E C H N U N G .".....MB$.". F3 U.
F5 - WAHL ! 'RETURN' - EINGABE !.".7...
MC$.". F1 - NEU ! GEBEN SIE EIN !
.".K...MD$.". F1 - RESULTAT ! F
3 U. F5 - WAHL ! .".....KO$." AN.KAPITAL
":P$." ZINSSATZ ":KN$." ENDKAPITAL"...D
.N$." JAHRE ":A$(12)." ZINSPER./A":P
M$."..........".....BA$(1)." AENDERN ".
....BA$(2)." KOPIE ".'...BA$(3)." NE
U ".?...BA$(4)." MENUE ".M.|.A$(1
).KN$.[...A$(2).KO$.H...A$(3).P$.....A$(
4)." LAUFZEIT ".....A$(5)." MENUE "
.....A$(13)." AENDERN ".J...A$(14)."
RESULTAT ".....A$(15)." MENUE ".....
A$(17)."EFFEKTIVER".....A$(18)."JAHRESZI
NS":.....3
> CLICK IMAGE PREVIEW FOR FULL MODAL