|
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: 8320 (0x2080)
Names: »INDTAST.PRC«
└─⟦44f328a8d⟧ Bits:30004327 RC-Valg - Piccoline
└─ ⟦this⟧ »INDTAST.PRC«
0x0000…0020 22 83 d0 fa 2a 2a f9 20 7a 20 30 31 2f 69 6e 64 74 61 73 74 2e 70 72 63 20 20 0a 00 63 09 00 00 ┆" ** z 01/indtast.prc c ┆ 0x0020…0040 7f 01 69 80 73 80 00 00 2d 7f 01 00 14 00 3e 0d 73 80 2d 71 c6 00 0a c0 07 00 70 72 69 6e 74 65 ┆ i s - > s -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 4b a0 2d 00 01 00 32 00 ┆r -p - ( g K - 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 26 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 69 6e 64 74 61 73 74 07 00 01 00 ┆ Program: indtast ┆ 0x00e0…0100 5a 00 43 05 02 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 46 20 ┆Z C - d " hent(fil$,REF ┆ 0x0100…0120 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 13 80 2d 0d 01 00 ┆ind(),rec,poster) n C - ┆ 0x0120…0140 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 73 74 ┆x %@ > henter oplysninger om st┆ 0x0140…0160 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 6c 67 ┆emmefordeling på de enkelte valg┆ 0x0160…0180 73 74 65 64 65 72 07 00 01 00 82 00 43 05 1e 80 2d 0d 01 00 8c 00 86 0e 12 c0 10 00 72 65 64 69 ┆steder C - redi┆ 0x0180…01a0 67 65 72 5f 76 61 6c 67 73 74 65 64 07 00 01 00 96 00 43 05 2a 80 2d 0d 01 00 a0 00 86 0a 0a c0 ┆ger_valgsted C * - ┆ 0x01a0…01c0 08 00 69 5f 6f 5f 66 65 6a 6c 07 00 01 00 aa 00 43 05 38 80 2d 0d 01 00 b4 00 86 15 20 c0 1d 00 ┆ i_o_fejl C 8 - ┆ 0x01c0…01e0 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 07 00 ┆fil$ - fil til indlæsning ┆ 0x01e0…0200 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 20 6c ┆ C 0 . ind() - tabel med l┆ 0x0200…0220 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 44 80 2d 0d 01 00 ┆isteresultater (stemmer) D - ┆ 0x0220…0240 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 65 72 ┆ C & # rec - record nummer┆ 0x0240…0260 20 28 76 61 6c 67 73 74 65 64 29 00 02 01 44 80 2d 0d 01 00 d2 00 43 17 20 c0 1e 00 70 6f 73 74 ┆ (valgsted) D - C post┆ 0x0260…0280 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 44 80 2d 0d ┆er - post nummer (liste) D - ┆ 0x0280…02a0 01 00 dc 00 43 05 02 80 2d 0d 01 00 e6 00 86 25 40 c0 3e 00 69 6e 64 5f 70 28 52 45 46 20 6e 24 ┆ C - %@ > ind_p(REF n$┆ 0x02a0…02c0 28 29 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 ┆(),REF k$(),REF nu(),REF lf(),RE┆ 0x02c0…02e0 46 20 76 66 28 29 2c 61 29 20 45 58 54 45 52 4e 41 4c 07 00 01 00 f0 00 43 05 13 80 2d 0d 01 00 ┆F vf(),a) EXTERNAL C - ┆ 0x02e0…0300 fa 00 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 04 01 ┆ indlæser listedata ┆ 0x0300…0320 43 05 1e 80 2d 0d 01 00 0e 01 86 0a 0a c0 07 00 6f 70 73 74 61 72 74 00 07 00 01 00 18 01 43 05 ┆C - opstart C ┆ 0x0320…0340 2a 80 2d 0d 01 00 22 01 86 07 04 c0 01 00 2d 00 07 00 01 00 2c 01 43 05 38 80 2d 0d 01 00 36 01 ┆* - " - , C 8 - 6 ┆ 0x0340…0360 86 19 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 ┆ ( & n$() - tabel med lis┆ 0x0360…0380 74 65 72 6e 65 73 20 6e 61 76 6e 65 07 00 01 00 40 01 43 1d 2c c0 2a 00 6b 24 28 29 20 20 20 20 ┆ternes navne @ C , * k$() ┆ 0x0380…03a0 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 62 6f 67 73 74 61 76 ┆ - tabel med listernes bogstav┆ 0x03a0…03c0 65 72 02 01 44 80 2d 0d 01 00 4a 01 43 22 36 c0 34 00 6e 75 28 29 20 20 20 20 20 20 20 2d 20 74 ┆er D - J C"6 4 nu() - t┆ 0x03c0…03e0 61 62 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 ┆abel med listernes nuværende man┆ 0x03e0…0400 64 61 74 74 61 6c 02 01 44 80 2d 0d 01 00 54 01 43 25 3c c0 3a 00 6c 66 28 29 20 20 20 20 20 20 ┆dattal D - T C%< : lf() ┆ 0x0400…0420 20 2d 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 ┆ - tabel med oplysninger om delt┆ 0x0420…0440 2e 20 69 20 6c 69 73 74 65 66 6f 72 62 75 6e 64 02 01 44 80 2d 0d 01 00 5e 01 43 25 3c c0 39 00 ┆. i listeforbund D - ^ C%< 9 ┆ 0x0440…0460 76 66 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 ┆vf() - tabel med oplysning┆ 0x0460…0480 65 72 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 44 80 2d 0d ┆er om delt. i valgforbund D - ┆ 0x0480…04a0 01 00 68 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 ┆ h C " a - antallet ┆ 0x04a0…04c0 61 66 20 6c 69 73 74 65 72 00 02 01 44 80 2d 0d 01 00 72 01 86 04 08 00 01 00 7c 01 86 24 3e c0 ┆af lister D - r ø $> ┆ 0x04c0…04e0 3c 00 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 ┆< NB! Proceduren er ekstern og f┆ 0x04e0…0500 69 6e 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 ┆indes i programmet "indparti". ┆ 0x0500…0520 01 00 86 01 43 05 02 80 2d 0d 01 00 90 01 86 13 1c c0 19 00 69 6e 64 5f 73 74 61 74 75 73 28 52 ┆ C - ind_status(R┆ 0x0520…0540 45 46 20 69 6e 64 24 2c 66 69 6c 24 29 00 07 00 01 00 9a 01 43 05 13 80 2d 0d 01 00 a4 01 86 13 ┆EF ind$,fil$) C - ┆ 0x0540…0560 1c c0 1a 00 69 6e 64 6c 7b 73 65 72 20 73 74 61 74 75 73 20 66 6f 72 20 64 69 73 6b 20 42 07 00 ┆ indlæser status for disk B ┆ 0x0560…0580 01 00 ae 01 43 05 1e 80 2d 0d 01 00 b8 01 86 0e 12 c0 10 00 72 65 64 69 67 65 72 5f 76 61 6c 67 ┆ C - rediger_valg┆ 0x0580…05a0 73 74 65 64 07 00 01 00 c2 01 43 0c 0a c0 08 00 76 69 73 5f 64 69 73 6b 02 01 44 80 2d 0d 01 00 ┆sted C vis_disk D - ┆ 0x05a0…05c0 cc 01 43 05 2a 80 2d 0d 01 00 d6 01 86 0a 0a c0 08 00 69 5f 6f 5f 66 65 6a 6c 07 00 01 00 e0 01 ┆ C * - i_o_fejl ┆ 0x05c0…05e0 43 05 38 80 2d 0d 01 00 ea 01 86 0d 10 c0 0e 00 69 6e 64 24 20 20 2d 20 73 74 61 74 75 73 07 00 ┆C 8 - ind$ - status ┆ 0x05e0…0600 01 00 f4 01 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 ┆ C & $ fil$ - navnet på den ┆ 0x0600…0620 70 7d 67 7b 6c 64 65 6e 64 65 20 66 69 6c 02 01 44 80 2d 0d 01 00 fe 01 43 05 02 80 2d 0d 01 00 ┆pågældende fil D - C - ┆ 0x0620…0640 08 02 86 22 3a c0 38 00 69 6e 64 5f 76 28 52 45 46 20 6e 24 28 29 2c 52 45 46 20 6e 75 6d 24 28 ┆ ": 8 ind_v(REF n$(),REF num$(┆ 0x0640…0660 29 2c 52 45 46 20 6e 75 28 29 2c 52 45 46 20 66 7c 72 28 29 2c 61 29 20 45 58 54 45 52 4e 41 4c ┆),REF nu(),REF før(),a) EXTERNAL┆ 0x0660…0680 07 00 01 00 12 02 43 05 13 80 2d 0d 01 00 1c 02 86 14 1e c0 1b 00 69 6e 64 6c 7b 73 65 72 20 76 ┆ C - indlæser v┆ 0x0680…06a0 61 6c 67 73 74 65 64 65 72 6e 65 73 20 64 61 74 61 00 07 00 01 00 26 02 43 05 1e 80 2d 0d 01 00 ┆algstedernes data & C - ┆ 0x06a0…06c0 30 02 86 0a 0a c0 07 00 6f 70 73 74 61 72 74 00 07 00 01 00 3a 02 43 05 2a 80 2d 0d 01 00 44 02 ┆0 opstart : C * - D ┆ 0x06c0…06e0 86 07 04 c0 01 00 2d 00 07 00 01 00 4e 02 43 05 38 80 2d 0d 01 00 58 02 86 1a 2a c0 27 00 6e 24 ┆ - N C 8 - X * ' n$┆ 0x06e0…0700 28 29 20 20 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 ┆() - tabel med valgstedernes ┆ 0x0700…0720 6e 61 76 6e 65 00 07 00 01 00 62 02 43 1c 2a c0 27 00 6e 75 6d 24 28 29 20 20 2d 20 74 61 62 65 ┆navne b C * ' num$() - tabe┆ 0x0720…0740 6c 20 6d 65 64 20 76 61 6c 67 73 74 65 64 65 72 6e 65 73 20 6e 75 6d 72 65 00 02 01 44 80 2d 0d ┆l med valgstedernes numre D - ┆ 0x0740…0760 01 00 6c 02 43 24 3a c0 37 00 6e 75 28 29 20 20 20 20 2d 20 74 61 62 65 6c 20 6d 65 64 20 61 6e ┆ l C$: 7 nu() - tabel med an┆ 0x0760…0780 74 61 6c 20 76 7b 6c 67 65 72 65 20 28 76 61 6c 67 73 74 65 64 2f 64 65 74 74 65 20 76 61 6c 67 ┆tal vælgere (valgsted/dette valg┆ 0x0780…07a0 29 00 02 01 44 80 2d 0d 01 00 76 02 43 24 3a c0 38 00 66 7c 72 28 29 20 20 20 2d 20 74 61 62 65 ┆) D - v C$: 8 før() - tabe┆ 0x07a0…07c0 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 73 69 ┆l med antal vælgere (valgsted/si┆ 0x07c0…07e0 64 73 74 65 20 76 61 6c 67 29 02 01 44 80 2d 0d 01 00 80 02 43 18 22 c0 20 00 61 20 20 20 20 20 ┆dste valg) D - C " a ┆ 0x07e0…0800 20 20 2d 20 61 6e 74 61 6c 6c 65 74 20 61 66 20 76 61 6c 67 73 74 65 64 65 72 02 01 44 80 2d 0d ┆ - antallet af valgsteder D - ┆ 0x0800…0820 01 00 8a 02 86 04 08 00 01 00 94 02 86 24 3e c0 3c 00 4e 42 21 20 50 72 6f 63 65 64 75 72 65 6e ┆ $> < NB! Proceduren┆ 0x0820…0840 20 65 72 20 65 6b 73 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 ┆ er ekstern og findes i programm┆ 0x0840…0860 65 74 20 22 69 6e 64 76 61 6c 67 73 22 2e 07 00 01 00 9e 02 43 05 02 80 2d 0d 01 00 a8 02 86 13 ┆et "indvalgs". C - ┆ 0x0860…0880 1c c0 1a 00 69 6e 64 6c 69 6e 69 65 28 78 2c 79 2c 74 78 74 24 2c 52 45 46 20 75 64 24 29 07 00 ┆ indlinie(x,y,txt$,REF ud$) ┆ 0x0880…08a0 01 00 b2 02 43 05 13 80 2d 0d 01 00 bc 02 86 1d 30 c0 2d 00 62 72 75 67 65 73 20 76 65 64 20 69 ┆ C - 0 - bruges ved i┆ 0x08a0…08c0 6e 64 74 61 73 74 6e 69 6e 67 20 61 66 20 64 61 74 61 20 66 72 61 20 74 61 73 74 61 74 75 72 65 ┆ndtastning af data fra tastature┆ 0x08c0…08e0 74 00 07 00 01 00 c6 02 43 05 1e 80 2d 0d 01 00 d0 02 86 0a 0a c0 07 00 72 65 64 69 67 65 72 00 ┆t C - rediger ┆ 0x08e0…0900 07 00 01 00 da 02 43 0c 0a c0 08 00 76 69 73 5f 64 69 73 6b 02 01 44 80 2d 0d 01 00 e4 02 43 05 ┆ C vis_disk D - C ┆ 0x0900…0920 2a 80 2d 0d 01 00 ee 02 86 07 04 c0 01 00 2d 00 07 00 01 00 f8 02 43 05 38 80 2d 0d 01 00 02 03 ┆* - - C 8 - ┆ 0x0920…0940 86 18 26 c0 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 ┆ & $ x - x-position for┆ 0x0940…0960 20 6c 65 64 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 ┆ ledetekst C & $ y ┆ 0x0960…0980 2d 20 79 2d 70 6f 73 69 74 69 6f 6e 20 66 6f 72 20 6c 65 64 65 74 65 6b 73 74 02 01 44 80 2d 0d ┆- y-position for ledetekst D - ┆ 0x0980…09a0 01 00 16 03 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 ┆ C txt$ - ledetekst ┆ 0x09a0…09c0 02 01 44 80 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 ┆ D - C , ) ud$ - data┆ 0x09c0…09e0 20 69 6e 64 74 61 73 74 65 74 20 66 72 61 20 74 61 73 74 61 74 75 72 65 74 00 02 01 44 80 2d 0d ┆ indtastet fra tastaturet D - ┆ 0x09e0…0a00 01 00 2a 03 43 05 02 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 ┆ * C - 4 i_o_fejl HAN┆ 0x0a00…0a20 44 4c 45 52 07 00 01 00 3e 03 43 05 13 80 2d 0d 01 00 48 03 86 12 1a c0 17 00 62 65 68 61 6e 64 ┆DLER > C - H behand┆ 0x0a20…0a40 6c 65 72 20 6f 70 73 74 7d 65 64 65 20 66 65 6a 6c 00 07 00 01 00 52 03 43 05 1e 80 2d 0d 01 00 ┆ler opståede fejl R C - ┆ 0x0a40…0a60 5c 03 86 0a 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 ┆Ø opstart f C hent┆ 0x0a60…0a80 02 01 44 80 2d 0d 01 00 70 03 43 0d 0c c0 0a 00 69 6e 64 5f 73 74 61 74 75 73 02 01 44 80 2d 0d ┆ D - p C ind_status D - ┆ 0x0a80…0aa0 01 00 7a 03 43 0d 0c c0 09 00 75 64 5f 73 74 61 74 75 73 00 02 01 44 80 2d 0d 01 00 84 03 43 0b ┆ z C ud_status D - C ┆ 0x0aa0…0ac0 08 c0 05 00 73 6b 72 69 76 00 02 01 44 80 2d 0d 01 00 8e 03 43 0b 08 c0 06 00 6c 6f 67 62 6f 67 ┆ skriv D - C logbog┆ 0x0ac0…0ae0 02 01 44 80 2d 0d 01 00 98 03 43 0c 0a c0 08 00 69 5f 6f 5f 66 65 6a 6c 02 01 44 80 2d 0d 01 00 ┆ D - C i_o_fejl D - ┆ 0x0ae0…0b00 a2 03 43 05 2a 80 2d 0d 01 00 ac 03 86 09 08 c0 06 00 6d 65 64 64 65 6c 07 00 01 00 b6 03 43 0c ┆ C * - meddel C ┆ 0x0b00…0b20 0a c0 08 00 69 5f 6f 5f 66 65 6a 6c 02 01 44 80 2d 0d 01 00 c0 03 43 05 38 80 2d 0d 01 00 ca 03 ┆ i_o_fejl D - C 8 - ┆ 0x0b20…0b40 86 07 04 c0 01 00 2d 00 07 00 01 00 d4 03 43 05 02 80 2d 0d 01 00 de 03 86 0f 14 c0 11 00 6c 6f ┆ - C - lo┆ 0x0b40…0b60 67 62 6f 67 28 74 78 74 24 2c 66 69 6c 24 29 00 07 00 01 00 e8 03 43 05 13 80 2d 0d 01 00 f2 03 ┆gbog(txt$,fil$) C - ┆ 0x0b60…0b80 86 11 18 c0 15 00 73 6b 72 69 76 65 72 20 64 61 74 61 20 69 20 6c 6f 67 62 6f 67 00 07 00 01 00 ┆ skriver data i logbog ┆ 0x0b80…0ba0 fc 03 43 05 1e 80 2d 0d 01 00 06 04 86 0e 12 c0 10 00 72 65 64 69 67 65 72 5f 76 61 6c 67 73 74 ┆ C - rediger_valgst┆ 0x0ba0…0bc0 65 64 07 00 01 00 10 04 43 05 2a 80 2d 0d 01 00 1a 04 86 0a 0a c0 08 00 69 5f 6f 5f 66 65 6a 6c ┆ed C * - i_o_fejl┆ 0x0bc0…0be0 07 00 01 00 24 04 43 05 38 80 2d 0d 01 00 2e 04 86 1a 2a c0 28 00 74 78 74 24 20 20 20 2d 20 74 ┆ $ C 8 - . * ( txt$ - t┆ 0x0be0…0c00 65 6b 73 74 20 74 69 6c 20 69 6e 64 73 6b 72 69 76 6e 69 6e 67 20 69 20 6c 6f 67 62 6f 67 07 00 ┆ekst til indskrivning i logbog ┆ 0x0c00…0c20 01 00 38 04 43 1b 28 c0 25 00 66 69 6c 24 20 20 20 2d 20 6e 61 76 6e 65 74 20 70 7d 20 64 65 6e ┆ 8 C ( % fil$ - navnet på den┆ 0x0c20…0c40 20 70 7d 67 7b 6c 64 65 6e 64 65 20 66 69 6c 00 02 01 44 80 2d 0d 01 00 42 04 43 05 02 80 2d 0d ┆ pågældende fil D - B C - ┆ 0x0c40…0c60 01 00 4c 04 86 0f 14 c0 12 00 6d 65 64 64 65 6c 28 74 78 74 24 2c 74 72 79 6b 24 29 07 00 01 00 ┆ L meddel(txt$,tryk$) ┆ 0x0c60…0c80 56 04 43 05 13 80 2d 0d 01 00 60 04 86 1d 30 c0 2e 00 62 72 75 67 65 73 20 74 69 6c 20 75 64 73 ┆V C - ` 0 . bruges til uds┆ 0x0c80…0ca0 6b 72 69 76 6e 69 6e 67 20 61 66 20 6c 65 64 65 74 65 6b 73 74 20 70 7d 20 73 6b 7b 72 6d 65 6e ┆krivning af ledetekst på skærmen┆ 0x0ca0…0cc0 07 00 01 00 6a 04 43 05 1e 80 2d 0d 01 00 74 04 86 0e 12 c0 10 00 72 65 64 69 67 65 72 5f 76 61 ┆ j C - t rediger_va┆ 0x0cc0…0ce0 6c 67 73 74 65 64 07 00 01 00 7e 04 43 0c 0a c0 07 00 72 65 64 69 67 65 72 00 02 01 44 80 2d 0d ┆lgsted ü C rediger D - ┆ 0x0ce0…0d00 01 00 88 04 43 10 12 c0 0f 00 72 65 64 69 67 65 72 69 6e 67 73 66 65 6a 6c 00 02 01 44 80 2d 0d ┆ C redigeringsfejl D - ┆ 0x0d00…0d20 01 00 92 04 43 0b 08 c0 05 00 73 70 7c 72 67 00 02 01 44 80 2d 0d 01 00 9c 04 43 0c 0a c0 08 00 ┆ C spørg D - C ┆ 0x0d20…0d40 69 5f 6f 5f 66 65 6a 6c 02 01 44 80 2d 0d 01 00 a6 04 43 05 2a 80 2d 0d 01 00 b0 04 86 07 04 c0 ┆i_o_fejl D - C * - ┆ 0x0d40…0d60 01 00 2d 00 07 00 01 00 ba 04 43 05 38 80 2d 0d 01 00 c4 04 86 0f 14 c0 11 00 74 78 74 24 20 20 ┆ - C 8 - txt$ ┆ 0x0d60…0d80 2d 20 6c 65 64 65 74 65 6b 73 74 00 07 00 01 00 ce 04 43 27 40 c0 3e 00 74 72 79 6b 24 20 2d 20 ┆- ledetekst C'@ > tryk$ - ┆ 0x0d80…0da0 74 65 6b 73 74 20 74 69 6c 20 61 66 67 7c 72 65 6c 73 65 20 61 66 2c 20 68 76 6f 72 76 69 64 74 ┆tekst til afgørelse af, hvorvidt┆ 0x0da0…0dc0 20 70 72 6f 67 72 61 6d 6d 65 74 20 73 6b 61 6c 20 76 65 6e 74 65 02 01 44 80 2d 0d 01 00 d8 04 ┆ programmet skal vente D - ┆ 0x0dc0…0de0 43 1f 30 c0 2d 00 20 20 20 20 20 20 20 20 20 74 72 79 6b 24 3d 22 22 20 91 20 7c 6a 65 62 6c 69 ┆C 0 - tryk$="" øjebli┆ 0x0de0…0e00 6b 6b 65 6c 69 67 20 66 6f 72 74 73 7b 74 74 65 6c 73 65 00 02 01 44 80 2d 0d 01 00 e2 04 43 21 ┆kkelig fortsættelse D - C!┆ 0x0e00…0e20 34 c0 31 00 20 20 20 20 20 20 20 20 20 74 72 79 6b 24 96 22 22 20 91 20 76 65 6e 74 65 72 20 70 ┆4 1 tryk$ "" venter p┆ 0x0e20…0e40 7d 20 69 6e 64 74 61 73 74 6e 69 6e 67 20 61 66 20 74 65 67 6e 00 02 01 44 80 2d 0d 01 00 ec 04 ┆å indtastning af tegn D - ┆ 0x0e40…0e60 43 05 02 80 2d 0d 01 00 f6 04 86 08 06 c0 04 00 6d 65 6e 75 07 00 01 00 00 05 43 05 13 80 2d 0d ┆C - menu C - ┆ 0x0e60…0e80 01 00 0a 05 86 22 3a c0 37 00 65 72 20 64 65 6e 20 70 72 6f 63 65 64 75 72 65 2c 20 68 76 6f 72 ┆ ": 7 er den procedure, hvor┆ 0x0e80…0ea0 69 20 64 65 74 20 6d 65 73 74 65 20 61 66 20 70 72 6f 67 72 61 6d 6d 65 74 20 75 64 66 7c 72 65 ┆i det meste af programmet udføre┆ 0x0ea0…0ec0 73 00 07 00 01 00 14 05 43 05 1e 80 2d 0d 01 00 1e 05 86 0f 14 c0 11 00 3e 48 4f 56 45 44 50 52 ┆s C - >HOVEDPR┆ 0x0ec0…0ee0 4f 47 52 41 4d 4d 45 54 3c 00 07 00 01 00 28 05 43 05 2a 80 2d 0d 01 00 32 05 86 0e 12 c0 10 00 ┆OGRAMMET< ( C * - 2 ┆ 0x0ee0…0f00 72 65 64 69 67 65 72 5f 76 61 6c 67 73 74 65 64 07 00 01 00 3c 05 43 05 38 80 2d 0d 01 00 46 05 ┆rediger_valgsted < C 8 - F ┆ 0x0f00…0f20 86 07 04 c0 01 00 2d 00 07 00 01 00 50 05 43 05 02 80 2d 0d 01 00 5a 05 86 17 24 c0 22 00 6e 75 ┆ - P C - Z $ " nu┆ 0x0f20…0f40 6c 73 74 69 6c 28 52 45 46 20 76 61 72 69 61 62 65 6c 28 29 2c 61 6e 74 5f 70 6f 73 74 65 72 29 ┆lstil(REF variabel(),ant_poster)┆ 0x0f40…0f60 07 00 01 00 64 05 43 05 13 80 2d 0d 01 00 6e 05 86 19 28 c0 25 00 62 72 75 67 65 73 20 74 69 6c ┆ d C - n ( % bruges til┆ 0x0f60…0f80 20 6e 75 6c 73 74 69 6c 6c 69 6e 67 20 61 66 20 74 61 6c 74 61 62 65 6c 6c 65 72 00 07 00 01 00 ┆ nulstilling af taltabeller ┆ 0x0f80…0fa0 78 05 43 05 1e 80 2d 0d 01 00 82 05 86 0e 12 c0 10 00 72 65 64 69 67 65 72 5f 76 61 6c 67 73 74 ┆x C - rediger_valgst┆ 0x0fa0…0fc0 65 64 07 00 01 00 8c 05 43 05 2a 80 2d 0d 01 00 96 05 86 07 04 c0 01 00 2d 00 07 00 01 00 a0 05 ┆ed C * - - ┆ 0x0fc0…0fe0 43 05 38 80 2d 0d 01 00 aa 05 86 19 28 c0 26 00 76 61 72 69 61 62 65 6c 28 29 20 20 2d 20 74 61 ┆C 8 - ( & variabel() - ta┆ 0x0fe0…1000 6c 74 61 62 65 6c 20 74 69 6c 20 6e 75 6c 73 74 69 6c 6c 69 6e 67 07 00 01 00 b4 05 43 1e 2e c0 ┆ltabel til nulstilling C . ┆ 0x1000…1020 2b 00 61 6e 74 5f 70 6f 73 74 65 72 20 20 2d 20 74 61 6c 74 61 62 65 6c 6c 65 6e 73 20 6c 7b 6e ┆+ ant_poster - taltabellens læn┆ 0x1020…1040 67 64 65 20 28 73 74 61 72 74 3d 31 29 00 02 01 44 80 2d 0d 01 00 be 05 43 05 02 80 2d 0d 01 00 ┆gde (start=1) D - C - ┆ 0x1040…1060 c8 05 86 0a 0a c0 07 00 6f 70 73 74 61 72 74 00 07 00 01 00 d2 05 43 05 13 80 2d 0d 01 00 dc 05 ┆ opstart C - ┆ 0x1060…1080 86 1b 2c c0 2a 00 69 6e 64 6c 7b 73 65 72 20 64 61 74 61 2c 20 64 69 6d 65 6e 73 69 6f 6e 65 72 ┆ , * indlæser data, dimensioner┆ 0x1080…10a0 65 72 20 74 61 62 65 6c 6c 65 72 20 6d 2e 76 2e 07 00 01 00 e6 05 43 05 1e 80 2d 0d 01 00 f0 05 ┆er tabeller m.v. C - ┆ 0x10a0…10c0 86 0d 10 c0 0e 00 3e 48 4f 56 45 44 50 52 4f 47 52 41 4d 3c 07 00 01 00 fa 05 43 05 2a 80 2d 0d ┆ >HOVEDPROGRAM< C * - ┆ 0x10c0…10e0 01 00 04 06 86 09 08 c0 05 00 69 6e 64 5f 70 00 07 00 01 00 0e 06 43 0b 08 c0 05 00 69 6e 64 5f ┆ ind_p C ind_┆ 0x10e0…1100 76 00 02 01 44 80 2d 0d 01 00 18 06 43 0c 0a c0 08 00 69 5f 6f 5f 66 65 6a 6c 02 01 44 80 2d 0d ┆v D - C i_o_fejl D - ┆ 0x1100…1120 01 00 22 06 43 05 38 80 2d 0d 01 00 2c 06 86 07 04 c0 01 00 2d 00 07 00 01 00 36 06 43 05 02 80 ┆ " C 8 - , - 6 C ┆ 0x1120…1140 2d 0d 01 00 40 06 86 24 3e c0 3c 00 72 65 64 69 67 65 72 28 52 45 46 20 69 6e 64 28 29 2c 70 6f ┆- @ $> < rediger(REF ind(),po┆ 0x1140…1160 73 74 65 72 2c 6d 61 78 6c 7b 6e 67 64 65 2c 52 45 46 20 74 78 74 24 28 29 2c 52 45 46 20 6f 6b ┆ster,maxlængde,REF txt$(),REF ok┆ 0x1160…1180 29 20 43 4c 4f 53 45 44 07 00 01 00 4a 06 43 05 13 80 2d 0d 01 00 54 06 86 1b 2c c0 2a 00 6b 61 ┆) CLOSED J C - T , * ka┆ 0x1180…11a0 6e 20 72 65 64 69 67 65 72 65 20 64 61 74 61 20 76 65 64 72 2e 20 65 74 20 65 6e 6b 65 6c 74 20 ┆n redigere data vedr. et enkelt ┆ 0x11a0…11c0 76 61 6c 67 73 74 65 64 07 00 01 00 5e 06 43 05 1e 80 2d 0d 01 00 68 06 86 0e 12 c0 10 00 72 65 ┆valgsted ^ C - h re┆ 0x11c0…11e0 64 69 67 65 72 5f 76 61 6c 67 73 74 65 64 07 00 01 00 72 06 43 05 2a 80 2d 0d 01 00 7c 06 86 0c ┆diger_valgsted r C * - ø ┆ 0x11e0…1200 0e c0 0b 00 73 70 65 63 69 61 6c 74 61 73 74 00 07 00 01 00 86 06 43 10 12 c0 0f 00 72 65 64 69 ┆ specialtast C redi┆ 0x1200…1220 67 65 72 69 6e 67 73 66 65 6a 6c 00 02 01 44 80 2d 0d 01 00 90 06 43 0b 08 c0 05 00 73 70 7c 72 ┆geringsfejl D - C spør┆ 0x1220…1240 67 00 02 01 44 80 2d 0d 01 00 9a 06 43 0b 08 c0 06 00 6d 65 64 64 65 6c 02 01 44 80 2d 0d 01 00 ┆g D - C meddel D - ┆ 0x1240…1260 a4 06 43 0c 0a c0 08 00 69 6e 64 6c 69 6e 69 65 02 01 44 80 2d 0d 01 00 ae 06 43 05 38 80 2d 0d ┆ C indlinie D - C 8 - ┆ 0x1260…1280 01 00 b8 06 86 1e 32 c0 2f 00 69 6e 64 28 29 20 20 20 20 20 2d 20 74 61 62 65 6c 20 6d 65 64 20 ┆ 2 / ind() - tabel med ┆ 0x1280…12a0 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 00 07 00 01 00 c2 06 ┆listeresultater (stemmer) ┆ 0x12a0…12c0 43 17 20 c0 1e 00 70 6f 73 74 65 72 20 20 20 20 2d 20 61 6e 74 61 6c 6c 65 74 20 61 66 20 6c 69 ┆C poster - antallet af li┆ 0x12c0…12e0 73 74 65 72 02 01 44 80 2d 0d 01 00 cc 06 43 22 36 c0 34 00 6d 61 78 6c 7b 6e 67 64 65 20 2d 20 ┆ster D - C"6 4 maxlængde - ┆ 0x12e0…1300 64 65 74 20 6d 61 6b 73 69 6d 61 6c 65 20 61 6e 74 61 6c 20 63 69 66 72 65 20 69 20 72 65 73 75 ┆det maksimale antal cifre i resu┆ 0x1300…1320 6c 74 61 74 65 72 6e 65 02 01 44 80 2d 0d 01 00 d6 06 43 1b 28 c0 25 00 74 78 74 24 28 29 20 20 ┆ltaterne D - C ( % txt$() ┆ 0x1320…1340 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 61 76 6e 65 00 02 01 ┆ - tabel med listernes navne ┆ 0x1340…1360 44 80 2d 0d 01 00 e0 06 43 22 36 c0 33 00 6f 6b 20 20 20 20 20 20 20 20 2d 20 61 6e 67 69 76 65 ┆D - C"6 3 ok - angive┆ 0x1360…1380 72 2c 20 6f 6d 20 72 65 74 74 65 6c 73 65 72 6e 65 20 73 6b 61 6c 20 6f 70 64 61 74 65 72 65 73 ┆r, om rettelserne skal opdateres┆ 0x1380…13a0 3a 00 02 01 44 80 2d 0d 01 00 ea 06 43 16 1e c0 1b 00 20 20 20 20 20 20 20 20 20 20 20 20 96 30 ┆: D - C 0┆ 0x13a0…13c0 20 91 20 6f 70 64 61 74 65 72 69 6e 67 00 02 01 44 80 2d 0d 01 00 f4 06 43 18 22 c0 20 00 20 20 ┆ opdatering D - C " ┆ 0x13c0…13e0 20 20 20 20 20 20 20 20 20 20 3d 30 20 91 20 69 6b 6b 65 20 6f 70 64 61 74 65 72 69 6e 67 02 01 ┆ =0 ikke opdatering ┆ 0x13e0…1400 44 80 2d 0d 01 00 fe 06 43 05 02 80 2d 0d 01 00 08 07 86 0e 12 c0 10 00 72 65 64 69 67 65 72 5f ┆D - C - rediger_┆ 0x1400…1420 76 61 6c 67 73 74 65 64 07 00 01 00 12 07 43 05 13 80 2d 0d 01 00 1c 07 86 1a 2a c0 27 00 6b 61 ┆valgsted C - * ' ka┆ 0x1420…1440 6e 20 72 65 64 69 67 65 72 65 20 64 61 74 61 20 66 6f 72 20 65 74 20 67 69 76 65 74 20 76 61 6c ┆n redigere data for et givet val┆ 0x1440…1460 67 73 74 65 64 00 07 00 01 00 26 07 43 05 1e 80 2d 0d 01 00 30 07 86 08 06 c0 04 00 6d 65 6e 75 ┆gsted & C - 0 menu┆ 0x1460…1480 07 00 01 00 3a 07 43 05 2a 80 2d 0d 01 00 44 07 86 0b 0c c0 09 00 75 64 5f 73 74 61 74 75 73 00 ┆ : C * - D ud_status ┆ 0x1480…14a0 07 00 01 00 4e 07 43 0b 08 c0 05 00 73 6b 72 69 76 00 02 01 44 80 2d 0d 01 00 58 07 43 0c 0a c0 ┆ N C skriv D - X C ┆ 0x14a0…14c0 07 00 76 69 73 64 61 74 61 00 02 01 44 80 2d 0d 01 00 62 07 43 0a 06 c0 04 00 68 65 6e 74 02 01 ┆ visdata D - b C hent ┆ 0x14c0…14e0 44 80 2d 0d 01 00 6c 07 43 0c 0a c0 07 00 6e 75 6c 73 74 69 6c 00 02 01 44 80 2d 0d 01 00 76 07 ┆D - l C nulstil D - v ┆ 0x14e0…1500 43 0c 0a c0 07 00 72 65 64 69 67 65 72 00 02 01 44 80 2d 0d 01 00 80 07 43 0b 08 c0 06 00 6c 6f ┆C rediger D - C lo┆ 0x1500…1520 67 62 6f 67 02 01 44 80 2d 0d 01 00 8a 07 43 0c 0a c0 08 00 76 69 73 5f 64 69 73 6b 02 01 44 80 ┆gbog D - C vis_disk D ┆ 0x1520…1540 2d 0d 01 00 94 07 43 0d 0c c0 0a 00 69 6e 64 5f 73 74 61 74 75 73 02 01 44 80 2d 0d 01 00 9e 07 ┆- C ind_status D - ┆ 0x1540…1560 43 0b 08 c0 05 00 73 70 7c 72 67 00 02 01 44 80 2d 0d 01 00 a8 07 43 0c 0a c0 08 00 69 6e 64 6c ┆C spørg D - C indl┆ 0x1560…1580 69 6e 69 65 02 01 44 80 2d 0d 01 00 b2 07 43 05 38 80 2d 0d 01 00 bc 07 86 07 04 c0 01 00 2d 00 ┆inie D - C 8 - - ┆ 0x1580…15a0 07 00 01 00 c6 07 43 05 02 80 2d 0d 01 00 d0 07 86 12 1a c0 17 00 72 65 64 69 67 65 72 69 6e 67 ┆ C - redigering┆ 0x15a0…15c0 73 66 65 6a 6c 20 48 41 4e 44 4c 45 52 00 07 00 01 00 da 07 43 05 13 80 2d 0d 01 00 e4 07 86 16 ┆sfejl HANDLER C - ┆ 0x15c0…15e0 22 c0 1f 00 62 65 68 61 6e 64 6c 65 72 20 66 65 6a 6c 20 75 6e 64 65 72 20 72 65 64 69 67 65 72 ┆" behandler fejl under rediger┆ 0x15e0…1600 69 6e 67 00 07 00 01 00 ee 07 43 05 1e 80 2d 0d 01 00 f8 07 86 0a 0a c0 07 00 72 65 64 69 67 65 ┆ing C - redige┆ 0x1600…1620 72 00 07 00 01 00 02 08 43 05 2a 80 2d 0d 01 00 0c 08 86 09 08 c0 06 00 6d 65 64 64 65 6c 07 00 ┆r C * - meddel ┆ 0x1620…1640 01 00 16 08 43 05 38 80 2d 0d 01 00 20 08 86 07 04 c0 01 00 2d 00 07 00 01 00 2a 08 43 05 02 80 ┆ C 8 - - * C ┆ 0x1640…1660 2d 0d 01 00 34 08 86 0f 14 c0 12 00 73 63 72 6f 6c 6c 28 72 65 74 24 2c 79 31 2c 79 32 29 07 00 ┆- 4 scroll(ret$,y1,y2) ┆ 0x1660…1680 01 00 3e 08 43 05 13 80 2d 0d 01 00 48 08 86 1e 32 c0 2f 00 66 7d 72 20 65 74 20 75 64 73 6e 69 ┆ > C - H 2 / får et udsni┆ 0x1680…16a0 74 20 61 66 20 73 6b 7b 72 6d 65 6e 20 74 69 6c 20 61 74 20 72 75 6c 6c 65 20 6f 70 20 6f 67 20 ┆t af skærmen til at rulle op og ┆ 0x16a0…16c0 6e 65 64 00 07 00 01 00 52 08 43 05 1e 80 2d 0d 01 00 5c 08 86 0c 0e c0 0b 00 73 70 65 63 69 61 ┆ned R C - Ø specia┆ 0x16c0…16e0 6c 74 61 73 74 00 07 00 01 00 66 08 43 05 2a 80 2d 0d 01 00 70 08 86 07 04 c0 01 00 2d 00 07 00 ┆ltast f C * - p - ┆ 0x16e0…1700 01 00 7a 08 43 05 38 80 2d 0d 01 00 84 08 86 1d 30 c0 2e 00 72 65 74 24 20 20 2d 20 72 75 6c 6e ┆ z C 8 - 0 . ret$ - ruln┆ 0x1700…1720 69 6e 67 65 6e 73 20 72 65 74 6e 69 6e 67 2c 20 68 68 76 2e 20 22 4f 50 22 20 6f 67 20 22 4e 45 ┆ingens retning, hhv. "OP" og "NE┆ 0x1720…1740 44 22 07 00 01 00 8e 08 43 15 1c c0 19 00 79 31 20 20 20 20 2d 20 20 7c 76 72 65 20 79 2d 6b 6f ┆D" C y1 - øvre y-ko┆ 0x1740…1760 6f 72 64 69 6e 61 74 00 02 01 44 80 2d 0d 01 00 98 08 43 15 1c c0 19 00 79 32 20 20 20 20 2d 20 ┆ordinat D - C y2 - ┆ 0x1760…1780 6e 65 64 72 65 20 79 2d 6b 6f 6f 72 64 69 6e 61 74 00 02 01 44 80 2d 0d 01 00 a2 08 43 05 02 80 ┆nedre y-koordinat D - C ┆ 0x1780…17a0 2d 0d 01 00 ac 08 86 16 22 c0 1f 00 73 6b 72 69 76 28 66 69 6c 24 2c 52 45 46 20 75 64 28 29 2c ┆- " skriv(fil$,REF ud(),┆ 0x17a0…17c0 72 65 63 2c 70 6f 73 74 65 72 29 00 07 00 01 00 b6 08 43 05 13 80 2d 0d 01 00 c0 08 86 26 42 c0 ┆rec,poster) C - &B ┆ 0x17c0…17e0 3f 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 74 65 6d 6d 65 66 ┆? skriver oplysninger om stemmef┆ 0x17e0…1800 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 65 64 65 ┆ordeling på de enkelte valgstede┆ 0x1800…1820 72 00 07 00 01 00 ca 08 43 05 1e 80 2d 0d 01 00 d4 08 86 0e 12 c0 10 00 72 65 64 69 67 65 72 5f ┆r C - rediger_┆ 0x1820…1840 76 61 6c 67 73 74 65 64 07 00 01 00 de 08 43 05 2a 80 2d 0d 01 00 e8 08 86 0a 0a c0 08 00 69 5f ┆valgsted C * - i_┆ 0x1840…1860 6f 5f 66 65 6a 6c 07 00 01 00 f2 08 43 05 38 80 2d 0d 01 00 fc 08 86 15 20 c0 1e 00 66 69 6c 24 ┆o_fejl C 8 - fil$┆ 0x1860…1880 20 20 20 20 20 2d 20 66 69 6c 20 74 69 6c 20 75 64 73 6b 72 69 76 6e 69 6e 67 07 00 01 00 06 09 ┆ - fil til udskrivning ┆ 0x1880…18a0 43 1f 30 c0 2e 00 75 64 28 29 20 20 20 20 20 2d 20 74 61 62 65 6c 20 6d 65 64 20 6c 69 73 74 65 ┆C 0 . ud() - tabel med liste┆ 0x18a0…18c0 72 65 73 75 6c 74 61 74 65 72 20 28 73 74 65 6d 6d 65 72 29 02 01 44 80 2d 0d 01 00 10 09 43 1a ┆resultater (stemmer) D - C ┆ 0x18c0…18e0 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┆ 0x18e0…1900 6c 67 73 74 65 64 29 00 02 01 44 80 2d 0d 01 00 1a 09 43 17 20 c0 1e 00 70 6f 73 74 65 72 20 20 ┆lgsted) D - C poster ┆ 0x1900…1920 20 2d 20 70 6f 73 74 20 6e 75 6d 6d 65 72 20 28 6c 69 73 74 65 29 02 01 44 80 2d 0d 01 00 24 09 ┆ - post nummer (liste) D - $ ┆ […truncated at 200 lines…]