|
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: 16128 (0x3f00)
Names: »acldprocbib «
└─⟦cde9d517b⟧ Bits:30007477 RC8000 Backup tape fra HT's bus-radio system
└─⟦6a563b143⟧
└─⟦this⟧ »acldprocbib «
└─⟦110021343⟧ Bits:30007476 RC8000 Backup tape fra HT's bus-radio system
└─⟦a957ba283⟧
└─⟦this⟧ »acldprocbib «
0x0000…0020 (1, 16020) 00 13 f0 00 00 6f 00 00 70 63 68 65 63 6b 64 61 74 6f 61 66 00 00 00 02 64 69 73 63 00 00 00 00 ┆ o pcheckdatoaf disc ┆
0x0020…0040 00 00 00 00 65 a0 2a 00 00 00 00 00 00 00 00 00 00 00 00 00 36 9b 00 00 6e 00 00 77 6c 7b 73 68 ┆ e * 6 n wlæsh┆
0x0040…0060 65 6c 74 61 6c 61 66 00 00 00 02 64 69 73 63 00 00 00 00 00 00 00 00 63 bd 0f 00 00 00 00 00 00 ┆eltalaf disc c ┆
0x0060…0080 00 00 00 00 00 00 00 58 2b 00 00 00 00 4e 1f 73 6c 69 63 65 73 61 66 00 00 00 00 00 00 01 64 69 ┆ X+ N slicesaf di┆
0x0080…00a0 73 63 00 00 00 00 00 00 00 00 63 50 23 00 00 00 00 00 00 00 00 00 00 00 00 00 67 78 00 00 6f 00 ┆sc cP# gx o ┆
0x00a0…00c0 00 70 73 79 73 74 69 64 61 66 00 00 00 00 00 00 01 64 69 73 63 00 00 00 00 00 00 00 00 65 46 d9 ┆ psystidaf disc eF ┆
0x00c0…00e0 00 00 00 00 00 00 00 00 00 00 00 00 00 71 c3 00 00 0a 00 00 13 73 7b 74 62 69 74 69 61 66 00 00 ┆ q sætbitiaf ┆
0x00e0…0100 00 00 00 02 64 69 73 63 00 00 00 00 00 00 00 00 79 30 e7 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ disc y0 ┆
0x0100…0120 97 90 00 00 6e 00 00 77 75 64 74 61 67 68 65 6c 74 61 66 00 00 00 03 64 69 73 63 00 00 00 00 00 ┆ n wudtagheltaf disc ┆
0x0120…0140 00 00 00 64 5f f2 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 ┆ d_ ┆
0x0140…0160 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 ┆ ┆
[…0xc…]
0x02e0…0300 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 06 ┆ ┆
0x0300…0320 70 20 3d 20 61 6c 67 6f 6c 0a 62 65 67 69 6e 0a 0c 6d 65 73 73 61 67 65 20 63 68 65 63 6b 64 61 ┆p = algol begin message checkda┆
0x0320…0340 74 6f 61 66 20 73 69 64 65 20 31 2e 20 61 72 20 37 39 30 31 32 34 3b 0a 0a 3c 2a 20 64 65 74 74 ┆toaf side 1. ar 790124; <* dett┆
0x0340…0360 65 20 70 72 6f 67 72 61 6d 20 63 68 65 63 6b 65 72 20 70 72 6f 63 65 64 75 72 65 6e 20 63 68 65 ┆e program checker proceduren che┆
0x0360…0380 63 6b 64 61 74 6f 2e 0a 0a 70 72 6f 67 72 61 6d 6d 65 74 20 69 6e 64 6c 7b 73 65 72 20 74 61 6c ┆ckdato. programmet indlæser tal┆
0x0380…03a0 70 61 72 20 28 64 61 67 2c 73 65 63 29 20 69 6e 64 74 69 6c 20 65 6e 20 6e 65 67 61 74 69 76 0a ┆par (dag,sec) indtil en negativ ┆
0x03a0…03c0 64 61 67 20 6d 7c 64 65 73 2c 20 6f 67 20 6b 61 6c 64 65 72 20 64 65 72 65 66 74 65 72 20 63 68 ┆dag mødes, og kalder derefter ch┆
0x03c0…03e0 65 63 6b 64 61 74 6f 2e 0a 73 6f 6d 20 75 64 73 6b 72 69 66 74 20 75 64 73 6b 72 69 76 65 73 20 ┆eckdato. som udskrift udskrives ┆
0x03e0…0400 0a 70 72 6f 67 72 61 6d 6d 65 74 20 75 64 73 6b 72 69 76 65 72 20 64 61 67 2c 73 65 63 2c 20 76 ┆ programmet udskriver dag,sec, v┆
0x0400…0420 7b 72 64 69 65 6e 20 61 66 20 63 68 65 63 6b 64 61 74 6f 20 73 61 6d 74 0a 64 61 74 6f 65 6e 20 ┆ærdien af checkdato samt datoen ┆
0x0420…0440 64 65 72 20 72 65 74 75 72 6e 65 72 65 73 20 66 72 61 20 63 68 65 63 6b 64 61 74 6f 20 68 76 69 ┆der returneres fra checkdato hvi┆
0x0440…0460 73 20 64 65 74 20 76 61 72 20 65 6e 0a 6c 6f 76 6c 69 67 20 64 61 74 6f 2e 20 0a 0a 6b 61 6c 64 ┆s det var en lovlig dato. kald┆
0x0460…0480 74 65 20 70 72 6f 63 65 64 75 72 65 72 3a 0a 63 68 65 63 6b 64 61 74 6f 2c 20 73 79 73 74 69 64 ┆te procedurer: checkdato, systid┆
0x0480…04a0 2c 20 75 64 2e 0a 2a 3e 0a 20 20 20 69 6e 74 65 67 65 72 20 0a 20 20 20 20 20 20 64 61 67 2c 0a ┆, ud. *> integer dag, ┆
0x04a0…04c0 20 20 20 20 20 20 69 2c 0a 20 20 20 20 20 20 6a 2c 0a 20 20 20 20 20 20 73 65 63 3b 0a 0a 20 20 ┆ i, j, sec; ┆
0x04c0…04e0 20 72 65 61 6c 0a 20 20 20 20 20 20 72 2c 0a 20 20 20 20 20 20 74 3b 0a 0a 20 20 20 72 65 70 65 ┆ real r, t; repe┆
0x04e0…0500 61 74 0a 20 20 20 20 20 20 72 65 61 64 28 69 6e 2c 64 61 67 2c 73 65 63 29 3b 0a 20 20 20 20 20 ┆at read(in,dag,sec); ┆
0x0500…0520 20 6f 75 74 64 61 74 65 28 6f 75 74 2c 64 61 67 29 3b 0a 20 20 20 20 20 20 6f 75 74 63 68 61 72 ┆ outdate(out,dag); outchar┆
0x0520…0540 28 6f 75 74 2c 33 32 29 3b 0a 20 20 20 20 20 20 6f 75 74 64 61 74 65 28 6f 75 74 2c 73 65 63 29 ┆(out,32); outdate(out,sec)┆
0x0540…0560 3b 0a 20 20 20 20 20 20 72 20 3a 3d 20 63 68 65 63 6b 64 61 74 6f 28 64 61 67 2c 73 65 63 29 3b ┆; r := checkdato(dag,sec);┆
0x0560…0580 0a 20 20 20 20 20 20 69 66 20 72 20 3c 20 30 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 3c ┆ if r < 0 then write(out,<┆
0x0580…05a0 3a 20 75 6c 6f 76 6c 69 67 20 64 61 74 6f 2e 3a 3e 29 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 ┆: ulovlig dato.:>) else ┆
0x05a0…05c0 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 69 20 3a 3d 20 73 79 73 74 69 6d 65 28 ┆ begin i := systime(┆
0x05c0…05e0 34 2c 72 2c 74 29 3b 0a 20 20 20 20 20 20 20 20 20 6a 20 3a 3d 20 74 3b 0a 20 20 20 20 20 20 20 ┆4,r,t); j := t; ┆
0x05e0…0600 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 20 72 65 74 75 72 2d 74 69 64 3a 20 3a 3e 29 3b 0a 20 ┆ write(out,<: retur-tid: :>); ┆
0x0600…0620 20 20 20 20 20 20 20 20 6f 75 74 64 61 74 65 28 6f 75 74 2c 69 29 3b 0a 20 20 20 20 20 20 20 20 ┆ outdate(out,i); ┆
0x0620…0640 20 6f 75 74 63 68 61 72 28 6f 75 74 2c 33 32 29 3b 0a 20 20 20 20 20 20 20 20 20 6f 75 74 64 61 ┆ outchar(out,32); outda┆
0x0640…0660 74 65 28 6f 75 74 2c 6a 29 3b 0a 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 20 20 6f 75 74 63 ┆te(out,j); end; outc┆
0x0660…0680 68 61 72 28 6f 75 74 2c 31 30 29 3b 0a 20 20 20 20 20 20 75 64 28 6f 75 74 29 3b 0a 20 20 20 75 ┆har(out,10); ud(out); u┆
0x0680…06a0 6e 74 69 6c 20 64 61 67 20 3c 20 30 3b 0a 65 6e 64 0a 70 0a 36 37 31 32 33 31 20 32 33 35 39 35 ┆ntil dag < 0; end p 671231 23595┆
0x06a0…06c0 39 20 3a 20 75 6c 6f 76 6c 69 67 20 64 61 74 6f 0a 36 38 30 31 30 31 20 30 30 30 30 30 30 20 3a ┆9 : ulovlig dato 680101 000000 :┆
0x06c0…06e0 66 7c 72 73 74 65 20 6c 6f 76 6c 69 67 65 20 64 61 74 6f 0a 39 39 31 32 33 31 20 32 33 35 39 35 ┆første lovlige dato 991231 23595┆
0x06e0…0700 39 20 3a 73 69 64 73 74 65 20 6c 6f 76 6c 69 67 65 20 74 69 64 73 70 75 6e 6b 74 0a 37 39 30 32 ┆9 :sidste lovlige tidspunkt 7902┆
0x0700…0720 32 39 20 30 30 30 30 30 30 20 3a 20 75 6c 6f 76 6c 69 67 20 64 61 74 6f 0a 38 30 30 32 32 39 20 ┆29 000000 : ulovlig dato 800229 ┆
0x0720…0740 30 30 30 30 30 30 20 3a 20 6c 6f 76 6c 69 67 20 64 61 74 6f 20 70 67 61 20 73 6b 75 64 7d 72 0a ┆000000 : lovlig dato pga skudår ┆
0x0740…0760 37 30 30 30 30 30 20 30 30 30 30 30 30 20 3a 20 75 6c 6f 76 6c 69 67 20 64 61 74 6f 0a 37 30 31 ┆700000 000000 : ulovlig dato 701┆
0x0760…0780 33 30 30 20 30 30 30 30 30 30 20 3a 20 75 6c 6f 76 6c 69 67 20 64 61 74 6f 0a 37 30 30 31 30 31 ┆300 000000 : ulovlig dato 700101┆
0x0780…07a0 20 31 34 30 30 36 30 20 3a 20 75 6c 6f 76 6c 69 67 20 64 61 74 6f 0a 2d 31 30 20 30 0a 0a 19 00 ┆ 140060 : ulovlig dato -10 0 ┆
0x07a0…07c0 00 20 20 20 20 20 69 2c 0a 20 20 20 20 20 20 6a 2c 0a 20 20 20 20 20 20 73 65 63 3b 0a 0a 20 20 ┆ i, j, sec; ┆
0x07c0…07e0 20 72 65 61 6c 0a 20 20 20 20 20 20 72 2c 0a 20 20 20 20 20 20 74 3b 0a 0a 20 20 20 72 65 70 65 ┆ real r, t; repe┆
0x07e0…0800 61 74 0a 20 20 20 20 20 20 72 65 61 64 28 69 6e 2c 64 61 67 2c 73 65 63 29 3b 0a 20 20 20 20 20 ┆at read(in,dag,sec); ┆
0x0800…0820 20 6f 75 74 64 61 74 65 28 6f 75 74 2c 64 61 67 29 3b 0a 20 20 20 20 20 20 6f 75 74 63 68 61 72 ┆ outdate(out,dag); outchar┆
0x0820…0840 28 6f 75 74 2c 33 32 29 3b 0a 20 20 20 20 20 20 6f 75 74 64 61 74 65 28 6f 75 74 2c 73 65 63 29 ┆(out,32); outdate(out,sec)┆
0x0840…0860 3b 0a 20 20 20 20 20 20 72 20 3a 3d 20 63 68 65 63 6b 64 61 74 6f 28 64 61 67 2c 73 65 63 29 3b ┆; r := checkdato(dag,sec);┆
0x0860…0880 0a 20 20 20 20 20 20 69 66 20 72 20 3c 20 30 20 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 3c ┆ if r < 0 then write(out,<┆
0x0880…08a0 3a 20 75 6c 6f 76 6c 69 67 20 64 61 74 6f 2e 3a 3e 29 0a 20 20 20 20 20 20 65 6c 73 65 0a 20 20 ┆: ulovlig dato.:>) else ┆
0x08a0…08c0 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 69 20 3a 3d 20 73 79 73 74 69 6d 65 28 ┆ begin i := systime(┆
0x08c0…08e0 34 2c 72 2c 74 29 3b 0a 20 20 20 20 20 20 20 20 20 6a 20 3a 3d 20 74 3b 0a 20 20 20 20 20 20 20 ┆4,r,t); j := t; ┆
0x08e0…0900 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 20 72 65 74 75 72 2d 74 69 64 3a 20 3a 3e 29 3b 0a 20 ┆ write(out,<: retur-tid: :>); ┆
0x0900…0920 (1, 16021) 70 3d 61 6c 67 6f 6c 20 6c 69 73 74 2e 79 65 73 0a 62 65 67 69 6e 0a 0a 3c 2a 20 64 65 74 74 65 ┆p=algol list.yes begin <* dette┆
0x0920…0940 20 6c 69 6c 6c 65 20 70 72 6f 67 72 61 6d 20 61 66 70 72 7c 76 65 72 20 70 72 6f 63 65 64 75 72 ┆ lille program afprøver procedur┆
0x0940…0960 65 20 6c 7b 73 68 65 6c 74 61 6c 2e 0a 73 6f 6d 20 69 6e 70 75 74 20 67 69 76 65 73 20 65 6e 20 ┆e læsheltal. som input gives en ┆
0x0960…0980 72 7b 6b 6b 65 20 6c 69 6e 69 65 72 2c 20 64 65 72 20 73 74 61 72 74 65 72 20 6d 65 64 20 65 6e ┆række linier, der starter med en┆
0x0980…09a0 0a 70 6f 73 69 69 74 6f 6e 73 61 6e 67 69 76 65 6c 73 65 20 69 20 6b 6f 6c 6f 6e 6e 65 20 31 2c ┆ posiitonsangivelse i kolonne 1,┆
0x09a0…09c0 2e 0a 64 65 74 20 74 61 6c 2c 20 64 65 72 20 73 74 61 72 74 65 72 20 69 20 64 65 6e 20 70 7d 67 ┆. det tal, der starter i den påg┆
0x09c0…09e0 7b 6c 64 65 6e 64 65 20 70 6f 73 69 74 69 6f 6e 20 65 6c 6c 65 72 20 73 65 6e 65 72 65 20 69 6e ┆ældende position eller senere in┆
0x09e0…0a00 64 6c 7b 73 65 73 0a 6f 67 20 75 64 73 6b 72 69 76 65 73 2e 0a 0a 6b 7c 72 73 6c 65 6e 20 61 66 ┆dlæses og udskrives. kørslen af┆
0x0a00…0a20 73 6c 75 72 74 65 73 20 6e 7d 72 20 64 65 74 20 6c 7b 73 74 65 20 74 61 6c 20 68 61 72 20 76 7b ┆slurtes når det læste tal har væ┆
0x0a20…0a40 72 64 69 65 6e 20 39 39 2e 0a 2a 3e 0a 20 20 20 69 6e 74 65 67 65 72 20 69 2c 74 65 67 6e 2c 74 ┆rdien 99. *> integer i,tegn,t┆
0x0a40…0a60 61 6c 2c 74 65 72 6d 69 6e 61 74 6f 72 2c 70 6f 73 3b 0a 20 20 20 69 6e 74 65 67 65 72 20 61 72 ┆al,terminator,pos; integer ar┆
0x0a60…0a80 72 61 79 20 61 6c 66 61 28 30 3a 31 32 37 29 3b 0a 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 ┆ray alfa(0:127); integer arra┆
0x0a80…0aa0 79 20 6b 69 6e 64 28 31 3a 37 30 29 3b 0a 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 76 ┆y kind(1:70); integer array v┆
0x0aa0…0ac0 61 6c 28 31 3a 31 32 30 29 3b 0a 20 20 20 6c 6f 6e 67 20 61 72 72 61 79 20 66 69 65 6c 64 20 6c ┆al(1:120); long array field l┆
0x0ac0…0ae0 61 3b 0a 20 20 20 6c 61 20 3a 3d 20 30 3b 0a 20 20 20 61 6c 66 61 28 30 29 20 3a 3d 20 30 3b 0a ┆a; la := 0; alfa(0) := 0; ┆
0x0ae0…0b00 0a 20 20 20 66 6f 72 20 69 20 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 31 32 37 20 ┆ for i := 1 step 1 until 127 ┆
0x0b00…0b20 64 6f 20 61 6c 66 61 28 69 29 20 3a 3d 20 36 20 73 68 69 66 74 20 31 32 20 61 64 64 20 69 3b 0a ┆do alfa(i) := 6 shift 12 add i; ┆
0x0b20…0b40 20 20 20 61 6c 66 61 28 31 30 29 20 3a 3d 20 38 20 73 68 69 66 74 20 31 32 20 61 64 64 20 31 30 ┆ alfa(10) := 8 shift 12 add 10┆
0x0b40…0b60 3b 0a 20 20 20 69 6e 74 61 62 6c 65 28 61 6c 66 61 29 3b 0a 0a 20 20 20 72 65 70 65 61 74 0a 20 ┆; intable(alfa); repeat ┆
0x0b60…0b80 20 20 20 20 20 72 65 61 64 61 6c 6c 28 69 6e 2c 76 61 6c 2e 6c 61 2c 6b 69 6e 64 2c 31 29 3b 0a ┆ readall(in,val.la,kind,1); ┆
0x0b80…0ba0 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 76 61 6c 2e 6c 61 2c 6e 6c 2c 31 29 3b 0a 20 20 ┆ write(out,val.la,nl,1); ┆
0x0ba0…0bc0 20 20 20 20 70 6f 73 20 3a 3d 20 31 3b 0a 20 20 20 20 20 20 69 20 3a 3d 20 6c 7b 73 68 65 6c 74 ┆ pos := 1; i := læshelt┆
0x0bc0…0be0 61 6c 28 76 61 6c 2c 70 6f 73 2c 74 61 6c 2c 74 65 72 6d 69 6e 61 74 6f 72 29 3b 0a 20 20 20 20 ┆al(val,pos,tal,terminator); ┆
0x0be0…0c00 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 73 74 61 72 74 70 6f 73 69 74 69 6f 6e 20 3d 20 3a 3e ┆ write(out,<:startposition = :>┆
0x0c00…0c20 2c 74 61 6c 2c 6e 6c 2c 31 29 3b 0a 20 20 20 20 20 20 70 6f 73 20 3a 3d 20 74 61 6c 3b 0a 20 20 ┆,tal,nl,1); pos := tal; ┆
0x0c20…0c40 20 20 20 20 69 20 3a 3d 20 6c 7b 73 68 65 6c 74 61 6c 28 76 61 6c 2c 70 6f 73 2c 74 61 6c 2c 74 ┆ i := læsheltal(val,pos,tal,t┆
0x0c40…0c60 65 72 6d 69 6e 61 74 6f 72 29 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 6c 7b ┆erminator); write(out,<:læ┆
0x0c60…0c80 73 68 65 6c 74 61 6c 20 3d 20 3a 3e 2c 69 2c 3c 3a 20 70 6f 73 20 3d 20 3a 3e 2c 70 6f 73 2c 3c ┆sheltal = :>,i,<: pos = :>,pos,<┆
0x0c80…0ca0 3a 20 74 61 6c 20 3d 3a 3e 2c 74 61 6c 2c 0a 20 20 20 20 20 20 20 20 20 3c 3a 20 74 65 72 6d 69 ┆: tal =:>,tal, <: termi┆
0x0ca0…0cc0 6e 61 74 6f 72 20 3d 3a 3e 2c 74 65 72 6d 69 6e 61 74 6f 72 2c 6e 6c 2c 32 29 3b 0a 66 65 6a 6c ┆nator =:>,terminator,nl,2); fejl┆
0x0cc0…0ce0 69 70 6f 73 31 3a 0a 20 20 20 20 20 20 75 64 28 6f 75 74 29 3b 0a 20 20 20 75 6e 74 69 6c 20 74 ┆ipos1: ud(out); until t┆
0x0ce0…0d00 61 6c 3d 39 39 3b 0a 65 6e 64 0a 70 0a 33 20 2d 38 33 38 38 36 30 37 20 73 74 7c 72 73 74 65 20 ┆al=99; end p 3 -8388607 største ┆
0x0d00…0d20 6e 65 67 61 74 69 76 65 20 74 61 6c 2c 20 64 65 72 20 65 72 20 6f 6b 0a 33 20 30 20 20 20 20 20 ┆negative tal, der er ok 3 0 ┆
0x0d20…0d40 20 20 20 65 74 20 74 61 6c 20 70 7d 20 65 74 20 63 69 66 66 65 72 2e 0a 33 20 38 33 38 38 36 30 ┆ et tal på et ciffer. 3 838860┆
0x0d40…0d60 37 20 20 73 74 7c 72 73 74 65 20 70 6f 73 69 74 69 76 65 20 74 61 6c 2c 20 65 72 20 65 72 20 6f ┆7 største positive tal, er er o┆
0x0d60…0d80 6b 2e 0a 33 20 2b 31 30 20 20 20 20 20 20 66 6f 72 61 6e 73 74 69 6c 6c 65 74 20 2b 20 66 6a 65 ┆k. 3 +10 foranstillet + fje┆
0x0d80…0da0 72 6e 65 73 2e 0a 33 20 20 20 20 20 20 31 20 20 20 73 6b 69 70 20 61 66 20 62 6c 61 6e 6b 74 65 ┆rnes. 3 1 skip af blankte┆
0x0da0…0dc0 67 6e 0a 33 20 20 20 69 6e 67 65 6e 20 74 61 6c 20 70 7d 20 6c 69 6e 69 65 6e 0a 33 20 2d 20 31 ┆gn 3 ingen tal på linien 3 - 1┆
0x0dc0…0de0 20 75 6c 6f 76 6c 69 67 74 20 66 6f 72 6d 61 74 0a 33 20 2b 20 31 20 69 67 65 6e 20 75 6c 6f 76 ┆ ulovligt format 3 + 1 igen ulov┆
0x0de0…0e00 6c 69 67 74 20 66 6f 72 6d 61 74 0a 33 20 38 33 38 38 36 30 38 20 6f 76 65 72 66 6c 6f 77 2c 20 ┆ligt format 3 8388608 overflow, ┆
0x0e00…0e20 70 6f 73 69 74 69 76 0a 33 20 2d 38 33 38 38 36 30 38 20 64 65 74 74 65 20 6d 61 72 6b 65 72 65 ┆positiv 3 -8388608 dette markere┆
0x0e20…0e40 73 20 73 6f 6d 20 6f 76 65 72 66 6c 6f 77 20 6e 65 67 61 74 69 76 2e 0a 33 20 31 30 30 30 30 30 ┆s som overflow negativ. 3 100000┆
0x0e40…0e60 30 30 30 30 30 30 30 20 73 6b 69 70 20 61 66 20 65 6b 73 74 72 61 20 63 69 66 72 65 20 76 65 64 ┆0000000 skip af ekstra cifre ved┆
0x0e60…0e80 20 6f 76 65 72 66 6c 6f 77 0a 33 20 39 39 20 61 66 73 6c 75 74 20 6b 7c 72 73 6c 65 6e 2e 0a 19 ┆ overflow 3 99 afslut kørslen. ┆
0x0e80…0ea0 00 00 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 76 61 6c 2e 6c 61 2c 6e 6c 2c 31 29 3b 0a 20 20 ┆ write(out,val.la,nl,1); ┆
0x0ea0…0ec0 20 20 20 20 70 6f 73 20 3a 3d 20 31 3b 0a 20 20 20 20 20 20 69 20 3a 3d 20 6c 7b 73 68 65 6c 74 ┆ pos := 1; i := læshelt┆
0x0ec0…0ee0 61 6c 28 76 61 6c 2c 70 6f 73 2c 74 61 6c 2c 74 65 72 6d 69 6e 61 74 6f 72 29 3b 0a 20 20 20 20 ┆al(val,pos,tal,terminator); ┆
0x0ee0…0f00 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 73 74 61 72 74 70 6f 73 69 74 69 6f 6e 20 3d 20 3a 3e ┆ write(out,<:startposition = :>┆
0x0f00…0f20 70 3d 61 6c 67 6f 6c 0a 62 65 67 69 6e 20 69 6e 74 65 67 65 72 20 69 2c 6a 3b 0a 20 20 20 20 20 ┆p=algol begin integer i,j; ┆
0x0f20…0f40 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 69 61 28 31 3a 32 30 30 29 3b 0a 0a 20 20 77 72 69 ┆ integer array ia(1:200); wri┆
0x0f40…0f60 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 66 7c 72 73 74 65 20 73 6c 69 63 65 3a 20 3a 3e 29 3b 20 ┆te(out,<:<10>første slice: :>); ┆
0x0f60…0f80 73 65 74 70 6f 73 69 74 69 6f 6e 28 6f 75 74 2c 30 2c 30 29 3b 0a 20 20 72 65 61 64 28 69 6e 2c ┆setposition(out,0,0); read(in,┆
0x0f80…0fa0 69 29 3b 0a 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 36 30 3e 3a 3e 2c 3c 3c 64 3e 2c 69 2c ┆i); write(out,<:<60>:>,<<d>,i,┆
0x0fa0…0fc0 3c 3a 3c 36 32 3e 3a 3e 2c 6e 6c 2c 31 29 3b 0a 20 20 6a 3a 3d 73 6c 69 63 65 73 28 69 2c 69 61 ┆<:<62>:>,nl,1); j:=slices(i,ia┆
0x0fc0…0fe0 29 3b 0a 20 20 69 66 20 6a 3e 2d 32 30 34 38 20 74 68 65 6e 0a 20 20 62 65 67 69 6e 0a 20 20 20 ┆); if j>-2048 then begin ┆
0x0fe0…1000 20 77 72 69 74 65 28 6f 75 74 2c 6e 6c 2c 31 2c 73 70 2c 31 35 2c 3c 3a 3b 20 3a 3e 2c 61 62 73 ┆ write(out,nl,1,sp,15,<:; :>,abs┆
0x1000…1020 20 6a 2c 3c 3a 20 73 6c 69 63 65 73 3a 3e 29 3b 0a 20 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 ┆ j,<: slices:>); for i:=1 st┆
0x1020…1040 65 70 20 31 20 75 6e 74 69 6c 20 61 62 73 20 6a 20 64 6f 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 ┆ep 1 until abs j do begin ┆
0x1040…1060 20 20 20 20 69 66 20 69 20 6d 6f 64 20 35 3d 31 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 77 72 ┆ if i mod 5=1 then wr┆
0x1060…1080 69 74 65 28 6f 75 74 2c 6e 6c 2c 31 2c 73 70 2c 31 35 2c 3c 3a 3b 20 3a 3e 29 3b 0a 20 20 20 20 ┆ite(out,nl,1,sp,15,<:; :>); ┆
0x1080…10a0 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3c 20 20 64 64 64 64 3e 2c 69 61 28 69 29 29 3b 0a 20 20 ┆ write(out,<< dddd>,ia(i)); ┆
0x10a0…10c0 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 0a 65 6e 64 0a 70 0a 2d 31 0a 70 0a 30 0a 70 20 0a 31 0a ┆ end; end; end p -1 p 0 p 1 ┆
0x10c0…10e0 70 0a 32 0a 70 0a 31 30 30 0a 70 0a 31 30 30 30 0a 70 0a 32 30 33 34 0a 70 0a 32 30 33 35 0a 70 ┆p 2 p 100 p 1000 p 2034 p 2035 p┆
0x10e0…1100 0a 32 30 33 36 0a 70 0a 31 30 30 30 30 0a 65 6e 64 0a 19 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ 2036 p 10000 end ┆
0x1100…1120 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 ┆ ┆
[…0x6…]
0x11e0…1200 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 5e ce 18 00 20 02 ┆ ^ ┆
0x1200…1220 (1, 16022) 68 65 61 64 20 31 20 69 73 6f 0a 73 79 73 74 69 64 74 65 73 74 3d 61 6c 67 6f 6c 20 6c 69 73 74 ┆head 1 iso systidtest=algol list┆
0x1220…1240 2e 79 65 73 0a 62 65 67 69 6e 0a 20 20 69 6e 74 65 67 65 72 20 69 2c 6a 2c 6b 3b 0a 20 20 72 65 ┆.yes begin integer i,j,k; re┆
0x1240…1260 61 6c 20 74 2c 75 2c 76 3b 0a 0a 20 20 72 65 61 64 28 69 6e 2c 69 29 3b 0a 20 77 68 69 6c 65 20 ┆al t,u,v; read(in,i); while ┆
0x1260…1280 69 3e 3d 30 20 64 6f 0a 20 62 65 67 69 6e 0a 20 20 20 72 65 61 64 28 69 6e 2c 6a 29 3b 0a 20 20 ┆i>=0 do begin read(in,j); ┆
0x1280…12a0 74 20 3a 3d 20 73 79 73 74 69 64 28 69 2c 6a 29 3b 0a 20 20 69 66 20 74 20 3c 20 30 2e 30 20 74 ┆t := systid(i,j); if t < 0.0 t┆
0x12a0…12c0 68 65 6e 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 75 6c 6f 76 6c 69 67 20 64 61 74 6f ┆hen write(out,<:ulovlig dato┆
0x12c0…12e0 2f 6b 6c 6f 6b 6b 65 73 6c 65 74 3c 31 30 3e 3a 3e 29 0a 20 20 65 6c 73 65 0a 20 20 20 20 77 72 ┆/klokkeslet<10>:>) else wr┆
0x12e0…1300 69 74 65 28 6f 75 74 2c 3c 3c 64 2e 64 64 64 64 64 64 64 64 27 64 64 3e 2c 74 2c 3c 3a 20 3d 3a ┆ite(out,<<d.dddddddd'dd>,t,<: =:┆
0x1300…1320 3e 2c 3c 3c 20 7a 64 64 64 64 64 3e 2c 73 79 73 74 69 6d 65 28 34 2c 74 2c 75 29 2c 75 2c 6e 6c ┆>,<< zddddd>,systime(4,t,u),u,nl┆
0x1320…1340 2c 31 29 3b 0a 20 20 69 66 20 74 65 73 74 62 69 74 28 30 29 20 74 68 65 6e 20 73 65 74 70 6f 73 ┆,1); if testbit(0) then setpos┆
0x1340…1360 69 74 69 6f 6e 28 6f 75 74 2c 30 2c 30 29 3b 0a 20 20 72 65 61 64 28 69 6e 2c 69 29 3b 0a 20 65 ┆ition(out,0,0); read(in,i); e┆
0x1360…1380 6e 64 3b 0a 65 6e 64 0a 73 79 73 74 69 64 74 65 73 74 0a 36 38 30 31 30 31 20 30 30 30 30 30 30 ┆nd; end systidtest 680101 000000┆
0x1380…13a0 0a 39 39 31 32 33 31 20 32 33 35 39 35 39 0a 37 39 30 31 31 30 20 31 34 31 30 30 36 0a 38 30 30 ┆ 991231 235959 790110 141006 800┆
0x13a0…13c0 32 32 39 20 31 32 34 37 31 31 0a 37 38 31 30 33 32 20 31 30 31 37 33 35 0a 38 30 30 32 32 38 20 ┆229 124711 781032 101735 800228 ┆
0x13c0…13e0 32 37 31 38 31 38 0a 37 39 30 31 31 30 20 31 36 31 32 37 34 0a 37 39 30 31 31 30 20 31 36 37 32 ┆271818 790110 161274 790110 1672┆
0x13e0…1400 31 30 0a 30 31 30 31 30 31 20 30 31 30 31 30 31 0a 2d 31 0a 65 6e 64 0a 19 00 00 00 00 00 00 00 ┆10 010101 010101 -1 end ┆
0x1400…1420 00 10 d3 40 00 00 00 77 72 69 74 65 00 00 00 00 00 00 00 0e 82 00 00 00 00 6f 75 74 00 00 00 00 ┆ @ write out ┆
0x1420…1440 00 00 00 00 00 38 00 1b 00 00 00 73 79 73 74 69 6d 65 00 00 00 00 00 11 43 93 01 76 60 01 76 7d ┆ 8 systime C v` vå┆
0x1440…1460 00 00 00 00 00 00 00 60 06 00 00 08 00 00 00 c0 00 00 04 10 00 00 00 00 00 00 00 01 76 40 00 00 ┆ ` v@ ┆
0x1460…1480 1e 00 00 01 01 76 69 01 76 6d 00 00 00 00 a4 c8 00 00 00 01 76 40 01 76 39 00 00 1a 01 76 70 01 ┆ vi vm v@ v9 vp ┆
0x1480…14a0 57 62 00 00 82 00 c0 45 00 00 00 00 00 00 01 76 70 01 01 e6 01 57 58 ff ff ff 04 00 01 00 00 01 ┆Wb E vp WX ┆
0x14a0…14c0 01 76 7d 00 00 00 01 76 85 01 76 7e 00 00 06 00 00 00 00 00 01 00 00 00 00 00 00 ff ff da 00 00 ┆ vå v vü ┆
0x14c0…14e0 00 ff ff fb ff ff fd 00 00 02 01 57 5a 00 00 64 00 00 1a 00 00 08 00 00 0a 01 76 9e 01 57 58 00 ┆ WZ d v WX ┆
0x14e0…1500 81 ec 01 4a 10 01 4a 14 00 00 1a 01 76 85 00 20 02 00 20 0a 73 79 73 ff ff ff 00 27 75 00 20 02 ┆ J J v sys 'u ┆
0x1500…1520 6d 6f 64 65 20 6c 69 73 74 2e 79 65 73 0a 00 70 3d 61 6c 67 6f 6c 0a 00 62 65 67 69 6e 0a 20 20 ┆mode list.yes p=algol begin ┆
0x1520…1540 69 6e 74 65 67 65 72 20 66 2c 69 2c 6a 2c 6b 2c 6e 2c 6d 3b 0a 00 20 20 6c 6f 6e 67 20 6c 3b 0a ┆integer f,i,j,k,n,m; long l; ┆
0x1540…1560 00 00 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 69 61 28 30 3a 31 29 3b 0a 00 00 20 20 72 ┆ integer array ia(0:1); r┆
0x1560…1580 65 61 6c 20 61 72 72 61 79 20 66 69 65 6c 64 20 72 61 66 3b 0a 0a 00 00 20 20 72 61 66 3a 3d 2d ┆eal array field raf; raf:=-┆
0x1580…15a0 32 3b 0a 00 20 20 6a 3a 3d 69 61 28 30 29 3a 3d 69 61 28 31 29 3a 3d 30 3b 0a 00 00 20 20 6c 3a ┆2; j:=ia(0):=ia(1):=0; l:┆
0x15a0…15c0 3d 30 3b 0a 00 20 20 69 3a 3d 2d 32 3b 0a 20 20 66 3a 3d 31 3b 0a 00 20 20 72 65 70 65 61 74 0a ┆=0; i:=-2; f:=1; repeat ┆
0x15c0…15e0 20 20 20 20 73 7b 74 62 69 74 5f 69 28 6a 2c 69 2d 31 2c 32 29 3b 0a 00 20 20 20 20 73 7b 74 62 ┆ sætbit_i(j,i-1,2); sætb┆
0x15e0…1600 69 74 5f 6c 28 6c 2c 69 2d 31 2c 32 29 3b 0a 00 20 20 20 20 73 7b 74 62 69 74 5f 69 61 28 69 61 ┆it_l(l,i-1,2); sætbit_ia(ia┆
0x1600…1620 2c 69 2d 31 2c 32 29 3b 00 00 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 22 6e 6c 22 2c 32 2c ┆,i-1,2); write(out,"nl",2,┆
0x1620…1640 3c 3c 2d 64 64 3e 2c 69 2c 3c 3a 3a 20 3a 3e 2c 73 7b 74 62 69 74 5f 69 28 6a 2c 69 2c 66 29 2c ┆<<-dd>,i,<:: :>,sætbit_i(j,i,f),┆
0x1640…1660 3c 3c 2d 64 20 64 64 64 20 64 64 64 20 64 64 64 3e 2c 6a 29 00 3b 0a 00 00 20 20 20 20 66 6f 72 ┆<<-d ddd ddd ddd>,j) ; for┆
0x1660…1680 20 6e 3a 3d 32 33 20 73 74 65 70 20 2d 31 20 75 6e 74 69 6c 20 30 20 64 6f 0a 20 20 20 20 62 65 ┆ n:=23 step -1 until 0 do be┆
0x1680…16a0 67 69 6e 0a 00 00 20 20 20 20 20 20 69 66 20 28 6e 2b 31 29 20 6d 6f 64 20 38 3d 30 20 74 68 65 ┆gin if (n+1) mod 8=0 the┆
0x16a0…16c0 6e 20 6f 75 74 63 68 61 72 28 6f 75 74 2c 27 73 70 27 29 3b 0a 00 20 20 20 20 20 20 77 72 69 74 ┆n outchar(out,'sp'); writ┆
0x16c0…16e0 65 28 6f 75 74 2c 69 66 20 6c 7b 73 62 69 74 5f 69 28 6a 2c 6e 29 20 74 68 65 6e 20 22 31 22 20 ┆e(out,if læsbit_i(j,n) then "1" ┆
0x16e0…1700 65 6c 73 65 20 22 2e 22 2c 31 29 3b 0a 00 00 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 77 72 69 74 ┆else ".",1); end; writ┆
0x1700…1720 65 28 6f 75 74 2c 22 6e 6c 22 2c 31 2c 22 73 70 22 2c 35 2c 3c 3c 2d 64 64 3e 2c 73 7b 74 62 69 ┆e(out,"nl",1,"sp",5,<<-dd>,sætbi┆
0x1720…1740 74 5f 6c 28 6c 2c 69 2c 66 29 2c 3c 3c 2d 64 20 64 64 64 20 64 64 64 20 64 64 64 3e 2c 6c 29 3b ┆t_l(l,i,f),<<-d ddd ddd ddd>,l);┆
0x1740…1760 0a 00 00 20 20 20 20 66 6f 72 20 6e 3a 3d 34 37 20 73 74 65 70 20 2d 31 20 75 6e 74 69 6c 20 30 ┆ for n:=47 step -1 until 0┆
0x1760…1780 20 64 6f 0a 20 20 20 20 62 65 67 69 6e 0a 00 00 20 20 20 20 20 20 69 66 20 28 6e 2b 31 29 20 6d ┆ do begin if (n+1) m┆
0x1780…17a0 6f 64 20 38 3d 30 20 74 68 65 6e 20 6f 75 74 63 68 61 72 28 6f 75 74 2c 27 73 70 27 29 3b 0a 00 ┆od 8=0 then outchar(out,'sp'); ┆
0x17a0…17c0 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 69 66 20 6c 7b 73 62 69 74 5f 6c 28 6c 2c 6e 29 ┆ write(out,if læsbit_l(l,n)┆
0x17c0…17e0 20 74 68 65 6e 20 22 31 22 20 65 6c 73 65 20 22 2e 22 2c 31 29 3b 0a 00 00 20 20 20 20 65 6e 64 ┆ then "1" else ".",1); end┆
0x17e0…1800 3b 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 22 6e 6c 22 2c 31 2c 22 73 70 22 2c 35 2c 3c 3c ┆; write(out,"nl",1,"sp",5,<<┆
0x1800…1820 2d 64 64 3e 2c 73 7b 74 62 69 74 5f 69 61 28 69 61 2c 69 2c 66 29 2c 3c 3c 2d 64 20 64 64 64 20 ┆-dd>,sætbit_ia(ia,i,f),<<-d ddd ┆
0x1820…1840 64 64 64 20 64 64 64 3e 00 2c 0a 00 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 61 28 30 29 ┆ddd ddd> , ia(0)┆
0x1840…1860 29 3b 0a 00 00 20 20 20 20 66 6f 72 20 6e 3a 3d 2d 31 20 73 74 65 70 20 2d 31 20 75 6e 74 69 6c ┆); for n:=-1 step -1 until┆
0x1860…1880 20 2d 32 34 20 64 6f 0a 00 20 20 20 20 62 65 67 69 6e 0a 00 00 20 20 20 20 20 20 69 66 20 28 6e ┆ -24 do begin if (n┆
0x1880…18a0 2b 31 29 20 6d 6f 64 20 38 3d 30 20 74 68 65 6e 20 6f 75 74 63 68 61 72 28 6f 75 74 2c 27 73 70 ┆+1) mod 8=0 then outchar(out,'sp┆
0x18a0…18c0 27 29 3b 0a 00 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 69 66 20 6c 7b 73 62 69 74 5f 69 ┆'); write(out,if læsbit_i┆
0x18c0…18e0 61 28 69 61 2c 6e 29 20 74 68 65 6e 20 22 31 22 20 65 6c 73 65 20 22 2e 22 2c 31 29 3b 0a 20 20 ┆a(ia,n) then "1" else ".",1); ┆
0x18e0…1900 20 20 65 6e 64 3b 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 22 6e 6c 22 2c 31 2c 22 73 70 22 ┆ end; write(out,"nl",1,"sp"┆
0x1900…1920 2c 38 2c 3c 3c 2d 64 20 64 64 64 20 64 64 64 20 64 64 64 3e 2c 69 61 28 31 29 29 00 3b 00 00 0a ┆,8,<<-d ddd ddd ddd>,ia(1)) ; ┆
0x1920…1940 20 20 20 20 66 6f 72 20 6e 3a 3d 32 33 20 73 74 65 70 20 2d 31 20 75 6e 74 69 6c 20 30 20 64 6f ┆ for n:=23 step -1 until 0 do┆
0x1940…1960 0a 20 20 20 20 62 65 67 69 6e 0a 00 00 20 20 20 20 20 20 69 66 20 28 6e 2b 31 29 20 6d 6f 64 20 ┆ begin if (n+1) mod ┆
0x1960…1980 38 3d 30 20 74 68 65 6e 20 6f 75 74 63 68 61 72 28 6f 75 74 2c 27 73 70 27 29 00 3b 0a 20 20 20 ┆8=0 then outchar(out,'sp') ; ┆
0x1980…19a0 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 69 66 20 6c 7b 73 62 69 74 5f 69 61 28 69 61 2c 6e 29 ┆ write(out,if læsbit_ia(ia,n)┆
0x19a0…19c0 20 74 68 65 6e 20 22 31 22 20 65 6c 73 65 20 22 2e 22 2c 31 29 3b 0a 00 00 20 20 20 20 65 6e 64 ┆ then "1" else ".",1); end┆
0x19c0…19e0 3b 0a 20 20 20 20 69 3a 3d 69 2b 31 3b 0a 20 20 75 6e 74 69 6c 20 69 3d 32 36 3b 0a 00 20 20 6f ┆; i:=i+1; until i=26; o┆
0x19e0…1a00 75 74 63 68 61 72 28 6f 75 74 2c 27 6e 6c 27 29 3b 0a 65 6e 64 0a 00 00 70 0a 00 66 69 6e 69 73 ┆utchar(out,'nl'); end p finis┆
0x1a00…1a20 0a 19 00 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 31 20 30 34 20 32 30 20 74 65 72 6d 69 ┆ 81 04 20 termi┆
0x1a20…1a40 6e 20 67 72 75 6e 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 2e 34 30 30 20 20 20 20 ┆n grund 8.400 ┆
0x1a40…1a60 20 20 20 20 20 20 20 2d 34 30 2e 37 30 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 31 ┆ -40.700 81┆
0x1a60…1a80 20 30 34 20 32 31 20 68 75 73 68 6f 6c 64 6e 69 6e 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 04 21 husholdning ┆
0x1a80…1aa0 20 20 20 32 2e 32 31 30 20 20 20 20 20 20 20 20 20 20 20 2d 34 32 2e 39 31 30 0a 20 20 20 20 20 ┆ 2.210 -42.910 ┆
0x1aa0…1ac0 20 20 20 20 20 20 20 20 20 20 38 31 20 30 34 20 32 32 20 6c 6f 6d 6d 70 20 20 20 20 20 20 20 20 ┆ 81 04 22 lommp ┆
0x1ac0…1ae0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 2e 36 31 30 20 20 20 20 20 20 20 20 20 20 20 2d ┆ 0.610 -┆
0x1ae0…1b00 34 33 2e 35 32 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 38 31 20 30 34 20 32 34 20 66 ┆43.520 81 04 24 f┆
0x1b00…1b20 (1, 16023) 3b 20 6a 6f 62 66 69 6c 20 75 64 74 61 67 68 65 6c 74 61 66 20 61 72 20 37 38 31 32 30 35 0a 3b ┆; jobfil udtagheltaf ar 781205 ;┆
[…truncated at 200 lines…]