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 - metrics - download

⟦a177001dc⟧

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

Derivation

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

Hex Dump

0x000…020 (0,) 02 83 69 c7 23 36 16 05 be 04 31 2f 53 41 56 45 2e 24 24 24 20 20 20 20 20 20 0a 00 d3 21 01 01   ┆  i #6    1/SAVE.$$$         !  ┆
0x020…040      20 65 6e 20 73 69 6d 70 65 6c 20 66 61 6b 74 75 72 61 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆ en simpel faktura              ┆
0x040…060      20 20 20 20 20 20 20 70 72 6f 67 72 61 6d 6e 61 76 6e 20 3a 20 46 41 4b 54 55 52 41 14 00 d3 25   ┆       programnavn : FAKTURA   %┆
0x060…080      01 01 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   ┆  ------------------------------┆
0x080…0a0      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   ┆--------------------------------┆
0x0a0…0c0      2d 2d 2d 2d 2d 00 1e 00 6c 05 82 f2 2d 00 01 00 28 00 d1 09 02 80 00 f0 1d 1b 0a 80 00 f0 1d 00   ┆-----   l   -   (               ┆
0x0c0…0e0      01 00 32 00 87 13 18 c0 15 00 49 6e 64 74 61 73 74 20 6b 7c 62 73 62 65 6c 7c 62 65 74 20 3a 00   ┆  2       Indtast købsbeløbet : ┆
0x0e0…100      12 3a 15 80 05 00 01 00 3c 00 d1 06 3d 80 15 80 1d 00 01 00 46 00 d3 03 01 01 50 00 3f 13 00 00   ┆ :      <   =       F     P ?   ┆
0x100…120      ea 71 15 80 83 f1 2a 00 2d 72 01 01 73 6b 61 6c 20 64 65 72 20 67 69 76 65 73 20 72 61 62 61 74   ┆ q    * -r  skal der gives rabat┆
0x120…140      5a 00 86 14 1e c0 1c 00 42 65 6c 7c 62 65 74 20 65 72 20 73 74 7c 72 72 65 20 65 6e 64 20 31 30   ┆Z       Beløbet er større end 10┆
0x140…160      30 6b 72 2e 07 00 01 00 64 00 86 14 1e c0 1b 00 44 65 72 20 67 69 76 65 73 20 64 65 72 66 6f 72   ┆0kr.    d       Der gives derfor┆
0x160…180      20 31 30 25 20 72 61 62 61 74 2e 00 07 00 01 00 6e 00 d1 0d 02 80 15 80 80 f1 21 00 1d 1b 15 80   ┆ 10% rabat.     n         !     ┆
0x180…1a0      15 80 02 80 23 00 1d 00 01 00 78 00 5d 11 5c 72 01 01 20 64 65 72 20 73 6b 61 6c 20 69 6b 6b 65   ┆    #     x Å Ør   der skal ikke┆
0x1a0…1c0      20 67 69 76 65 73 20 72 61 62 61 74 82 00 86 15 20 c0 1d 00 42 65 6c 7c 62 65 74 20 65 72 20 6d   ┆ gives rabat        Beløbet er m┆
0x1c0…1e0      69 6e 64 72 65 20 65 6e 64 20 31 30 30 20 6b 72 2e 00 07 00 01 00 8c 00 86 16 22 c0 1f 00 45 6b   ┆indre end 100 kr.         "   Ek┆
0x1e0…200      73 70 65 64 69 74 69 6f 6e 73 67 65 62 79 72 65 74 20 65 72 20 64 61 20 31 30 6b 72 2e 00 07 00   ┆speditionsgebyret er da 10kr.   ┆
0x200…220 (1,) 01 00 96 00 d1 0b 0a 80 82 f1 1d 1b 15 80 15 80 0a 80 24 00 1d 00 01 00 a0 00 80 03 01 00 aa 00   ┆                  $             ┆
0x220…240      d3 03 01 01 b4 00 86 04 08 00 01 00 be 00 d1 0c 2b 80 15 80 08 d0 02 20 00 00 00 00 00 80 21 00   ┆                +             ! ┆
0x240…260      1d 00 01 00 c8 00 86 19 24 c0 22 00 4b 7c 62 73 62 65 6c 7c 62 20 20 20 20 20 20 20 20 20 20 20   ┆        $ " Købsbeløb           ┆
0x260…280      6b 72 3a 20 23 23 23 23 23 23 23 2e 23 23 2d 04 3d 80 09 00 01 00 d2 00 86 19 24 c0 22 00 52 61   ┆kr: #######.##- =         $ " Ra┆
0x280…2a0      62 61 74 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 72 3a 20 23 23 23 23 23 23 23 2e 23 23   ┆bat               kr: #######.##┆
0x2a0…2c0      2d 04 02 80 09 00 01 00 dc 00 86 19 24 c0 22 00 45 6b 73 70 2e 67 65 62 79 72 20 20 20 20 20 20   ┆-           $ " Eksp.gebyr      ┆
0x2c0…2e0      20 20 20 20 6b 72 3a 20 23 23 23 23 23 23 23 2e 23 23 2d 04 0a 80 09 00 01 00 e6 00 86 1b 2c c0   ┆    kr: #######.##-           , ┆
0x2e0…300      29 00 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   ┆) ------------------------------┆
0x300…320      2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 00 07 00 01 00 f0 00 86 19 24 c0 22 00 42 65 6c 7c 62 20 65 6b   ┆-----------         $ " Beløb ek┆
0x320…340      73 2e 20 6d 6f 6d 73 20 20 20 20 20 6b 72 3a 20 23 23 23 23 23 23 23 2e 23 23 2d 04 15 80 09 00   ┆s. moms     kr: #######.##-     ┆
0x340…360      01 00 fa 00 86 19 24 c0 22 00 4d 6f 6d 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6b 72   ┆      $ " Moms                kr┆
0x360…380      3a 20 23 23 23 23 23 23 23 2e 23 23 2d 04 2b 80 09 00 01 00 04 01 86 1b 2c c0 29 00 2d 2d 2d 2d   ┆: #######.##- +         , ) ----┆
0x380…3a0      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   ┆--------------------------------┆
0x3a0…3c0      2d 2d 2d 2d 2d 00 07 00 01 00 0e 01 86 1b 24 c0 22 00 49 61 6c 74 20 61 74 20 62 65 74 61 6c 65   ┆-----         $ " Ialt at betale┆
0x3c0…3e0      20 20 20 20 20 20 6b 72 3a 20 23 23 23 23 23 23 23 2e 23 23 2d 04 2b 80 15 80 24 00 09 00 01 00   ┆      kr: #######.##- +   $     ┆
0x3e0…400      18 01 86 1b 2c c0 29 00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   ┆    , ) ------------------------┆
0x400…420 (2,) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 00 07 00 01 00 22 01 6b 03 01 00 10 27 d6 00   ┆-----------------     " k    '  ┆
0x420…440      69 c7 06 52 41 42 41 54 5a c7 09 45 4b 53 47 45 42 59 52 4b c7 09 42 45 54 41 4c 49 4e 47 00 00   ┆i  RABATZ  EKSGEBYRK  BETALING  ┆
0x440…460      09 42 41 54 41 4c 49 4e 47 2d c7 05 4d 4f 4d 53 00 00 09 42 45 53 54 41 4c 49 47 3c c7 04 4b 5c   ┆ BATALING-  MOMS   BESTALIG<  KØ┆
0x460…480      42 00 00 05 4d 4f 4d 41 00 00 0a 42 45 53 54 41 4c 49 4e 47 00 00 00 38 1a 00 00 00 00 00 00 00   ┆B   MOMA   BESTALING   8        ┆