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

⟦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 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 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 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        ┆