|
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: 118272 (0x1ce00)
Names: »cldvedl «
└─⟦cde9d517b⟧ Bits:30007477 RC8000 Backup tape fra HT's bus-radio system
└─⟦6a563b143⟧
└─⟦this⟧ »cldvedl «
└─⟦110021343⟧ Bits:30007476 RC8000 Backup tape fra HT's bus-radio system
└─⟦a957ba283⟧
└─⟦this⟧ »cldvedl «
0x00000…00030 00 22 48 00 00 6e 00 00 77 61 72 63 68 65 63 6b 62 69 62 00 00 00 00 04 64 69 73 63 00 00 00 00 00 00 00 00 63 d7 a7 00 00 00 00 00 00 00 00 00 ┆ "H n warcheckbib disc c ┆
0x00030…00060 00 00 00 00 60 80 00 00 6e 00 00 77 62 69 62 69 6e 64 6c 65 64 74 78 00 00 00 0b 64 69 73 63 00 00 00 00 00 00 00 00 67 64 03 00 00 00 00 00 00 ┆ ` n wbibindledtx disc gd ┆
0x00060…00090 00 00 00 00 00 00 01 14 10 00 00 0a 00 00 13 63 6f 6e 73 74 73 6c 00 00 00 00 00 00 00 01 64 69 73 63 00 00 00 00 00 00 00 00 62 82 81 00 00 00 ┆ constsl disc b ┆
0x00090…000c0 00 00 00 00 00 00 00 00 00 01 21 a0 00 00 0a 00 00 13 63 6f 6e 73 74 74 78 00 00 00 00 00 00 00 02 64 69 73 63 00 00 00 00 00 00 00 00 67 36 16 ┆ ! consttx disc g6 ┆
0x000c0…000f0 00 00 00 00 00 00 00 00 00 00 00 00 01 41 6a 00 00 0a 00 00 13 63 6f 6e 74 72 61 63 74 65 64 00 00 00 00 04 64 69 73 63 00 00 00 00 00 00 00 00 ┆ Aj contracted disc ┆
0x000f0…00120 6e 9b b5 00 00 00 00 00 00 00 00 00 00 00 00 01 87 90 00 00 0a 00 00 13 63 6f 6e 74 72 61 63 74 74 78 00 00 00 00 21 64 69 73 63 00 00 00 00 00 ┆n contracttx !disc ┆
0x00120…00150 00 00 00 62 48 1d 00 00 00 00 00 00 00 00 00 00 00 00 03 96 58 00 00 6e 00 00 77 64 61 6e 62 65 73 6b 72 69 74 78 00 00 00 03 64 69 73 63 00 00 ┆ bH X n wdanbeskritx disc ┆
0x00150…00180 00 00 00 00 00 00 62 c8 c4 00 00 00 00 00 00 00 00 00 00 00 00 03 c6 40 00 00 6e 00 00 77 64 61 6e 63 6f 6e 74 6b 6f 74 78 00 00 00 08 64 69 73 ┆ b @ n wdancontkotx dis┆
0x00180…001b0 63 00 00 00 00 00 00 00 00 61 42 58 00 00 00 00 00 00 00 00 00 00 00 00 04 41 80 00 00 0a 00 00 13 64 69 73 63 73 74 61 74 74 78 00 00 00 00 0c ┆c aBX A discstattx ┆
0x001b0…001e0 64 69 73 63 00 00 00 00 00 00 00 00 63 50 43 00 00 00 00 00 00 00 00 00 00 00 00 05 01 00 00 00 0a 00 00 13 66 70 6d 00 00 00 00 00 00 00 00 00 ┆disc cPC fpm ┆
0x001e0…00210 00 00 06 64 69 73 63 00 00 00 00 00 00 00 00 67 35 ea 00 00 00 00 00 00 00 00 00 00 00 00 05 67 53 09 56 aa 09 56 b3 67 65 74 65 78 74 65 72 65 ┆ disc g5 gS V V getextere┆
0x00210…00240 64 31 00 00 00 03 64 69 73 63 31 31 00 00 00 00 00 00 77 ef 97 00 00 00 00 00 00 00 00 00 00 00 00 05 97 30 00 00 0a 00 00 13 67 65 74 65 78 74 ┆d1 disc11 w 0 getext┆
0x00240…00270 65 72 6e 65 64 00 00 00 02 64 69 73 63 00 00 00 00 00 00 00 00 62 6f da 00 00 00 00 00 00 00 00 00 00 00 00 05 b3 10 00 00 0a 00 00 13 67 65 74 ┆erned disc bo get┆
0x00270…002a0 65 78 74 65 72 6e 74 78 00 00 00 0d 64 69 73 63 00 00 00 00 00 00 00 00 62 4e df 00 00 00 00 00 00 00 00 00 00 00 00 06 86 73 00 00 00 00 4e 1f ┆externtx disc bN s N ┆
0x002a0…002d0 69 6e 69 74 70 61 72 61 6d 74 78 00 00 00 0f 64 69 73 63 00 00 00 00 00 00 00 00 79 03 71 00 00 00 00 00 00 00 00 00 00 00 00 07 75 d0 00 00 0a ┆initparamtx disc y q u ┆
0x002d0…00300 00 00 13 6c 69 73 74 63 6f 6e 74 72 74 78 00 00 00 03 64 69 73 63 00 00 00 00 00 00 00 00 62 6f 5a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 13 ┆ listcontrtx disc boZ ┆
0x00300…00330 07 a5 38 00 00 6e 00 00 77 6c 7b 73 63 61 74 73 6f 72 74 78 00 00 00 06 64 69 73 63 00 00 00 00 00 00 00 00 61 42 55 00 00 00 00 00 00 00 00 00 ┆ 8 n wlæscatsortx disc aBU ┆
0x00330…00360 00 00 00 08 08 70 00 00 6e 00 00 77 6c 7b 73 63 6f 6e 74 6c 69 74 78 00 00 00 07 64 69 73 63 00 00 00 00 00 00 00 00 63 dd 55 00 00 00 00 00 00 ┆ p n wlæscontlitx disc c U ┆
0x00360…00390 00 00 00 00 00 00 08 70 50 00 00 00 00 03 e7 70 61 72 61 6d 74 61 62 74 78 00 00 00 00 06 64 69 73 63 00 00 00 00 00 00 00 00 9b a3 1b 00 00 00 ┆ pP paramtabtx disc ┆
0x00390…003c0 00 00 00 00 00 00 00 00 00 08 d3 d8 00 00 6e 00 00 77 73 65 74 62 65 73 6b 72 63 74 78 00 00 00 08 64 69 73 63 00 00 00 00 00 00 00 00 66 22 8c ┆ n wsetbeskrctx disc f" ┆
0x003c0…003f0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0xa…]
0x005d0…00600 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 13 ┆ ┆
0x00600…00630 3b 20 6b 6f 6d 6d 61 6e 64 6f 66 69 6c 20 61 72 63 68 65 63 6b 62 69 62 20 61 72 20 37 38 31 31 31 34 2e 0a 3b 0a 3b 20 64 65 6e 6e 65 20 6b 6f ┆; kommandofil archeckbib ar 781114. ; ; denne ko┆
0x00630…00660 6d 6d 61 6e 64 6f 66 69 6c 20 64 61 6e 6e 65 72 20 65 6e 20 6b 6f 6d 6d 61 6e 64 6f 66 69 6c 20 27 63 6f 6e 74 72 61 63 74 6b 6f 6d 27 2c 0a 3b ┆mmandofil danner en kommandofil 'contractkom', ;┆
0x00660…00690 20 64 65 72 20 69 6e 64 73 7b 74 74 65 72 20 64 65 20 66 69 6c 65 72 2c 20 64 65 72 20 66 69 6e 64 65 73 20 69 20 65 6e 20 67 61 6d 6d 65 6c 20 ┆ der indsætter de filer, der findes i en gammel ┆
0x00690…006c0 76 65 72 73 69 6f 6e 20 69 20 65 6e 0a 3b 20 63 6f 6e 74 72 61 63 74 66 69 6c 20 69 20 70 72 6f 63 65 64 75 72 65 62 69 62 6c 69 6f 74 65 6b 65 ┆version i en ; contractfil i procedurebiblioteke┆
0x006c0…006f0 74 2c 0a 3b 20 70 72 6f 67 72 61 6d 62 69 62 6c 69 6f 74 65 6b 65 74 2c 20 6a 6f 62 66 69 6c 62 69 62 6c 69 6f 74 65 6b 65 74 20 65 6c 6c 65 72 ┆t, ; programbiblioteket, jobfilbiblioteket eller┆
0x006f0…00720 20 63 6c 64 76 65 64 6c 2e 20 0a 3b 20 6f 67 20 69 20 65 6e 20 6e 79 65 72 65 20 75 64 65 6e 66 6f 72 20 63 6f 6e 74 72 61 63 74 66 69 6c 65 6e ┆ cldvedl. ; og i en nyere udenfor contractfilen┆
0x00720…00750 0a 3b 20 69 20 65 6c 6c 65 72 20 69 6e 64 65 6e 20 66 6f 72 20 75 73 65 72 2d 62 61 73 65 2d 69 6e 74 65 72 76 61 6c 6c 65 74 2e 0a 3b 0a 3b 20 ┆ ; i eller inden for user-base-intervallet. ; ; ┆
0x00750…00780 6d 69 6e 69 6d 75 6d 20 72 65 73 6f 75 72 63 65 6b 72 61 76 3a 0a 3b 20 70 72 6f 63 65 73 2d 73 69 7a 65 20 3a 20 31 34 35 30 30 20 62 79 74 65 ┆minimum resourcekrav: ; proces-size : 14500 byte┆
0x00780…007b0 73 0a 3b 20 61 72 65 61 20 20 20 20 20 20 20 20 3a 20 37 20 28 36 20 75 6e 64 65 72 20 64 61 6e 6e 65 6c 73 65 20 61 66 20 63 6f 6e 74 72 61 63 ┆s ; area : 7 (6 under dannelse af contrac┆
0x007b0…007e0 74 6b 6f 6d 2c 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 37 20 75 6e 64 65 72 20 75 64 66 7c 72 73 65 6c 20 61 66 20 63 6f 6e ┆tkom, ; 7 under udførsel af con┆
0x007e0…00810 74 72 61 63 74 6b 6f 6d 29 2e 0a 3b 20 62 75 66 20 20 20 20 20 20 20 20 20 3a 20 37 0a 3b 20 73 65 67 6d 65 6e 74 65 72 20 20 20 3a 20 33 31 35 ┆tractkom). ; buf : 7 ; segmenter : 315┆
0x00810…00840 0a 3b 0a 3b 20 69 20 66 6f 72 68 6f 6c 64 20 74 69 6c 20 65 6e 20 73 74 61 6e 64 61 72 64 70 72 6f 63 65 73 20 6b 72 7b 76 65 73 20 66 7c 6c 67 ┆ ; ; i forhold til en standardproces kræves følg┆
0x00840…00870 65 6e 64 65 0a 3b 20 61 74 74 20 73 0a 3b 20 72 65 6d 6f 76 65 20 73 69 7a 65 20 31 34 35 30 30 20 61 72 65 61 20 37 20 72 75 6e 0a 3b 0a 3b 20 ┆ende ; att s ; remove size 14500 area 7 run ; ; ┆
0x00870…008a0 66 7c 72 73 74 20 6c 61 76 65 73 20 65 6e 20 63 61 74 73 6f 72 74 20 6f 67 20 65 6e 20 63 6f 6e 74 72 61 63 74 2e 6c 69 73 74 0a 3b 20 70 7d 20 ┆først laves en catsort og en contract.list ; på ┆
0x008a0…008d0 64 65 20 7c 6e 73 6b 65 64 65 20 63 6f 6e 74 72 61 63 74 66 69 6c 65 72 2e 20 0a 3b 0a 6d 65 73 73 61 67 65 20 73 74 61 72 74 20 70 7d 20 63 61 ┆de ønskede contractfiler. ; message start på ca┆
0x008d0…00900 74 73 6f 72 74 20 6f 67 20 63 6f 6e 74 6c 69 73 74 0a 78 78 78 63 61 74 6c 69 73 74 3d 73 65 74 20 32 31 0a 78 78 78 63 6f 6e 74 6c 69 73 74 3d ┆tsort og contlist xxxcatlist=set 21 xxxcontlist=┆
0x00900…00930 73 65 74 20 32 31 0a 6f 20 78 78 78 63 61 74 6c 69 73 74 0a 63 61 74 73 6f 72 74 20 62 61 73 65 2e 75 73 65 72 0a 69 66 20 6f 6b 2e 79 65 73 0a ┆set 21 o xxxcatlist catsort base.user if ok.yes ┆
0x00930…00960 73 6b 69 70 20 36 34 2e 31 20 3b 20 73 6b 69 70 20 68 76 69 73 20 63 61 74 73 6f 72 74 20 6f 6b 2c 20 65 6c 6c 65 72 73 20 6c 61 76 20 66 65 6a ┆skip 64.1 ; skip hvis catsort ok, ellers lav fej┆
0x00960…00990 6c 75 64 73 6b 72 69 66 74 0a 6f 20 63 0a 6d 65 73 73 61 67 65 20 66 6f 72 20 66 7d 20 74 65 6d 70 6f 72 7b 72 65 20 73 65 67 6d 65 6e 74 65 72 ┆ludskrift o c message for få temporære segmenter┆
0x00990…009c0 20 74 69 6c 20 63 61 74 73 6f 72 74 20 73 6f 72 74 61 72 65 61 0a 73 6b 69 70 20 36 34 2e 32 0a 40 0a 6f 20 78 78 78 63 6f 6e 74 6c 69 73 74 0a ┆ til catsort sortarea skip 64.2 @ o xxxcontlist ┆
0x009c0…009f0 63 6f 6e 74 72 61 63 74 20 6c 69 73 74 2e 74 63 6c 64 70 72 6f 63 62 69 62 0a 63 6f 6e 74 72 61 63 74 20 6c 69 73 74 2e 74 72 63 75 73 65 72 6c ┆contract list.tcldprocbib contract list.trcuserl┆
0x009f0…00a20 69 62 0a 63 6f 6e 74 72 61 63 74 20 6c 69 73 74 2e 6a 6f 62 66 69 6c 62 69 62 0a 63 6f 6e 74 72 61 63 74 20 6c 69 73 74 2e 70 72 6f 67 72 61 6d ┆ib contract list.jobfilbib contract list.program┆
0x00a20…00a50 62 69 62 0a 63 6f 6e 74 72 61 63 74 20 6c 69 73 74 2e 63 6c 64 76 65 64 6c 0a 6f 20 63 0a 3b 0a 3b 20 6e 75 20 66 6a 65 72 6e 65 73 20 27 20 64 ┆bib contract list.cldvedl o c ; ; nu fjernes ' d┆
0x00a50…00a80 2e 27 20 66 72 61 20 6c 69 73 74 6e 69 6e 67 65 72 6e 65 0a 3b 0a 6f 20 78 78 78 73 6b 72 61 74 63 68 0a 78 78 78 63 6f 6e 74 6c 69 73 74 3d 65 ┆.' fra listningerne ; o xxxskratch xxxcontlist=e┆
0x00a80…00ab0 64 69 74 20 78 78 78 63 6f 6e 74 6c 69 73 74 0a 67 20 62 27 20 64 2e 27 20 27 0a 66 0a 78 78 78 63 61 74 6c 69 73 74 3d 65 64 69 74 20 78 78 78 ┆dit xxxcontlist g b' d.' ' f xxxcatlist=edit xxx┆
0x00ab0…00ae0 63 61 74 6c 69 73 74 0a 67 20 62 27 20 64 2e 27 20 27 0a 66 0a 6f 20 63 0a 3b 0a 3b 20 6e 75 20 64 61 6e 6e 65 73 20 66 69 6c 65 72 6e 65 20 27 ┆catlist g b' d.' ' f o c ; ; nu dannes filerne '┆
0x00ae0…00b10 63 61 74 70 6f 73 74 66 69 6c 27 20 6f 67 20 27 63 6f 6e 74 70 6f 73 74 66 69 6c 27 2c 20 64 65 72 0a 3b 20 66 6f 72 20 68 76 65 72 20 66 69 6c ┆catpostfil' og 'contpostfil', der ; for hver fil┆
0x00b10…00b40 20 69 20 64 65 20 32 20 6c 69 73 74 65 72 20 64 61 6e 6e 65 72 20 65 6e 20 6b 6f 6d 70 72 69 6d 65 72 65 74 20 70 6f 73 74 2e 0a 3b 0a 6d 65 73 ┆ i de 2 lister danner en komprimeret post. ; mes┆
0x00b40…00b70 73 61 67 65 20 6e 75 20 64 61 6e 6e 65 73 20 63 61 74 70 6f 73 74 66 69 6c 20 6f 67 20 63 6f 6e 74 70 6f 73 74 66 69 6c 0a 63 61 74 70 6f 73 74 ┆sage nu dannes catpostfil og contpostfil catpost┆
0x00b70…00ba0 66 69 6c 3d 73 65 74 20 32 31 0a 63 6f 6e 74 70 6f 73 74 66 69 6c 3d 73 65 74 20 32 31 0a 6c 7b 73 63 61 74 73 6f 72 74 20 78 78 78 63 61 74 6c ┆fil=set 21 contpostfil=set 21 læscatsort xxxcatl┆
0x00ba0…00bd0 69 73 74 0a 69 66 20 6f 6b 2e 6e 6f 0a 73 6b 69 70 20 36 34 2e 31 0a 6c 7b 73 63 6f 6e 74 6c 69 73 74 20 78 78 78 63 6f 6e 74 6c 69 73 74 0a 69 ┆ist if ok.no skip 64.1 læscontlist xxxcontlist i┆
0x00bd0…00c00 66 20 6f 6b 2e 6e 6f 0a 73 6b 69 70 20 36 34 2e 31 0a 3b 0a 3b 20 6e 75 20 73 6f 72 74 65 72 65 73 20 64 65 20 32 20 66 69 6c 65 72 20 65 66 74 ┆f ok.no skip 64.1 ; ; nu sorteres de 2 filer eft┆
0x00c00…00c30 65 72 20 66 69 6c 6e 61 76 6e 20 6f 67 20 74 69 64 73 70 75 6e 6b 74 2e 0a 3b 0a 6d 65 73 73 61 67 65 20 66 69 6c 65 72 6e 65 20 73 6f 72 74 65 ┆er filnavn og tidspunkt. ; message filerne sorte┆
0x00c30…00c60 72 65 73 0a 6f 20 78 78 78 73 6b 72 61 74 63 68 0a 6d 64 73 6f 72 74 20 69 6e 2e 63 61 74 70 6f 73 74 66 69 6c 20 6f 75 74 2e 63 61 74 73 6f 72 ┆res o xxxskratch mdsort in.catpostfil out.catsor┆
0x00c60…00c90 74 66 69 6c 2c 0a 20 20 20 20 20 20 20 62 6c 6f 63 6b 2e 31 2e 31 2c 0a 20 20 20 20 20 20 20 66 69 78 2e 31 32 2c 0a 20 20 20 20 20 20 20 65 6f ┆tfil, block.1.1, fix.12, eo┆
0x00c90…00cc0 66 2e 38 33 38 38 36 30 37 2e 38 33 38 38 36 30 37 2c 0a 20 20 20 20 20 20 20 6c 6f 6e 67 2e 34 20 6c 6f 6e 67 2e 38 2c 0a 20 20 20 20 20 20 20 ┆f.8388607.8388607, long.4 long.8, ┆
0x00cc0…00cf0 72 65 61 6c 2e 31 32 0a 69 66 20 6f 6b 2e 6e 6f 0a 73 6b 69 70 20 36 34 2e 31 0a 6d 64 73 6f 72 74 20 69 6e 2e 63 6f 6e 74 70 6f 73 74 66 69 6c ┆real.12 if ok.no skip 64.1 mdsort in.contpostfil┆
0x00cf0…00d20 20 6f 75 74 2e 63 6f 6e 74 73 6f 72 74 66 69 6c 2c 0a 20 20 20 20 20 20 20 62 6c 6f 63 6b 2e 31 2e 31 2c 0a 20 20 20 20 20 20 20 66 69 78 2e 32 ┆ out.contsortfil, block.1.1, fix.2┆
0x00d20…00d50 30 2c 0a 20 20 20 20 20 20 20 65 6f 66 2e 38 33 38 38 36 30 37 2e 38 33 38 38 36 30 37 2c 0a 20 20 20 20 20 20 20 6c 6f 6e 67 2e 34 20 6c 6f 6e ┆0, eof.8388607.8388607, long.4 lon┆
0x00d50…00d80 67 2e 38 2c 0a 20 20 20 20 20 20 20 72 65 61 6c 2e 31 32 0a 69 66 20 6f 6b 2e 6e 6f 0a 73 6b 69 70 20 36 34 2e 31 0a 6f 20 63 0a 3b 0a 3b 20 6e ┆g.8, real.12 if ok.no skip 64.1 o c ; ; n┆
0x00d80…00db0 75 20 64 61 6e 6e 65 73 20 75 64 73 6b 72 69 66 74 65 6e 20 69 20 66 69 6c 65 6e 20 63 6f 6e 74 72 61 63 74 6b 6f 6d 0a 3b 0a 6d 65 73 73 61 67 ┆u dannes udskriften i filen contractkom ; messag┆
0x00db0…00de0 65 20 6e 75 20 64 61 6e 6e 65 73 20 63 6f 6e 74 72 61 63 74 6b 6f 6d 0a 63 6f 6e 74 72 61 63 74 6b 6f 6d 3d 73 65 74 20 32 31 0a 64 61 6e 63 6f ┆e nu dannes contractkom contractkom=set 21 danco┆
0x00de0…00e10 6e 74 6b 6f 6d 0a 69 66 20 6f 6b 2e 6e 6f 0a 73 6b 69 70 20 36 34 2e 31 0a 3b 0a 3b 20 61 6c 74 20 65 72 20 67 7d 65 74 20 67 6f 64 74 2c 20 6e ┆ntkom if ok.no skip 64.1 ; ; alt er gået godt, n┆
0x00e10…00e40 75 20 66 6a 65 72 6e 65 73 20 64 65 20 74 65 6d 70 6f 72 7b 72 65 20 66 69 6c 65 72 2e 0a 3b 0a 63 6c 65 61 72 20 74 65 6d 70 20 78 78 78 63 61 ┆u fjernes de temporære filer. ; clear temp xxxca┆
0x00e40…00e70 74 6c 69 73 74 20 78 78 78 63 6f 6e 74 6c 69 73 74 20 63 61 74 70 6f 73 74 66 69 6c 20 2c 0a 20 20 20 63 6f 6e 74 70 6f 73 74 66 69 6c 20 78 78 ┆tlist xxxcontlist catpostfil , contpostfil xx┆
0x00e70…00ea0 78 73 6b 72 61 74 63 68 20 63 61 74 73 6f 72 74 66 69 6c 20 63 6f 6e 74 73 6f 72 74 66 69 6c 0a 6d 65 73 73 61 67 65 20 66 69 6c 65 72 6e 65 20 ┆xskratch catsortfil contsortfil message filerne ┆
0x00ea0…00ed0 69 6e 64 73 7b 74 74 65 73 20 76 65 64 20 6f 72 64 72 65 6e 0a 6d 65 73 73 61 67 65 20 20 20 20 20 20 20 69 20 63 6f 6e 74 72 61 63 74 6b 6f 6d ┆indsættes ved ordren message i contractkom┆
0x00ed0…00f00 0a 73 6b 69 70 20 33 0a 40 0a 6f 20 63 0a 6d 65 73 73 61 67 65 20 66 65 6a 6c 20 69 20 61 72 63 68 65 63 6b 62 69 62 20 6c 69 73 74 6e 69 6e 67 ┆ skip 3 @ o c message fejl i archeckbib listning┆
0x00f00…00f30 20 69 20 78 78 78 73 6b 72 61 74 63 68 0a 19 69 64 73 70 75 6e 6b 74 2e 0a 3b 0a 6d 65 73 73 61 67 65 20 66 69 6c 65 72 6e 65 20 73 6f 72 74 65 ┆ i xxxskratch idspunkt. ; message filerne sorte┆
0x00f30…00f60 72 65 73 0a 6f 20 78 78 78 73 6b 72 61 74 63 68 0a 6d 64 73 6f 72 74 20 69 6e 2e 63 61 74 70 6f 73 74 66 69 6c 20 6f 75 74 2e 63 61 74 73 6f 72 ┆res o xxxskratch mdsort in.catpostfil out.catsor┆
0x00f60…00f90 74 66 69 6c 2c 0a 20 20 20 20 20 20 20 62 6c 6f 63 6b 2e 31 2e 31 2c 0a 20 20 20 20 20 20 20 66 69 78 2e 31 32 2c 0a 20 20 20 20 20 20 20 65 6f ┆tfil, block.1.1, fix.12, eo┆
0x00f90…00fc0 66 2e 38 33 38 38 36 30 37 2e 38 33 38 38 36 30 37 2c 0a 20 20 20 20 20 20 20 6c 6f 6e 67 2e 34 20 6c 6f 6e 67 2e 38 2c 0a 20 20 20 20 20 20 20 ┆f.8388607.8388607, long.4 long.8, ┆
0x00fc0…00ff0 72 65 61 6c 2e 31 32 0a 69 66 20 6f 6b 2e 6e 6f 0a 73 6b 69 70 20 36 34 2e 31 0a 6d 64 73 6f 72 74 20 69 6e 2e 63 6f 6e 74 70 6f 73 74 66 69 6c ┆real.12 if ok.no skip 64.1 mdsort in.contpostfil┆
0x00ff0…01020 20 6f 75 74 2e 63 6f 6e 74 73 6f 72 74 66 69 6c 2c 0a 20 20 20 20 20 20 20 62 6c 6f 63 6b 2e 31 2e 31 2c 0a 20 20 20 20 20 20 20 66 69 78 2e 32 ┆ out.contsortfil, block.1.1, fix.2┆
0x01020…01050 30 2c 0a 20 20 20 20 20 20 20 65 6f 66 2e 38 33 38 38 36 30 37 2e 38 33 38 38 36 30 37 2c 0a 20 20 20 20 20 20 20 6c 6f 6e 67 2e 34 20 6c 6f 6e ┆0, eof.8388607.8388607, long.4 lon┆
0x01050…01080 67 2e 38 2c 0a 20 20 20 20 20 20 20 72 65 61 6c 2e 31 32 0a 69 66 20 6f 6b 2e 6e 6f 0a 73 6b 69 70 20 36 34 2e 31 0a 6f 20 63 0a 3b 0a 3b 20 6e ┆g.8, real.12 if ok.no skip 64.1 o c ; ; n┆
0x01080…010b0 75 20 64 61 6e 6e 65 73 20 75 64 73 6b 72 69 66 74 65 6e 20 69 20 66 69 6c 65 6e 20 63 6f 6e 74 72 61 63 74 6b 6f 6d 0a 3b 0a 6d 65 73 73 61 67 ┆u dannes udskriften i filen contractkom ; messag┆
0x010b0…010e0 65 20 6e 75 20 64 61 6e 6e 65 73 20 63 6f 6e 74 72 61 63 74 6b 6f 6d 0a 63 6f 6e 74 72 61 63 74 6b 6f 6d 3d 73 65 74 20 32 31 0a 64 61 6e 63 6f ┆e nu dannes contractkom contractkom=set 21 danco┆
0x010e0…01110 6e 74 6b 6f 6d 0a 69 66 20 6f 6b 2e 6e 6f 0a 73 6b 69 70 20 36 34 2e 31 0a 3b 0a 3b 20 61 6c 74 20 65 72 20 67 7d 65 74 20 67 6f 64 74 2c 20 6e ┆ntkom if ok.no skip 64.1 ; ; alt er gået godt, n┆
0x01110…01140 75 20 66 6a 65 72 6e 65 73 20 64 65 20 74 65 6d 70 6f 72 7b 72 65 20 66 69 6c 65 72 2e 0a 3b 0a 63 6c 65 61 72 20 74 65 6d 70 20 78 78 78 63 61 ┆u fjernes de temporære filer. ; clear temp xxxca┆
0x01140…01170 74 6c 69 73 74 20 78 78 78 63 6f 6e 74 6c 69 73 74 20 63 61 74 70 6f 73 74 66 69 6c 20 2c 0a 20 20 20 63 6f 6e 74 70 6f 73 74 66 69 6c 20 78 78 ┆tlist xxxcontlist catpostfil , contpostfil xx┆
0x01170…011a0 78 73 6b 72 61 74 63 68 20 63 61 74 73 6f 72 74 66 69 6c 20 63 6f 6e 74 73 6f 72 74 66 69 6c 0a 6d 65 73 73 61 67 65 20 66 69 6c 65 72 6e 65 20 ┆xskratch catsortfil contsortfil message filerne ┆
0x011a0…011d0 69 6e 64 73 7b 74 74 65 73 20 76 65 64 20 6f 72 64 72 65 6e 0a 6d 65 73 73 61 67 65 20 20 20 20 20 20 20 69 20 63 6f 6e 74 72 61 63 74 6b 6f 6d ┆indsættes ved ordren message i contractkom┆
0x011d0…01200 0a 73 6b 69 70 20 33 0a 40 0a 6f 20 63 0a 6d 65 73 73 61 67 65 20 66 65 6a 6c 20 69 20 61 72 63 68 65 63 6b 62 69 62 20 6c 69 73 74 6e 69 6e 67 ┆ skip 3 @ o c message fejl i archeckbib listning┆
0x01200…01230 62 65 67 69 6e 0a 6d 65 73 73 61 67 65 20 62 69 62 69 6e 64 6c 65 64 20 73 69 64 65 20 31 2e 20 61 72 20 37 39 30 34 30 34 20 76 65 72 73 69 6f ┆begin message bibindled side 1. ar 790404 versio┆
0x01230…01260 6e 20 31 3b 0a 0a 3c 2a 20 62 69 62 69 6e 64 6c 65 64 20 75 64 73 6b 72 69 76 65 72 20 69 6e 64 6c 65 64 6e 69 6e 67 73 74 65 6b 73 74 65 6e 20 ┆n 1; <* bibindled udskriver indledningsteksten ┆
0x01260…01290 73 61 6d 74 20 65 6e 20 69 6e 64 68 6f 6c 64 73 66 6f 72 74 65 67 6e 65 6c 73 65 20 0a 74 69 6c 20 70 72 6f 63 65 64 75 72 65 2c 20 70 72 6f 67 ┆samt en indholdsfortegnelse til procedure, prog┆
0x01290…012c0 72 61 6d 20 6f 67 20 6a 6f 62 66 69 6c 62 69 62 6c 69 6f 74 65 6b 65 74 2e 0a 0a 70 72 6f 67 72 61 6d 6b 61 6c 64 3a 0a 62 69 62 69 6e 64 6c 65 ┆ram og jobfilbiblioteket. programkald: bibindle┆
0x012c0…012f0 64 20 62 69 62 6c 69 6f 74 65 6b 2e 3c 74 79 70 65 3e 0a 0a 3c 74 79 70 65 3e 20 3a 20 70 72 6f 63 65 20 66 6f 72 20 70 72 6f 63 65 64 75 72 65 ┆d bibliotek.<type> <type> : proce for procedure┆
0x012f0…01320 62 69 62 6c 69 6f 74 65 6b 2e 0a 20 20 20 20 20 20 20 20 20 70 72 6f 67 20 66 6f 72 20 70 72 6f 67 72 61 6d 62 69 62 6c 69 6f 74 65 6b 2e 0a 20 ┆bibliotek. prog for programbibliotek. ┆
0x01320…01350 20 20 20 20 20 20 20 20 6a 6f 62 20 66 6f 72 20 6a 6f 62 66 69 6c 62 69 62 6c 69 6f 74 65 6b 2e 0a 20 20 20 20 20 20 20 20 20 61 6e 64 65 74 20 ┆ job for jobfilbibliotek. andet ┆
0x01350…01380 66 6f 72 20 61 6c 74 20 6d 75 6c 69 67 74 20 61 6e 64 65 74 2e 0a 0a 62 69 62 69 6e 64 6c 65 64 20 6c 7b 73 65 72 20 64 65 73 75 64 65 6e 20 66 ┆for alt muligt andet. bibindled læser desuden f┆
0x01380…013b0 72 61 20 66 69 6c 65 6e 20 27 63 6f 6e 74 73 6f 72 74 66 69 6c 27 2c 20 64 65 72 20 65 72 0a 65 6e 20 73 6f 72 74 65 72 65 74 20 75 64 67 61 76 ┆ra filen 'contsortfil', der er en sorteret udgav┆
0x013b0…013e0 65 20 61 66 20 66 69 6c 65 6e 20 27 63 6f 6e 74 70 6f 73 74 66 69 6c 27 2c 20 64 65 72 20 64 61 6e 6e 65 73 20 61 66 20 70 72 6f 67 72 61 6d 6d ┆e af filen 'contpostfil', der dannes af programm┆
0x013e0…01410 65 74 0a 6c 7b 73 63 6f 6e 74 6c 69 73 74 2e 0a 0a 70 6f 73 74 65 72 6e 65 20 69 20 63 6f 6e 74 73 6f 72 74 66 69 6c 20 68 61 72 20 66 7c 6c 67 ┆et læscontlist. posterne i contsortfil har følg┆
0x01410…01440 65 6e 64 65 20 66 6f 72 6d 61 74 3a 0a 6f 72 64 20 20 20 20 74 79 70 65 20 20 20 20 69 6e 64 68 6f 6c 64 0a 31 2d 34 20 20 20 20 74 65 78 74 20 ┆ende format: ord type indhold 1-4 text ┆
0x01440…01470 20 20 20 66 69 6c 6e 61 76 6e 20 28 6e 61 76 6e 20 70 7d 20 65 6e 20 70 72 6f 63 65 64 75 72 65 20 65 6c 6c 65 72 20 6c 69 67 6e 65 6e 64 65 29 ┆ filnavn (navn på en procedure eller lignende)┆
0x01470…014a0 2e 0a 35 2d 36 20 20 20 20 72 65 61 6c 20 20 20 20 64 61 74 6f 20 66 6f 72 20 69 6e 64 73 7b 74 74 65 6c 73 65 6e 20 61 66 20 66 69 6c 65 6e 20 ┆. 5-6 real dato for indsættelsen af filen ┆
0x014a0…014d0 69 20 62 69 62 6c 69 6f 74 65 6b 65 74 20 70 7d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 6f 72 6d 65 6e 20 7d 7d 6d 6d 64 64 2e 0a 37 ┆i biblioteket på formen ååmmdd. 7┆
0x014d0…01500 2d 31 30 20 20 20 74 65 78 74 20 20 20 20 6e 61 76 6e 20 70 7d 20 63 6f 6e 74 72 61 63 74 66 69 6c 2c 20 64 65 72 20 69 6e 64 65 68 6f 6c 64 65 ┆-10 text navn på contractfil, der indeholde┆
0x01500…01530 72 20 66 69 6c 65 6e 2e 0a 0a 65 6f 66 2d 70 6f 73 74 65 6e 20 68 61 72 20 66 7c 6c 67 65 6e 64 65 20 66 6f 72 6d 61 74 3a 0a 6f 72 64 20 20 20 ┆r filen. eof-posten har følgende format: ord ┆
0x01530…01560 20 74 79 70 65 20 20 20 20 69 6e 64 68 6f 6c 64 0a 31 20 20 20 20 20 20 69 6e 74 20 20 20 20 20 38 33 38 38 36 30 37 2e 0a 32 20 20 20 20 20 20 ┆ type indhold 1 int 8388607. 2 ┆
0x01560…01590 69 6e 74 20 20 20 20 20 38 33 38 38 36 30 37 2e 0a 33 2d 31 30 20 20 20 20 20 20 20 20 20 20 20 75 62 65 6e 79 74 74 65 74 2e 0a 0a 75 64 73 6b ┆int 8388607. 3-10 ubenyttet. udsk┆
0x01590…015c0 72 69 66 74 65 6e 20 6b 6f 6d 6d 65 72 20 70 7d 20 63 75 72 72 65 6e 74 20 6f 75 74 70 75 74 2c 20 6f 67 20 69 6e 64 6c 65 64 65 73 20 61 6c 74 ┆riften kommer på current output, og indledes alt┆
0x015c0…015f0 69 64 20 6d 65 64 0a 73 69 64 65 73 6b 69 66 74 2e 20 0a 0a 66 65 6a 6c 72 65 61 6b 74 69 6f 6e 65 72 3a 0a 68 76 69 73 20 64 65 72 20 65 72 20 ┆id med sideskift. fejlreaktioner: hvis der er ┆
0x015f0…01620 66 65 6a 6c 20 69 20 62 69 62 6c 69 6f 74 65 6b 73 20 61 6e 67 69 76 65 6c 73 65 6e 20 75 64 73 6b 72 69 76 65 73 20 65 6e 20 66 65 6a 6c 6d 65 ┆fejl i biblioteks angivelsen udskrives en fejlme┆
0x01620…01650 64 64 65 6c 65 6c 73 65 0a 6f 67 20 6b 7c 72 73 6c 65 6e 20 73 74 6f 70 70 65 73 2e 20 69 20 73 7d 20 66 61 6c 64 20 65 72 20 6f 6b 2e 6e 6f 20 ┆ddelelse og kørslen stoppes. i så fald er ok.no ┆
0x01650…01680 73 61 74 2e 0a 0a 6b 61 6c 64 74 65 20 70 72 6f 63 65 64 75 72 65 72 3a 0a 66 69 6e 64 66 70 70 61 72 61 6d 0a 2a 3e 0a 0c 6d 65 73 73 61 67 65 ┆sat. kaldte procedurer: findfpparam *> message┆
0x01680…016b0 20 62 69 62 69 6e 64 6c 65 64 20 73 69 64 65 20 31 61 2e 20 61 72 3b 0a 0a 20 20 20 69 6e 74 65 67 65 72 20 61 6e 74 61 6c 63 6f 6e 74 70 6f 73 ┆ bibindled side 1a. ar; integer antalcontpos┆
0x016b0…016e0 74 65 72 3b 20 20 20 20 20 20 20 3c 2a 20 61 6e 74 61 6c 70 6f 73 74 65 72 20 66 72 61 20 63 6f 6e 74 73 6f 72 74 66 69 6c 2e 20 2a 3e 0a 20 20 ┆ter; <* antalposter fra contsortfil. *> ┆
0x016e0…01710 20 69 6e 74 65 67 65 72 20 61 6e 74 61 6c 66 69 6c 65 72 3b 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 20 61 6e 74 61 6c 20 66 69 6c 65 72 20 28 ┆ integer antalfiler; <* antal filer (┆
0x01710…01740 2d 20 67 65 6e 65 72 65 72 69 6e 67 73 66 69 6c 29 2a 3e 0a 20 20 20 69 6e 74 65 67 65 72 20 64 61 74 6f 3b 0a 20 20 20 69 6e 74 65 67 65 72 20 ┆- genereringsfil)*> integer dato; integer ┆
0x01740…01770 69 3b 0a 20 20 20 69 6e 74 65 67 65 72 20 70 6c 61 64 73 70 7d 73 69 64 65 6e 3b 20 20 20 20 20 20 20 20 20 20 3c 2a 20 61 6e 74 61 6c 20 6c 69 ┆i; integer pladspåsiden; <* antal li┆
0x01770…017a0 6e 69 65 72 2c 20 64 65 72 20 73 74 61 64 69 67 20 6b 61 6e 20 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 20 20 ┆nier, der stadig kan ┆
0x017a0…017d0 20 20 20 20 20 20 20 20 75 64 73 6b 72 69 76 65 73 20 70 7d 20 64 65 6e 6e 65 20 73 69 64 65 2e 20 6d 61 78 20 61 6e 74 61 6c 0a 20 20 20 20 20 ┆ udskrives på denne side. max antal ┆
0x017d0…01800 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 6c 69 6e 69 65 72 20 70 72 20 73 69 64 65 20 3d 20 36 32 ┆ linier pr side = 62┆
0x01800…01830 2e 20 2a 3e 0a 20 20 20 69 6e 74 65 67 65 72 20 74 79 70 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 20 31 2c 32 2c 33 2c ┆. *> integer type; <* 1,2,3,┆
0x01830…01860 34 20 3a 20 70 72 6f 63 65 2c 70 72 6f 67 2c 6a 6f 62 2c 61 6e 64 65 74 2e 20 2a 3e 0a 0a 20 20 20 6c 6f 6e 67 20 63 6f 6e 74 6e 7c 67 6c 65 31 ┆4 : proce,prog,job,andet. *> long contnøgle1┆
0x01860…01890 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 20 66 7c 72 73 74 65 20 36 20 74 65 67 6e 20 61 66 20 66 69 6c 6e 61 76 6e 2e 20 2a 3e 0a ┆; <* første 6 tegn af filnavn. *> ┆
0x01890…018c0 20 20 20 6c 6f 6e 67 20 63 6f 6e 74 6e 7c 67 6c 65 32 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 20 73 69 64 73 74 65 20 35 20 74 65 ┆ long contnøgle2; <* sidste 5 te┆
0x018c0…018f0 67 6e 20 28 65 76 74 20 62 61 72 20 6e 75 6c 6c 29 2e 20 2a 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 0a 20 20 20 6c 6f 6e 67 20 65 6f 66 3b 20 ┆gn (evt bar null). *> long eof; ┆
0x018f0…01920 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 20 65 6f 66 2d 76 7b 72 64 69 65 6e 20 28 6d 61 78 69 6e 74 2e 6d 61 78 69 ┆ <* eof-værdien (maxint.maxi┆
0x01920…01950 6e 74 29 2e 20 2a 3e 0a 0a 20 20 20 72 65 61 6c 20 72 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 3c 2a 20 62 65 ┆nt). *> real r; <* be┆
0x01950…01980 6e 79 74 74 65 73 20 69 20 6b 61 6c 64 20 61 66 20 73 79 73 74 69 6d 65 2e 20 2a 3e 0a 20 20 20 72 65 61 6c 20 74 69 6d 65 3b 20 20 20 20 20 20 ┆nyttes i kald af systime. *> real time; ┆
0x01980…019b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 20 62 65 6e 79 74 74 65 73 20 69 20 6b 61 6c 64 20 61 66 20 73 79 73 74 69 6d 65 2e 20 2a 3e ┆ <* benyttes i kald af systime. *>┆
0x019b0…019e0 0a 0a 20 20 20 62 6f 6f 6c 65 61 6e 20 73 74 6a 65 72 6e 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 20 66 61 6c 73 65 20 61 64 64 ┆ boolean stjerne; <* false add┆
0x019e0…01a10 20 34 32 20 28 27 2a 27 29 2e 20 2a 3e 0a 0a 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 69 61 28 31 3a 34 29 3b 20 20 20 20 20 20 20 20 ┆ 42 ('*'). *> integer array ia(1:4); ┆
0x01a10…01a40 20 3c 2a 20 62 65 6e 79 74 74 65 73 20 76 65 64 20 70 72 6f 63 65 64 75 72 65 6b 61 6c 64 2e 20 2a 3e 0a 0a 20 20 20 6c 6f 6e 67 20 61 72 72 61 ┆ <* benyttes ved procedurekald. *> long arra┆
0x01a40…01a70 79 20 66 69 65 6c 64 20 6c 61 3b 20 20 20 20 20 20 20 20 20 20 20 3c 2a 20 61 6c 74 69 64 20 30 2e 20 2a 3e 0a 20 20 20 6c 6f 6e 67 20 61 72 72 ┆y field la; <* altid 0. *> long arr┆
0x01a70…01aa0 61 79 20 66 69 65 6c 64 20 63 6f 6e 74 6e 61 76 6e 3b 20 20 20 20 20 3c 2a 20 61 6c 74 69 64 20 31 32 20 28 70 65 67 65 72 20 70 7d 20 63 6f 6e ┆ay field contnavn; <* altid 12 (peger på con┆
0x01aa0…01ad0 74 72 61 63 74 66 69 6c 6e 61 76 6e 2a 3e 0a 0a 20 20 20 7a 6f 6e 65 20 63 6f 6e 74 7a 6f 6e 65 28 31 32 38 2c 31 2c 73 74 64 65 72 72 6f 72 29 ┆tractfilnavn*> zone contzone(128,1,stderror)┆
0x01ad0…01b00 3b 20 3c 2a 20 6c 7b 73 65 72 20 69 20 63 6f 6e 74 73 6f 72 74 66 69 6c 2e 20 2a 3e 0a 0a 20 20 20 3c 2a 61 30 20 69 6e 74 65 67 65 72 20 61 72 ┆; <* læser i contsortfil. *> <*a0 integer ar┆
0x01b00…01b30 72 61 79 20 74 31 28 30 3a 31 38 29 3b 20 30 61 2a 3e 0a 0c 6d 65 73 73 61 67 65 20 70 72 6f 63 65 64 75 72 65 20 6c 7b 73 63 6f 6e 74 70 6f 73 ┆ray t1(0:18); 0a*> message procedure læscontpos┆
0x01b30…01b60 74 20 73 69 64 65 20 31 2e 20 61 72 20 32 2d 38 2d 31 39 37 38 20 76 65 72 73 69 6f 6e 20 31 3b 0a 0a 20 20 20 70 72 6f 63 65 64 75 72 65 20 6c ┆t side 1. ar 2-8-1978 version 1; procedure l┆
0x01b60…01b90 7b 73 63 6f 6e 74 70 6f 73 74 3b 0a 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 3c 2a 61 30 20 74 65 73 74 28 31 2c 74 31 2c 30 29 3b 20 30 61 ┆æscontpost; begin <*a0 test(1,t1,0); 0a┆
0x01b90…01bc0 2a 3e 0a 20 20 20 20 20 20 69 6e 72 65 63 36 28 63 6f 6e 74 7a 6f 6e 65 2c 32 30 29 3b 0a 20 20 20 20 20 20 63 6f 6e 74 6e 7c 67 6c 65 31 20 3a ┆*> inrec6(contzone,20); contnøgle1 :┆
0x01bc0…01bf0 3d 20 63 6f 6e 74 7a 6f 6e 65 2e 6c 61 28 31 29 3b 0a 20 20 20 20 0a 20 20 20 20 20 20 69 66 20 63 6f 6e 74 6e 7c 67 6c 65 31 3d 65 6f 66 20 74 ┆= contzone.la(1); if contnøgle1=eof t┆
0x01bf0…01c20 68 65 6e 0a 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 3c 2a 61 30 20 74 65 73 74 28 31 2c 74 31 2c 31 29 3b 20 30 61 2a 3e ┆hen begin <*a0 test(1,t1,1); 0a*>┆
0x01c20…01c50 0a 20 20 20 20 20 20 20 20 20 67 6f 74 6f 20 65 6f 66 6d 7c 64 74 3b 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 20 ┆ goto eofmødt; end else ┆
0x01c50…01c80 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 3c 2a 61 30 20 74 65 73 74 28 31 2c 74 31 2c 32 29 3b 20 30 61 2a 3e 0a 20 20 20 20 20 20 ┆ begin <*a0 test(1,t1,2); 0a*> ┆
0x01c80…01cb0 20 20 20 63 6f 6e 74 6e 7c 67 6c 65 32 20 3a 3d 20 63 6f 6e 74 7a 6f 6e 65 2e 6c 61 28 32 29 3b 0a 20 20 20 20 20 20 20 20 20 61 6e 74 61 6c 63 ┆ contnøgle2 := contzone.la(2); antalc┆
0x01cb0…01ce0 6f 6e 74 70 6f 73 74 65 72 20 3a 3d 20 61 6e 74 61 6c 63 6f 6e 74 70 6f 73 74 65 72 2b 31 3b 0a 20 20 20 20 20 20 20 20 20 3c 2a 61 31 20 69 66 ┆ontposter := antalcontposter+1; <*a1 if┆
0x01ce0…01d10 20 74 65 73 74 62 69 74 28 34 36 29 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 ┆ testbit(46) then begin ┆
0x01d10…01d40 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 63 6f 6e 74 70 6f 73 74 20 6e 72 3a 3e 2c 61 6e 74 61 6c 63 6f 6e 74 70 6f ┆ write(out,<:contpost nr:>,antalcontpo┆
0x01d40…01d70 73 74 65 72 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 20 66 69 6c 6e 61 76 6e 20 3d 3a 3e 2c 63 6f 6e 74 7a 6f 6e 65 ┆ster, <: filnavn =:>,contzone┆
0x01d70…01da0 2e 6c 61 2c 3c 3a 20 74 69 64 20 3d 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3c 64 64 64 64 64 64 2e 64 64 64 64 ┆.la,<: tid =:>, <<dddddd.dddd┆
0x01da0…01dd0 3e 2c 63 6f 6e 74 7a 6f 6e 65 28 33 29 2c 3c 3a 20 63 6f 6e 74 72 61 63 74 66 69 6c 20 3d 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆>,contzone(3),<: contractfil =:>, ┆
0x01dd0…01e00 20 20 20 20 20 20 63 6f 6e 74 7a 6f 6e 65 2e 63 6f 6e 74 6e 61 76 6e 2c 3c 3a 3c 31 30 3e 3a 3e 29 3b 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ contzone.contnavn,<:<10>:>); ┆
0x01e00…01e30 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 20 20 31 61 2a 3e 0a 20 20 20 20 20 20 65 6e 64 0a 20 20 20 65 6e 64 20 70 72 6f 63 65 64 75 72 ┆ end; 1a*> end end procedur┆
0x01e30…01e60 65 20 6c 7b 73 63 6f 6e 74 70 6f 73 74 3b 0a 0c 6d 65 73 73 61 67 65 20 62 69 62 69 6e 64 6c 65 64 20 73 69 64 65 20 32 2e 20 61 72 3b 0a 0a 20 ┆e læscontpost; message bibindled side 2. ar; ┆
0x01e60…01e90 20 20 3c 2a 20 69 6e 69 74 69 61 6c 69 73 65 72 69 6e 67 2e 20 2a 3e 0a 20 20 20 3c 2a 61 30 20 74 65 73 74 69 6e 69 74 28 31 2c 74 31 2c 30 29 ┆ <* initialisering. *> <*a0 testinit(1,t1,0)┆
0x01e90…01ec0 3b 20 30 61 2a 3e 0a 0a 20 20 20 3c 2a 20 6f 6b 2e 6e 6f 20 2a 3e 0a 20 20 20 65 72 72 6f 72 62 69 74 73 20 3a 3d 20 31 3b 0a 20 20 20 0a 20 20 ┆; 0a*> <* ok.no *> errorbits := 1; ┆
0x01ec0…01ef0 20 6c 61 20 3a 3d 20 30 3b 0a 20 20 20 63 6f 6e 74 6e 61 76 6e 20 3a 3d 20 31 32 3b 0a 20 20 20 65 6f 66 20 3a 3d 20 65 78 74 65 6e 64 20 38 33 ┆ la := 0; contnavn := 12; eof := extend 83┆
0x01ef0…01f20 38 38 36 30 37 20 73 68 69 66 74 20 32 34 20 61 64 64 20 38 33 38 38 36 30 37 3b 0a 20 20 20 61 6e 74 61 6c 63 6f 6e 74 70 6f 73 74 65 72 20 3a ┆88607 shift 24 add 8388607; antalcontposter :┆
0x01f20…01f50 3d 20 30 3b 0a 20 20 20 61 6e 74 61 6c 66 69 6c 65 72 20 3a 3d 20 30 3b 0a 20 20 20 73 74 6a 65 72 6e 65 20 3a 3d 20 66 61 6c 73 65 20 61 64 64 ┆= 0; antalfiler := 0; stjerne := false add┆
0x01f50…01f80 20 34 32 3b 0a 0a 20 20 20 3c 2a 20 7a 6f 6e 65 6e 20 74 69 6c 20 63 6f 6e 74 73 6f 72 74 66 69 6c 20 7d 62 6e 65 73 2e 20 2a 3e 0a 20 20 20 6f ┆ 42; <* zonen til contsortfil åbnes. *> o┆
0x01f80…01fb0 70 65 6e 28 63 6f 6e 74 7a 6f 6e 65 2c 34 2c 3c 3a 63 6f 6e 74 73 6f 72 74 66 69 6c 3a 3e 2c 30 29 3b 0a 0a 3c 2a 20 74 79 70 65 6e 20 66 69 6e ┆pen(contzone,4,<:contsortfil:>,0); <* typen fin┆
0x01fb0…01fe0 64 65 73 2e 20 2a 3e 0a 69 66 20 66 69 6e 64 66 70 70 61 72 61 6d 28 3c 3a 62 69 62 6c 69 6f 74 65 6b 3a 3e 2c 66 61 6c 73 65 2c 69 61 29 20 3c ┆des. *> if findfpparam(<:bibliotek:>,false,ia) <┆
0x01fe0…02010 3e 20 31 20 74 68 65 6e 0a 62 65 67 69 6e 0a 20 20 20 3c 2a 61 30 20 74 65 73 74 28 31 2c 74 31 2c 33 29 3b 20 30 61 2a 3e 0a 20 20 20 77 72 69 ┆> 1 then begin <*a0 test(1,t1,3); 0a*> wri┆
0x02010…02040 74 65 28 6f 75 74 2c 3c 3a 2a 2a 2a 66 65 6a 6c 20 69 20 61 6e 67 69 76 65 6c 73 65 20 61 66 20 62 69 62 6c 69 6f 74 65 6b 2e 3c 31 30 3e 3a 3e ┆te(out,<:***fejl i angivelse af bibliotek.<10>:>┆
0x02040…02070 29 3b 0a 20 20 20 67 6f 74 6f 20 73 6c 75 74 3b 0a 65 6e 64 3b 0a 0a 69 66 20 69 61 2e 6c 61 28 31 29 20 3d 20 6c 6f 6e 67 20 3c 3a 70 72 6f 63 ┆); goto slut; end; if ia.la(1) = long <:proc┆
0x02070…020a0 65 3a 3e 20 74 68 65 6e 0a 62 65 67 69 6e 0a 20 20 20 3c 2a 61 30 20 74 65 73 74 28 31 2c 74 31 2c 34 29 3b 20 30 61 2a 3e 0a 20 20 20 74 79 70 ┆e:> then begin <*a0 test(1,t1,4); 0a*> typ┆
0x020a0…020d0 65 20 3a 3d 20 31 3b 0a 65 6e 64 0a 65 6c 73 65 0a 69 66 20 69 61 2e 6c 61 28 31 29 20 3d 20 6c 6f 6e 67 20 3c 3a 70 72 6f 67 3a 3e 20 74 68 65 ┆e := 1; end else if ia.la(1) = long <:prog:> the┆
0x020d0…02100 6e 0a 62 65 67 69 6e 0a 20 20 20 3c 2a 61 30 20 74 65 73 74 28 31 2c 74 31 2c 35 29 3b 20 30 61 2a 3e 0a 20 20 20 74 79 70 65 20 3a 3d 20 32 3b ┆n begin <*a0 test(1,t1,5); 0a*> type := 2;┆
0x02100…02130 0a 65 6e 64 0a 65 6c 73 65 0a 69 66 20 69 61 2e 6c 61 28 31 29 20 3d 20 6c 6f 6e 67 20 3c 3a 6a 6f 62 3a 3e 20 74 68 65 6e 0a 62 65 67 69 6e 0a ┆ end else if ia.la(1) = long <:job:> then begin ┆
0x02130…02160 20 20 20 3c 2a 61 30 20 74 65 73 74 28 31 2c 74 31 2c 36 29 3b 20 30 61 2a 3e 0a 20 20 20 74 79 70 65 20 3a 3d 20 33 3b 0a 65 6e 64 0a 65 6c 73 ┆ <*a0 test(1,t1,6); 0a*> type := 3; end els┆
0x02160…02190 65 0a 69 66 20 69 61 2e 6c 61 28 31 29 20 3d 20 6c 6f 6e 67 20 3c 3a 61 6e 64 65 74 3a 3e 20 74 68 65 6e 0a 62 65 67 69 6e 0a 20 20 20 3c 2a 61 ┆e if ia.la(1) = long <:andet:> then begin <*a┆
0x02190…021c0 30 20 74 65 73 74 28 31 2c 74 31 2c 37 29 3b 20 30 61 2a 3e 0a 20 20 20 74 79 70 65 20 3a 3d 20 34 3b 0a 65 6e 64 0a 65 6c 73 65 0a 62 65 67 69 ┆0 test(1,t1,7); 0a*> type := 4; end else begi┆
0x021c0…021f0 6e 0a 20 20 20 3c 2a 61 30 20 74 65 73 74 28 31 2c 74 31 2c 38 29 3b 20 30 61 2a 3e 0a 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 2a 2a 2a 75 ┆n <*a0 test(1,t1,8); 0a*> write(out,<:***u┆
0x021f0…02220 6c 6f 76 6c 69 67 20 62 69 62 6c 69 6f 74 65 6b 73 74 79 70 65 2e 3c 31 30 3e 3a 3e 29 3b 0a 20 20 20 67 6f 74 6f 20 73 6c 75 74 3b 0a 65 6e 64 ┆lovlig bibliotekstype.<10>:>); goto slut; end┆
0x02220…02250 3b 0a 0c 6d 65 73 73 61 67 65 20 62 69 62 69 6e 64 6c 65 64 20 73 69 64 65 20 33 2e 20 61 72 3b 0a 0a 3c 2a 20 6e 75 20 66 69 6e 64 65 73 20 64 ┆; message bibindled side 3. ar; <* nu findes d┆
0x02250…02280 61 74 6f 65 6e 2c 20 6f 67 20 6f 76 65 72 73 6b 72 69 66 74 65 6e 20 75 64 73 6b 72 69 76 65 73 2e 20 2a 3e 0a 73 79 73 74 69 6d 65 28 31 2c 30 ┆atoen, og overskriften udskrives. *> systime(1,0┆
0x02280…022b0 2e 30 2c 74 69 6d 65 29 3b 0a 64 61 74 6f 20 3a 3d 20 73 79 73 74 69 6d 65 28 34 2c 74 69 6d 65 2c 72 29 3b 0a 77 72 69 74 65 28 6f 75 74 2c 66 ┆.0,time); dato := systime(4,time,r); write(out,f┆
0x022b0…022e0 66 2c 31 2c 73 74 6a 65 72 6e 65 2c 36 32 2c 6e 6c 2c 31 29 3b 0a 77 72 69 74 65 28 6f 75 74 2c 73 74 6a 65 72 6e 65 2c 31 2c 73 70 2c 36 30 2c ┆f,1,stjerne,62,nl,1); write(out,stjerne,1,sp,60,┆
0x022e0…02310 73 74 6a 65 72 6e 65 2c 31 2c 6e 6c 2c 31 29 3b 0a 0a 3c 2a 20 64 65 6e 20 6e 7b 73 74 65 20 6c 69 6e 69 65 20 61 66 73 6c 75 74 74 65 73 20 6d ┆stjerne,1,nl,1); <* den næste linie afsluttes m┆
0x02310…02340 65 64 20 37 35 20 6e 75 6c 6c 2d 74 65 67 6e 20 66 6f 72 20 61 74 20 73 69 6b 72 65 20 61 74 0a 20 6c 69 6e 69 65 6e 20 65 72 20 73 6b 72 65 76 ┆ed 75 null-tegn for at sikre at linien er skrev┆
0x02340…02370 65 74 20 70 7d 20 70 72 69 6e 74 65 72 65 6e 20 66 7c 72 20 64 65 72 20 73 6b 69 66 74 65 73 20 74 69 6c 20 73 70 7b 72 72 65 74 20 73 6b 72 69 ┆et på printeren før der skiftes til spærret skri┆
0x02370…023a0 66 74 2e 20 2a 3e 0a 77 72 69 74 65 28 6f 75 74 2c 73 74 6a 65 72 6e 65 2c 31 2c 73 70 2c 36 30 2c 73 74 6a 65 72 6e 65 2c 31 2c 66 61 6c 73 65 ┆ft. *> write(out,stjerne,1,sp,60,stjerne,1,false┆
0x023a0…023d0 20 61 64 64 20 31 33 2c 31 2c 66 61 6c 73 65 2c 37 35 29 3b 0a 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 34 3e 3a 3e 2c 63 61 73 65 20 74 79 70 ┆ add 13,1,false,75); write(out,<:<14>:>,case typ┆
0x023d0…02400 65 20 6f 66 20 28 0a 3c 3a 20 70 72 6f 63 65 64 75 72 65 20 62 69 62 6c 69 6f 74 65 6b 20 3a 3e 2c 0a 3c 3a 20 20 70 72 6f 67 72 61 6d 20 62 69 ┆e of ( <: procedure bibliotek :>, <: program bi┆
0x02400…02430 62 6c 69 6f 74 65 6b 20 20 3a 3e 2c 0a 3c 3a 20 20 6a 6f 62 66 69 6c 20 62 69 62 6c 69 6f 74 65 6b 20 20 20 3a 3e 2c 0a 3c 3a 20 20 20 20 20 20 ┆bliotek :>, <: jobfil bibliotek :>, <: ┆
0x02430…02460 20 20 20 20 20 20 3a 3e 29 29 3b 0a 6f 75 74 64 61 74 65 28 6f 75 74 2c 64 61 74 6f 29 3b 0a 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 32 34 3e 3c ┆ :>)); outdate(out,dato); write(out,<:<24><┆
0x02460…02490 31 30 3e 3a 3e 29 3b 0a 77 72 69 74 65 28 6f 75 74 2c 73 74 6a 65 72 6e 65 2c 31 2c 73 70 2c 36 30 2c 73 74 6a 65 72 6e 65 2c 31 2c 6e 6c 2c 31 ┆10>:>); write(out,stjerne,1,sp,60,stjerne,1,nl,1┆
0x02490…024c0 29 3b 0a 77 72 69 74 65 28 6f 75 74 2c 73 74 6a 65 72 6e 65 2c 36 32 2c 6e 6c 2c 31 29 3b 0a 0a 3c 2a 20 6e 75 20 75 64 73 6b 72 69 76 65 73 20 ┆); write(out,stjerne,62,nl,1); <* nu udskrives ┆
0x024c0…024f0 64 65 6e 20 73 69 64 73 74 65 20 64 65 6c 20 61 66 20 74 65 6b 73 74 65 6e 2e 20 2a 3e 0a 63 61 73 65 20 74 79 70 65 20 6f 66 0a 62 65 67 69 6e ┆den sidste del af teksten. *> case type of begin┆
0x024f0…02520 0a 0a 3c 2a 20 74 79 70 65 20 31 2c 20 70 72 6f 63 65 64 75 72 65 62 69 62 6c 69 6f 74 65 6b 2e 20 2a 3e 0a 62 65 67 69 6e 0a 3c 2a 61 30 20 74 ┆ <* type 1, procedurebibliotek. *> begin <*a0 t┆
0x02520…02550 65 73 74 28 31 2c 74 31 2c 39 29 3b 20 30 61 2a 3e 0a 77 72 69 74 65 28 6f 75 74 2c 0a 3c 3a 44 65 6e 6e 65 20 62 65 73 6b 72 69 76 65 6c 73 65 ┆est(1,t1,9); 0a*> write(out, <:Denne beskrivelse┆
0x02550…02580 20 66 7d 73 20 76 65 64 20 66 70 2d 6b 6f 6d 6d 61 6e 64 6f 65 6e 0a 4c 50 3d 43 4f 50 59 20 50 52 4f 43 42 49 42 4c 49 4f 0a 0a 70 72 6f 63 65 ┆ fås ved fp-kommandoen LP=COPY PROCBIBLIO proce┆
0x02580…025b0 64 75 72 65 6e 65 20 69 20 62 69 62 6c 69 6f 74 65 6b 65 74 20 65 72 20 6f 76 65 72 73 61 74 20 73 6f 6d 20 65 6b 73 74 65 72 6e 65 20 70 72 6f ┆durene i biblioteket er oversat som eksterne pro┆
0x025b0…025e0 63 65 64 75 72 65 72 2c 20 73 7d 0a 64 65 20 6b 61 6e 20 62 65 6e 79 74 74 65 73 20 64 69 72 65 6b 74 65 20 69 20 70 72 6f 67 72 61 6d 6d 65 72 ┆cedurer, så de kan benyttes direkte i programmer┆
0x025e0…02610 6e 65 20 75 64 65 6e 20 66 6f 72 75 64 67 7d 65 6e 64 65 0a 65 72 6b 6c 7b 72 69 6e 67 2e 0a 0a 6e 7b 72 6d 65 72 65 20 6f 70 6c 79 73 6e 69 6e ┆ne uden forudgående erklæring. nærmere oplysnin┆
0x02610…02640 67 65 72 20 6f 6d 20 70 72 6f 63 65 64 75 72 65 20 62 69 62 6c 69 6f 74 65 6b 65 74 20 66 7d 73 20 68 6f 73 0a 41 6e 64 65 72 73 20 52 61 61 73 ┆ger om procedure biblioteket fås hos Anders Raas┆
0x02640…02670 74 65 64 2e 0a 0a 70 72 6f 63 65 64 75 72 65 20 62 69 62 6c 69 6f 74 65 6b 65 74 20 69 6e 64 65 68 6f 6c 64 65 72 20 66 7c 6c 67 65 6e 64 65 20 ┆ted. procedure biblioteket indeholder følgende ┆
0x02670…026a0 6b 69 6c 64 65 74 65 6b 73 74 65 72 3a 3c 31 30 3e 3a 3e 29 3b 0a 70 6c 61 64 73 70 7d 73 69 64 65 6e 20 3a 3d 20 34 32 3b 0a 65 6e 64 20 74 79 ┆kildetekster:<10>:>); pladspåsiden := 42; end ty┆
0x026a0…026d0 70 65 20 31 3b 0a 0a 3c 2a 20 74 79 70 65 20 32 2c 20 70 72 6f 67 72 61 6d 20 62 69 62 6c 69 6f 74 65 6b 2e 20 2a 3e 0a 62 65 67 69 6e 0a 3c 2a ┆pe 1; <* type 2, program bibliotek. *> begin <*┆
0x026d0…02700 61 30 20 74 65 73 74 28 31 2c 74 31 2c 31 30 29 3b 20 30 61 2a 3e 0a 77 72 69 74 65 28 6f 75 74 2c 0a 3c 3a 44 65 6e 6e 65 20 62 65 73 6b 72 69 ┆a0 test(1,t1,10); 0a*> write(out, <:Denne beskri┆
0x02700…02730 76 65 6c 73 65 20 64 61 6e 6e 65 73 20 76 65 64 20 66 70 2d 6b 6f 6d 6d 61 6e 64 6f 65 6e 0a 4c 50 3d 43 4f 50 59 20 50 52 4f 47 42 49 42 4c 49 ┆velse dannes ved fp-kommandoen LP=COPY PROGBIBLI┆
0x02730…02760 4f 0a 0a 6e 7b 72 6d 65 72 65 20 6f 70 6c 79 73 6e 69 6e 67 65 72 20 6f 6d 20 70 72 6f 67 72 61 6d 20 62 69 62 6c 69 6f 74 65 6b 65 74 20 66 7d ┆O nærmere oplysninger om program biblioteket få┆
[…truncated at 200 lines…]