|
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: 7680 (0x1e00)
Names: »OPSTART2.PRC«
└─⟦44f328a8d⟧ Bits:30004327 RC-Valg - Piccoline
└─ ⟦this⟧ »OPSTART2.PRC«
0x0000…0020 22 83 d0 fa 2a 2a 48 1e 9e 1d 30 31 2f 6f 70 73 74 61 72 74 32 2e 70 72 63 20 0a 00 63 09 00 00 ┆" **H 01/opstart2.prc c ┆ 0x0020…0040 7f 01 93 80 9e 80 00 00 2d 7f 01 00 14 00 3e 0d 9e 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 1a 2a c0 27 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 6f 70 73 74 61 72 74 32 00 07 00 ┆ Program: opstart2 ┆ 0x00e0…0100 01 00 5a 00 43 05 07 80 2d 0d 01 00 64 00 86 16 22 c0 1f 00 68 65 6e 74 28 66 69 6c 24 2c 52 45 ┆ Z C - d " hent(fil$,RE┆ 0x0100…0120 46 20 69 6e 64 28 29 2c 72 65 63 2c 70 6f 73 74 65 72 29 00 07 00 01 00 6e 00 43 05 2f 80 2d 0d ┆F ind(),rec,poster) n C / - ┆ 0x0120…0140 01 00 78 00 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 ┆ x %@ > henter oplysninger om ┆ 0x0140…0160 73 74 65 6d 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 ┆stemmefordeling på de enkelte va┆ 0x0160…0180 6c 67 73 74 65 64 65 72 07 00 01 00 82 00 43 05 3a 80 2d 0d 01 00 8c 00 86 0e 12 c0 10 00 72 65 ┆lgsteder C : - re┆ 0x0180…01a0 64 69 67 65 72 5f 70 72 7b 5f 73 74 65 6d 07 00 01 00 96 00 43 05 46 80 2d 0d 01 00 a0 00 86 0a ┆diger_præ_stem C F - ┆ 0x01a0…01c0 0a c0 08 00 69 5f 6f 5f 66 65 6a 6c 07 00 01 00 aa 00 43 05 54 80 2d 0d 01 00 b4 00 86 15 20 c0 ┆ i_o_fejl C T - ┆ 0x01c0…01e0 1d 00 66 69 6c 24 20 20 20 20 20 2d 20 66 69 6c 20 74 69 6c 20 69 6e 64 6c 7b 73 6e 69 6e 67 00 ┆ fil$ - fil til indlæsning ┆ 0x01e0…0200 07 00 01 00 be 00 43 1f 30 c0 2e 00 69 6e 64 28 29 20 20 20 20 2d 20 74 61 62 65 6c 20 6d 65 64 ┆ C 0 . ind() - tabel med┆ 0x0200…0220 20 6c 69 73 74 65 72 65 73 75 6c 74 61 74 65 72 20 28 73 74 65 6d 6d 65 72 29 02 01 60 80 2d 0d ┆ listeresultater (stemmer) ` - ┆ 0x0220…0240 01 00 c8 00 43 1a 26 c0 23 00 72 65 63 20 20 20 20 20 20 2d 20 72 65 63 6f 72 64 20 6e 75 6d 6d ┆ C & # rec - record numm┆ 0x0240…0260 65 72 20 28 76 61 6c 67 73 74 65 64 29 00 02 01 60 80 2d 0d 01 00 d2 00 43 17 20 c0 1e 00 70 6f ┆er (valgsted) ` - C po┆ 0x0260…0280 73 74 65 72 20 20 20 2d 20 70 6f 73 74 20 6e 75 6d 6d 65 72 20 28 6c 69 73 74 65 29 02 01 60 80 ┆ster - post nummer (liste) ` ┆ 0x0280…02a0 2d 0d 01 00 dc 00 43 05 07 80 2d 0d 01 00 e6 00 86 12 1a c0 17 00 68 65 6e 74 31 28 66 69 6c 24 ┆- C - hent1(fil$┆ 0x02a0…02c0 2c 52 45 46 20 69 6e 64 2c 72 65 63 29 00 07 00 01 00 f0 00 43 05 2f 80 2d 0d 01 00 fa 00 86 26 ┆,REF ind,rec) C / - &┆ 0x02c0…02e0 42 c0 3f 00 68 65 6e 74 65 72 20 6f 70 6c 79 73 6e 69 6e 67 65 72 20 6f 6d 20 73 61 6d 6c 65 74 ┆B ? henter oplysninger om samlet┆ 0x02e0…0300 20 73 74 65 6d 6d 65 74 61 6c 20 70 7d 20 64 65 20 65 6e 6b 65 6c 74 65 20 76 61 6c 67 73 74 65 ┆ stemmetal på de enkelte valgste┆ 0x0300…0320 64 65 72 00 07 00 01 00 04 01 43 05 3a 80 2d 0d 01 00 0e 01 86 0e 12 c0 10 00 72 65 64 69 67 65 ┆der C : - redige┆ 0x0320…0340 72 5f 70 72 7b 5f 73 74 65 6d 07 00 01 00 18 01 43 05 46 80 2d 0d 01 00 22 01 86 0a 0a c0 08 00 ┆r_præ_stem C F - " ┆ 0x0340…0360 69 5f 6f 5f 66 65 6a 6c 07 00 01 00 2c 01 43 05 54 80 2d 0d 01 00 36 01 86 15 20 c0 1d 00 66 69 ┆i_o_fejl , C T - 6 fi┆ 0x0360…0380 6c 24 20 20 20 20 20 2d 20 66 69 6c 20 74 69 6c 20 69 6e 64 6c 7b 73 6e 69 6e 67 00 07 00 01 00 ┆l$ - fil til indlæsning ┆ 0x0380…03a0 40 01 43 16 1e c0 1b 00 69 6e 64 20 20 20 20 20 20 2d 20 73 61 6d 6c 65 74 20 73 74 65 6d 6d 65 ┆@ C ind - samlet stemme┆ 0x03a0…03c0 74 61 6c 00 02 01 60 80 2d 0d 01 00 4a 01 43 1a 26 c0 23 00 72 65 63 20 20 20 20 20 20 2d 20 72 ┆tal ` - J C & # rec - r┆ 0x03c0…03e0 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 60 80 2d 0d 01 00 ┆ecord nummer (valgsted) ` - ┆ 0x03e0…0400 54 01 43 05 07 80 2d 0d 01 00 5e 01 86 25 40 c0 3e 00 69 6e 64 5f 70 28 52 45 46 20 6e 24 28 29 ┆T C - ^ %@ > ind_p(REF n$()┆ 0x0400…0420 2c 52 45 46 20 6b 24 28 29 2c 52 45 46 20 6e 75 28 29 2c 52 45 46 20 6c 66 28 29 2c 52 45 46 20 ┆,REF k$(),REF nu(),REF lf(),REF ┆ 0x0420…0440 76 66 28 29 2c 61 29 20 45 58 54 45 52 4e 41 4c 07 00 01 00 68 01 43 05 2f 80 2d 0d 01 00 72 01 ┆vf(),a) EXTERNAL h C / - r ┆ 0x0440…0460 86 0f 14 c0 12 00 69 6e 64 6c 7b 73 65 72 20 6c 69 73 74 65 64 61 74 61 07 00 01 00 7c 01 43 05 ┆ indlæser listedata ø C ┆ 0x0460…0480 3a 80 2d 0d 01 00 86 01 86 0a 0a c0 07 00 6f 70 73 74 61 72 74 00 07 00 01 00 90 01 43 05 46 80 ┆: - opstart C F ┆ 0x0480…04a0 2d 0d 01 00 9a 01 86 07 04 c0 01 00 2d 00 07 00 01 00 a4 01 43 05 54 80 2d 0d 01 00 ae 01 86 19 ┆- - C T - ┆ 0x04a0…04c0 28 c0 26 00 6e 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 ┆( & n$() - tabel med liste┆ 0x04c0…04e0 72 6e 65 73 20 6e 61 76 6e 65 07 00 01 00 b8 01 43 1d 2c c0 2a 00 6b 24 28 29 20 20 20 20 20 20 ┆rnes navne C , * k$() ┆ 0x04e0…0500 20 2d 20 74 61 62 65 6c 20 6d 65 64 20 6c 69 73 74 65 72 6e 65 73 20 62 6f 67 73 74 61 76 65 72 ┆ - tabel med listernes bogstaver┆ 0x0500…0520 02 01 60 80 2d 0d 01 00 c2 01 43 22 36 c0 34 00 6e 75 28 29 20 20 20 20 20 20 20 2d 20 74 61 62 ┆ ` - C"6 4 nu() - tab┆ 0x0520…0540 65 6c 20 6d 65 64 20 6c 69 73 74 65 72 6e 65 73 20 6e 75 76 7b 72 65 6e 64 65 20 6d 61 6e 64 61 ┆el med listernes nuværende manda┆ 0x0540…0560 74 74 61 6c 02 01 60 80 2d 0d 01 00 cc 01 43 25 3c c0 3a 00 6c 66 28 29 20 20 20 20 20 20 20 2d ┆ttal ` - C%< : lf() -┆ 0x0560…0580 20 74 61 62 65 6c 20 6d 65 64 20 6f 70 6c 79 73 6e 69 6e 67 65 72 20 6f 6d 20 64 65 6c 74 2e 20 ┆ tabel med oplysninger om delt. ┆ 0x0580…05a0 69 20 6c 69 73 74 65 66 6f 72 62 75 6e 64 02 01 60 80 2d 0d 01 00 d6 01 43 25 3c c0 39 00 76 66 ┆i listeforbund ` - C%< 9 vf┆ 0x05a0…05c0 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┆ 0x05c0…05e0 20 6f 6d 20 64 65 6c 74 2e 20 69 20 76 61 6c 67 66 6f 72 62 75 6e 64 00 02 01 60 80 2d 0d 01 00 ┆ om delt. i valgforbund ` - ┆ 0x05e0…0600 e0 01 43 18 22 c0 1f 00 61 20 20 20 20 20 20 20 20 20 20 2d 20 61 6e 74 61 6c 6c 65 74 20 61 66 ┆ C " a - antallet af┆ 0x0600…0620 20 6c 69 73 74 65 72 00 02 01 60 80 2d 0d 01 00 ea 01 86 04 08 00 01 00 f4 01 86 24 3e c0 3c 00 ┆ lister ` - $> < ┆ 0x0620…0640 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┆ 0x0640…0660 64 65 73 20 69 20 70 72 6f 67 72 61 6d 6d 65 74 20 22 69 6e 64 70 61 72 74 69 22 2e 07 00 01 00 ┆des i programmet "indparti". ┆ 0x0660…0680 fe 01 43 05 07 80 2d 0d 01 00 08 02 86 22 3a c0 38 00 69 6e 64 5f 76 28 52 45 46 20 6e 24 28 29 ┆ C - ": 8 ind_v(REF n$()┆ 0x0680…06a0 2c 52 45 46 20 6e 75 6d 24 28 29 2c 52 45 46 20 6e 75 28 29 2c 52 45 46 20 66 7c 72 28 29 2c 61 ┆,REF num$(),REF nu(),REF før(),a┆ 0x06a0…06c0 29 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 86 14 1e c0 1b 00 ┆) EXTERNAL C / - ┆ 0x06c0…06e0 69 6e 64 6c 7b 73 65 72 20 76 61 6c 67 73 74 65 64 65 72 6e 65 73 20 64 61 74 61 00 07 00 01 00 ┆indlæser valgstedernes data ┆ 0x06e0…0700 26 02 43 05 3a 80 2d 0d 01 00 30 02 86 0a 0a c0 07 00 6f 70 73 74 61 72 74 00 07 00 01 00 3a 02 ┆& C : - 0 opstart : ┆ 0x0700…0720 43 05 46 80 2d 0d 01 00 44 02 86 07 04 c0 01 00 2d 00 07 00 01 00 4e 02 43 05 54 80 2d 0d 01 00 ┆C F - D - N C T - ┆ 0x0720…0740 58 02 86 1a 2a c0 27 00 6e 24 28 29 20 20 20 20 2d 20 74 61 62 65 6c 20 6d 65 64 20 76 61 6c 67 ┆X * ' n$() - tabel med valg┆ 0x0740…0760 73 74 65 64 65 72 6e 65 73 20 6e 61 76 6e 65 00 07 00 01 00 62 02 43 1c 2a c0 27 00 6e 75 6d 24 ┆stedernes navne b C * ' num$┆ 0x0760…0780 28 29 20 20 2d 20 74 61 62 65 6c 20 6d 65 64 20 76 61 6c 67 73 74 65 64 65 72 6e 65 73 20 6e 75 ┆() - tabel med valgstedernes nu┆ 0x0780…07a0 6d 72 65 00 02 01 60 80 2d 0d 01 00 6c 02 43 24 3a c0 37 00 6e 75 28 29 20 20 20 20 2d 20 74 61 ┆mre ` - l C$: 7 nu() - ta┆ 0x07a0…07c0 62 65 6c 20 6d 65 64 20 61 6e 74 61 6c 20 76 7b 6c 67 65 72 65 20 28 76 61 6c 67 73 74 65 64 2f ┆bel med antal vælgere (valgsted/┆ 0x07c0…07e0 64 65 74 74 65 20 76 61 6c 67 29 00 02 01 60 80 2d 0d 01 00 76 02 43 24 3a c0 38 00 66 7c 72 28 ┆dette valg) ` - v C$: 8 før(┆ 0x07e0…0800 29 20 20 20 2d 20 74 61 62 65 6c 20 6d 65 64 20 61 6e 74 61 6c 20 76 7b 6c 67 65 72 65 20 28 76 ┆) - tabel med antal vælgere (v┆ 0x0800…0820 61 6c 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 80 02 43 18 ┆algsted/sidste valg) ` - C ┆ 0x0820…0840 22 c0 20 00 61 20 20 20 20 20 20 20 2d 20 61 6e 74 61 6c 6c 65 74 20 61 66 20 76 61 6c 67 73 74 ┆" a - antallet af valgst┆ 0x0840…0860 65 64 65 72 02 01 60 80 2d 0d 01 00 8a 02 86 04 08 00 01 00 94 02 86 24 3e c0 3c 00 4e 42 21 20 ┆eder ` - $> < NB! ┆ 0x0860…0880 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 64 65 73 20 ┆Proceduren er ekstern og findes ┆ 0x0880…08a0 69 20 70 72 6f 67 72 61 6d 6d 65 74 20 22 69 6e 64 76 61 6c 67 73 22 2e 07 00 01 00 9e 02 43 05 ┆i programmet "indvalgs". C ┆ 0x08a0…08c0 07 80 2d 0d 01 00 a8 02 86 18 26 c0 24 00 69 6e 64 6c 69 6e 69 65 28 78 2c 79 2c 74 78 74 24 2c ┆ - & $ indlinie(x,y,txt$,┆ 0x08c0…08e0 52 45 46 20 75 64 24 2c 6d 61 78 6c 7b 6e 67 64 65 29 07 00 01 00 b2 02 43 05 2f 80 2d 0d 01 00 ┆REF ud$,maxlængde) C / - ┆ 0x08e0…0900 bc 02 86 1d 30 c0 2d 00 62 72 75 67 65 73 20 76 65 64 20 69 6e 64 74 61 73 74 6e 69 6e 67 20 61 ┆ 0 - bruges ved indtastning a┆ 0x0900…0920 66 20 64 61 74 61 20 66 72 61 20 74 61 73 74 61 74 75 72 65 74 00 07 00 01 00 c6 02 43 05 3a 80 ┆f data fra tastaturet C : ┆ 0x0920…0940 2d 0d 01 00 d0 02 86 0e 12 c0 10 00 72 65 64 69 67 65 72 5f 70 72 7b 5f 73 74 65 6d 07 00 01 00 ┆- rediger_præ_stem ┆ 0x0940…0960 da 02 43 0c 0a c0 07 00 72 65 64 69 67 65 72 00 02 01 60 80 2d 0d 01 00 e4 02 43 05 46 80 2d 0d ┆ C rediger ` - C F - ┆ 0x0960…0980 01 00 ee 02 86 07 04 c0 01 00 2d 00 07 00 01 00 f8 02 43 05 54 80 2d 0d 01 00 02 03 86 18 26 c0 ┆ - C T - & ┆ 0x0980…09a0 24 00 78 20 20 20 20 20 20 20 20 20 2d 20 78 2d 70 6f 73 69 74 69 6f 6e 20 66 6f 72 20 6c 65 64 ┆$ x - x-position for led┆ 0x09a0…09c0 65 74 65 6b 73 74 07 00 01 00 0c 03 43 1a 26 c0 24 00 79 20 20 20 20 20 20 20 20 20 2d 20 79 2d ┆etekst C & $ y - y-┆ 0x09c0…09e0 70 6f 73 69 74 69 6f 6e 20 66 6f 72 20 6c 65 64 65 74 65 6b 73 74 02 01 60 80 2d 0d 01 00 16 03 ┆position for ledetekst ` - ┆ 0x09e0…0a00 43 13 18 c0 15 00 74 78 74 24 20 20 20 20 20 20 2d 20 6c 65 64 65 74 65 6b 73 74 00 02 01 60 80 ┆C txt$ - ledetekst ` ┆ 0x0a00…0a20 2d 0d 01 00 20 03 43 1d 2c c0 29 00 75 64 24 20 20 20 20 20 20 20 2d 20 64 61 74 61 20 69 6e 64 ┆- C , ) ud$ - data ind┆ 0x0a20…0a40 74 61 73 74 65 74 20 66 72 61 20 74 61 73 74 61 74 75 72 65 74 00 02 01 60 80 2d 0d 01 00 2a 03 ┆tastet fra tastaturet ` - * ┆ 0x0a40…0a60 43 05 07 80 2d 0d 01 00 34 03 86 0e 12 c0 10 00 69 5f 6f 5f 66 65 6a 6c 20 48 41 4e 44 4c 45 52 ┆C - 4 i_o_fejl HANDLER┆ 0x0a60…0a80 07 00 01 00 3e 03 43 05 2f 80 2d 0d 01 00 48 03 86 12 1a c0 17 00 62 65 68 61 6e 64 6c 65 72 20 ┆ > C / - H behandler ┆ 0x0a80…0aa0 6f 70 73 74 7d 65 64 65 20 66 65 6a 6c 00 07 00 01 00 52 03 43 05 3a 80 2d 0d 01 00 5c 03 86 0a ┆opståede fejl R C : - Ø ┆ 0x0aa0…0ac0 0a c0 07 00 6f 70 73 74 61 72 74 00 07 00 01 00 66 03 43 0a 06 c0 04 00 68 65 6e 74 02 01 60 80 ┆ opstart f C hent ` ┆ 0x0ac0…0ae0 2d 0d 01 00 70 03 43 0b 08 c0 05 00 68 65 6e 74 31 00 02 01 60 80 2d 0d 01 00 7a 03 43 0b 08 c0 ┆- p C hent1 ` - z C ┆ 0x0ae0…0b00 05 00 73 6b 72 69 76 00 02 01 60 80 2d 0d 01 00 84 03 43 0b 08 c0 06 00 73 6b 72 69 76 31 02 01 ┆ skriv ` - C skriv1 ┆ 0x0b00…0b20 60 80 2d 0d 01 00 8e 03 43 0c 0a c0 08 00 69 5f 6f 5f 66 65 6a 6c 02 01 60 80 2d 0d 01 00 98 03 ┆` - C i_o_fejl ` - ┆ 0x0b20…0b40 43 05 46 80 2d 0d 01 00 a2 03 86 09 08 c0 06 00 6d 65 64 64 65 6c 07 00 01 00 ac 03 43 0c 0a c0 ┆C F - meddel C ┆ 0x0b40…0b60 08 00 69 5f 6f 5f 66 65 6a 6c 02 01 60 80 2d 0d 01 00 b6 03 43 05 54 80 2d 0d 01 00 c0 03 86 07 ┆ i_o_fejl ` - C T - ┆ 0x0b60…0b80 04 c0 01 00 2d 00 07 00 01 00 ca 03 43 05 07 80 2d 0d 01 00 d4 03 86 0f 14 c0 12 00 6d 65 64 64 ┆ - C - medd┆ 0x0b80…0ba0 65 6c 28 74 78 74 24 2c 74 72 79 6b 24 29 07 00 01 00 de 03 43 05 2f 80 2d 0d 01 00 e8 03 86 1d ┆el(txt$,tryk$) C / - ┆ 0x0ba0…0bc0 30 c0 2e 00 62 72 75 67 65 73 20 74 69 6c 20 75 64 73 6b 72 69 76 6e 69 6e 67 20 61 66 20 6c 65 ┆0 . bruges til udskrivning af le┆ 0x0bc0…0be0 64 65 74 65 6b 73 74 20 70 7d 20 73 6b 7b 72 6d 65 6e 07 00 01 00 f2 03 43 05 3a 80 2d 0d 01 00 ┆detekst på skærmen C : - ┆ 0x0be0…0c00 fc 03 86 0a 0a c0 07 00 72 65 64 69 67 65 72 00 07 00 01 00 06 04 43 0b 08 c0 05 00 73 70 7c 72 ┆ rediger C spør┆ 0x0c00…0c20 67 00 02 01 60 80 2d 0d 01 00 10 04 43 10 12 c0 0f 00 72 65 64 69 67 65 72 69 6e 67 73 66 65 6a ┆g ` - C redigeringsfej┆ 0x0c20…0c40 6c 00 02 01 60 80 2d 0d 01 00 1a 04 43 0c 0a c0 08 00 69 5f 6f 5f 66 65 6a 6c 02 01 60 80 2d 0d ┆l ` - C i_o_fejl ` - ┆ 0x0c40…0c60 01 00 24 04 43 05 46 80 2d 0d 01 00 2e 04 86 07 04 c0 01 00 2d 00 07 00 01 00 38 04 43 05 54 80 ┆ $ C F - . - 8 C T ┆ 0x0c60…0c80 2d 0d 01 00 42 04 86 0f 14 c0 11 00 74 78 74 24 20 20 2d 20 6c 65 64 65 74 65 6b 73 74 00 07 00 ┆- B txt$ - ledetekst ┆ 0x0c80…0ca0 01 00 4c 04 43 27 40 c0 3e 00 74 72 79 6b 24 20 2d 20 74 65 6b 73 74 20 74 69 6c 20 61 66 67 7c ┆ L C'@ > tryk$ - tekst til afgø┆ 0x0ca0…0cc0 72 65 6c 73 65 20 61 66 2c 20 68 76 6f 72 76 69 64 74 20 70 72 6f 67 72 61 6d 6d 65 74 20 73 6b ┆relse af, hvorvidt programmet sk┆ 0x0cc0…0ce0 61 6c 20 76 65 6e 74 65 02 01 60 80 2d 0d 01 00 56 04 43 1f 30 c0 2d 00 20 20 20 20 20 20 20 20 ┆al vente ` - V C 0 - ┆ 0x0ce0…0d00 20 74 72 79 6b 24 3d 22 22 20 91 20 7c 6a 65 62 6c 69 6b 6b 65 6c 69 67 20 66 6f 72 74 73 7b 74 ┆ tryk$="" øjeblikkelig fortsæt┆ 0x0d00…0d20 74 65 6c 73 65 00 02 01 60 80 2d 0d 01 00 60 04 43 21 34 c0 31 00 20 20 20 20 20 20 20 20 20 74 ┆telse ` - ` C!4 1 t┆ 0x0d20…0d40 72 79 6b 24 96 22 22 20 91 20 76 65 6e 74 65 72 20 70 7d 20 69 6e 64 74 61 73 74 6e 69 6e 67 20 ┆ryk$ "" venter på indtastning ┆ 0x0d40…0d60 61 66 20 74 65 67 6e 00 02 01 60 80 2d 0d 01 00 6a 04 43 05 07 80 2d 0d 01 00 74 04 86 08 06 c0 ┆af tegn ` - j C - t ┆ 0x0d60…0d80 04 00 6d 65 6e 75 07 00 01 00 7e 04 43 05 2f 80 2d 0d 01 00 88 04 86 22 3a c0 37 00 65 72 20 64 ┆ menu ü C / - ": 7 er d┆ 0x0d80…0da0 65 6e 20 70 72 6f 63 65 64 75 72 65 2c 20 68 76 6f 72 69 20 64 65 74 20 6d 65 73 74 65 20 61 66 ┆en procedure, hvori det meste af┆ 0x0da0…0dc0 20 70 72 6f 67 72 61 6d 6d 65 74 20 75 64 66 7c 72 65 73 00 07 00 01 00 92 04 43 05 3a 80 2d 0d ┆ programmet udføres C : - ┆ 0x0dc0…0de0 01 00 9c 04 86 0f 14 c0 11 00 3e 48 4f 56 45 44 50 52 4f 47 52 41 4d 4d 45 54 3c 00 07 00 01 00 ┆ >HOVEDPROGRAMMET< ┆ 0x0de0…0e00 a6 04 43 05 46 80 2d 0d 01 00 b0 04 86 0e 12 c0 10 00 72 65 64 69 67 65 72 5f 70 72 7b 5f 73 74 ┆ C F - rediger_præ_st┆ 0x0e00…0e20 65 6d 07 00 01 00 ba 04 43 05 54 80 2d 0d 01 00 c4 04 86 07 04 c0 01 00 2d 00 07 00 01 00 ce 04 ┆em C T - - ┆ 0x0e20…0e40 43 05 07 80 2d 0d 01 00 d8 04 86 0a 0a c0 07 00 6f 70 73 74 61 72 74 00 07 00 01 00 e2 04 43 05 ┆C - opstart C ┆ 0x0e40…0e60 2f 80 2d 0d 01 00 ec 04 86 1b 2c c0 2a 00 69 6e 64 6c 7b 73 65 72 20 64 61 74 61 2c 20 64 69 6d ┆/ - , * indlæser data, dim┆ 0x0e60…0e80 65 6e 73 69 6f 6e 65 72 65 72 20 74 61 62 65 6c 6c 65 72 20 6d 2e 76 2e 07 00 01 00 f6 04 43 05 ┆ensionerer tabeller m.v. C ┆ 0x0e80…0ea0 3a 80 2d 0d 01 00 00 05 86 0d 10 c0 0e 00 3e 48 4f 56 45 44 50 52 4f 47 52 41 4d 3c 07 00 01 00 ┆: - >HOVEDPROGRAM< ┆ 0x0ea0…0ec0 0a 05 43 05 46 80 2d 0d 01 00 14 05 86 09 08 c0 05 00 69 6e 64 5f 70 00 07 00 01 00 1e 05 43 0b ┆ C F - ind_p C ┆ 0x0ec0…0ee0 08 c0 05 00 69 6e 64 5f 76 00 02 01 60 80 2d 0d 01 00 28 05 43 0c 0a c0 08 00 69 5f 6f 5f 66 65 ┆ ind_v ` - ( C i_o_fe┆ 0x0ee0…0f00 6a 6c 02 01 60 80 2d 0d 01 00 32 05 43 05 54 80 2d 0d 01 00 3c 05 86 07 04 c0 01 00 2d 00 07 00 ┆jl ` - 2 C T - < - ┆ 0x0f00…0f20 01 00 46 05 43 05 07 80 2d 0d 01 00 50 05 86 24 3e c0 3c 00 72 65 64 69 67 65 72 28 52 45 46 20 ┆ F C - P $> < rediger(REF ┆ 0x0f20…0f40 69 6e 64 28 29 2c 70 6f 73 74 65 72 2c 6d 61 78 6c 7b 6e 67 64 65 2c 52 45 46 20 74 78 74 24 28 ┆ind(),poster,maxlængde,REF txt$(┆ 0x0f40…0f60 29 2c 52 45 46 20 6f 6b 29 20 43 4c 4f 53 45 44 07 00 01 00 5a 05 43 05 2f 80 2d 0d 01 00 64 05 ┆),REF ok) CLOSED Z C / - d ┆ 0x0f60…0f80 86 1b 2c c0 2a 00 6b 61 6e 20 72 65 64 69 67 65 72 65 20 64 61 74 61 20 76 65 64 72 2e 20 65 74 ┆ , * kan redigere data vedr. et┆ 0x0f80…0fa0 20 65 6e 6b 65 6c 74 20 76 61 6c 67 73 74 65 64 07 00 01 00 6e 05 43 05 3a 80 2d 0d 01 00 78 05 ┆ enkelt valgsted n C : - x ┆ 0x0fa0…0fc0 86 0e 12 c0 10 00 72 65 64 69 67 65 72 5f 70 72 7b 5f 73 74 65 6d 07 00 01 00 82 05 43 05 46 80 ┆ rediger_præ_stem C F ┆ 0x0fc0…0fe0 2d 0d 01 00 8c 05 86 0c 0e c0 0b 00 73 70 65 63 69 61 6c 74 61 73 74 00 07 00 01 00 96 05 43 10 ┆- specialtast C ┆ 0x0fe0…1000 12 c0 0f 00 72 65 64 69 67 65 72 69 6e 67 73 66 65 6a 6c 00 02 01 60 80 2d 0d 01 00 a0 05 43 0b ┆ redigeringsfejl ` - C ┆ 0x1000…1020 08 c0 05 00 73 70 7c 72 67 00 02 01 60 80 2d 0d 01 00 aa 05 43 0b 08 c0 06 00 6d 65 64 64 65 6c ┆ spørg ` - C meddel┆ 0x1020…1040 02 01 60 80 2d 0d 01 00 b4 05 43 0c 0a c0 08 00 69 6e 64 6c 69 6e 69 65 02 01 60 80 2d 0d 01 00 ┆ ` - C indlinie ` - ┆ 0x1040…1060 be 05 43 05 54 80 2d 0d 01 00 c8 05 86 1e 32 c0 2f 00 69 6e 64 28 29 20 20 20 20 20 2d 20 74 61 ┆ C T - 2 / ind() - ta┆ 0x1060…1080 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 6d 6d 65 72 ┆bel med listeresultater (stemmer┆ 0x1080…10a0 29 00 07 00 01 00 d2 05 43 17 20 c0 1e 00 70 6f 73 74 65 72 20 20 20 20 2d 20 61 6e 74 61 6c 6c ┆) C poster - antall┆ 0x10a0…10c0 65 74 20 61 66 20 6c 69 73 74 65 72 02 01 60 80 2d 0d 01 00 dc 05 43 22 36 c0 34 00 6d 61 78 6c ┆et af lister ` - C"6 4 maxl┆ 0x10c0…10e0 7b 6e 67 64 65 20 2d 20 64 65 74 20 6d 61 6b 73 69 6d 61 6c 65 20 61 6e 74 61 6c 20 63 69 66 72 ┆ængde - det maksimale antal cifr┆ 0x10e0…1100 65 20 69 20 72 65 73 75 6c 74 61 74 65 72 6e 65 02 01 60 80 2d 0d 01 00 e6 05 43 1b 28 c0 25 00 ┆e i resultaterne ` - C ( % ┆ 0x1100…1120 74 78 74 24 28 29 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 ┆txt$() - tabel med listernes ┆ 0x1120…1140 6e 61 76 6e 65 00 02 01 60 80 2d 0d 01 00 f0 05 43 22 36 c0 33 00 6f 6b 20 20 20 20 20 20 20 20 ┆navne ` - C"6 3 ok ┆ 0x1140…1160 2d 20 61 6e 67 69 76 65 72 2c 20 6f 6d 20 72 65 74 74 65 6c 73 65 72 6e 65 20 73 6b 61 6c 20 6f ┆- angiver, om rettelserne skal o┆ 0x1160…1180 70 64 61 74 65 72 65 73 3a 00 02 01 60 80 2d 0d 01 00 fa 05 43 16 1e c0 1b 00 20 20 20 20 20 20 ┆pdateres: ` - C ┆ 0x1180…11a0 20 20 20 20 20 20 96 30 20 91 20 6f 70 64 61 74 65 72 69 6e 67 00 02 01 60 80 2d 0d 01 00 04 06 ┆ 0 opdatering ` - ┆ 0x11a0…11c0 43 18 22 c0 20 00 20 20 20 20 20 20 20 20 20 20 20 20 3d 30 20 91 20 69 6b 6b 65 20 6f 70 64 61 ┆C " =0 ikke opda┆ 0x11c0…11e0 74 65 72 69 6e 67 02 01 60 80 2d 0d 01 00 0e 06 43 05 07 80 2d 0d 01 00 18 06 86 12 1a c0 17 00 ┆tering ` - C - ┆ 0x11e0…1200 72 65 64 69 67 65 72 69 6e 67 73 66 65 6a 6c 20 48 41 4e 44 4c 45 52 00 07 00 01 00 22 06 43 05 ┆redigeringsfejl HANDLER " C ┆ 0x1200…1220 2f 80 2d 0d 01 00 2c 06 86 16 22 c0 1f 00 62 65 68 61 6e 64 6c 65 72 20 66 65 6a 6c 20 75 6e 64 ┆/ - , " behandler fejl und┆ 0x1220…1240 65 72 20 72 65 64 69 67 65 72 69 6e 67 00 07 00 01 00 36 06 43 05 3a 80 2d 0d 01 00 40 06 86 0a ┆er redigering 6 C : - @ ┆ 0x1240…1260 0a c0 07 00 72 65 64 69 67 65 72 00 07 00 01 00 4a 06 43 05 46 80 2d 0d 01 00 54 06 86 09 08 c0 ┆ rediger J C F - T ┆ 0x1260…1280 06 00 6d 65 64 64 65 6c 07 00 01 00 5e 06 43 05 54 80 2d 0d 01 00 68 06 86 07 04 c0 01 00 2d 00 ┆ meddel ^ C T - h - ┆ 0x1280…12a0 07 00 01 00 72 06 43 05 07 80 2d 0d 01 00 7c 06 86 0e 12 c0 10 00 72 65 64 69 67 65 72 5f 70 72 ┆ r C - ø rediger_pr┆ 0x12a0…12c0 7b 5f 73 74 65 6d 07 00 01 00 86 06 43 05 2f 80 2d 0d 01 00 90 06 86 1d 30 c0 2d 00 6b 61 6e 20 ┆æ_stem C / - 0 - kan ┆ 0x12c0…12e0 72 65 64 69 67 65 72 65 20 64 61 74 61 20 76 65 64 72 2e 20 64 65 20 65 6e 6b 65 6c 74 65 20 76 ┆redigere data vedr. de enkelte v┆ 0x12e0…1300 61 6c 67 73 74 65 64 65 72 00 07 00 01 00 9a 06 43 05 3a 80 2d 0d 01 00 a4 06 86 08 06 c0 04 00 ┆algsteder C : - ┆ 0x1300…1320 6d 65 6e 75 07 00 01 00 ae 06 43 05 46 80 2d 0d 01 00 b8 06 86 08 06 c0 04 00 68 65 6e 74 07 00 ┆menu C F - hent ┆ 0x1320…1340 01 00 c2 06 43 0b 08 c0 05 00 68 65 6e 74 31 00 02 01 60 80 2d 0d 01 00 cc 06 43 0b 08 c0 05 00 ┆ C hent1 ` - C ┆ 0x1340…1360 73 6b 72 69 76 00 02 01 60 80 2d 0d 01 00 d6 06 43 0b 08 c0 06 00 73 6b 72 69 76 31 02 01 60 80 ┆skriv ` - C skriv1 ` ┆ 0x1360…1380 2d 0d 01 00 e0 06 43 0c 0a c0 07 00 76 69 73 64 61 74 61 00 02 01 60 80 2d 0d 01 00 ea 06 43 0c ┆- C visdata ` - C ┆ 0x1380…13a0 0a c0 07 00 72 65 64 69 67 65 72 00 02 01 60 80 2d 0d 01 00 f4 06 43 0c 0a c0 08 00 69 6e 64 6c ┆ rediger ` - C indl┆ 0x13a0…13c0 69 6e 69 65 02 01 60 80 2d 0d 01 00 fe 06 43 05 54 80 2d 0d 01 00 08 07 86 07 04 c0 01 00 2d 00 ┆inie ` - C T - - ┆ 0x13c0…13e0 07 00 01 00 12 07 43 05 07 80 2d 0d 01 00 1c 07 86 0f 14 c0 12 00 73 63 72 6f 6c 6c 28 72 65 74 ┆ C - scroll(ret┆ 0x13e0…1400 24 2c 79 31 2c 79 32 29 07 00 01 00 26 07 43 05 2f 80 2d 0d 01 00 30 07 86 1e 32 c0 2f 00 66 7d ┆$,y1,y2) & C / - 0 2 / få┆ 0x1400…1420 72 20 65 74 20 75 64 73 6e 69 74 20 61 66 20 73 6b 7b 72 6d 65 6e 20 74 69 6c 20 61 74 20 72 75 ┆r et udsnit af skærmen til at ru┆ 0x1420…1440 6c 6c 65 20 6f 70 20 6f 67 20 6e 65 64 00 07 00 01 00 3a 07 43 05 3a 80 2d 0d 01 00 44 07 86 0c ┆lle op og ned : C : - D ┆ 0x1440…1460 0e c0 0b 00 73 70 65 63 69 61 6c 74 61 73 74 00 07 00 01 00 4e 07 43 05 46 80 2d 0d 01 00 58 07 ┆ specialtast N C F - X ┆ 0x1460…1480 86 07 04 c0 01 00 2d 00 07 00 01 00 62 07 43 05 54 80 2d 0d 01 00 6c 07 86 1d 30 c0 2e 00 72 65 ┆ - b C T - l 0 . re┆ 0x1480…14a0 74 24 20 20 2d 20 72 75 6c 6e 69 6e 67 65 6e 73 20 72 65 74 6e 69 6e 67 2c 20 68 68 76 2e 20 22 ┆t$ - rulningens retning, hhv. "┆ 0x14a0…14c0 4f 50 22 20 6f 67 20 22 4e 45 44 22 07 00 01 00 76 07 43 15 1c c0 19 00 79 31 20 20 20 20 2d 20 ┆OP" og "NED" v C y1 - ┆ 0x14c0…14e0 20 7c 76 72 65 20 79 2d 6b 6f 6f 72 64 69 6e 61 74 00 02 01 60 80 2d 0d 01 00 80 07 43 15 1c c0 ┆ øvre y-koordinat ` - C ┆ 0x14e0…1500 19 00 79 32 20 20 20 20 2d 20 6e 65 64 72 65 20 79 2d 6b 6f 6f 72 64 69 6e 61 74 00 02 01 60 80 ┆ y2 - nedre y-koordinat ` ┆ 0x1500…1520 2d 0d 01 00 8a 07 43 05 07 80 2d 0d 01 00 94 07 86 16 22 c0 1f 00 73 6b 72 69 76 28 66 69 6c 24 ┆- C - " skriv(fil$┆ 0x1520…1540 2c 52 45 46 20 75 64 28 29 2c 72 65 63 2c 70 6f 73 74 65 72 29 00 07 00 01 00 9e 07 43 05 2f 80 ┆,REF ud(),rec,poster) C / ┆ 0x1540…1560 2d 0d 01 00 a8 07 86 26 42 c0 3f 00 73 6b 72 69 76 65 72 20 6f 70 6c 79 73 6e 69 6e 67 65 72 20 ┆- &B ? skriver oplysninger ┆ 0x1560…1580 6f 6d 20 73 74 65 6d 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 ┆om stemmefordeling på de enkelte┆ 0x1580…15a0 20 76 61 6c 67 73 74 65 64 65 72 00 07 00 01 00 b2 07 43 05 3a 80 2d 0d 01 00 bc 07 86 0e 12 c0 ┆ valgsteder C : - ┆ 0x15a0…15c0 10 00 72 65 64 69 67 65 72 5f 70 72 7b 5f 73 74 65 6d 07 00 01 00 c6 07 43 05 46 80 2d 0d 01 00 ┆ rediger_præ_stem C F - ┆ 0x15c0…15e0 d0 07 86 0a 0a c0 08 00 69 5f 6f 5f 66 65 6a 6c 07 00 01 00 da 07 43 05 54 80 2d 0d 01 00 e4 07 ┆ i_o_fejl C T - ┆ 0x15e0…1600 86 15 20 c0 1e 00 66 69 6c 24 20 20 20 20 20 2d 20 66 69 6c 20 74 69 6c 20 75 64 73 6b 72 69 76 ┆ fil$ - fil til udskriv┆ 0x1600…1620 6e 69 6e 67 07 00 01 00 ee 07 43 1f 30 c0 2e 00 75 64 28 29 20 20 20 20 20 2d 20 74 61 62 65 6c ┆ning C 0 . ud() - tabel┆ 0x1620…1640 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 6d 6d 65 72 29 02 01 ┆ med listeresultater (stemmer) ┆ 0x1640…1660 60 80 2d 0d 01 00 f8 07 43 1a 26 c0 23 00 72 65 63 20 20 20 20 20 20 2d 20 72 65 63 6f 72 64 20 ┆` - C & # rec - record ┆ 0x1660…1680 6e 75 6d 6d 65 72 20 28 76 61 6c 67 73 74 65 64 29 00 02 01 60 80 2d 0d 01 00 02 08 43 17 20 c0 ┆nummer (valgsted) ` - C ┆ 0x1680…16a0 1e 00 70 6f 73 74 65 72 20 20 20 2d 20 70 6f 73 74 20 6e 75 6d 6d 65 72 20 28 6c 69 73 74 65 29 ┆ poster - post nummer (liste)┆ 0x16a0…16c0 02 01 60 80 2d 0d 01 00 0c 08 43 05 07 80 2d 0d 01 00 16 08 86 10 16 c0 13 00 73 6b 72 69 76 31 ┆ ` - C - skriv1┆ 0x16c0…16e0 28 66 69 6c 24 2c 75 64 2c 72 65 63 29 00 07 00 01 00 20 08 43 05 2f 80 2d 0d 01 00 2a 08 86 1a ┆(fil$,ud,rec) C / - * ┆ 0x16e0…1700 2a c0 27 00 73 6b 72 69 76 65 72 20 6f 70 6c 79 73 6e 69 6e 67 65 72 20 6f 6d 20 73 61 6d 6c 65 ┆* ' skriver oplysninger om samle┆ 0x1700…1720 74 20 73 74 65 6d 6d 65 74 61 6c 00 07 00 01 00 34 08 43 14 1a c0 18 00 70 7d 20 64 65 20 65 6e ┆t stemmetal 4 C på de en┆ 0x1720…1740 6b 65 6c 74 65 20 76 61 6c 67 73 74 65 64 65 72 02 01 60 80 2d 0d 01 00 3e 08 43 05 3a 80 2d 0d ┆kelte valgsteder ` - > C : - ┆ 0x1740…1760 01 00 48 08 86 0e 12 c0 10 00 72 65 64 69 67 65 72 5f 70 72 7b 5f 73 74 65 6d 07 00 01 00 52 08 ┆ H rediger_præ_stem R ┆ 0x1760…1780 43 05 46 80 2d 0d 01 00 5c 08 86 0a 0a c0 08 00 69 5f 6f 5f 66 65 6a 6c 07 00 01 00 66 08 43 05 ┆C F - Ø i_o_fejl f C ┆ 0x1780…17a0 54 80 2d 0d 01 00 70 08 86 15 20 c0 1e 00 66 69 6c 24 20 20 20 20 20 2d 20 66 69 6c 20 74 69 6c ┆T - p fil$ - fil til┆ 0x17a0…17c0 20 75 64 73 6b 72 69 76 6e 69 6e 67 07 00 01 00 7a 08 43 16 1e c0 1b 00 75 64 20 20 20 20 20 20 ┆ udskrivning z C ud ┆ 0x17c0…17e0 20 2d 20 73 61 6d 6c 65 74 20 73 74 65 6d 6d 65 74 61 6c 00 02 01 60 80 2d 0d 01 00 84 08 43 1a ┆ - samlet stemmetal ` - C ┆ 0x17e0…1800 26 c0 23 00 72 65 63 20 20 20 20 20 20 2d 20 72 65 63 6f 72 64 20 6e 75 6d 6d 65 72 20 28 76 61 ┆& # rec - record nummer (va┆ 0x1800…1820 6c 67 73 74 65 64 29 00 02 01 60 80 2d 0d 01 00 8e 08 43 05 07 80 2d 0d 01 00 98 08 86 0c 0e c0 ┆lgsted) ` - C - ┆ 0x1820…1840 0b 00 73 70 65 63 69 61 6c 74 61 73 74 00 07 00 01 00 a2 08 43 05 2f 80 2d 0d 01 00 ac 08 86 1b ┆ specialtast C / - ┆ 0x1840…1860 2c c0 2a 00 62 65 68 61 6e 64 6c 65 72 20 69 6e 64 74 61 73 74 6e 69 6e 67 20 61 66 20 72 65 64 ┆, * behandler indtastning af red┆ 0x1860…1880 69 67 65 72 69 6e 67 73 74 61 73 74 65 72 07 00 01 00 b6 08 43 05 3a 80 2d 0d 01 00 c0 08 86 0a ┆igeringstaster C : - ┆ 0x1880…18a0 0a c0 07 00 72 65 64 69 67 65 72 00 07 00 01 00 ca 08 43 0e 0e c0 0b 00 73 70 65 63 69 61 6c 74 ┆ rediger C specialt┆ 0x18a0…18c0 61 73 74 00 02 01 60 80 2d 0d 01 00 d4 08 43 05 46 80 2d 0d 01 00 de 08 86 09 08 c0 06 00 73 63 ┆ast ` - C F - sc┆ 0x18c0…18e0 72 6f 6c 6c 07 00 01 00 e8 08 43 0e 0e c0 0b 00 73 70 65 63 69 61 6c 74 61 73 74 00 02 01 60 80 ┆roll C specialtast ` ┆ 0x18e0…1900 2d 0d 01 00 f2 08 43 05 54 80 2d 0d 01 00 fc 08 86 07 04 c0 01 00 2d 00 07 00 01 00 06 09 43 05 ┆- C T - - C ┆ 0x1900…1920 07 80 2d 0d 01 00 10 09 86 13 1c c0 1a 00 73 70 7c 72 67 28 74 78 74 24 2c 52 45 46 20 74 61 73 ┆ - spørg(txt$,REF tas┆ […truncated at 200 lines…]