DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦ba0f495ac⟧

    Length: 640 (0x280)
    Names: »LØBETID2.BAS«

Derivation

└─⟦a2831e659⟧ Bits:30004217 MBASIC r5.21 og BASIC programmer
    └─⟦this⟧ »LØBETID2.BAS« 

Hex Dump

0x000…020 (0,) 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 (1,) 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 (2,) 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┆