|
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: 7680 (0x1e00)
Names: »fip4x«
└─⟦667bb35d6⟧ Bits:30007480 RC8000 Dump tape fra HCØ.
└─⟦4334b4c0b⟧
└─⟦this⟧ »fip4x«
0x0000…0020 (0,) 69 20 00 61 38 64 33 64 31 00 00 00 00 00 00 00 00 00 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆i a8d3d1 ┆
0x0020…0040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x16…]
0x0300…0320 03 63 fd 03 65 fd 02 05 cc 02 05 cc 02 05 cc 80 00 08 70 72 69 6d 69 6e 00 00 00 00 00 00 00 41 ┆ c e primin A┆
0x0320…0340 32 00 00 00 00 00 00 00 00 00 00 00 01 02 00 2c 00 00 01 00 00 00 03 64 09 03 64 19 00 00 00 00 ┆2 , d d ┆
0x0340…0360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 03 63 fe 03 64 64 00 30 00 03 63 fe 03 64 64 00 00 00 ┆ c dd 0 c dd ┆
0x0360…0380 00 00 00 00 00 00 00 00 00 00 00 00 03 64 1a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 02 80 00 ┆ d ┆
0x0380…03a0 00 7f ff ff 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x03a0…03c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x12…]
0x0600…0620 3b 20 74 69 6d 65 20 32 30 20 30 0a 0a 6d 6f 64 65 20 6c 69 73 74 2e 79 65 73 0a 6c 6b 6a 3d 6c ┆; time 20 0 mode list.yes lkj=l┆
0x0620…0640 6f 6f 6b 75 70 20 64 69 73 63 72 65 74 65 0a 69 66 20 6f 6b 2e 6e 6f 0a 69 20 74 61 6c 64 69 73 ┆ookup discrete if ok.no i taldis┆
0x0640…0660 63 72 0a 6d 6f 64 65 20 6c 69 73 74 2e 79 65 73 0a 28 0a 6f 20 61 6c 6c 69 73 74 0a 68 65 61 64 ┆cr mode list.yes ( o allist head┆
0x0660…0680 20 63 70 75 0a 64 69 73 63 72 65 74 65 0a 68 65 61 64 20 63 70 75 0a 6f 20 63 0a 63 6f 6e 76 65 ┆ cpu discrete head cpu o c conve┆
0x0680…06a0 72 74 20 61 6c 6c 69 73 74 0a 66 69 6e 69 73 0a 6d 6f 64 65 20 6c 69 73 74 2e 6e 6f 29 0a 20 62 ┆rt allist finis mode list.no) b┆
0x06a0…06c0 65 61 6d 20 66 6f 69 6c 20 73 65 74 20 61 38 64 65 63 33 64 31 20 32 20 41 20 56 49 49 49 20 20 ┆eam foil set a8dec3d1 2 A VIII ┆
0x06c0…06e0 20 33 64 20 4d 65 56 20 20 31 2e 30 30 20 73 6c 69 74 20 20 30 2e 31 30 20 74 61 75 20 20 30 2e ┆ 3d MeV 1.00 slit 0.10 tau 0.┆
0x06e0…0700 31 33 0a 0a 54 54 46 46 54 46 54 54 46 0a 20 20 35 0a 20 20 32 0a 20 20 37 0a 20 20 31 0a 20 20 ┆13 TTFFTFTTF 5 2 7 1 ┆
0x0700…0720 20 20 30 2e 31 36 20 20 20 31 38 2e 35 39 20 20 31 31 38 0a 20 31 33 30 36 2e 30 30 20 31 31 39 ┆ 0.16 18.59 118 1306.00 119┆
0x0720…0740 30 2e 30 30 20 20 38 39 32 2e 30 30 20 20 34 37 30 2e 30 30 20 20 32 38 34 2e 30 30 0a 20 20 32 ┆0.00 892.00 470.00 284.00 2┆
0x0740…0760 35 30 2e 30 30 20 20 32 31 32 2e 30 30 20 20 31 36 36 2e 30 30 20 20 31 38 36 2e 30 30 20 20 31 ┆50.00 212.00 166.00 186.00 1┆
0x0760…0780 35 30 2e 30 30 0a 20 20 31 34 30 2e 30 30 20 20 31 35 36 2e 30 30 20 20 31 33 32 2e 30 30 20 20 ┆50.00 140.00 156.00 132.00 ┆
0x0780…07a0 31 31 38 2e 30 30 20 20 31 30 32 2e 30 30 0a 20 20 31 30 37 2e 30 30 20 20 31 30 36 2e 30 30 20 ┆118.00 102.00 107.00 106.00 ┆
0x07a0…07c0 20 20 37 36 2e 30 30 20 20 20 39 37 2e 30 30 20 20 20 39 32 2e 30 30 0a 20 20 31 30 32 2e 30 30 ┆ 76.00 97.00 92.00 102.00┆
0x07c0…07e0 20 20 20 38 33 2e 30 30 20 20 20 38 34 2e 30 30 20 20 20 38 30 2e 30 30 20 20 20 37 36 2e 30 30 ┆ 83.00 84.00 80.00 76.00┆
0x07e0…0800 0a 20 20 20 39 30 2e 30 30 20 20 20 37 38 2e 30 30 20 20 20 38 31 2e 30 30 20 20 20 36 32 2e 30 ┆ 90.00 78.00 81.00 62.0┆
0x0800…0820 30 20 20 20 38 34 2e 30 30 0a 20 20 20 35 36 2e 30 30 20 20 20 37 31 2e 30 30 20 20 20 37 30 2e ┆0 84.00 56.00 71.00 70.┆
0x0820…0840 30 30 20 20 20 36 33 2e 30 30 20 20 20 35 38 2e 30 30 0a 20 20 20 35 32 2e 30 30 20 20 20 34 36 ┆00 63.00 58.00 52.00 46┆
0x0840…0860 2e 30 30 20 20 20 35 35 2e 30 30 20 20 20 36 31 2e 30 30 20 20 20 35 36 2e 30 30 0a 20 20 20 34 ┆.00 55.00 61.00 56.00 4┆
0x0860…0880 32 2e 30 30 20 20 20 35 34 2e 30 30 20 20 20 34 39 2e 30 30 20 20 20 35 38 2e 30 30 20 20 20 36 ┆2.00 54.00 49.00 58.00 6┆
0x0880…08a0 31 2e 30 30 0a 20 20 20 35 34 2e 30 30 20 20 20 35 32 2e 30 30 20 20 20 35 33 2e 30 30 20 20 20 ┆1.00 54.00 52.00 53.00 ┆
0x08a0…08c0 35 32 2e 30 30 20 20 20 34 34 2e 30 30 0a 20 20 20 34 36 2e 30 30 20 20 20 35 34 2e 30 30 20 20 ┆52.00 44.00 46.00 54.00 ┆
0x08c0…08e0 20 34 32 2e 30 30 20 20 20 34 36 2e 30 30 20 20 20 35 34 2e 30 30 0a 20 20 20 34 32 2e 30 30 20 ┆ 42.00 46.00 54.00 42.00 ┆
0x08e0…0900 20 20 35 30 2e 30 30 20 20 20 34 30 2e 30 30 20 20 20 34 32 2e 30 30 20 20 20 33 33 2e 30 30 0a ┆ 50.00 40.00 42.00 33.00 ┆
0x0900…0920 (1,) 03 63 fd 03 65 fd 02 05 cc 02 05 cc 02 05 cc 80 00 04 61 38 64 33 64 31 00 00 00 00 00 00 00 41 ┆ c e a8d3d1 A┆
0x0920…0940 38 00 00 00 00 00 00 00 00 01 00 00 01 02 00 2c 69 01 00 00 00 00 03 64 1b 03 65 fd 00 00 00 00 ┆8 ,i d e ┆
0x0940…0960 00 00 00 00 00 00 00 00 00 00 00 00 00 00 03 63 fe 03 65 fc 00 30 00 03 63 fe 03 65 fc 00 00 00 ┆ c e 0 c e ┆
0x0960…0980 00 00 00 00 00 00 00 00 00 00 00 00 03 65 fe 77 72 6b 30 30 30 32 30 37 00 00 00 00 00 02 00 00 ┆ e wrk000207 ┆
0x0980…09a0 78 00 00 81 6c 6c 69 73 74 0a 66 69 6e 69 73 0a 6d 6f 64 65 20 6c 69 73 74 2e 6e 6f 29 0a 20 62 ┆x llist finis mode list.no) b┆
0x09a0…09c0 65 61 6d 20 66 6f 69 6c 20 73 65 74 20 61 38 64 65 63 33 64 31 20 32 20 41 20 56 49 49 49 20 20 ┆eam foil set a8dec3d1 2 A VIII ┆
0x09c0…09e0 20 33 64 20 4d 65 56 20 20 31 2e 30 30 20 73 6c 69 74 20 20 30 2e 31 30 20 74 61 75 20 20 30 2e ┆ 3d MeV 1.00 slit 0.10 tau 0.┆
0x09e0…0a00 31 33 0a 0a 54 54 46 46 54 46 54 54 46 0a 20 20 35 0a 20 20 32 0a 20 20 37 0a 20 20 31 0a 20 20 ┆13 TTFFTFTTF 5 2 7 1 ┆
0x0a00…0a20 20 20 30 2e 31 36 20 20 20 31 38 2e 35 39 20 20 31 31 38 0a 20 31 33 30 36 2e 30 30 20 31 31 39 ┆ 0.16 18.59 118 1306.00 119┆
0x0a20…0a40 30 2e 30 30 20 20 38 39 32 2e 30 30 20 20 34 37 30 2e 30 30 20 20 32 38 34 2e 30 30 0a 20 20 32 ┆0.00 892.00 470.00 284.00 2┆
0x0a40…0a60 35 30 2e 30 30 20 20 32 31 32 2e 30 30 20 20 31 36 36 2e 30 30 20 20 31 38 36 2e 30 30 20 20 31 ┆50.00 212.00 166.00 186.00 1┆
0x0a60…0a80 35 30 2e 30 30 0a 20 20 31 34 30 2e 30 30 20 20 31 35 36 2e 30 30 20 20 31 33 32 2e 30 30 20 20 ┆50.00 140.00 156.00 132.00 ┆
0x0a80…0aa0 31 31 38 2e 30 30 20 20 31 30 32 2e 30 30 0a 20 20 31 30 37 2e 30 30 20 20 31 30 36 2e 30 30 20 ┆118.00 102.00 107.00 106.00 ┆
0x0aa0…0ac0 20 20 37 36 2e 30 30 20 20 20 39 37 2e 30 30 20 20 20 39 32 2e 30 30 0a 20 20 31 30 32 2e 30 30 ┆ 76.00 97.00 92.00 102.00┆
0x0ac0…0ae0 20 20 20 38 33 2e 30 30 20 20 20 38 34 2e 30 30 20 20 20 38 30 2e 30 30 20 20 20 37 36 2e 30 30 ┆ 83.00 84.00 80.00 76.00┆
0x0ae0…0b00 0a 20 20 20 39 30 2e 30 30 20 20 20 37 38 2e 30 30 20 20 20 38 31 2e 30 30 20 20 20 36 32 2e 30 ┆ 90.00 78.00 81.00 62.0┆
0x0b00…0b20 30 20 20 20 38 34 2e 30 30 0a 20 20 20 35 36 2e 30 30 20 20 20 37 31 2e 30 30 20 20 20 37 30 2e ┆0 84.00 56.00 71.00 70.┆
0x0b20…0b40 30 30 20 20 20 36 33 2e 30 30 20 20 20 35 38 2e 30 30 0a 20 20 20 35 32 2e 30 30 20 20 20 34 36 ┆00 63.00 58.00 52.00 46┆
0x0b40…0b60 2e 30 30 20 20 20 35 35 2e 30 30 20 20 20 36 31 2e 30 30 20 20 20 35 36 2e 30 30 0a 20 20 20 34 ┆.00 55.00 61.00 56.00 4┆
0x0b60…0b80 32 2e 30 30 20 20 20 35 34 2e 30 30 20 20 20 34 39 2e 30 30 20 20 20 35 38 2e 30 30 20 20 20 36 ┆2.00 54.00 49.00 58.00 6┆
0x0b80…0ba0 31 2e 30 30 0a 20 20 20 35 34 2e 30 30 20 20 20 35 32 2e 30 30 20 20 20 35 33 2e 30 30 20 20 20 ┆1.00 54.00 52.00 53.00 ┆
0x0ba0…0bc0 35 32 2e 30 30 20 20 20 34 34 2e 30 30 0a 20 20 20 34 36 2e 30 30 20 20 20 35 34 2e 30 30 20 20 ┆52.00 44.00 46.00 54.00 ┆
0x0bc0…0be0 20 34 32 2e 30 30 20 20 20 34 36 2e 30 30 20 20 20 35 34 2e 30 30 0a 20 20 20 34 32 2e 30 30 20 ┆ 42.00 46.00 54.00 42.00 ┆
0x0be0…0c00 20 20 35 30 2e 30 30 20 20 20 34 30 2e 30 30 20 20 20 34 32 2e 30 30 20 20 20 33 33 2e 30 30 0a ┆ 50.00 40.00 42.00 33.00 ┆
0x0c00…0c20 66 6f 72 20 73 74 61 74 65 3a 3d 73 74 61 74 65 2b 31 20 77 68 69 6c 65 20 73 74 61 74 65 3c 3d ┆for state:=state+1 while state<=┆
0x0c20…0c40 73 74 61 74 65 6e 6f 2d 73 74 61 74 65 69 6e 64 65 78 20 61 6e 64 0a 20 20 20 20 20 20 2d 2c 66 ┆stateno-stateindex and -,f┆
0x0c40…0c60 6f 75 6e 64 20 64 6f 0a 20 20 20 20 62 65 67 69 6e 0a 20 20 20 20 20 20 67 65 74 73 74 61 74 65 ┆ound do begin getstate┆
0x0c60…0c80 28 73 74 61 74 65 73 2c 73 74 61 74 65 2c 6e 2c 4a 2c 30 2c 6e 73 74 61 72 2c 45 63 6d 2c 4c 2c ┆(states,state,n,J,0,nstar,Ecm,L,┆
0x0c80…0ca0 61 70 70 29 3b 0a 20 20 20 20 20 20 69 66 20 74 65 73 74 20 74 68 65 6e 0a 20 20 20 20 20 20 62 ┆app); if test then b┆
0x0ca0…0cc0 65 67 69 6e 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 22 6e 6c 22 2c 31 2c 22 2a ┆egin write(out,"nl",1,"*┆
0x0cc0…0ce0 22 2c 31 2c 3c 3a 66 69 6e 64 73 74 61 74 65 20 3a 3e 2c 73 74 61 74 65 2b 73 74 61 74 65 69 6e ┆",1,<:findstate :>,state+statein┆
0x0ce0…0d00 64 65 78 2c 22 73 70 22 2c 32 29 3b 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 73 74 61 74 65 28 ┆dex,"sp",2); writestate(┆
0x0d00…0d20 6f 75 74 2c 4c 2c 6e 2c 6c 2c 4a 29 3b 0a 20 20 20 20 20 20 65 6e 64 20 74 65 73 74 3b 0a 20 20 ┆out,L,n,l,J); end test; ┆
0x0d20…0d40 20 20 20 20 69 66 20 6e 3d 6e 61 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆ if n=na then begin ┆
0x0d40…0d60 20 20 20 20 20 20 20 66 6f 75 6e 64 3a 3d 4c 3d 4c 61 20 61 6e 64 20 4a 3d 4a 61 3b 0a 20 20 20 ┆ found:=L=La and J=Ja; ┆
0x0d60…0d80 20 20 20 20 20 69 66 20 66 6f 75 6e 64 20 74 68 65 6e 20 66 73 74 61 74 65 3a 3d 73 74 61 74 65 ┆ if found then fstate:=state┆
0x0d80…0da0 2b 73 74 61 74 65 69 6e 64 65 78 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 73 65 61 72 63 68 3b ┆+stateindex; end search;┆
0x0da0…0dc0 0a 20 20 20 20 20 20 65 6e 64 20 66 6f 72 73 74 61 74 65 3b 0a 20 20 20 20 65 6e 64 20 6c 3d 6c ┆ end forstate; end l=l┆
0x0dc0…0de0 61 3b 0a 20 20 20 20 65 6e 64 20 6c 20 61 6c 6c 6f 77 65 64 3b 0a 20 20 66 69 6e 64 73 74 61 74 ┆a; end l allowed; findstat┆
0x0de0…0e00 65 3a 3d 66 73 74 61 74 65 3b 0a 65 6e 64 20 6c 6f 63 61 6c 20 62 6c 6f 63 6b 20 66 6f 72 20 66 ┆e:=fstate; end local block for f┆
0x0e00…0e20 69 6e 64 73 74 61 74 65 3b 0a 0a 70 72 6f 63 65 64 75 72 65 20 72 65 61 64 73 74 61 74 65 61 75 ┆indstate; procedure readstateau┆
0x0e20…0e40 78 28 62 73 6e 61 6d 65 2c 70 61 72 74 65 72 6d 2c 73 74 61 74 65 61 75 78 29 3b 0a 69 6e 74 65 ┆x(bsname,parterm,stateaux); inte┆
0x0e40…0e60 67 65 72 20 61 72 72 61 79 20 70 61 72 74 65 72 6d 3b 0a 61 72 72 61 79 20 62 73 6e 61 6d 65 2c ┆ger array parterm; array bsname,┆
0x0e60…0e80 73 74 61 74 65 61 75 78 3b 0a 62 65 67 69 6e 0a 62 6f 6f 6c 65 61 6e 20 65 6e 64 63 6f 6e 64 2c ┆stateaux; begin boolean endcond,┆
0x0e80…0ea0 74 65 73 74 3b 0a 69 6e 74 65 67 65 72 20 63 2c 63 68 61 72 3b 0a 72 65 61 6c 20 76 61 6c 3b 0a ┆test; integer c,char; real val; ┆
0x0ea0…0ec0 61 6c 67 6f 6c 20 63 6f 70 79 2e 73 74 61 74 65 76 61 72 3b 0a 74 65 73 74 3a 3d 6c 6f 6f 6b 75 ┆algol copy.statevar; test:=looku┆
0x0ec0…0ee0 70 65 6e 74 72 79 28 3c 3a 74 65 73 74 61 75 78 3a 3e 29 3d 30 3b 0a 65 6e 64 63 6f 6e 64 3a 3d ┆pentry(<:testaux:>)=0; endcond:=┆
0x0ee0…0f00 66 61 6c 73 65 3b 0a 63 6c 65 61 72 61 72 72 61 79 28 73 74 61 74 65 61 75 78 29 3b 0a 66 6f 72 ┆false; cleararray(stateaux); for┆
0x0f00…0f20 04 3a 47 04 3c 47 03 a0 04 03 a0 04 03 a0 04 80 00 04 72 79 64 73 74 72 75 63 74 00 00 00 00 41 ┆ :G <G rydstruct A┆
0x0f20…0f40 30 00 00 00 00 00 00 00 00 10 00 00 00 03 ae 8c 0a 01 00 00 13 38 04 3c 13 04 3c 47 72 79 64 73 ┆0 8 < <Gryds┆
0x0f40…0f60 74 72 75 63 74 00 00 00 00 00 0a 00 00 00 04 3a 48 04 3c 46 00 30 00 04 3a 48 04 3c 46 00 00 0f ┆truct :H <F 0 :H <F ┆
0x0f60…0f80 00 00 00 00 00 00 00 00 00 00 00 00 04 3c 48 77 72 6b 30 30 30 30 36 35 00 00 00 00 00 02 00 00 ┆ <Hwrk000065 ┆
0x0f80…0fa0 78 00 00 81 3b 0a 20 20 20 20 20 20 69 66 20 74 65 73 74 20 74 68 65 6e 0a 20 20 20 20 20 20 62 ┆x ; if test then b┆
0x0fa0…0fc0 65 67 69 6e 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 28 6f 75 74 2c 22 6e 6c 22 2c 31 2c 22 2a ┆egin write(out,"nl",1,"*┆
0x0fc0…0fe0 22 2c 31 2c 3c 3a 66 69 6e 64 73 74 61 74 65 20 3a 3e 2c 73 74 61 74 65 2b 73 74 61 74 65 69 6e ┆",1,<:findstate :>,state+statein┆
0x0fe0…1000 64 65 78 2c 22 73 70 22 2c 32 29 3b 0a 20 20 20 20 20 20 20 20 77 72 69 74 65 73 74 61 74 65 28 ┆dex,"sp",2); writestate(┆
0x1000…1020 6f 75 74 2c 4c 2c 6e 2c 6c 2c 4a 29 3b 0a 20 20 20 20 20 20 65 6e 64 20 74 65 73 74 3b 0a 20 20 ┆out,L,n,l,J); end test; ┆
0x1020…1040 20 20 20 20 69 66 20 6e 3d 6e 61 20 74 68 65 6e 0a 20 20 20 20 20 20 20 20 62 65 67 69 6e 0a 20 ┆ if n=na then begin ┆
0x1040…1060 20 20 20 20 20 20 20 66 6f 75 6e 64 3a 3d 4c 3d 4c 61 20 61 6e 64 20 4a 3d 4a 61 3b 0a 20 20 20 ┆ found:=L=La and J=Ja; ┆
0x1060…1080 20 20 20 20 20 69 66 20 66 6f 75 6e 64 20 74 68 65 6e 20 66 73 74 61 74 65 3a 3d 73 74 61 74 65 ┆ if found then fstate:=state┆
0x1080…10a0 2b 73 74 61 74 65 69 6e 64 65 78 3b 0a 20 20 20 20 20 20 20 20 65 6e 64 20 73 65 61 72 63 68 3b ┆+stateindex; end search;┆
0x10a0…10c0 0a 20 20 20 20 20 20 65 6e 64 20 66 6f 72 73 74 61 74 65 3b 0a 20 20 20 20 65 6e 64 20 6c 3d 6c ┆ end forstate; end l=l┆
0x10c0…10e0 61 3b 0a 20 20 20 20 65 6e 64 20 6c 20 61 6c 6c 6f 77 65 64 3b 0a 20 20 66 69 6e 64 73 74 61 74 ┆a; end l allowed; findstat┆
0x10e0…1100 65 3a 3d 66 73 74 61 74 65 3b 0a 65 6e 64 20 6c 6f 63 61 6c 20 62 6c 6f 63 6b 20 66 6f 72 20 66 ┆e:=fstate; end local block for f┆
0x1100…1120 69 6e 64 73 74 61 74 65 3b 0a 0a 70 72 6f 63 65 64 75 72 65 20 72 65 61 64 73 74 61 74 65 61 75 ┆indstate; procedure readstateau┆
0x1120…1140 78 28 62 73 6e 61 6d 65 2c 70 61 72 74 65 72 6d 2c 73 74 61 74 65 61 75 78 29 3b 0a 69 6e 74 65 ┆x(bsname,parterm,stateaux); inte┆
0x1140…1160 67 65 72 20 61 72 72 61 79 20 70 61 72 74 65 72 6d 3b 0a 61 72 72 61 79 20 62 73 6e 61 6d 65 2c ┆ger array parterm; array bsname,┆
0x1160…1180 73 74 61 74 65 61 75 78 3b 0a 62 65 67 69 6e 0a 62 6f 6f 6c 65 61 6e 20 65 6e 64 63 6f 6e 64 2c ┆stateaux; begin boolean endcond,┆
0x1180…11a0 74 65 73 74 3b 0a 69 6e 74 65 67 65 72 20 63 2c 63 68 61 72 3b 0a 72 65 61 6c 20 76 61 6c 3b 0a ┆test; integer c,char; real val; ┆
0x11a0…11c0 61 6c 67 6f 6c 20 63 6f 70 79 2e 73 74 61 74 65 76 61 72 3b 0a 74 65 73 74 3a 3d 6c 6f 6f 6b 75 ┆algol copy.statevar; test:=looku┆
0x11c0…11e0 70 65 6e 74 72 79 28 3c 3a 74 65 73 74 61 75 78 3a 3e 29 3d 30 3b 0a 65 6e 64 63 6f 6e 64 3a 3d ┆pentry(<:testaux:>)=0; endcond:=┆
0x11e0…1200 66 61 6c 73 65 3b 0a 63 6c 65 61 72 61 72 72 61 79 28 73 74 61 74 65 61 75 78 29 3b 0a 66 6f 72 ┆false; cleararray(stateaux); for┆
0x1200…1220 (2,) 64 65 72 20 61 6e 76 65 6e 64 65 72 0a 20 66 6f 72 73 6b 65 6c 6c 69 67 20 74 65 6b 6e 6f 6c 6f ┆der anvender forskellig teknolo┆
0x1220…1240 67 69 2c 20 6f 67 20 73 6f 6d 20 64 65 72 66 6f 72 20 68 61 72 20 66 6f 72 73 6b 65 6c 6c 69 67 ┆gi, og som derfor har forskellig┆
0x1240…1260 0a 70 72 69 73 20 6f 67 20 70 7d 6c 69 64 65 6c 69 67 68 65 64 2e 20 46 6f 72 73 6b 65 6c 6c 65 ┆ pris og pålidelighed. Forskelle┆
0x1260…1280 6e 20 6c 69 67 67 65 72 20 66 7c 72 73 74 20 6f 67 20 66 72 65 6d 6d 65 73 74 0a 69 20 64 65 6e ┆n ligger først og fremmest i den┆
0x1280…12a0 20 6d 7d 64 65 20 64 65 74 20 65 6c 65 6b 74 72 69 73 6b 65 20 73 69 67 6e 61 6c 20 67 65 6e 65 ┆ måde det elektriske signal gene┆
0x12a0…12c0 72 65 72 65 73 20 70 7d 2c 20 6e 7d 72 20 65 6e 20 74 61 73 74 0a 74 72 79 6b 6b 65 73 20 6e 65 ┆reres på, når en tast trykkes ne┆
0x12c0…12e0 64 2e 0a 44 65 72 20 65 72 20 64 65 6e 20 68 65 6c 74 20 73 69 6d 70 6c 65 20 6d 65 6b 61 6e 69 ┆d. Der er den helt simple mekani┆
0x12e0…1300 73 6b 65 20 6b 6f 6e 74 61 6b 74 2c 20 6d 65 64 0a 65 6e 20 6c 65 76 65 74 69 64 20 70 7d 20 6f ┆ske kontakt, med en levetid på o┆
0x1300…1320 6d 6b 72 69 6e 67 20 35 2d 31 30 20 6d 69 6c 6c 69 6f 6e 65 72 20 61 6e 73 6c 61 67 2c 0a 20 22 ┆mkring 5-10 millioner anslag, "┆
0x1320…1340 72 65 65 64 2d 73 77 69 74 63 68 22 20 6b 6f 6e 74 61 6b 74 65 72 20 6d 65 64 0a 65 6e 20 6c 65 ┆reed-switch" kontakter med en le┆
0x1340…1360 76 65 74 69 64 20 70 7d 20 35 30 2d 31 30 30 20 6d 69 6c 6c 69 6f 6e 65 72 20 61 6e 73 6c 61 67 ┆vetid på 50-100 millioner anslag┆
0x1360…1380 2c 20 65 6c 6c 65 72 20 64 65 72 0a 61 6e 76 65 6e 64 65 73 20 65 6c 65 6b 74 72 6f 6e 69 73 6b ┆, eller der anvendes elektronisk┆
0x1380…13a0 65 20 74 61 73 74 61 74 75 72 65 72 2c 0a 68 76 6f 72 20 64 65 72 20 69 6b 6b 65 20 65 72 20 6e ┆e tastaturer, hvor der ikke er n┆
0x13a0…13c0 6f 67 65 6e 20 6d 65 6b 61 6e 69 73 6b 20 6b 6f 6e 74 61 6b 74 2e 20 4c 65 76 65 74 69 64 73 2d ┆ogen mekanisk kontakt. Levetids-┆
0x13c0…13e0 0a 66 6f 72 73 6b 65 6c 6c 65 6e 65 20 65 72 20 64 6f 67 20 69 6b 6b 65 20 76 7b 73 65 6e 74 6c ┆ forskellene er dog ikke væsentl┆
0x13e0…1400 69 67 65 20 74 69 6c 0a 64 65 20 61 6e 76 65 6e 64 65 6c 73 65 72 20 76 69 20 6f 6d 74 61 6c 65 ┆ige til de anvendelser vi omtale┆
0x1400…1420 72 20 68 65 72 2e 0a 2a 6e 6c 31 2a 2a 6e 6c 31 2a 0a 4d 65 64 20 68 65 6e 73 79 6e 20 74 69 6c ┆r her. *nl1**nl1* Med hensyn til┆
0x1420…1440 20 73 6b 7b 72 6d 65 6e 20 65 72 20 64 65 72 20 70 7d 20 64 65 20 66 6c 65 73 74 65 0a 73 6b 7b ┆ skærmen er der på de fleste skæ┆
0x1440…1460 72 6d 74 65 72 6d 69 6e 61 6c 65 72 20 70 6c 61 64 73 20 74 69 6c 20 6f 6d 6b 72 69 6e 67 20 20 ┆rmterminaler plads til omkring ┆
0x1460…1480 32 35 20 6c 69 6e 69 65 72 20 6d 65 64 20 38 30 20 74 65 67 6e 20 70 7d 20 68 76 65 72 2e 0a 49 ┆25 linier med 80 tegn på hver. I┆
0x1480…14a0 20 64 65 20 69 6e 74 65 67 72 65 72 65 64 65 20 73 79 73 74 65 6d 65 72 20 76 69 6c 20 73 6b 7b ┆ de integrerede systemer vil skæ┆
0x14a0…14c0 72 6d 65 6e 20 6f 66 74 65 20 76 7b 72 65 20 6d 69 6e 64 72 65 2c 0a 6f 67 20 64 65 72 20 65 72 ┆rmen ofte være mindre, og der er┆
0x14c0…14e0 20 6d 7d 73 6b 65 20 6b 75 6e 20 70 6c 61 64 73 20 74 69 6c 20 31 36 20 6c 69 6e 69 65 72 20 61 ┆ måske kun plads til 16 linier a┆
0x14e0…1500 20 34 30 20 74 65 67 6e 2e 0a 49 20 62 65 67 67 65 20 74 69 6c 66 7b 6c 64 65 20 76 69 6c 20 73 ┆ 40 tegn. I begge tilfælde vil s┆
0x1500…1520 6b 7b 72 6d 65 6e 65 20 64 6f 67 20 68 7c 6a 73 74 20 73 61 6e 64 73 79 6e 6c 69 67 74 0a 76 7b ┆kærmene dog højst sandsynligt væ┆
0x1520…1540 72 65 20 69 6e 64 6b 7c 62 74 20 68 6f 73 20 65 6e 20 73 74 7c 72 72 65 20 70 72 6f 64 75 63 65 ┆re indkøbt hos en større produce┆
0x1540…1560 6e 74 20 61 66 20 73 6b 7b 72 6d 65 2c 0a 6f 67 20 64 65 72 20 65 72 20 6e 6f 72 6d 61 6c 74 20 ┆nt af skærme, og der er normalt ┆
0x1560…1580 69 6b 6b 65 20 70 72 6f 62 6c 65 6d 65 72 20 6d 65 64 20 70 7d 6c 69 64 65 6c 69 67 68 65 64 65 ┆ikke problemer med pålidelighede┆
0x1580…15a0 6e 2e 0a 2a 6e 6c 33 2a 0a 4c 69 6e 69 65 73 6b 72 69 76 65 72 65 2e 2a 6e 6c 31 2a 0a 2d 2d 2d ┆n. *nl3* Linieskrivere.*nl1* ---┆
0x15a0…15c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 6e 6c 2a 2a 6e 6c 31 2a 0a 49 20 6d 69 6b 72 6f 64 61 74 61 ┆-----------*nl**nl1* I mikrodata┆
0x15c0…15e0 6d 61 74 6b 6f 6e 66 69 67 75 72 61 74 69 6f 6e 65 72 20 74 69 6c 20 61 64 6d 69 6e 69 73 74 72 ┆matkonfigurationer til administr┆
0x15e0…1600 61 74 69 76 74 20 62 72 75 67 0a 6d 7d 20 6e 7c 64 76 65 6e 64 69 67 76 69 73 20 69 6e 64 67 7d ┆ativt brug må nødvendigvis indgå┆
0x1600…1620 20 65 6e 20 65 6c 6c 65 72 20 61 6e 64 65 6e 20 66 6f 72 6d 20 66 6f 72 20 79 64 72 65 20 65 6e ┆ en eller anden form for ydre en┆
0x1620…1640 68 65 64 2c 0a 64 65 72 20 6b 61 6e 20 73 6b 72 69 76 65 20 75 64 20 70 7d 20 70 61 70 69 72 2e ┆hed, der kan skrive ud på papir.┆
0x1640…1660 20 4c 69 6e 69 65 73 6b 72 69 76 65 72 74 65 6b 6e 69 6b 6b 65 6e 20 68 61 72 0a 69 20 64 65 20 ┆ Linieskriverteknikken har i de ┆
0x1660…1680 73 69 64 73 74 65 20 70 61 72 20 7d 72 20 67 65 6e 6e 65 6d 67 7d 65 74 20 65 6e 20 6b 6f 6c 6c ┆sidste par år gennemgået en koll┆
0x1680…16a0 6f 73 73 61 6c 20 75 64 76 69 6b 6c 69 6e 67 2c 0a 68 76 69 6c 6b 65 74 20 68 61 72 20 6d 65 64 ┆ossal udvikling, hvilket har med┆
0x16a0…16c0 66 7c 72 74 2c 20 61 74 20 64 65 74 20 69 64 61 67 20 65 72 20 6d 75 6c 69 67 74 2c 20 61 74 20 ┆ført, at det idag er muligt, at ┆
0x16c0…16e0 65 72 68 76 65 72 76 65 0a 73 69 67 20 65 6e 20 6c 69 6e 69 65 73 6b 72 69 76 65 72 20 74 69 6c ┆erhverve sig en linieskriver til┆
0x16e0…1700 20 65 6e 20 72 69 6d 65 6c 69 67 20 70 72 69 73 20 6f 67 20 61 66 20 65 6e 20 75 64 6d 7b 72 6b ┆ en rimelig pris og af en udmærk┆
0x1700…1720 65 74 0a 6b 76 61 6c 69 74 65 74 2e 0a 2a 6e 6c 31 2a 2a 6e 6c 31 2a 0a 44 65 72 20 66 69 6e 64 ┆et kvalitet. *nl1**nl1* Der find┆
0x1720…1740 65 73 20 20 66 6f 72 73 6b 65 6c 6c 69 67 65 20 6d 7d 64 65 72 2c 20 61 74 20 62 79 67 67 65 20 ┆es forskellige måder, at bygge ┆
0x1740…1760 6c 69 6e 69 65 73 6b 72 69 76 65 72 65 0a 70 7d 2c 20 6f 67 20 64 65 20 6b 61 6e 20 69 6e 64 64 ┆linieskrivere på, og de kan indd┆
0x1760…1780 65 6c 65 73 20 70 7d 20 66 6f 72 73 6b 65 6c 6c 69 67 20 76 69 73 2e 20 45 6e 20 66 7c 72 73 74 ┆eles på forskellig vis. En først┆
0x1780…17a0 65 20 6d 7d 64 65 0a 61 74 20 69 6e 64 64 65 6c 65 20 64 65 6d 20 65 66 74 65 72 20 6b 75 6e 6e ┆e måde at inddele dem efter kunn┆
0x17a0…17c0 65 20 76 7b 72 65 20 65 66 74 65 72 20 64 65 20 61 6d 65 72 69 6b 61 6e 73 6b 65 0a 62 65 74 65 ┆e være efter de amerikanske bete┆
0x17c0…17e0 67 6e 65 6c 73 65 72 20 22 69 6d 70 61 63 74 22 20 6f 67 20 22 6e 6f 6e 2d 69 6d 70 61 63 74 22 ┆gnelser "impact" og "non-impact"┆
0x17e0…1800 20 73 6b 72 69 76 65 72 65 2e 0a 44 65 6e 20 66 7c 72 73 74 65 20 62 65 74 65 67 6e 65 6c 73 65 ┆ skrivere. Den første betegnelse┆
0x1800…1820 20 67 7d 72 20 70 7d 2c 20 68 76 61 64 20 76 69 20 6e 6f 72 6d 61 6c 74 20 66 6f 72 73 74 7d 72 ┆ går på, hvad vi normalt forstår┆
0x1820…1840 0a 76 65 64 20 73 6b 72 69 76 65 72 65 2c 20 6e 65 6d 6c 69 67 20 65 6e 20 65 6c 6c 65 72 20 61 ┆ ved skrivere, nemlig en eller a┆
0x1840…1860 6e 64 65 6e 20 74 72 79 6b 6d 65 6b 61 6e 69 73 6d 65 0a 28 73 74 69 66 74 65 72 20 65 6c 6c 65 ┆nden trykmekanisme (stifter elle┆
0x1860…1880 72 20 65 6e 20 68 61 6d 6d 65 72 29 2c 20 64 65 72 20 74 72 79 6b 6b 65 72 20 6d 6f 64 20 61 6c ┆r en hammer), der trykker mod al┆
0x1880…18a0 6d 69 6e 64 65 6c 69 67 74 0a 70 61 70 69 72 20 6d 65 64 20 66 61 72 76 65 62 7d 6e 64 20 69 6d ┆mindeligt papir med farvebånd im┆
0x18a0…18c0 65 6c 6c 65 6d 2e 20 44 65 6e 20 61 6e 64 65 6e 20 74 79 70 65 20 73 6b 72 69 76 65 72 65 20 6b ┆ellem. Den anden type skrivere k┆
0x18c0…18e0 61 6e 0a 66 2e 65 6b 73 2e 20 76 7b 72 65 20 65 6c 65 6b 74 72 6f 73 74 61 74 69 73 6b 65 20 65 ┆an f.eks. være elektrostatiske e┆
0x18e0…1900 6c 6c 65 72 20 74 65 72 6d 6f 73 6b 72 69 76 65 72 65 2c 0a 68 76 6f 72 20 22 74 72 79 6b 65 6e ┆ller termoskrivere, hvor "tryken┆
0x1900…1920 68 65 64 65 6e 22 20 69 6b 6b 65 20 64 69 72 65 6b 74 65 20 6b 6f 6d 6d 65 72 20 69 20 6b 6f 6e ┆heden" ikke direkte kommer i kon┆
0x1920…1940 74 61 6b 74 20 6d 65 64 0a 70 61 70 69 72 20 6f 67 20 66 61 72 76 65 62 7d 6e 64 2e 20 44 65 6e ┆takt med papir og farvebånd. Den┆
0x1940…1960 6e 65 20 74 79 70 65 20 73 6b 72 69 76 65 72 65 20 65 72 20 69 6b 6b 65 0a 76 65 6c 65 67 6e 65 ┆ne type skrivere er ikke velegne┆
0x1960…1980 64 65 20 74 69 6c 20 61 64 6d 69 6e 69 73 74 72 61 74 69 76 74 20 62 72 75 67 2c 20 64 61 20 64 ┆de til administrativt brug, da d┆
0x1980…19a0 65 20 69 6b 6b 65 20 6b 61 6e 0a 6c 61 76 65 20 67 65 6e 6e 65 6d 73 6c 61 67 20 6f 67 20 6f 66 ┆e ikke kan lave gennemslag og of┆
0x19a0…19c0 74 65 20 61 6e 76 65 6e 64 65 72 20 73 70 65 63 69 65 6c 74 20 70 61 70 69 72 0a 28 66 2e 65 6b ┆te anvender specielt papir (f.ek┆
0x19c0…19e0 73 2e 20 76 61 72 6d 65 66 7c 6c 73 6f 6d 74 29 2e 0a 2a 6e 6c 31 2a 2a 6e 6c 31 2a 0a 41 66 20 ┆s. varmefølsomt). *nl1**nl1* Af ┆
0x19e0…1a00 22 69 6d 70 61 63 74 22 20 73 6b 72 69 76 65 72 65 20 65 72 20 64 65 72 20 74 6f 20 74 79 70 65 ┆"impact" skrivere er der to type┆
0x1a00…1a20 72 2c 20 64 65 72 20 68 79 70 70 69 67 74 0a 73 65 73 20 74 69 6c 73 6c 75 74 74 65 74 20 6d 69 ┆r, der hyppigt ses tilsluttet mi┆
0x1a20…1a40 6b 72 6f 64 61 74 61 6d 61 74 61 6e 6c 7b 67 2c 20 6e 65 6d 6c 69 67 20 6d 61 74 72 69 78 73 6b ┆krodatamatanlæg, nemlig matrixsk┆
0x1a40…1a60 72 69 76 65 72 65 0a 6f 67 20 74 79 70 65 68 6a 75 6c 73 73 6b 72 69 76 65 72 65 2e 20 4d 61 74 ┆rivere og typehjulsskrivere. Mat┆
0x1a60…1a80 72 69 78 73 6b 72 69 76 65 72 65 6e 20 73 6b 72 69 76 65 72 20 76 65 64 20 68 6a 7b 6c 70 0a 61 ┆rixskriveren skriver ved hjælp a┆
0x1a80…1aa0 66 20 65 6e 20 6d 61 74 72 69 78 20 61 66 20 73 6d 7d 20 6e 7d 6c 65 2c 20 64 65 72 20 61 6b 74 ┆f en matrix af små nåle, der akt┆
0x1aa0…1ac0 69 76 65 72 65 73 20 65 6c 65 6b 74 72 6f 6d 61 67 6e 65 74 69 73 6b 2e 0a 4d 61 74 72 69 78 73 ┆iveres elektromagnetisk. Matrixs┆
0x1ac0…1ae0 6b 72 69 76 65 72 65 6e 20 6b 61 6e 20 73 6b 72 69 76 65 20 72 69 6d 65 6c 69 67 74 20 68 75 72 ┆kriveren kan skrive rimeligt hur┆
0x1ae0…1b00 74 69 67 74 20 28 6f 70 20 74 69 6c 0a 65 74 20 70 61 72 20 68 75 6e 64 72 65 64 65 20 74 65 67 ┆tigt (op til et par hundrede teg┆
0x1b00…1b20 (3,) 6e 20 69 20 73 65 6b 75 6e 64 65 74 29 2c 20 6b 61 6e 20 6c 61 76 65 20 67 65 6e 6e 65 6d 73 6c ┆n i sekundet), kan lave gennemsl┆
0x1b20…1b40 61 67 2c 0a 6f 67 20 6b 61 6e 20 69 64 61 67 20 66 7d 73 20 6d 65 64 20 65 74 20 66 6f 72 6e 75 ┆ag, og kan idag fås med et fornu┆
0x1b40…1b60 66 74 69 67 74 20 74 65 67 6e 73 7b 74 2c 20 64 76 73 2e 20 7b 2c 7c 20 6f 67 20 7d 2c 0a 6f 67 ┆ftigt tegnsæt, dvs. æ,ø og å, og┆
0x1b60…1b80 20 73 74 6f 72 65 20 6f 67 20 73 6d 7d 20 62 6f 67 73 74 61 76 65 72 2c 20 68 76 6f 72 20 64 65 ┆ store og små bogstaver, hvor de┆
0x1b80…1ba0 20 73 6d 7d 20 62 6f 67 73 74 61 76 65 72 20 67 7d 72 0a 22 6e 65 64 65 6e 20 75 6e 64 65 72 20 ┆ små bogstaver går "neden under ┆
0x1ba0…1bc0 6c 69 6e 69 65 6e 22 2e 0a 2a 6e 6c 31 2a 2a 6e 6c 31 2a 0a 54 79 70 65 68 6a 75 6c 73 73 6b 72 ┆linien". *nl1**nl1* Typehjulsskr┆
0x1bc0…1be0 69 76 65 72 65 6e 20 76 69 72 6b 65 72 20 69 20 70 72 69 6e 63 69 70 70 65 74 20 73 6f 6d 20 65 ┆iveren virker i princippet som e┆
0x1be0…1c00 6e 0a 6b 75 67 6c 65 68 6f 76 65 64 73 6b 72 69 76 65 6d 61 73 6b 69 6e 65 2c 20 68 76 6f 72 20 ┆n kuglehovedskrivemaskine, hvor ┆
0x1c00…1c20 6b 75 67 6c 65 68 6f 76 65 64 65 74 20 6e 6f 72 6d 61 6c 74 0a 65 72 20 75 64 73 6b 69 66 74 65 ┆kuglehovedet normalt er udskifte┆
0x1c20…1c40 74 20 6d 65 64 20 65 74 20 22 76 69 66 74 65 68 6a 75 6c 22 2c 20 68 76 6f 72 20 64 65 0a 66 7b ┆t med et "viftehjul", hvor de fæ┆
0x1c40…1c60 72 64 69 67 70 72 7b 67 65 64 65 20 74 65 67 6e 20 65 72 20 70 6c 61 63 65 72 65 74 20 70 65 72 ┆rdigprægede tegn er placeret per┆
0x1c60…1c80 69 66 65 72 69 65 6e 20 72 75 6e 64 74 2e 0a 44 65 6e 6e 65 20 74 79 70 65 20 73 6b 72 69 76 65 ┆iferien rundt. Denne type skrive┆
0x1c80…1ca0 72 65 20 65 72 20 76 65 6c 65 67 6e 65 64 65 2c 20 68 76 69 73 20 75 64 73 6b 72 69 66 74 65 6e ┆re er velegnede, hvis udskriften┆
0x1ca0…1cc0 0a 73 6b 61 6c 20 76 7b 72 65 20 61 66 20 6f 72 64 65 6e 74 6c 69 67 20 73 6b 72 69 76 65 6d 61 ┆ skal være af ordentlig skrivema┆
0x1cc0…1ce0 73 6b 69 6e 65 6b 76 61 6c 69 74 65 74 2c 20 6d 65 6e 20 65 72 20 65 6e 0a 64 65 6c 20 6c 61 6e ┆skinekvalitet, men er en del lan┆
0x1ce0…1d00 67 73 6f 6d 6d 65 72 65 20 65 6e 64 20 6d 61 74 72 69 78 73 6b 72 69 76 65 72 6e 65 2e 0a 28 33 ┆gsommere end matrixskriverne. (3┆
0x1d00…1d20 30 2d 35 30 20 74 65 67 6e 20 70 72 2e 20 73 65 6b 75 6e 64 29 2e 0a 2a 6e 6c 31 2a 2a 6e 6c 31 ┆0-50 tegn pr. sekund). *nl1**nl1┆
0x1d20…1d40 2a 0a 4d 61 74 72 69 78 73 6b 72 69 76 65 72 6e 65 20 6c 69 67 67 65 72 20 69 20 70 72 69 73 6c ┆* Matrixskriverne ligger i prisl┆
0x1d40…1d60 61 67 65 74 20 37 2d 32 35 2e 30 30 30 20 6b 72 2e 0a 61 66 68 7b 6e 67 69 67 20 61 66 20 66 6f ┆aget 7-25.000 kr. afhængig af fo┆
0x1d60…1d80 72 68 6f 6c 64 20 73 6f 6d 20 6d 61 6b 73 69 6d 61 6c 20 70 61 70 69 72 62 72 65 64 64 65 2c 0a ┆rhold som maksimal papirbredde, ┆
0x1d80…1da0 76 61 6c 67 20 61 66 20 70 61 70 69 72 66 72 65 6d 66 7c 72 69 6e 67 2c 20 68 61 73 74 69 67 68 ┆valg af papirfremføring, hastigh┆
0x1da0…1dc0 65 64 20 6f 67 0a 70 72 6f 67 72 61 6d 6d 65 72 62 61 72 68 65 64 2e 20 54 79 70 65 68 6a 75 6c ┆ed og programmerbarhed. Typehjul┆
0x1dc0…1de0 73 73 6b 72 69 76 65 72 6e 65 20 6b 6f 73 74 65 72 0a 6f 6d 6b 72 69 6e 67 20 32 35 2d 33 30 2e ┆sskriverne koster omkring 25-30.┆
[…truncated at 200 lines…]