|
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: 64512 (0xfc00)
Types: Rc489kSubCat
Names: »extbib«
└─⟦621cfb9a2⟧ Bits:30002817 RC8000 Dump tape fra HCØ. Detaljer om "HC8000" projekt.
└─⟦0364f57e3⟧
└─⟦this⟧ »extbib«
0x0000…0033 (0,) Rc489kSubCatEnt {f00=0x002472, f01=0x00c382, f02=0x00c38b, filename=»extoutmediu «, entry_tail=0-4-0-2-1982-11-10T14:16-disc-0x0-0x0-0x0-0x0}
0x0033…0066 Rc489kSubCatEnt {f00=0x004242, f01=0x00c382, f02=0x00c38b, filename=»extforceout «, entry_tail=0-4-0-1-1982-11-09T15:38-disc-0x0-0x0-0x0-0x0}
0x0066…0099 Rc489kSubCatEnt {f00=0x00544a, f01=0x00c382, f02=0x00c38b, filename=»extcreate «, entry_tail=0-4-0-1-1982-11-08T13:46-disc-0x0-0x0-0x0-0x0}
0x0099…00cc Rc489kSubCatEnt {f00=0x006eea, f01=0x00c382, f02=0x00c38b, filename=»extstudent «, entry_tail=0-4-0-3-1982-11-03T14:52-disc-0x0-0x0-0x0-0x0}
0x00cc…00ff Rc489kSubCatEnt {f00=0x009c6a, f01=0x00c382, f02=0x00c38b, filename=»extwritemat «, entry_tail=0-4-0-1-1982-11-03T14:54-disc-0x0-0x0-0x0-0x0}
0x00ff…0132 Rc489kSubCatEnt {f00=0x00a582, f01=0x00c382, f02=0x00c38b, filename=»extreadstru «, entry_tail=0-4-0-5-1982-11-03T14:45-disc-0x0-0x0-0x0-0x0}
0x0132…0165 Rc489kSubCatEnt {f00=0x00fb3a, f01=0x00c382, f02=0x00c38b, filename=»extreadhead «, entry_tail=0-4-0-2-1982-11-03T14:56-disc-0x0-0x0-0x0-0x0}
0x0165…0198 Rc489kSubCatEnt {f00=0x01181a, f01=0x00c382, f02=0x00c38b, filename=»extcptridql «, entry_tail=0-4-0-8-1982-11-03T14:58-disc-0x0-0x0-0x0-0x0}
0x0198…01cb Rc489kSubCatEnt {f00=0x019172, f01=0x00c382, f02=0x00c38b, filename=»exttridql «, entry_tail=0-4-0-7-1982-11-03T14:23-disc-0x0-0x0-0x0-0x0}
0x01cb…01fe Rc489kSubCatEnt {f00=0x020312, f01=0x00c382, f02=0x00c38b, filename=»extsvdecomp «, entry_tail=0-4-0-2-1982-11-03T13:58-disc-0x0-0x0-0x0-0x0}
0x01fe…0231 Rc489kSubCatEnt {f00=0x022e7a, f01=0x00c382, f02=0x00c38b, filename=»extinvert «, entry_tail=0-4-0-1-1982-11-03T14:34-disc-0x0-0x0-0x0-0x0}
0x0231…0264 Rc489kSubCatEnt {f00=0x023f2a, f01=0x00c382, f02=0x00c38b, filename=»extsyminver «, entry_tail=0-4-0-1-1982-11-03T14:30-disc-0x0-0x0-0x0-0x0}
0x0264…0297 Rc489kSubCatEnt {f00=0x024552, f01=0x00c382, f02=0x00c38b, filename=»extatomic «, entry_tail=0-4-0-4-1982-11-03T14:37-disc-0x0-0x0-0x0-0x0}
0x0297…02ca Rc489kSubCatEnt {f00=0x02887a, f01=0x00c382, f02=0x00c38b, filename=»extformat «, entry_tail=0-4-0-3-1982-11-03T13:24-disc-0x0-0x0-0x0-0x0}
0x02ca…02fd Rc489kSubCatEnt {f00=0x02b7e2, f01=0x00c382, f02=0x00c38b, filename=»extortho «, entry_tail=0-4-0-3-1982-11-03T13:45-disc-0x0-0x0-0x0-0x0}
0x02fd…0300 0x000015
0x0300…0333 Rc489kSubCatEnt {f00=0x02eb12, f01=0x00c382, f02=0x00c38b, filename=»extorthof «, entry_tail=0-4-0-3-1982-11-03T13:36-disc-0x0-0x0-0x0-0x0}
0x0333…0366 Rc489kSubCatEnt {f00=0x031122, f01=0x00c382, f02=0x00c38b, filename=»extsum «, entry_tail=0-4-0-1-1982-11-03T13:43-disc-0x0-0x0-0x0-0x0}
0x0366…0399 Rc489kSubCatEnt {f00=0x032ab2, f01=0x00c382, f02=0x00c38b, filename=»extxbmatrix «, entry_tail=0-4-0-13-1982-11-01T14:35-disc-0x0-0x0-0x0-0x0}
0x0399…03cc Rc489kSubCatEnt {f00=0x03f502, f01=0x00c382, f02=0x00c38b, filename=»extbanddiag «, entry_tail=0-4-0-5-1982-11-01T14:11-disc-0x0-0x0-0x0-0x0}
0x03cc…03ff Rc489kSubCatEnt {f00=0x044152, f01=0x00c382, f02=0x00c38b, filename=»extbmatrix «, entry_tail=0-4-0-2-1982-11-01T14:11-disc-0x0-0x0-0x0-0x0}
0x03ff…0432 Rc489kSubCatEnt {f00=0x0463d2, f01=0x00c382, f02=0x00c38b, filename=»extgosdiag «, entry_tail=0-4-0-4-1982-11-01T14:11-disc-0x0-0x0-0x0-0x0}
0x0432…0440 00 fb 3a 00 c3 82 00 c3 8b 65 78 74 72 65 ┆ : extre┆
0x0440…0460 61 64 68 65 61 64 00 00 00 02 64 69 73 63 00 00 00 00 00 00 00 00 88 4e 2f 00 00 00 00 00 00 00 ┆adhead disc N/ ┆
0x0460…0480 00 00 00 00 00 01 18 1a 00 c3 82 00 c3 8b 65 78 74 63 70 74 72 69 64 71 6c 00 00 00 08 64 69 73 ┆ extcptridql dis┆
0x0480…04a0 63 00 00 00 00 00 00 00 00 88 4e 31 00 00 00 00 00 00 00 00 00 00 00 00 01 91 72 00 c3 82 00 c3 ┆c N1 r ┆
0x04a0…04c0 8b 65 78 74 74 72 69 64 71 6c 00 00 00 00 00 07 64 69 73 63 00 00 00 00 00 00 00 00 88 4e 09 00 ┆ exttridql disc N ┆
0x04c0…04e0 00 00 00 00 00 00 00 00 00 00 00 02 03 12 00 c3 82 00 c3 8b 65 78 74 73 76 64 65 63 6f 6d 70 00 ┆ extsvdecomp ┆
0x04e0…0500 00 00 02 64 69 73 63 00 00 00 00 00 00 00 00 88 4d ec 00 00 00 00 00 00 00 00 00 00 00 00 02 2e ┆ disc M .┆
0x0500…0520 7a 00 c3 82 00 c3 8b 65 78 74 69 6e 76 65 72 74 00 00 00 00 00 01 64 69 73 63 00 00 00 00 00 00 ┆z extinvert disc ┆
0x0520…0540 00 00 88 4e 16 00 00 00 00 00 00 00 00 00 00 00 00 02 3f 2a 00 c3 82 00 c3 8b 65 78 74 73 79 6d ┆ N ?* extsym┆
0x0540…0560 69 6e 76 65 72 00 00 00 01 64 69 73 63 00 00 00 00 00 00 00 00 88 4e 11 00 00 00 00 00 00 00 00 ┆inver disc N ┆
0x0560…0580 00 00 00 00 02 45 52 00 c3 82 00 c3 8b 65 78 74 61 74 6f 6d 69 63 00 00 00 00 00 04 64 69 73 63 ┆ ER extatomic disc┆
0x0580…05a0 00 00 00 00 00 00 00 00 88 4e 19 00 00 00 00 00 00 00 00 00 00 00 00 02 88 7a 00 c3 82 00 c3 8b ┆ N z ┆
0x05a0…05c0 65 78 74 66 6f 72 6d 61 74 00 00 00 00 00 03 64 69 73 63 00 00 00 00 00 00 00 00 88 4d c5 00 00 ┆extformat disc M ┆
0x05c0…05e0 00 00 00 00 00 00 00 00 00 00 02 b7 e2 00 c3 82 00 c3 8b 65 78 74 6f 72 74 68 6f 00 00 00 00 00 ┆ extortho ┆
0x05e0…0600 00 03 64 69 73 63 00 00 00 00 00 00 00 00 88 4d de 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ disc M ┆
0x0600…0c00 Data for extoutmediu
0x0c00…0f00 (1,) Data for extforceout
0x0f00…1200 Data for extcreate
0x1200…1b00 Data for extstudent
0x1b00…1e00 Data for extwritemat
0x1e00…2d00 Data for extreadstru
0x2d00…3300 Data for extreadhead
0x3300…4b00 Data for extcptridql
0x4b00…6000 Data for exttridql
0x6000…6600 (8,) Data for extsvdecomp
0x6600…6900 Data for extinvert
0x6900…6c00 Data for extsyminver
0x6c00…7800 (9,) Data for extatomic
0x7800…8100 (10,) Data for extformat
0x8100…8a00 Data for extortho
0x8a00…9300 Data for extorthof
0x9300…9600 Data for extsum
0x9600…bd00 Data for extxbmatrix
0xbd00…cc00 Data for extbanddiag
0xcc00…d200 (17,) Data for extbmatrix
0xd200…de00 Data for extgosdiag
0xde00…de20 6c 6f 6f 6b 75 70 20 61 6c 67 66 75 6e 63 66 69 74 0a 69 66 20 6f 6b 2e 6e 6f 0a 28 65 78 74 72 ┆lookup algfuncfit if ok.no (extr┆
0xde20…de40 61 63 74 20 66 72 6f 6d 2e 61 6c 67 62 69 62 20 61 6c 67 66 75 6e 63 66 69 74 29 0a 61 6c 67 66 ┆act from.algbib algfuncfit) algf┆
0xde40…de60 75 6e 63 74 78 74 3d 65 64 69 74 20 61 6c 67 66 75 6e 63 66 69 74 0a 6c 2e 2f 61 28 31 3a 4e 2f ┆unctxt=edit algfuncfit l./a(1:N/┆
0xde60…de80 2c 72 2f 6e 2b 31 2f 6e 74 2b 31 2f 2c 6c 31 2c 72 2f 64 72 2c 64 64 2f 64 72 2f 2c 0a 6c 2e 2f ┆,r/n+1/nt+1/,l1,r/dr,dd/dr/, l./┆
0xde80…dea0 64 72 28 6a 29 3a 3d 2f 2c 64 2c 6c 2e 2f 64 72 28 6a 29 2f 2c 6c 2d 31 2c 64 31 2c 0a 6c 2e 2f ┆dr(j):=/,d,l./dr(j)/,l-1,d1, l./┆
0xdea0…dec0 61 28 6d 2c 6a 29 3a 3d 2f 2c 72 2f 6e 20 64 6f 2f 6e 74 20 64 6f 2f 2c 6c 31 2c 72 2f 6e 2f 6e ┆a(m,j):=/,r/n do/nt do/,l1,r/n/n┆
0xdec0…dee0 74 2f 2c 0a 6c 2e 2f 6f 72 74 68 6f 2f 2c 64 2c 69 2f 0a 6f 72 74 68 6f 66 28 61 2c 41 2c 64 72 ┆t/, l./ortho/,d,i/ orthof(a,A,dr┆
0xdee0…df00 2c 6d 2c 6e 2c 6e 66 29 3b 0a 2f 2c 6c 2e 2f 53 69 67 6e 69 2f 2c 6c 2e 2f 3a 3a 3a 2f 2c 72 2f ┆,m,n,nf); /,l./Signi/,l./:::/,r/┆
0xdf00…df20 3a 3e 2f 3a 3e 2c 3c 3c 20 2d 64 2e 64 64 64 64 27 2d 64 3e 2c 64 72 28 6a 29 29 3b 2f 2c 6c 31 ┆:>/:>,<< -d.dddd'-d>,dr(j));/,l1┆
0xdf20…df40 2c 64 2c 66 0a 19 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 ┆,d,f ┆
0xdf40…df60 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 ┆ ┆
[…0x4…]
0xdfe0…e000 ff ff ff ff ff ff 00 00 05 80 01 0b 00 00 00 7f ff fc 64 65 6c 74 61 78 00 00 00 00 00 00 80 00 ┆ deltax ┆
0xe000…e020 04 70 6c 6f 74 67 6c 6f 62 61 6c 73 00 00 00 13 28 00 00 00 00 00 00 40 00 00 10 dc 80 01 0b 00 ┆ plotglobals ( @ ┆
0xe020…e040 00 8c 00 00 95 64 65 6c 74 61 78 00 00 00 00 00 00 80 00 04 70 6c 6f 74 67 6c 6f 62 00 00 00 00 ┆ deltax plotglob ┆
0xe040…e060 00 00 13 28 00 00 00 00 00 00 40 00 00 10 e2 80 01 0b 00 00 00 7f ff fc 6e 75 6d 62 64 69 67 69 ┆ ( @ numbdigi┆
0xe060…e080 74 00 00 00 80 00 04 68 63 7c 6c 69 62 00 00 00 00 00 00 80 00 da 0c 40 ce 00 00 00 03 50 ac 00 ┆t hcølib @ P ┆
0xe080…e0a0 10 00 32 01 0b 00 00 00 00 07 cf 72 75 6e 00 00 00 00 00 00 00 00 00 00 00 1f 64 69 73 63 32 00 ┆ 2 run disc2 ┆
0xe0a0…e0c0 00 00 00 00 00 00 69 db a5 80 b1 90 00 00 00 00 29 24 00 0a ac 49 61 0b 00 02 58 00 02 61 74 74 ┆ i )$ Ia X att┆
0xe0c0…e0e0 00 00 00 00 00 00 00 00 00 00 00 00 01 64 69 73 63 32 00 00 00 00 00 00 00 73 06 f4 00 00 00 00 ┆ disc2 s ┆
0xe0e0…e100 00 00 00 00 00 00 00 00 65 c1 0b 00 07 e4 00 07 ed 74 79 70 65 70 72 74 78 74 00 00 00 00 00 08 ┆ e typeprtxt ┆
0xe100…e120 75 70 64 61 74 65 3d 61 6c 67 6f 6c 20 6c 69 73 74 2e 6e 6f 0a 0a 62 65 67 69 6e 0a 69 6e 74 65 ┆update=algol list.no begin inte┆
0xe120…e140 67 65 72 20 6c 2c 6d 2c 6e 2c 70 2c 70 30 2c 73 65 67 6d 3b 20 72 65 61 6c 20 73 2c 6c 6e 31 30 ┆ger l,m,n,p,p0,segm; real s,ln10┆
0xe140…e160 3b 0a 69 6e 74 65 67 65 72 20 61 72 72 61 79 20 74 61 69 6c 28 31 3a 31 30 29 3b 0a 61 72 72 61 ┆; integer array tail(1:10); arra┆
0xe160…e180 79 20 78 2c 79 2c 74 72 61 63 6b 28 31 3a 32 29 3b 0a 7a 6f 6e 65 20 7a 28 31 32 38 2c 31 2c 73 ┆y x,y,track(1:2); zone z(128,1,s┆
0xe180…e1a0 74 64 65 72 72 6f 72 29 3b 0a 70 72 6f 63 65 64 75 72 65 20 73 70 6c 69 74 28 6e 29 3b 0a 76 61 ┆tderror); procedure split(n); va┆
0xe1a0…e1c0 6c 75 65 20 6e 3b 20 69 6e 74 65 67 65 72 20 6e 3b 0a 62 65 67 69 6e 20 69 6e 74 65 67 65 72 20 ┆lue n; integer n; begin integer ┆
0xe1c0…e1e0 69 2c 6a 2c 6b 2c 70 3b 20 72 65 61 6c 20 6c 6f 3b 0a 20 20 20 6a 3a 3d 20 34 38 2f 2f 6e 3b 0a ┆i,j,k,p; real lo; j:= 48//n; ┆
0xe1e0…e200 20 20 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6a 20 64 6f 20 62 65 ┆ for i:=1 step 1 until j do be┆
0xe200…e220 67 69 6e 0a 20 20 20 20 20 20 70 3a 3d 20 73 20 73 68 69 66 74 20 28 6e 2d 34 38 29 20 65 78 74 ┆gin p:= s shift (n-48) ext┆
0xe220…e240 72 61 63 74 20 6e 3b 20 6b 3a 3d 20 61 62 73 20 70 3b 0a 20 20 20 20 20 20 6b 3a 3d 20 69 66 20 ┆ract n; k:= abs p; k:= if ┆
0xe240…e260 70 3d 30 20 74 68 65 6e 20 31 20 65 6c 73 65 20 65 6e 74 69 65 72 28 6c 6e 28 6b 29 2f 6c 6e 31 ┆p=0 then 1 else entier(ln(k)/ln1┆
0xe260…e280 30 29 20 2b 20 31 3b 0a 20 20 20 20 20 20 6c 6f 3a 3d 20 30 2e 30 20 61 64 64 20 33 20 73 68 69 ┆0) + 1; lo:= 0.0 add 3 shi┆
0xe280…e2a0 66 74 20 32 38 20 61 64 64 20 6b 20 73 68 69 66 74 20 34 20 61 64 64 20 6b 0a 20 20 20 20 20 20 ┆ft 28 add k shift 4 add k ┆
0xe2a0…e2c0 20 20 20 20 20 73 68 69 66 74 20 38 20 61 64 64 20 28 69 66 20 70 3c 30 20 74 68 65 6e 20 31 20 ┆ shift 8 add (if p<0 then 1 ┆
0xe2c0…e2e0 65 6c 73 65 20 30 29 20 73 68 69 66 74 20 36 3b 0a 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 ┆else 0) shift 6; write(out┆
0xe2e0…e300 2c 73 74 72 69 6e 67 20 6c 6f 2c 70 29 3b 0a 20 20 20 20 20 20 73 3a 3d 20 73 20 73 68 69 66 74 ┆,string lo,p); s:= s shift┆
0xe300…e320 20 6e 3b 0a 65 6e 64 20 65 6e 64 3b 0a 70 72 6f 63 65 64 75 72 65 20 70 61 63 6b 28 6e 29 3b 0a ┆ n; end end; procedure pack(n); ┆
0xe320…e340 76 61 6c 75 65 20 6e 3b 20 69 6e 74 65 67 65 72 20 6e 3b 0a 62 65 67 69 6e 20 69 6e 74 65 67 65 ┆value n; integer n; begin intege┆
0xe340…e360 72 20 69 2c 6a 2c 6b 3b 0a 20 20 20 6a 3a 3d 20 34 38 2f 2f 6e 3b 20 73 3a 3d 20 30 3b 0a 20 20 ┆r i,j,k; j:= 48//n; s:= 0; ┆
0xe360…e380 20 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6a 20 64 6f 20 62 65 67 69 ┆ for i:=1 step 1 until j do begi┆
0xe380…e3a0 6e 0a 20 20 20 20 20 20 72 65 61 64 28 69 6e 2c 6b 29 3b 20 69 66 20 6b 3c 30 20 74 68 65 6e 20 ┆n read(in,k); if k<0 then ┆
0xe3a0…e3c0 6b 3a 3d 20 32 20 73 68 69 66 74 20 28 6e 2d 31 29 20 2b 20 6b 3b 0a 20 20 20 20 20 20 73 3a 3d ┆k:= 2 shift (n-1) + k; s:=┆
0xe3c0…e3e0 20 73 20 73 68 69 66 74 20 6e 20 61 64 64 20 6b 0a 65 6e 64 3b 20 7a 28 6d 29 3a 3d 20 73 20 65 ┆ s shift n add k end; z(m):= s e┆
0xe3e0…e400 6e 64 3b 0a 6e 61 6d 65 3a 0a 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 55 70 64 61 74 65 ┆nd; name: write(out,<:<10>Update┆
0xe400…e420 (19,) 20 74 72 61 63 6b 20 28 69 6e 20 3c 3e 29 3a 20 3a 3e 29 3b 20 73 65 74 70 6f 73 69 74 69 6f 6e ┆ track (in <>): :>); setposition┆
0xe420…e440 28 6f 75 74 2c 30 2c 30 29 3b 0a 72 65 61 64 68 65 61 64 28 69 6e 2c 74 72 61 63 6b 2c 31 29 3b ┆(out,0,0); readhead(in,track,1);┆
0xe440…e460 20 72 65 61 64 63 68 61 72 28 69 6e 2c 6c 29 3b 20 6c 3a 3d 20 31 3b 0a 6f 70 65 6e 28 7a 2c 34 ┆ readchar(in,l); l:= 1; open(z,4┆
0xe460…e480 2c 73 74 72 69 6e 67 20 74 72 61 63 6b 28 69 6e 63 72 65 61 73 65 28 6c 29 29 2c 30 29 3b 0a 69 ┆,string track(increase(l)),0); i┆
0xe480…e4a0 66 20 6d 6f 6e 69 74 6f 72 28 34 32 2c 7a 2c 30 2c 74 61 69 6c 29 3c 3e 30 20 74 68 65 6e 20 62 ┆f monitor(42,z,0,tail)<>0 then b┆
0xe4a0…e4c0 65 67 69 6e 0a 20 20 6c 3a 3d 31 3b 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 2a 2a 2a ┆egin l:=1; write(out,<:<10>***┆
0xe4c0…e4e0 3a 3e 2c 73 74 72 69 6e 67 20 74 72 61 63 6b 28 69 6e 63 72 65 61 73 65 28 6c 29 29 2c 0a 20 20 ┆:>,string track(increase(l)), ┆
0xe4e0…e500 3c 3a 20 75 6e 6b 6e 6f 77 6e 3a 3e 29 3b 20 63 6c 6f 73 65 28 7a 2c 74 72 75 65 29 3b 20 67 6f ┆<: unknown:>); close(z,true); go┆
0xe500…e520 74 6f 20 6e 61 6d 65 0a 65 6e 64 3b 0a 73 65 67 6d 3a 3d 20 74 61 69 6c 28 31 29 3b 20 6c 6e 31 ┆to name end; segm:= tail(1); ln1┆
0xe520…e540 30 3a 3d 20 6c 6e 28 31 30 29 3b 20 70 30 3a 3d 20 2d 31 3b 0a 69 67 65 6e 3a 0a 78 28 32 29 3a ┆0:= ln(10); p0:= -1; igen: x(2):┆
0xe540…e560 3d 20 79 28 32 29 3a 3d 20 30 2e 30 20 73 68 69 66 74 20 34 30 3b 0a 77 72 69 74 65 28 6f 75 74 ┆= y(2):= 0.0 shift 40; write(out┆
0xe560…e580 2c 3c 3a 3c 31 30 3e 54 72 61 63 6b 20 69 6e 64 65 78 20 61 6e 64 20 72 2c 20 74 20 6f 72 20 69 ┆,<:<10>Track index and r, t or i┆
0xe580…e5a0 2c 62 69 74 73 3a 20 3a 3e 29 3b 0a 73 65 74 70 6f 73 69 74 69 6f 6e 28 6f 75 74 2c 30 2c 30 29 ┆,bits: :>); setposition(out,0,0)┆
0xe5a0…e5c0 3b 0a 72 65 61 64 63 68 61 72 28 69 6e 2c 6c 29 3b 20 72 65 70 65 61 74 63 68 61 72 28 69 6e 29 ┆; readchar(in,l); repeatchar(in)┆
0xe5c0…e5e0 3b 0a 69 66 20 6c 3d 31 31 35 20 74 68 65 6e 20 62 65 67 69 6e 0a 20 20 63 6f 6d 6d 65 6e 74 20 ┆; if l=115 then begin comment ┆
0xe5e0…e600 31 31 35 20 3d 20 73 2c 20 66 6f 72 20 73 65 61 72 63 68 3b 0a 20 20 73 65 61 72 63 68 3a 0a 20 ┆115 = s, for search; search: ┆
0xe600…e620 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 73 65 61 72 63 68 20 74 65 78 74 20 69 6e 20 ┆ write(out,<:<10>search text in ┆
0xe620…e640 3c 20 3e 3a 20 20 3a 3e 29 3b 0a 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 6f 75 74 2c 30 2c 30 ┆< >: :>); setposition(out,0,0┆
0xe640…e660 29 3b 20 6c 3a 3d 20 72 65 61 64 68 65 61 64 28 69 6e 2c 78 2c 31 29 3b 0a 20 20 69 66 20 6c 3d ┆); l:= readhead(in,x,1); if l=┆
0xe660…e680 30 20 74 68 65 6e 20 62 65 67 69 6e 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 20 63 68 61 72 61 63 74 ┆0 then begin comment charact┆
0xe680…e6a0 65 72 73 20 62 79 20 69 6e 74 65 67 65 72 20 76 61 6c 75 65 3b 0a 20 20 20 20 72 65 61 64 28 69 ┆ers by integer value; read(i┆
0xe6a0…e6c0 6e 2c 6e 29 3b 20 6c 3a 3d 20 2d 31 3b 0a 20 20 20 20 66 6f 72 20 6c 3a 3d 6c 2b 31 20 77 68 69 ┆n,n); l:= -1; for l:=l+1 whi┆
0xe6c0…e6e0 6c 65 20 6e 3c 3e 30 20 64 6f 20 62 65 67 69 6e 0a 20 20 20 20 20 20 78 28 31 29 3a 3d 20 78 28 ┆le n<>0 do begin x(1):= x(┆
0xe6e0…e700 31 29 20 73 68 69 66 74 20 38 20 61 64 64 20 6e 3b 0a 20 20 20 20 20 20 72 65 61 64 28 69 6e 2c ┆1) shift 8 add n; read(in,┆
0xe700…e720 6e 29 3b 0a 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 69 66 20 6c 3d 30 20 74 68 65 6e 20 67 6f 74 ┆n); end; if l=0 then got┆
0xe720…e740 6f 20 69 67 65 6e 3b 0a 20 20 20 20 78 28 31 29 3a 3d 20 78 28 31 29 20 73 68 69 66 74 20 28 34 ┆o igen; x(1):= x(1) shift (4┆
0xe740…e760 38 2d 38 2a 6c 29 3b 0a 20 20 65 6e 64 20 65 6c 73 65 20 72 65 61 64 63 68 61 72 28 69 6e 2c 6e ┆8-8*l); end else readchar(in,n┆
0xe760…e780 29 3b 0a 20 20 69 66 20 6c 3e 36 20 74 68 65 6e 20 62 65 67 69 6e 0a 20 20 20 20 77 72 69 74 65 ┆); if l>6 then begin write┆
0xe780…e7a0 28 6f 75 74 2c 3c 3a 3c 31 30 3e 2a 2a 2a 6f 6e 6c 79 20 36 20 63 68 61 72 61 63 74 65 72 73 20 ┆(out,<:<10>***only 6 characters ┆
0xe7a0…e7c0 61 6c 6c 6f 77 65 64 3a 3e 29 3b 0a 20 20 20 20 67 6f 74 6f 20 73 65 61 72 63 68 0a 20 20 65 6e ┆allowed:>); goto search en┆
0xe7c0…e7e0 64 3b 0a 20 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 2c 30 2c 30 29 3b 20 73 77 6f 70 72 65 63 ┆d; setposition(z,0,0); swoprec┆
0xe7e0…e800 28 7a 2c 31 32 38 29 3b 0a 20 20 6e 3a 3d 20 6c 20 6d 6f 64 20 36 3b 20 70 3a 3d 20 34 38 2d 6c ┆(z,128); n:= l mod 6; p:= 48-l┆
0xe800…e820 2a 38 3b 20 70 30 3a 3d 20 30 3b 20 6d 3a 3d 31 3b 0a 20 20 79 28 31 29 3a 3d 20 7a 28 31 29 20 ┆*8; p0:= 0; m:=1; y(1):= z(1) ┆
0xe820…e840 73 68 69 66 74 20 28 2d 70 29 20 73 68 69 66 74 20 70 3b 0a 20 20 66 6f 72 20 6e 3a 3d 6e 2b 31 ┆shift (-p) shift p; for n:=n+1┆
0xe840…e860 20 77 68 69 6c 65 20 79 28 31 29 3c 3e 78 28 31 29 20 64 6f 20 62 65 67 69 6e 0a 20 20 20 20 69 ┆ while y(1)<>x(1) do begin i┆
0xe860…e880 66 20 6e 3d 31 20 74 68 65 6e 20 62 65 67 69 6e 0a 20 20 20 20 20 20 6d 3a 3d 20 6d 2b 31 3b 0a ┆f n=1 then begin m:= m+1; ┆
0xe880…e8a0 20 20 20 20 20 20 69 66 20 6d 3d 31 32 39 20 74 68 65 6e 20 62 65 67 69 6e 0a 20 20 20 20 20 20 ┆ if m=129 then begin ┆
0xe8a0…e8c0 20 20 6d 3a 3d 31 3b 20 70 30 3a 3d 20 70 30 2b 31 3b 0a 20 20 20 20 20 20 20 20 69 66 20 70 30 ┆ m:=1; p0:= p0+1; if p0┆
0xe8c0…e8e0 3d 73 65 67 6d 20 74 68 65 6e 20 62 65 67 69 6e 0a 20 20 20 20 20 20 20 20 20 20 6c 3a 3d 31 3b ┆=segm then begin l:=1;┆
0xe8e0…e900 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 2a 2a 2a 3a 3e 2c 0a 20 20 20 20 20 20 20 20 ┆ write(out,<:<10>***:>, ┆
0xe900…e920 20 20 73 74 72 69 6e 67 20 78 28 69 6e 63 72 65 61 73 65 28 6c 29 29 2c 3c 3a 20 3d 20 3a 3e 29 ┆ string x(increase(l)),<: = :>)┆
0xe920…e940 3b 0a 20 20 20 20 20 20 20 20 20 20 73 3a 3d 20 78 28 31 29 3b 20 73 70 6c 69 74 28 38 29 3b 20 ┆; s:= x(1); split(8); ┆
0xe940…e960 77 72 69 74 65 28 6f 75 74 2c 3c 3a 20 6e 6f 74 20 66 6f 75 6e 64 3a 3e 29 3b 0a 20 20 20 20 20 ┆write(out,<: not found:>); ┆
0xe960…e980 20 20 20 20 20 67 6f 74 6f 20 69 67 65 6e 0a 20 20 20 20 20 20 20 20 65 6e 64 3b 0a 20 20 20 20 ┆ goto igen end; ┆
0xe980…e9a0 20 20 20 20 73 77 6f 70 72 65 63 28 7a 2c 31 32 38 29 3b 0a 20 20 20 20 65 6e 64 20 65 6e 64 3b ┆ swoprec(z,128); end end;┆
0xe9a0…e9c0 0a 20 20 20 20 79 28 31 29 3a 3d 20 79 28 31 29 20 73 68 69 66 74 20 28 38 2d 70 29 20 61 64 64 ┆ y(1):= y(1) shift (8-p) add┆
0xe9c0…e9e0 0a 20 20 20 20 20 20 20 20 20 20 20 28 7a 28 6d 29 20 73 68 69 66 74 20 28 6e 2a 38 2d 34 38 29 ┆ (z(m) shift (n*8-48)┆
0xe9e0…ea00 20 65 78 74 72 61 63 74 20 38 29 20 73 68 69 66 74 20 70 3b 0a 20 20 20 20 69 66 20 6e 3d 36 20 ┆ extract 8) shift p; if n=6 ┆
0xea00…ea20 74 68 65 6e 20 6e 3a 3d 20 30 0a 20 20 65 6e 64 20 6e 3b 0a 20 20 77 72 69 74 65 28 6f 75 74 2c ┆then n:= 0 end n; write(out,┆
0xea20…ea40 3c 3a 3c 31 30 3e 54 72 61 63 6b 20 69 6e 64 65 78 3a 20 20 3a 3e 2c 3c 3c 64 64 64 64 64 3e 2c ┆<:<10>Track index: :>,<<ddddd>,┆
0xea40…ea60 70 30 2a 31 32 38 2b 6d 29 3b 0a 20 20 6c 3a 3d 20 31 31 36 0a 65 6e 64 20 65 6c 73 65 20 62 65 ┆p0*128+m); l:= 116 end else be┆
0xea60…ea80 67 69 6e 0a 20 20 72 65 61 64 28 69 6e 2c 6d 29 3b 20 69 66 20 6d 3c 31 20 74 68 65 6e 20 67 6f ┆gin read(in,m); if m<1 then go┆
0xea80…eaa0 74 6f 20 73 74 6f 70 3b 0a 20 20 70 3a 3d 20 28 6d 2d 31 29 2f 2f 31 32 38 3b 20 6d 3a 3d 20 28 ┆to stop; p:= (m-1)//128; m:= (┆
0xeaa0…eac0 6d 2d 31 29 20 6d 6f 64 20 31 32 38 20 2b 20 31 3b 0a 20 20 69 66 20 70 2b 31 3e 73 65 67 6d 20 ┆m-1) mod 128 + 1; if p+1>segm ┆
0xeac0…eae0 74 68 65 6e 20 62 65 67 69 6e 0a 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 2a ┆then begin write(out,<:<10>*┆
0xeae0…eb00 2a 2a 54 72 61 63 6b 20 69 6e 64 65 78 20 65 78 63 65 65 64 73 20 3a 3e 2c 0a 20 20 20 20 3c 3c ┆**Track index exceeds :>, <<┆
0xeb00…eb20 64 64 64 64 64 3e 2c 73 65 67 6d 2a 31 32 38 29 3b 20 67 6f 74 6f 20 69 67 65 6e 0a 20 20 65 6e ┆ddddd>,segm*128); goto igen en┆
0xeb20…eb40 64 3b 0a 20 20 69 66 20 70 3c 3e 70 30 20 74 68 65 6e 20 62 65 67 69 6e 0a 20 20 20 20 70 30 3a ┆d; if p<>p0 then begin p0:┆
0xeb40…eb60 3d 20 70 3b 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 7a 2c 30 2c 70 29 3b 20 73 77 6f 70 72 65 63 ┆= p; setposition(z,0,p); swoprec┆
0xeb60…eb80 28 7a 2c 31 32 38 29 20 65 6e 64 3b 0a 20 20 72 65 61 64 63 68 61 72 28 69 6e 2c 6c 29 3b 20 69 ┆(z,128) end; readchar(in,l); i┆
0xeb80…eba0 66 20 6c 3d 31 31 36 20 74 68 65 6e 20 72 65 61 64 63 68 61 72 28 69 6e 2c 6e 29 0a 65 6e 64 3b ┆f l=116 then readchar(in,n) end;┆
0xeba0…ebc0 0a 69 66 20 6c 3d 31 30 35 20 74 68 65 6e 20 62 65 67 69 6e 0a 20 20 20 72 65 61 64 28 69 6e 2c ┆ if l=105 then begin read(in,┆
0xebc0…ebe0 6e 29 3b 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 6f 6c 64 20 69 6e 74 65 67 65 72 73 ┆n); write(out,<:<10>old integers┆
0xebe0…ec00 3a 20 3a 3e 29 3b 0a 20 20 20 73 3a 3d 20 7a 28 6d 29 3b 20 73 70 6c 69 74 28 6e 29 3b 0a 20 20 ┆: :>); s:= z(m); split(n); ┆
0xec00…ec20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 6e 65 77 20 69 6e 74 65 67 65 72 73 3a 20 20 ┆ write(out,<:<10>new integers: ┆
0xec20…ec40 3a 3e 29 3b 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 6f 75 74 2c 30 2c 30 29 3b 0a 20 20 20 72 65 ┆:>); setposition(out,0,0); re┆
0xec40…ec60 61 64 63 68 61 72 28 69 6e 2c 6c 29 3b 20 69 66 20 6c 3c 3e 31 30 20 74 68 65 6e 20 62 65 67 69 ┆adchar(in,l); if l<>10 then begi┆
0xec60…ec80 6e 0a 20 20 20 20 20 20 72 65 70 65 61 74 63 68 61 72 28 69 6e 29 3b 20 20 70 61 63 6b 28 6e 29 ┆n repeatchar(in); pack(n)┆
0xec80…eca0 20 65 6e 64 0a 65 6e 64 20 65 6c 73 65 20 69 66 20 6c 3d 31 31 36 20 74 68 65 6e 20 62 65 67 69 ┆ end end else if l=116 then begi┆
0xeca0…ecc0 6e 0a 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 6f 6c 64 20 74 65 78 74 3a 20 20 ┆n write(out,<:<10>old text: ┆
0xecc0…ece0 3a 3e 29 3b 0a 20 20 20 66 6f 72 20 6e 3a 3d 38 20 73 74 65 70 20 38 20 75 6e 74 69 6c 20 34 38 ┆:>); for n:=8 step 8 until 48┆
0xece0…ed00 20 64 6f 20 62 65 67 69 6e 0a 20 20 20 20 20 6c 3a 3d 20 7a 28 6d 29 20 73 68 69 66 74 20 28 6e ┆ do begin l:= z(m) shift (n┆
0xed00…ed20 2d 34 38 29 20 65 78 74 72 61 63 74 20 38 3b 0a 20 20 20 20 20 69 66 20 6c 3e 33 32 20 61 6e 64 ┆-48) extract 8; if l>32 and┆
0xed20…ed40 20 6c 3c 31 32 37 20 74 68 65 6e 0a 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 66 61 6c ┆ l<127 then write(out,fal┆
0xed40…ed60 73 65 20 61 64 64 20 6c 2c 31 29 0a 20 20 20 20 20 65 6c 73 65 0a 20 20 20 20 20 20 20 77 72 69 ┆se add l,1) else wri┆
0xed60…ed80 74 65 28 6f 75 74 2c 3c 3a 28 3a 3e 2c 3c 3c 64 3e 2c 6c 2c 3c 3a 29 3a 3e 29 3b 0a 20 20 20 65 ┆te(out,<:(:>,<<d>,l,<:):>); e┆
0xed80…eda0 6e 64 3b 0a 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 6e 65 77 20 74 65 78 74 3a ┆nd; write(out,<:<10>new text:┆
0xeda0…edc0 20 20 3a 3e 29 3b 20 73 65 74 70 6f 73 69 74 69 6f 6e 28 6f 75 74 2c 30 2c 30 29 3b 0a 20 20 20 ┆ :>); setposition(out,0,0); ┆
0xedc0…ede0 72 65 61 64 63 68 61 72 28 69 6e 2c 6c 29 3b 20 69 66 20 6c 3d 36 30 20 74 68 65 6e 20 62 65 67 ┆readchar(in,l); if l=60 then beg┆
0xede0…ee00 69 6e 0a 20 20 20 20 20 20 72 65 70 65 61 74 63 68 61 72 28 69 6e 29 3b 20 72 65 61 64 68 65 61 ┆in repeatchar(in); readhea┆
0xee00…ee20 64 28 69 6e 2c 78 2c 31 29 3b 0a 20 20 20 20 20 20 72 65 61 64 63 68 61 72 28 69 6e 2c 6c 29 3b ┆d(in,x,1); readchar(in,l);┆
0xee20…ee40 20 7a 28 6d 29 3a 3d 20 78 28 31 29 20 65 6e 64 3b 0a 65 6e 64 20 65 6c 73 65 20 62 65 67 69 6e ┆ z(m):= x(1) end; end else begin┆
0xee40…ee60 0a 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 6f 6c 64 20 72 65 61 6c 3a 20 20 3a ┆ write(out,<:<10>old real: :┆
0xee60…ee80 3e 2c 3c 3c 2d 64 2e 64 64 64 64 64 64 64 64 64 27 2d 64 3e 2c 7a 28 6d 29 2c 0a 20 20 20 20 20 ┆>,<<-d.ddddddddd'-d>,z(m), ┆
0xee80…eea0 20 20 20 20 3c 3a 3c 31 30 3e 6e 65 77 20 72 65 61 6c 3a 20 20 3a 3e 29 3b 20 73 65 74 70 6f 73 ┆ <:<10>new real: :>); setpos┆
0xeea0…eec0 69 74 69 6f 6e 28 6f 75 74 2c 30 2c 30 29 3b 0a 20 20 20 72 65 61 64 63 68 61 72 28 69 6e 2c 6c ┆ition(out,0,0); readchar(in,l┆
0xeec0…eee0 29 3b 20 72 65 61 64 63 68 61 72 28 69 6e 2c 6c 29 3b 20 69 66 20 6c 3c 3e 31 30 20 74 68 65 6e ┆); readchar(in,l); if l<>10 then┆
0xeee0…ef00 20 62 65 67 69 6e 0a 20 20 20 20 20 20 72 65 70 65 61 74 63 68 61 72 28 69 6e 29 3b 20 72 65 61 ┆ begin repeatchar(in); rea┆
0xef00…ef20 64 28 69 6e 2c 7a 28 6d 29 29 20 65 6e 64 0a 65 6e 64 3b 0a 67 6f 74 6f 20 69 67 65 6e 3b 0a 73 ┆d(in,z(m)) end end; goto igen; s┆
0xef20…ef40 74 6f 70 3a 20 63 6c 6f 73 65 28 7a 2c 74 72 75 65 29 0a 65 6e 64 3b 0a 19 00 0a 20 20 20 72 65 ┆top: close(z,true) end; re┆
0xef40…ef60 61 64 63 68 61 72 28 69 6e 2c 6c 29 3b 20 69 66 20 6c 3c 3e 31 30 20 74 68 65 6e 20 62 65 67 69 ┆adchar(in,l); if l<>10 then begi┆
0xef60…ef80 6e 0a 20 20 20 20 20 20 72 65 70 65 61 74 63 68 61 72 28 69 6e 29 3b 20 20 70 61 63 6b 28 6e 29 ┆n repeatchar(in); pack(n)┆
0xef80…efa0 20 65 6e 64 0a 65 6e 64 20 65 6c 73 65 20 69 66 20 6c 3d 31 31 36 20 74 68 65 6e 20 62 65 67 69 ┆ end end else if l=116 then begi┆
0xefa0…efc0 6e 0a 20 20 20 77 72 69 74 65 28 6f 75 74 2c 3c 3a 3c 31 30 3e 6f 6c 64 20 74 65 78 74 3a 20 20 ┆n write(out,<:<10>old text: ┆
0xefc0…efe0 3a 3e 29 3b 0a 20 20 20 66 6f 72 20 6e 3a 3d 38 20 73 74 65 70 20 38 20 75 6e 74 69 6c 20 34 38 ┆:>); for n:=8 step 8 until 48┆
0xefe0…f000 20 64 6f 20 62 65 67 69 6e 0a 20 20 20 20 20 6c 3a 3d 20 7a 28 6d 29 20 73 68 69 66 74 20 28 6e ┆ do begin l:= z(m) shift (n┆
0xf000…f020 (20,) 3b 67 6f 73 61 76 0a 72 3d 73 65 74 0a 72 3d 61 6c 67 6f 6c 20 69 6e 64 65 78 2e 6e 6f 20 6c 69 ┆;gosav r=set r=algol index.no li┆
0xf020…f040 73 74 2e 6e 6f 0a 65 78 74 65 72 6e 61 6c 0a 72 65 61 6c 20 70 72 6f 63 65 64 75 72 65 20 73 76 ┆st.no external real procedure sv┆
0xf040…f060 64 65 63 6f 6d 70 28 61 2c 76 2c 73 69 67 6d 61 2c 70 6d 2c 6d 2c 6e 2c 6e 31 29 3b 0a 76 61 6c ┆decomp(a,v,sigma,pm,m,n,n1); val┆
0xf060…f080 75 65 20 6d 2c 6e 3b 20 69 6e 74 65 67 65 72 20 6d 2c 6e 2c 6e 31 3b 20 61 72 72 61 79 20 61 2c ┆ue m,n; integer m,n,n1; array a,┆
0xf080…f0a0 76 2c 73 69 67 6d 61 2c 70 6d 3b 0a 62 65 67 69 6e 0a 69 6e 74 65 67 65 72 20 69 2c 6a 2c 6b 2c ┆v,sigma,pm; begin integer i,j,k,┆
0xf0a0…f0c0 6e 32 3b 20 72 65 61 6c 20 72 2c 67 72 61 6d 3b 20 61 72 72 61 79 20 77 28 31 3a 6e 29 3b 0a 67 ┆n2; real r,gram; array w(1:n); g┆
0xf0c0…f0e0 72 61 6d 3a 3d 20 31 3b 20 6e 31 3a 3d 20 31 3b 20 6e 32 3a 3d 20 6e 2b 31 3b 0a 66 6f 72 20 69 ┆ram:= 1; n1:= 1; n2:= n+1; for i┆
0xf0e0…f100 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6e 20 64 6f 20 66 6f 72 20 6a 3a 3d 69 20 73 ┆:=1 step 1 until n do for j:=i s┆
0xf100…f120 74 65 70 20 2d 31 20 75 6e 74 69 6c 20 31 20 64 6f 20 62 65 67 69 6e 0a 20 20 72 3a 3d 20 73 75 ┆tep -1 until 1 do begin r:= su┆
0xf120…f140 6d 28 61 28 6b 2c 69 29 2a 61 28 6b 2c 6a 29 2c 6b 2c 31 2c 6d 29 3b 0a 20 20 69 66 20 69 3d 6a ┆m(a(k,i)*a(k,j),k,1,m); if i=j┆
0xf140…f160 20 74 68 65 6e 20 62 65 67 69 6e 0a 20 20 20 20 76 28 69 2c 6e 32 29 3a 3d 20 72 3a 3d 20 73 71 ┆ then begin v(i,n2):= r:= sq┆
0xf160…f180 72 74 28 72 29 3b 20 77 28 69 29 3a 3d 20 31 2f 72 3b 20 76 28 69 2c 69 29 3a 3d 20 31 0a 20 20 ┆rt(r); w(i):= 1/r; v(i,i):= 1 ┆
0xf180…f1a0 65 6e 64 20 65 6c 73 65 20 76 28 69 2c 6a 29 3a 3d 20 72 2a 77 28 69 29 2a 77 28 6a 29 0a 65 6e ┆end else v(i,j):= r*w(i)*w(j) en┆
0xf1a0…f1c0 64 3b 0a 74 72 69 64 71 6c 28 6e 2c 73 69 67 6d 61 2c 76 29 3b 0a 66 6f 72 20 69 3a 3d 31 20 73 ┆d; tridql(n,sigma,v); for i:=1 s┆
0xf1c0…f1e0 74 65 70 20 31 20 75 6e 74 69 6c 20 6e 20 64 6f 0a 20 20 69 66 20 73 69 67 6d 61 28 69 29 3c 3d ┆tep 1 until n do if sigma(i)<=┆
0xf1e0…f200 30 20 74 68 65 6e 20 6e 31 3a 3d 20 6e 31 2b 31 0a 20 20 65 6c 73 65 20 62 65 67 69 6e 0a 20 20 ┆0 then n1:= n1+1 else begin ┆
0xf200…f220 20 20 67 72 61 6d 3a 3d 20 67 72 61 6d 2a 73 69 67 6d 61 28 69 29 3b 20 73 69 67 6d 61 28 69 29 ┆ gram:= gram*sigma(i); sigma(i)┆
0xf220…f240 3a 3d 20 31 2f 73 71 72 74 28 73 69 67 6d 61 28 69 29 29 3b 0a 20 20 65 6e 64 3b 0a 20 20 73 76 ┆:= 1/sqrt(sigma(i)); end; sv┆
0xf240…f260 64 65 63 6f 6d 70 3a 3d 20 67 72 61 6d 3b 0a 63 6f 6d 6d 65 6e 74 20 54 68 65 20 66 69 72 73 74 ┆decomp:= gram; comment The first┆
0xf260…f280 20 6e 31 2d 31 20 6f 66 20 74 68 65 20 75 6e 63 6f 72 72 65 6c 61 74 65 64 20 70 61 72 61 6d 65 ┆ n1-1 of the uncorrelated parame┆
0xf280…f2a0 74 65 72 73 20 61 72 65 0a 20 20 20 20 20 20 20 20 75 6e 64 65 74 65 72 6d 69 6e 65 64 20 62 79 ┆ters are undetermined by┆
0xf2a0…f2c0 20 74 68 65 20 65 71 75 61 74 69 6f 6e 2e 20 54 68 65 79 20 61 72 65 20 61 73 73 75 6d 65 64 0a ┆ the equation. They are assumed ┆
0xf2c0…f2e0 20 20 20 20 20 20 20 20 7a 65 72 6f 20 61 6e 64 20 6f 6e 6c 79 20 74 68 65 20 63 6f 6c 75 6d 6e ┆ zero and only the column┆
0xf2e0…f300 73 20 6e 31 20 74 6f 20 6e 20 6f 66 20 75 20 61 72 65 20 66 6f 72 6d 65 64 20 69 6e 20 61 3b 0a ┆s n1 to n of u are formed in a; ┆
0xf300…f320 66 6f 72 20 6b 3a 3d 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6d 20 64 6f 20 62 65 67 69 6e ┆for k:=1 step 1 until m do begin┆
0xf320…f340 0a 20 20 66 6f 72 20 69 3a 3d 31 20 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6e 20 64 6f 20 70 ┆ for i:=1 step 1 until n do p┆
0xf340…f360 6d 28 69 29 3a 3d 20 61 28 6b 2c 69 29 2a 77 28 69 29 3b 0a 20 20 66 6f 72 20 69 3a 3d 6e 31 20 ┆m(i):= a(k,i)*w(i); for i:=n1 ┆
0xf360…f380 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6e 20 64 6f 0a 20 20 20 20 61 28 6b 2c 69 29 3a 3d 20 73 ┆step 1 until n do a(k,i):= s┆
0xf380…f3a0 75 6d 28 70 6d 28 6a 29 2a 76 28 69 2c 6a 29 2c 6a 2c 31 2c 6e 29 2a 73 69 67 6d 61 28 69 29 3b ┆um(pm(j)*v(i,j),j,1,n)*sigma(i);┆
0xf3a0…f3c0 0a 65 6e 64 20 6b 3b 0a 66 6f 72 20 69 3a 3d 6e 31 20 73 74 65 70 20 31 20 75 6e 74 69 6c 20 6e ┆ end k; for i:=n1 step 1 until n┆
0xf3c0…f3e0 20 64 6f 0a 20 20 77 28 69 29 3a 3d 20 73 75 6d 28 61 28 6b 2c 69 29 2a 61 28 6b 2c 6e 32 29 2c ┆ do w(i):= sum(a(k,i)*a(k,n2),┆
0xf3e0…f400 6b 2c 31 2c 6d 29 2a 73 69 67 6d 61 28 69 29 3b 0a 66 6f 72 20 69 3a 3d 31 20 73 74 65 70 20 31 ┆k,1,m)*sigma(i); for i:=1 step 1┆
0xf400…f420 20 75 6e 74 69 6c 20 6e 20 64 6f 0a 20 20 70 6d 28 69 29 3a 3d 20 73 75 6d 28 76 28 6a 2c 69 29 ┆ until n do pm(i):= sum(v(j,i)┆
0xf420…f440 2a 77 28 6a 29 2c 6a 2c 6e 31 2c 6e 29 2f 76 28 69 2c 6e 32 29 3b 0a 65 6e 64 3b 20 65 6e 64 0a ┆*w(j),j,n1,n)/v(i,n2); end; end ┆
0xf440…f460 63 6c 65 61 72 20 73 76 64 65 63 6f 6d 70 0a 72 65 6e 61 6d 65 20 72 2e 73 76 64 65 63 6f 6d 70 ┆clear svdecomp rename r.svdecomp┆
0xf460…f480 0a 70 65 72 6d 61 6e 65 6e 74 20 73 76 64 65 63 6f 6d 70 2e 31 35 0a 19 00 00 3d 20 31 0a 20 20 ┆ permanent svdecomp.15 = 1 ┆
0xf480…f4a0 65 6e 64 20 65 6c 73 65 20 76 28 69 2c 6a 29 3a 3d 20 72 2a 77 28 69 29 2a 77 28 6a 29 0a 65 6e ┆end else v(i,j):= r*w(i)*w(j) en┆
0xf4a0…f4c0 64 3b 0a 74 72 69 64 71 6c 28 6e 2c 73 69 67 6d 61 2c 76 29 3b 0a 66 6f 72 20 69 3a 3d 31 20 73 ┆d; tridql(n,sigma,v); for i:=1 s┆
0xf4c0…f4e0 74 65 70 20 31 20 75 6e 74 69 6c 20 6e 20 64 6f 0a 20 20 69 66 20 73 69 67 6d 61 28 69 29 3c 3d ┆tep 1 until n do if sigma(i)<=┆
0xf4e0…f500 30 20 74 68 65 6e 20 6e 31 3a 3d 20 6e 31 2b 31 0a 20 20 65 6c 73 65 20 62 65 67 69 6e 0a 20 20 ┆0 then n1:= n1+1 else begin ┆
0xf500…f520 20 20 67 72 61 6d 3a 3d 20 67 72 61 6d 2a 73 69 67 6d 61 28 69 29 3b 20 73 69 67 6d 61 28 69 29 ┆ gram:= gram*sigma(i); sigma(i)┆
0xf520…f540 3a 3d 20 31 2f 73 71 72 74 28 73 69 67 6d 61 28 69 29 29 3b 0a 20 20 65 6e 64 3b 0a 20 20 73 76 ┆:= 1/sqrt(sigma(i)); end; sv┆
0xf540…f560 64 65 63 6f 6d 70 3a 3d 20 67 72 61 6d 3b 0a 63 6f 6d 6d 65 6e 74 20 54 68 65 20 66 69 72 73 74 ┆decomp:= gram; comment The first┆
0xf560…f580 20 6e 31 2d 31 20 6f 66 20 74 68 65 20 75 6e 63 6f 72 72 65 6c 61 74 65 64 20 70 61 72 61 6d 65 ┆ n1-1 of the uncorrelated parame┆
0xf580…f5a0 74 65 72 73 20 61 72 65 0a 20 20 20 20 20 20 20 20 75 6e 64 65 74 65 72 6d 69 6e 65 64 20 62 79 ┆ters are undetermined by┆
0xf5a0…f5c0 20 74 68 65 20 65 71 75 61 74 69 6f 6e 2e 20 54 68 65 79 20 61 72 65 20 61 73 73 75 6d 65 64 0a ┆ the equation. They are assumed ┆
0xf5c0…f5e0 20 20 20 20 20 20 20 20 7a 65 72 6f 20 61 6e 64 20 6f 6e 6c 79 20 74 68 65 20 63 6f 6c 75 6d 6e ┆ zero and only the column┆
0xf5e0…f600 73 20 6e 31 20 74 6f 20 6e 20 6f 66 20 75 20 61 72 65 20 66 6f 72 6d 65 64 20 69 6e 20 61 3b 0a ┆s n1 to n of u are formed in a; ┆
0xf600…f620 3b 67 6f 73 61 76 0a 6c 6f 6f 6b 75 70 20 73 74 72 75 6b 74 75 72 0a 69 66 20 6f 6b 2e 6e 6f 0a ┆;gosav lookup struktur if ok.no ┆
0xf620…f640 28 72 3d 61 6c 67 6f 6c 20 69 6e 64 65 78 2e 6e 6f 0a 72 65 6e 61 6d 65 20 72 2e 73 74 72 75 6b ┆(r=algol index.no rename r.struk┆
0xf640…f660 74 75 72 0a 70 65 72 6d 61 6e 65 6e 74 20 73 74 72 75 6b 74 75 72 2e 31 37 29 0a 0c 0a 0a 0a 0a ┆tur permanent struktur.17) ┆
0xf660…f680 53 54 52 55 4b 54 55 52 50 52 4f 47 52 41 4d 20 31 37 2d 35 2d 31 39 37 34 2e 20 47 4f 53 2e 0a ┆STRUKTURPROGRAM 17-5-1974. GOS. ┆
0xf680…f6a0 0a 62 65 67 69 6e 0a 63 6f 6d 6d 65 6e 74 20 54 68 65 20 69 6e 70 75 74 20 72 75 6c 65 73 20 61 ┆ begin comment The input rules a┆
0xf6a0…f6c0 72 65 3a 0a 20 20 20 20 20 20 31 29 20 41 20 74 65 78 74 73 74 72 69 6e 67 20 69 6e 20 3c 20 3e ┆re: 1) A textstring in < >┆
0xf6c0…f6e0 2e 0a 20 20 20 20 20 20 32 29 20 54 68 65 20 6e 75 6d 62 65 72 20 6f 66 20 61 74 6f 6d 73 20 69 ┆. 2) The number of atoms i┆
0xf6e0…f700 6e 20 74 68 65 20 73 74 72 75 63 74 75 72 65 20 28 4e 29 2e 0a 20 20 20 20 20 20 33 29 20 46 6f ┆n the structure (N). 3) Fo┆
0xf700…f720 72 20 65 61 63 68 20 61 74 6f 6d 3a 20 55 70 20 74 6f 20 74 68 72 65 65 20 63 6f 6f 72 64 69 6e ┆r each atom: Up to three coordin┆
0xf720…f740 61 74 65 73 20 28 6c 61 73 74 20 64 65 6c 2e 3a 20 2c 29 0a 20 20 20 20 20 20 20 20 20 20 61 6e ┆ates (last del.: ,) an┆
0xf740…f760 64 20 74 68 65 20 61 70 70 72 6f 70 69 61 74 65 20 75 6e 63 65 72 74 61 69 6e 74 69 65 73 20 28 ┆d the appropiate uncertainties (┆
0xf760…f780 6c 61 73 74 20 64 65 6c 2e 3a 20 6e 6c 2e 29 2e 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆last del.: nl.). ┆
0xf780…f7a0 78 31 20 20 79 31 20 20 7a 31 2c 20 20 20 20 20 20 20 20 64 78 31 20 20 64 79 31 20 20 64 7a 31 ┆x1 y1 z1, dx1 dy1 dz1┆
0xf7a0…f7c0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 78 32 20 20 2e 20 20 2e 20 20 2e 0a 20 20 20 20 ┆ x2 . . . ┆
0xf7c0…f7e0 20 20 34 29 20 41 6e 79 20 6e 75 6d 62 65 72 20 6f 66 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 ┆ 4) Any number of the following┆
0xf7e0…f800 20 74 79 70 65 73 20 6f 66 20 63 6f 6e 73 74 72 75 63 74 69 6f 6e 73 3a 0a 20 20 20 20 20 20 20 ┆ types of constructions: ┆
0xf800…f820 20 20 20 20 20 20 20 20 70 20 20 64 69 73 74 3a 20 20 69 31 20 6a 31 20 20 20 69 32 20 6a 32 20 ┆ p dist: i1 j1 i2 j2 ┆
0xf820…f840 20 20 2e 20 20 2e 20 20 69 70 20 6a 70 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 70 20 20 ┆ . . ip jp p ┆
0xf840…f860 61 6e 67 6c 65 3a 20 69 31 20 6a 31 20 6b 31 20 20 20 2e 20 20 2e 20 20 2e 20 20 69 70 20 6a 70 ┆angle: i1 j1 k1 . . . ip jp┆
0xf860…f880 20 6b 70 0a 20 20 20 20 20 20 20 20 20 6f 72 20 20 20 20 70 20 20 6f 75 74 6f 3a 20 20 69 31 20 ┆ kp or p outo: i1 ┆
0xf880…f8a0 6a 31 20 6b 31 20 6c 31 20 2e 20 20 2e 20 20 69 70 20 6a 70 20 6b 70 20 6c 70 0a 20 20 20 20 20 ┆j1 k1 l1 . . ip jp kp lp ┆
0xf8a0…f8c0 20 20 20 20 69 6e 64 69 63 61 74 69 6e 67 20 74 68 65 20 64 65 73 69 72 65 64 20 62 6f 6e 64 6c ┆ indicating the desired bondl┆
0xf8c0…f8e0 65 6e 67 74 68 73 20 61 6e 64 20 61 6e 67 6c 65 73 2e 0a 20 20 20 20 20 20 35 29 20 54 68 65 20 ┆engths and angles. 5) The ┆
0xf8e0…f900 69 6e 70 75 74 20 69 73 20 74 65 72 6d 69 6e 61 74 65 64 20 62 79 20 70 20 3d 20 30 3b 0a 69 6e ┆input is terminated by p = 0; in┆
0xf900…f920 74 65 67 65 72 20 69 2c 6a 2c 6b 2c 6c 2c 6d 2c 70 2c 71 2c 4e 3b 0a 62 6f 6f 6c 65 61 6e 20 6e ┆teger i,j,k,l,m,p,q,N; boolean n┆
0xf920…f940 6c 2c 20 73 70 2c 20 63 6c 6f 73 65 72 65 73 3b 0a 61 72 72 61 79 20 48 28 31 3a 31 29 2c 20 68 ┆l, sp, closeres; array H(1:1), h┆
0xf940…f960 65 61 64 28 31 3a 31 32 29 3b 0a 7a 6f 6e 65 20 72 65 73 28 31 32 38 2c 31 2c 73 74 64 65 72 72 ┆ead(1:12); zone res(128,1,stderr┆
0xf960…f980 6f 72 29 3b 0a 63 6c 6f 73 65 72 65 73 3a 3d 20 6f 75 74 6d 65 64 69 75 6d 28 72 65 73 29 3b 0a ┆or); closeres:= outmedium(res); ┆
0xf980…f9a0 6e 6c 3a 3d 20 66 61 6c 73 65 20 61 64 64 20 31 30 3b 20 73 70 3a 3d 20 66 61 6c 73 65 20 61 64 ┆nl:= false add 10; sp:= false ad┆
0xf9a0…f9c0 64 20 33 32 3b 0a 0a 6e 65 77 5f 64 61 74 61 3a 0a 72 65 61 64 68 65 61 64 28 69 6e 2c 68 65 61 ┆d 32; new_data: readhead(in,hea┆
0xf9c0…f9e0 64 2c 31 29 3b 20 72 65 61 64 28 69 6e 2c 4e 29 3b 0a 69 3a 3d 20 31 3b 20 20 20 77 72 69 74 65 ┆d,1); read(in,N); i:= 1; write┆
0xf9e0…fa00 28 72 65 73 2c 3c 3a 3c 31 32 3e 3a 3e 2c 6e 6c 2c 34 2c 73 74 72 69 6e 67 20 68 65 61 64 28 69 ┆(res,<:<12>:>,nl,4,string head(i┆
0xfa00…fa20 6e 63 72 65 61 73 65 28 69 29 29 2c 6e 6c 2c 32 2c 3c 3a 0a 43 41 52 54 45 53 49 41 4e 20 43 4f ┆ncrease(i)),nl,2,<: CARTESIAN CO┆
0xfa20…fa40 4f 52 44 49 4e 41 54 45 53 20 28 5d 29 3a 3a 3e 2c 6e 6c 2c 32 29 3b 0a 0a 62 65 67 69 6e 0a 72 ┆ORDINATES (Å)::>,nl,2); begin r┆
0xfa40…fa60 65 61 6c 20 74 79 70 65 2c 20 72 61 64 3b 0a 61 72 72 61 79 20 58 2c 20 64 58 28 31 3a 4e 2c 31 ┆eal type, rad; array X, dX(1:N,1┆
0xfa60…fa80 3a 33 29 3b 0a 72 65 61 6c 20 70 72 6f 63 65 64 75 72 65 20 76 65 63 74 6f 72 28 65 2c 69 2c 6a ┆:3); real procedure vector(e,i,j┆
0xfa80…faa0 29 3b 0a 20 20 20 76 61 6c 75 65 20 69 2c 6a 3b 20 69 6e 74 65 67 65 72 20 69 2c 6a 3b 20 61 72 ┆); value i,j; integer i,j; ar┆
0xfaa0…fac0 72 61 79 20 65 3b 0a 20 20 20 62 65 67 69 6e 0a 20 20 20 72 65 61 6c 20 6c 2c 72 3b 20 69 6e 74 ┆ray e; begin real l,r; int┆
0xfac0…fae0 65 67 65 72 20 6b 3b 0a 20 20 20 72 3a 3d 20 30 3b 0a 20 20 20 66 6f 72 20 6b 3a 3d 31 20 73 74 ┆eger k; r:= 0; for k:=1 st┆
0xfae0…fb00 65 70 20 31 20 75 6e 74 69 6c 20 33 20 64 6f 20 62 65 67 69 6e 0a 20 20 20 20 20 20 65 28 6b 29 ┆ep 1 until 3 do begin e(k)┆
0xfb00…fb20 3a 3d 20 6c 3a 3d 20 58 28 6a 2c 6b 29 2d 58 28 69 2c 6b 29 3b 20 72 3a 3d 20 72 2b 20 6c 2a 6c ┆:= l:= X(j,k)-X(i,k); r:= r+ l*l┆
0xfb20…fb40 20 65 6e 64 3b 0a 20 20 20 72 3a 3d 20 76 65 63 74 6f 72 3a 3d 20 73 71 72 74 28 72 29 3b 20 72 ┆ end; r:= vector:= sqrt(r); r┆
0xfb40…fb60 3a 3d 20 31 2f 72 3b 0a 20 20 20 66 6f 72 20 6b 3a 3d 20 31 20 73 74 65 70 20 31 20 75 6e 74 69 ┆:= 1/r; for k:= 1 step 1 unti┆
0xfb60…fb80 6c 20 33 20 64 6f 20 65 28 6b 29 3a 3d 20 65 28 6b 29 2a 72 0a 65 6e 64 20 76 65 63 74 6f 72 3b ┆l 3 do e(k):= e(k)*r end vector;┆
0xfb80…fba0 0a 72 65 61 6c 20 70 72 6f 63 65 64 75 72 65 20 64 6f 74 28 61 2c 62 29 3b 0a 20 20 20 61 72 72 ┆ real procedure dot(a,b); arr┆
0xfba0…fbc0 61 79 20 61 2c 62 3b 0a 20 20 20 62 65 67 69 6e 20 72 65 61 6c 20 64 3b 20 69 6e 74 65 67 65 72 ┆ay a,b; begin real d; integer┆
0xfbc0…fbe0 20 6b 3b 0a 20 20 20 64 3a 3d 20 30 3b 20 66 6f 72 20 6b 3a 3d 31 20 73 74 65 70 20 31 20 75 6e ┆ k; d:= 0; for k:=1 step 1 un┆
0xfbe0…fc00 74 69 6c 20 33 20 64 6f 20 64 3a 3d 20 64 2b 20 61 28 6b 29 2a 62 28 6b 29 3b 0a 20 20 20 64 6f ┆til 3 do d:= d+ a(k)*b(k); do┆