|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 19328 (0x4b80)
Names: »RCVALG.PRC«
└─⟦44f328a8d⟧ Bits:30004327 RC-Valg - Piccoline
└─ ⟦this⟧ »RCVALG.PRC«
0x0000…0020 22 83 d0 fa 2a 2a 06 4c 5e 4b 30 31 2f 72 63 76 61 6c 67 2e 70 72 63 20 20 20 0a 00 63 09 7c 6d ┆" ** L^K01/rcvalg.prc c øm┆ 0x0020…0040 7f 01 93 80 9c 80 00 00 2d 7f 01 00 14 00 3e 0d 9c 80 2d 71 c6 00 0a c0 07 00 70 72 69 6e 74 65 ┆ - > -q printe┆ 0x0040…0060 72 00 2d 70 01 00 1e 00 89 05 82 f8 2d 00 01 00 28 00 67 07 82 f2 04 00 67 a0 2d 00 01 00 32 00 ┆r -p - ( g g - 2 ┆ 0x0060…0080 86 0a 08 d0 01 20 00 00 00 00 00 82 55 00 07 00 01 00 3c 00 86 1a 2a c0 27 00 20 20 20 20 20 20 ┆ U < * ' ┆ 0x0080…00a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 4f 43 45 44 55 52 45 4b 41 54 41 4c 4f 47 ┆ PROCEDUREKATALOG┆ 0x00a0…00c0 2e 00 07 00 01 00 46 00 86 04 08 00 01 00 50 00 86 19 28 c0 25 00 20 20 20 20 20 20 20 20 20 20 ┆. F P ( % ┆ 0x00c0…00e0 20 20 20 20 20 20 20 20 20 20 20 20 50 72 6f 67 72 61 6d 3a 20 72 63 76 61 6c 67 00 07 00 01 00 ┆ Program: rcvalg ┆ 0x00e0…0100 5a 00 43 05 07 80 2d 0d 01 00 64 00 86 0a 0a c0 08 00 61 6e 61 6c 79 73 65 72 07 00 01 00 6e 00 ┆Z C - d analyser n ┆ 0x0100…0120 43 05 2f 80 2d 0d 01 00 78 00 86 16 22 c0 1f 00 61 6e 61 6c 79 73 65 72 65 72 20 65 6e 20 6c 69 ┆C / - x " analyserer en li┆ 0x0120…0140 73 74 65 73 20 72 65 73 75 6c 74 61 74 65 72 00 07 00 01 00 82 00 43 05 3a 80 2d 0d 01 00 8c 00 ┆stes resultater C : - ┆ 0x0140…0160 86 0b 0c c0 09 00 75 64 66 7c 72 20 3e 46 35 00 07 00 01 00 96 00 43 05 46 80 2d 0d 01 00 a0 00 ┆ udfør >F5 C F - ┆ 0x0160…0180 86 0a 0a c0 08 00 69 6e 64 6c 69 6e 69 65 07 00 01 00 aa 00 43 0c 0a c0 07 00 6e 75 6c 73 74 69 ┆ indlinie C nulsti┆ 0x0180…01a0 6c 00 02 01 60 80 2d 0d 01 00 b4 00 43 0f 10 c0 0e 00 76 69 73 5f 76 61 6c 67 73 74 65 64 65 72 ┆l ` - C vis_valgsteder┆ 0x01a0…01c0 02 01 60 80 2d 0d 01 00 be 00 43 05 54 80 2d 0d 01 00 c8 00 86 07 04 c0 01 00 2d 00 07 00 01 00 ┆ ` - C T - - ┆ 0x01c0…01e0 d2 00 43 05 07 80 2d 0d 01 00 dc 00 86 0b 0c c0 0a 00 61 75 74 6f 62 61 63 6b 75 70 07 00 01 00 ┆ C - autobackup ┆ 0x01e0…0200 e6 00 43 05 2f 80 2d 0d 01 00 f0 00 86 20 36 c0 34 00 73 6b 72 69 76 65 72 20 76 7b 73 65 6e 74 ┆ C / - 6 4 skriver væsent┆ 0x0200…0220 6c 69 67 65 20 6f 70 6c 79 73 6e 69 6e 67 65 72 20 70 7d 20 73 74 61 74 69 73 74 69 6b 64 69 73 ┆lige oplysninger på statistikdis┆ 0x0220…0240 6b 65 74 74 65 6e 07 00 01 00 fa 00 43 05 3a 80 2d 0d 01 00 04 01 86 0c 0e c0 0b 00 69 6e 64 6c ┆ketten C : - indl┆ 0x0240…0260 7b 73 5f 64 69 73 6b 00 07 00 01 00 0e 01 43 0f 10 c0 0d 00 73 6c 65 74 5f 76 61 6c 67 73 74 65 ┆æs_disk C slet_valgste┆ 0x0260…0280 64 00 02 01 60 80 2d 0d 01 00 18 01 43 05 46 80 2d 0d 01 00 22 01 86 0e 12 c0 0f 00 73 74 65 6d ┆d ` - C F - " stem┆ 0x0280…02a0 6d 65 70 72 6f 63 65 6e 74 65 72 00 07 00 01 00 2c 01 43 0c 0a c0 08 00 69 5f 6f 5f 66 65 6a 6c ┆meprocenter , C i_o_fejl┆ 0x02a0…02c0 02 01 60 80 2d 0d 01 00 36 01 43 05 54 80 2d 0d 01 00 40 01 86 07 04 c0 01 00 2d 00 07 00 01 00 ┆ ` - 6 C T - @ - ┆ 0x02c0…02e0 4a 01 43 05 07 80 2d 0d 01 00 54 01 86 12 1a c0 17 00 62 6f 78 28 78 31 2c 79 31 2c 78 32 2c 79 ┆J C - T box(x1,y1,x2,y┆ 0x02e0…0300 32 2c 73 6c 61 67 73 24 29 00 07 00 01 00 5e 01 43 05 2f 80 2d 0d 01 00 68 01 86 1b 2c c0 2a 00 ┆2,slags$) ^ C / - h , * ┆ 0x0300…0320 74 65 67 6e 65 72 20 65 6e 20 72 61 6d 6d 65 20 6f 6d 20 65 6e 20 74 65 6b 73 74 20 65 6c 6c 65 ┆tegner en ramme om en tekst elle┆ 0x0320…0340 72 20 6c 69 67 6e 65 6e 64 65 07 00 01 00 72 01 43 05 3a 80 2d 0d 01 00 7c 01 86 0c 0e c0 0b 00 ┆r lignende r C : - ø ┆ 0x0340…0360 76 69 73 5f 73 74 65 6d 6d 65 72 00 07 00 01 00 86 01 43 10 12 c0 10 00 76 69 73 5f 6d 61 6e 64 ┆vis_stemmer C vis_mand┆ 0x0360…0380 61 74 66 6f 72 64 65 6c 02 01 60 80 2d 0d 01 00 90 01 43 0f 10 c0 0e 00 76 69 73 5f 76 61 6c 67 ┆atfordel ` - C vis_valg┆ 0x0380…03a0 73 74 65 64 65 72 02 01 60 80 2d 0d 01 00 9a 01 43 05 46 80 2d 0d 01 00 a4 01 86 07 04 c0 01 00 ┆steder ` - C F - ┆ 0x03a0…03c0 2d 00 07 00 01 00 ae 01 43 05 54 80 2d 0d 01 00 b8 01 86 15 20 c0 1e 00 78 31 20 20 20 20 20 20 ┆- C T - x1 ┆ 0x03c0…03e0 20 2d 20 76 65 6e 73 74 72 65 20 78 2d 6b 6f 6f 72 64 69 6e 61 74 07 00 01 00 c2 01 43 17 20 c0 ┆ - venstre x-koordinat C ┆ 0x03e0…0400 1e 00 78 32 20 20 20 20 20 20 20 2d 20 20 20 68 7c 6a 72 65 20 78 2d 6b 6f 6f 72 64 69 6e 61 74 ┆ x2 - højre x-koordinat┆ 0x0400…0420 02 01 60 80 2d 0d 01 00 cc 01 43 17 20 c0 1e 00 79 31 20 20 20 20 20 20 20 2d 20 20 20 20 7c 76 ┆ ` - C y1 - øv┆ 0x0420…0440 72 65 20 79 2d 6b 6f 6f 72 64 69 6e 61 74 02 01 60 80 2d 0d 01 00 d6 01 43 17 20 c0 1e 00 79 32 ┆re y-koordinat ` - C y2┆ 0x0440…0460 20 20 20 20 20 20 20 2d 20 20 20 6e 65 64 72 65 20 79 2d 6b 6f 6f 72 64 69 6e 61 74 02 01 60 80 ┆ - nedre y-koordinat ` ┆ 0x0460…0480 2d 0d 01 00 e0 01 43 1f 30 c0 2e 00 73 6c 61 67 73 24 20 20 20 2d 20 73 6b 61 72 70 65 20 65 6c ┆- C 0 . slags$ - skarpe el┆ 0x0480…04a0 6c 65 72 20 62 6c 7c 64 65 20 6b 61 6e 74 65 72 20 70 7d 20 6b 61 73 73 65 6e 02 01 60 80 2d 0d ┆ler bløde kanter på kassen ` - ┆ 0x04a0…04c0 01 00 ea 01 43 1b 28 c0 26 00 20 20 20 20 20 20 20 20 20 20 20 22 4b 41 4e 54 22 20 20 20 20 20 ┆ C ( & "KANT" ┆ 0x04c0…04e0 20 91 20 73 6b 61 72 70 65 20 6b 61 6e 74 65 72 02 01 60 80 2d 0d 01 00 f4 01 43 1b 28 c0 25 00 ┆ skarpe kanter ` - C ( % ┆ 0x04e0…0500 20 20 20 20 20 20 20 20 20 20 20 61 6e 64 65 6e 20 74 65 6b 73 74 20 91 20 62 6c 7c 64 65 20 6b ┆ anden tekst bløde k┆ 0x0500…0520 61 6e 74 65 72 00 02 01 60 80 2d 0d 01 00 fe 01 43 05 07 80 2d 0d 01 00 08 02 86 0e 12 c0 10 00 ┆anter ` - C - ┆ 0x0520…0540 62 79 76 7d 62 65 6e 20 45 58 54 45 52 4e 41 4c 07 00 01 00 12 02 43 05 2f 80 2d 0d 01 00 1c 02 ┆byvåben EXTERNAL C / - ┆ 0x0540…0560 86 15 20 c0 1d 00 74 65 67 6e 65 72 20 62 79 76 7d 62 65 6e 20 65 6c 6c 65 72 20 6c 69 67 6e 65 ┆ tegner byvåben eller ligne┆ 0x0560…0580 6e 64 65 00 07 00 01 00 26 02 43 05 3a 80 2d 0d 01 00 30 02 86 0b 0c c0 09 00 75 64 66 7c 72 20 ┆nde & C : - 0 udfør ┆ 0x0580…05a0 3e 46 38 00 07 00 01 00 3a 02 43 05 46 80 2d 0d 01 00 44 02 86 07 04 c0 01 00 2d 00 07 00 01 00 ┆>F8 : C F - D - ┆ 0x05a0…05c0 4e 02 43 05 54 80 2d 0d 01 00 58 02 86 07 04 c0 01 00 2d 00 07 00 01 00 62 02 86 04 08 00 01 00 ┆N C T - X - b ┆ 0x05c0…05e0 6c 02 86 25 40 c0 3e 00 4e 42 21 20 31 29 20 50 72 6f 63 65 64 75 72 65 6e 20 65 72 20 65 6b 73 ┆l %@ > NB! 1) Proceduren er eks┆ 0x05e0…0600 74 65 72 6e 20 6f 67 20 66 69 6e 64 65 73 20 69 20 70 72 6f 67 72 61 6d 6d 65 74 20 22 62 79 76 ┆tern og findes i programmet "byv┆ 0x0600…0620 7d 62 65 6e 22 2e 07 00 01 00 76 02 86 24 3e c0 3b 00 20 20 20 20 32 29 20 50 72 6f 63 65 64 75 ┆åben". v $> ; 2) Procedu┆ 0x0620…0640 72 65 6e 20 65 72 20 74 6f 6d 20 6f 67 20 73 6b 61 6c 20 75 64 66 79 6c 64 65 73 20 61 66 20 62 ┆ren er tom og skal udfyldes af b┆ 0x0640…0660 72 75 67 65 72 65 6e 20 73 65 6c 76 2e 00 07 00 01 00 80 02 43 05 07 80 2d 0d 01 00 8a 02 86 0e ┆rugeren selv. C - ┆ 0x0660…0680 12 c0 10 00 63 6c 72 28 78 31 2c 79 31 2c 78 32 2c 79 32 29 07 00 01 00 94 02 43 05 2f 80 2d 0d ┆ clr(x1,y1,x2,y2) C / - ┆ 0x0680…06a0 01 00 9e 02 86 13 1c c0 19 00 73 6c 65 74 74 65 72 20 65 6e 20 64 65 6c 20 61 66 20 73 6b 7b 72 ┆ sletter en del af skær┆ 0x06a0…06c0 6d 65 6e 00 07 00 01 00 a8 02 43 05 3a 80 2d 0d 01 00 b2 02 86 0d 10 c0 0e 00 76 69 73 5f 76 61 ┆men C : - vis_va┆ 0x06c0…06e0 6c 67 73 74 65 64 65 72 07 00 01 00 bc 02 43 05 46 80 2d 0d 01 00 c6 02 86 07 04 c0 01 00 2d 00 ┆lgsteder C F - - ┆ 0x06e0…0700 07 00 01 00 d0 02 43 05 54 80 2d 0d 01 00 da 02 86 1f 34 c0 31 00 78 31 2c 78 32 2c 79 31 2c 79 ┆ C T - 4 1 x1,x2,y1,y┆ 0x0700…0720 32 20 2d 20 61 66 67 72 7b 6e 73 65 72 20 6f 6d 72 7d 64 65 74 2c 20 64 65 72 20 73 6b 61 6c 20 ┆2 - afgrænser området, der skal ┆ 0x0720…0740 73 6c 65 74 74 65 73 00 07 00 01 00 16 03 43 05 07 80 2d 0d 01 00 20 03 86 1d 30 c0 2d 00 64 68 ┆slettes C - 0 - dh┆ 0x0740…0760 6f 6e 74 28 61 6e 74 5f 64 69 6d 2c 69 61 6c 74 2c 52 45 46 20 69 6e 64 28 29 2c 52 45 46 20 75 ┆ont(ant_dim,ialt,REF ind(),REF u┆ 0x0760…0780 64 28 29 29 20 43 4c 4f 53 45 44 00 07 00 01 00 2a 03 43 05 2f 80 2d 0d 01 00 34 03 86 21 38 c0 ┆d()) CLOSED * C / - 4 !8 ┆ 0x0780…07a0 36 00 75 64 72 65 67 6e 65 72 20 6d 61 6e 64 61 74 66 6f 72 64 65 6c 69 6e 67 65 6e 20 65 66 74 ┆6 udregner mandatfordelingen eft┆ 0x07a0…07c0 65 72 20 64 65 6e 20 64 27 48 6f 6e 64 74 73 6b 65 20 6d 65 74 6f 64 65 07 00 01 00 3e 03 43 05 ┆er den d'Hondtske metode > C ┆ 0x07c0…07e0 3a 80 2d 0d 01 00 48 03 86 09 08 c0 06 00 66 6f 72 64 65 6c 07 00 01 00 52 03 43 05 46 80 2d 0d ┆: - H fordel R C F - ┆ 0x07e0…0800 01 00 5c 03 86 07 04 c0 01 00 2d 00 07 00 01 00 66 03 43 05 54 80 2d 0d 01 00 70 03 86 17 24 c0 ┆ Ø - f C T - p $ ┆ 0x0800…0820 22 00 61 6e 74 5f 64 69 6d 20 20 20 20 20 20 20 2d 20 61 6e 74 61 6c 6c 65 74 20 61 66 20 6c 69 ┆" ant_dim - antallet af li┆ 0x0820…0840 73 74 65 72 07 00 01 00 7a 03 43 21 34 c0 32 00 69 61 6c 74 20 20 20 20 20 20 20 20 20 20 2d 20 ┆ster z C!4 2 ialt - ┆ 0x0840…0860 61 6e 74 61 6c 6c 65 74 20 61 66 20 6d 61 6e 64 61 74 65 72 20 74 69 6c 20 66 6f 72 64 65 6c 69 ┆antallet af mandater til fordeli┆ 0x0860…0880 6e 67 02 01 60 80 2d 0d 01 00 84 03 43 22 36 c0 33 00 69 6e 64 28 29 20 20 20 20 20 20 20 20 20 ┆ng ` - C"6 3 ind() ┆ 0x0880…08a0 2d 20 74 61 62 65 6c 20 6d 65 64 20 6c 69 73 74 65 72 65 73 75 6c 74 61 74 65 72 20 28 73 74 65 ┆- tabel med listeresultater (ste┆ 0x08a0…08c0 6d 6d 65 72 29 00 02 01 60 80 2d 0d 01 00 8e 03 43 22 36 c0 34 00 75 64 28 29 20 20 20 20 20 20 ┆mmer) ` - C"6 4 ud() ┆ 0x08c0…08e0 20 20 20 20 2d 20 74 61 62 65 6c 20 6d 65 64 20 6c 69 73 74 65 72 65 73 75 6c 74 61 74 65 72 20 ┆ - tabel med listeresultater ┆ 0x08e0…0900 28 6d 61 6e 64 61 74 65 72 29 02 01 60 80 2d 0d 01 00 98 03 43 05 07 80 2d 0d 01 00 a2 03 86 13 ┆(mandater) ` - C - ┆ 0x0900…0920 1c c0 1a 00 66 6f 72 64 65 6c 28 52 45 46 20 69 6e 64 28 29 2c 52 45 46 20 75 64 28 29 29 07 00 ┆ fordel(REF ind(),REF ud()) ┆ 0x0920…0940 01 00 ac 03 43 05 2f 80 2d 0d 01 00 b6 03 86 20 36 c0 34 00 66 6f 72 64 65 6c 65 72 20 6d 61 6e ┆ C / - 6 4 fordeler man┆ 0x0940…0960 64 61 74 65 72 6e 65 20 70 7d 20 67 72 75 6e 64 6c 61 67 20 61 66 20 73 74 65 6d 6d 65 66 6f 72 ┆daterne på grundlag af stemmefor┆ 0x0960…0980 64 65 6c 69 6e 67 65 6e 07 00 01 00 c0 03 43 05 3a 80 2d 0d 01 00 ca 03 86 0d 10 c0 0e 00 76 61 ┆delingen C : - va┆ 0x0980…09a0 6c 67 73 74 65 64 66 6f 72 64 65 6c 07 00 01 00 d4 03 43 0e 0e c0 0c 00 6d 61 6e 64 61 74 66 6f ┆lgstedfordel C mandatfo┆ 0x09a0…09c0 72 64 65 6c 02 01 60 80 2d 0d 01 00 de 03 43 05 46 80 2d 0d 01 00 e8 03 86 09 08 c0 05 00 75 64 ┆rdel ` - C F - ud┆ 0x09c0…09e0 66 7c 72 00 07 00 01 00 f2 03 43 0c 0a c0 07 00 6e 75 6c 73 74 69 6c 00 02 01 60 80 2d 0d 01 00 ┆før C nulstil ` - ┆ 0x09e0…0a00 fc 03 43 0b 08 c0 05 00 64 68 6f 6e 74 00 02 01 60 80 2d 0d 01 00 06 04 43 0b 08 c0 06 00 6d 65 ┆ C dhont ` - C me┆ 0x0a00…0a20 64 64 65 6c 02 01 60 80 2d 0d 01 00 10 04 43 05 54 80 2d 0d 01 00 1a 04 86 20 36 c0 33 00 69 6e ┆ddel ` - C T - 6 3 in┆ 0x0a20…0a40 64 28 29 20 20 20 20 20 20 20 20 20 2d 20 74 61 62 65 6c 20 6d 65 64 20 6c 69 73 74 65 72 65 73 ┆d() - tabel med listeres┆ 0x0a40…0a60 75 6c 74 61 74 65 72 20 28 73 74 65 6d 6d 65 72 29 00 07 00 01 00 24 04 43 22 36 c0 34 00 75 64 ┆ultater (stemmer) $ C"6 4 ud┆ 0x0a60…0a80 28 29 20 20 20 20 20 20 20 20 20 20 2d 20 74 61 62 65 6c 20 6d 65 64 20 6c 69 73 74 65 72 65 73 ┆() - tabel med listeres┆ 0x0a80…0aa0 75 6c 74 61 74 65 72 20 28 6d 61 6e 64 61 74 65 72 29 02 01 60 80 2d 0d 01 00 2e 04 43 05 07 80 ┆ultater (mandater) ` - . C ┆ 0x0aa0…0ac0 2d 0d 01 00 38 04 86 11 18 c0 15 00 66 7d 5f 76 61 6c 67 73 74 65 64 6e 72 28 52 45 46 20 6e 72 ┆- 8 få_valgstednr(REF nr┆ 0x0ac0…0ae0 29 00 07 00 01 00 42 04 43 05 2f 80 2d 0d 01 00 4c 04 86 16 22 c0 20 00 69 6e 64 6c 7b 73 65 72 ┆) B C / - L " indlæser┆ 0x0ae0…0b00 20 6e 75 6d 6d 65 72 65 74 20 70 7d 20 65 74 20 76 61 6c 67 73 74 65 64 07 00 01 00 56 04 43 05 ┆ nummeret på et valgsted V C ┆ 0x0b00…0b20 3a 80 2d 0d 01 00 60 04 86 0e 12 c0 0f 00 76 69 73 5f 65 74 5f 76 61 6c 67 73 74 65 64 00 07 00 ┆: - ` vis_et_valgsted ┆ 0x0b20…0b40 01 00 6a 04 43 0f 10 c0 0d 00 73 6c 65 74 5f 76 61 6c 67 73 74 65 64 00 02 01 60 80 2d 0d 01 00 ┆ j C slet_valgsted ` - ┆ 0x0b40…0b60 74 04 43 05 46 80 2d 0d 01 00 7e 04 86 0a 0a c0 08 00 69 6e 64 6c 69 6e 69 65 07 00 01 00 88 04 ┆t C F - ü indlinie ┆ 0x0b60…0b80 43 05 54 80 2d 0d 01 00 92 04 86 16 22 c0 20 00 6e 72 20 20 20 20 20 20 20 20 20 20 2d 20 76 61 ┆C T - " nr - va┆ 0x0b80…0ba0 6c 67 73 74 65 64 65 74 73 20 6e 75 6d 6d 65 72 07 00 01 00 9c 04 43 05 07 80 2d 0d 01 00 a6 04 ┆lgstedets nummer C - ┆ 0x0ba0…0bc0 86 0b 0c c0 0a 00 67 72 75 70 70 65 72 69 6e 67 07 00 01 00 b0 04 43 05 2f 80 2d 0d 01 00 ba 04 ┆ gruppering C / - ┆ 0x0bc0…0be0 86 1e 32 c0 30 00 76 69 73 65 72 20 64 65 20 65 6e 6b 65 6c 74 65 20 70 61 72 74 69 67 72 75 70 ┆ 2 0 viser de enkelte partigrup┆ 0x0be0…0c00 70 65 72 73 20 73 61 6d 6c 65 64 65 20 6d 61 6e 64 61 74 74 61 6c 07 00 01 00 c4 04 43 05 3a 80 ┆pers samlede mandattal C : ┆ 0x0c00…0c20 2d 0d 01 00 ce 04 86 0c 0e c0 0c 00 6d 61 6e 64 61 74 66 6f 72 64 65 6c 07 00 01 00 d8 04 43 05 ┆- mandatfordel C ┆ 0x0c20…0c40 46 80 2d 0d 01 00 e2 04 86 09 08 c0 05 00 73 70 7c 72 67 00 07 00 01 00 ec 04 43 0b 08 c0 05 00 ┆F - spørg C ┆ 0x0c40…0c60 73 74 6f 6c 65 00 02 01 60 80 2d 0d 01 00 f6 04 43 05 54 80 2d 0d 01 00 00 05 86 07 04 c0 01 00 ┆stole ` - C T - ┆ 0x0c60…0c80 2d 00 07 00 01 00 0a 05 86 04 08 00 01 00 14 05 86 28 46 c0 43 00 4e 42 21 20 55 6e 64 65 72 70 ┆- (F C NB! Underp┆ 0x0c80…0ca0 72 6f 67 72 61 6d 6d 65 74 20 73 6b 61 6c 20 6c 61 76 65 73 20 69 6e 64 69 76 69 64 75 65 6c 74 ┆rogrammet skal laves individuelt┆ 0x0ca0…0cc0 20 66 6f 72 20 64 65 20 65 6e 6b 65 6c 74 65 20 6b 6f 6d 6d 75 6e 65 72 2e 00 07 00 01 00 1e 05 ┆ for de enkelte kommuner. ┆ 0x0cc0…0ce0 43 05 07 80 2d 0d 01 00 28 05 86 16 22 c0 1f 00 68 65 6e 74 28 66 69 6c 24 2c 52 45 46 20 69 6e ┆C - ( " hent(fil$,REF in┆ 0x0ce0…0d00 64 28 29 2c 72 65 63 2c 70 6f 73 74 65 72 29 00 07 00 01 00 32 05 43 05 2f 80 2d 0d 01 00 3c 05 ┆d(),rec,poster) 2 C / - < ┆ 0x0d00…0d20 86 25 40 c0 3e 00 68 65 6e 74 65 72 20 6f 70 6c 79 73 6e 69 6e 67 65 72 20 6f 6d 20 73 74 65 6d ┆ %@ > henter oplysninger om stem┆ 0x0d20…0d40 6d 65 66 6f 72 64 65 6c 69 6e 67 20 70 7d 20 64 65 20 65 6e 6b 65 6c 74 65 20 76 61 6c 67 73 74 ┆mefordeling på de enkelte valgst┆ 0x0d40…0d60 65 64 65 72 07 00 01 00 46 05 43 05 3a 80 2d 0d 01 00 50 05 86 0c 0e c0 0b 00 69 6e 64 6c 7b 73 ┆eder F C : - P indlæs┆ 0x0d60…0d80 5f 64 69 73 6b 00 07 00 01 00 5a 05 43 0c 0a c0 07 00 69 6e 64 5f 70 72 7b 00 02 01 60 80 2d 0d ┆_disk Z C ind_præ ` - ┆ 0x0d80…0da0 01 00 64 05 43 05 46 80 2d 0d 01 00 6e 05 86 0a 0a c0 08 00 69 5f 6f 5f 66 65 6a 6c 07 00 01 00 ┆ d C F - n i_o_fejl ┆ 0x0da0…0dc0 78 05 43 05 54 80 2d 0d 01 00 82 05 86 15 20 c0 1d 00 66 69 6c 24 20 20 20 20 20 2d 20 66 69 6c ┆x C T - fil$ - fil┆ 0x0dc0…0de0 20 74 69 6c 20 69 6e 64 6c 7b 73 6e 69 6e 67 00 07 00 01 00 8c 05 43 1f 30 c0 2e 00 69 6e 64 28 ┆ til indlæsning C 0 . ind(┆ 0x0de0…0e00 29 20 20 20 20 2d 20 74 61 62 65 6c 20 6d 65 64 20 6c 69 73 74 65 72 65 73 75 6c 74 61 74 65 72 ┆) - tabel med listeresultater┆ 0x0e00…0e20 20 28 73 74 65 6d 6d 65 72 29 02 01 60 80 2d 0d 01 00 96 05 43 1a 26 c0 23 00 72 65 63 20 20 20 ┆ (stemmer) ` - C & # rec ┆ 0x0e20…0e40 20 20 20 2d 20 72 65 63 6f 72 64 20 6e 75 6d 6d 65 72 20 28 76 61 6c 67 73 74 65 64 29 00 02 01 ┆ - record nummer (valgsted) ┆ 0x0e40…0e60 60 80 2d 0d 01 00 a0 05 43 17 20 c0 1e 00 70 6f 73 74 65 72 20 20 20 2d 20 70 6f 73 74 20 6e 75 ┆` - C poster - post nu┆ 0x0e60…0e80 6d 6d 65 72 20 28 6c 69 73 74 65 29 02 01 60 80 2d 0d 01 00 aa 05 43 05 07 80 2d 0d 01 00 b4 05 ┆mmer (liste) ` - C - ┆ 0x0e80…0ea0 86 15 20 c0 1d 00 69 64 65 6e 74 69 66 69 6b 61 74 69 6f 6e 28 74 78 74 79 29 20 45 58 54 45 52 ┆ identifikation(txty) EXTER┆ 0x0ea0…0ec0 4e 41 4c 00 07 00 01 00 be 05 43 05 2f 80 2d 0d 01 00 c8 05 86 12 1a c0 17 00 69 64 65 6e 74 69 ┆NAL C / - identi┆ 0x0ec0…0ee0 66 69 63 65 72 65 72 20 64 69 73 6b 65 74 74 65 6e 00 07 00 01 00 d2 05 43 05 3a 80 2d 0d 01 00 ┆ficerer disketten C : - ┆ 0x0ee0…0f00 dc 05 86 09 08 c0 05 00 6f 70 67 7c 72 00 07 00 01 00 e6 05 43 05 46 80 2d 0d 01 00 f0 05 86 0c ┆ opgør C F - ┆ 0x0f00…0f20 0e c0 0c 00 69 6e 67 65 6e 5f 6c 6f 67 62 6f 67 07 00 01 00 fa 05 43 05 54 80 2d 0d 01 00 04 06 ┆ ingen_logbog C T - ┆ 0x0f20…0f40 86 19 28 c0 25 00 74 78 74 79 20 20 2d 20 63 75 72 73 6f 72 65 6e 73 20 61 6b 74 75 65 6c 6c 65 ┆ ( % txty - cursorens aktuelle┆ 0x0f40…0f60 20 79 2d 70 6f 73 69 74 69 6f 6e 00 07 00 01 00 0e 06 86 04 08 00 01 00 18 06 86 24 3e c0 3c 00 ┆ y-position $> < ┆ 0x0f60…0f80 4e 42 21 20 50 72 6f 63 65 64 75 72 65 6e 20 65 72 20 65 6b 73 74 65 72 6e 20 6f 67 20 66 69 6e ┆NB! Proceduren er ekstern og fin┆ 0x0f80…0fa0 64 65 73 20 69 20 70 72 6f 67 72 61 6d 6d 65 74 20 22 69 64 65 6e 74 69 66 69 22 2e 07 00 01 00 ┆des i programmet "identifi". ┆ 0x0fa0…0fc0 22 06 43 05 07 80 2d 0d 01 00 2c 06 86 18 26 c0 24 00 69 6e 64 5f 66 75 6e 6b 74 61 73 74 65 72 ┆" C - , & $ ind_funktaster┆ 0x0fc0…0fe0 28 52 45 46 20 76 7b 72 64 69 65 72 28 29 29 20 43 4c 4f 53 45 44 07 00 01 00 36 06 43 05 2f 80 ┆(REF værdier()) CLOSED 6 C / ┆ 0x0fe0…1000 2d 0d 01 00 40 06 86 1d 30 c0 2d 00 69 6e 64 6c 7b 73 65 72 20 76 7b 72 64 69 65 72 20 74 69 6c ┆- @ 0 - indlæser værdier til┆ 0x1000…1020 20 66 75 6e 6b 74 69 6f 6e 73 74 61 73 74 65 72 6e 65 20 46 31 2d 46 31 32 00 07 00 01 00 4a 06 ┆ funktionstasterne F1-F12 J ┆ 0x1020…1040 43 05 3a 80 2d 0d 01 00 54 06 86 08 06 c0 04 00 6d 65 6e 75 07 00 01 00 5e 06 43 05 46 80 2d 0d ┆C : - T menu ^ C F - ┆ 0x1040…1060 01 00 68 06 86 07 04 c0 01 00 2d 00 07 00 01 00 72 06 43 05 54 80 2d 0d 01 00 7c 06 86 22 3a c0 ┆ h - r C T - ø ": ┆ 0x1060…1080 38 00 76 7b 72 64 69 65 72 28 29 20 20 20 2d 20 74 61 62 65 6c 20 6d 65 64 20 66 75 6e 6b 74 69 ┆8 værdier() - tabel med funkti┆ 0x1080…10a0 6f 6e 73 74 61 73 74 65 72 6e 65 73 20 41 53 43 49 49 2d 76 7b 72 64 69 65 72 07 00 01 00 86 06 ┆onstasternes ASCII-værdier ┆ 0x10a0…10c0 43 05 07 80 2d 0d 01 00 90 06 86 1c 2e c0 2c 00 69 6e 64 5f 6d 61 74 72 69 78 28 66 69 6c 24 2c ┆C - . , ind_matrix(fil$,┆ 0x10c0…10e0 52 45 46 20 76 61 72 69 61 62 65 6c 28 2c 29 2c 72 65 63 73 2c 70 6f 73 74 65 72 29 07 00 01 00 ┆REF variabel(,),recs,poster) ┆ 0x10e0…1100 9a 06 43 05 2f 80 2d 0d 01 00 a4 06 86 1b 2c c0 2a 00 69 6e 64 6c 7b 73 65 72 20 74 61 62 65 6c ┆ C / - , * indlæser tabel┆ 0x1100…1120 20 6d 65 64 20 73 69 64 73 74 65 20 76 61 6c 67 73 20 72 65 73 75 6c 74 61 74 65 72 07 00 01 00 ┆ med sidste valgs resultater ┆ 0x1120…1140 ae 06 43 05 3a 80 2d 0d 01 00 b8 06 86 0a 0a c0 07 00 69 6e 64 5f 70 72 7b 00 07 00 01 00 c2 06 ┆ C : - ind_præ ┆ 0x1140…1160 43 05 46 80 2d 0d 01 00 cc 06 86 0a 0a c0 08 00 69 5f 6f 5f 66 65 6a 6c 07 00 01 00 d6 06 43 05 ┆C F - i_o_fejl C ┆ 0x1160…1180 54 80 2d 0d 01 00 e0 06 86 20 36 c0 33 00 66 69 6c 24 20 20 20 20 20 20 20 20 2d 20 66 69 6c 65 ┆T - 6 3 fil$ - file┆ 0x1180…11a0 6e 2c 20 69 20 68 76 69 6c 6b 65 6e 20 72 65 73 75 6c 74 61 74 65 72 6e 65 20 65 72 20 67 65 6d ┆n, i hvilken resultaterne er gem┆ 0x11a0…11c0 74 00 07 00 01 00 ea 06 43 20 32 c0 30 00 76 61 72 69 61 62 65 6c 28 2c 29 20 2d 20 6d 61 74 72 ┆t C 2 0 variabel(,) - matr┆ 0x11c0…11e0 69 78 20 6d 65 64 20 73 69 64 73 74 65 20 76 61 6c 67 73 20 72 65 73 75 6c 74 61 74 65 72 02 01 ┆ix med sidste valgs resultater ┆ 0x11e0…1200 60 80 2d 0d 01 00 f4 06 43 1a 26 c0 24 00 72 65 63 73 20 20 20 20 20 20 20 20 2d 20 61 6e 74 61 ┆` - C & $ recs - anta┆ 0x1200…1220 6c 6c 65 74 20 61 66 20 76 61 6c 67 73 74 65 64 65 72 02 01 60 80 2d 0d 01 00 fe 06 43 18 22 c0 ┆llet af valgsteder ` - C " ┆ 0x1220…1240 20 00 70 6f 73 74 65 72 20 20 20 20 20 20 2d 20 61 6e 74 61 6c 6c 65 74 20 61 66 20 6c 69 73 74 ┆ poster - antallet af list┆ 0x1240…1260 65 72 02 01 60 80 2d 0d 01 00 08 07 43 05 07 80 2d 0d 01 00 12 07 86 25 40 c0 3e 00 69 6e 64 5f ┆er ` - C - %@ > ind_┆ 0x1260…1280 70 28 52 45 46 20 6e 24 28 29 2c 52 45 46 20 6b 24 28 29 2c 52 45 46 20 6e 75 28 29 2c 52 45 46 ┆p(REF n$(),REF k$(),REF nu(),REF┆ 0x1280…12a0 20 6c 66 28 29 2c 52 45 46 20 76 66 28 29 2c 61 29 20 45 58 54 45 52 4e 41 4c 07 00 01 00 1c 07 ┆ lf(),REF vf(),a) EXTERNAL ┆ 0x12a0…12c0 43 05 2f 80 2d 0d 01 00 26 07 86 0f 14 c0 12 00 69 6e 64 6c 7b 73 65 72 20 6c 69 73 74 65 64 61 ┆C / - & indlæser listeda┆ 0x12c0…12e0 74 61 07 00 01 00 30 07 43 05 3a 80 2d 0d 01 00 3a 07 86 0a 0a c0 07 00 6f 70 73 74 61 72 74 00 ┆ta 0 C : - : opstart ┆ 0x12e0…1300 07 00 01 00 44 07 43 05 46 80 2d 0d 01 00 4e 07 86 07 04 c0 01 00 2d 00 07 00 01 00 58 07 43 05 ┆ D C F - N - X C ┆ 0x1300…1320 54 80 2d 0d 01 00 62 07 86 19 28 c0 26 00 6e 24 28 29 20 20 20 20 20 20 20 2d 20 74 61 62 65 6c ┆T - b ( & n$() - tabel┆ 0x1320…1340 20 6d 65 64 20 6c 69 73 74 65 72 6e 65 73 20 6e 61 76 6e 65 07 00 01 00 6c 07 43 1d 2c c0 2a 00 ┆ med listernes navne l C , * ┆ 0x1340…1360 6b 24 28 29 20 20 20 20 20 20 20 2d 20 74 61 62 65 6c 20 6d 65 64 20 6c 69 73 74 65 72 6e 65 73 ┆k$() - tabel med listernes┆ 0x1360…1380 20 62 6f 67 73 74 61 76 65 72 02 01 60 80 2d 0d 01 00 76 07 43 22 36 c0 34 00 6e 75 28 29 20 20 ┆ bogstaver ` - v C"6 4 nu() ┆ 0x1380…13a0 20 20 20 20 20 2d 20 74 61 62 65 6c 20 6d 65 64 20 6c 69 73 74 65 72 6e 65 73 20 6e 75 76 7b 72 ┆ - tabel med listernes nuvær┆ 0x13a0…13c0 65 6e 64 65 20 6d 61 6e 64 61 74 74 61 6c 02 01 60 80 2d 0d 01 00 80 07 43 25 3c c0 3a 00 6c 66 ┆ende mandattal ` - C%< : lf┆ 0x13c0…13e0 28 29 20 20 20 20 20 20 20 2d 20 74 61 62 65 6c 20 6d 65 64 20 6f 70 6c 79 73 6e 69 6e 67 65 72 ┆() - tabel med oplysninger┆ 0x13e0…1400 20 6f 6d 20 64 65 6c 74 2e 20 69 20 6c 69 73 74 65 66 6f 72 62 75 6e 64 02 01 60 80 2d 0d 01 00 ┆ om delt. i listeforbund ` - ┆ 0x1400…1420 8a 07 43 25 3c c0 39 00 76 66 28 29 20 20 20 20 20 20 20 2d 20 74 61 62 65 6c 20 6d 65 64 20 6f ┆ C%< 9 vf() - tabel med o┆ 0x1420…1440 70 6c 79 73 6e 69 6e 67 65 72 20 6f 6d 20 64 65 6c 74 2e 20 69 20 76 61 6c 67 66 6f 72 62 75 6e ┆plysninger om delt. i valgforbun┆ 0x1440…1460 64 00 02 01 60 80 2d 0d 01 00 94 07 43 18 22 c0 1f 00 61 20 20 20 20 20 20 20 20 20 20 2d 20 61 ┆d ` - C " a - a┆ 0x1460…1480 6e 74 61 6c 6c 65 74 20 61 66 20 6c 69 73 74 65 72 00 02 01 60 80 2d 0d 01 00 9e 07 86 04 08 00 ┆ntallet af lister ` - ┆ 0x1480…14a0 01 00 a8 07 86 24 3e c0 3c 00 4e 42 21 20 50 72 6f 63 65 64 75 72 65 6e 20 65 72 20 65 6b 73 74 ┆ $> < NB! Proceduren er ekst┆ 0x14a0…14c0 65 72 6e 20 6f 67 20 66 69 6e 64 65 73 20 69 20 70 72 6f 67 72 61 6d 6d 65 74 20 22 69 6e 64 70 ┆ern og findes i programmet "indp┆ 0x14c0…14e0 61 72 74 69 22 2e 07 00 01 00 b2 07 43 05 07 80 2d 0d 01 00 bc 07 86 21 38 c0 36 00 69 6e 64 5f ┆arti". C - !8 6 ind_┆ 0x14e0…1500 70 72 7b 28 52 45 46 20 6d 28 2c 29 2c 52 45 46 20 69 61 6c 74 2c 52 45 46 20 70 64 28 29 2c 52 ┆præ(REF m(,),REF ialt,REF pd(),R┆ 0x1500…1520 45 46 20 73 74 65 28 29 2c 52 45 46 20 70 31 28 29 29 07 00 01 00 c6 07 43 05 2f 80 2d 0d 01 00 ┆EF ste(),REF p1()) C / - ┆ 0x1520…1540 d0 07 86 13 1c c0 1a 00 69 6e 64 6c 7b 73 65 72 20 73 69 64 73 74 65 20 76 61 6c 67 73 20 64 61 ┆ indlæser sidste valgs da┆ 0x1540…1560 74 61 07 00 01 00 da 07 43 05 3a 80 2d 0d 01 00 e4 07 86 0a 0a c0 07 00 6f 70 73 74 61 72 74 00 ┆ta C : - opstart ┆ 0x1560…1580 07 00 01 00 ee 07 43 05 46 80 2d 0d 01 00 f8 07 86 0b 0c c0 0a 00 69 6e 64 5f 6d 61 74 72 69 78 ┆ C F - ind_matrix┆ 0x1580…15a0 07 00 01 00 02 08 43 0a 06 c0 04 00 68 65 6e 74 02 01 60 80 2d 0d 01 00 0c 08 43 05 54 80 2d 0d ┆ C hent ` - C T - ┆ 0x15a0…15c0 01 00 16 08 86 1b 2c c0 2a 00 6d 28 2c 29 20 20 2d 20 6d 61 74 72 69 78 20 6d 65 64 20 73 69 64 ┆ , * m(,) - matrix med sid┆ 0x15c0…15e0 73 74 65 20 76 61 6c 67 73 20 72 65 73 75 6c 74 61 74 65 72 07 00 01 00 20 08 43 22 36 c0 33 00 ┆ste valgs resultater C"6 3 ┆ 0x15e0…1600 69 61 6c 74 20 20 2d 20 61 6e 74 61 6c 6c 65 74 20 61 66 20 61 66 67 69 76 6e 65 20 73 74 65 6d ┆ialt - antallet af afgivne stem┆ 0x1600…1620 6d 65 72 20 76 65 64 20 73 69 64 73 74 65 20 76 61 6c 67 00 02 01 60 80 2d 0d 01 00 2a 08 43 24 ┆mer ved sidste valg ` - * C$┆ 0x1620…1640 3a c0 37 00 70 64 28 29 20 20 2d 20 74 61 62 65 6c 20 6d 65 64 20 6c 69 73 74 65 72 65 73 75 6c ┆: 7 pd() - tabel med listeresul┆ 0x1640…1660 74 61 74 65 72 20 28 73 74 65 6d 6d 65 72 2f 73 69 64 73 74 65 20 76 61 6c 67 29 00 02 01 60 80 ┆tater (stemmer/sidste valg) ` ┆ 0x1660…1680 2d 0d 01 00 34 08 43 27 40 c0 3e 00 73 74 65 28 29 20 2d 20 74 61 62 65 6c 20 6d 65 64 20 61 6e ┆- 4 C'@ > ste() - tabel med an┆ 0x1680…16a0 74 61 6c 20 61 66 20 61 66 67 2e 20 73 74 65 6d 6d 65 72 20 28 76 61 6c 67 73 74 65 64 2f 73 69 ┆tal af afg. stemmer (valgsted/si┆ 0x16a0…16c0 64 73 74 65 20 76 61 6c 67 29 02 01 60 80 2d 0d 01 00 3e 08 43 24 3a c0 38 00 70 31 28 29 20 20 ┆dste valg) ` - > C$: 8 p1() ┆ 0x16c0…16e0 2d 20 74 61 62 65 6c 20 6d 65 64 20 73 74 65 6d 6d 65 70 72 6f 63 65 6e 74 65 72 20 28 76 61 6c ┆- tabel med stemmeprocenter (val┆ 0x16e0…1700 67 73 74 65 64 2f 73 69 64 73 74 65 20 76 61 6c 67 29 02 01 60 80 2d 0d 01 00 48 08 43 05 07 80 ┆gsted/sidste valg) ` - H C ┆ 0x1700…1720 2d 0d 01 00 52 08 86 13 1c c0 19 00 69 6e 64 5f 73 74 61 74 75 73 28 52 45 46 20 69 6e 64 24 2c ┆- R ind_status(REF ind$,┆ 0x1720…1740 66 69 6c 24 29 00 07 00 01 00 5c 08 43 05 2f 80 2d 0d 01 00 66 08 86 14 1e c0 1c 00 69 6e 64 6c ┆fil$) Ø C / - f indl┆ 0x1740…1760 7b 73 65 72 20 61 72 62 65 6a 64 73 64 69 73 6b 73 20 73 74 61 74 75 73 07 00 01 00 70 08 43 05 ┆æser arbejdsdisks status p C ┆ 0x1760…1780 3a 80 2d 0d 01 00 7a 08 86 0c 0e c0 0b 00 69 6e 64 6c 7b 73 5f 64 69 73 6b 00 07 00 01 00 84 08 ┆: - z indlæs_disk ┆ 0x1780…17a0 43 05 46 80 2d 0d 01 00 8e 08 86 0a 0a c0 08 00 69 5f 6f 5f 66 65 6a 6c 07 00 01 00 98 08 43 05 ┆C F - i_o_fejl C ┆ 0x17a0…17c0 54 80 2d 0d 01 00 a2 08 86 0d 10 c0 0e 00 69 6e 64 24 20 20 2d 20 73 74 61 74 75 73 07 00 01 00 ┆T - ind$ - status ┆ 0x17c0…17e0 ac 08 43 1a 26 c0 24 00 66 69 6c 24 20 20 2d 20 6e 61 76 6e 65 74 20 70 7d 20 64 65 6e 20 70 7d ┆ C & $ fil$ - navnet på den på┆ 0x17e0…1800 67 7b 6c 64 65 6e 64 65 20 66 69 6c 02 01 60 80 2d 0d 01 00 b6 08 43 05 07 80 2d 0d 01 00 c0 08 ┆gældende fil ` - C - ┆ 0x1800…1820 86 10 16 c0 13 00 69 6e 64 5f 74 61 73 74 28 52 45 46 20 74 61 73 74 24 29 00 07 00 01 00 ca 08 ┆ ind_tast(REF tast$) ┆ 0x1820…1840 43 05 2f 80 2d 0d 01 00 d4 08 86 15 20 c0 1e 00 6d 6f 64 74 61 67 65 72 20 69 6e 64 74 61 73 74 ┆C / - modtager indtast┆ 0x1840…1860 6e 69 6e 67 20 65 66 74 65 72 20 22 3e 22 07 00 01 00 de 08 43 05 3a 80 2d 0d 01 00 e8 08 86 08 ┆ning efter ">" C : - ┆ 0x1860…1880 06 c0 04 00 6d 65 6e 75 07 00 01 00 f2 08 43 10 12 c0 0f 00 76 69 73 5f 65 74 5f 76 61 6c 67 73 ┆ menu C vis_et_valgs┆ 0x1880…18a0 74 65 64 00 02 01 60 80 2d 0d 01 00 fc 08 43 0b 08 c0 05 00 6f 70 67 7c 72 00 02 01 60 80 2d 0d ┆ted ` - C opgør ` - ┆ 0x18a0…18c0 01 00 06 09 43 05 46 80 2d 0d 01 00 10 09 86 09 08 c0 06 00 6d 65 64 64 65 6c 07 00 01 00 1a 09 ┆ C F - meddel ┆ 0x18c0…18e0 43 05 54 80 2d 0d 01 00 24 09 86 1a 2a c0 27 00 74 61 73 74 24 20 20 2d 20 64 65 74 20 74 65 67 ┆C T - $ * ' tast$ - det teg┆ 0x18e0…1900 6e 2c 20 64 65 72 20 74 61 73 74 65 73 20 65 66 74 65 72 20 22 3e 22 00 07 00 01 00 2e 09 43 05 ┆n, der tastes efter ">" . C ┆ 0x1900…1920 07 80 2d 0d 01 00 38 09 86 22 3a c0 38 00 69 6e 64 5f 76 28 52 45 46 20 6e 24 28 29 2c 52 45 46 ┆ - 8 ": 8 ind_v(REF n$(),REF┆ […truncated at 200 lines…]