DataMuseum.dk Presents historical artifacts from the history of: RegneCentralen RC759 "Piccoline"

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about RegneCentralen RC759 "Piccoline" Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦6eab7e742⟧

    Length: 768 (0x300)
    Names: »PROGRAM4«

Derivation

└─⟦b610cd576⟧ Bits:30004336 SKAT - et emnearbejde (Piccoline)
    └─ ⟦this⟧ »PROGRAM4« 

Hex Dump

0x000…020 4e 00 50 72 6f 67 72 61 6d 73 74 75 6d 70 20 74 69 6c 20 68 6a 7b 6c 70 20 76 65 64 20 75 64 61   ┆N Programstump til hjælp ved uda┆
0x020…040 72 62 65 6a 64 65 6c 73 65 20 61 66 20 70 72 6f 67 72 61 6d 20 74 69 6c 20 62 65 72 65 67 6e 69   ┆rbejdelse af program til beregni┆
0x040…060 6e 67 20 61 66 20 73 74 61 74 73 73 6b 61 74 2e 4f 00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   ┆ng af statsskat.O --------------┆
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 00 00 13 00 30 34 31 30 20 50 52 4f 43 20 62 65 72 65 67 6e 69 6e 67 24 00 30 34 32 30 20 20   ┆-    0410 PROC beregning$ 0420  ┆
0x0c0…0e0 20 49 46 20 73 6b 5f 69 6e 64 6b 6f 6d 73 74 3c 3d 67 72 7b 6e 73 65 5f 31 20 54 48 45 4e 29 00   ┆ IF sk_indkomst<=grænse_1 THEN) ┆
0x0e0…100 30 34 33 30 20 20 20 20 20 73 74 61 74 73 73 6b 61 74 3a 3d 73 6b 5f 69 6e 64 6b 6f 6d 73 74 2a   ┆0430     statsskat:=sk_indkomst*┆
0x100…120 70 63 74 5f 31 2f 31 30 30 0b 00 30 34 34 30 20 20 20 45 4c 53 45 26 00 30 34 35 30 20 20 20 20   ┆pct_1/100  0440   ELSE& 0450    ┆
0x120…140 20 49 46 20 73 6b 5f 69 6e 64 6b 6f 6d 73 74 3c 3d 67 72 7b 6e 73 65 5f 32 20 54 48 45 4e 49 00   ┆ IF sk_indkomst<=grænse_2 THENI ┆
0x140…160 30 34 36 30 20 20 20 20 20 20 20 73 74 61 74 73 73 6b 61 74 3a 3d 67 72 7b 6e 73 65 5f 31 2a 70   ┆0460       statsskat:=grænse_1*p┆
0x160…180 63 74 5f 31 2f 31 30 30 2b 28 73 6b 5f 69 6e 64 6b 6f 6d 73 74 2d 67 72 7b 6e 73 65 5f 31 29 2a   ┆ct_1/100+(sk_indkomst-grænse_1)*┆
0x180…1a0 70 63 74 5f 32 2f 31 30 30 0d 00 30 34 37 30 20 20 20 20 20 45 4c 53 45 46 00 30 34 38 30 20 20   ┆pct_2/100  0470     ELSEF 0480  ┆
0x1a0…1c0 20 20 20 20 20 73 74 61 74 73 73 6b 61 74 3a 3d 67 72 7b 6e 73 65 5f 31 2a 70 63 74 5f 31 2f 31   ┆     statsskat:=grænse_1*pct_1/1┆
0x1c0…1e0 30 30 2b 28 67 72 7b 6e 73 65 5f 32 2d 67 72 7b 6e 73 65 5f 31 29 2a 70 63 74 5f 32 2f 31 30 30   ┆00+(grænse_2-grænse_1)*pct_2/100┆
0x1e0…200 40 00 30 34 39 30 20 20 20 20 20 20 20 73 74 61 74 73 73 6b 61 74 3a 3d 73 74 61 74 73 73 6b 61   ┆@ 0490       statsskat:=statsska┆
0x200…220 74 2b 28 73 6b 5f 69 6e 64 6b 6f 6d 73 74 2d 67 72 7b 6e 73 65 5f 32 29 2a 70 63 74 5f 33 2f 31   ┆t+(sk_indkomst-grænse_2)*pct_3/1┆
0x220…240 30 30 0e 00 30 35 30 30 20 20 20 20 20 45 4e 44 49 46 0c 00 30 35 31 30 20 20 20 45 4e 44 49 46   ┆00  0500     ENDIF  0510   ENDIF┆
0x240…260 16 00 30 35 32 30 20 45 4e 44 50 52 4f 43 20 62 65 72 65 67 6e 69 6e 67 00 00 3a 00 4e 7d 72 20   ┆  0520 ENDPROC beregning  : Når ┆
0x260…280 64 75 20 65 72 20 66 7b 72 64 69 67 20 6d 65 64 20 64 69 74 20 70 72 6f 67 72 61 6d 2c 20 6b 61   ┆du er færdig med dit program, ka┆
0x280…2a0 6e 20 64 75 20 6b 6f 6d 6d 65 20 74 69 6c 62 61 67 65 20 74 69 6c 1e 00 62 61 73 69 73 70 72 6f   ┆n du komme tilbage til  basispro┆
0x2a0…2c0 67 72 61 6d 6d 65 74 20 76 65 64 20 61 74 20 73 6b 72 69 76 65 3a 09 00 52 55 4e 22 6d 65 6e 75   ┆grammet ved at skrive:  RUN"menu┆
0x2c0…2e0 22 24 00 6f 67 20 64 65 72 65 66 74 65 72 20 74 72 79 6b 6b 65 20 70 7d 20 52 45 54 55 52 4e 2d   ┆"$ og derefter trykke på RETURN-┆
0x2e0…300 74 61 73 74 65 6e 2e 00 00 00 00 1a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆tasten.                         ┆