|
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: 1027584 (0xfae00)
Names: »tclib «
└─⟦9ccaf6601⟧ Bits:30008165 Bånd med SW8000 kildetekst/release værktøjer
└─⟦f546e193b⟧
└─⟦this⟧ »tclib «
0x00000…00030 00 00 00 00 00 02 00 05 3a 00 00 00 00 00 14 00 00 00 00 00 00 00 00 00 ff ff ff 00 00 0e 00 00 09 00 05 31 ff ff ff 00 00 00 00 00 00 00 00 00 ┆ : 1 ┆
0x00030…00060 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 ┆ ┆
[…0xe…]
0x00300…00330 00 00 33 00 00 78 00 00 81 63 73 74 63 00 00 00 00 00 00 00 00 00 00 01 64 69 73 63 00 00 00 00 00 00 00 00 a9 32 19 00 00 00 00 00 00 00 00 00 ┆ 3 x cstc disc 2 ┆
0x00330…00360 00 00 00 00 00 3b 00 00 78 00 00 81 63 74 63 00 00 00 00 00 00 00 00 00 00 00 01 64 69 73 63 00 00 00 00 00 00 00 00 a8 84 58 00 00 00 00 00 00 ┆ ; x ctc disc X ┆
0x00360…00390 00 00 00 00 00 00 00 00 43 00 00 64 00 00 c7 6c 74 63 74 78 74 00 00 00 00 00 00 00 00 1d 64 69 73 63 31 00 00 00 00 00 00 00 c2 3c d0 00 00 00 ┆ C d ltctxt disc1 < ┆
0x00390…003c0 00 00 00 00 00 00 00 00 00 00 01 2b 00 00 64 00 00 c7 73 74 63 74 78 74 00 00 00 00 00 00 00 00 28 64 69 73 63 31 00 00 00 00 00 00 00 c2 3c d4 ┆ + d stctxt (disc1 < ┆
0x003c0…003f0 00 00 00 00 00 00 00 00 00 00 00 00 00 02 6b 00 00 78 00 00 81 64 74 63 74 78 74 00 00 00 00 00 00 00 00 0a 64 69 73 63 31 00 00 00 00 00 00 00 ┆ k x dtctxt disc1 ┆
0x003f0…00420 ad 7e 1a 00 00 00 00 00 00 00 00 00 00 00 00 00 02 bb 80 00 01 7f ff fd 74 61 73 63 61 74 00 00 00 00 00 00 00 01 1e 64 69 73 63 35 00 00 00 00 ┆ ü tascat disc5 ┆
0x00420…00450 00 00 00 bc 00 a7 00 60 40 00 00 00 00 2c 62 00 0e fc 00 0b 03 00 00 78 00 00 81 63 65 6e 74 72 61 74 78 74 00 00 00 00 00 08 64 69 73 63 00 00 ┆ `@ ,b x centratxt disc ┆
0x00450…00480 00 00 00 00 00 00 ac ef b1 00 00 00 00 00 00 00 00 00 00 00 00 00 0b ab 00 00 78 00 00 81 70 74 74 78 74 00 00 00 00 00 00 00 00 00 09 64 69 73 ┆ x pttxt dis┆
0x00480…004b0 63 31 00 00 00 00 00 00 00 ac bd 6d 00 00 00 00 00 00 00 00 00 00 00 00 00 0b 8b 00 00 78 00 00 81 63 65 6e 74 72 61 6c 6f 67 69 63 00 00 00 08 ┆c1 m x centralogic ┆
0x004b0…004e0 64 69 73 63 00 00 00 00 00 00 00 00 80 00 36 15 f0 00 00 00 00 00 40 ea 00 70 00 00 08 eb 00 00 78 00 00 81 73 74 63 74 78 74 00 00 00 00 00 00 ┆disc 6 @ p x stctxt ┆
0x004e0…00510 00 00 25 64 69 73 63 31 00 00 00 00 00 00 00 a9 be 54 00 00 00 00 00 00 00 00 00 00 00 00 72 73 69 6f 6e 00 00 00 00 00 00 01 00 00 00 0c 60 c3 ┆ %disc1 T rsion ` ┆
0x00510…00540 02 34 14 2d 0f e6 37 ce 98 2c 0f fa dd 10 18 2c 00 00 53 ce 98 dc 10 14 2e 10 1a d9 20 09 b0 00 10 37 ce 8c 2c 00 03 10 20 07 37 ce 84 5d 20 09 ┆ 4 - 7 , , S . 7 , 7 Å ┆
0x00540…00570 2d 00 1a 5d 2f f1 2d 00 00 5d 2f f3 2d 0f e6 37 ce 74 5d 2f fe 2d 1f ff 5d 2f ef 2d 0f ea 37 ce 68 5e 10 00 50 8e 73 53 8e 58 dc 10 05 d8 8e 6b ┆- Å/ - Å/ - 7 tÅ/ - Å/ - 7 h^ P sS X k┆
0x00570…005a0 dc 10 15 2c 10 15 2f 00 1a dc 10 09 2c ce 52 2f 00 1a dc 10 0d 2c 2f ef 53 8e 57 dc 10 11 53 ce 44 52 2f fc 34 30 34 53 ce 3a 2d 00 01 91 00 01 ┆ , / , R/ ,/ S W S DR/ 404S :- ┆
0x005a0…005d0 a1 6f f1 a1 6f f3 37 ce 32 1d 2f ef 51 10 00 5d 2f e7 2d 00 02 91 00 01 a1 6f f1 a1 6f f3 37 ce 22 1d 2f ef 51 10 00 5d 2f eb 2d 00 04 91 00 01 ┆ o o 7 2 / Q Å/ - o o 7 " / Q Å/ - ┆
0x005d0…00600 a1 6f f1 a1 6f f3 37 ce 12 1d 2f ef 34 30 38 00 04 c0 00 00 00 00 00 01 ac 22 0d 02 00 16 c0 01 d4 00 0a de 00 0d a2 00 0d 9e 00 06 3d 00 01 7e ┆ o o 7 / 408 " = ü┆
0x00600…00630 00 0b f3 00 00 78 00 00 81 63 64 74 63 00 00 00 00 00 00 00 00 00 00 01 64 69 73 63 00 00 00 00 00 00 00 00 a9 11 91 00 00 00 00 00 00 00 00 00 ┆ x cdtc disc ┆
0x00630…00660 00 00 00 00 0b fb 00 00 78 00 00 81 63 6c 74 63 00 00 00 00 00 00 00 00 00 00 01 64 69 73 63 00 00 00 00 00 00 00 00 a8 fd 3d 00 00 00 00 00 00 ┆ x cltc disc = ┆
0x00660…00690 00 00 00 00 00 00 00 0c 03 00 00 78 00 00 81 6d 76 6d 63 6c 74 78 74 00 00 00 00 00 00 0c 64 69 73 63 31 00 00 00 00 00 00 00 ad 50 22 00 00 00 ┆ x mvmcltxt disc1 P" ┆
0x00690…006c0 00 00 00 00 00 00 00 00 00 00 0c 63 00 00 64 00 00 c7 74 63 74 78 74 00 00 00 00 00 00 00 00 01 3a 64 69 73 63 31 00 00 00 00 00 00 00 c2 3c 87 ┆ c d tctxt :disc1 < ┆
0x006c0…006f0 00 00 00 00 00 00 00 00 00 00 00 00 00 16 33 80 00 01 7f ff fd 6c 69 73 74 74 61 73 63 61 74 00 00 00 00 4c 64 69 73 63 31 00 00 00 00 00 00 00 ┆ 3 listtascat Ldisc1 ┆
0x006f0…00720 c2 3c d1 00 60 8e 00 00 00 00 2c b0 00 0f 5a 00 18 93 00 00 78 00 00 81 70 72 69 6e 74 74 63 74 65 73 74 00 00 00 2a 64 69 73 63 31 00 00 00 00 ┆ < ` , Z x printtctest *disc1 ┆
0x00720…00750 00 00 00 ac bd 6d 00 e0 d4 00 00 00 00 2a b6 00 0d 1c 00 19 e3 80 00 01 7f ff fd 73 65 74 74 61 73 63 61 74 00 00 00 00 00 53 64 69 73 63 31 00 ┆ m * settascat Sdisc1 ┆
0x00750…00780 00 00 00 00 00 00 c2 3c d4 00 60 8e 00 00 00 00 2c b0 00 0f 5a 00 1c 7b 00 00 64 00 00 c7 64 65 6c 74 61 73 63 61 74 00 00 00 00 00 30 64 69 73 ┆ < ` , Z æ d deltascat 0dis┆
0x00780…007b0 63 31 00 00 00 00 00 00 00 ac 29 ee 00 e0 84 00 00 00 00 2a b6 00 0d 1c 00 1d fb 00 00 78 00 00 81 6b 65 72 6e 65 6c 00 00 00 00 00 00 00 00 08 ┆c1 ) * x kernel ┆
0x007b0…007e0 64 69 73 63 00 00 00 00 00 00 00 00 80 00 36 15 f0 00 00 00 00 00 40 ea 00 70 00 00 1e 3b 00 00 78 00 00 81 6d 6f 76 65 6d 63 6c 00 00 00 00 00 ┆disc 6 @ p ; x movemcl ┆
0x007e0…00810 00 00 30 64 69 73 63 00 00 00 00 00 00 00 00 ad 50 23 00 e1 de 00 00 00 00 2a b6 00 0d 1c 00 1f bb 00 00 78 00 00 81 74 65 72 6d 69 6f 74 78 74 ┆ 0disc P# * x termiotxt┆
0x00810…00840 00 00 00 00 00 16 64 69 73 63 31 00 00 00 00 00 00 00 a4 dd e0 00 00 00 00 00 00 00 00 00 00 00 00 00 20 6b 80 00 01 7f ff fd 74 63 00 00 00 00 ┆ disc1 k tc ┆
0x00840…00870 00 00 00 00 00 00 00 01 24 64 69 73 63 32 00 00 00 00 00 00 00 c2 3c 89 00 60 8e 00 00 00 00 2c b0 00 0f 5a 00 29 8b 00 00 78 00 00 81 6b 65 72 ┆ $disc2 < ` , Z ) x ker┆
0x00870…008a0 6e 65 6c 74 78 74 00 00 00 00 00 09 64 69 73 63 00 00 00 00 00 00 00 00 ad 7e 9a 00 00 00 00 00 00 00 00 00 00 00 00 5e 10 00 50 8e 61 53 8e 36 ┆neltxt disc ü ^ P aS 6┆
0x008a0…008d0 dc 10 05 d8 8e 59 dc 10 15 2c 10 15 2f 00 1a dc 10 09 53 2f f8 2c 3f cd 2f 00 1a dc 10 0d 50 8e 3b 2f 20 00 9b 00 04 2f 30 08 dc 10 11 53 ce 16 ┆ Y , / S/ ,? / P ;/ /0 S ┆
0x008d0…00900 34 30 66 53 ce 12 2d 0f ff 50 8e 2b 34 30 64 00 0f c0 15 04 49 50 46 10 80 81 01 02 20 1a c0 01 d6 c0 01 b6 00 0a de c0 01 9e 00 0d 9e 00 3f fe ┆40fS - P +40d IPF ? ┆
0x00900…00930 ff ff ff 00 00 02 00 05 3a 00 00 00 00 00 14 00 00 00 00 00 00 00 00 00 ff ff ff 00 00 0e 00 00 09 00 05 31 ff ff ff 00 00 00 00 00 00 00 00 00 ┆ : 1 ┆
0x00930…00960 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 ┆ ┆
[…0xe…]
0x00c00…00c30 00 00 33 00 00 78 00 00 81 63 73 74 63 00 00 00 00 00 00 00 00 00 00 01 64 69 73 63 00 00 00 00 00 00 00 00 a9 32 19 00 00 00 00 00 00 00 00 00 ┆ 3 x cstc disc 2 ┆
0x00c30…00c60 00 00 00 00 00 3b 00 00 78 00 00 81 63 74 63 00 00 00 00 00 00 00 00 00 00 00 01 64 69 73 63 00 00 00 00 00 00 00 00 a8 84 58 00 00 00 00 00 00 ┆ ; x ctc disc X ┆
0x00c60…00c90 00 00 00 00 00 00 00 00 43 00 00 64 00 00 c7 6c 74 63 74 78 74 00 00 00 00 00 00 00 00 1d 64 69 73 63 31 00 00 00 00 00 00 00 c2 3c d0 00 00 00 ┆ C d ltctxt disc1 < ┆
0x00c90…00cc0 00 00 00 00 00 00 00 00 00 00 01 2b 00 00 64 00 00 c7 73 74 63 74 78 74 00 00 00 00 00 00 00 00 28 64 69 73 63 31 00 00 00 00 00 00 00 c2 3c d4 ┆ + d stctxt (disc1 < ┆
0x00cc0…00cf0 00 00 00 00 00 00 00 00 00 00 00 00 00 02 6b 00 00 78 00 00 81 64 74 63 74 78 74 00 00 00 00 00 00 00 00 0a 64 69 73 63 31 00 00 00 00 00 00 00 ┆ k x dtctxt disc1 ┆
0x00cf0…00d20 ad 7e 1a 00 00 00 00 00 00 00 00 00 00 00 00 00 02 bb 80 00 01 7f ff fd 74 61 73 63 61 74 00 00 00 00 00 00 00 01 1e 64 69 73 63 35 00 00 00 00 ┆ ü tascat disc5 ┆
0x00d20…00d50 00 00 00 bc 00 a7 00 60 40 00 00 00 00 2c 62 00 0e fc 00 0b 03 00 00 78 00 00 81 63 65 6e 74 72 61 74 78 74 00 00 00 00 00 08 64 69 73 63 00 00 ┆ `@ ,b x centratxt disc ┆
0x00d50…00d80 00 00 00 00 00 00 ac ef b1 00 00 00 00 00 00 00 00 00 00 00 00 00 0b ab 00 00 78 00 00 81 70 74 74 78 74 00 00 00 00 00 00 00 00 00 09 64 69 73 ┆ x pttxt dis┆
0x00d80…00db0 63 31 00 00 00 00 00 00 00 ac bd 6d 00 00 00 00 00 00 00 00 00 00 00 00 00 0b 8b 00 00 78 00 00 81 63 65 6e 74 72 61 6c 6f 67 69 63 00 00 00 08 ┆c1 m x centralogic ┆
0x00db0…00de0 64 69 73 63 00 00 00 00 00 00 00 00 80 00 36 15 f0 00 00 00 00 00 40 ea 00 70 00 00 08 eb 00 00 78 00 00 81 73 74 63 74 78 74 00 00 00 00 00 00 ┆disc 6 @ p x stctxt ┆
0x00de0…00e10 00 00 25 64 69 73 63 31 00 00 00 00 00 00 00 a9 be 54 00 00 00 00 00 00 00 00 00 00 00 00 72 73 69 6f 6e 00 00 00 00 00 00 01 00 00 00 0c 60 c3 ┆ %disc1 T rsion ` ┆
0x00e10…00e40 02 34 14 2d 0f e6 37 ce 98 2c 0f fa dd 10 18 2c 00 00 53 ce 98 dc 10 14 2e 10 1a d9 20 09 b0 00 10 37 ce 8c 2c 00 03 10 20 07 37 ce 84 5d 20 09 ┆ 4 - 7 , , S . 7 , 7 Å ┆
0x00e40…00e70 2d 00 1a 5d 2f f1 2d 00 00 5d 2f f3 2d 0f e6 37 ce 74 5d 2f fe 2d 1f ff 5d 2f ef 2d 0f ea 37 ce 68 5e 10 00 50 8e 73 53 8e 58 dc 10 05 d8 8e 6b ┆- Å/ - Å/ - 7 tÅ/ - Å/ - 7 h^ P sS X k┆
0x00e70…00ea0 dc 10 15 2c 10 15 2f 00 1a dc 10 09 2c ce 52 2f 00 1a dc 10 0d 2c 2f ef 53 8e 57 dc 10 11 53 ce 44 52 2f fc 34 30 34 53 ce 3a 2d 00 01 91 00 01 ┆ , / , R/ ,/ S W S DR/ 404S :- ┆
0x00ea0…00ed0 a1 6f f1 a1 6f f3 37 ce 32 1d 2f ef 51 10 00 5d 2f e7 2d 00 02 91 00 01 a1 6f f1 a1 6f f3 37 ce 22 1d 2f ef 51 10 00 5d 2f eb 2d 00 04 91 00 01 ┆ o o 7 2 / Q Å/ - o o 7 " / Q Å/ - ┆
0x00ed0…00f00 a1 6f f1 a1 6f f3 37 ce 12 1d 2f ef 34 30 38 00 04 c0 00 00 00 00 00 01 ac 22 0d 02 00 16 c0 01 d4 00 0a de 00 0d a2 00 0d 9e 00 06 3d 00 01 7e ┆ o o 7 / 408 " = ü┆
0x00f00…00f30 00 0b f3 00 00 78 00 00 81 63 64 74 63 00 00 00 00 00 00 00 00 00 00 01 64 69 73 63 00 00 00 00 00 00 00 00 a9 11 91 00 00 00 00 00 00 00 00 00 ┆ x cdtc disc ┆
0x00f30…00f60 00 00 00 00 0b fb 00 00 78 00 00 81 63 6c 74 63 00 00 00 00 00 00 00 00 00 00 01 64 69 73 63 00 00 00 00 00 00 00 00 a8 fd 3d 00 00 00 00 00 00 ┆ x cltc disc = ┆
0x00f60…00f90 00 00 00 00 00 00 00 0c 03 00 00 78 00 00 81 6d 76 6d 63 6c 74 78 74 00 00 00 00 00 00 0c 64 69 73 63 31 00 00 00 00 00 00 00 ad 50 22 00 00 00 ┆ x mvmcltxt disc1 P" ┆
0x00f90…00fc0 00 00 00 00 00 00 00 00 00 00 0c 63 00 00 64 00 00 c7 74 63 74 78 74 00 00 00 00 00 00 00 00 01 3a 64 69 73 63 31 00 00 00 00 00 00 00 c2 3c 87 ┆ c d tctxt :disc1 < ┆
0x00fc0…00ff0 00 00 00 00 00 00 00 00 00 00 00 00 00 16 33 80 00 01 7f ff fd 6c 69 73 74 74 61 73 63 61 74 00 00 00 00 4c 64 69 73 63 31 00 00 00 00 00 00 00 ┆ 3 listtascat Ldisc1 ┆
0x00ff0…01020 c2 3c d1 00 60 8e 00 00 00 00 2c b0 00 0f 5a 00 18 93 00 00 78 00 00 81 70 72 69 6e 74 74 63 74 65 73 74 00 00 00 2a 64 69 73 63 31 00 00 00 00 ┆ < ` , Z x printtctest *disc1 ┆
0x01020…01050 00 00 00 ac bd 6d 00 e0 d4 00 00 00 00 2a b6 00 0d 1c 00 19 e3 80 00 01 7f ff fd 73 65 74 74 61 73 63 61 74 00 00 00 00 00 53 64 69 73 63 31 00 ┆ m * settascat Sdisc1 ┆
0x01050…01080 00 00 00 00 00 00 c2 3c d4 00 60 8e 00 00 00 00 2c b0 00 0f 5a 00 1c 7b 00 00 64 00 00 c7 64 65 6c 74 61 73 63 61 74 00 00 00 00 00 30 64 69 73 ┆ < ` , Z æ d deltascat 0dis┆
0x01080…010b0 63 31 00 00 00 00 00 00 00 ac 29 ee 00 e0 84 00 00 00 00 2a b6 00 0d 1c 00 1d fb 00 00 78 00 00 81 6b 65 72 6e 65 6c 00 00 00 00 00 00 00 00 08 ┆c1 ) * x kernel ┆
0x010b0…010e0 64 69 73 63 00 00 00 00 00 00 00 00 80 00 36 15 f0 00 00 00 00 00 40 ea 00 70 00 00 1e 3b 00 00 78 00 00 81 6d 6f 76 65 6d 63 6c 00 00 00 00 00 ┆disc 6 @ p ; x movemcl ┆
0x010e0…01110 00 00 30 64 69 73 63 00 00 00 00 00 00 00 00 ad 50 23 00 e1 de 00 00 00 00 2a b6 00 0d 1c 00 1f bb 00 00 78 00 00 81 74 65 72 6d 69 6f 74 78 74 ┆ 0disc P# * x termiotxt┆
0x01110…01140 00 00 00 00 00 16 64 69 73 63 31 00 00 00 00 00 00 00 a4 dd e0 00 00 00 00 00 00 00 00 00 00 00 00 00 20 6b 80 00 01 7f ff fd 74 63 00 00 00 00 ┆ disc1 k tc ┆
0x01140…01170 00 00 00 00 00 00 00 01 24 64 69 73 63 32 00 00 00 00 00 00 00 c2 3c 89 00 60 8e 00 00 00 00 2c b0 00 0f 5a 00 29 8b 00 00 78 00 00 81 6b 65 72 ┆ $disc2 < ` , Z ) x ker┆
0x01170…011a0 6e 65 6c 74 78 74 00 00 00 00 00 09 64 69 73 63 00 00 00 00 00 00 00 00 ad 7e 9a 00 00 00 00 00 00 00 00 00 00 00 00 5e 10 00 50 8e 61 53 8e 36 ┆neltxt disc ü ^ P aS 6┆
0x011a0…011d0 dc 10 05 d8 8e 59 dc 10 15 2c 10 15 2f 00 1a dc 10 09 53 2f f8 2c 3f cd 2f 00 1a dc 10 0d 50 8e 3b 2f 20 00 9b 00 04 2f 30 08 dc 10 11 53 ce 16 ┆ Y , / S/ ,? / P ;/ /0 S ┆
0x011d0…01200 34 30 66 53 ce 12 2d 0f ff 50 8e 2b 34 30 64 00 0f c0 15 04 49 50 46 10 80 81 01 02 20 1a c0 01 d6 c0 01 b6 00 0a de c0 01 9e 00 0d 9e 00 3f fe ┆40fS - P +40d IPF ? ┆
0x01200…01230 3d 20 31 2e 6e 6f 20 0a 6d 6f 64 65 20 31 2e 6e 6f 0a 6d 6f 64 65 20 77 61 72 6e 69 6e 67 2e 79 65 73 0a 6d 6f 64 65 20 32 2e 21 31 0a 73 74 63 ┆= 1.no mode 1.no mode warning.yes mode 2.!1 stc┆
0x01230…01260 6c 69 73 74 3d 73 65 74 20 35 30 20 64 69 73 63 32 0a 73 63 6f 70 65 20 75 73 65 72 20 73 74 63 6c 69 73 74 0a 69 66 20 32 2e 79 65 73 0a 20 6f ┆list=set 50 disc2 scope user stclist if 2.yes o┆
0x01260…01290 20 73 74 63 6c 69 73 74 0a 69 66 20 32 2e 79 65 73 0a 73 74 63 3d 61 6c 67 6f 6c 20 73 74 63 74 78 74 20 63 6f 6e 6e 65 63 74 2e 79 65 73 20 66 ┆ stclist if 2.yes stc=algol stctxt connect.yes f┆
0x01290…012c0 70 2e 79 65 73 20 73 70 69 6c 6c 2e 6e 6f 20 6c 69 73 74 2e 79 65 73 0a 69 66 20 32 2e 6e 6f 0a 73 74 63 3d 61 6c 67 6f 6c 20 73 74 63 74 78 74 ┆p.yes spill.no list.yes if 2.no stc=algol stctxt┆
0x012c0…012f0 20 63 6f 6e 6e 65 63 74 2e 79 65 73 20 66 70 2e 79 65 73 20 73 70 69 6c 6c 2e 6e 6f 0a 69 66 20 77 61 72 6e 69 6e 67 2e 79 65 73 0a 20 6d 6f 64 ┆ connect.yes fp.yes spill.no if warning.yes mod┆
0x012f0…01320 65 20 31 2e 79 65 73 0a 69 66 20 6f 6b 2e 6e 6f 0a 20 6d 6f 64 65 20 31 2e 79 65 73 0a 6f 20 63 0a 69 66 20 31 2e 79 65 73 0a 20 20 6d 65 73 73 ┆e 1.yes if ok.no mode 1.yes o c if 1.yes mess┆
0x01320…01350 61 67 65 20 66 65 6a 6c 0a 69 66 20 31 2e 6e 6f 0a 20 6d 65 73 73 61 67 65 20 6f 6b 0a 65 6e 64 6d 0a 19 00 ff f8 44 00 0e 23 00 00 92 00 03 00 ┆age fejl if 1.no message ok endm D # ┆
0x01350…01380 ff f8 80 00 0e 4a 00 00 94 00 00 58 ff f8 7c 00 0e 90 00 00 95 00 00 98 ff f8 78 00 0e 9b 00 00 97 00 0f 62 ff f8 84 00 0e c2 00 00 96 00 00 d6 ┆ J X ø x b ┆
0x01380…013b0 ff f8 44 00 0e ad 00 00 a1 00 05 78 ff f8 40 00 10 39 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 x @ 9 ┆
0x013b0…013e0 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 ┆ ┆
[…0x2…]
0x01440…01470 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 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x01470…014a0 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x014a0…014d0 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff 00 00 06 80 01 eb 80 00 01 7f ff fd ┆ ┆
0x014d0…01500 63 6c 65 61 6e 00 00 00 00 00 00 00 80 00 04 6d 61 69 6e 74 65 6e 61 6e 63 65 00 a0 f7 eb 00 00 00 00 00 00 00 20 04 00 01 a4 39 f1 eb 00 00 0a ┆clean maintenance 9 ┆
0x01500…01530 3d 20 31 2e 6e 6f 20 0a 6d 6f 64 65 20 31 2e 6e 6f 0a 6d 6f 64 65 20 77 61 72 6e 69 6e 67 2e 79 65 73 0a 6d 6f 64 65 20 32 2e 21 31 0a 74 63 6c ┆= 1.no mode 1.no mode warning.yes mode 2.!1 tcl┆
0x01530…01560 69 73 74 3d 73 65 74 20 33 30 30 20 64 69 73 63 32 0a 73 63 6f 70 65 20 75 73 65 72 20 74 63 6c 69 73 74 0a 69 66 20 32 2e 79 65 73 0a 20 6f 20 ┆ist=set 300 disc2 scope user tclist if 2.yes o ┆
0x01560…01590 74 63 6c 69 73 74 0a 69 66 20 32 2e 79 65 73 0a 74 63 3d 61 6c 67 6f 6c 20 74 63 74 78 74 20 63 6f 6e 6e 65 63 74 2e 6e 6f 20 66 70 2e 79 65 73 ┆tclist if 2.yes tc=algol tctxt connect.no fp.yes┆
0x01590…015c0 20 73 70 69 6c 6c 2e 6e 6f 20 6c 69 73 74 2e 79 65 73 0a 69 66 20 32 2e 6e 6f 0a 74 63 3d 61 6c 67 6f 6c 20 74 63 74 78 74 20 63 6f 6e 6e 65 63 ┆ spill.no list.yes if 2.no tc=algol tctxt connec┆
0x015c0…015f0 74 2e 6e 6f 20 66 70 2e 79 65 73 20 73 70 69 6c 6c 2e 6e 6f 0a 69 66 20 77 61 72 6e 69 6e 67 2e 79 65 73 0a 20 6d 6f 64 65 20 31 2e 79 65 73 0a ┆t.no fp.yes spill.no if warning.yes mode 1.yes ┆
0x015f0…01620 69 66 20 6f 6b 2e 6e 6f 0a 20 6d 6f 64 65 20 31 2e 79 65 73 0a 6f 20 63 0a 69 66 20 31 2e 79 65 73 0a 20 20 6d 65 73 73 61 67 65 20 66 65 6a 6c ┆if ok.no mode 1.yes o c if 1.yes message fejl┆
0x01620…01650 0a 69 66 20 31 2e 6e 6f 0a 20 6d 65 73 73 61 67 65 20 6f 6b 0a 65 6e 64 6d 0a 19 00 0e 12 00 00 91 00 01 9e ff f8 44 00 0e 23 00 00 92 00 03 00 ┆ if 1.no message ok endm D # ┆
0x01650…01680 ff f8 80 00 0e 4a 00 00 94 00 00 58 ff f8 7c 00 0e 90 00 00 95 00 00 98 ff f8 78 00 0e 9b 00 00 97 00 0f 62 ff f8 84 00 0e c2 00 00 96 00 00 d6 ┆ J X ø x b ┆
0x01680…016b0 ff f8 44 00 0e ad 00 00 a1 00 05 78 ff f8 40 00 10 39 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 x @ 9 ┆
0x016b0…016e0 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 ┆ ┆
[…0x2…]
0x01740…01770 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 6f 67 5f 6e 61 6d 65 2e 6c 61 66 29 3b 0a 20 20 73 74 ┆ og_name.laf); st┆
0x01770…017a0 72 75 63 5f 73 69 7a 65 3a 3d 28 6f 77 6e 5f 73 69 7a 65 2d 31 30 30 30 30 29 2f 2f 38 3b 0a 20 20 0a 20 20 3c 2a 20 73 74 61 72 74 20 68 6f 76 ┆ruc_size:=(own_size-10000)//8; <* start hov┆
0x017a0…017d0 65 64 20 70 72 6f 63 65 64 75 72 65 20 2a 3e 0a 20 20 74 61 73 63 61 74 28 73 74 72 75 63 5f 73 69 7a 65 29 3b 0a 65 6e 64 3b 0a 19 00 28 30 2c ┆ed procedure *> tascat(struc_size); end; (0,┆
0x017d0…01800 33 2c 74 72 75 65 2c 3c 3a 53 79 73 74 65 6d 20 6b 69 6c 6c 65 64 3a 3e 29 0a 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 77 72 69 74 65 5f 6d ┆3,true,<:System killed:>) else write_m┆
0x01800…01830 62 65 67 69 6e 0a 3c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆begin <*****************************************┆
0x01830…01860 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e 0a 3c 2a 20 55 74 69 6c 69 74 79 20 4c 49 53 54 54 41 53 43 ┆***************************> <* Utility LISTTASC┆
0x01860…01890 41 54 20 74 69 6c 20 75 64 73 6b 72 69 66 74 20 61 66 20 74 61 73 20 6b 61 74 61 6c 6f 67 20 69 6e 64 67 61 6e 67 65 2e 20 20 20 20 20 20 20 20 ┆AT til udskrift af tas katalog indgange. ┆
0x01890…018c0 20 2a 3e 0a 3c 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ *> <* ┆
0x018c0…018f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 3c 2a 20 4b 61 6c 64 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ *> <* Kald: ┆
0x018f0…01920 20 3c 6f 75 74 2d 66 69 6c 65 3e 20 3d 20 6c 69 73 74 74 61 73 63 61 74 20 20 3c 6f 75 74 2d 73 70 65 63 2e 3e 20 20 20 20 20 20 20 20 20 20 2a ┆ <out-file> = listtascat <out-spec.> *┆
0x01920…01950 3e 0a 3c 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆> <* ┆
0x01950…01980 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 3c 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 75 ┆ *> <* u┆
0x01980…019b0 73 65 72 2e 3c 6e 61 6d 65 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e 0a ┆ser.<name> *> ┆
0x019b0…019e0 3c 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 65 72 6d 69 6e 61 6c 2e 3c 6e 61 6d 65 3e 20 20 20 20 20 20 20 20 20 20 20 ┆<* terminal.<name> ┆
0x019e0…01a10 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 3c 2a 20 3c 6f 75 74 2d 73 70 65 63 2e 3e 20 3a 3a 3d 20 20 20 20 74 79 70 ┆ *> <* <out-spec.> ::= typ┆
0x01a10…01a40 65 2e 3c 6e 75 6d 62 65 72 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 3c 2a ┆e.<number> *> <*┆
0x01a40…01a70 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 69 7a 65 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ size ┆
0x01a70…01aa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 3c 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 6c 6c 20 20 ┆ *> <* all ┆
0x01aa0…01ad0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 3c 2a 20 20 ┆ *> <* ┆
0x01ad0…01b00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x01b00…01b30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 3c 2a 20 43 6f 6d 70 69 6c 65 72 20 63 61 6c 6c 3a 20 6c 69 73 74 74 61 73 63 61 74 3d ┆ *> <* Compiler call: listtascat=┆
0x01b30…01b60 61 6c 67 6f 6c 20 6c 74 63 74 78 74 20 63 6f 6e 6e 65 63 74 2e 6e 6f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 3c 2a 2a 2a 2a 2a ┆algol ltctxt connect.no *> <*****┆
0x01b60…01b90 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆************************************************┆
0x01b90…01bc0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e 0a 0a 3c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆***************> <*****************************┆
0x01bc0…01bf0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e 0a 3c 2a 20 52 65 76 69 73 69 6f 6e 20 68 ┆*********************************> <* Revision h┆
0x01bf0…01c20 69 73 74 6f 72 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆istory ┆
0x01c20…01c50 20 2a 3e 0a 3c 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ *> <* ┆
0x01c50…01c80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 3c 2a 20 38 37 2e 30 32 2e 30 31 20 20 20 6c 69 73 74 74 61 73 63 61 74 20 20 20 ┆ *> <* 87.02.01 listtascat ┆
0x01c80…01cb0 72 65 6c 65 61 73 65 20 31 2e 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 3c 2a 20 38 38 2e 30 31 2e 30 ┆release 1.0 *> <* 88.01.0┆
0x01cb0…01ce0 37 20 20 20 4d 4f 44 45 20 70 61 72 61 6d 65 74 65 72 20 61 64 64 65 64 20 72 65 6c 65 61 73 65 20 31 2e 31 20 20 20 20 20 20 20 20 20 20 20 20 ┆7 MODE parameter added release 1.1 ┆
0x01ce0…01d10 20 20 20 20 2a 3e 0a 3c 2a 20 38 39 2e 30 32 2e 32 31 20 20 20 4e 4f 4c 4f 47 49 4e 20 70 61 72 61 6d 65 74 65 72 20 61 64 64 65 64 2c 20 72 65 ┆ *> <* 89.02.21 NOLOGIN parameter added, re┆
0x01d10…01d40 6c 65 61 73 65 20 31 2e 32 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 3c 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆lease 1.2 *> <***********************┆
0x01d40…01d70 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 3e 0a 0a 0a 3c 2a 20 47 6c ┆***************************************> <* Gl┆
0x01d70…01da0 6f 62 61 6c 65 20 76 61 72 69 61 62 6c 65 20 2a 3e 0a 0a 7a 6f 6e 65 20 62 75 66 28 31 32 38 2c 31 2c 73 74 64 5f 65 72 72 6f 72 29 3b 20 20 20 ┆obale variable *> zone buf(128,1,std_error); ┆
0x01da0…01dd0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 20 5a 6f 6e 65 20 74 69 6c 20 6d 65 73 73 61 67 65 20 6d 2e 6d 2e 20 20 20 20 ┆ <* Zone til message m.m. ┆
0x01dd0…01e00 2a 3e 0a 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 75 73 65 72 5f 69 64 28 31 3a 34 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆*> integer array user_id(1:4); ┆
0x01e00…01e30 20 20 20 20 3c 2a 20 42 72 75 67 65 72 20 69 64 20 66 72 61 20 74 65 72 6d 69 6e 61 6c 20 20 20 2a 3e 0a 6c 6f 6e 67 20 70 61 73 73 77 6f 72 64 ┆ <* Bruger id fra terminal *> long password┆
0x01e30…01e60 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 20 50 61 73 73 77 6f 72 64 20 ┆; <* Password ┆
0x01e60…01e90 66 72 61 20 74 65 72 6d 69 6e 61 6c 20 20 20 20 2a 3e 0a 62 6f 6f 6c 65 61 6e 20 66 69 6c 65 5f 6f 75 74 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆fra terminal *> boolean file_out; ┆
0x01e90…01ec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 20 54 72 75 65 3d 20 63 6f 6e 6e 65 63 74 20 74 6f 20 66 69 6c 65 20 20 20 20 ┆ <* True= connect to file ┆
0x01ec0…01ef0 2a 3e 0a 62 6f 6f 6c 65 61 6e 20 6e 6f 5f 66 6f 75 6e 64 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆*> boolean no_found; ┆
0x01ef0…01f20 20 20 20 20 3c 2a 20 45 6e 74 72 79 20 69 6b 6b 65 20 66 75 6e 64 65 74 20 20 20 20 20 20 20 20 2a 3e 0a 69 6e 74 65 67 65 72 20 61 72 72 61 79 ┆ <* Entry ikke fundet *> integer array┆
0x01f20…01f50 20 6f 75 74 5f 73 74 61 63 6b 28 31 3a 34 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 20 6f 75 74 20 7a 6f 6e 65 20 ┆ out_stack(1:4); <* out zone ┆
0x01f50…01f80 73 74 61 63 6b 20 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 70 72 6f 67 5f 6e 61 6d 65 28 31 3a 34 29 3b ┆stack *> integer array prog_name(1:4);┆
0x01f80…01fb0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 20 50 72 6f 67 72 61 6d 20 6e 61 76 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ <* Program navn ┆
0x01fb0…01fe0 2a 3e 0a 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 63 6f 6e 76 28 30 3a 32 35 35 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆*> integer array conv(0:255); ┆
0x01fe0…02010 20 20 20 20 3c 2a 20 54 65 67 6e 20 6b 6f 6e 76 65 72 74 65 72 69 6e 67 73 20 74 61 62 65 6c 20 2a 3e 0a 69 6e 74 65 67 65 72 20 70 61 72 61 6d ┆ <* Tegn konverterings tabel *> integer param┆
0x02010…02040 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 20 66 70 20 70 61 72 61 6d 65 ┆; <* fp parame┆
0x02040…02070 74 65 72 20 74 7b 6c 6c 65 72 20 20 20 20 20 20 2a 3e 0a 69 6e 74 65 67 65 72 20 75 73 65 72 5f 73 69 7a 65 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ter tæller *> integer user_size; ┆
0x02070…020a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 20 41 6e 74 61 6c 20 73 65 67 20 69 20 75 73 65 72 20 63 61 74 20 20 20 20 20 ┆ <* Antal seg i user cat ┆
0x020a0…020d0 2a 3e 0a 69 6e 74 65 67 65 72 20 74 65 72 6d 5f 73 69 7a 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆*> integer term_size; ┆
0x020d0…02100 20 20 20 20 3c 2a 20 41 6e 74 61 6c 20 73 65 67 20 69 20 74 65 72 6d 20 63 61 74 20 20 20 20 20 2a 3e 0a 69 6e 74 65 67 65 72 20 74 79 70 65 5f ┆ <* Antal seg i term cat *> integer type_┆
0x02100…02130 73 69 7a 65 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 20 41 6e 74 61 6c 20 73 65 67 ┆size; <* Antal seg┆
0x02130…02160 20 69 20 74 79 70 65 20 63 61 74 20 20 20 20 20 2a 3e 0a 69 6e 74 65 67 65 72 20 75 73 65 72 5f 68 77 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ i type cat *> integer user_hw; ┆
0x02160…02190 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 20 41 6e 74 61 6c 20 68 77 20 69 20 75 73 65 72 20 65 6e 74 72 79 20 20 20 20 ┆ <* Antal hw i user entry ┆
0x02190…021c0 2a 3e 0a 69 6e 74 65 67 65 72 20 74 65 72 6d 5f 68 77 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆*> integer term_hw; ┆
0x021c0…021f0 20 20 20 20 3c 2a 20 41 6e 74 61 6c 20 68 77 20 69 20 74 65 72 6d 20 65 6e 74 72 79 20 20 20 20 2a 3e 0a 69 6e 74 65 67 65 72 20 74 79 70 65 5f ┆ <* Antal hw i term entry *> integer type_┆
0x021f0…02220 68 77 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 20 41 6e 74 61 6c 20 68 77 20 ┆hw; <* Antal hw ┆
0x02220…02250 69 20 74 79 70 65 20 65 6e 74 72 79 20 20 20 20 2a 3e 0a 0a 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 66 69 65 6c 64 20 69 61 66 3b 20 20 20 20 ┆i type entry *> integer array field iaf; ┆
0x02250…02280 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 20 57 6f 72 6b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ <* Work ┆
0x02280…022b0 20 2a 3e 0a 72 65 61 6c 20 61 72 72 61 79 20 66 69 65 6c 64 20 72 61 66 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ *> real array field raf; ┆
0x022b0…022e0 20 20 20 20 20 3c 2a 20 57 6f 72 6b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 62 6f 6f 6c 65 61 6e 20 61 72 72 61 ┆ <* Work *> boolean arra┆
0x022e0…02310 79 20 66 69 65 6c 64 20 62 61 66 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 20 57 6f 72 6b 20 20 20 20 ┆y field baf; <* Work ┆
0x02310…02340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 6c 6f 6e 67 20 61 72 72 61 79 20 66 69 65 6c 64 20 6c 61 66 3b 20 20 20 20 20 20 20 ┆ *> long array field laf; ┆
0x02340…02370 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 2a 20 57 6f 72 6b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ <* Work ┆
0x02370…023a0 20 2a 3e 0a 69 6e 74 65 67 65 72 20 69 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ *> integer i; ┆
0x023a0…023d0 20 20 20 20 20 3c 2a 20 57 6f 72 6b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 3e 0a 0a 3c 2a 20 47 6c 6f 62 61 6c 65 20 ┆ <* Work *> <* Globale ┆
0x023d0…02400 70 72 6f 63 65 64 75 72 65 20 2a 3e 0a 0a 70 72 6f 63 65 64 75 72 65 20 67 65 74 5f 75 73 65 72 69 64 3b 0a 3c 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆procedure *> procedure get_userid; <*----------┆
0x02400…02430 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆------------------------------------------------┆
0x02430…02460 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 3e 0a 3c 2a 20 53 65 74 20 75 73 65 72 20 69 64 20 6f 67 20 70 61 73 73 77 6f 72 64 20 69 20 64 65 20 67 6c 6f 62 ┆---------*> <* Set user id og password i de glob┆
0x02460…02490 61 6c 65 20 76 61 72 69 61 62 6c 65 20 75 73 65 72 5f 69 64 20 6f 67 20 70 61 73 73 77 6f 72 64 20 2a 3e 0a 3c 2a 20 49 64 20 6f 67 20 70 61 73 ┆ale variable user_id og password *> <* Id og pas┆
0x02490…024c0 73 77 6f 72 64 20 68 65 6e 74 65 73 20 66 72 61 20 74 65 72 6d 69 6e 61 6c 65 6e 20 74 69 6c 6b 6e 79 74 74 65 74 20 70 72 69 6d 2e 20 6f 75 74 ┆sword hentes fra terminalen tilknyttet prim. out┆
0x024c0…024f0 70 75 74 20 20 20 20 20 20 2a 3e 0a 3c 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆put *> <*----------------------------------┆
0x024f0…02520 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 3e 0a 62 65 67 69 6e 0a 20 20 6c 6f 6e 67 ┆---------------------------------*> begin long┆
0x02520…02550 20 61 72 72 61 79 20 74 65 72 6d 5f 6e 61 6d 65 28 31 3a 32 29 3b 0a 20 20 69 6e 74 65 67 65 72 20 69 3b 0a 20 20 69 6e 74 65 67 65 72 20 61 72 ┆ array term_name(1:2); integer i; integer ar┆
0x02550…02580 72 61 79 20 69 61 28 31 3a 32 30 29 3b 0a 20 20 0a 20 20 73 79 73 74 65 6d 28 37 2c 30 2c 74 65 72 6d 5f 6e 61 6d 65 29 3b 0a 20 20 6f 70 65 6e ┆ray ia(1:20); system(7,0,term_name); open┆
0x02580…025b0 28 62 75 66 2c 30 2c 74 65 72 6d 5f 6e 61 6d 65 2c 30 29 3b 0a 20 20 63 6c 6f 73 65 28 62 75 66 2c 66 61 6c 73 65 29 3b 0a 20 20 67 65 74 7a 6f ┆(buf,0,term_name,0); close(buf,false); getzo┆
0x025b0…025e0 6e 65 36 28 62 75 66 2c 69 61 29 3b 0a 20 20 69 3a 3d 69 61 28 31 39 29 3b 0a 20 20 67 65 74 73 68 61 72 65 36 28 62 75 66 2c 69 61 2c 31 29 3b ┆ne6(buf,ia); i:=ia(19); getshare6(buf,ia,1);┆
0x025e0…02610 0a 20 20 69 61 28 34 29 3a 3d 31 33 31 20 73 68 69 66 74 20 31 32 3b 0a 20 20 69 61 28 35 29 3a 3d 69 2b 31 3b 0a 20 20 69 61 28 36 29 3a 3d 69 ┆ ia(4):=131 shift 12; ia(5):=i+1; ia(6):=i┆
0x02610…02640 2b 31 31 3b 0a 20 20 69 61 28 37 29 3a 3d 30 3b 0a 20 20 73 65 74 73 68 61 72 65 36 28 62 75 66 2c 69 61 2c 31 29 3b 0a 20 20 69 66 20 6d 6f 6e ┆+11; ia(7):=0; setshare6(buf,ia,1); if mon┆
0x02640…02670 69 74 6f 72 28 31 36 2c 62 75 66 2c 31 2c 69 61 29 3d 30 20 74 68 65 6e 0a 20 20 20 20 65 72 72 6f 72 28 32 29 3b 0a 20 20 69 66 20 6d 6f 6e 69 ┆itor(16,buf,1,ia)=0 then error(2); if moni┆
0x02670…026a0 74 6f 72 28 31 38 2c 62 75 66 2c 31 2c 69 61 29 3c 3e 31 20 74 68 65 6e 0a 20 20 20 20 65 72 72 6f 72 28 35 29 3b 0a 20 20 69 66 20 69 61 28 31 ┆tor(18,buf,1,ia)<>1 then error(5); if ia(1┆
0x026a0…026d0 29 3c 3e 30 20 74 68 65 6e 0a 20 20 20 20 65 72 72 6f 72 28 35 29 3b 0a 20 20 66 6f 72 20 69 3a 3d 31 2c 32 2c 33 2c 34 20 64 6f 0a 20 20 20 20 ┆)<>0 then error(5); for i:=1,2,3,4 do ┆
0x026d0…02700 75 73 65 72 5f 69 64 28 69 29 3a 3d 62 75 66 2e 69 61 66 28 69 29 3b 0a 20 20 70 61 73 73 77 6f 72 64 3a 3d 62 75 66 2e 6c 61 66 28 33 29 3b 0a ┆user_id(i):=buf.iaf(i); password:=buf.laf(3); ┆
0x02700…02730 65 6e 64 3b 0a 0a 70 72 6f 63 65 64 75 72 65 20 65 72 72 6f 72 28 65 72 72 5f 6e 72 29 3b 0a 3c 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆end; procedure error(err_nr); <*---------------┆
0x02730…02760 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 3e 0a 3c 2a 20 55 64 73 6b 72 69 76 20 66 65 ┆--------------------------------*> <* Udskriv fe┆
0x02760…02790 6a 6c 6d 65 64 64 65 6c 65 6c 73 65 20 70 7d 20 63 75 72 2e 20 6f 75 74 70 75 74 20 6f 67 20 73 74 6f 70 20 2a 3e 0a 3c 2a 2d 2d 2d 2d 2d 2d 2d ┆jlmeddelelse på cur. output og stop *> <*-------┆
0x02790…027c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 3e 0a 69 6e 74 65 67 ┆----------------------------------------*> integ┆
0x027c0…027f0 65 72 20 65 72 72 5f 6e 72 3b 0a 62 65 67 69 6e 0a 20 20 63 6c 6f 73 65 5f 6f 75 74 70 75 74 3b 0a 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 2a ┆er err_nr; begin close_output; write(out,<:*┆
0x027f0…02820 2a 2a 3a 3e 2c 70 72 6f 67 5f 6e 61 6d 65 2e 6c 61 66 2c 3c 3a 20 20 3a 3e 29 3b 0a 20 20 69 66 20 65 72 72 5f 6e 72 3c 31 20 6f 72 20 65 72 72 ┆**:>,prog_name.laf,<: :>); if err_nr<1 or err┆
0x02820…02850 5f 6e 72 3e 37 20 74 68 65 6e 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 69 6e 74 65 72 6e 61 6c 20 3a 3e 2c 65 72 72 5f 6e 72 29 0a 20 ┆_nr>7 then write(out,<:internal :>,err_nr) ┆
0x02850…02880 20 65 6c 73 65 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 63 61 73 65 20 65 72 72 5f 6e 72 20 6f 66 20 28 0a 20 20 20 20 20 20 20 20 20 20 20 ┆ else write(out,case err_nr of ( ┆
0x02880…028b0 20 20 20 3c 3a 63 6f 6e 6e 65 63 74 20 6f 75 74 70 75 74 3a 3e 2c 3c 3a 63 6c 61 69 6d 73 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ <:connect output:>,<:claims:>, ┆
0x028b0…028e0 3c 3a 6e 6f 20 73 79 73 74 65 6d 3a 3e 2c 3c 3a 6e 6f 20 70 72 69 76 69 6c 65 67 65 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a ┆<:no system:>,<:no privilege:>, <:┆
0x028e0…02910 6e 6f 74 20 61 6c 6c 6f 77 65 64 3a 3e 2c 3c 3a 70 61 72 61 6d 65 74 65 72 3a 3e 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3c 3a 6e 6f 74 ┆not allowed:>,<:parameter:>, <:not┆
0x02910…02940 20 66 6f 75 6e 64 3a 3e 29 29 3b 0a 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 3a 3e 29 3b 0a 20 20 67 6f 74 6f 20 73 74 6f 70 3b 0a ┆ found:>)); write(out,<:<10>:>); goto stop; ┆
0x02940…02970 65 6e 64 3b 0a 0a 0a 70 72 6f 63 65 64 75 72 65 20 73 65 74 5f 6f 75 74 70 75 74 3b 0a 3c 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆end; procedure set_output; <*-----------------┆
0x02970…029a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 3e 0a 3c 2a 20 53 65 74 20 6f 75 74 70 75 74 20 7a ┆------------------------------*> <* Set output z┆
0x029a0…029d0 6f 6e 65 6e 20 74 69 6c 20 65 6e 74 65 6e 20 63 75 72 2e 20 6f 75 74 20 65 6c 6c 65 72 20 66 69 6c 20 2a 3e 0a 3c 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆onen til enten cur. out eller fil *> <*---------┆
0x029d0…02a00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 3e 0a 62 65 67 69 6e 0a 20 ┆--------------------------------------*> begin ┆
0x02a00…02a30 20 69 6e 74 65 67 65 72 20 73 65 70 65 72 61 74 6f 72 2c 72 65 73 75 6c 74 3b 0a 20 20 72 65 61 6c 20 61 72 72 61 79 20 66 69 6c 65 5f 6e 61 6d ┆ integer seperator,result; real array file_nam┆
0x02a30…02a60 65 28 31 3a 32 29 3b 0a 0a 20 20 73 65 70 65 72 61 74 6f 72 3a 3d 73 79 73 74 65 6d 28 34 2c 31 2c 70 72 6f 67 5f 6e 61 6d 65 2e 72 61 66 29 3b ┆e(1:2); seperator:=system(4,1,prog_name.raf);┆
0x02a60…02a90 0a 20 20 69 66 20 73 65 70 65 72 61 74 6f 72 20 73 68 69 66 74 20 28 2d 31 32 29 20 3d 20 36 20 74 68 65 6e 0a 20 20 62 65 67 69 6e 0a 20 20 20 ┆ if seperator shift (-12) = 6 then begin ┆
0x02a90…02ac0 20 73 79 73 74 65 6d 28 34 2c 30 2c 66 69 6c 65 5f 6e 61 6d 65 29 3b 0a 20 20 20 20 66 70 5f 70 72 6f 63 28 32 39 29 73 74 61 63 6b 5f 7a 6f 6e ┆ system(4,0,file_name); fp_proc(29)stack_zon┆
0x02ac0…02af0 65 3a 28 30 2c 6f 75 74 2c 6f 75 74 5f 73 74 61 63 6b 29 3b 0a 20 20 20 20 72 65 73 75 6c 74 3a 3d 32 3b 0a 20 20 20 20 66 70 5f 70 72 6f 63 28 ┆e:(0,out,out_stack); result:=2; fp_proc(┆
[…truncated at 200 lines…]