|
DataMuseum.dkPresents historical artifacts from the history of: Christian Rovsing CR7, CR8 & CR16 CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Christian Rovsing CR7, CR8 & CR16 CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 640 (0x280)
Names: »L\BETID2.BAS«
└─⟦a2831e659⟧ Bits:30004217 MBASIC r5.21 og BASIC programmer
└─ ⟦this⟧ »L\BETID2.BAS«
0x000…020 ff e3 61 0a 00 09 91 20 22 45 74 20 6c 7d 6e 73 20 6c 7c 62 65 74 69 64 22 00 fc 61 0f 00 09 91 ┆ a "Et låns løbetid" a ┆ 0x020…040 20 22 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 22 00 03 62 14 00 09 91 00 23 62 1e 00 09 91 ┆ "===============" b #b ┆ 0x040…060 20 22 20 20 20 20 20 20 20 20 20 46 61 73 74 20 79 64 65 6c 73 65 20 22 3b 00 2c 62 28 00 09 85 ┆ " Fast ydelse "; ,b( ┆ 0x060…080 20 52 00 4c 62 32 00 09 91 20 22 20 20 20 20 20 20 20 20 20 20 20 48 6f 76 65 64 73 74 6f 6c 20 ┆ R Lb2 " Hovedstol ┆ 0x080…0a0 22 3b 00 55 62 3c 00 09 85 20 50 00 75 62 46 00 09 91 20 22 20 20 20 52 65 6e 74 65 66 6f 64 20 ┆"; Ub< P ubF " Rentefod ┆ 0x0a0…0c0 28 25 20 70 2e 61 2e 29 20 22 3b 00 7e 62 50 00 09 85 20 49 00 9e 62 5a 00 09 91 20 22 41 6e 74 ┆(% p.a.) "; übP I bZ "Ant┆ 0x0c0…0e0 61 6c 20 79 64 65 6c 73 65 72 20 70 72 2e 20 7d 72 20 22 3b 00 a7 62 64 00 09 85 20 4e 00 d6 62 ┆al ydelser pr. år "; bd N b┆ 0x0e0…100 6c 00 8f 20 42 65 72 65 67 6e 20 6c 7c 62 65 74 69 64 20 69 20 7d 72 20 76 65 64 20 68 6a 7b 6c ┆l Beregn løbetid i år ved hjæl┆ 0x100…120 70 20 61 66 20 66 6f 72 6d 6c 65 6e 00 fa 62 6d 00 8f 20 52 65 6e 74 65 66 6f 64 20 6f 6d 72 65 ┆p af formlen bm Rentefod omre┆ 0x120…140 67 6e 65 73 20 74 69 6c 20 64 65 63 69 6d 61 6c 00 2c 63 6e 00 09 59 f0 f3 28 ff 8a 28 12 f3 28 ┆gnes til decimal ,cn Y ( ( (┆ 0x140…160 50 f4 28 49 f5 0f 64 29 29 f5 28 4e f4 52 29 29 f5 28 ff 8a 28 12 f2 49 f5 0f 64 f5 4e 29 f4 4e ┆P (I d)) (N R)) ( ( I d N) N┆ 0x160…180 29 29 00 5a 63 72 00 8f 20 62 65 72 65 67 6e 20 7d 72 20 6f 67 20 6d 7d 6e 65 64 65 72 20 75 64 ┆)) Zcr beregn år og måneder ud┆ 0x180…1a0 66 72 61 20 7d 72 20 69 20 64 65 63 69 6d 61 6c 00 70 63 73 00 09 4d f0 ff 85 28 59 f4 0f 0c f2 ┆fra år i decimal pcs M (Y ┆ 0x1a0…1c0 1d 00 00 00 80 29 00 81 63 74 00 09 59 30 f0 ff 85 28 4d f5 0f 0c 29 00 90 63 75 00 09 4d f0 4d ┆ ) ct Y0 (M ) cu M M┆ 0x1c0…1e0 f3 59 30 f4 0f 0c 00 a7 63 77 00 8f 20 55 64 73 6b 72 69 76 20 72 65 73 75 6c 74 61 74 00 d0 63 ┆ Y0 cw Udskriv resultat c┆ 0x1e0…200 78 00 09 91 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 7c 62 65 74 69 64 20 3d 22 3b 59 30 ┆x " Løbetid =";Y0┆ 0x200…220 3b 22 7d 72 22 3b 00 fd 63 7d 00 09 91 20 4d 3b 22 6d 7d 6e 65 64 65 72 22 3b 22 20 3d 22 3b 28 ┆;"år"; cå M;"måneder";" =";(┆ 0x220…240 59 30 f4 0f 0c 29 f2 4d 3b 22 20 4d 5d 4e 45 44 45 52 22 00 00 00 1a 00 90 63 75 00 09 4d f0 4d ┆Y0 ) M;" MÅNEDER" cu M M┆ 0x240…260 f3 59 30 f4 0f 0c 00 a7 63 77 00 8f 20 55 64 73 6b 72 69 76 20 72 65 73 75 6c 74 61 74 00 d0 63 ┆ Y0 cw Udskriv resultat c┆ 0x260…280 78 00 09 91 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 7c 62 65 74 69 64 20 3d 22 3b 59 30 ┆x " Løbetid =";Y0┆