|
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…0030 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 00 00 00 00 65 a0 2a 00 00 00 00 00 00 00 00 00 ┆ o pcheckdatoaf disc e * ┆
0x0030…0060 00 00 00 00 36 9b 00 00 6e 00 00 77 6c 7b 73 68 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 ┆ 6 n wlæsheltalaf disc c ┆
0x0060…0090 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 73 63 00 00 00 00 00 00 00 00 63 50 23 00 00 00 ┆ X+ N slicesaf disc cP# ┆
0x0090…00c0 00 00 00 00 00 00 00 00 00 00 67 78 00 00 6f 00 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 ┆ gx o psystidaf disc eF ┆
0x00c0…00f0 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 00 00 00 02 64 69 73 63 00 00 00 00 00 00 00 00 ┆ q sætbitiaf disc ┆
0x00f0…0120 79 30 e7 00 00 00 00 00 00 00 00 00 00 00 00 00 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 ┆y0 n wudtagheltaf disc ┆
0x0120…0150 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ d_ ┆
0x0150…0180 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 ┆ ┆
[…0x7…]
0x02d0…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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 06 ┆ ┆
0x0300…0330 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 74 6f 61 66 20 73 69 64 65 20 31 2e 20 61 72 20 ┆p = algol begin message checkdatoaf side 1. ar ┆
0x0330…0360 37 39 30 31 32 34 3b 0a 0a 3c 2a 20 64 65 74 74 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 ┆790124; <* dette program checker proceduren che┆
0x0360…0390 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 70 61 72 20 28 64 61 67 2c 73 65 63 29 20 69 6e ┆ckdato. programmet indlæser talpar (dag,sec) in┆
0x0390…03c0 64 74 69 6c 20 65 6e 20 6e 65 67 61 74 69 76 0a 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 ┆dtil en negativ dag mødes, og kalder derefter ch┆
0x03c0…03f0 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 0a 70 72 6f 67 72 61 6d 6d 65 74 20 75 64 73 6b ┆eckdato. som udskrift udskrives programmet udsk┆
0x03f0…0420 72 69 76 65 72 20 64 61 67 2c 73 65 63 2c 20 76 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 ┆river dag,sec, værdien af checkdato samt datoen ┆
0x0420…0450 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 73 20 64 65 74 20 76 61 72 20 65 6e 0a 6c 6f 76 ┆der returneres fra checkdato hvis det var en lov┆
0x0450…0480 6c 69 67 20 64 61 74 6f 2e 20 0a 0a 6b 61 6c 64 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 ┆lig dato. kaldte procedurer: checkdato, systid┆
0x0480…04b0 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 20 20 20 20 20 20 69 2c 0a 20 20 20 20 20 20 6a ┆, ud. *> integer dag, i, j┆
0x04b0…04e0 2c 0a 20 20 20 20 20 20 73 65 63 3b 0a 0a 20 20 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 ┆, sec; real r, t; repe┆
0x04e0…0510 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 20 6f 75 74 64 61 74 65 28 6f 75 74 2c 64 61 67 ┆at read(in,dag,sec); outdate(out,dag┆
0x0510…0540 29 3b 0a 20 20 20 20 20 20 6f 75 74 63 68 61 72 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 ┆); outchar(out,32); outdate(out,sec)┆
0x0540…0570 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 0a 20 20 20 20 20 20 69 66 20 72 20 3c 20 30 20 ┆; r := checkdato(dag,sec); if r < 0 ┆
0x0570…05a0 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 3c 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 ┆then write(out,<: ulovlig dato.:>) else ┆
0x05a0…05d0 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 34 2c 72 2c 74 29 3b 0a 20 20 20 20 20 20 20 20 ┆ begin i := systime(4,r,t); ┆
0x05d0…0600 20 6a 20 3a 3d 20 74 3b 0a 20 20 20 20 20 20 20 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 ┆ j := t; write(out,<: retur-tid: :>); ┆
0x0600…0630 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 20 6f 75 74 63 68 61 72 28 6f 75 74 2c 33 32 29 ┆ outdate(out,i); outchar(out,32)┆
0x0630…0660 3b 0a 20 20 20 20 20 20 20 20 20 6f 75 74 64 61 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 ┆; outdate(out,j); end; outc┆
0x0660…0690 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 6e 74 69 6c 20 64 61 67 20 3c 20 30 3b 0a 65 6e ┆har(out,10); ud(out); until dag < 0; en┆
0x0690…06c0 64 0a 70 0a 36 37 31 32 33 31 20 32 33 35 39 35 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 ┆d p 671231 235959 : ulovlig dato 680101 000000 :┆
0x06c0…06f0 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 39 20 3a 73 69 64 73 74 65 20 6c 6f 76 6c 69 67 ┆første lovlige dato 991231 235959 :sidste lovlig┆
0x06f0…0720 65 20 74 69 64 73 70 75 6e 6b 74 0a 37 39 30 32 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 ┆e tidspunkt 790229 000000 : ulovlig dato 800229 ┆
0x0720…0750 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 37 30 30 30 30 30 20 30 30 30 30 30 30 20 3a 20 ┆000000 : lovlig dato pga skudår 700000 000000 : ┆
0x0750…0780 75 6c 6f 76 6c 69 67 20 64 61 74 6f 0a 37 30 31 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 ┆ulovlig dato 701300 000000 : ulovlig dato 700101┆
0x0780…07b0 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 00 20 20 20 20 20 69 2c 0a 20 20 20 20 20 20 6a ┆ 140060 : ulovlig dato -10 0 i, j┆
0x07b0…07e0 2c 0a 20 20 20 20 20 20 73 65 63 3b 0a 0a 20 20 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 ┆, sec; real r, t; repe┆
0x07e0…0810 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 20 6f 75 74 64 61 74 65 28 6f 75 74 2c 64 61 67 ┆at read(in,dag,sec); outdate(out,dag┆
0x0810…0840 29 3b 0a 20 20 20 20 20 20 6f 75 74 63 68 61 72 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 ┆); outchar(out,32); outdate(out,sec)┆
0x0840…0870 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 0a 20 20 20 20 20 20 69 66 20 72 20 3c 20 30 20 ┆; r := checkdato(dag,sec); if r < 0 ┆
0x0870…08a0 74 68 65 6e 20 77 72 69 74 65 28 6f 75 74 2c 3c 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 ┆then write(out,<: ulovlig dato.:>) else ┆
0x08a0…08d0 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 34 2c 72 2c 74 29 3b 0a 20 20 20 20 20 20 20 20 ┆ begin i := systime(4,r,t); ┆
0x08d0…0900 20 6a 20 3a 3d 20 74 3b 0a 20 20 20 20 20 20 20 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 ┆ j := t; write(out,<: retur-tid: :>); ┆
0x0900…0930 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 20 6c 69 6c 6c 65 20 70 72 6f 67 72 61 6d 20 61 ┆p=algol list.yes begin <* dette lille program a┆
0x0930…0960 66 70 72 7c 76 65 72 20 70 72 6f 63 65 64 75 72 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 ┆fprøver procedure læsheltal. som input gives en ┆
0x0960…0990 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 0a 70 6f 73 69 69 74 6f 6e 73 61 6e 67 69 76 65 ┆række linier, der starter med en posiitonsangive┆
0x0990…09c0 6c 73 65 20 69 20 6b 6f 6c 6f 6e 6e 65 20 31 2c 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 ┆lse i kolonne 1,. det tal, der starter i den påg┆
0x09c0…09f0 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 64 6c 7b 73 65 73 0a 6f 67 20 75 64 73 6b 72 69 ┆ældende position eller senere indlæses og udskri┆
0x09f0…0a20 76 65 73 2e 0a 0a 6b 7c 72 73 6c 65 6e 20 61 66 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 ┆ves. kørslen afslurtes når det læste tal har væ┆
0x0a20…0a50 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 61 6c 2c 74 65 72 6d 69 6e 61 74 6f 72 2c 70 6f ┆rdien 99. *> integer i,tegn,tal,terminator,po┆
0x0a50…0a80 73 3b 0a 20 20 20 69 6e 74 65 67 65 72 20 61 72 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 ┆s; integer array alfa(0:127); integer arra┆
0x0a80…0ab0 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 61 6c 28 31 3a 31 32 30 29 3b 0a 20 20 20 6c 6f ┆y kind(1:70); integer array val(1:120); lo┆
0x0ab0…0ae0 6e 67 20 61 72 72 61 79 20 66 69 65 6c 64 20 6c 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 ┆ng array field la; la := 0; alfa(0) := 0; ┆
0x0ae0…0b10 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 64 6f 20 61 6c 66 61 28 69 29 20 3a 3d 20 36 20 ┆ for i := 1 step 1 until 127 do alfa(i) := 6 ┆
0x0b10…0b40 73 68 69 66 74 20 31 32 20 61 64 64 20 69 3b 0a 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 ┆shift 12 add i; alfa(10) := 8 shift 12 add 10┆
0x0b40…0b70 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 20 20 20 20 20 72 65 61 64 61 6c 6c 28 69 6e 2c ┆; intable(alfa); repeat readall(in,┆
0x0b70…0ba0 76 61 6c 2e 6c 61 2c 6b 69 6e 64 2c 31 29 3b 0a 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 ┆val.la,kind,1); write(out,val.la,nl,1); ┆
0x0ba0…0bd0 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 61 6c 28 76 61 6c 2c 70 6f 73 2c 74 61 6c 2c 74 ┆ pos := 1; i := læsheltal(val,pos,tal,t┆
0x0bd0…0c00 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 73 74 61 72 74 70 6f 73 69 74 69 6f 6e 20 3d 20 3a 3e ┆erminator); write(out,<:startposition = :>┆
0x0c00…0c30 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 20 20 20 20 69 20 3a 3d 20 6c 7b 73 68 65 6c 74 ┆,tal,nl,1); pos := tal; i := læshelt┆
0x0c30…0c60 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 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 6c 7b ┆al(val,pos,tal,terminator); write(out,<:læ┆
0x0c60…0c90 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 3a 20 74 61 6c 20 3d 3a 3e 2c 74 61 6c 2c 0a 20 ┆sheltal = :>,i,<: pos = :>,pos,<: tal =:>,tal, ┆
0x0c90…0cc0 20 20 20 20 20 20 20 20 3c 3a 20 74 65 72 6d 69 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 ┆ <: terminator =:>,terminator,nl,2); fejl┆
0x0cc0…0cf0 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 61 6c 3d 39 39 3b 0a 65 6e 64 0a 70 0a 33 20 2d ┆ipos1: ud(out); until tal=99; end p 3 -┆
0x0cf0…0d20 38 33 38 38 36 30 37 20 73 74 7c 72 73 74 65 20 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 ┆8388607 største negative tal, der er ok 3 0 ┆
0x0d20…0d50 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 37 20 20 73 74 7c 72 73 74 65 20 70 6f 73 69 74 ┆ et tal på et ciffer. 3 8388607 største posit┆
0x0d50…0d80 69 76 65 20 74 61 6c 2c 20 65 72 20 65 72 20 6f 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 ┆ive tal, er er ok. 3 +10 foranstillet + fje┆
0x0d80…0db0 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 67 6e 0a 33 20 20 20 69 6e 67 65 6e 20 74 61 6c ┆rnes. 3 1 skip af blanktegn 3 ingen tal┆
0x0db0…0de0 20 70 7d 20 6c 69 6e 69 65 6e 0a 33 20 2d 20 31 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 ┆ på linien 3 - 1 ulovligt format 3 + 1 igen ulov┆
0x0de0…0e10 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 70 6f 73 69 74 69 76 0a 33 20 2d 38 33 38 38 36 ┆ligt format 3 8388608 overflow, positiv 3 -83886┆
0x0e10…0e40 30 38 20 64 65 74 74 65 20 6d 61 72 6b 65 72 65 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 ┆08 dette markeres som overflow negativ. 3 100000┆
0x0e40…0e70 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 20 6f 76 65 72 66 6c 6f 77 0a 33 20 39 39 20 61 ┆0000000 skip af ekstra cifre ved overflow 3 99 a┆
0x0e70…0ea0 66 73 6c 75 74 20 6b 7c 72 73 6c 65 6e 2e 0a 19 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 ┆fslut kørslen. write(out,val.la,nl,1); ┆
0x0ea0…0ed0 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 61 6c 28 76 61 6c 2c 70 6f 73 2c 74 61 6c 2c 74 ┆ pos := 1; i := læsheltal(val,pos,tal,t┆
0x0ed0…0f00 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 73 74 61 72 74 70 6f 73 69 74 69 6f 6e 20 3d 20 3a 3e ┆erminator); write(out,<:startposition = :>┆
0x0f00…0f30 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 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 69 ┆p=algol begin integer i,j; integer array i┆
0x0f30…0f60 61 28 31 3a 32 30 30 29 3b 0a 0a 20 20 77 72 69 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 ┆a(1:200); write(out,<:<10>første slice: :>); ┆
0x0f60…0f90 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 69 29 3b 0a 20 20 77 72 69 74 65 28 6f 75 74 2c ┆setposition(out,0,0); read(in,i); write(out,┆
0x0f90…0fc0 3c 3a 3c 36 30 3e 3a 3e 2c 3c 3c 64 3e 2c 69 2c 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 ┆<:<60>:>,<<d>,i,<:<62>:>,nl,1); j:=slices(i,ia┆
0x0fc0…0ff0 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 20 77 72 69 74 65 28 6f 75 74 2c 6e 6c 2c 31 2c ┆); if j>-2048 then begin write(out,nl,1,┆
0x0ff0…1020 73 70 2c 31 35 2c 3c 3a 3b 20 3a 3e 2c 61 62 73 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 ┆sp,15,<:; :>,abs j,<: slices:>); for i:=1 st┆
0x1020…1050 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 20 20 20 20 69 66 20 69 20 6d 6f 64 20 35 3d 31 ┆ep 1 until abs j do begin if i mod 5=1┆
0x1050…1080 20 74 68 65 6e 0a 20 20 20 20 20 20 20 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 29 3b 0a 20 20 20 20 ┆ then write(out,nl,1,sp,15,<:; :>); ┆
0x1080…10b0 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 20 20 65 6e 64 3b 0a 20 20 65 6e 64 3b 0a 65 6e ┆ write(out,<< dddd>,ia(i)); end; end; en┆
0x10b0…10e0 64 0a 70 0a 2d 31 0a 70 0a 30 0a 70 20 0a 31 0a 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 ┆d p -1 p 0 p 1 p 2 p 100 p 1000 p 2034 p 2035 p┆
0x10e0…1110 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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ 2036 p 10000 end ┆
0x1110…1140 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 ┆ ┆
[…0x3…]
0x11d0…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 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 5e ce 18 00 20 02 ┆ ^ ┆
0x1200…1230 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 2e 79 65 73 0a 62 65 67 69 6e 0a 20 20 69 6e 74 ┆head 1 iso systidtest=algol list.yes begin int┆
0x1230…1260 65 67 65 72 20 69 2c 6a 2c 6b 3b 0a 20 20 72 65 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 ┆eger i,j,k; real t,u,v; read(in,i); while ┆
0x1260…1290 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 74 20 3a 3d 20 73 79 73 74 69 64 28 69 2c 6a 29 ┆i>=0 do begin read(in,j); t := systid(i,j)┆
0x1290…12c0 3b 0a 20 20 69 66 20 74 20 3c 20 30 2e 30 20 74 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 ┆; if t < 0.0 then write(out,<:ulovlig dato┆
0x12c0…12f0 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 69 74 65 28 6f 75 74 2c 3c 3c 64 2e 64 64 64 64 ┆/klokkeslet<10>:>) else write(out,<<d.dddd┆
0x12f0…1320 64 64 64 64 27 64 64 3e 2c 74 2c 3c 3a 20 3d 3a 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 ┆dddd'dd>,t,<: =:>,<< zddddd>,systime(4,t,u),u,nl┆
0x1320…1350 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 69 74 69 6f 6e 28 6f 75 74 2c 30 2c 30 29 3b 0a ┆,1); if testbit(0) then setposition(out,0,0); ┆
0x1350…1380 20 20 72 65 61 64 28 69 6e 2c 69 29 3b 0a 20 65 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 ┆ read(in,i); end; end systidtest 680101 000000┆
0x1380…13b0 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 32 32 39 20 31 32 34 37 31 31 0a 37 38 31 30 33 ┆ 991231 235959 790110 141006 800229 124711 78103┆
0x13b0…13e0 32 20 31 30 31 37 33 35 0a 38 30 30 32 32 38 20 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 ┆2 101735 800228 271818 790110 161274 790110 1672┆
0x13e0…1410 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 00 10 d3 40 00 00 00 77 72 69 74 65 00 00 00 00 ┆10 010101 010101 -1 end @ write ┆
0x1410…1440 00 00 00 0e 82 00 00 00 00 6f 75 74 00 00 00 00 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 ┆ out 8 systime C v` vå┆
0x1440…1470 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 1e 00 00 01 01 76 69 01 76 6d 00 00 00 00 a4 c8 ┆ ` v@ vi vm ┆
0x1470…14a0 00 00 00 01 76 40 01 76 39 00 00 1a 01 76 70 01 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 ┆ v@ v9 vp Wb E vp WX ┆
0x14a0…14d0 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 00 ff ff fb ff ff fd 00 00 02 01 57 5a 00 00 64 ┆ vå v vü WZ d┆
0x14d0…1500 00 00 1a 00 00 08 00 00 0a 01 76 9e 01 57 58 00 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 ┆ v WX J J v sys 'u ┆
0x1500…1530 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 69 6e 74 65 67 65 72 20 66 2c 69 2c 6a 2c 6b 2c ┆mode list.yes p=algol begin integer f,i,j,k,┆
0x1530…1560 6e 2c 6d 3b 0a 00 20 20 6c 6f 6e 67 20 6c 3b 0a 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 ┆n,m; long l; integer array ia(0:1); r┆
0x1560…1590 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 32 3b 0a 00 20 20 6a 3a 3d 69 61 28 30 29 3a 3d ┆eal array field raf; raf:=-2; j:=ia(0):=┆
0x1590…15c0 69 61 28 31 29 3a 3d 30 3b 0a 00 00 20 20 6c 3a 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 ┆ia(1):=0; l:=0; i:=-2; f:=1; repeat ┆
0x15c0…15f0 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 69 74 5f 6c 28 6c 2c 69 2d 31 2c 32 29 3b 0a 00 ┆ sætbit_i(j,i-1,2); sætbit_l(l,i-1,2); ┆
0x15f0…1620 20 20 20 20 73 7b 74 62 69 74 5f 69 61 28 69 61 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 ┆ sætbit_ia(ia,i-1,2); write(out,"nl",2,┆
0x1620…1650 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 3c 3c 2d 64 20 64 64 64 20 64 64 64 20 64 64 64 ┆<<-dd>,i,<:: :>,sætbit_i(j,i,f),<<-d ddd ddd ddd┆
0x1650…1680 3e 2c 6a 29 00 3b 0a 00 00 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 0a 20 20 20 20 62 65 ┆>,j) ; for n:=23 step -1 until 0 do be┆
0x1680…16b0 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 6e 20 6f 75 74 63 68 61 72 28 6f 75 74 2c 27 73 ┆gin if (n+1) mod 8=0 then outchar(out,'s┆
0x16b0…16e0 70 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 28 6a 2c 6e 29 20 74 68 65 6e 20 22 31 22 20 ┆p'); write(out,if læsbit_i(j,n) then "1" ┆
0x16e0…1710 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 65 28 6f 75 74 2c 22 6e 6c 22 2c 31 2c 22 73 70 ┆else ".",1); end; write(out,"nl",1,"sp┆
0x1710…1740 22 2c 35 2c 3c 3c 2d 64 64 3e 2c 73 7b 74 62 69 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 ┆",5,<<-dd>,sætbit_l(l,i,f),<<-d ddd ddd ddd>,l);┆
0x1740…1770 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 20 64 6f 0a 20 20 20 20 62 65 67 69 6e 0a 00 00 ┆ for n:=47 step -1 until 0 do begin ┆
0x1770…17a0 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 6e 20 6f 75 74 63 68 61 72 28 6f 75 74 2c 27 73 70 27 29 3b 0a 00 ┆ if (n+1) mod 8=0 then outchar(out,'sp'); ┆
0x17a0…17d0 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 20 74 68 65 6e 20 22 31 22 20 65 6c 73 65 20 22 ┆ write(out,if læsbit_l(l,n) then "1" else "┆
0x17d0…1800 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 65 28 6f 75 74 2c 22 6e 6c 22 2c 31 2c 22 73 70 22 2c 35 2c 3c 3c ┆.",1); end; write(out,"nl",1,"sp",5,<<┆
0x1800…1830 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 64 64 64 20 64 64 64 3e 00 2c 0a 00 00 20 20 20 ┆-dd>,sætbit_ia(ia,i,f),<<-d ddd ddd ddd> , ┆
0x1830…1860 20 20 20 20 20 20 20 20 20 20 20 69 61 28 30 29 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 ┆ ia(0)); for n:=-1 step -1 until┆
0x1860…1890 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 2b 31 29 20 6d 6f 64 20 38 3d 30 20 74 68 65 6e ┆ -24 do begin if (n+1) mod 8=0 then┆
0x1890…18c0 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 65 28 6f 75 74 2c 69 66 20 6c 7b 73 62 69 74 5f 69 ┆ outchar(out,'sp'); write(out,if læsbit_i┆
0x18c0…18f0 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 20 20 65 6e 64 3b 0a 20 20 20 20 77 72 69 74 65 ┆a(ia,n) then "1" else ".",1); end; write┆
0x18f0…1920 28 6f 75 74 2c 22 6e 6c 22 2c 31 2c 22 73 70 22 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 ┆(out,"nl",1,"sp",8,<<-d ddd ddd ddd>,ia(1)) ; ┆
0x1920…1950 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 0a 20 20 20 20 62 65 67 69 6e 0a 00 00 20 20 20 ┆ for n:=23 step -1 until 0 do begin ┆
0x1950…1980 20 20 20 69 66 20 28 6e 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 27 29 00 3b 0a 20 20 20 ┆ if (n+1) mod 8=0 then outchar(out,'sp') ; ┆
0x1980…19b0 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 20 74 68 65 6e 20 22 31 22 20 65 6c 73 65 20 22 ┆ write(out,if læsbit_ia(ia,n) then "1" else "┆
0x19b0…19e0 2e 22 2c 31 29 3b 0a 00 00 20 20 20 20 65 6e 64 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 ┆.",1); end; i:=i+1; until i=26; o┆
0x19e0…1a10 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 0a 19 00 00 20 20 20 20 20 20 20 20 20 20 20 20 ┆utchar(out,'nl'); end p finis ┆
0x1a10…1a40 20 20 38 31 20 30 34 20 32 30 20 74 65 72 6d 69 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 ┆ 81 04 20 termin grund 8.400 ┆
0x1a40…1a70 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 20 30 34 20 32 31 20 68 75 73 68 6f 6c 64 6e 69 ┆ -40.700 81 04 21 husholdni┆
0x1a70…1aa0 6e 67 20 20 20 20 20 20 20 20 20 20 20 20 20 20 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 ┆ng 2.210 -42.910 ┆
0x1aa0…1ad0 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 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 ┆ 81 04 22 lommp 0┆
0x1ad0…1b00 2e 36 31 30 20 20 20 20 20 20 20 20 20 20 20 2d 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 ┆.610 -43.520 81 04 24 f┆
0x1b00…1b30 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 0a 3b 20 64 65 6e 6e 65 20 6a 6f 62 66 69 6c 20 ┆; jobfil udtagheltaf ar 781205 ; ; denne jobfil ┆
0x1b30…1b60 61 66 70 72 7c 76 65 72 20 70 72 6f 63 65 64 75 72 65 20 75 64 74 61 67 68 65 6c 74 61 6c 0a 3b 0a 70 3d 61 6c 67 6f 6c 20 6c 69 73 74 2e 79 65 ┆afprøver procedure udtagheltal ; p=algol list.ye┆
0x1b60…1b90 73 0a 62 65 67 69 6e 0a 0a 3c 2a 20 64 65 74 74 65 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 ┆s begin <* dette lille program afprøver procedu┆
0x1b90…1bc0 72 65 20 75 64 74 61 67 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 72 7b 6b 6b 65 20 6c 69 6e 69 65 72 2c ┆re udtagheltal. som input gives en række linier,┆
0x1bc0…1bf0 20 64 65 72 20 73 74 61 72 74 65 72 20 6d 65 64 20 65 6e 0a 70 6f 73 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 ┆ der starter med en positonsangivelse i kolonne ┆
0x1bf0…1c20 31 20 6f 67 20 64 65 72 65 66 74 65 72 20 65 6e 20 66 65 6c 74 61 6e 67 69 76 65 6c 73 65 2e 0a 64 65 74 20 74 61 6c 2c 20 64 65 72 20 73 74 61 ┆1 og derefter en feltangivelse. det tal, der sta┆
0x1c20…1c50 72 74 65 72 20 69 20 64 65 6e 20 70 7d 67 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 64 6c ┆rter i den pågældende position eller senere indl┆
0x1c50…1c80 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 73 6c 75 72 74 65 73 20 6e 7d 72 20 64 65 74 20 6c 7b ┆æses og udskrives. kørslen afslurtes når det læ┆
0x1c80…1cb0 73 74 65 20 74 61 6c 20 68 61 72 20 76 7b 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 61 6c ┆ste tal har værdien 99. *> integer i,tegn,tal┆
0x1cb0…1ce0 2c 74 65 72 6d 69 6e 61 74 6f 72 2c 70 6f 73 2c 75 64 70 6f 73 2c 75 64 66 65 6c 74 3b 0a 20 20 20 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 61 ┆,terminator,pos,udpos,udfelt; integer array a┆
0x1ce0…1d10 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 79 20 6b 69 6e 64 28 31 3a 37 30 29 3b 0a 20 20 20 69 6e 74 65 ┆lfa(0:127); integer array kind(1:70); inte┆
0x1d10…1d40 67 65 72 20 61 72 72 61 79 20 76 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 61 3b 0a 20 20 ┆ger array val(1:120); long array field la; ┆
0x1d40…1d70 20 3c 2a 61 31 20 61 6c 67 6f 6c 20 63 6f 70 79 2e 75 64 74 61 67 68 65 6c 74 74 78 3b 20 31 61 2a 3e 0a 20 20 20 6c 61 20 3a 3d 20 30 3b 0a 20 ┆ <*a1 algol copy.udtaghelttx; 1a*> la := 0; ┆
0x1d70…1da0 20 20 61 6c 66 61 28 30 29 20 3a 3d 20 30 3b 0a 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 ┆ alfa(0) := 0; for i := 1 step 1 until 127 ┆
0x1da0…1dd0 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 20 20 20 61 6c 66 61 28 31 30 29 20 3a 3d 20 38 ┆do alfa(i) := 6 shift 12 add i; alfa(10) := 8┆
0x1dd0…1e00 20 73 68 69 66 74 20 31 32 20 61 64 64 20 31 30 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 ┆ shift 12 add 10; intable(alfa); repeat ┆
0x1e00…1e30 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 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c ┆ readall(in,val.la,kind,1); write(out,┆
0x1e30…1e60 76 61 6c 2e 6c 61 2c 6e 6c 2c 31 29 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 31 32 33 34 35 36 37 38 39 30 31 32 33 34 35 36 ┆val.la,nl,1); write(out,<:1234567890123456┆
0x1e60…1e90 37 38 39 30 31 32 33 34 35 36 37 38 39 30 31 32 33 34 35 36 37 38 39 30 3a 3e 2c 6e 6c 2c 31 29 3b 0a 20 20 20 20 20 20 70 6f 73 20 3a 3d 20 31 ┆789012345678901234567890:>,nl,1); pos := 1┆
0x1e90…1ec0 3b 0a 20 20 20 20 20 20 6c 7b 73 68 65 6c 74 61 6c 28 76 61 6c 2c 70 6f 73 2c 75 64 70 6f 73 2c 74 65 72 6d 69 6e 61 74 6f 72 29 3b 0a 20 20 20 ┆; læsheltal(val,pos,udpos,terminator); ┆
0x1ec0…1ef0 20 20 20 6c 7b 73 68 65 6c 74 61 6c 28 76 61 6c 2c 70 6f 73 2c 75 64 66 65 6c 74 2c 74 65 72 6d 69 6e 61 74 6f 72 29 3b 0a 20 20 20 20 20 20 77 ┆ læsheltal(val,pos,udfelt,terminator); w┆
0x1ef0…1f20 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 2c 75 64 70 6f 73 2c 3c 3a 20 66 65 6c 74 20 3d 3a 3e 2c ┆rite(out,<:startposition = :>,udpos,<: felt =:>,┆
0x1f20…1f50 75 64 66 65 6c 74 2c 6e 6c 2c 31 29 3b 0a 20 20 20 20 20 20 69 20 3a 3d 20 75 64 74 61 67 68 65 6c 74 61 6c 28 76 61 6c 2c 75 64 70 6f 73 2c 75 ┆udfelt,nl,1); i := udtagheltal(val,udpos,u┆
0x1f50…1f80 64 66 65 6c 74 2c 74 61 6c 29 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 75 64 74 61 67 68 65 6c 74 61 6c 20 3d 20 3a 3e 2c 69 ┆dfelt,tal); write(out,<:udtagheltal = :>,i┆
0x1f80…1fb0 2c 3c 3a 20 70 6f 73 20 3d 20 3a 3e 2c 75 64 70 6f 73 2c 3c 3a 20 74 61 6c 20 3d 3a 3e 2c 74 61 6c 2c 0a 20 20 20 20 20 20 20 20 20 6e 6c 2c 32 ┆,<: pos = :>,udpos,<: tal =:>,tal, nl,2┆
0x1fb0…1fe0 29 3b 0a 66 65 6a 6c 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 61 6c 3d 39 39 3b 0a 65 6e ┆); fejlipos1: ud(out); until tal=99; en┆
0x1fe0…2010 64 0a 63 68 61 72 20 31 32 0a 70 0a 35 20 33 20 20 20 20 20 20 20 74 61 6c 20 66 69 6e 64 65 73 20 69 6b 6b 65 0a 35 20 33 20 20 31 32 20 20 20 ┆d char 12 p 5 3 tal findes ikke 5 3 12 ┆
0x2010…2040 74 61 6c 20 66 69 6e 64 65 73 20 28 31 32 29 0a 35 20 33 20 20 20 31 32 20 20 73 6b 69 70 20 61 66 20 62 6c 61 6e 6b 20 28 31 32 29 0a 35 20 33 ┆tal findes (12) 5 3 12 skip af blank (12) 5 3┆
0x2040…2070 20 20 20 31 32 20 74 61 6c 20 61 66 73 6b 7b 72 65 73 20 28 31 29 0a 36 20 33 20 31 32 20 20 20 74 61 6c 20 61 66 73 6b 7b 72 65 73 20 64 65 6e ┆ 12 tal afskæres (1) 6 3 12 tal afskæres den┆
0x2070…20a0 20 61 6e 64 65 6e 20 76 65 6a 20 28 32 29 0a 35 20 32 30 20 38 33 38 38 36 30 37 20 20 20 33 33 20 20 20 20 20 20 20 20 20 20 66 6c 65 72 65 20 ┆ anden vej (2) 5 20 8388607 33 flere ┆
0x20a0…20d0 74 61 6c 20 69 20 66 65 6c 74 65 74 20 28 38 33 38 38 36 30 37 29 0a 35 20 38 20 2d 38 33 38 38 36 30 37 20 73 74 7c 72 73 74 65 20 6e 65 67 61 ┆tal i feltet (8388607) 5 8 -8388607 største nega┆
0x20d0…2100 74 69 76 65 20 74 61 6c 20 28 2d 38 33 38 38 36 30 37 29 0a 35 20 32 30 20 38 33 38 38 36 30 38 20 20 20 6f 76 65 72 66 6c 6f 77 20 28 38 33 38 ┆tive tal (-8388607) 5 20 8388608 overflow (838┆
0x2100…2130 38 36 30 37 29 0a 35 20 32 30 20 2d 38 33 38 38 36 30 38 20 75 6e 64 65 72 66 6c 6f 77 20 28 2d 38 33 38 38 36 30 38 29 0a 31 30 20 31 20 20 20 ┆8607) 5 20 -8388608 underflow (-8388608) 10 1 ┆
0x2130…2160 20 38 37 39 38 20 75 64 70 6c 75 6b 20 61 66 20 65 6e 6b 65 6c 74 20 63 69 66 66 65 72 20 28 37 29 0a 31 30 20 32 20 20 20 20 38 39 39 38 20 73 ┆ 8798 udpluk af enkelt ciffer (7) 10 2 8998 s┆
0x2160…2190 6c 75 74 20 70 7d 20 6b 7c 72 73 6c 65 6e 20 28 39 39 29 0a 19 38 39 30 3a 3e 2c 6e 6c 2c 31 29 3b 0a 20 20 20 20 20 20 70 6f 73 20 3a 3d 20 31 ┆lut på kørslen (99) 890:>,nl,1); pos := 1┆
0x2190…21c0 3b 0a 20 20 20 20 20 20 6c 7b 73 68 65 6c 74 61 6c 28 76 61 6c 2c 70 6f 73 2c 75 64 70 6f 73 2c 74 65 72 6d 69 6e 61 74 6f 72 29 3b 0a 20 20 20 ┆; læsheltal(val,pos,udpos,terminator); ┆
0x21c0…21f0 20 20 20 6c 7b 73 68 65 6c 74 61 6c 28 76 61 6c 2c 70 6f 73 2c 75 64 66 65 6c 74 2c 74 65 72 6d 69 6e 61 74 6f 72 29 3b 0a 20 20 20 20 20 20 77 ┆ læsheltal(val,pos,udfelt,terminator); w┆
0x21f0…2220 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 2c 75 64 70 6f 73 2c 3c 3a 20 66 65 6c 74 20 3d 3a 3e 2c ┆rite(out,<:startposition = :>,udpos,<: felt =:>,┆
0x2220…2250 75 64 66 65 6c 74 2c 6e 6c 2c 31 29 3b 0a 20 20 20 20 20 20 69 20 3a 3d 20 75 64 74 61 67 68 65 6c 74 61 6c 28 76 61 6c 2c 75 64 70 6f 73 2c 75 ┆udfelt,nl,1); i := udtagheltal(val,udpos,u┆
0x2250…2280 64 66 65 6c 74 2c 74 61 6c 29 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 75 64 74 61 67 68 65 6c 74 61 6c 20 3d 20 3a 3e 2c 69 ┆dfelt,tal); write(out,<:udtagheltal = :>,i┆
0x2280…22b0 2c 3c 3a 20 70 6f 73 20 3d 20 3a 3e 2c 75 64 70 6f 73 2c 3c 3a 20 74 61 6c 20 3d 3a 3e 2c 74 61 6c 2c 0a 20 20 20 20 20 20 20 20 20 6e 6c 2c 32 ┆,<: pos = :>,udpos,<: tal =:>,tal, nl,2┆
0x22b0…22e0 29 3b 0a 66 65 6a 6c 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 61 6c 3d 39 39 3b 0a 65 6e ┆); fejlipos1: ud(out); until tal=99; en┆
0x22e0…2310 64 0a 63 68 61 72 20 31 32 0a 70 0a 35 20 33 20 20 20 20 20 20 20 74 61 6c 20 66 69 6e 64 65 73 20 69 6b 6b 65 0a 35 20 33 20 20 31 32 20 20 20 ┆d char 12 p 5 3 tal findes ikke 5 3 12 ┆
0x2310…2340 74 61 6c 20 66 69 6e 64 65 73 20 28 31 32 29 0a 35 20 33 20 20 20 31 32 20 20 73 6b 69 70 20 61 66 20 62 6c 61 6e 6b 20 28 31 32 29 0a 35 20 33 ┆tal findes (12) 5 3 12 skip af blank (12) 5 3┆
0x2340…2370 20 20 20 31 32 20 74 61 6c 20 61 66 73 6b 7b 72 65 73 20 28 31 29 0a 36 20 33 20 31 32 20 20 20 74 61 6c 20 61 66 73 6b 7b 72 65 73 20 64 65 6e ┆ 12 tal afskæres (1) 6 3 12 tal afskæres den┆
0x2370…23a0 20 61 6e 64 65 6e 20 76 65 6a 20 28 32 29 0a 35 20 32 30 20 38 33 38 38 36 30 37 20 20 20 33 33 20 20 20 20 20 20 20 20 20 20 66 6c 65 72 65 20 ┆ anden vej (2) 5 20 8388607 33 flere ┆
0x23a0…23d0 74 61 6c 20 69 20 66 65 6c 74 65 74 20 28 38 33 38 38 36 30 37 29 0a 35 20 38 20 2d 38 33 38 38 36 30 37 20 73 74 7c 72 73 74 65 20 6e 65 67 61 ┆tal i feltet (8388607) 5 8 -8388607 største nega┆
0x23d0…2400 74 69 76 65 20 74 61 6c 20 28 2d 38 33 38 38 36 30 37 29 0a 35 20 32 30 20 38 33 38 38 36 30 38 20 20 20 6f 76 65 72 66 6c 6f 77 20 28 38 33 38 ┆tive tal (-8388607) 5 20 8388608 overflow (838┆
0x2400…2430 31 0e 00 31 0e 01 31 0e 02 31 0e 03 31 0e 04 31 0e 05 31 0e 06 31 0e 07 31 0e 08 31 0e 09 31 0e 0a 31 0e 0b 31 0e 0c 31 0e 0d 31 0e 0e 31 0e 0f ┆1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ┆
0x2430…2460 31 0e 10 31 0e 11 31 0e 12 31 0e 13 31 0e 14 31 0e 15 31 0e 16 31 0e 17 31 0e 18 31 0e 19 31 0e 1a 31 0e 1b 31 0e 1c 31 0e 1d 31 0e 1e 31 0e 1f ┆1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ┆
0x2460…2490 31 0e 20 31 0e 21 31 0e 22 31 0e 23 31 0e 24 31 0e 25 31 0e 26 31 0e 27 31 0e 28 31 0e 29 31 0e 2a 31 0e 2b 31 0e 2c 31 0e 2d 31 0e 2e 31 0e 2f ┆1 1 !1 "1 #1 $1 %1 &1 '1 (1 )1 *1 +1 ,1 -1 .1 /┆
0x2490…24c0 31 0e 30 31 0e 31 31 0e 32 31 0e 33 31 0e 34 31 0e 35 31 0e 36 31 0e 37 31 0e 38 31 0e 39 31 0e 3a 31 0e 3b 31 0e 3c 31 0e 3d 31 0e 3e 31 0e 3f ┆1 01 11 21 31 41 51 61 71 81 91 :1 ;1 <1 =1 >1 ?┆
0x24c0…24f0 31 0e 40 31 0e 41 31 0e 42 31 0e 43 31 0e 44 31 0e 45 31 0e 46 31 0e 47 31 0e 48 31 0e 49 31 0e 4a 31 0e 4b 31 0e 4c 31 0e 4d 31 0e 4e 31 0e 4f ┆1 @1 A1 B1 C1 D1 E1 F1 G1 H1 I1 J1 K1 L1 M1 N1 O┆
0x24f0…2520 31 0e 50 31 0e 51 31 0e 52 31 0e 53 31 0e 54 31 0e 55 31 0e 56 31 0e 57 31 0e 58 31 0e 59 31 0e 5a 31 0e 5b 31 0e 5c 31 0e 5d 31 0e 5e 31 0e 5f ┆1 P1 Q1 R1 S1 T1 U1 V1 W1 X1 Y1 Z1 Æ1 Ø1 Å1 ^1 _┆
0x2520…2550 31 0e 60 31 0e 61 31 0e 62 31 0e 63 31 0e 64 31 0e 65 31 0e 66 31 0e 67 31 0e 68 31 0e 69 31 0e 6a 31 0e 6b 31 0e 6c 31 0e 6d 31 0e 6e 31 0e 6f ┆1 `1 a1 b1 c1 d1 e1 f1 g1 h1 i1 j1 k1 l1 m1 n1 o┆
0x2550…2580 31 0e 70 31 0e 71 31 0e 72 31 0e 73 31 0e 74 31 0e 75 31 0e 76 31 0e 77 31 0e 78 31 0e 79 31 0e 7a 31 0e 7b 31 0e 7c 31 0e 7d 31 0e 7e 31 0e 7f ┆1 p1 q1 r1 s1 t1 u1 v1 w1 x1 y1 z1 æ1 ø1 å1 ü1 ┆
0x2580…25b0 31 0e 80 31 0e 81 31 0e 82 31 0e 83 31 0e 84 31 0e 85 31 0e 86 31 0e 87 31 0e 88 31 0e 89 31 0e 8a 31 0e 8b 31 0e 8c 31 0e 8d 31 0e 8e 31 0e 8f ┆1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ┆
0x25b0…25e0 31 0e 90 31 0e 91 31 0e 92 31 0e 93 31 0e 94 31 0e 95 31 0e 96 31 0e 97 31 0e 98 31 0e 99 31 0e 9a 31 0e 9b 31 0e 9c 31 0e 9d 31 0e 9e 31 0e 9f ┆1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ┆
0x25e0…2610 31 0e a0 31 0e a1 31 0e a2 31 0e a3 31 0e a4 31 0e a5 31 0e a6 31 0e a7 31 0e a8 31 0e a9 31 0e aa 31 0e ab 31 0e ac 31 0e ad 31 0e ae 31 0e af ┆1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ┆
0x2610…2640 31 0e b0 31 0e b1 31 0e b2 31 0e b3 31 0e b4 31 0e b5 31 0e b6 31 0e b7 31 0e b8 31 0e b9 31 0e ba 31 0e bb 31 0e bc 31 0e bd 31 0e be 31 0e bf ┆1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ┆
0x2640…2670 31 0e c0 31 0e c1 31 0e c2 31 0e c3 31 0e c4 31 0e c5 31 0e c6 31 0e c7 31 0e c8 31 0e c9 31 0e ca 31 0e cb 31 0e cc 31 0e cd 31 0e ce 31 0e cf ┆1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ┆
0x2670…26a0 31 0e d0 31 0e d1 31 0e d2 31 0e d3 31 0e d4 31 0e d5 31 0e d6 31 0e d7 31 0e d8 31 0e d9 31 0e da 31 0e db 31 0e dc 31 0e dd 31 0e de 31 0e df ┆1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ┆
0x26a0…26d0 31 0e e0 31 0e e1 31 0e e2 31 0e e3 31 0e e4 31 0e e5 31 0e e6 31 0e e7 31 0e e8 31 0e e9 31 0e ea 31 0e eb 31 0e ec 31 0e ed 31 0e ee 31 0e ef ┆1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ┆
0x26d0…2700 31 0e f0 31 0e f1 31 0e f2 31 0e f3 31 0e f4 31 0e f5 31 0e f6 31 0e f7 31 0e f8 31 0e f9 31 0e fa 31 0e fb 31 0e fc 31 0e fd 31 0e fe 31 0e ff ┆1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ┆
0x2700…2730 31 0f 00 31 0f 01 31 0f 02 31 0f 03 31 0f 04 31 0f 05 31 0f 06 31 0f 07 31 0f 08 31 0f 09 31 0f 0a 31 0f 0b 31 0f 0c 31 0f 0d 31 0f 0e 31 0f 0f ┆1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ┆
[…truncated at 200 lines…]