ANLEIHE
FILE INFORMATION
FILENAME(S): ANLEIHE
FILE TYPE(S): PRG
FILE SIZE: 1.8K
FIRST SEEN: 2025-11-30 16:18:11
APPEARS ON: 1 disk(s)
FILE HASH
e95b4f587b27f613938b2b02d03f2375c3a7251fd26db952d314f50f2a0743af
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MEHR ALS | ANLEIHE | PRG | BrainSkull, Leopold Zyka | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 10 08 64 00 8F 3A 20 41 4E 4C 45 49 48 45 |....d..: ANLEIHE| 00000010: 00 3E 08 6E 00 8F 3A 20 50 52 4F 47 52 41 4D 4D |.>.n..: PROGRAMM| 00000020: 20 5A 55 52 20 42 45 52 45 43 48 4E 55 4E 47 20 | ZUR BERECHNUNG | 00000030: 45 49 4E 45 53 20 4B 52 45 44 49 54 45 53 00 6B |EINES KREDITES.k| 00000040: 08 6F 00 8F 3A 20 43 4F 50 59 52 49 47 48 54 20 |.o..: COPYRIGHT | 00000050: 31 39 38 33 20 54 4F 4D 20 52 55 47 47 2C 20 50 |1983 TOM RUGG, P| 00000060: 48 49 4C 20 46 45 4C 44 4D 41 4E 00 8C 08 70 00 |HIL FELDMAN...p.| 00000070: 8F 3A 20 55 4E 44 20 57 45 53 54 45 52 4E 20 53 |.: UND WESTERN S| 00000080: 59 53 54 45 4D 53 20 47 52 4F 55 50 00 A8 08 78 |YSTEMS GROUP...x| 00000090: 00 9C 3A 99 20 C7 28 31 34 37 29 3A 42 4C 24 B2 |..:. .(147):BL$.| 000000A0: 22 20 20 20 20 20 20 22 00 BC 08 82 00 99 22 54 |" "......"T| 000000B0: 49 4C 47 55 4E 47 53 50 4C 41 4E 22 00 C2 08 8C |ILGUNGSPLAN"....| 000000C0: 00 99 00 D8 08 96 00 85 22 4B 52 45 44 49 54 42 |........"KREDITB| 000000D0: 45 54 52 41 47 22 3B 41 00 EF 08 9B 00 8D 20 31 |ETRAG";A...... 1| 000000E0: 30 30 30 3A 8B 20 41 B2 30 20 A7 20 31 35 30 00 |000:. A.0 . 150.| 000000F0: 03 09 A0 00 99 3A 85 22 5A 49 4E 53 53 41 54 5A |.....:."ZINSSATZ| 00000100: 22 3B 52 00 28 09 AA 00 99 3A 85 22 54 49 4C 47 |";R.(....:."TILG| 00000110: 55 4E 47 53 5A 45 49 54 20 28 49 4E 20 4D 4F 4E |UNGSZEIT (IN MON| 00000120: 41 54 45 4E 29 22 3B 4E 00 45 09 B4 00 52 B2 B6 |ATEN)";N.E...R..| 00000130: 28 52 29 3A 4E B2 B5 28 4E 29 3A 4D B2 52 AD 31 |(R):N..(N):M.R.1| 00000140: 32 30 30 3A 99 00 4F 09 BE 00 8D 20 38 30 30 00 |200:..O.... 800.| 00000150: 5D 09 C8 00 57 B2 28 31 AA 4D 29 AE 4E 00 71 09 |]...W.(1.M).N.q.| 00000160: D2 00 50 B2 28 41 AC 4D AC 57 29 AD 28 57 AB 31 |..P.(A.M.W).(W.1| 00000170: 29 00 8C 09 DC 00 50 B2 B5 28 50 AC 31 30 30 AA |).....P..(P.100.| 00000180: 2E 39 39 29 3A 50 B2 50 AD 31 30 30 00 B5 09 E6 |.99):P.P.100....| 00000190: 00 99 22 44 49 45 20 4D 4F 4E 41 54 4C 49 43 48 |.."DIE MONATLICH| 000001A0: 45 20 5A 41 48 4C 55 4E 47 20 42 45 54 52 41 45 |E ZAHLUNG BETRAE| 000001B0: 47 54 22 3B 50 00 C2 09 F0 00 46 50 B2 50 3A 99 |GT";P.....FP.P:.| 000001C0: 3A 99 00 DA 09 FA 00 99 22 4E 41 45 43 48 53 54 |:......."NAECHST| 000001D0: 45 20 41 4B 54 49 4F 4E 3A 22 00 E0 09 04 01 99 |E AKTION:"......| 000001E0: 00 04 0A 0E 01 99 22 31 20 2D 20 4D 4F 4E 41 54 |......"1 - MONAT| 000001F0: 4C 49 43 48 45 52 20 54 49 4C 47 55 4E 47 53 50 |LICHER TILGUNGSP| 00000200: 4C 41 4E 22 00 2B 0A 18 01 99 22 32 20 2D 20 41 |LAN".+...."2 - A| 00000210: 45 4E 44 45 52 55 4E 47 20 44 45 52 20 4D 4F 4E |ENDERUNG DER MON| 00000220: 41 54 53 5A 41 48 4C 55 4E 47 22 00 40 0A 22 01 |ATSZAHLUNG".@.".| 00000230: 99 22 33 20 2D 20 4E 45 55 42 45 47 49 4E 4E 22 |."3 - NEUBEGINN"| 00000240: 00 50 0A 2C 01 99 22 34 20 2D 20 45 4E 44 45 22 |.P.,.."4 - ENDE"| 00000250: 00 58 0A 36 01 85 20 43 00 72 0A 40 01 91 20 43 |.X.6.. C.r.@.. C| 00000260: 20 89 20 34 34 30 2C 34 30 30 2C 31 32 30 2C 33 | . 440,400,120,3| 00000270: 37 30 00 99 0A 4A 01 99 22 4E 55 52 20 31 2C 20 |70...J.."NUR 1, | 00000280: 32 2C 20 33 20 4F 44 45 52 20 34 20 49 53 54 20 |2, 3 ODER 4 IST | 00000290: 45 52 4C 41 55 42 54 21 22 00 A3 0A 54 01 89 20 |ERLAUBT!"...T.. | 000002A0: 32 35 30 00 A9 0A 72 01 80 00 AF 0A 90 01 99 00 |250...r.........| 000002B0: D2 0A 9A 01 85 22 42 45 54 52 41 47 20 46 55 45 |....."BETRAG FUE| 000002C0: 52 20 4D 4F 4E 41 54 53 5A 41 48 4C 55 4E 47 22 |R MONATSZAHLUNG"| 000002D0: 3B 50 00 DC 0A A4 01 89 20 32 34 30 00 EC 0A B8 |;P...... 240....| 000002E0: 01 8D 20 34 35 30 3A 89 20 35 31 30 00 F6 0A C2 |.. 450:. 510....| 000002F0: 01 8D 20 38 30 30 00 13 0B CC 01 99 20 A3 35 29 |.. 800...... .5)| 00000300: 3B 22 52 45 53 54 53 43 48 55 4C 44 22 3B A3 31 |;"RESTSCHULD";.1| 00000310: 37 29 3B 00 2D 0B D6 01 99 22 2D 2D 2D 2D 2D 2D |7);.-...."------| 00000320: 5A 49 4E 53 45 4E 2D 2D 2D 2D 2D 2D 22 00 4A 0B |ZINSEN------".J.| 00000330: E0 01 99 22 4D 4F 4E 41 54 20 20 20 20 20 20 20 |..."MONAT | 00000340: 20 20 20 22 3B A3 31 35 29 3B 00 62 0B EA 01 99 | ";.15);.b....| 00000350: 22 4D 4F 4E 41 54 20 20 20 20 20 47 45 53 41 4D |"MONAT GESAM| 00000360: 54 22 00 68 0B F4 01 8E 00 82 0B FE 01 42 B2 41 |T".h.........B.A| 00000370: AC 31 30 30 3A 54 54 B2 30 3A 54 50 B2 30 3A 4C |.100:TT.0:TP.0:L| 00000380: B2 30 00 9E 0B 08 02 50 B2 50 AC 31 30 30 3A 52 |.0.....P.P.100:R| 00000390: 24 B2 22 22 3A 81 20 4A B2 31 20 A4 20 4E 00 B2 |$."":. J.1 . N..| 000003A0: 0B 12 02 54 B2 4D AC 42 3A 54 B2 B5 28 54 AA 2E |...T.M.B:T..(T..| 000003B0: 35 29 00 C4 0B 1C 02 8B 20 4A B2 4E 20 A7 20 50 |5)...... J.N . P| 000003C0: B2 42 AA 54 00 E0 0B 26 02 54 50 B2 54 50 AA 50 |.B.T...&.TP.TP.P| 000003D0: 3A 42 B2 42 AB 50 AA 54 3A 54 54 B2 54 54 AA 54 |:B.B.P.T:TT.TT.T| 000003E0: 00 F3 0B 30 02 8B 20 42 B3 30 20 A7 20 8D 20 32 |...0.. B.0 . . 2| 000003F0: 30 30 30 00 06 0C 3A 02 8B 20 52 24 B2 22 53 22 |000...:.. R$."S"| 00000400: 20 A7 20 36 39 30 00 1A 0C 44 02 57 B2 42 3A 8D | . 690...D.W.B:.| 00000410: 20 39 30 30 3A 42 24 B2 53 24 00 33 0C 4E 02 57 | 900:B$.S$.3.N.W| 00000420: B2 54 3A 8D 20 39 30 30 3A 54 24 B2 C9 28 53 24 |.T:. 900:T$..(S$| 00000430: 2C 38 29 00 4D 0C 58 02 57 B2 54 54 3A 8D 20 39 |,8).M.X.W.TT:. 9| 00000440: 30 30 3A 54 54 24 B2 22 A0 22 AA 53 24 00 6A 0C |00:TT$.".".S$.j.| 00000450: 5D 02 4A 24 B2 C4 28 4A 29 3A 4A 24 B2 C9 28 4A |].J$..(J):J$..(J| 00000460: 24 2C C3 28 4A 24 29 AB 31 29 00 81 0C 62 02 99 |$,.(J$).1)...b..| 00000470: 20 4A 24 3B A3 34 29 3B 42 24 3B 54 24 3B 54 54 | J$;.4);B$;T$;TT| 00000480: 24 00 98 0C 6C 02 4C B2 4C AA 31 3A 8B 20 4C B3 |$...l.L.L.1:. L.| 00000490: 31 32 20 A7 20 36 39 30 00 C9 0C 76 02 99 3A 99 |12 . 690...v..:.| 000004A0: 22 27 53 27 20 46 55 45 52 20 53 55 4D 4D 45 4E |"'S' FUER SUMMEN| 000004B0: 2C 20 4F 44 45 52 20 45 49 4E 45 20 41 4E 44 45 |, ODER EINE ANDE| 000004C0: 52 45 20 54 41 53 54 45 22 00 E4 0C 80 02 99 22 |RE TASTE"......"| 000004D0: 55 4D 20 57 45 49 54 45 52 5A 55 4D 41 43 48 45 |UM WEITERZUMACHE| 000004E0: 4E 21 22 3B 00 FB 0C 8A 02 A1 20 52 24 3A 8B 20 |N!";...... R$:. | 000004F0: 52 24 B2 22 22 20 A7 20 36 35 30 00 09 0D 94 02 |R$."" . 650.....| 00000500: 4C B2 30 3A 8D 20 34 35 30 00 1D 0D 9E 02 8B 20 |L.0:. 450...... | 00000510: 52 24 B3 B1 22 53 22 20 A7 20 36 39 30 00 3F 0D |R$.."S" . 690.?.| 00000520: A8 02 99 3A 99 22 42 45 52 45 43 48 4E 55 4E 47 |...:."BERECHNUNG| 00000530: 20 44 45 52 20 53 55 4D 4D 45 4E 2E 2E 2E 22 00 | DER SUMMEN...".| 00000540: 45 0D B2 02 82 00 60 0D BC 02 99 3A 99 22 4C 45 |E.....`....:."LE| 00000550: 54 5A 54 45 20 5A 41 48 4C 55 4E 47 20 3D 22 3B |TZTE ZAHLUNG =";| 00000560: 00 6C 0D C6 02 99 20 50 AD 31 30 30 00 88 0D D0 |.l.... P.100....| 00000570: 02 99 3A 99 22 47 45 53 41 4D 54 5A 41 48 4C 55 |..:."GESAMTZAHLU| 00000580: 4E 47 45 4E 20 3D 22 3B 00 95 0D DA 02 99 20 54 |NGEN =";...... T| 00000590: 50 AD 31 30 30 00 BC 0D E4 02 99 3A 99 22 44 49 |P.100......:."DI| 000005A0: 45 20 4D 4F 4E 41 54 4C 49 43 48 45 20 5A 41 48 |E MONATLICHE ZAH| 000005B0: 4C 55 4E 47 20 57 41 52 22 3B 46 50 00 C2 0D EE |LUNG WAR";FP....| 000005C0: 02 99 00 E6 0D F8 02 99 22 57 45 49 54 45 52 20 |........"WEITER | 000005D0: 4D 49 54 20 49 52 47 45 4E 44 45 49 4E 45 52 20 |MIT IRGENDEINER | 000005E0: 54 41 53 54 45 22 00 FD 0D 02 03 A1 20 58 24 3A |TASTE"...... X$:| 000005F0: 8B 20 58 24 B2 22 22 20 A7 20 37 37 30 00 0C 0E |. X$."" . 770...| 00000600: 0C 03 50 B2 46 50 3A 89 20 32 34 30 00 19 0E 20 |..P.FP:. 240... | 00000610: 03 99 20 C7 28 31 34 37 29 00 43 0E 2A 03 99 20 |.. .(147).C.*.. | 00000620: 41 3B 22 46 55 45 52 22 3B 4E 3B 22 4D 4F 4E 41 |A;"FUER";N;"MONA| 00000630: 54 45 20 42 45 49 22 3B 52 3B 22 50 52 4F 5A 45 |TE BEI";R;"PROZE| 00000640: 4E 54 22 00 49 0E 2F 03 99 00 4F 0E 34 03 8E 00 |NT".I./...O.4...| 00000650: 62 0E 84 03 57 B2 B5 28 57 29 3A 53 24 B2 C4 28 |b...W..(W):S$..(| 00000660: 57 29 00 7D 0E 8E 03 4B B2 C3 28 53 24 29 AB 31 |W).}...K..(S$).1| 00000670: 3A 53 24 B2 CA 28 53 24 2C 32 2C 4B 29 00 9A 0E |:S$..(S$,2,K)...| 00000680: 98 03 8B 20 4B B2 31 20 A7 20 53 24 B2 42 4C 24 |... K.1 . S$.BL$| 00000690: AA 22 2E 30 22 AA 53 24 3A 8E 00 B6 0E A2 03 8B |.".0".S$:.......| 000006A0: 20 4B B2 32 20 A7 20 53 24 B2 42 4C 24 AA 22 2E | K.2 . S$.BL$.".| 000006B0: 22 AA 53 24 3A 8E 00 C9 0E AC 03 44 24 B2 22 2E |".S$:......D$.".| 000006C0: 22 AA C9 28 53 24 2C 32 29 00 DD 0E B6 03 53 24 |"..(S$,2).....S$| 000006D0: B2 C8 28 53 24 2C 4B AB 32 29 AA 44 24 00 F2 0E |..(S$,K.2).D$...| 000006E0: C0 03 53 24 B2 C8 28 42 4C 24 2C 38 AB 4B 29 AA |..S$..(BL$,8.K).| 000006F0: 53 24 00 F8 0E CA 03 8E 00 0A 0F E8 03 41 B2 B6 |S$...........A..| 00000700: 28 41 29 3A 41 B2 B5 28 41 29 00 1E 0F F2 03 8B |(A):A..(A)......| 00000710: 20 41 B3 31 30 30 30 30 30 30 20 A7 20 8E 00 35 | A.1000000 . ..5| 00000720: 0F FC 03 99 22 42 45 54 52 41 47 20 5A 55 20 47 |...."BETRAG ZU G| 00000730: 52 4F 53 53 22 00 3F 0F 06 04 41 B2 30 3A 8E 00 |ROSS".?...A.0:..| 00000740: 57 0F D0 07 50 B2 50 AA 42 3A 54 50 B2 54 50 AA |W...P.P.B:TP.TP.| 00000750: 42 3A 42 B2 30 3A 8E 00 00 00 |B:B.0:.... |
....D..: ANLEIHE.>.N..: PROGRAMM ZUR BER ECHNUNG EINES KREDITES.K.O..: COPYRIGHT 1983 TOM RUGG, PHIL FELDMAN...P..: UND W ESTERN SYSTEMS GROUP...X..:. G(147):BL$. " "......"TILGUNGSPLAN".B.....X.... "KREDITBETRAG";A...... 1000:. A.0 . 150. .. ..:."ZINSSATZ";R.(....:."TILGUNGSZEIT (IN MONATEN)";N.E...R..(R):N..(N):M.R.1 200:..O.... 800.].H.W.(1.M).N.Q.R.P.(A.M .W).(W.1).....P..(P.100..99):P.P.100.... .."DIE MONATLICHE ZAHLUNG BETRAEGT";P.B. ..FP.P:.:..Z...."NAECHSTE AKTION:"...... ......"1 - MONATLICHER TILGUNGSPLAN".+.. .."2 - AENDERUNG DER MONATSZAHLUNG".@.". ."3 - NEUBEGINN".P.,.."4 - ENDE".X.6.. C .R.@.. C . 440,400,120,370...J.."NUR 1, 2, 3 ODER 4 IST ERLAUBT!"...T.. 250...R. ........R...."BETRAG FUER MONATSZAHLUNG" ;P...... 240...... 450:. 510...B.. 800.. .L.. .5);"RESTSCHULD";.17);.-.V.."------ ZINSEN------".J...."MONAT ";.15 );.B...."MONAT GESAMT".H.........B.A .100:TT.0:TP.0:L.0.....P.P.100:R$."":. J .1 . N.....T.M.B:T..(T..5).D.... J.N . P .B.T...&.TP.TP.P:B.B.P.T:TT.TT.T...0.. B .0 . . 2000...:.. R$."S" . 690...D.W.B:. 900:B$.S$.3.N.W.T:. 900:T$.I(S$,8).M.X. W.TT:. 900:TT$." ".S$.J.].J$.D(J):J$.I(J $,C(J$).1)...B.. J$;.4);B$;T$;TT$...L.L. L.1:. L.12 . 690.I.V..:."'S' FUER SUMMEN , ODER EINE ANDERE TASTE"......"UM WEITE RZUMACHEN!";...... R$:. R$."" . 650..... L.0:. 450...... R$.."S" . 690.?....:."BE RECHNUNG DER SUMMEN...".E.....`....:."LE TZTE ZAHLUNG =";.L.F.. P.100...P..:."GES AMTZAHLUNGEN =";...Z.. TP.100......:."DI E MONATLICHE ZAHLUNG WAR";FP.B.......... "WEITER MIT IRGENDEINER TASTE"...... X$: . X$."" . 770.....P.FP:. 240... .. G(147 ).C.*.. A;"FUER";N;"MONATE BEI";R;"PROZE NT".I./...O.4...B...W..(W):S$.D(W).}...K .C(S$).1:S$.J(S$,2,K)...... K.1 . S$.BL$ .".0".S$:....... K.2 . S$.BL$.".".S$:..I ...D$.".".I(S$,2).....S$.H(S$,K.2).D$... ..S$.H(BL$,8.K).S$...J.......A..(A):A..( A)...... A.1000000 . ..5...."BETRAG ZU G ROSS".?...A.0:..W.P.P.P.B:TP.TP.B:B.0:.. ..
> CLICK IMAGE PREVIEW FOR FULL MODAL