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

⟦ee24a21d0⟧

    Length: 1152 (0x480)
    Names: »AFBETAL1«

Derivation

└─⟦48fe3f668⟧ Bits:30003085 Kursus i datalære med COMAL80 på RC700
    └─ ⟦this⟧ »AFBETAL1« 
└─⟦d67b880a0⟧ Bits:30003049 Datalære: 30-timers kursus med COMAL80 og Pascal
    └─ ⟦this⟧ »AFBETAL1« 

Hex Dump

0x000…020 02 83 71 c7 23 36 0f 05 bc 04 31 2f 53 41 56 45 2e 24 24 24 20 20 20 20 20 20 0a 00 d3 20 01 01   ┆  q #6    1/SAVE.$$$            ┆
0x020…040 20 20 41 66 62 65 74 61 6c 69 6e 67 20 6d 65 64 20 67 69 76 65 6e 20 79 64 65 6c 73 65 2e 20 20   ┆  Afbetaling med given ydelse.  ┆
0x040…060 20 20 20 20 70 72 6f 67 72 61 6d 6e 61 76 6e 3a 20 41 46 42 45 54 41 4c 31 00 14 00 d3 24 01 01   ┆    programnavn: AFBETAL1    $  ┆
0x060…080 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   ┆--------------------------------┆
       […0x1…]
