|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 32256 (0x7e00)
Types: Rc489kSubCat
Names: »div«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »div«
0x0000…0033 (0,) Rc489kSubCatEnt {f00=0x00122b, f01=0x000276, f02=0x00027f, filename=»tremovespt «, entry_tail=0-4-0-1-1981-07-15T15:22-disc1-0x0-0x0-0x0-0x0}
0x0033…0066 Rc489kSubCatEnt {f00=0x00231b, f01=0x000276, f02=0x00027f, filename=»tndithelp1 «, entry_tail=0-4-0-14-1981-07-27T12:10-disc1-0x0-0x0-0x0-0x0}
0x0066…0099 Rc489kSubCatEnt {f00=0x010333, f01=0x000276, f02=0x00027f, filename=»tremovespl «, entry_tail=0-4-0-1-1981-07-14T16:03-disc1-0x0-0x0-0x0-0x0}
0x0099…00cc Rc489kSubCatEnt {f00=0x0114a3, f01=0x000276, f02=0x00027f, filename=»tnltypesep «, entry_tail=0-4-0-1-1981-07-15T15:21-disc1-0x0-0x0-0x0-0x0}
0x00cc…00ff Rc489kSubCatEnt {f00=0x0128d3, f01=0x000276, f02=0x00027f, filename=»tndithelp2 «, entry_tail=0-4-0-13-1981-07-22T19:19-disc1-0x0-0x0-0x0-0x0}
0x00ff…0132 Rc489kSubCatEnt {f00=0x01fae3, f01=0x000276, f02=0x00027f, filename=»tremovenld «, entry_tail=0-4-0-1-1981-07-14T16:16-disc1-0x0-0x0-0x0-0x0}
0x0132…0140 00 00 00 01 a2 04 01 99 5e 01 96 a8 01 98 ┆ ^ ┆
0x0140…0160 e6 01 a0 a8 01 98 e2 01 98 d0 01 9d b0 01 98 c6 01 96 86 01 99 44 01 a1 38 01 99 50 01 9f d2 01 ┆ D 8 P ┆
0x0160…0180 99 54 01 99 56 00 00 00 00 00 03 20 20 20 20 20 20 20 20 00 00 00 00 00 00 1f 65 78 74 20 00 00 ┆ T V ext ┆
0x0180…01a0 6c 69 6e 65 00 00 0a 63 61 6c 6c 65 64 20 66 72 6f 6d 20 20 20 20 20 00 0a 00 00 00 40 21 00 00 ┆line called from @! ┆
0x01a0…01c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2f 00 00 5f 8f c8 53 8f a8 50 ┆ / _ S P┆
0x01c0…01e0 3f dc a4 00 00 2c 00 00 53 3f d8 9b 40 00 9b 00 0b 6b 80 83 6b 80 87 50 cf a4 a8 00 01 34 80 86 ┆? , S? @ k k P 4 ┆
0x01e0…0200 5e 8f e0 68 80 77 68 80 7b d8 10 02 dc 8f ce 50 10 04 5c 8f cc 34 80 76 52 cf 9c 1e 2f fc 51 20 ┆^ h wh æ P Ø 4 vR / Q ┆
0x0200…0220 00 50 cf 90 a2 40 00 ad 00 00 34 80 10 2f 00 00 2c 00 01 5f 20 00 dc cf 70 50 cf 86 53 8f 68 34 ┆ P @ 4 / , _ pP S h4┆
0x0220…0240 36 82 52 cf 76 a2 00 00 34 80 10 53 cf 74 5f cf 66 37 cf 72 24 cf 6c 51 0f fe 2d 10 06 37 cf 5e ┆6 R v 4 S t_ f7 r$ lQ - 7 ^┆
0x0240…0260 a6 00 00 34 80 08 2c 00 10 51 cf 64 37 cf 54 53 8f 46 52 3f 64 2d 3f 44 38 08 12 52 3f 68 aa 00 ┆ 4 , Q d7 TS FR?d-?D8 R?h ┆
0x0260…0280 01 34 80 1a 52 3f 66 d9 20 04 dd 37 b4 d9 20 08 dd 37 b8 2f 37 b2 2d 8f 6e 38 08 10 34 80 00 2c ┆ 4 R?f 7 7 /7 - n8 4 ,┆
0x0280…02a0 8f 66 37 80 0c 34 8f a2 aa 00 00 37 39 54 da cf 20 37 39 64 af 30 00 34 cf 26 34 30 00 af 30 00 ┆ f7 4 79T 79d 0 4 &40 0 ┆
0x02a0…02c0 34 cf 12 34 30 02 2c 10 00 37 8f f2 b4 00 01 34 80 0a 2c 20 00 37 8f f0 82 00 06 24 00 04 2c 8f ┆4 40 , 7 4 , 7 $ , ┆
0x02c0…02e0 1e 37 8f e2 52 8e f8 51 27 ba a5 00 0a 34 8f cc 2d 10 01 5d 27 ba d8 27 b6 53 30 00 68 80 31 51 ┆ 7 R Q' 4 - Å' ' S0 h 1Q┆
0x02e0…02fd 31 fe 11 8f 04 5d 27 c8 a1 00 02 a1 00 00 34 80 62 2c 8f 06 ad 00 02 2c 8f 06 5c 27 c6 ┆1 Å' 4 b, , Ø' ┆
0x02fd…0300 0x000006
0x0300…0600 Data for tremovespt
0x0600…3000 Data for tndithelp1
0x3000…3300 Data for tremovespl
0x3300…3600 Data for tnltypesep
0x3600…5d00 (6,) Data for tndithelp2
0x5d00…6000 Data for tremovenld
0x6000…6020 6c 61 74 69 6f 6e 20 3a 3d 20 61 6b 75 6d 75 6c 61 74 69 6f 6e 20 2b 20 28 70 6f 73 69 74 69 6f ┆lation := akumulation + (positio┆
0x6020…6040 6e 20 2a 20 28 74 65 67 6e 5f 76 7b 72 64 69 20 2d 20 27 30 27 29 29 3b 0a 20 20 20 20 70 6f 73 ┆n * (tegn_værdi - '0')); pos┆
0x6040…6060 69 74 69 6f 6e 20 3a 3d 20 70 6f 73 69 74 69 6f 6e 20 2a 20 30 2e 31 3b 0a 20 20 20 20 65 6e 64 ┆ition := position * 0.1; end┆
0x6060…6080 3b 0a 20 20 65 6e 64 3b 0a 76 7b 72 64 69 20 3a 3d 20 61 6b 75 6d 75 6c 61 74 69 6f 6e 3b 0a 72 ┆; end; værdi := akumulation; r┆
0x6080…60a0 65 70 65 61 74 63 68 61 72 28 69 6e 29 3b 0a 6e 7b 73 74 65 5f 74 61 6c 20 3a 3d 20 76 7b 72 64 ┆epeatchar(in); næste_tal := værd┆
0x60a0…60c0 69 3b 0a 69 66 20 74 65 73 74 28 31 29 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c ┆i; if test(1) then write(out,<:<┆
0x60c0…60e0 31 30 3e 2a 2a 2a 2a 2a 54 31 3a 20 28 6e 7b 73 74 65 5f 74 61 6c 29 20 3d 20 3a 3e 2c 0a 20 20 ┆10>*****T1: (næste_tal) = :>, ┆
0x60e0…6100 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3c 2d 64 64 64 64 64 ┆ <<-ddddd┆
0x6100…6120 2e 64 64 64 3e 2c 76 7b 72 64 69 29 3b 0a 65 6e 64 20 6e 7b 73 74 65 5f 74 61 6c 3b 0a 0a 6c 6f ┆.ddd>,værdi); end næste_tal; lo┆
0x6120…6140 6e 67 20 70 72 6f 63 65 64 75 72 65 20 6e 7b 73 74 65 5f 6f 72 64 5f 36 28 6e 61 76 6e 29 3b 0a ┆ng procedure næste_ord_6(navn); ┆
0x6140…6160 3c 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 ┆<*******************************┆
0x6160…6180 2a 3e 0a 6c 6f 6e 67 20 6e 61 76 6e 3b 0a 62 65 67 69 6e 0a 69 6e 74 65 67 65 72 20 74 65 67 6e ┆*> long navn; begin integer tegn┆
0x6180…61a0 5f 69 6e 64 65 78 5f 73 68 69 66 74 2c 74 65 67 6e 5f 76 7b 72 64 69 2c 74 65 67 6e 5f 6b 6c 61 ┆_index_shift,tegn_værdi,tegn_kla┆
0x61a0…61c0 73 73 65 3b 0a 6c 6f 6e 67 20 70 61 6b 6b 65 5f 6e 61 76 6e 3b 0a 70 61 6b 6b 65 5f 6e 61 76 6e ┆sse; long pakke_navn; pakke_navn┆
0x61c0…61e0 20 3a 3d 20 30 3b 0a 74 65 67 6e 5f 69 6e 64 65 78 5f 73 68 69 66 74 20 3a 3d 20 35 3b 0a 66 6f ┆ := 0; tegn_index_shift := 5; fo┆
0x61e0…6200 72 20 74 65 67 6e 5f 6b 6c 61 73 73 65 20 3a 3d 20 72 65 61 64 5f 63 68 61 72 28 69 6e 2c 74 65 ┆r tegn_klasse := read_char(in,te┆
0x6200…6220 67 6e 5f 76 7b 72 64 69 29 20 77 68 69 6c 65 20 74 65 67 6e 5f 6b 6c 61 73 73 65 20 3d 20 36 0a ┆gn_værdi) while tegn_klasse = 6 ┆
0x6220…6240 20 20 6f 72 20 28 20 74 65 67 6e 5f 6b 6c 61 73 73 65 20 3d 20 32 20 61 6e 64 20 74 65 67 6e 5f ┆ or ( tegn_klasse = 2 and tegn_┆
0x6240…6260 69 6e 64 65 78 5f 73 68 69 66 74 20 3c 3e 20 35 29 20 20 20 0a 20 20 6f 72 20 74 65 67 6e 5f 76 ┆index_shift <> 5) or tegn_v┆
0x6260…6280 7b 72 64 69 20 3d 20 31 32 36 20 64 6f 0a 20 20 62 65 67 69 6e 0a 20 20 69 66 20 74 65 67 6e 5f ┆ærdi = 126 do begin if tegn_┆
0x6280…62a0 69 6e 64 65 78 5f 73 68 69 66 74 20 3e 3d 20 30 20 61 6e 64 20 74 65 67 6e 5f 76 7b 72 64 69 20 ┆index_shift >= 0 and tegn_værdi ┆
0x62a0…62c0 3c 3e 20 31 32 36 20 74 68 65 6e 0a 20 20 20 20 70 61 6b 6b 65 5f 6e 61 76 6e 20 3a 3d 20 70 61 ┆<> 126 then pakke_navn := pa┆
0x62c0…62e0 6b 6b 65 5f 6e 61 76 6e 20 2b 20 28 65 78 74 65 6e 64 20 28 74 65 67 6e 5f 76 7b 72 64 69 20 65 ┆kke_navn + (extend (tegn_værdi e┆
0x62e0…6300 78 74 72 61 63 74 20 38 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 68 69 66 ┆xtract 8) shif┆
0x6300…6320 (11,) 74 20 28 38 2a 74 65 67 6e 5f 69 6e 64 65 78 5f 73 68 69 66 74 29 29 3b 0a 20 20 69 66 20 74 65 ┆t (8*tegn_index_shift)); if te┆
0x6320…6340 67 6e 5f 76 7b 72 64 69 20 3c 3e 20 31 32 36 20 74 68 65 6e 20 74 65 67 6e 5f 69 6e 64 65 78 5f ┆gn_værdi <> 126 then tegn_index_┆
0x6340…6360 73 68 69 66 74 20 3a 3d 20 74 65 67 6e 5f 69 6e 64 65 78 5f 73 68 69 66 74 20 2d 20 31 3b 0a 20 ┆shift := tegn_index_shift - 1; ┆
0x6360…6380 20 65 6e 64 3b 0a 6e 7b 73 74 65 5f 6f 72 64 5f 36 20 3a 3d 20 6e 61 76 6e 20 3a 3d 20 70 61 6b ┆ end; næste_ord_6 := navn := pak┆
0x6380…63a0 6b 65 5f 6e 61 76 6e 3b 0a 72 65 70 65 61 74 63 68 61 72 28 69 6e 29 3b 0a 69 66 20 74 65 73 74 ┆ke_navn; repeatchar(in); if test┆
0x63a0…63c0 28 31 29 20 74 68 65 6e 0a 20 20 62 65 67 69 6e 0a 20 20 6c 6f 6e 67 20 61 72 72 61 79 20 74 65 ┆(1) then begin long array te┆
0x63c0…63e0 73 74 5f 6e 61 76 6e 28 31 3a 32 29 3b 0a 20 20 74 65 73 74 5f 6e 61 76 6e 28 31 29 20 3a 3d 20 ┆st_navn(1:2); test_navn(1) := ┆
0x63e0…6400 70 61 6b 6b 65 5f 6e 61 76 6e 3b 0a 20 20 74 65 73 74 5f 6e 61 76 6e 28 32 29 20 3a 3d 20 30 3b ┆pakke_navn; test_navn(2) := 0;┆
0x6400…6420 0a 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 2a 2a 2a 2a 54 31 20 28 6e 7b 73 74 65 ┆ write(out,<:<10>****T1 (næste┆
0x6420…6440 20 6f 72 64 20 29 20 3d 20 3a 3e 2c 74 65 73 74 5f 6e 61 76 6e 29 3b 0a 20 20 65 6e 64 3b 0a 65 ┆ ord ) = :>,test_navn); end; e┆
0x6440…6460 6e 64 20 6e 7b 73 74 65 5f 6f 72 64 5f 36 3b 0a 0a 69 6e 74 65 67 65 72 20 70 72 6f 63 65 64 75 ┆nd næste_ord_6; integer procedu┆
0x6460…6480 72 65 20 73 65 5f 66 72 65 6d 61 64 28 6e 7b 73 74 65 5f 61 72 74 29 3b 0a 3c 2a 2a 2a 2a 2a 2a ┆re se_fremad(næste_art); <******┆
0x6480…64a0 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 3e ┆*******************************>┆
0x64a0…64c0 0a 69 6e 74 65 67 65 72 20 6e 7b 73 74 65 5f 61 72 74 3b 0a 62 65 67 69 6e 0a 3c 2a 20 6e 7b 73 ┆ integer næste_art; begin <* næs┆
0x64c0…64e0 74 65 5f 61 72 74 20 3d 20 30 20 66 6f 72 20 6e 79 20 6c 69 6e 69 65 65 28 3c 61 66 6c 65 76 65 ┆te_art = 0 for ny liniee(<afleve┆
0x64e0…6500 72 65 73 6d 69 6b 6b 65 6b 61 66 20 73 65 5f 66 72 65 6d 61 64 29 3b 0a 20 20 20 6e 7b 73 74 65 ┆resmikkekaf se_fremad); næste┆
0x6500…6520 5f 61 72 74 20 3d 20 31 20 66 6f 72 20 74 61 6c 0a 20 20 20 6e 7b 73 74 65 5f 61 72 74 20 3d 20 ┆_art = 1 for tal næste_art = ┆
0x6520…6540 32 20 66 6f 72 20 73 79 6d 62 6f 6c 0a 20 20 20 6e 7b 73 74 65 5f 61 72 74 20 3d 20 33 20 66 6f ┆2 for symbol næste_art = 3 fo┆
0x6540…6560 72 20 6f 72 64 0a 20 20 20 6e 7b 73 74 65 5f 61 72 74 20 3d 20 34 20 62 72 75 67 65 73 20 69 6b ┆r ord næste_art = 4 bruges ik┆
0x6560…6580 6b 65 0a 20 20 20 6e 7b 73 74 65 5f 61 72 74 20 3d 20 35 20 66 6f 72 20 65 6e 64 20 6d 65 64 69 ┆ke næste_art = 5 for end medi┆
0x6580…65a0 75 6d 20 2a 3e 0a 69 6e 74 65 67 65 72 20 74 65 67 6e 5f 76 7b 72 64 69 2c 74 65 67 6e 5f 6b 6c ┆um *> integer tegn_værdi,tegn_kl┆
0x65a0…65c0 61 73 73 65 3b 0a 3c 2a 20 73 74 61 6e 64 61 72 64 20 74 65 67 6e 20 74 61 62 65 6c 20 2a 3e 0a ┆asse; <* standard tegn tabel *> ┆
0x65c0…65e0 74 65 67 6e 5f 6b 6c 61 73 73 65 20 3a 3d 20 72 65 61 64 63 68 61 72 28 69 6e 2c 74 65 67 6e 5f ┆tegn_klasse := readchar(in,tegn_┆
0x65e0…6600 76 7b 72 64 69 29 3b 0a 73 65 5f 66 72 65 6d 61 64 20 3a 3d 20 74 65 67 6e 5f 76 7b 72 64 69 3b ┆værdi); se_fremad := tegn_værdi;┆
0x6600…6620 0a 63 61 73 65 20 74 65 67 6e 5f 6b 6c 61 73 73 65 2b 31 20 6f 66 0a 20 20 62 65 67 69 6e 0a 20 ┆ case tegn_klasse+1 of begin ┆
0x6620…6640 20 3c 2a 20 6b 6c 61 73 73 65 20 30 20 73 6b 69 70 20 2a 3e 0a 20 20 73 65 5f 66 72 65 6d 61 64 ┆ <* klasse 0 skip *> se_fremad┆
0x6640…6660 20 3a 3d 20 73 65 5f 66 72 65 6d 61 64 28 6e 7b 73 74 65 5f 61 72 74 29 3b 0a 20 20 0a 20 20 3c ┆ := se_fremad(næste_art); <┆
0x6660…6680 2a 20 69 6c 6c 65 67 61 6c 20 6f 70 66 61 74 74 65 73 20 73 6f 6d 20 27 65 6d 27 20 2a 3e 0a 20 ┆* illegal opfattes som 'em' *> ┆
0x6680…66a0 20 62 65 67 69 6e 0a 20 20 6e 7b 73 74 65 5f 61 72 74 20 3a 3d 20 35 3b 0a 20 20 65 6e 64 3b 0a ┆ begin næste_art := 5; end; ┆
0x66a0…66c0 0a 20 20 3c 2a 20 6b 6c 61 73 73 65 20 32 20 74 61 6c 20 2a 3e 0a 20 20 62 65 67 69 6e 0a 20 20 ┆ <* klasse 2 tal *> begin ┆
0x66c0…66e0 6e 7b 73 74 65 5f 61 72 74 20 3a 3d 20 31 3b 0a 20 20 72 65 70 65 61 74 5f 63 68 61 72 28 69 6e ┆næste_art := 1; repeat_char(in┆
0x66e0…6700 29 3b 0a 20 20 65 6e 64 3b 0a 0a 20 20 3c 2a 20 6b 6c 61 73 73 65 20 33 20 73 79 6d 62 6f 6c 20 ┆); end; <* klasse 3 symbol ┆
0x6700…6720 2a 3e 0a 20 20 62 65 67 69 6e 0a 20 20 6e 7b 73 74 65 5f 61 72 74 20 3a 3d 20 32 3b 0a 20 20 72 ┆*> begin næste_art := 2; r┆
0x6720…6740 65 70 65 61 74 5f 63 68 61 72 28 69 6e 29 3b 0a 20 20 65 6e 64 3b 0a 0a 20 20 3c 2a 20 6b 6c 61 ┆epeat_char(in); end; <* kla┆
0x6740…6760 73 73 65 20 34 20 73 79 6d 62 6f 6c 20 2a 3e 0a 20 20 62 65 67 69 6e 0a 20 20 6e 7b 73 74 65 5f ┆sse 4 symbol *> begin næste_┆
0x6760…6780 61 72 74 20 3a 3d 20 32 3b 0a 20 20 72 65 70 65 61 74 5f 63 68 61 72 28 69 6e 29 3b 0a 20 20 65 ┆art := 2; repeat_char(in); e┆
0x6780…67a0 6e 64 3b 0a 0a 20 20 3c 2a 20 6b 6c 61 73 73 65 20 35 20 20 73 79 6d 62 6f 6c 20 2a 3e 0a 20 20 ┆nd; <* klasse 5 symbol *> ┆
0x67a0…67c0 62 65 67 69 6e 0a 20 20 6e 7b 73 74 65 5f 61 72 74 20 3a 3d 20 32 3b 0a 20 20 72 65 70 65 61 74 ┆begin næste_art := 2; repeat┆
0x67c0…67e0 63 68 61 72 28 69 6e 29 3b 0a 20 20 65 6e 64 3b 0a 0a 20 20 3c 2a 20 6b 6c 61 73 73 65 20 36 20 ┆char(in); end; <* klasse 6 ┆
0x67e0…6800 6e 61 76 6e 20 2a 3e 0a 20 20 62 65 67 69 6e 0a 20 20 6e 7b 73 74 65 5f 61 72 74 20 3a 3d 20 33 ┆navn *> begin næste_art := 3┆
0x6800…6820 3b 0a 20 20 72 65 70 65 61 74 63 68 61 72 28 69 6e 29 3b 0a 20 20 65 6e 64 3b 0a 0a 20 20 3c 2a ┆; repeatchar(in); end; <*┆
0x6820…6840 20 6b 6c 61 73 73 65 20 37 20 73 79 6d 62 6f 6c 20 2a 3e 0a 20 20 62 65 67 69 6e 0a 20 20 69 66 ┆ klasse 7 symbol *> begin if┆
0x6840…6860 20 74 65 67 6e 5f 76 7b 72 64 69 20 3d 20 27 73 70 27 20 74 68 65 6e 0a 20 20 20 20 73 65 5f 66 ┆ tegn_værdi = 'sp' then se_f┆
0x6860…6880 72 65 6d 61 64 20 3a 3d 20 73 65 5f 66 72 65 6d 61 64 28 6e 7b 73 74 65 5f 61 72 74 29 20 0a 20 ┆remad := se_fremad(næste_art) ┆
0x6880…68a0 20 20 65 6c 73 65 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 6e 7b 73 74 65 5f 61 72 74 20 3a ┆ else begin næste_art :┆
0x68a0…68c0 3d 20 32 3b 0a 20 20 20 20 72 65 70 65 61 74 63 68 61 72 28 69 6e 29 3b 0a 20 20 20 20 65 6e 64 ┆= 2; repeatchar(in); end┆
0x68c0…68e0 3b 0a 20 20 65 6e 64 3b 0a 0a 20 20 3c 2a 20 6b 6c 61 73 73 65 20 38 20 65 6e 64 20 6d 65 64 69 ┆; end; <* klasse 8 end medi┆
0x68e0…6900 75 6d 20 65 6c 6c 65 72 20 73 6b 69 70 20 2a 3e 0a 20 20 62 65 67 69 6e 0a 20 20 69 66 20 74 65 ┆um eller skip *> begin if te┆
0x6900…6920 67 6e 5f 76 7b 72 64 69 20 3d 20 27 65 6d 27 20 74 68 65 6e 20 0a 20 20 20 20 62 65 67 69 6e 0a ┆gn_værdi = 'em' then begin ┆
0x6920…6940 20 20 20 20 6e 7b 73 74 65 5f 61 72 74 20 3a 3d 20 35 3b 0a 20 20 20 20 72 65 70 65 61 74 5f 63 ┆ næste_art := 5; repeat_c┆
0x6940…6960 68 61 72 28 69 6e 29 3b 0a 20 20 20 20 65 6e 64 0a 20 20 20 65 6c 73 65 0a 20 20 20 20 73 65 5f ┆har(in); end else se_┆
0x6960…6980 66 72 65 6d 61 64 20 3a 3d 20 73 65 5f 66 72 65 6d 61 64 28 6e 7b 73 74 65 5f 61 72 74 29 3b 0a ┆fremad := se_fremad(næste_art); ┆
0x6980…69a0 20 20 65 6e 64 3b 0a 20 20 65 6e 64 20 61 6c 6c 65 20 63 61 73 65 20 73 69 74 75 61 74 69 6f 6e ┆ end; end alle case situation┆
0x69a0…69c0 65 72 3b 0a 3c 2a 20 54 45 53 54 20 2a 3e 0a 69 66 20 74 65 73 74 28 31 29 20 74 68 65 6e 20 77 ┆er; <* TEST *> if test(1) then w┆
0x69c0…69e0 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 2a 2a 2a 2a 54 31 3a 20 28 6e 7b 73 74 65 20 61 72 ┆rite(out,<:<10>****T1: (næste ar┆
0x69e0…6a00 74 20 29 20 3d 20 3a 3e 2c 6e 7b 73 74 65 5f 61 72 74 29 3b 0a 65 6e 64 20 70 72 6f 63 65 64 75 ┆t ) = :>,næste_art); end procedu┆
0x6a00…6a20 72 65 20 73 65 66 72 65 6d 61 64 3b 0a 0a 6c 6f 6e 67 20 61 72 72 61 79 20 76 61 72 5f 6e 61 76 ┆re sefremad; long array var_nav┆
0x6a20…6a40 6e 28 31 3a 76 61 72 5f 6d 61 78 29 3b 0a 72 65 61 6c 20 61 72 72 61 79 20 76 61 72 5f 76 61 6c ┆n(1:var_max); real array var_val┆
0x6a40…6a60 75 65 28 31 3a 76 61 72 5f 6d 61 78 29 3b 0a 3c 2a 20 76 61 72 69 61 62 65 6c 20 74 61 62 65 6c ┆ue(1:var_max); <* variabel tabel┆
0x6a60…6a80 20 6e 61 76 6e 2c 76 7b 72 64 69 2c 61 72 74 0a 20 20 20 28 20 61 72 74 20 65 6e 64 6e 75 20 69 ┆ navn,værdi,art ( art endnu i┆
0x6a80…6aa0 6b 6b 65 20 62 72 75 67 74 20 29 0a 20 20 20 76 61 72 5f 6d 61 78 20 61 6e 67 69 76 65 72 20 74 ┆kke brugt ) var_max angiver t┆
0x6aa0…6ac0 61 62 65 6c 6c 65 6e 73 20 73 74 7c 72 65 6c 73 65 2c 0a 20 20 20 76 61 72 5f 74 6f 70 20 73 69 ┆abellens størelse, var_top si┆
0x6ac0…6ae0 64 73 74 20 69 6e 64 73 61 74 74 65 20 76 61 72 69 61 62 65 6c 2c 0a 20 20 20 76 61 72 5f 74 6f ┆dst indsatte variabel, var_to┆
0x6ae0…6b00 70 20 76 69 6c 20 66 6f 72 73 76 69 6e 64 65 20 76 65 64 20 65 6e 20 6d 65 72 65 20 61 76 61 6e ┆p vil forsvinde ved en mere avan┆
0x6b00…6b20 63 65 72 65 74 0a 20 20 20 6c 61 67 72 69 6e 67 73 20 73 74 72 75 6b 74 75 72 2e 20 2a 3e 0a 69 ┆ceret lagrings struktur. *> i┆
0x6b20…6b40 6e 74 65 67 65 72 20 76 61 72 5f 74 6f 70 3b 0a 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 76 61 ┆nteger var_top; integer array va┆
0x6b40…6b60 72 5f 61 72 74 28 31 3a 76 61 72 5f 6d 61 78 29 3b 0a 0a 0a 62 6f 6f 6c 65 61 6e 20 70 72 6f 63 ┆r_art(1:var_max); boolean proc┆
0x6b60…6b80 65 64 75 72 65 20 6e 79 5f 76 61 72 28 6e 61 76 6e 2c 76 7b 72 64 69 29 3b 0a 3c 2a 2a 2a 2a 2a ┆edure ny_var(navn,værdi); <*****┆
0x6b80…6ba0 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 3e 0a 76 61 ┆****************************> va┆
0x6ba0…6bc0 6c 75 65 20 6e 61 76 6e 2c 76 7b 72 64 69 3b 20 6c 6f 6e 67 20 6e 61 76 6e 3b 20 72 65 61 6c 20 ┆lue navn,værdi; long navn; real ┆
0x6bc0…6be0 76 7b 72 64 69 3b 0a 62 65 67 69 6e 0a 69 66 20 76 61 72 5f 74 6f 70 20 2b 20 31 20 3e 20 76 61 ┆værdi; begin if var_top + 1 > va┆
0x6be0…6c00 72 5f 6d 61 78 20 74 68 65 6e 0a 20 20 6e 79 5f 76 61 72 20 3a 3d 20 66 61 6c 73 65 0a 20 65 6c ┆r_max then ny_var := false el┆
0x6c00…6c20 (12,) 73 65 0a 20 20 62 65 67 69 6e 0a 20 20 76 61 72 5f 74 6f 70 20 3a 3d 20 76 61 72 5f 74 6f 70 20 ┆se begin var_top := var_top ┆
0x6c20…6c40 2b 20 31 3b 0a 20 20 76 61 72 5f 6e 61 76 6e 28 76 61 72 5f 74 6f 70 29 20 3a 3d 20 6e 61 76 6e ┆+ 1; var_navn(var_top) := navn┆
0x6c40…6c60 3b 0a 20 20 76 61 72 5f 76 61 6c 75 65 28 76 61 72 5f 74 6f 70 29 20 3a 3d 20 76 7b 72 64 69 3b ┆; var_value(var_top) := værdi;┆
0x6c60…6c80 0a 20 20 6e 79 5f 76 61 72 20 3a 3d 20 74 72 75 65 3b 0a 20 20 65 6e 64 3b 0a 65 6e 64 20 20 6e ┆ ny_var := true; end; end n┆
0x6c80…6ca0 79 5f 76 61 72 3b 0a 0a 62 6f 6f 6c 65 61 6e 20 70 72 6f 63 65 64 75 72 65 20 66 69 6e 64 5f 76 ┆y_var; boolean procedure find_v┆
0x6ca0…6cc0 61 72 28 6e 61 76 6e 2c 76 7b 72 64 69 2c 74 61 62 5f 69 6e 64 65 78 29 3b 0a 3c 2a 2a 2a 2a 2a ┆ar(navn,værdi,tab_index); <*****┆
0x6cc0…6ce0 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 ┆********************************┆
0x6ce0…6d00 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e 0a 76 61 6c 75 65 20 6e 61 76 6e 3b 20 6c 6f 6e 67 20 6e 61 76 6e ┆*********> value navn; long navn┆
0x6d00…6d20 3b 20 72 65 61 6c 20 76 7b 72 64 69 3b 20 69 6e 74 65 67 65 72 20 74 61 62 5f 69 6e 64 65 78 3b ┆; real værdi; integer tab_index;┆
0x6d20…6d40 0a 62 65 67 69 6e 0a 62 6f 6f 6c 65 61 6e 20 66 75 6e 64 65 74 3b 20 69 6e 74 65 67 65 72 20 69 ┆ begin boolean fundet; integer i┆
0x6d40…6d60 6e 64 65 78 3b 0a 66 75 6e 64 65 74 20 3a 3d 20 66 61 6c 73 65 3b 0a 66 6f 72 20 69 6e 64 65 78 ┆ndex; fundet := false; for index┆
0x6d60…6d80 20 3a 3d 20 30 2c 20 69 6e 64 65 78 2b 31 20 77 68 69 6c 65 20 69 6e 64 65 78 20 3c 20 76 61 72 ┆ := 0, index+1 while index < var┆
0x6d80…6da0 5f 74 6f 70 20 20 61 6e 64 20 2d 2c 20 66 75 6e 64 65 74 20 64 6f 0a 20 20 66 75 6e 64 65 74 20 ┆_top and -, fundet do fundet ┆
0x6da0…6dc0 3a 3d 20 69 66 20 6e 61 76 6e 20 3d 20 76 61 72 5f 6e 61 76 6e 28 69 6e 64 65 78 2b 31 29 20 74 ┆:= if navn = var_navn(index+1) t┆
0x6dc0…6de0 68 65 6e 20 74 72 75 65 20 65 6c 73 65 20 66 61 6c 73 65 3b 0a 66 69 6e 64 5f 76 61 72 20 3a 3d ┆hen true else false; find_var :=┆
0x6de0…6e00 20 66 75 6e 64 65 74 3b 0a 74 61 62 5f 69 6e 64 65 78 20 3a 3d 20 69 6e 64 65 78 3b 0a 76 7b 72 ┆ fundet; tab_index := index; vær┆
0x6e00…6e20 64 69 20 3a 3d 20 76 61 72 5f 76 61 6c 75 65 28 69 6e 64 65 78 29 3b 0a 65 6e 64 20 66 69 6e 64 ┆di := var_value(index); end find┆
0x6e20…6e40 5f 76 61 72 3b 0a 20 0a 62 6f 6f 6c 65 61 6e 20 70 72 6f 63 65 64 75 72 65 20 73 65 74 5f 76 61 ┆_var; boolean procedure set_va┆
0x6e40…6e60 72 28 6e 61 76 6e 2c 76 7b 72 64 69 29 3b 0a 3c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆r(navn,værdi); <****************┆
0x6e60…6e80 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e 0a 76 61 6c 75 65 20 6e 61 76 6e ┆********************> value navn┆
0x6e80…6ea0 2c 76 7b 72 64 69 3b 20 6c 6f 6e 67 20 6e 61 76 6e 3b 20 72 65 61 6c 20 76 7b 72 64 69 3b 0a 62 ┆,værdi; long navn; real værdi; b┆
0x6ea0…6ec0 65 67 69 6e 0a 72 65 61 6c 20 64 75 6d 6d 79 3b 20 69 6e 74 65 67 65 72 20 74 61 62 5f 69 6e 64 ┆egin real dummy; integer tab_ind┆
0x6ec0…6ee0 65 78 3b 0a 69 66 20 66 69 6e 64 5f 76 61 72 28 6e 61 76 6e 2c 64 75 6d 6d 79 2c 74 61 62 5f 69 ┆ex; if find_var(navn,dummy,tab_i┆
0x6ee0…6f00 6e 64 65 78 29 20 74 68 65 6e 0a 20 20 76 61 72 5f 76 61 6c 75 65 28 74 61 62 5f 69 6e 64 65 78 ┆ndex) then var_value(tab_index┆
0x6f00…6f20 29 20 3a 3d 20 76 7b 72 64 69 0a 20 65 6c 73 65 0a 20 20 20 73 65 74 5f 76 61 72 20 3a 3d 20 6e ┆) := værdi else set_var := n┆
0x6f20…6f40 79 5f 76 61 72 28 6e 61 76 6e 2c 76 7b 72 64 69 29 3b 20 20 20 20 0a 65 6e 64 20 73 65 74 5f 76 ┆y_var(navn,værdi); end set_v┆
0x6f40…6f60 61 72 3b 0a 0a 72 65 61 6c 20 70 72 6f 63 65 64 75 72 65 20 61 72 69 74 6d 65 74 69 6b 28 65 72 ┆ar; real procedure aritmetik(er┆
0x6f60…6f80 72 6f 72 5f 6e 72 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ror_nr); ┆
0x6f80…6fa0 20 20 20 0a 3c 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 ┆ <***************************┆
0x6fa0…6fc0 2a 2a 2a 2a 2a 2a 3e 0a 69 6e 74 65 67 65 72 20 65 72 72 6f 72 5f 6e 72 3b 0a 62 65 67 69 6e 0a ┆******> integer error_nr; begin ┆
0x6fc0…6fe0 61 72 74 69 6d 65 74 69 6b 20 3a 3d 20 74 69 6c 64 65 6c 69 6e 67 28 65 72 72 6f 72 5f 6e 72 29 ┆artimetik := tildeling(error_nr)┆
0x6fe0…7000 3b 0a 65 6e 64 20 61 72 69 74 6d 65 74 69 6b 3b 0a 0a 72 65 61 6c 20 70 72 6f 63 65 64 75 72 65 ┆; end aritmetik; real procedure┆
0x7000…7020 20 74 69 6c 64 65 6c 69 6e 67 28 65 72 72 6f 72 5f 6e 72 29 3b 0a 3c 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ tildeling(error_nr); <*********┆
0x7020…7040 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 3e 0a 69 6e 74 65 67 ┆*************************> integ┆
0x7040…7060 65 72 20 65 72 72 6f 72 5f 6e 72 3b 0a 62 65 67 69 6e 0a 69 6e 74 65 67 65 72 20 6e 7b 73 74 65 ┆er error_nr; begin integer næste┆
0x7060…7080 5f 61 72 74 3b 20 72 65 61 6c 20 75 64 74 72 79 6b 73 5f 76 7b 72 64 69 3b 20 6c 6f 6e 67 20 74 ┆_art; real udtryks_værdi; long t┆
0x7080…70a0 69 6c 64 65 6c 69 6e 67 73 5f 6e 61 76 6e 3b 0a 0a 3c 2a 20 6c 7b 73 20 76 65 6e 73 74 72 65 20 ┆ildelings_navn; <* læs venstre ┆
0x70a0…70c0 73 69 64 65 6e 20 61 66 20 74 69 6c 64 65 6c 69 6e 67 73 20 73 7b 74 6e 69 6e 67 65 6e 0a 20 20 ┆siden af tildelings sætningen ┆
0x70c0…70e0 20 76 65 6e 74 72 65 20 73 69 64 65 6e 20 73 6b 61 6c 20 68 61 76 65 20 66 6f 72 6d 65 6e 20 0a ┆ ventre siden skal have formen ┆
0x70e0…7100 20 20 20 3c 76 61 72 6e 61 76 6e 3e 20 3a 3d 20 3c 61 72 69 74 6d 65 74 72 69 73 6b 20 75 64 74 ┆ <varnavn> := <aritmetrisk udt┆
0x7100…7120 72 79 6b 3e 0a 20 20 20 68 76 69 73 20 64 65 72 20 69 6b 6b 65 20 65 72 20 6e 6f 67 65 6e 20 66 ┆ryk> hvis der ikke er nogen f┆
0x7120…7140 65 6a 6c 20 69 20 64 65 74 20 3c 61 72 69 74 6d 65 74 72 69 73 6b 65 20 75 64 74 72 79 6b 0a 20 ┆ejl i det <aritmetriske udtryk ┆
0x7140…7160 20 20 74 69 6c 64 65 6c 65 73 20 3c 76 61 72 6e 61 76 6e 3e 20 76 7b 72 64 69 65 6e 20 61 66 20 ┆ tildeles <varnavn> værdien af ┆
0x7160…7180 64 65 74 20 3c 61 72 69 74 6d 65 74 72 69 73 6b 65 20 75 64 74 72 79 6b 3e 0a 20 20 20 20 20 20 ┆det <aritmetriske udtryk> ┆
0x7180…71a0 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 ┆ ┆
0x71a0…71c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 0a 65 72 72 6f 72 5f 6e 72 ┆ *> error_nr┆
0x71c0…71e0 20 3a 3d 20 30 3b 0a 73 65 5f 66 72 65 6d 61 64 28 6e 7b 73 74 65 5f 61 72 74 29 3b 0a 69 66 20 ┆ := 0; se_fremad(næste_art); if ┆
0x71e0…7200 6e 7b 73 74 65 5f 61 72 74 20 3d 20 33 20 3c 2a 6e 61 76 6e 65 5f 61 72 74 20 2a 3e 20 74 68 65 ┆næste_art = 3 <*navne_art *> the┆
0x7200…7220 6e 0a 20 20 62 65 67 69 6e 0a 20 20 6e 7b 73 74 65 5f 6f 72 64 5f 36 28 74 69 6c 64 65 6c 69 6e ┆n begin næste_ord_6(tildelin┆
0x7220…7240 67 73 5f 6e 61 76 6e 29 3b 0a 20 20 69 66 20 66 69 6e 64 5f 61 73 73 69 67 6e 6d 65 6e 74 20 74 ┆gs_navn); if find_assignment t┆
0x7240…7260 68 65 6e 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 75 64 74 72 79 6b 73 5f 76 7b 72 64 69 20 ┆hen begin udtryks_værdi ┆
0x7260…7280 3a 3d 20 61 72 74 69 6d 65 74 72 69 73 6b 5f 75 64 74 72 79 6b 28 65 72 72 6f 72 5f 6e 72 29 3b ┆:= artimetrisk_udtryk(error_nr);┆
0x7280…72a0 0a 20 20 20 20 73 65 74 5f 76 61 72 28 61 73 73 69 67 6e 6d 65 6e 74 5f 6f 72 64 2c 75 64 74 72 ┆ set_var(assignment_ord,udtr┆
0x72a0…72c0 79 6b 73 5f 76 7b 72 64 69 29 3b 0a 20 20 20 20 65 6e 64 0a 20 20 20 65 6c 73 65 0a 20 20 20 20 ┆yks_værdi); end else ┆
0x72c0…72e0 65 72 72 6f 72 5f 6e 72 20 3a 3d 20 37 3b 0a 20 20 65 6e 64 0a 20 65 6c 73 65 0a 20 20 65 72 72 ┆error_nr := 7; end else err┆
0x72e0…7300 6f 72 5f 6e 72 20 3a 3d 20 31 3b 0a 65 6e 64 20 74 69 6c 64 65 6c 69 6e 67 3b 0a 0a 0a 72 65 61 ┆or_nr := 1; end tildeling; rea┆
0x7300…7320 6c 20 70 72 6f 63 65 64 75 72 65 20 61 72 69 74 6d 65 74 72 69 73 6b 5f 75 64 74 72 79 6b 28 65 ┆l procedure aritmetrisk_udtryk(e┆
0x7320…7340 72 72 6f 72 5f 6e 72 29 3b 0a 3c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆rror_nr); <*********************┆
0x7340…7360 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e 0a 69 6e 74 65 67 65 72 20 65 ┆*********************> integer e┆
0x7360…7380 72 72 6f 72 5f 6e 72 3b 0a 0a 69 6e 74 65 67 65 72 20 6f 70 5f 74 6f 70 2c 20 72 65 76 72 5f 74 ┆rror_nr; integer op_top, revr_t┆
0x7380…73a0 6f 70 2c 20 6e 7b 73 74 65 5f 61 72 74 2c 0a 20 20 20 20 20 20 20 20 66 75 6e 63 5f 6d 61 78 2c ┆op, næste_art, func_max,┆
0x73a0…73c0 20 6f 70 5f 6d 61 78 2c 20 6f 70 65 72 61 74 6f 72 2c 20 67 6c 5f 74 79 70 65 2c 20 6e 79 5f 74 ┆ op_max, operator, gl_type, ny_t┆
0x73c0…73e0 79 70 65 2c 0a 20 20 20 20 20 20 20 20 76 61 6c 5f 6d 61 78 2c 20 6f 70 5f 74 79 70 65 2c 20 73 ┆ype, val_max, op_type, s┆
0x73e0…7400 79 6d 62 6f 6c 2c 20 69 6e 64 65 78 2c 20 74 61 62 5f 69 6e 64 65 78 3b 0a 69 6e 74 65 67 65 72 ┆ymbol, index, tab_index; integer┆
0x7400…7420 20 61 72 72 61 79 20 6f 70 5f 73 74 61 6b 28 31 3a 32 30 29 3b 0a 6c 6f 6e 67 20 61 72 72 61 79 ┆ array op_stak(1:20); long array┆
0x7420…7440 20 66 75 6e 63 5f 74 61 62 28 31 3a 36 29 3b 0a 72 65 61 6c 20 61 72 72 61 79 20 20 20 20 20 20 ┆ func_tab(1:6); real array ┆
0x7440…7460 20 20 20 20 20 20 20 20 20 20 72 65 76 65 72 73 65 5f 70 6f 6c 69 73 68 28 31 3a 32 2c 31 3a 32 ┆ reverse_polish(1:2,1:2┆
0x7460…7480 30 29 3b 0a 6c 6f 6e 67 20 6f 72 64 2c 20 61 73 73 69 67 6e 6d 65 6e 74 5f 6f 72 64 3b 0a 69 6e ┆0); long ord, assignment_ord; in┆
0x7480…74a0 74 65 67 65 72 20 64 79 61 64 69 73 6b 5f 70 6c 75 73 5f 74 79 70 65 2c 20 6d 6f 6e 61 64 69 73 ┆teger dyadisk_plus_type, monadis┆
0x74a0…74c0 6b 5f 70 6c 75 73 5f 74 79 70 65 2c 20 64 79 61 64 69 73 6b 5f 6d 69 6e 75 73 5f 74 79 70 65 2c ┆k_plus_type, dyadisk_minus_type,┆
0x74c0…74e0 0a 20 20 20 20 20 20 20 20 6d 6f 6e 61 64 69 73 6b 5f 6d 69 6e 75 73 5f 74 79 70 65 2c 64 69 76 ┆ monadisk_minus_type,div┆
0x74e0…7500 69 73 69 6f 6e 5f 74 79 70 65 2c 20 6d 75 6c 74 5f 74 79 70 65 2c 20 70 6f 77 65 72 5f 74 79 70 ┆ision_type, mult_type, power_typ┆
0x7500…7520 (13,) 65 2c 0a 20 20 20 20 20 20 20 20 73 69 64 73 74 65 5f 66 7c 72 5f 66 75 6e 63 5f 74 79 70 65 2c ┆e, sidste_før_func_type,┆
0x7520…7540 73 69 6e 5f 74 79 70 65 2c 63 6f 73 5f 74 79 70 65 2c 74 61 6e 67 5f 74 79 70 65 2c 61 74 61 6e ┆sin_type,cos_type,tang_type,atan┆
0x7540…7560 5f 74 79 70 65 2c 0a 20 20 20 20 20 20 20 20 73 71 72 74 5f 74 79 70 65 2c 20 61 62 73 5f 74 79 ┆_type, sqrt_type, abs_ty┆
0x7560…7580 70 65 2c 20 66 7c 72 73 74 65 5f 6d 6f 6e 61 64 69 73 6b 65 5f 74 79 70 65 2c 20 0a 20 20 20 20 ┆pe, første_monadiske_type, ┆
0x7580…75a0 20 20 20 20 6f 70 65 72 61 74 6f 72 5f 74 79 70 65 2c 20 76 7b 72 64 69 5f 74 79 70 65 2c 0a 20 ┆ operator_type, værdi_type, ┆
0x75a0…75c0 20 20 20 20 20 20 20 73 74 61 72 74 5f 6e 69 76 65 61 75 5f 74 79 70 65 2c 20 73 6c 75 74 5f 6e ┆ start_niveau_type, slut_n┆
0x75c0…75e0 69 76 65 61 75 5f 74 79 70 65 2c 0a 20 20 20 20 20 20 20 20 6e 61 76 6e 65 5f 61 72 74 2c 73 79 ┆iveau_type, navne_art,sy┆
0x75e0…7600 6d 62 6f 6c 5f 61 72 74 2c 74 61 6c 5f 61 72 74 3b 0a 0a 72 65 61 6c 20 67 72 61 64 5f 72 61 64 ┆mbol_art,tal_art; real grad_rad┆
0x7600…7620 5f 66 61 63 74 6f 72 2c 76 7b 72 64 69 3b 0a 62 6f 6f 6c 65 61 6e 20 66 75 6e 64 65 74 2c 73 6c ┆_factor,værdi; boolean fundet,sl┆
0x7620…7640 75 74 3b 0a 0a 70 72 6f 63 65 64 75 72 65 20 70 75 73 68 5f 6f 70 65 72 61 74 6f 72 3b 0a 3c 2a ┆ut; procedure push_operator; <*┆
0x7640…7660 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e 0a 62 65 67 69 6e 0a 6e 79 ┆**********************> begin ny┆
0x7660…7680 5f 74 79 70 65 20 3a 3d 20 6f 70 65 72 61 74 6f 72 5f 74 79 70 65 3b 0a 69 66 20 67 6c 5f 74 79 ┆_type := operator_type; if gl_ty┆
0x7680…76a0 70 65 20 3c 3e 20 6f 70 65 72 61 74 6f 72 5f 74 79 70 65 20 6f 72 20 6f 70 5f 74 79 70 65 20 3e ┆pe <> operator_type or op_type >┆
0x76a0…76c0 20 73 69 64 73 74 65 5f 66 7c 72 5f 66 75 6e 63 5f 74 79 70 65 20 74 68 65 6e 0a 20 20 62 65 67 ┆ sidste_før_func_type then beg┆
0x76c0…76e0 69 6e 0a 20 20 66 6f 72 20 6f 70 65 72 61 74 6f 72 20 3a 3d 20 70 6f 70 5f 6f 70 5f 73 74 61 6b ┆in for operator := pop_op_stak┆
0x76e0…7700 20 77 68 69 6c 65 20 20 20 20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 6f 70 5f ┆ while (op_┆
0x7700…7720 74 79 70 65 20 3c 3d 20 6d 6f 6e 61 64 69 73 6b 5f 6d 69 6e 75 73 5f 74 79 70 65 20 61 6e 64 20 ┆type <= monadisk_minus_type and ┆
0x7720…7740 6f 70 65 72 61 74 6f 72 20 3e 20 30 20 29 20 6f 72 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆operator > 0 ) or ┆
0x7740…7760 20 20 20 28 6f 70 74 79 70 65 20 3d 20 70 6f 77 65 72 5f 74 79 70 65 20 61 6e 64 20 6f 70 65 72 ┆ (optype = power_type and oper┆
0x7760…7780 61 74 6f 72 20 3e 20 6d 75 6c 74 5f 74 79 70 65 20 29 20 6f 72 0a 20 20 20 20 20 20 20 20 20 20 ┆ator > mult_type ) or ┆
0x7780…77a0 20 20 20 20 20 20 20 28 6f 70 74 79 70 65 20 3c 20 70 6f 77 65 72 5f 74 79 70 65 20 61 6e 64 20 ┆ (optype < power_type and ┆
0x77a0…77c0 6f 70 65 72 61 74 6f 72 20 3e 20 6d 6f 6e 61 64 69 73 6b 5f 6d 69 6e 75 73 5f 74 79 70 65 20 29 ┆operator > monadisk_minus_type )┆
0x77c0…77e0 20 64 6f 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 6d 61 6b 65 5f 72 65 76 65 72 73 65 5f 70 ┆ do begin make_reverse_p┆
0x77e0…7800 6f 6c 69 73 68 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 70 75 73 68 5f 6f 70 5f 73 74 61 6b 28 6f ┆olish; end; push_op_stak(o┆
0x7800…7820 70 65 72 61 74 6f 72 29 3b 0a 20 20 70 75 73 68 5f 6f 70 5f 73 74 61 6b 28 6f 70 5f 74 79 70 65 ┆perator); push_op_stak(op_type┆
0x7820…7840 29 3b 0a 20 20 73 65 5f 66 72 65 6d 61 64 28 6e 7b 73 74 65 5f 61 72 74 29 3b 0a 20 20 65 6e 64 ┆); se_fremad(næste_art); end┆
0x7840…7860 0a 20 65 6c 73 65 0a 20 20 65 72 72 6f 72 5f 6e 72 20 3a 3d 20 32 3b 0a 65 6e 64 20 20 70 75 73 ┆ else error_nr := 2; end pus┆
0x7860…7880 68 5f 6f 70 65 72 61 74 6f 72 3b 20 20 20 20 20 0a 0a 70 72 6f 63 65 64 75 72 65 20 6d 61 6b 65 ┆h_operator; procedure make┆
0x7880…78a0 5f 72 65 76 65 72 73 65 5f 70 6f 6c 69 73 68 3b 0a 3c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆_reverse_polish; <**************┆
0x78a0…78c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e 0a 62 65 67 69 6e 0a 70 75 73 68 5f 72 65 76 72 5f ┆**************> begin push_revr_┆
0x78c0…78e0 70 6f 6c 69 73 68 28 6f 70 65 72 61 74 6f 72 2c 31 29 3b 0a 65 6e 64 20 6d 61 6b 65 5f 72 65 76 ┆polish(operator,1); end make_rev┆
0x78e0…7900 65 72 73 65 5f 70 6f 6c 69 73 68 3b 0a 0a 0a 72 65 61 6c 20 70 72 6f 63 65 64 75 72 65 20 62 65 ┆erse_polish; real procedure be┆
0x7900…7920 72 65 67 6e 3b 0a 3c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e 0a 62 65 67 ┆regn; <********************> beg┆
0x7920…7940 69 6e 0a 69 6e 74 65 67 65 72 20 74 79 70 65 3b 20 72 65 61 6c 20 76 7b 72 64 69 2c 20 6f 70 65 ┆in integer type; real værdi, ope┆
0x7940…7960 72 61 6e 64 32 3b 0a 74 79 70 65 20 3a 3d 20 70 6f 70 5f 72 65 76 72 5f 70 6f 6c 69 73 68 28 76 ┆rand2; type := pop_revr_polish(v┆
0x7960…7980 7b 72 64 69 29 3b 0a 69 66 20 74 79 70 65 20 3c 20 31 20 3c 2a 20 6f 70 65 72 61 74 6f 72 20 74 ┆ærdi); if type < 1 <* operator t┆
0x7980…79a0 79 70 65 20 2a 3e 20 74 68 65 6e 0a 20 20 62 65 72 65 67 6e 20 3a 3d 20 76 7b 72 64 69 0a 20 65 ┆ype *> then beregn := værdi e┆
0x79a0…79c0 6c 73 65 0a 20 20 62 65 67 69 6e 0a 20 20 63 61 73 65 20 74 79 70 65 20 6f 66 0a 20 20 20 20 62 ┆lse begin case type of b┆
0x79c0…79e0 65 67 69 6e 0a 0a 20 20 20 20 3c 2a 20 63 61 73 65 20 31 20 64 79 61 64 69 73 6b 20 70 6c 75 73 ┆egin <* case 1 dyadisk plus┆
0x79e0…7a00 20 2a 3e 0a 20 20 20 20 62 65 72 65 67 6e 20 3a 3d 20 62 65 72 65 67 6e 20 2b 20 62 65 72 65 67 ┆ *> beregn := beregn + bereg┆
0x7a00…7a20 6e 3b 0a 0a 20 20 20 20 3c 2a 20 63 61 73 65 20 32 20 6d 6f 6e 61 64 69 73 6b 20 70 6c 75 73 20 ┆n; <* case 2 monadisk plus ┆
0x7a20…7a40 2a 3e 0a 20 20 20 20 62 65 72 65 67 6e 20 3a 3d 20 62 65 72 65 67 6e 3b 0a 0a 20 20 20 20 3c 2a ┆*> beregn := beregn; <*┆
0x7a40…7a60 20 63 61 73 65 20 33 20 64 79 61 64 69 73 6b 20 6d 69 6e 75 73 20 2a 3e 0a 20 20 20 20 62 65 67 ┆ case 3 dyadisk minus *> beg┆
0x7a60…7a80 69 6e 0a 20 20 20 20 6f 70 65 72 61 6e 64 5f 32 20 3a 3d 20 62 65 72 65 67 6e 3b 0a 20 20 20 20 ┆in operand_2 := beregn; ┆
0x7a80…7aa0 62 65 72 65 67 6e 20 3a 3d 20 62 65 72 65 67 6e 20 2d 20 6f 70 65 72 61 6e 64 5f 32 3b 0a 20 20 ┆beregn := beregn - operand_2; ┆
0x7aa0…7ac0 20 65 6e 64 3b 0a 0a 20 20 20 20 3c 2a 20 63 61 73 65 20 34 20 6d 6f 6e 61 64 69 73 6b 20 6d 69 ┆ end; <* case 4 monadisk mi┆
0x7ac0…7ae0 6e 75 73 20 2a 3e 0a 20 20 20 20 62 65 72 65 67 6e 20 3a 3d 20 2d 20 62 65 72 65 67 6e 3b 0a 0a ┆nus *> beregn := - beregn; ┆
0x7ae0…7b00 20 20 20 20 3c 2a 20 63 61 73 65 20 35 20 64 69 76 69 73 69 6f 6e 20 2a 3e 0a 20 20 20 20 62 65 ┆ <* case 5 division *> be┆
0x7b00…7b20 67 69 6e 0a 20 20 20 20 6f 70 65 72 61 6e 64 5f 32 20 3a 3d 20 62 65 72 65 67 6e 3b 0a 20 20 20 ┆gin operand_2 := beregn; ┆
0x7b20…7b40 20 62 65 72 65 67 6e 20 3a 3d 20 62 65 72 65 67 6e 20 2f 20 6f 70 65 72 61 6e 64 5f 32 3b 0a 20 ┆ beregn := beregn / operand_2; ┆
0x7b40…7b60 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 3c 2a 20 63 61 73 65 20 36 20 6d 75 6c 74 69 70 6c 69 6b ┆ end; <* case 6 multiplik┆
0x7b60…7b80 61 74 69 6f 6e 20 2a 3e 0a 20 20 20 20 62 65 72 65 67 6e 20 3a 3d 20 62 65 72 65 67 6e 20 2a 20 ┆ation *> beregn := beregn * ┆
0x7b80…7ba0 62 65 72 65 67 6e 3b 0a 0a 20 20 20 20 3c 2a 20 63 61 73 65 20 37 20 70 6f 74 65 6e 73 6f 70 6c ┆beregn; <* case 7 potensopl┆
0x7ba0…7bc0 79 66 74 6e 69 6e 67 20 2a 3e 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 6f 70 65 72 61 6e 64 ┆yftning *> begin operand┆
0x7bc0…7be0 5f 32 20 3a 3d 20 62 65 72 65 67 6e 3b 0a 20 20 20 20 62 65 72 65 67 6e 20 3a 3d 20 62 65 72 65 ┆_2 := beregn; beregn := bere┆
0x7be0…7c00 67 6e 20 2a 2a 20 6f 70 65 72 61 6e 64 5f 32 3b 0a 20 20 20 20 65 6e 64 3b 0a 0a 20 20 20 20 3c ┆gn ** operand_2; end; <┆
0x7c00…7c20 2a 20 63 61 73 65 20 38 20 73 69 6e 75 73 20 2a 3e 0a 20 20 20 20 62 65 72 65 67 6e 20 3a 3d 20 ┆* case 8 sinus *> beregn := ┆
0x7c20…7c40 73 69 6e 28 67 72 61 64 5f 72 61 64 5f 66 61 63 74 6f 72 2a 62 65 72 65 67 6e 29 3b 0a 0a 20 20 ┆sin(grad_rad_factor*beregn); ┆
0x7c40…7c60 20 20 3c 2a 20 63 61 73 65 20 39 20 63 6f 73 69 6e 75 73 20 2a 3e 0a 20 20 20 20 62 65 72 65 67 ┆ <* case 9 cosinus *> bereg┆
0x7c60…7c80 6e 20 3a 3d 20 63 6f 73 28 67 72 61 64 5f 72 61 64 5f 66 61 63 74 6f 72 2a 62 65 72 65 67 6e 29 ┆n := cos(grad_rad_factor*beregn)┆
0x7c80…7ca0 3b 0a 0a 20 20 20 20 3c 2a 20 63 61 73 65 20 31 30 20 74 61 6e 67 65 6e 73 20 2a 3e 0a 20 20 20 ┆; <* case 10 tangens *> ┆
0x7ca0…7cc0 20 62 65 72 65 67 6e 20 3a 3d 20 74 61 6e 28 67 72 61 64 5f 72 61 64 5f 66 61 63 74 6f 72 2a 62 ┆ beregn := tan(grad_rad_factor*b┆
0x7cc0…7ce0 65 72 65 67 6e 29 3b 0a 0a 20 20 20 20 3c 2a 20 63 61 73 65 20 31 31 20 61 72 63 74 61 6e 67 65 ┆eregn); <* case 11 arctange┆
0x7ce0…7d00 6e 73 20 2a 3e 0a 20 20 20 20 62 65 72 65 67 6e 20 3a 3d 20 61 72 63 74 61 6e 28 67 72 61 64 5f ┆ns *> beregn := arctan(grad_┆
0x7d00…7d20 72 61 64 5f 66 61 63 74 6f 72 2a 62 65 72 65 67 6e 29 3b 0a 0a 20 20 20 20 3c 2a 20 63 61 73 65 ┆rad_factor*beregn); <* case┆
0x7d20…7d40 20 31 32 20 6b 76 61 64 72 73 74 72 6f 64 20 2a 3e 0a 20 20 20 20 62 65 72 65 67 6e 20 3a 3d 20 ┆ 12 kvadrstrod *> beregn := ┆
0x7d40…7d60 73 71 72 74 28 62 65 72 65 67 6e 29 3b 0a 20 20 0a 20 20 20 20 3c 2a 20 63 61 73 65 20 31 33 20 ┆sqrt(beregn); <* case 13 ┆
0x7d60…7d80 61 62 73 20 2a 3e 0a 20 20 20 20 62 65 72 65 67 6e 20 3a 3d 20 61 62 73 28 62 65 72 65 67 6e 29 ┆abs *> beregn := abs(beregn)┆
0x7d80…7da0 3b 0a 20 20 20 20 65 6e 64 20 61 6c 6c 65 20 63 61 73 65 20 73 69 74 75 61 74 69 6f 6e 65 72 3b ┆; end alle case situationer;┆
0x7da0…7dc0 0a 20 20 65 6e 64 3b 0a 65 6e 64 20 62 65 72 65 67 6e 3b 0a 0a 0a 69 6e 74 65 67 65 72 20 70 72 ┆ end; end beregn; integer pr┆
0x7dc0…7de0 6f 63 65 64 75 72 65 20 70 6f 70 5f 6f 70 5f 73 74 61 6b 3b 0a 3c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ocedure pop_op_stak; <**********┆
0x7de0…7e00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e 0a 62 65 67 69 6e 0a 70 6f 70 5f 6f 70 ┆******************> begin pop_op┆