|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC759 "Piccoline" |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC759 "Piccoline" Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 22400 (0x5780)
Names: »SPSKEMA.PAS«
└─⟦a1337913c⟧ Bits:30002679 PGM1 - indeholder forskellige undervisningsprogrammer
└─ ⟦this⟧ »SPSKEMA.PAS«
0x0000…0020 70 72 6f 67 72 61 6d 20 73 70 5f 73 6b 65 6d 61 3b 0d 0a 63 6f 6e 73 74 20 20 6d 61 78 73 70 3d ┆program sp_skema; const maxsp=┆
0x0020…0040 33 30 3b 0d 0a 20 20 20 20 20 20 20 6d 61 78 76 61 6c 67 3d 32 30 3b 0d 0a 20 20 20 20 20 20 20 ┆30; maxvalg=20; ┆
0x0040…0060 6d 61 78 73 6b 65 6d 61 3d 35 30 30 3b 0d 0a 20 20 20 20 20 20 20 6d 61 78 6d 61 73 6b 65 3d 31 ┆maxskema=500; maxmaske=1┆
0x0060…0080 30 3b 0d 0a 20 20 20 20 20 20 20 6f 70 3d 40 35 3b 76 65 6e 73 74 72 65 3d 40 31 39 3b 68 6f 65 ┆0; op=@5;venstre=@19;hoe┆
0x0080…00a0 6a 72 65 3d 40 34 3b 6e 65 64 3d 40 32 34 3b 72 65 74 75 72 6e 3d 40 31 33 3b 65 73 63 3d 40 32 ┆jre=@4;ned=@24;return=@13;esc=@2┆
0x00a0…00c0 37 3b 0d 0a 20 20 20 20 20 20 20 62 61 63 6b 3d 40 38 40 38 40 38 40 38 40 38 40 38 40 38 40 38 ┆7; back=@8@8@8@8@8@8@8@8┆
0x00c0…00e0 40 38 40 38 3b 20 28 2a 20 31 30 20 73 6b 72 69 64 74 20 74 69 6c 62 61 67 65 20 2a 29 0d 0a 20 ┆@8@8; (* 10 skridt tilbage *) ┆
0x00e0…0100 20 20 20 20 20 20 66 65 6c 74 70 6f 73 20 3a 20 61 72 72 61 79 28 2e 31 2e 2e 6d 61 78 73 70 2c ┆ feltpos : array(.1..maxsp,┆
0x0100…0120 31 2e 2e 32 2e 29 20 6f 66 20 31 2e 2e 37 30 20 3d 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆1..2.) of 1..70 = ┆
0x0120…0140 20 20 28 20 28 31 30 2c 32 29 2c 28 31 30 2c 34 29 2c 28 31 30 2c 36 29 2c 28 31 30 2c 38 29 2c ┆ ( (10,2),(10,4),(10,6),(10,8),┆
0x0140…0160 28 31 30 2c 31 30 29 2c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 31 30 2c 31 32 29 ┆(10,10), (10,12)┆
0x0160…0180 2c 28 31 30 2c 31 34 29 2c 28 31 30 2c 31 36 29 2c 28 31 30 2c 31 38 29 2c 28 31 30 2c 32 30 29 ┆,(10,14),(10,16),(10,18),(10,20)┆
0x0180…01a0 2c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 33 30 2c 32 29 2c 28 33 30 2c 34 29 ┆, (30,2),(30,4)┆
0x01a0…01c0 2c 28 33 30 2c 36 29 2c 28 33 30 2c 38 29 2c 28 33 30 2c 31 30 29 2c 0d 0a 20 20 20 20 20 20 20 ┆,(30,6),(30,8),(30,10), ┆
0x01c0…01e0 20 20 20 20 20 20 20 20 28 33 30 2c 31 32 29 2c 28 33 30 2c 31 34 29 2c 28 33 30 2c 31 36 29 2c ┆ (30,12),(30,14),(30,16),┆
0x01e0…0200 28 33 30 2c 31 38 29 2c 28 33 30 2c 32 30 29 2c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(30,18),(30,20), ┆
0x0200…0220 20 20 28 35 30 2c 32 29 2c 28 35 30 2c 34 29 2c 28 35 30 2c 36 29 2c 28 35 30 2c 38 29 2c 28 35 ┆ (50,2),(50,4),(50,6),(50,8),(5┆
0x0220…0240 30 2c 31 30 29 2c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 35 30 2c 31 32 29 2c 28 ┆0,10), (50,12),(┆
0x0240…0260 35 30 2c 31 34 29 2c 28 35 30 2c 31 36 29 2c 28 35 30 2c 31 38 29 2c 28 35 30 2c 32 30 29 29 3b ┆50,14),(50,16),(50,18),(50,20));┆
0x0260…0280 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0280…02a0 20 20 0d 0a 20 20 20 20 20 20 20 0d 0a 74 79 70 65 20 20 20 73 76 61 72 74 79 70 65 20 3d 20 61 ┆ type svartype = a┆
0x02a0…02c0 72 72 61 79 28 2e 31 2e 2e 6d 61 78 73 70 2e 29 20 6f 66 20 30 2e 2e 6d 61 78 76 61 6c 67 3b 0d ┆rray(.1..maxsp.) of 0..maxvalg; ┆
0x02c0…02e0 0a 20 20 20 20 20 20 20 73 6b 65 6d 61 74 79 70 65 20 3d 20 72 65 63 6f 72 64 0d 0a 20 20 20 20 ┆ skematype = record ┆
0x02e0…0300 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 72 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 ┆ nr: integer; ┆
0x0300…0320 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 76 61 72 3a 20 73 76 61 72 74 79 70 65 3b 0d ┆ svar: svartype; ┆
0x0320…0340 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b 0d 0a 20 20 20 20 20 20 ┆ end; ┆
0x0340…0360 20 6d 61 73 6b 65 74 79 70 65 20 3d 20 72 65 63 6f 72 64 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ masketype = record ┆
0x0360…0380 20 20 20 20 20 20 20 20 20 73 70 20 3a 20 31 2e 2e 6d 61 78 73 70 3b 0d 0a 20 20 20 20 20 20 20 ┆ sp : 1..maxsp; ┆
0x0380…03a0 20 20 20 20 20 20 20 20 20 20 20 20 20 6d 61 73 6b 65 20 3a 20 73 65 74 20 6f 66 20 30 2e 2e 6d ┆ maske : set of 0..m┆
0x03a0…03c0 61 78 76 61 6c 67 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6e 64 3b ┆axvalg; end;┆
0x03c0…03e0 20 20 20 20 20 20 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03e0…0400 20 20 0d 0a 76 61 72 20 20 20 73 6b 65 6d 61 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ var skema ┆
0x0400…0420 20 20 20 20 20 20 3a 73 6b 65 6d 61 74 79 70 65 3b 0d 0a 20 20 20 20 20 20 6d 75 6c 69 67 68 65 ┆ :skematype; mulighe┆
0x0420…0440 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 76 61 72 74 79 70 65 3b 0d ┆d :svartype; ┆
0x0440…0460 0a 20 20 20 20 20 20 66 69 6c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ fil ┆
0x0460…0480 20 20 20 3a 74 65 78 74 3b 0d 0a 20 20 20 20 20 20 64 69 73 6b 20 20 20 20 20 20 20 20 20 20 20 ┆ :text; disk ┆
0x0480…04a0 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 66 69 6c 65 20 6f 66 20 73 6b 65 6d 61 74 79 70 65 3b ┆ :file of skematype;┆
0x04a0…04c0 0d 0a 20 20 20 20 20 20 66 69 6c 6e 61 76 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ filnavn ┆
0x04c0…04e0 20 20 20 20 3a 73 74 72 69 6e 67 28 2e 31 32 2e 29 3b 0d 0a 20 20 20 20 20 20 6e 61 76 6e 20 20 ┆ :string(.12.); navn ┆
0x04e0…0500 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 73 74 72 69 6e 67 28 2e 38 ┆ :string(.8┆
0x0500…0520 2e 29 3b 20 20 20 0d 0a 20 20 20 20 20 20 73 74 61 72 74 65 74 2c 6d 61 73 6b 65 66 6c 61 67 20 ┆.); startet,maskeflag ┆
0x0520…0540 20 20 20 20 20 20 20 20 20 20 3a 62 6f 6f 6c 65 61 6e 3b 0d 0a 20 20 20 20 20 20 73 76 20 20 20 ┆ :boolean; sv ┆
0x0540…0560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 63 68 61 72 3b 0d 0a 20 ┆ :char; ┆
0x0560…0580 20 20 20 20 20 69 2c 61 6e 74 61 6c 73 70 2c 61 6e 74 61 6c 5f 69 6e 64 20 20 20 20 20 20 20 20 ┆ i,antalsp,antal_ind ┆
0x0580…05a0 20 3a 69 6e 74 65 67 65 72 3b 20 0d 0a 20 20 20 20 20 20 73 6b 65 6d 61 73 74 61 6b 20 20 20 20 ┆ :integer; skemastak ┆
0x05a0…05c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 72 72 61 79 28 2e 31 2e 2e 6d 61 78 73 6b 65 ┆ :array(.1..maxske┆
0x05c0…05e0 6d 61 2e 29 20 6f 66 20 73 6b 65 6d 61 74 79 70 65 3b 0d 0a 20 20 20 20 20 20 73 20 20 20 20 20 ┆ma.) of skematype; s ┆
0x05e0…0600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 72 72 61 79 28 2e 31 2e ┆ :array(.1.┆
0x0600…0620 2e 6d 61 78 73 70 2c 30 2e 2e 6d 61 78 76 61 6c 67 2e 29 20 6f 66 20 69 6e 74 65 67 65 72 3b 0d ┆.maxsp,0..maxvalg.) of integer; ┆
0x0620…0640 0a 20 20 20 20 20 20 73 75 6d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ sum ┆
0x0640…0660 20 20 20 3a 61 72 72 61 79 28 2e 31 2e 2e 6d 61 78 73 70 2e 29 20 6f 66 20 69 6e 74 65 67 65 72 ┆ :array(.1..maxsp.) of integer┆
0x0660…0680 3b 0d 0a 20 20 20 20 20 20 6b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; k ┆
0x0680…06a0 20 20 20 20 20 3a 61 72 72 61 79 28 2e 30 2e 2e 6d 61 78 76 61 6c 67 2c 30 2e 2e 6d 61 78 76 61 ┆ :array(.0..maxvalg,0..maxva┆
0x06a0…06c0 6c 67 2e 29 20 6f 66 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 20 20 73 69 20 20 20 20 20 20 ┆lg.) of integer; si ┆
0x06c0…06e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 61 72 72 61 79 28 2e 31 2e 2e 6d ┆ :array(.1..m┆
0x06e0…0700 61 78 6d 61 73 6b 65 2e 29 20 6f 66 20 6d 61 73 6b 65 74 79 70 65 3b 0d 0a 20 20 20 20 20 20 61 ┆axmaske.) of masketype; a┆
0x0700…0720 6e 74 61 6c 5f 6d 61 73 6b 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 30 2e 2e 6d ┆ntal_masker :0..m┆
0x0720…0740 61 78 6d 61 73 6b 65 3b 0d 0a 70 72 6f 63 65 64 75 72 65 20 66 6f 72 6b 6c 61 72 69 6e 67 3b 0d ┆axmaske; procedure forklaring; ┆
0x0740…0760 0a 62 65 67 69 6e 0d 0a 77 72 69 74 65 28 63 6c 72 68 6f 6d 29 3b 0d 0a 77 72 69 74 65 6c 6e 28 ┆ begin write(clrhom); writeln(┆
0x0760…0780 27 20 20 20 44 65 74 74 65 20 70 72 6f 67 72 61 6d 20 6b 61 6e 20 62 65 6e 79 74 74 65 73 20 74 ┆' Dette program kan benyttes t┆
0x0780…07a0 69 6c 20 62 65 68 61 6e 64 6c 69 6e 67 20 61 66 20 73 70 7c 72 67 65 73 6b 65 6d 61 65 72 2e 27 ┆il behandling af spørgeskemaer.'┆
0x07a0…07c0 29 3b 0d 0a 77 72 69 74 65 6c 6e 28 27 53 70 7c 72 67 65 73 6b 65 6d 61 65 74 20 6b 61 6e 20 69 ┆); writeln('Spørgeskemaet kan i┆
0x07c0…07e0 6e 64 65 68 6f 6c 64 65 20 6f 70 20 74 69 6c 20 33 30 20 66 6f 72 73 6b 65 6c 6c 69 67 65 20 73 ┆ndeholde op til 30 forskellige s┆
0x07e0…0800 70 7c 72 67 73 6d 7d 6c 2e 27 29 3b 0d 0a 77 72 69 74 65 6c 6e 28 27 48 76 65 72 74 20 73 70 7c ┆pørgsmål.'); writeln('Hvert spø┆
0x0800…0820 72 67 73 6d 7d 6c 20 6b 61 6e 20 69 6e 64 65 68 6f 6c 64 65 20 6f 70 20 74 69 6c 20 32 30 20 73 ┆rgsmål kan indeholde op til 20 s┆
0x0820…0840 76 61 72 6d 75 6c 69 67 68 65 64 65 72 2e 20 44 69 73 73 65 20 27 29 3b 0d 0a 77 72 69 74 65 6c ┆varmuligheder. Disse '); writel┆
0x0840…0860 6e 28 27 73 6b 61 6c 20 6b 75 6e 6e 65 20 74 69 6c 6c 7b 67 67 65 73 20 65 6e 20 74 61 6c 76 7b ┆n('skal kunne tillægges en talvæ┆
0x0860…0880 72 64 69 20 6d 65 6c 6c 65 6d 20 31 20 6f 67 20 32 30 2e 20 45 74 20 73 70 7c 72 67 73 6d 7d 6c ┆rdi mellem 1 og 20. Et spørgsmål┆
0x0880…08a0 2c 27 29 3b 0d 0a 77 72 69 74 65 6c 6e 28 27 64 65 72 20 69 6b 6b 65 20 65 72 20 62 65 73 76 61 ┆,'); writeln('der ikke er besva┆
0x08a0…08c0 72 65 74 20 69 6e 64 6b 6f 64 65 73 20 6d 65 64 20 73 76 61 72 65 74 20 30 2e 27 29 3b 0d 0a 77 ┆ret indkodes med svaret 0.'); w┆
0x08c0…08e0 72 69 74 65 6c 6e 28 27 56 65 64 20 69 6e 64 6b 6f 64 6e 69 6e 67 65 6e 20 61 66 20 73 76 61 72 ┆riteln('Ved indkodningen af svar┆
0x08e0…0900 65 6e 65 20 73 6b 61 6c 20 68 76 65 72 74 20 73 6b 65 6d 61 20 68 61 76 65 20 65 74 20 6e 75 6d ┆ene skal hvert skema have et num┆
0x0900…0920 6d 65 72 2e 27 29 3b 0d 0a 77 72 69 74 65 6c 6e 28 27 44 65 74 74 65 20 6e 75 6d 6d 65 72 20 62 ┆mer.'); writeln('Dette nummer b┆
0x0920…0940 6c 69 76 65 72 20 69 6b 6b 65 20 62 65 6e 79 74 74 65 74 20 61 66 20 70 72 6f 67 72 61 6d 6d 65 ┆liver ikke benyttet af programme┆
0x0940…0960 74 20 69 20 64 65 6e 20 6e 75 76 7b 72 65 6e 64 65 27 29 3b 0d 0a 77 72 69 74 65 6c 6e 28 27 75 ┆t i den nuværende'); writeln('u┆
0x0960…0980 64 67 61 76 65 2c 20 6d 65 6e 20 64 65 74 20 6b 61 6e 20 64 6f 67 20 62 65 6e 79 74 74 65 73 20 ┆dgave, men det kan dog benyttes ┆
0x0980…09a0 74 69 6c 20 6b 6f 6e 74 72 6f 6c 20 61 66 20 64 65 20 69 6e 64 74 61 73 74 65 64 65 20 27 29 3b ┆til kontrol af de indtastede ');┆
0x09a0…09c0 0d 0a 77 72 69 74 65 6c 6e 28 27 73 6b 65 6d 61 65 72 2d 65 76 74 20 6b 61 6e 20 64 65 74 20 73 ┆ writeln('skemaer-evt kan det s┆
0x09c0…09e0 7b 74 74 65 73 20 74 69 6c 20 30 2e 27 29 3b 0d 0a 77 72 69 74 65 6c 6e 3b 0d 0a 77 72 69 74 65 ┆ættes til 0.'); writeln; write┆
0x09e0…0a00 6c 6e 28 27 56 65 64 20 70 72 6f 67 72 61 6d 73 74 61 72 74 20 76 69 73 65 73 20 65 6e 20 6d 65 ┆ln('Ved programstart vises en me┆
0x0a00…0a20 6e 75 2c 20 68 76 6f 72 61 66 20 64 65 20 66 6f 72 73 6b 65 6c 6c 69 67 65 20 6d 75 6c 69 67 68 ┆nu, hvoraf de forskellige muligh┆
0x0a20…0a40 65 64 65 72 27 29 3b 0d 0a 77 72 69 74 65 6c 6e 28 27 66 72 65 6d 67 7d 72 2e 20 44 65 20 69 6e ┆eder'); writeln('fremgår. De in┆
0x0a40…0a60 64 74 61 73 74 65 64 65 20 64 61 74 61 20 67 65 6d 6d 65 73 20 65 66 74 65 72 20 69 6e 64 74 61 ┆dtastede data gemmes efter indta┆
0x0a60…0a80 73 74 6e 69 6e 67 65 6e 20 70 7d 20 65 6e 20 27 29 3b 0d 0a 77 72 69 74 65 6c 6e 28 27 66 69 6c ┆stningen på en '); writeln('fil┆
0x0a80…0aa0 2c 20 68 76 6f 72 66 72 61 20 64 65 20 6b 61 6e 20 68 65 6e 74 65 73 2e 20 44 65 74 74 65 20 73 ┆, hvorfra de kan hentes. Dette s┆
0x0aa0…0ac0 6b 61 6c 20 41 4c 54 49 44 20 67 7c 72 65 73 20 69 6e 64 65 6e 20 64 65 6e 20 27 29 3b 0d 0a 77 ┆kal ALTID gøres inden den '); w┆
0x0ac0…0ae0 72 69 74 65 6c 6e 28 27 65 6e 64 65 6c 69 67 65 20 6f 70 74 7b 6c 6c 69 6e 67 20 6f 67 20 62 65 ┆riteln('endelige optælling og be┆
0x0ae0…0b00 68 61 6e 64 6c 69 6e 67 20 66 6f 72 65 74 61 67 65 73 2e 27 29 3b 0d 0a 77 72 69 74 65 6c 6e 28 ┆handling foretages.'); writeln(┆
0x0b00…0b20 27 56 65 64 20 6f 70 74 7b 6c 6c 69 6e 67 65 6e 20 6b 61 6e 20 64 65 72 20 64 65 66 69 6e 65 72 ┆'Ved optællingen kan der definer┆
0x0b20…0b40 65 73 20 6e 6f 67 6c 65 20 73 70 65 63 69 65 6c 6c 65 20 6b 72 61 76 2c 20 64 65 72 20 27 29 3b ┆es nogle specielle krav, der ');┆
0x0b40…0b60 0d 0a 77 72 69 74 65 6c 6e 28 27 73 6b 61 6c 20 76 7b 72 65 20 6f 70 66 79 6c 64 74 20 66 6f 72 ┆ writeln('skal være opfyldt for┆
0x0b60…0b80 20 61 74 20 73 6b 65 6d 61 65 74 20 69 6e 64 67 7d 72 20 69 20 6f 70 74 7b 6c 6c 69 6e 67 65 6e ┆ at skemaet indgår i optællingen┆
0x0b80…0ba0 2e 27 29 3b 0d 0a 77 72 69 74 65 6c 6e 28 27 44 69 73 73 65 20 6b 72 61 76 20 6b 61 6c 64 65 73 ┆.'); writeln('Disse krav kaldes┆
0x0ba0…0bc0 20 6d 61 73 6b 65 72 20 6f 67 20 64 65 6e 6e 65 20 6d 61 73 6b 65 66 75 6e 6b 74 69 6f 6e 20 6b ┆ masker og denne maskefunktion k┆
0x0bc0…0be0 61 6e 20 74 7b 6e 64 65 73 20 27 29 3b 0d 0a 77 72 69 74 65 6c 6e 28 27 65 6c 6c 65 72 20 73 6c ┆an tændes '); writeln('eller sl┆
0x0be0…0c00 75 6b 6b 65 73 20 65 66 74 65 72 20 62 65 68 6f 76 2e 27 29 3b 0d 0a 77 72 69 74 65 6c 6e 3b 0d ┆ukkes efter behov.'); writeln; ┆
0x0c00…0c20 0a 77 72 69 74 65 6c 6e 28 27 44 65 20 73 70 7c 72 67 73 6d 7d 6c 20 70 72 6f 67 72 61 6d 6d 65 ┆ writeln('De spørgsmål programme┆
0x0c20…0c40 74 20 73 74 69 6c 6c 65 72 20 6f 67 20 73 6f 6d 20 6b 75 6e 20 6b 72 7b 76 65 72 20 65 74 20 62 ┆t stiller og som kun kræver et b┆
0x0c40…0c60 6f 67 73 74 61 76 27 29 3b 0d 0a 77 72 69 74 65 6c 6e 28 27 73 6f 6d 20 73 76 61 72 20 6b 72 7b ┆ogstav'); writeln('som svar kræ┆
0x0c60…0c80 76 65 72 20 69 6b 6b 65 20 62 72 75 67 20 61 66 20 3c 52 45 54 55 52 4e 3e 2d 6b 6e 61 70 70 65 ┆ver ikke brug af <RETURN>-knappe┆
0x0c80…0ca0 6e 2e 27 29 3b 0d 0a 77 72 69 74 65 28 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆n.'); write(' ┆
0x0ca0…0cc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 2c 72 76 73 6f 6e 2c 27 74 61 73 74 20 3c 52 45 54 ┆ ',rvson,'tast <RET┆
0x0cc0…0ce0 55 52 4e 3e 20 27 2c 72 76 73 6f 66 66 29 3b 0d 0a 72 65 61 64 6c 6e 3b 0d 0a 65 6e 64 3b 20 20 ┆URN> ',rvsoff); readln; end; ┆
0x0ce0…0d00 0d 0a 66 75 6e 63 74 69 6f 6e 20 69 6e 70 75 74 5f 74 61 6c 20 3a 20 69 6e 74 65 67 65 72 3b 0d ┆ function input_tal : integer; ┆
0x0d00…0d20 0a 76 61 72 20 78 2c 70 20 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 63 68 20 20 3a 20 63 ┆ var x,p : integer; ch : c┆
0x0d20…0d40 68 61 72 3b 0d 0a 20 20 20 20 74 61 6c 5f 73 74 72 69 6e 67 20 3a 20 73 74 72 69 6e 67 28 2e 38 ┆har; tal_string : string(.8┆
0x0d40…0d60 2e 29 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 72 65 70 65 61 74 0d 0a 20 20 20 74 61 6c 5f 73 74 72 ┆.); begin repeat tal_str┆
0x0d60…0d80 69 6e 67 3a 3d 27 27 3b 0d 0a 20 20 20 72 65 61 64 28 6b 62 64 2c 63 68 29 3b 0d 0a 20 20 20 77 ┆ing:=''; read(kbd,ch); w┆
0x0d80…0da0 68 69 6c 65 20 63 68 3c 3e 72 65 74 75 72 6e 20 64 6f 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 74 ┆hile ch<>return do begin t┆
0x0da0…0dc0 61 6c 5f 73 74 72 69 6e 67 3a 3d 74 61 6c 5f 73 74 72 69 6e 67 2b 63 68 3b 0d 0a 20 20 20 20 20 ┆al_string:=tal_string+ch; ┆
0x0dc0…0de0 77 72 69 74 65 28 63 68 29 3b 0d 0a 20 20 20 20 20 72 65 61 64 28 6b 62 64 2c 63 68 29 3b 0d 0a ┆write(ch); read(kbd,ch); ┆
0x0de0…0e00 20 20 20 65 6e 64 3b 20 20 0d 0a 20 20 20 76 61 6c 28 74 61 6c 5f 73 74 72 69 6e 67 2c 78 2c 70 ┆ end; val(tal_string,x,p┆
0x0e00…0e20 29 3b 0d 0a 20 20 20 69 66 20 70 3c 3e 30 20 74 68 65 6e 20 77 72 69 74 65 28 63 68 72 28 37 29 ┆); if p<>0 then write(chr(7)┆
0x0e20…0e40 2c 27 3f 3f 27 29 20 3b 0d 0a 20 20 75 6e 74 69 6c 20 70 3d 30 3b 0d 0a 20 20 69 6e 70 75 74 5f ┆,'??') ; until p=0; input_┆
0x0e40…0e60 74 61 6c 3a 3d 78 3b 0d 0a 65 6e 64 3b 20 20 0d 0a 66 75 6e 63 74 69 6f 6e 20 70 63 74 28 78 2c ┆tal:=x; end; function pct(x,┆
0x0e60…0e80 79 20 3a 72 65 61 6c 29 3a 72 65 61 6c 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 69 66 20 79 3d 30 20 ┆y :real):real; begin if y=0 ┆
0x0e80…0ea0 74 68 65 6e 20 70 63 74 3a 3d 30 20 65 6c 73 65 20 70 63 74 3a 3d 78 2f 79 2a 31 30 30 3b 0d 0a ┆then pct:=0 else pct:=x/y*100; ┆
0x0ea0…0ec0 65 6e 64 3b 0d 0a 0d 0a 66 75 6e 63 74 69 6f 6e 20 6d 61 73 6b 65 5f 6b 6f 6e 74 72 6f 6c 28 73 ┆end; function maske_kontrol(s┆
0x0ec0…0ee0 6b 65 6d 61 3a 73 6b 65 6d 61 74 79 70 65 29 3a 62 6f 6f 6c 65 61 6e 3b 0d 0a 20 20 76 61 72 20 ┆kema:skematype):boolean; var ┆
0x0ee0…0f00 69 2c 73 70 6d 20 20 20 20 20 20 20 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 20 20 6f 6b ┆i,spm : integer; ok┆
0x0f00…0f20 20 20 20 20 20 20 20 20 20 20 3a 20 62 6f 6f 6c 65 61 6e 3b 0d 0a 20 62 65 67 69 6e 0d 0a 20 20 ┆ : boolean; begin ┆
0x0f20…0f40 20 69 66 20 6d 61 73 6b 65 66 6c 61 67 20 61 6e 64 20 28 61 6e 74 61 6c 5f 6d 61 73 6b 65 72 3e ┆ if maskeflag and (antal_masker>┆
0x0f40…0f60 30 29 20 74 68 65 6e 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 69 3a 3d 30 3b 0d 0a 20 20 20 20 20 ┆0) then begin i:=0; ┆
0x0f60…0f80 72 65 70 65 61 74 0d 0a 20 20 20 20 20 20 20 69 3a 3d 69 2b 31 3b 0d 0a 20 20 20 20 20 20 20 73 ┆repeat i:=i+1; s┆
0x0f80…0fa0 70 6d 3a 3d 73 69 28 2e 69 2e 29 2e 73 70 3b 0d 0a 20 20 20 20 20 20 20 6f 6b 3a 3d 73 6b 65 6d ┆pm:=si(.i.).sp; ok:=skem┆
0x0fa0…0fc0 61 2e 73 76 61 72 28 2e 73 70 6d 2e 29 20 69 6e 20 73 69 28 2e 69 2e 29 2e 6d 61 73 6b 65 3b 0d ┆a.svar(.spm.) in si(.i.).maske; ┆
0x0fc0…0fe0 0a 20 20 20 20 20 75 6e 74 69 6c 20 28 20 6e 6f 74 20 6f 6b 20 29 20 6f 72 20 28 69 3e 3d 61 6e ┆ until ( not ok ) or (i>=an┆
0x0fe0…1000 74 61 6c 5f 6d 61 73 6b 65 72 29 3b 0d 0a 20 20 20 20 20 6d 61 73 6b 65 5f 6b 6f 6e 74 72 6f 6c ┆tal_masker); maske_kontrol┆
0x1000…1020 3a 3d 6f 6b 3b 0d 0a 20 20 20 20 20 65 6e 64 0d 0a 20 20 20 65 6c 73 65 0d 0a 20 20 20 20 20 6d ┆:=ok; end else m┆
0x1020…1040 61 73 6b 65 5f 6b 6f 6e 74 72 6f 6c 3a 3d 74 72 75 65 3b 20 20 20 20 0d 0a 20 65 6e 64 3b 0d 0a ┆aske_kontrol:=true; end; ┆
0x1040…1060 20 20 20 20 20 20 20 20 0d 0a 70 72 6f 63 65 64 75 72 65 20 67 6f 74 6f 66 65 6c 74 28 6e 72 3a ┆ procedure gotofelt(nr:┆
0x1060…1080 69 6e 74 65 67 65 72 29 3b 0d 0a 76 61 72 20 78 2c 79 20 3a 69 6e 74 65 67 65 72 3b 0d 0a 62 65 ┆integer); var x,y :integer; be┆
0x1080…10a0 67 69 6e 0d 0a 20 20 78 3a 3d 66 65 6c 74 70 6f 73 28 2e 6e 72 2c 31 2e 29 3b 0d 0a 20 20 79 3a ┆gin x:=feltpos(.nr,1.); y:┆
0x10a0…10c0 3d 66 65 6c 74 70 6f 73 28 2e 6e 72 2c 32 2e 29 3b 0d 0a 20 20 67 6f 74 6f 78 79 28 78 2c 79 29 ┆=feltpos(.nr,2.); gotoxy(x,y)┆
0x10c0…10e0 3b 0d 0a 65 6e 64 3b 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 6c 61 65 73 5f 64 69 73 6b 3b 20 ┆; end; procedure laes_disk; ┆
0x10e0…1100 20 28 2a 20 66 61 73 74 6c 7b 67 67 65 72 20 61 6e 74 61 6c 5f 69 6e 64 20 6f 67 20 73 6b 65 6d ┆ (* fastlægger antal_ind og skem┆
0x1100…1120 61 5f 73 74 61 6b 20 2a 29 0d 0a 62 65 67 69 6e 0d 0a 20 20 72 65 73 65 74 28 64 69 73 6b 29 3b ┆a_stak *) begin reset(disk);┆
0x1120…1140 72 65 61 64 28 64 69 73 6b 2c 73 6b 65 6d 61 29 3b 0d 0a 20 20 61 6e 74 61 6c 5f 69 6e 64 3a 3d ┆read(disk,skema); antal_ind:=┆
0x1140…1160 30 3b 0d 0a 20 20 77 68 69 6c 65 20 28 6e 6f 74 20 65 6f 66 28 64 69 73 6b 29 29 20 61 6e 64 20 ┆0; while (not eof(disk)) and ┆
0x1160…1180 28 61 6e 74 61 6c 5f 69 6e 64 3c 6d 61 78 73 6b 65 6d 61 29 20 64 6f 20 62 65 67 69 6e 0d 0a 20 ┆(antal_ind<maxskema) do begin ┆
0x1180…11a0 20 20 20 61 6e 74 61 6c 5f 69 6e 64 3a 3d 61 6e 74 61 6c 5f 69 6e 64 2b 31 3b 0d 0a 20 20 20 20 ┆ antal_ind:=antal_ind+1; ┆
0x11a0…11c0 72 65 61 64 28 64 69 73 6b 2c 73 6b 65 6d 61 73 74 61 6b 28 2e 61 6e 74 61 6c 5f 69 6e 64 2e 29 ┆read(disk,skemastak(.antal_ind.)┆
0x11c0…11e0 29 3b 0d 0a 20 20 65 6e 64 3b 0d 0a 20 20 63 6c 6f 73 65 28 64 69 73 6b 29 3b 0d 0a 20 20 69 66 ┆); end; close(disk); if┆
0x11e0…1200 20 61 6e 74 61 6c 5f 69 6e 64 3e 3d 6d 61 78 73 6b 65 6d 61 20 74 68 65 6e 20 62 65 67 69 6e 0d ┆ antal_ind>=maxskema then begin ┆
0x1200…1220 0a 20 20 20 20 77 72 69 74 65 6c 6e 28 27 44 65 72 20 65 72 20 6d 61 6b 73 69 6d 61 6c 74 20 61 ┆ writeln('Der er maksimalt a┆
0x1220…1240 6e 74 61 6c 20 73 6b 65 6d 61 65 72 2e 27 29 3b 0d 0a 20 20 20 20 77 72 69 74 65 28 27 20 54 61 ┆ntal skemaer.'); write(' Ta┆
0x1240…1260 73 74 20 3c 52 45 54 55 52 4e 3e 20 27 29 3b 0d 0a 20 20 20 20 72 65 61 64 6c 6e 3b 0d 0a 20 20 ┆st <RETURN> '); readln; ┆
0x1260…1280 65 6e 64 3b 20 20 0d 0a 65 6e 64 3b 20 20 20 20 0d 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 74 65 ┆end; end; procedure te┆
0x1280…12a0 6b 73 74 62 69 6c 6c 65 64 28 73 6b 65 6d 61 3a 73 6b 65 6d 61 74 79 70 65 29 3b 0d 0a 28 2a 2a ┆kstbilled(skema:skematype); (**┆
0x12a0…12c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x12e0…1300 2a 2a 2a 2a 2a 2a 2a 2a 29 0d 0a 28 2a 20 44 65 72 20 75 64 73 6b 72 69 76 65 73 20 65 74 20 74 ┆********) (* Der udskrives et t┆
0x1300…1320 65 6b 73 74 62 69 6c 6c 65 64 2c 20 64 65 72 20 69 6e 64 65 68 6f 6c 64 65 72 20 6f 70 6c 79 73 ┆ekstbilled, der indeholder oplys┆
0x1320…1340 6e 69 6e 67 65 72 20 6f 6d 20 69 6e 64 68 6f 6c 64 65 74 20 20 2a 29 0d 0a 28 2a 20 61 66 20 73 ┆ninger om indholdet *) (* af s┆
0x1340…1360 6b 65 6d 61 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆kema. ┆
0x1360…1380 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1380…13a0 20 20 20 2a 29 0d 0a 28 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *) (************************┆
0x13a0…13c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x13c0…13e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 29 0d 0a 76 61 72 20 69 2c 74 61 6c 20 3a ┆******************) var i,tal :┆
0x13e0…1400 69 6e 74 65 67 65 72 3b 0d 0a 62 65 67 69 6e 0d 0a 20 20 77 72 69 74 65 28 63 6c 72 68 6f 6d 29 ┆integer; begin write(clrhom)┆
0x1400…1420 3b 0d 0a 20 20 66 6f 72 20 69 3a 3d 31 20 74 6f 20 61 6e 74 61 6c 73 70 20 64 6f 20 62 65 67 69 ┆; for i:=1 to antalsp do begi┆
0x1420…1440 6e 0d 0a 20 20 20 20 67 6f 74 6f 66 65 6c 74 28 69 29 3b 0d 0a 20 20 20 20 74 61 6c 3a 3d 73 6b ┆n gotofelt(i); tal:=sk┆
0x1440…1460 65 6d 61 2e 73 76 61 72 28 2e 69 2e 29 3b 0d 0a 20 20 20 20 77 72 69 74 65 28 62 61 63 6b 2c 27 ┆ema.svar(.i.); write(back,'┆
0x1460…1480 53 70 2e 20 27 2c 69 3a 32 2c 27 20 20 20 20 27 2c 72 76 73 6f 6e 2c 74 61 6c 3a 32 2c 72 76 73 ┆Sp. ',i:2,' ',rvson,tal:2,rvs┆
0x1480…14a0 6f 66 66 29 3b 0d 0a 20 20 65 6e 64 3b 0d 0a 20 20 67 6f 74 6f 78 79 28 35 2c 32 32 29 3b 0d 0a ┆off); end; gotoxy(5,22); ┆
0x14a0…14c0 20 20 77 72 69 74 65 28 27 53 6b 72 69 76 20 64 65 74 20 72 69 67 74 69 67 65 20 73 76 61 72 20 ┆ write('Skriv det rigtige svar ┆
0x14c0…14e0 2d 20 46 6c 79 74 20 6d 65 64 20 70 69 6c 65 6e 65 20 2d 20 41 66 73 6c 75 74 20 6d 65 64 20 3c ┆- Flyt med pilene - Afslut med <┆
0x14e0…1500 45 53 43 3e 27 29 3b 0d 0a 20 20 67 6f 74 6f 78 79 28 30 2c 30 29 3b 0d 0a 20 20 77 72 69 74 65 ┆ESC>'); gotoxy(0,0); write┆
0x1500…1520 28 27 53 6b 65 6d 61 20 6e 72 3a 27 2c 73 6b 65 6d 61 2e 6e 72 3a 34 29 3b 0d 0a 65 6e 64 3b 0d ┆('Skema nr:',skema.nr:4); end; ┆
0x1520…1540 0a 0d 0a 70 72 6f 63 65 64 75 72 65 20 6c 61 65 73 66 65 6c 74 28 76 61 72 20 74 61 73 74 3a 63 ┆ procedure laesfelt(var tast:c┆
0x1540…1560 68 61 72 3b 76 61 72 20 6f 6b 74 61 6c 3a 62 6f 6f 6c 65 61 6e 3b 76 61 72 20 74 61 6c 20 3a 69 ┆har;var oktal:boolean;var tal :i┆
0x1560…1580 6e 74 65 67 65 72 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6e 72 3a 69 ┆nteger; nr:i┆
0x1580…15a0 6e 74 65 67 65 72 29 3b 0d 0a 28 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆nteger); (*********************┆
0x15a0…15c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x15c0…15e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 29 0d 0a 28 2a 20 74 61 73 74 20 72 65 ┆*******************) (* tast re┆
0x15e0…1600 74 75 6e 65 72 65 20 64 65 6e 20 73 69 64 73 74 65 20 74 61 73 74 2c 20 64 65 72 20 65 72 20 72 ┆tunere den sidste tast, der er r┆
0x1600…1620 7c 72 74 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 ┆ørt. *)┆
0x1620…1640 0d 0a 28 2a 20 6f 6b 74 61 6c 20 65 72 20 73 61 6e 64 2c 20 68 76 69 73 20 74 61 6c 20 65 72 20 ┆ (* oktal er sand, hvis tal er ┆
0x1640…1660 65 74 20 74 61 6c 2c 20 64 65 72 20 6b 61 6e 20 62 72 75 67 65 73 2e 20 20 20 20 20 20 20 20 20 ┆et tal, der kan bruges. ┆
0x1660…1680 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 28 2a 20 6e 72 20 61 6e 67 69 76 65 72 20 69 20 68 76 ┆ *) (* nr angiver i hv┆
0x1680…16a0 69 6c 6b 65 74 20 66 65 6c 74 2c 20 64 65 72 20 6c 7b 73 65 73 2e 20 20 20 20 20 20 20 20 20 20 ┆ilket felt, der læses. ┆
0x16a0…16c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 29 0d 0a 28 2a 2a 2a 2a 2a ┆ *) (*****┆
0x16c0…16e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
[…0x1…]
0x1700…1720 2a 2a 2a 29 0d 0a 76 61 72 20 74 61 6c 73 74 72 69 6e 67 20 3a 20 73 74 72 69 6e 67 28 2e 32 2e ┆***) var talstring : string(.2.┆
0x1720…1740 29 3b 0d 0a 20 20 20 20 78 2c 70 20 20 20 20 20 20 20 3a 20 69 6e 74 65 67 65 72 3b 0d 0a 20 20 ┆); x,p : integer; ┆
0x1740…1760 20 20 73 6c 75 74 2c 6f 6b 20 20 20 3a 20 62 6f 6f 6c 65 61 6e 3b 0d 0a 62 65 67 69 6e 0d 0a 20 ┆ slut,ok : boolean; begin ┆
0x1760…1780 20 20 72 65 70 65 61 74 0d 0a 20 20 20 20 20 74 61 6c 73 74 72 69 6e 67 3a 3d 27 27 3b 67 6f 74 ┆ repeat talstring:='';got┆
0x1780…17a0 6f 66 65 6c 74 28 6e 72 29 3b 73 6c 75 74 3a 3d 66 61 6c 73 65 3b 0d 0a 20 20 20 20 20 72 65 70 ┆ofelt(nr);slut:=false; rep┆
0x17a0…17c0 65 61 74 0d 0a 20 20 20 20 20 20 20 72 65 61 64 28 6b 62 64 2c 74 61 73 74 29 3b 0d 0a 20 20 20 ┆eat read(kbd,tast); ┆
0x17c0…17e0 20 20 20 20 63 61 73 65 20 74 61 73 74 20 6f 66 0d 0a 20 20 20 20 20 20 20 27 30 27 2e 2e 27 39 ┆ case tast of '0'..'9┆
0x17e0…1800 27 3a 20 20 20 20 20 20 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆': begin ┆
0x1800…1820 20 20 20 20 20 20 20 20 69 66 20 6c 65 6e 28 74 61 6c 73 74 72 69 6e 67 29 3d 30 20 74 68 65 6e ┆ if len(talstring)=0 then┆
0x1820…1840 20 77 72 69 74 65 28 27 20 20 27 2c 40 38 40 38 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ write(' ',@8@8); ┆
0x1840…1860 20 20 20 20 20 20 20 20 20 20 20 20 74 61 6c 73 74 72 69 6e 67 3a 3d 74 61 6c 73 74 72 69 6e 67 ┆ talstring:=talstring┆
0x1860…1880 2b 74 61 73 74 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆+tast; ┆
0x1880…18a0 77 72 69 74 65 28 74 61 73 74 29 3b 65 6e 64 3b 0d 0a 20 20 20 20 20 20 20 6f 70 2c 6e 65 64 2c ┆write(tast);end; op,ned,┆
0x18a0…18c0 76 65 6e 73 74 72 65 2c 0d 0a 20 20 20 20 20 20 20 68 6f 65 6a 72 65 2c 72 65 74 75 72 6e 20 3a ┆venstre, hoejre,return :┆
0x18c0…18e0 20 62 65 67 69 6e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 ┆ begin s┆
0x18e0…1900 6c 75 74 3a 3d 74 72 75 65 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆lut:=true; ┆
0x1900…1920 20 20 20 69 66 20 6c 65 6e 28 74 61 6c 73 74 72 69 6e 67 29 3e 30 20 74 68 65 6e 20 62 65 67 69 ┆ if len(talstring)>0 then begi┆
[…truncated at 200 lines…]