0x0a0…0c0 2d 2d 1e 00 d3 03 01 01 28 00 65 05 02 80 2d 0d 01 00 2d 00 d3 03 01 01 32 00 87 22 2e c0 2b 00   ┆--      ( e   -   -     2  ". + ┆
0x0c0…0e0 53 6b 72 69 76 20 67 7b 6c 64 2c 20 72 65 6e 74 65 73 61 74 73 20 69 20 25 20 6f 67 20 74 65 72   ┆Skriv gæld, rentesats i % og ter┆
0x0e0…100 6d 69 6e 79 64 65 6c 73 65 20 3a 00 12 3a 0f 80 05 2c 16 80 05 2c 1c 80 05 00 01 00 37 00 d3 03   ┆minydelse :  :   ,   ,      7   ┆
0x100…120 01 01 3c 00 65 05 25 80 2d 0d 01 00 41 00 d3 03 01 01 46 00 d1 06 32 80 00 f0 1d 00 01 00 50 00   ┆  < e % -   A     F   2       P ┆
0x120…140 83 04 00 00 01 00 5a 00 d1 08 32 80 32 80 81 f1 24 00 1d 00 01 00 64 00 d1 0a 3b 80 0f 80 16 80   ┆      Z   2 2   $     d   ;     ┆
0x140…160 21 00 83 f1 22 00 1d 00 01 00 6e 00 d1 08 43 80 1c 80 3b 80 23 00 1d 00 01 00 78 00 d1 08 0f 80   ┆!   "     n   C   ; #     x     ┆
0x160…180 0f 80 43 80 23 00 1d 00 01 00 82 00 86 16 1a c0 18 00 23 23 23 20 20 20 20 20 20 20 20 23 23 23   ┆  C #             ###        ###┆
0x180…1a0 23 23 2e 23 23 20 20 20 20 20 2d 04 32 80 09 2c 3b 80 09 3b 01 00 8c 00 86 18 1e c0 1c 00 20 23   ┆##.##     - 2  ,;  ;           #┆
0x1a0…1c0 23 23 23 23 23 2e 23 23 20 20 20 20 20 20 20 20 23 23 23 23 23 23 23 2e 23 23 2d 04 43 80 09 2c   ┆#####.##        #######.##- C  ,┆
0x1c0…1e0 0f 80 09 00 01 00 96 00 84 0c 58 71 0f 80 00 f0 27 00 43 80 00 f0 26 00 38 00 2d 0a 01 00 a0 00   ┆          Xq    ' C   & 8 -     ┆
0x1e0…200 3e 1c 43 80 00 f0 26 00 2d 71 86 00 24 c0 22 00 41 66 64 72 61 67 20 6e 65 67 61 74 69 76 74 20   ┆> C   & -q  $ " Afdrag negativt ┆
0x200…220 2d 20 67 7b 6c 64 65 6e 20 76 6f 6b 73 65 72 21 21 21 07 00 01 00 aa 00 d3 03 01 01 b4 00 d3 24   ┆- gælden vokser!!!             $┆
0x220…240 01 01 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 48 4f 56 45 44 50 52 4f 47 52 41 4d 20 53 4c 55 54   ┆  ------------ HOVEDPROGRAM SLUT┆
0x240…260 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   ┆ -------------------------------┆
0x260…280 2d 2d 2d 2d be 00 d3 03 01 01 c8 00 63 07 52 73 00 00 02 80 2d 00 01 00 dc 00 87 22 36 c0 34 00   ┆----        c Rs    -      "6 4 ┆
0x280…2a0 48 76 6f 72 20 7c 6e 73 6b 65 73 20 75 64 73 6b 72 69 66 74 65 6e 20 3f 20 28 70 72 69 6e 74 65   ┆Hvor ønskes udskriften ? (printe┆
0x2a0…2c0 72 3d 31 20 2c 20 73 6b 7b 72 6d 20 3d 32 20 29 20 20 3a 20 12 3a 4c 80 05 00 01 00 e6 00 3f 09   ┆r=1 , skærm =2 )  :  :L       ? ┆
0x2c0…2e0 a3 74 1c 73 4c 80 81 f1 28 00 2d 72 01 00 f0 00 c6 0a 0a c0 07 00 50 52 49 4e 54 45 52 00 2d 70   ┆ t sL   ( -r          PRINTER -p┆
0x2e0…300 01 00 fa 00 5d 04 36 73 01 00 04 01 c6 0a 0a c0 07 00 43 4f 4e 53 4f 4c 45 00 2d 70 01 00 0e 01   ┆    Å 6s          CONSOLE -p    ┆
0x300…320 80 03 01 00 13 01 86 0a 08 d0 01 20 00 00 00 00 00 82 55 00 07 00 01 00 18 01 a3 04 02 80 01 00   ┆                  U             ┆
0x320…340 22 01 d3 03 01 01 2c 01 d3 03 01 01 36 01 63 07 40 74 00 00 25 80 2d 00 01 00 3b 01 86 0a 08 d0   ┆"     ,     6 c @t  % -   ;     ┆
0x340…360 01 20 00 00 00 00 00 82 55 00 07 00 01 00 40 01 86 1f 2c c0 2a 00 53 74 61 72 74 67 7b 6c 64 20   ┆        U     @   , * Startgæld ┆
0x360…380 3a 20 23 23 23 23 23 23 23 2e 23 23 20 20 20 20 20 20 70 63 74 20 3a 20 23 23 23 2e 23 23 20 20   ┆: #######.##      pct : ###.##  ┆
0x380…3a0 2d 04 0f 80 09 2c 16 80 09 3b 01 00 4a 01 86 14 1a c0 17 00 20 20 20 20 79 64 65 6c 73 65 20 3a   ┆-    ,   ;  J           ydelse :┆
0x3a0…3c0 20 23 23 23 23 23 23 2e 23 23 20 00 2d 04 1c 80 09 00 01 00 54 01 86 04 08 00 01 00 5e 01 86 21   ┆ ######.##  -       T       ^  !┆
0x3c0…3e0 38 c0 35 00 74 65 72 6d 69 6e 20 20 20 20 20 20 20 72 65 6e 74 65 20 20 20 20 20 20 20 20 20 20   ┆8 5 termin       rente          ┆
0x3e0…400 61 66 64 72 61 67 20 20 20 20 20 20 20 20 20 20 20 72 65 73 74 67 7b 6c 64 00 07 00 01 00 68 01   ┆afdrag           restgæld     h ┆
0x400…420 86 04 08 00 01 00 72 01 a3 04 25 80 01 00 7c 01 d3 03 01 01 86 01 6b 03 01 00 10 27 d6 00 71 c7   ┆      r   %   ø       k    '  q ┆
0x420…440 0b 49 4e 49 54 49 45 52 49 4e 47 4c c7 05 47 5b 4c 44 3d c7 04 50 43 54 2e c7 07 59 44 45 4c 53   ┆ INITIERINGL  GÆLD=  PCT.  YDELS┆
0x440…460 45 6a c7 0b 4f 56 45 52 53 4b 52 49 46 54 1f c7 07 54 45 52 4d 49 4e 10 c7 06 52 45 4e 54 45 01   ┆Ej  OVERSKRIFT   TERMIN   RENTE ┆
0x460…480 c7 07 41 46 44 52 41 47 5b c7 03 55 44 00 00 00 d4 1a 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆  AFDRAGÆ  UD                   ┆