|
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: 1152 (0x480)
Names: »SKAT.BAS«
└─⟦a2831e659⟧ Bits:30004217 MBASIC r5.21 og BASIC programmer
└─ ⟦this⟧ »SKAT.BAS«
0x000…020 ff e3 61 0a 00 91 22 42 45 52 45 47 4e 49 4e 47 20 41 46 20 53 4b 41 54 22 00 e9 61 14 00 91 00 ┆ a "BEREGNING AF SKAT" a ┆ 0x020…040 fd 61 1e 00 85 22 6c 7c 6e 20 6d 2e 76 2e 2e 2e 22 3b 41 00 2d 62 28 00 85 22 49 6e 64 62 65 74 ┆ a "løn m.v...";A -b( "Indbet┆ 0x040…060 61 6c 74 20 74 69 6c 20 66 2e 65 6b 73 20 6b 61 70 69 74 61 6c 70 65 6e 73 69 6f 6e 2e 2e 2e 2e ┆alt til f.eks kapitalpension....┆ 0x060…080 22 3b 42 00 4f 62 32 00 85 22 4b 61 70 69 74 61 6c 75 64 67 69 66 74 65 72 20 6d 2e 76 2e 2e 2e ┆";B Ob2 "Kapitaludgifter m.v...┆ 0x080…0a0 2e 2e 22 3b 43 00 71 62 3c 00 85 22 4b 61 70 69 74 61 6c 69 6e 64 74 7b 67 74 65 72 20 6d 2e 76 ┆..";C qb< "Kapitalindtægter m.v┆ 0x0a0…0c0 2e 2e 2e 2e 22 3b 44 00 a5 62 46 00 85 22 46 72 61 64 72 61 67 20 66 6f 72 20 62 65 66 6f 72 64 ┆....";D bF "Fradrag for beford┆ 0x0c0…0e0 72 69 6e 67 2c 20 66 6f 72 73 69 6b 72 69 6e 67 20 6d 2e 76 2e 2e 2e 2e 22 3b 47 00 e1 62 50 00 ┆ring, forsikring m.v....";G bP ┆ 0x0e0…100 85 22 46 6f 72 6d 75 65 20 20 28 68 76 69 73 20 75 6e 64 65 72 20 31 2e 33 32 39 2e 39 30 30 20 ┆ "Formue (hvis under 1.329.900 ┆ 0x100…120 6b 72 2e 20 73 7d 20 73 6b 72 69 76 20 30 20 28 6e 75 6c 29 22 3b 48 00 f5 62 5a 00 8b 20 48 f1 ┆kr. så skriv 0 (nul)";H bZ H ┆ 0x120…140 1d 60 57 22 95 20 cf 20 46 f0 11 00 1b 63 64 00 8b 20 48 ef f0 1d 60 57 22 95 20 cf 20 46 f0 28 ┆ `W" F cd H `W" F (┆ 0x140…160 48 f3 1d 60 57 22 95 29 f4 1d cd cc 0c 82 f5 0f 64 00 4b 63 6e 00 85 22 53 61 6d 6c 65 74 20 73 ┆H `W" ) d Kcn "Samlet s┆ 0x160…180 6b 61 74 74 65 70 72 6f 63 65 6e 74 20 69 20 64 69 6e 20 6b 6f 6d 6d 75 6e 65 2e 2e 2e 2e 22 3b ┆katteprocent i din kommune....";┆ 0x180…1a0 49 00 51 63 78 00 91 00 57 63 82 00 91 00 7c 63 8c 00 85 22 6b 6f 6d 6d 75 6e 65 73 6b 61 74 74 ┆I Qcx Wc øc "kommuneskatt┆ 0x1a0…1c0 65 2d 70 72 6f 63 65 6e 74 65 6e 2e 2e 2e 2e 22 3b 53 00 82 63 96 00 91 00 88 63 a0 00 91 00 8e ┆e-procenten....";S c c ┆ 0x1c0…1e0 63 aa 00 91 00 b2 63 b4 00 85 22 4b 69 72 6b 65 73 6b 61 74 74 65 2d 70 72 6f 63 65 6e 74 65 6e ┆c c "Kirkeskatte-procenten┆ 0x1e0…200 2e 2e 2e 2e 22 3b 4b 49 00 b8 63 be 00 91 00 ee 63 c8 00 85 22 48 76 6f 72 20 6d 65 67 65 74 20 ┆....";KI c c "Hvor meget ┆ 0x200…220 68 61 72 20 64 75 20 61 6c 6c 65 72 65 64 65 20 62 65 74 61 6c 74 20 69 20 73 6b 61 74 2e 2e 2e ┆har du allerede betalt i skat...┆ 0x220…240 2e 22 3b 4a 00 0a 64 d2 00 88 20 44 43 f0 44 f3 43 3a 8b 20 44 43 f1 f0 11 20 cf 20 44 43 f0 11 ┆.";J d DC D C: DC DC ┆ 0x240…260 00 27 64 dc 00 88 20 58 f0 28 41 f3 42 f3 43 f2 44 f3 47 f3 1c 48 0d 29 f4 49 f5 0f 64 00 41 64 ┆ 'd X (A B C D G H ) I d Ad┆ 0x260…280 e6 00 88 20 50 f0 28 41 f3 42 f3 1d 00 20 4b 92 29 f4 0f 0c f5 0f 64 00 5d 64 f0 00 88 20 4d f0 ┆ P (A B K ) d Åd M ┆ 0x280…2a0 28 41 f3 42 f2 44 43 f3 1d 00 08 04 92 29 f4 17 f5 0f 64 00 7d 64 fa 00 88 20 4f f0 1c 28 6e f4 ┆(A B DC ) d åd O (n ┆ 0x2a0…2c0 0f 16 f5 0f 64 f2 1c 54 56 f4 28 49 f3 0f 16 29 f5 0f 64 00 9d 64 04 01 8b 20 49 f2 0f 0c f2 17 ┆ d TV (I ) d d I ┆ 0x2c0…2e0 f1 0f 44 f2 4b 49 20 cf 20 4e 4e f0 11 3a 89 20 0e 4a 01 00 b0 64 0e 01 88 20 58 58 f0 41 f3 42 ┆ D KI NN : J d XX A B┆ 0x2e0…300 f3 43 f2 44 f3 47 00 c3 64 18 01 88 20 50 50 f0 41 f3 42 f3 1d 00 20 4b 92 00 d9 64 22 01 88 20 ┆ C D G d PP A B K d" ┆ 0x300…320 4d 4d f0 41 f3 42 f2 44 43 f3 1d 00 08 04 92 00 0b 65 2c 01 8b 20 4d 4d f1 50 50 20 f7 20 4d 4d ┆MM A B DC e, MM PP MM┆ 0x320…340 f1 58 58 20 cf 20 4e 4e f0 4d 4d f4 28 28 49 f2 0f 0c f2 17 29 f3 28 0f 44 f2 4b 49 29 29 f5 0f ┆ XX NN MM ((I ) ( D KI)) ┆ 0x340…360 64 00 3d 65 36 01 8b 20 50 50 f1 4d 4d 20 f7 20 50 50 f1 58 58 20 cf 20 4e 4e f0 50 50 f4 28 28 ┆d =e6 PP MM PP XX NN PP ((┆ 0x360…380 49 f2 0f 0c f2 17 29 f3 28 0f 44 f2 4b 49 29 29 f5 0f 64 00 6f 65 40 01 8b 20 58 58 f1 50 50 20 ┆I ) ( D KI)) d oe@ XX PP ┆ 0x380…3a0 f7 20 58 58 f1 4d 4d 20 cf 20 4e 4e f0 58 58 f4 28 28 49 f2 0f 0c f2 17 29 f3 28 0f 44 f2 4b 49 ┆ XX MM NN XX ((I ) ( D KI┆ 0x3a0…3c0 29 29 f5 0f 64 00 86 65 4a 01 88 20 56 f0 58 f2 50 f2 4d f2 46 f3 4f f3 4a f3 4e 4e 00 ad 65 4f ┆)) d eJ V X P M F O J NN eO┆ 0x3c0…3e0 01 91 20 22 44 75 20 73 6b 61 6c 20 69 20 73 6b 61 74 20 62 65 74 61 6c 65 20 6b 72 2e 2e 2e 2e ┆ "Du skal i skat betale kr....┆ 0x3e0…400 2e 22 3b 00 c3 65 54 01 91 20 d9 20 22 23 23 23 23 23 23 23 2e 23 22 3b 56 00 e4 65 59 01 91 20 ┆."; eT "#######.#";V eY ┆ 0x400…420 22 65 6c 6c 65 72 20 70 72 20 6d 7d 6e 65 64 2e 20 6b 72 2e 2e 2e 2e 2e 22 3b 00 fd 65 5e 01 91 ┆"eller pr måned. kr....."; e^ ┆ 0x420…440 20 d9 20 22 23 23 23 23 23 23 23 2e 23 22 3b 56 f5 0f 0c 00 00 00 1a 1a 4a f3 4e 4e 00 ad 65 4f ┆ "#######.#";V J NN eO┆ 0x440…460 01 91 20 22 44 75 20 73 6b 61 6c 20 69 20 73 6b 61 74 20 62 65 74 61 6c 65 20 6b 72 2e 2e 2e 2e ┆ "Du skal i skat betale kr....┆ 0x460…480 2e 22 3b 00 c3 65 54 01 91 20 d9 20 22 23 23 23 23 23 23 23 2e 23 22 3b 56 00 e4 65 59 01 91 20 ┆."; eT "#######.#";V eY ┆