|
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…00020 (1, 39780) 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 ┆ "H n warcheckbib disc ┆
0x00020…00040 00 00 00 00 63 d7 a7 00 00 00 00 00 00 00 00 00 00 00 00 00 60 80 00 00 6e 00 00 77 62 69 62 69 ┆ c ` n wbibi┆
0x00040…00060 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 ┆ndledtx disc gd ┆
0x00060…00080 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 ┆ constsl di┆
0x00080…000a0 73 63 00 00 00 00 00 00 00 00 62 82 81 00 00 00 00 00 00 00 00 00 00 00 00 01 21 a0 00 00 0a 00 ┆sc b ! ┆
0x000a0…000c0 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…000e0 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 ┆ Aj contracted ┆
0x000e0…00100 00 00 00 04 64 69 73 63 00 00 00 00 00 00 00 00 6e 9b b5 00 00 00 00 00 00 00 00 00 00 00 00 01 ┆ disc n ┆
0x00100…00120 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 ┆ contracttx !disc ┆
0x00120…00140 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 ┆ bH X n wdanbe┆
0x00140…00160 73 6b 72 69 74 78 00 00 00 03 64 69 73 63 00 00 00 00 00 00 00 00 62 c8 c4 00 00 00 00 00 00 00 ┆skritx disc b ┆
0x00160…00180 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 ┆ @ n wdancontkotx dis┆
0x00180…001a0 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 ┆c aBX A ┆
0x001a0…001c0 13 64 69 73 63 73 74 61 74 74 78 00 00 00 00 0c 64 69 73 63 00 00 00 00 00 00 00 00 63 50 43 00 ┆ discstattx disc cPC ┆
0x001c0…001e0 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 ┆ fpm ┆
0x001e0…00200 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 ┆ disc g5 g┆
0x00200…00220 53 09 56 aa 09 56 b3 67 65 74 65 78 74 65 72 65 64 31 00 00 00 03 64 69 73 63 31 31 00 00 00 00 ┆S V V getextered1 disc11 ┆
0x00220…00240 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 ┆ w 0 getext┆
0x00240…00260 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 ┆erned disc bo ┆
0x00260…00280 00 00 00 00 05 b3 10 00 00 0a 00 00 13 67 65 74 65 78 74 65 72 6e 74 78 00 00 00 0d 64 69 73 63 ┆ getexterntx disc┆
0x00280…002a0 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 ┆ bN s N ┆
0x002a0…002c0 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 ┆initparamtx disc y q ┆
0x002c0…002e0 00 00 00 00 00 00 00 00 00 00 07 75 d0 00 00 0a 00 00 13 6c 69 73 74 63 6f 6e 74 72 74 78 00 00 ┆ u listcontrtx ┆
0x002e0…00300 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 ┆ disc boZ ┆
0x00300…00320 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 ┆ 8 n wlæscatsortx disc ┆
0x00320…00340 00 00 00 00 61 42 55 00 00 00 00 00 00 00 00 00 00 00 00 08 08 70 00 00 6e 00 00 77 6c 7b 73 63 ┆ aBU p n wlæsc┆
0x00340…00360 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 ┆ontlitx disc c U ┆
0x00360…00380 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 ┆ pP paramtabtx di┆
0x00380…003a0 73 63 00 00 00 00 00 00 00 00 9b a3 1b 00 00 00 00 00 00 00 00 00 00 00 00 08 d3 d8 00 00 6e 00 ┆sc n ┆
0x003a0…003c0 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 ┆ wsetbeskrctx disc f" ┆
0x003c0…003e0 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 ┆ ┆
[…0x10…]
0x005e0…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 13 ┆ ┆
0x00600…00620 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 ┆; kommandofil archeckbib ar 7811┆
0x00620…00640 31 34 2e 0a 3b 0a 3b 20 64 65 6e 6e 65 20 6b 6f 6d 6d 61 6e 64 6f 66 69 6c 20 64 61 6e 6e 65 72 ┆14. ; ; denne kommandofil danner┆
0x00640…00660 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 ┆ en kommandofil 'contractkom', ;┆
0x00660…00680 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 ┆ der indsætter de filer, der fin┆
0x00680…006a0 64 65 73 20 69 20 65 6e 20 67 61 6d 6d 65 6c 20 76 65 72 73 69 6f 6e 20 69 20 65 6e 0a 3b 20 63 ┆des i en gammel version i en ; c┆
0x006a0…006c0 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 ┆ontractfil i procedurebiblioteke┆
0x006c0…006e0 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 ┆t, ; programbiblioteket, jobfilb┆
0x006e0…00700 69 62 6c 69 6f 74 65 6b 65 74 20 65 6c 6c 65 72 20 63 6c 64 76 65 64 6c 2e 20 0a 3b 20 6f 67 20 ┆iblioteket eller cldvedl. ; og ┆
0x00700…00720 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 ┆i en nyere udenfor contractfilen┆
0x00720…00740 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 ┆ ; i eller inden for user-base-i┆
0x00740…00760 6e 74 65 72 76 61 6c 6c 65 74 2e 0a 3b 0a 3b 20 6d 69 6e 69 6d 75 6d 20 72 65 73 6f 75 72 63 65 ┆ntervallet. ; ; minimum resource┆
0x00760…00780 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 ┆krav: ; proces-size : 14500 byte┆
0x00780…007a0 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 ┆s ; area : 7 (6 under dan┆
0x007a0…007c0 6e 65 6c 73 65 20 61 66 20 63 6f 6e 74 72 61 63 74 6b 6f 6d 2c 0a 3b 20 20 20 20 20 20 20 20 20 ┆nelse af contractkom, ; ┆
0x007c0…007e0 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 ┆ 7 under udførsel af con┆
0x007e0…00800 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 ┆tractkom). ; buf : 7 ; s┆
0x00800…00820 65 67 6d 65 6e 74 65 72 20 20 20 3a 20 33 31 35 0a 3b 0a 3b 20 69 20 66 6f 72 68 6f 6c 64 20 74 ┆egmenter : 315 ; ; i forhold t┆
0x00820…00840 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 ┆il en standardproces kræves følg┆
0x00840…00860 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 ┆ende ; att s ; remove size 14500┆
0x00860…00880 20 61 72 65 61 20 37 20 72 75 6e 0a 3b 0a 3b 20 66 7c 72 73 74 20 6c 61 76 65 73 20 65 6e 20 63 ┆ area 7 run ; ; først laves en c┆
0x00880…008a0 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 ┆atsort og en contract.list ; på ┆
0x008a0…008c0 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 ┆de ønskede contractfiler. ; mes┆
0x008c0…008e0 73 61 67 65 20 73 74 61 72 74 20 70 7d 20 63 61 74 73 6f 72 74 20 6f 67 20 63 6f 6e 74 6c 69 73 ┆sage start på catsort og contlis┆
0x008e0…00900 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 ┆t xxxcatlist=set 21 xxxcontlist=┆
0x00900…00920 (1, 39781) 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 ┆set 21 o xxxcatlist catsort base┆
0x00920…00940 2e 75 73 65 72 0a 69 66 20 6f 6b 2e 79 65 73 0a 73 6b 69 70 20 36 34 2e 31 20 3b 20 73 6b 69 70 ┆.user if ok.yes skip 64.1 ; skip┆
0x00940…00960 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 ┆ hvis catsort ok, ellers lav fej┆
0x00960…00980 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 ┆ludskrift o c message for få tem┆
0x00980…009a0 70 6f 72 7b 72 65 20 73 65 67 6d 65 6e 74 65 72 20 74 69 6c 20 63 61 74 73 6f 72 74 20 73 6f 72 ┆porære segmenter til catsort sor┆
0x009a0…009c0 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 ┆tarea skip 64.2 @ o xxxcontlist ┆
0x009c0…009e0 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 ┆contract list.tcldprocbib contra┆
0x009e0…00a00 63 74 20 6c 69 73 74 2e 74 72 63 75 73 65 72 6c 69 62 0a 63 6f 6e 74 72 61 63 74 20 6c 69 73 74 ┆ct list.trcuserlib contract list┆
0x00a00…00a20 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 ┆.jobfilbib contract list.program┆
0x00a20…00a40 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 ┆bib contract list.cldvedl o c ; ┆
0x00a40…00a60 3b 20 6e 75 20 66 6a 65 72 6e 65 73 20 27 20 64 2e 27 20 66 72 61 20 6c 69 73 74 6e 69 6e 67 65 ┆; nu fjernes ' d.' fra listninge┆
0x00a60…00a80 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 ┆rne ; o xxxskratch xxxcontlist=e┆
0x00a80…00aa0 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 ┆dit xxxcontlist g b' d.' ' f xxx┆
0x00aa0…00ac0 63 61 74 6c 69 73 74 3d 65 64 69 74 20 78 78 78 63 61 74 6c 69 73 74 0a 67 20 62 27 20 64 2e 27 ┆catlist=edit xxxcatlist g b' d.'┆
0x00ac0…00ae0 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 ┆ ' f o c ; ; nu dannes filerne '┆
0x00ae0…00b00 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 ┆catpostfil' og 'contpostfil', de┆
0x00b00…00b20 72 0a 3b 20 66 6f 72 20 68 76 65 72 20 66 69 6c 20 69 20 64 65 20 32 20 6c 69 73 74 65 72 20 64 ┆r ; for hver fil i de 2 lister d┆
0x00b20…00b40 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 ┆anner en komprimeret post. ; mes┆
0x00b40…00b60 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 ┆sage nu dannes catpostfil og con┆
0x00b60…00b80 74 70 6f 73 74 66 69 6c 0a 63 61 74 70 6f 73 74 66 69 6c 3d 73 65 74 20 32 31 0a 63 6f 6e 74 70 ┆tpostfil catpostfil=set 21 contp┆
0x00b80…00ba0 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 ┆ostfil=set 21 læscatsort xxxcatl┆
0x00ba0…00bc0 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 ┆ist if ok.no skip 64.1 læscontli┆
0x00bc0…00be0 73 74 20 78 78 78 63 6f 6e 74 6c 69 73 74 0a 69 66 20 6f 6b 2e 6e 6f 0a 73 6b 69 70 20 36 34 2e ┆st xxxcontlist if ok.no skip 64.┆
0x00be0…00c00 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 ┆1 ; ; nu sorteres de 2 filer eft┆
0x00c00…00c20 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 ┆er filnavn og tidspunkt. ; messa┆
0x00c20…00c40 67 65 20 66 69 6c 65 72 6e 65 20 73 6f 72 74 65 72 65 73 0a 6f 20 78 78 78 73 6b 72 61 74 63 68 ┆ge filerne sorteres o xxxskratch┆
0x00c40…00c60 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 ┆ mdsort in.catpostfil out.catsor┆
0x00c60…00c80 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 ┆tfil, block.1.1, f┆
0x00c80…00ca0 69 78 2e 31 32 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 ┆ix.12, eof.8388607.838860┆
0x00ca0…00cc0 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 ┆7, long.4 long.8, ┆
0x00cc0…00ce0 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 ┆real.12 if ok.no skip 64.1 mdsor┆
0x00ce0…00d00 74 20 69 6e 2e 63 6f 6e 74 70 6f 73 74 66 69 6c 20 6f 75 74 2e 63 6f 6e 74 73 6f 72 74 66 69 6c ┆t in.contpostfil out.contsortfil┆
0x00d00…00d20 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 ┆, block.1.1, fix.2┆
0x00d20…00d40 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 ┆0, eof.8388607.8388607, ┆
0x00d40…00d60 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 72 65 61 6c ┆ long.4 long.8, real┆
0x00d60…00d80 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 ┆.12 if ok.no skip 64.1 o c ; ; n┆
0x00d80…00da0 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 ┆u dannes udskriften i filen cont┆
0x00da0…00dc0 72 61 63 74 6b 6f 6d 0a 3b 0a 6d 65 73 73 61 67 65 20 6e 75 20 64 61 6e 6e 65 73 20 63 6f 6e 74 ┆ractkom ; message nu dannes cont┆
0x00dc0…00de0 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 ┆ractkom contractkom=set 21 danco┆
0x00de0…00e00 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 ┆ntkom if ok.no skip 64.1 ; ; alt┆
0x00e00…00e20 20 65 72 20 67 7d 65 74 20 67 6f 64 74 2c 20 6e 75 20 66 6a 65 72 6e 65 73 20 64 65 20 74 65 6d ┆ er gået godt, nu fjernes de tem┆
0x00e20…00e40 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 ┆porære filer. ; clear temp xxxca┆
0x00e40…00e60 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 ┆tlist xxxcontlist catpostfil , ┆
0x00e60…00e80 20 20 63 6f 6e 74 70 6f 73 74 66 69 6c 20 78 78 78 73 6b 72 61 74 63 68 20 63 61 74 73 6f 72 74 ┆ contpostfil xxxskratch catsort┆
0x00e80…00ea0 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 ┆fil contsortfil message filerne ┆
0x00ea0…00ec0 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 ┆indsættes ved ordren message ┆
0x00ec0…00ee0 20 20 20 69 20 63 6f 6e 74 72 61 63 74 6b 6f 6d 0a 73 6b 69 70 20 33 0a 40 0a 6f 20 63 0a 6d 65 ┆ i contractkom skip 3 @ o c me┆
0x00ee0…00f00 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 ┆ssage fejl i archeckbib listning┆
0x00f00…00f20 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 ┆ i xxxskratch idspunkt. ; messa┆
0x00f20…00f40 67 65 20 66 69 6c 65 72 6e 65 20 73 6f 72 74 65 72 65 73 0a 6f 20 78 78 78 73 6b 72 61 74 63 68 ┆ge filerne sorteres o xxxskratch┆
0x00f40…00f60 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 ┆ mdsort in.catpostfil out.catsor┆
0x00f60…00f80 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 ┆tfil, block.1.1, f┆
0x00f80…00fa0 69 78 2e 31 32 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 ┆ix.12, eof.8388607.838860┆
0x00fa0…00fc0 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 ┆7, long.4 long.8, ┆
0x00fc0…00fe0 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 ┆real.12 if ok.no skip 64.1 mdsor┆
0x00fe0…01000 74 20 69 6e 2e 63 6f 6e 74 70 6f 73 74 66 69 6c 20 6f 75 74 2e 63 6f 6e 74 73 6f 72 74 66 69 6c ┆t in.contpostfil out.contsortfil┆
0x01000…01020 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 ┆, block.1.1, fix.2┆
0x01020…01040 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 ┆0, eof.8388607.8388607, ┆
0x01040…01060 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 72 65 61 6c ┆ long.4 long.8, real┆
0x01060…01080 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 ┆.12 if ok.no skip 64.1 o c ; ; n┆
0x01080…010a0 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 ┆u dannes udskriften i filen cont┆
0x010a0…010c0 72 61 63 74 6b 6f 6d 0a 3b 0a 6d 65 73 73 61 67 65 20 6e 75 20 64 61 6e 6e 65 73 20 63 6f 6e 74 ┆ractkom ; message nu dannes cont┆
0x010c0…010e0 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 ┆ractkom contractkom=set 21 danco┆
0x010e0…01100 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 ┆ntkom if ok.no skip 64.1 ; ; alt┆
0x01100…01120 20 65 72 20 67 7d 65 74 20 67 6f 64 74 2c 20 6e 75 20 66 6a 65 72 6e 65 73 20 64 65 20 74 65 6d ┆ er gået godt, nu fjernes de tem┆
0x01120…01140 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 ┆porære filer. ; clear temp xxxca┆
0x01140…01160 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 ┆tlist xxxcontlist catpostfil , ┆
0x01160…01180 20 20 63 6f 6e 74 70 6f 73 74 66 69 6c 20 78 78 78 73 6b 72 61 74 63 68 20 63 61 74 73 6f 72 74 ┆ contpostfil xxxskratch catsort┆
0x01180…011a0 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 ┆fil contsortfil message filerne ┆
0x011a0…011c0 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 ┆indsættes ved ordren message ┆
0x011c0…011e0 20 20 20 69 20 63 6f 6e 74 72 61 63 74 6b 6f 6d 0a 73 6b 69 70 20 33 0a 40 0a 6f 20 63 0a 6d 65 ┆ i contractkom skip 3 @ o c me┆
0x011e0…01200 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 ┆ssage fejl i archeckbib listning┆
0x01200…01220 (1, 39782) 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 ┆begin message bibindled side 1. ┆
0x01220…01240 61 72 20 37 39 30 34 30 34 20 76 65 72 73 69 6f 6e 20 31 3b 0a 0a 3c 2a 20 62 69 62 69 6e 64 6c ┆ar 790404 version 1; <* bibindl┆
0x01240…01260 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 ┆ed udskriver indledningsteksten ┆
0x01260…01280 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 ┆samt en indholdsfortegnelse til┆
0x01280…012a0 20 70 72 6f 63 65 64 75 72 65 2c 20 70 72 6f 67 72 61 6d 20 6f 67 20 6a 6f 62 66 69 6c 62 69 62 ┆ procedure, program og jobfilbib┆
0x012a0…012c0 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 ┆lioteket. programkald: bibindle┆
0x012c0…012e0 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 ┆d bibliotek.<type> <type> : pro┆
0x012e0…01300 63 65 20 66 6f 72 20 70 72 6f 63 65 64 75 72 65 62 69 62 6c 69 6f 74 65 6b 2e 0a 20 20 20 20 20 ┆ce for procedurebibliotek. ┆
0x01300…01320 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 ┆ prog for programbibliotek. ┆
0x01320…01340 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 ┆ job for jobfilbibliotek.┆
0x01340…01360 0a 20 20 20 20 20 20 20 20 20 61 6e 64 65 74 20 66 6f 72 20 61 6c 74 20 6d 75 6c 69 67 74 20 61 ┆ andet for alt muligt a┆
0x01360…01380 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 ┆ndet. bibindled læser desuden f┆
0x01380…013a0 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 ┆ra filen 'contsortfil', der er e┆
0x013a0…013c0 6e 20 73 6f 72 74 65 72 65 74 20 75 64 67 61 76 65 20 61 66 20 66 69 6c 65 6e 20 27 63 6f 6e 74 ┆n sorteret udgave af filen 'cont┆
0x013c0…013e0 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 ┆postfil', der dannes af programm┆
0x013e0…01400 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 ┆et læscontlist. posterne i cont┆
0x01400…01420 73 6f 72 74 66 69 6c 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 ┆sortfil har følgende format: ord┆
0x01420…01440 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 ┆ type indhold 1-4 text ┆
0x01440…01460 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 ┆ filnavn (navn på en procedure┆
0x01460…01480 20 65 6c 6c 65 72 20 6c 69 67 6e 65 6e 64 65 29 2e 0a 35 2d 36 20 20 20 20 72 65 61 6c 20 20 20 ┆ eller lignende). 5-6 real ┆
0x01480…014a0 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 ┆ dato for indsættelsen af filen ┆
0x014a0…014c0 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 ┆i biblioteket på ┆
0x014c0…014e0 66 6f 72 6d 65 6e 20 7d 7d 6d 6d 64 64 2e 0a 37 2d 31 30 20 20 20 74 65 78 74 20 20 20 20 6e 61 ┆formen ååmmdd. 7-10 text na┆
0x014e0…01500 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 ┆vn på contractfil, der indeholde┆
0x01500…01520 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 ┆r filen. eof-posten har følgend┆
0x01520…01540 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 ┆e format: ord type indhold┆
0x01540…01560 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 ┆ 1 int 8388607. 2 ┆
0x01560…01580 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 ┆int 8388607. 3-10 ┆
0x01580…015a0 75 62 65 6e 79 74 74 65 74 2e 0a 0a 75 64 73 6b 72 69 66 74 65 6e 20 6b 6f 6d 6d 65 72 20 70 7d ┆ubenyttet. udskriften kommer på┆
0x015a0…015c0 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 ┆ current output, og indledes alt┆
0x015c0…015e0 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 ┆id med sideskift. fejlreaktion┆
0x015e0…01600 65 72 3a 0a 68 76 69 73 20 64 65 72 20 65 72 20 66 65 6a 6c 20 69 20 62 69 62 6c 69 6f 74 65 6b ┆er: hvis der er fejl i bibliotek┆
0x01600…01620 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 ┆s angivelsen udskrives en fejlme┆
0x01620…01640 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 ┆ddelelse og kørslen stoppes. i s┆
0x01640…01660 7d 20 66 61 6c 64 20 65 72 20 6f 6b 2e 6e 6f 20 73 61 74 2e 0a 0a 6b 61 6c 64 74 65 20 70 72 6f ┆å fald er ok.no sat. kaldte pro┆
0x01660…01680 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 ┆cedurer: findfpparam *> message┆
0x01680…016a0 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 ┆ bibindled side 1a. ar; inte┆
0x016a0…016c0 67 65 72 20 61 6e 74 61 6c 63 6f 6e 74 70 6f 73 74 65 72 3b 20 20 20 20 20 20 20 3c 2a 20 61 6e ┆ger antalcontposter; <* an┆
0x016c0…016e0 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 ┆talposter fra contsortfil. *> ┆
0x016e0…01700 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 ┆ integer antalfiler; ┆
0x01700…01720 3c 2a 20 61 6e 74 61 6c 20 66 69 6c 65 72 20 28 2d 20 67 65 6e 65 72 65 72 69 6e 67 73 66 69 6c ┆<* antal filer (- genereringsfil┆
0x01720…01740 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 ┆)*> integer dato; integer ┆
0x01740…01760 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 ┆i; integer pladspåsiden; ┆
0x01760…01780 20 20 20 20 20 3c 2a 20 61 6e 74 61 6c 20 6c 69 6e 69 65 72 2c 20 64 65 72 20 73 74 61 64 69 67 ┆ <* antal linier, der stadig┆
0x01780…017a0 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 ┆ kan ┆
0x017a0…017c0 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 ┆ udskrives på denne side.┆
0x017c0…017e0 20 6d 61 78 20 61 6e 74 61 6c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ max antal ┆
0x017e0…01800 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…01820 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 ┆. *> integer type; ┆
0x01820…01840 20 20 20 20 20 20 20 3c 2a 20 31 2c 32 2c 33 2c 34 20 3a 20 70 72 6f 63 65 2c 70 72 6f 67 2c 6a ┆ <* 1,2,3,4 : proce,prog,j┆
0x01840…01860 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 ┆ob,andet. *> long contnøgle1┆
0x01860…01880 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 ┆; <* første 6 tegn┆
0x01880…018a0 20 61 66 20 66 69 6c 6e 61 76 6e 2e 20 2a 3e 0a 20 20 20 6c 6f 6e 67 20 63 6f 6e 74 6e 7c 67 6c ┆ af filnavn. *> long contnøgl┆
0x018a0…018c0 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 ┆e2; <* sidste 5 te┆
0x018c0…018e0 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 ┆gn (evt bar null). *> ┆
0x018e0…01900 20 20 0a 20 20 20 6c 6f 6e 67 20 65 6f 66 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ long eof; ┆
0x01900…01920 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…01940 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 ┆nt). *> real r; ┆
0x01940…01960 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 ┆ <* benyttes i kald af┆
0x01960…01980 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 ┆ systime. *> real time; ┆
0x01980…019a0 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 ┆ <* benyttes i kal┆
0x019a0…019c0 64 20 61 66 20 73 79 73 74 69 6d 65 2e 20 2a 3e 0a 0a 20 20 20 62 6f 6f 6c 65 61 6e 20 73 74 6a ┆d af systime. *> boolean stj┆
0x019c0…019e0 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 ┆erne; <* false add┆
0x019e0…01a00 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 ┆ 42 ('*'). *> integer array ┆
0x01a00…01a20 69 61 28 31 3a 34 29 3b 20 20 20 20 20 20 20 20 20 3c 2a 20 62 65 6e 79 74 74 65 73 20 76 65 64 ┆ia(1:4); <* benyttes ved┆
0x01a20…01a40 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 ┆ procedurekald. *> long arra┆
0x01a40…01a60 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 ┆y field la; <* altid 0┆
0x01a60…01a80 2e 20 2a 3e 0a 20 20 20 6c 6f 6e 67 20 61 72 72 61 79 20 66 69 65 6c 64 20 63 6f 6e 74 6e 61 76 ┆. *> long array field contnav┆
0x01a80…01aa0 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 ┆n; <* altid 12 (peger på con┆
0x01aa0…01ac0 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 ┆tractfilnavn*> zone contzone┆
0x01ac0…01ae0 28 31 32 38 2c 31 2c 73 74 64 65 72 72 6f 72 29 3b 20 3c 2a 20 6c 7b 73 65 72 20 69 20 63 6f 6e ┆(128,1,stderror); <* læser i con┆
0x01ae0…01b00 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 ┆tsortfil. *> <*a0 integer ar┆
[…truncated at 200 lines…]