/ The Datafile PD-CD 2 / DATAFILE_PDCD2.iso / utilities / physics / Physics / !Neutwall / !RUNIMAGE

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0e f4 3e 4e 65 | 75 74 57 61 6c 6c 0d 00 |.....>Ne|utWall..|
|00000010| 14 10 ee 20 85 20 2a 44 | 45 53 4b 54 4f 50 0d 00 |... . *D|ESKTOP..|
|00000020| 1e 0a f2 49 6e 74 72 6f | 0d 00 28 10 eb 31 32 3a |...Intro|..(..12:|
|00000030| 2a 50 4f 49 4e 54 45 52 | 0d 00 32 08 f2 50 61 6c |*POINTER|..2..Pal|
|00000040| 0d 00 3c 08 f2 43 4c 53 | 0d 00 46 05 f5 0d 00 50 |..<..CLS|..F....P|
|00000050| 05 f5 0d 00 5a 1c f2 53 | 63 61 74 74 65 72 28 37 |....Z..S|catter(7|
|00000060| 35 2b b3 28 33 30 29 2c | 77 6d 61 78 25 29 0d 00 |5+.(30),|wmax%)..|
|00000070| 64 0a fd 41 25 3c 3e 30 | 0d 00 6e 12 f2 41 64 6a |d..A%<>0|..n..Adj|
|00000080| 75 73 74 28 77 6d 61 78 | 25 29 0d 00 78 06 fd a3 |ust(wmax|%)..x...|
|00000090| 0d 00 82 05 e0 0d 00 8c | 04 0d 00 96 04 0d 00 a0 |........|........|
|000000a0| 0b dd f2 49 6e 74 72 6f | 0d 00 aa 17 77 6d 61 78 |...Intro|....wmax|
|000000b0| 25 3d 37 30 30 3a 77 6d | 69 6e 25 3d 35 35 30 0d |%=700:wm|in%=550.|
|000000c0| 00 b4 26 6e 25 3d 33 39 | 3a 73 63 61 74 3d 2e 31 |..&n%=39|:scat=.1|
|000000d0| 3a 73 70 65 65 64 25 3d | 32 38 3a 73 70 61 63 69 |:speed%=|28:spaci|
|000000e0| 6e 67 3d 31 32 0d 00 be | 17 73 6d 69 6e 25 3d 31 |ng=12...|.smin%=1|
|000000f0| 34 30 3a 73 6d 61 78 25 | 3d 39 34 30 0d 00 c8 06 |40:smax%|=940....|
|00000100| eb 32 0d 00 d2 0f fb 20 | 33 3a fb 20 31 33 32 3a |.2..... |3:. 132:|
|00000110| db 0d 00 dc 10 4c 4c 3d | 31 30 3a f1 8a 30 2c 34 |.....LL=|10:..0,4|
|00000120| 29 0d 00 e6 17 f2 43 28 | 22 41 6e 20 65 78 61 6d |).....C(|"An exam|
|00000130| 70 6c 65 20 6f 66 22 29 | 0d 00 f0 15 f2 43 28 22 |ple of")|.....C("|
|00000140| 4d 6f 6e 74 65 20 43 61 | 72 6c 6f 22 29 0d 00 fa |Monte Ca|rlo")...|
|00000150| 14 f2 43 28 22 54 65 63 | 68 6e 69 71 75 65 73 22 |..C("Tec|hniques"|
|00000160| 29 0d 01 04 0c f2 43 28 | 22 69 6e 22 29 0d 01 0e |).....C(|"in")...|
|00000170| 19 f2 43 28 22 4e 75 63 | 6c 65 61 72 20 50 68 79 |..C("Nuc|lear Phy|
|00000180| 73 69 63 73 22 29 0d 01 | 18 0b f2 50 28 33 30 30 |sics")..|...P(300|
|00000190| 29 0d 01 22 0d 4c 4c 3d | 34 30 3a eb 31 32 0d 01 |)..".LL=|40:.12..|
|000001a0| 2c 16 fb 20 33 3a fb 20 | 31 33 32 3a db 3a f1 8a |,.. 3:. |132:.:..|
|000001b0| 30 2c 35 29 0d 01 36 37 | f2 43 28 22 41 20 62 65 |0,5)..67|.C("A be|
|000001c0| 61 6d 20 6f 66 20 6e 65 | 75 74 72 6f 6e 73 20 69 |am of ne|utrons i|
|000001d0| 73 20 69 6e 63 69 64 65 | 6e 74 20 66 72 6f 6d 20 |s incide|nt from |
|000001e0| 74 68 65 20 6c 65 66 74 | 2e 22 29 0d 01 40 46 f2 |the left|.")..@F.|
|000001f0| 43 28 22 54 68 65 20 6e | 65 75 74 72 6f 6e 73 20 |C("The n|eutrons |
|00000200| 73 74 72 69 6b 65 20 61 | 20 6c 65 61 64 20 77 61 |strike a| lead wa|
|00000210| 6c 6c 20 61 6e 64 20 61 | 72 65 20 73 63 61 74 74 |ll and a|re scatt|
|00000220| 65 72 65 64 20 61 74 20 | 72 61 6e 64 6f 6d 2e 22 |ered at |random."|
|00000230| 29 0d 01 4a 0a f2 43 28 | 22 22 29 0d 01 54 23 f2 |)..J..C(|"")..T#.|
|00000240| 43 28 22 50 72 65 73 73 | 20 61 6e 79 20 6b 65 79 |C("Press| any key|
|00000250| 20 74 6f 20 63 6f 6e 74 | 69 6e 75 65 22 29 0d 01 | to cont|inue")..|
|00000260| 5e 0c f2 50 28 31 30 30 | 30 29 0d 01 68 05 e1 0d |^..P(100|0)..h...|
|00000270| 01 72 04 0d 01 7c 1a dd | f2 53 63 61 74 74 65 72 |.r...|..|.Scatter|
|00000280| 28 61 6e 67 6c 65 2c 77 | 6d 61 78 25 29 0d 01 86 |(angle,w|max%)...|
|00000290| 40 79 73 74 61 72 74 3d | 36 34 30 2a b7 b2 28 61 |@ystart=|640*..(a|
|000002a0| 6e 67 6c 65 2d 39 30 29 | 2b 28 73 6d 61 78 25 2d |ngle-90)|+(smax%-|
|000002b0| 73 6d 69 6e 25 29 2f 32 | 2b 73 6d 69 6e 25 2d 28 |smin%)/2|+smin%-(|
|000002c0| 6e 25 2a 73 70 61 63 69 | 6e 67 2f 32 29 0d 01 90 |n%*spaci|ng/2)...|
|000002d0| 27 ea 58 25 28 29 2c 59 | 25 28 29 2c 50 25 28 29 |'.X%(),Y|%(),P%()|
|000002e0| 2c 51 25 28 29 2c 78 25 | 28 29 2c 79 25 28 29 2c |,Q%(),x%|(),y%(),|
|000002f0| 41 25 28 29 0d 01 9a 35 | de 58 25 28 6e 25 29 2c |A%()...5|.X%(n%),|
|00000300| 59 25 28 6e 25 29 2c 50 | 25 28 6e 25 29 2c 51 25 |Y%(n%),P|%(n%),Q%|
|00000310| 28 6e 25 29 2c 78 25 28 | 6e 25 29 2c 79 25 28 6e |(n%),x%(|n%),y%(n|
|00000320| 25 29 2c 41 25 28 6e 25 | 29 0d 01 a4 0c f2 53 63 |%),A%(n%|).....Sc|
|00000330| 61 74 53 63 72 0d 01 ae | 2b e6 20 30 2c 77 61 6c |atScr...|+. 0,wal|
|00000340| 6c 25 3a ec 77 6d 69 6e | 25 2c 73 6d 69 6e 25 3a |l%:.wmin|%,smin%:|
|00000350| f0 26 36 35 2c 77 6d 61 | 78 25 2c 73 6d 61 78 25 |.&65,wma|x%,smax%|
|00000360| 0d 01 b8 0c e3 4e 25 3d | 30 b8 6e 25 0d 01 c2 25 |.....N%=|0.n%...%|
|00000370| 58 25 28 4e 25 29 3d 30 | 3a 59 25 28 4e 25 29 3d |X%(N%)=0|:Y%(N%)=|
|00000380| 79 73 74 61 72 74 2b 4e | 25 2a 73 70 61 63 69 6e |ystart+N|%*spacin|
|00000390| 67 0d 01 cc 3c 78 25 28 | 4e 25 29 3d 73 70 65 65 |g...<x%(|N%)=spee|
|000003a0| 64 25 2a b5 b2 61 6e 67 | 6c 65 3a 79 25 28 4e 25 |d%*..ang|le:y%(N%|
|000003b0| 29 3d 73 70 65 65 64 25 | 2a 9b b2 61 6e 67 6c 65 |)=speed%|*..angle|
|000003c0| 3a 41 25 28 4e 25 29 3d | 61 6e 67 6c 65 0d 01 d6 |:A%(N%)=|angle...|
|000003d0| 05 ed 0d 01 e0 0c e6 30 | 2c 6e 65 75 74 25 0d 01 |.......0|,neut%..|
|000003e0| ea 1e 70 61 73 73 25 3d | 30 3a 73 63 61 74 74 65 |..pass%=|0:scatte|
|000003f0| 72 25 3d 30 3a 65 78 69 | 74 25 3d a3 0d 01 f4 37 |r%=0:exi|t%=....7|
|00000400| f5 3a 50 25 28 29 3d 58 | 25 28 29 3a 51 25 28 29 |.:P%()=X|%():Q%()|
|00000410| 3d 59 25 28 29 3a 58 25 | 28 29 3d 58 25 28 29 2b |=Y%():X%|()=X%()+|
|00000420| 78 25 28 29 3a 59 25 28 | 29 3d 59 25 28 29 2b 79 |x%():Y%(|)=Y%()+y|
|00000430| 25 28 29 0d 01 fe 0c e3 | 4e 25 3d 30 b8 6e 25 0d |%().....|N%=0.n%.|
|00000440| 02 08 53 e7 58 25 28 4e | 25 29 3e 31 32 38 30 20 |..S.X%(N|%)>1280 |
|00000450| 84 28 58 25 28 4e 25 29 | 3e 3d 77 6d 69 6e 25 20 |.(X%(N%)|>=wmin% |
|00000460| 80 28 59 25 28 4e 25 29 | 3e 73 6d 61 78 25 20 84 |.(Y%(N%)|>smax% .|
|00000470| 59 25 28 4e 25 29 3c 73 | 6d 69 6e 25 29 29 70 61 |Y%(N%)<s|min%))pa|
|00000480| 73 73 25 2b 3d 31 3a f2 | 52 65 6d 6f 76 65 28 4e |ss%+=1:.|Remove(N|
|00000490| 25 29 0d 02 12 53 e7 58 | 25 28 4e 25 29 3c 2d 32 |%)...S.X|%(N%)<-2|
|000004a0| 20 84 28 58 25 28 4e 25 | 29 3c 77 6d 69 6e 25 20 | .(X%(N%|)<wmin% |
|000004b0| 80 28 59 25 28 4e 25 29 | 3e 73 6d 61 78 25 20 84 |.(Y%(N%)|>smax% .|
|000004c0| 59 25 28 4e 25 29 3c 73 | 6d 69 6e 25 29 29 73 63 |Y%(N%)<s|min%))sc|
|000004d0| 61 74 74 65 72 25 2b 3d | 31 3a f2 52 65 6d 6f 76 |atter%+=|1:.Remov|
|000004e0| 65 28 4e 25 29 0d 02 1c | 6b e7 58 25 28 4e 25 29 |e(N%)...|k.X%(N%)|
|000004f0| 3e 3d 77 6d 69 6e 25 80 | 58 25 28 4e 25 29 3c 3d |>=wmin%.|X%(N%)<=|
|00000500| 77 6d 61 78 25 80 b3 28 | 31 29 3c 73 63 61 74 20 |wmax%..(|1)<scat |
|00000510| 41 25 28 4e 25 29 2b 3d | b3 28 33 36 30 29 2d 31 |A%(N%)+=|.(360)-1|
|00000520| 38 30 3a 78 25 28 4e 25 | 29 3d 73 70 65 65 64 25 |80:x%(N%|)=speed%|
|00000530| 2a b5 b2 41 25 28 4e 25 | 29 3a 79 25 28 4e 25 29 |*..A%(N%|):y%(N%)|
|00000540| 3d 73 70 65 65 64 25 2a | 9b b2 41 25 28 4e 25 29 |=speed%*|..A%(N%)|
|00000550| 0d 02 26 22 86 50 25 28 | 4e 25 29 2c 51 25 28 4e |..&".P%(|N%),Q%(N|
|00000560| 25 29 2c 58 25 28 4e 25 | 29 2c 59 25 28 4e 25 29 |%),X%(N%|),Y%(N%)|
|00000570| 3a ed 0d 02 30 27 c8 97 | 58 25 2c 59 25 2c 41 25 |:...0'..|X%,Y%,A%|
|00000580| 3a e7 41 25 3c 3e 30 20 | 80 58 25 3e 77 6d 69 6e |:.A%<>0 |.X%>wmin|
|00000590| 25 20 65 78 69 74 25 3d | b9 0d 02 3a 24 f2 52 65 |% exit%=|...:$.Re|
|000005a0| 73 3a fd 70 61 73 73 25 | 2b 73 63 61 74 74 65 72 |s:.pass%|+scatter|
|000005b0| 25 3d 6e 25 2b 31 20 84 | 65 78 69 74 25 0d 02 44 |%=n%+1 .|exit%..D|
|000005c0| 14 e7 ac 65 78 69 74 25 | 20 f2 50 28 31 35 30 30 |...exit%| .P(1500|
|000005d0| 29 0d 02 4e 09 ef 32 36 | 3a e1 0d 02 58 04 0d 02 |)..N..26|:...X...|
|000005e0| 62 10 dd f2 52 65 6d 6f | 76 65 28 4e 25 29 0d 02 |b...Remo|ve(N%)..|
|000005f0| 6c 43 59 25 28 4e 25 29 | 3d 73 6d 69 6e 25 3a 58 |lCY%(N%)|=smin%:X|
|00000600| 25 28 4e 25 29 3d 2d 31 | 3a 50 25 28 4e 25 29 3d |%(N%)=-1|:P%(N%)=|
|00000610| 2d 31 3a 51 25 28 4e 25 | 29 3d 73 6d 69 6e 25 3a |-1:Q%(N%|)=smin%:|
|00000620| 78 25 28 4e 25 29 3d 30 | 3a 79 25 28 4e 25 29 3d |x%(N%)=0|:y%(N%)=|
|00000630| 30 0d 02 76 05 e1 0d 02 | 80 04 0d 02 8a 15 dd f2 |0..v....|........|
|00000640| 41 64 6a 75 73 74 28 f8 | 20 77 6d 61 78 25 29 0d |Adjust(.| wmax%).|
|00000650| 02 94 10 f2 43 6c 6b 53 | 74 72 74 3a ef 32 36 0d |....ClkS|trt:.26.|
|00000660| 02 9e 05 f5 0d 02 a8 24 | e7 58 25 3c 77 6d 69 6e |.......$|.X%<wmin|
|00000670| 25 2b 73 70 65 65 64 25 | 20 58 25 3d 77 6d 69 6e |%+speed%| X%=wmin|
|00000680| 25 2b 73 70 65 65 64 25 | 0d 02 b2 14 e7 58 25 3e |%+speed%|.....X%>|
|00000690| 31 31 30 30 20 58 25 3d | 31 31 30 30 0d 02 bc 19 |1100 X%=|1100....|
|000006a0| e7 58 25 3d 77 6d 61 78 | 25 20 84 41 25 3d 30 20 |.X%=wmax|% .A%=0 |
|000006b0| 8c 8d 64 5a 42 0d 02 c6 | 2d e6 30 2c 62 61 63 6b |..dZB...|-.0,back|
|000006c0| 25 3a c8 96 3a ec 77 6d | 69 6e 25 2c 73 6d 69 6e |%:..:.wm|in%,smin|
|000006d0| 25 3a f0 26 36 35 2c 77 | 6d 61 78 25 2c 73 6d 61 |%:.&65,w|max%,sma|
|000006e0| 78 25 0d 02 d0 30 e6 30 | 2c 77 61 6c 6c 25 3a ec |x%...0.0|,wall%:.|
|000006f0| 77 6d 69 6e 25 2c 73 6d | 69 6e 25 3a f0 26 36 35 |wmin%,sm|in%:.&65|
|00000700| 2c 58 25 2c 73 6d 61 78 | 25 3a 77 6d 61 78 25 3d |,X%,smax|%:wmax%=|
|00000710| 58 25 0d 02 da 2b c8 97 | 58 25 2c 59 25 2c 41 25 |X%...+..|X%,Y%,A%|
|00000720| 3a fd a4 4d 43 28 58 25 | 2c 59 25 2c 31 30 2c 32 |:..MC(X%|,Y%,10,2|
|00000730| 38 2c 35 39 2c 33 29 80 | 41 25 3c 3e 30 0d 02 e4 |8,59,3).|A%<>0...|
|00000740| 05 e1 0d 02 ee 04 0d 02 | f8 33 dd a4 4d 43 28 78 |........|.3..MC(x|
|00000750| 25 2c 79 25 2c 61 25 2c | 62 25 2c 63 25 2c 64 25 |%,y%,a%,|b%,c%,d%|
|00000760| 29 78 25 3d 78 25 81 31 | 36 3a 79 25 3d 28 31 30 |)x%=x%.1|6:y%=(10|
|00000770| 32 34 2d 79 25 29 81 33 | 32 0d 03 02 28 3d 28 78 |24-y%).3|2...(=(x|
|00000780| 25 3e 3d 61 25 80 78 25 | 3c 3d 61 25 2b 63 25 80 |%>=a%.x%|<=a%+c%.|
|00000790| 79 25 3e 3d 62 25 80 79 | 25 3c 3d 62 25 2b 64 25 |y%>=b%.y|%<=b%+d%|
|000007a0| 29 0d 03 0c 04 0d 03 16 | 21 dd f2 57 69 6e 28 78 |).......|!..Win(x|
|000007b0| 25 2c 79 25 2c 61 25 2c | 62 25 2c 74 24 29 ea 62 |%,y%,a%,|b%,t$).b|
|000007c0| 61 25 3a ef 32 36 0d 03 | 20 21 e7 74 24 3c 3e 22 |a%:.26..| !.t$<>"|
|000007d0| 22 20 62 61 25 3d 67 72 | 65 79 6d 25 20 8b 62 61 |" ba%=gr|eym% .ba|
|000007e0| 25 3d 62 61 63 6b 25 0d | 03 2a 34 f4 50 52 4f 43 |%=back%.|.*4.PROC|
|000007f0| 42 6f 78 28 78 25 2b 31 | 2c 79 25 2b 2e 35 2c 61 |Box(x%+1|,y%+.5,a|
|00000800| 25 2b 2e 35 2c 62 25 2b | 31 2e 32 35 2c 62 6c 61 |%+.5,b%+|1.25,bla|
|00000810| 63 6b 25 2c 62 6c 61 63 | 6b 25 29 0d 03 34 34 f2 |ck%,blac|k%)..44.|
|00000820| 42 6f 78 28 78 25 2d 2e | 32 35 2c 79 25 2d 2e 31 |Box(x%-.|25,y%-.1|
|00000830| 32 35 2c 61 25 2b 2e 35 | 2c 62 25 2b 31 2e 32 35 |25,a%+.5|,b%+1.25|
|00000840| 2c 62 6c 61 63 6b 25 2c | 62 6c 61 63 6b 25 29 0d |,black%,|black%).|
|00000850| 03 3e 21 f2 42 6f 78 28 | 78 25 2c 79 25 2c 61 25 |.>!.Box(|x%,y%,a%|
|00000860| 2c 62 25 2b 31 2c 62 61 | 63 6b 25 2c 62 61 25 29 |,b%+1,ba|ck%,ba%)|
|00000870| 0d 03 48 13 fb 31 32 38 | 2b 62 61 25 3a fb 62 6c |..H..128|+ba%:.bl|
|00000880| 75 65 25 0d 03 52 21 e7 | 74 24 3c 3e 22 22 20 f1 |ue%..R!.|t$<>"" .|
|00000890| 8a 78 25 2b 28 61 25 2d | a9 74 24 29 81 32 2c 79 |.x%+(a%-|.t$).2,y|
|000008a0| 25 29 74 24 0d 03 5c 28 | ef 32 38 2c 78 25 2b 32 |%)t$..\(|.28,x%+2|
|000008b0| 2c 79 25 2b 62 25 2c 78 | 25 2b 61 25 2d 33 2c 79 |,y%+b%,x|%+a%-3,y|
|000008c0| 25 2b 28 32 80 74 24 3c | 3e 22 22 29 0d 03 66 16 |%+(2.t$<|>"")..f.|
|000008d0| fb 62 61 63 6b 25 2b 31 | 32 38 3a fb 62 6c 61 63 |.back%+1|28:.blac|
|000008e0| 6b 25 0d 03 70 05 e1 0d | 03 7a 04 0d 03 84 22 dd |k%..p...|.z....".|
|000008f0| f2 43 57 69 6e 28 78 25 | 2c 79 25 2c 61 25 2c 62 |.CWin(x%|,y%,a%,b|
|00000900| 25 2c 63 25 29 ea 62 61 | 25 3a ef 32 36 0d 03 8e |%,c%).ba|%:.26...|
|00000910| 34 f4 50 52 4f 43 42 6f | 78 28 78 25 2b 31 2c 79 |4.PROCBo|x(x%+1,y|
|00000920| 25 2b 2e 35 2c 61 25 2b | 2e 35 2c 62 25 2b 31 2e |%+.5,a%+|.5,b%+1.|
|00000930| 32 35 2c 62 6c 61 63 6b | 25 2c 62 6c 61 63 6b 25 |25,black|%,black%|
|00000940| 29 0d 03 98 34 f2 42 6f | 78 28 78 25 2d 2e 32 35 |)...4.Bo|x(x%-.25|
|00000950| 2c 79 25 2d 2e 31 32 35 | 2c 61 25 2b 2e 35 2c 62 |,y%-.125|,a%+.5,b|
|00000960| 25 2b 31 2e 32 35 2c 62 | 6c 61 63 6b 25 2c 62 6c |%+1.25,b|lack%,bl|
|00000970| 61 63 6b 25 29 0d 03 a2 | 1d f2 42 6f 78 28 78 25 |ack%)...|..Box(x%|
|00000980| 2c 79 25 2c 61 25 2c 62 | 25 2b 31 2c 63 25 2c 63 |,y%,a%,b|%+1,c%,c|
|00000990| 25 29 0d 03 ac 13 fb 31 | 32 38 2b 63 25 3a fb 62 |%).....1|28+c%:.b|
|000009a0| 6c 61 63 6b 25 0d 03 b6 | 1d ef 32 38 2c 78 25 2b |lack%...|..28,x%+|
|000009b0| 32 2c 79 25 2b 62 25 2c | 78 25 2b 61 25 2d 33 2c |2,y%+b%,|x%+a%-3,|
|000009c0| 79 25 0d 03 c0 05 e1 0d | 03 ca 04 0d 03 d4 1d dd |y%......|........|
|000009d0| f2 42 6f 78 28 78 2c 79 | 2c 61 2c 62 2c 63 25 2c |.Box(x,y|,a,b,c%,|
|000009e0| 62 25 29 e6 30 2c 63 25 | 0d 03 de 1c ea 67 78 25 |b%).0,c%|.....gx%|
|000009f0| 2c 67 79 25 2c 67 61 25 | 2c 67 62 25 2c 67 78 32 |,gy%,ga%|,gb%,gx2|
|00000a00| 25 2c 73 25 0d 03 e8 3f | 67 78 25 3d 78 2a 31 36 |%,s%...?|gx%=x*16|
|00000a10| 3a 67 79 25 3d 31 30 32 | 34 2d 79 2a 33 32 3a 67 |:gy%=102|4-y*32:g|
|00000a20| 61 25 3d 61 2a 31 36 3a | 67 62 25 3d 62 2a 33 32 |a%=a*16:|gb%=b*32|
|00000a30| 3a 73 25 3d 32 30 3a 67 | 78 32 25 3d 67 78 25 2b |:s%=20:g|x2%=gx%+|
|00000a40| 67 61 25 0d 03 f2 3a e6 | 30 2c 62 25 3a ec 67 78 |ga%...:.|0,b%:.gx|
|00000a50| 25 2b 73 25 2c 67 79 25 | 2d 73 25 3a ec 67 78 25 |%+s%,gy%|-s%:.gx%|
|00000a60| 2b 73 25 2c 67 79 25 3a | f0 26 42 35 2c 67 78 25 |+s%,gy%:|.&B5,gx%|
|00000a70| 2c 67 79 25 2d 73 25 3a | e6 30 2c 63 25 0d 03 fc |,gy%-s%:|.0,c%...|
|00000a80| 3e f0 26 36 35 2c 67 78 | 25 2b 73 25 2c 67 79 25 |>.&65,gx|%+s%,gy%|
|00000a90| 2b 73 25 2d 67 62 25 3a | ec 67 78 25 2c 67 79 25 |+s%-gb%:|.gx%,gy%|
|00000aa0| 2b 73 25 2d 67 62 25 3a | f0 26 42 35 2c 67 78 25 |+s%-gb%:|.&B5,gx%|
|00000ab0| 2b 73 25 2c 67 79 25 2d | 67 62 25 0d 04 06 3d ec |+s%,gy%-|gb%...=.|
|00000ac0| 67 78 32 25 2d 73 25 2c | 67 79 25 2b 73 25 2d 67 |gx2%-s%,|gy%+s%-g|
|00000ad0| 62 25 3a ec 67 78 32 25 | 2d 73 25 2c 67 79 25 2d |b%:.gx2%|-s%,gy%-|
|00000ae0| 67 62 25 3a f0 26 42 35 | 2c 67 78 32 25 2c 67 79 |gb%:.&B5|,gx2%,gy|
|00000af0| 25 2d 67 62 25 2b 73 25 | 0d 04 10 24 f0 26 36 35 |%-gb%+s%|...$.&65|
|00000b00| 2c 67 78 32 25 2d 73 25 | 2c 67 79 25 2d 73 25 3a |,gx2%-s%|,gy%-s%:|
|00000b10| ec 67 78 32 25 2c 67 79 | 25 2d 73 25 0d 04 1a 20 |.gx2%,gy|%-s%... |
|00000b20| e6 30 2c 62 25 3a f0 26 | 42 35 2c 67 78 32 25 2d |.0,b%:.&|B5,gx2%-|
|00000b30| 73 25 2c 67 79 25 3a e6 | 30 2c 63 25 0d 04 24 17 |s%,gy%:.|0,c%..$.|
|00000b40| f0 26 36 35 2c 67 78 25 | 2b 73 25 2c 67 79 25 2d |.&65,gx%|+s%,gy%-|
|00000b50| 67 62 25 0d 04 2e 4e e7 | 63 25 3c 3e 62 25 20 e6 |gb%...N.|c%<>b% .|
|00000b60| 30 2c 62 25 3a ec 67 78 | 32 25 2d 73 25 2c 67 79 |0,b%:.gx|2%-s%,gy|
|00000b70| 25 3a f0 26 36 35 2c 67 | 78 25 2b 73 25 2c 67 79 |%:.&65,g|x%+s%,gy|
|00000b80| 25 2d 73 25 3a df 67 78 | 25 2c 67 79 25 2d 73 25 |%-s%:.gx|%,gy%-s%|
|00000b90| 3a f0 26 36 35 2c 67 78 | 32 25 2c 67 79 25 2d 34 |:.&65,gx|2%,gy%-4|
|00000ba0| 30 0d 04 38 05 e1 0d 04 | 42 04 0d 04 4c 09 dd f2 |0..8....|B...L...|
|00000bb0| 50 61 6c 0d 04 56 14 f4 | 20 73 65 74 20 75 70 20 |Pal..V..| set up |
|00000bc0| 63 6f 6c 6f 75 72 73 0d | 04 60 34 73 74 6f 70 25 |colours.|.`4stop%|
|00000bd0| 3d 31 3a 67 6f 25 3d 32 | 3a 64 65 73 63 25 3d 36 |=1:go%=2|:desc%=6|
|00000be0| 3a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 f4 20 |:       |      . |
|00000bf0| 62 6f 78 20 63 6f 6c 6f | 75 72 73 0d 04 6a 3d 62 |box colo|urs..j=b|
|00000c00| 61 72 73 25 3d 39 3a 62 | 61 63 6b 25 3d 31 30 3a |ars%=9:b|ack%=10:|
|00000c10| 6e 65 75 74 25 3d 31 3a | 77 61 6c 6c 25 3d 38 3a |neut%=1:|wall%=8:|
|00000c20| 20 20 f4 20 62 61 63 6b | 67 2e 2f 77 61 6c 6c 2f |  . back|g./wall/|
|00000c30| 6e 65 75 74 72 6f 6e 73 | 0d 04 74 2f 62 6c 75 65 |neutrons|..t/blue|
|00000c40| 25 3d 34 3a 77 68 69 74 | 65 25 3d 37 3a 62 6c 61 |%=4:whit|e%=7:bla|
|00000c50| 63 6b 25 3d 30 3a 67 72 | 65 79 6d 25 3d 39 3a f4 |ck%=0:gr|eym%=9:.|
|00000c60| 20 6f 74 68 65 72 73 0d | 04 7e 05 f7 0d 04 88 0c | others.|.~......|
|00000c70| e3 41 25 3d 30 b8 31 35 | 0d 04 92 10 f3 63 25 2c |.A%=0.15|.....c%,|
|00000c80| 72 25 2c 67 25 2c 62 25 | 0d 04 9c 16 ef 31 39 2c |r%,g%,b%|.....19,|
|00000c90| 41 25 2c 63 25 2c 72 25 | 2c 67 25 2c 62 25 0d 04 |A%,c%,r%|,g%,b%..|
|00000ca0| a6 05 ed 0d 04 b0 05 e1 | 0d 04 ba 04 0d 04 c4 0d |........|........|
|00000cb0| dd f2 46 20 2a 46 58 31 | 35 0d 04 ce 21 ea 41 25 |..F *FX1|5...!.A%|
|00000cc0| 2c 58 25 2c 59 25 3a f5 | c8 97 58 25 2c 59 25 2c |,X%,Y%:.|..X%,Y%,|
|00000cd0| 41 25 3a fd 41 25 3d 30 | 3a e1 0d 04 d8 04 0d 04 |A%:.A%=0|:.......|
|00000ce0| e2 1a dd f2 50 28 50 25 | 29 ea 58 25 2c 59 25 2c |....P(P%|).X%,Y%,|
|00000cf0| 41 25 2c 54 25 3a f2 46 | 0d 04 ec 2e 54 25 3d 91 |A%,T%:.F|....T%=.|
|00000d00| 3a f5 c8 97 58 25 2c 59 | 25 2c 41 25 3a fd a6 28 |:...X%,Y|%,A%:..(|
|00000d10| 30 29 3c 3e 2d 31 20 84 | 41 25 3c 3e 30 20 84 91 |0)<>-1 .|A%<>0 ..|
|00000d20| 3e 54 25 2b 50 25 0d 04 | f6 05 e1 0d 05 00 04 0d |>T%+P%..|........|
|00000d30| 05 0a 0d dd f2 43 6c 6b | 53 74 72 74 0d 05 14 08 |.....Clk|Strt....|
|00000d40| f2 43 4c 53 0d 05 1e 19 | f2 43 57 69 6e 28 31 30 |.CLS....|.CWin(10|
|00000d50| 2c 32 38 2c 35 39 2c 33 | 2c 67 6f 25 29 0d 05 28 |,28,59,3|,go%)..(|
|00000d60| 79 f1 27 22 43 6c 69 63 | 6b 20 69 6e 20 74 68 65 |y.'"Clic|k in the|
|00000d70| 20 73 70 61 63 65 20 61 | 62 6f 76 65 20 74 6f 20 | space a|bove to |
|00000d80| 69 6e 64 69 63 61 74 65 | 20 74 68 65 20 77 61 6c |indicate| the wal|
|00000d90| 6c 20 74 68 69 63 6b 6e | 65 73 73 22 27 22 20 79 |l thickn|ess"'" y|
|00000da0| 6f 75 20 77 61 6e 74 2c | 20 74 68 65 6e 20 63 6c |ou want,| then cl|
|00000db0| 69 63 6b 20 69 6e 20 74 | 68 69 73 20 62 6f 78 20 |ick in t|his box |
|00000dc0| 74 6f 20 73 74 61 72 74 | 20 73 63 61 74 74 65 72 |to start| scatter|
|00000dd0| 69 6e 67 2e 22 3b 0d 05 | 32 0a ef 32 36 3a f2 46 |ing.";..|2..26:.F|
|00000de0| 0d 05 3c 05 e1 0d 05 46 | 04 0d 05 50 09 dd f2 52 |..<....F|...P...R|
|00000df0| 65 73 0d 05 5a 3a ef 33 | 30 3a f1 22 53 63 61 74 |es..Z:.3|0:."Scat|
|00000e00| 74 65 72 65 64 20 20 3a | 20 20 22 3b 73 63 61 74 |tered  :|  ";scat|
|00000e10| 74 65 72 25 27 22 50 65 | 6e 65 74 72 61 74 65 64 |ter%'"Pe|netrated|
|00000e20| 20 3a 20 20 22 3b 70 61 | 73 73 25 3b 0d 05 64 05 | :  ";pa|ss%;..d.|
|00000e30| e1 0d 05 6e 04 0d 05 78 | 0c dd f2 43 6c 6b 41 64 |...n...x|...ClkAd|
|00000e40| 6a 0d 05 82 1f f4 50 52 | 4f 43 43 57 69 6e 28 35 |j.....PR|OCCWin(5|
|00000e50| 30 2c 32 38 2c 32 35 2c | 33 2c 73 74 6f 70 25 29 |0,28,25,|3,stop%)|
|00000e60| 0d 05 8c 39 f4 50 52 49 | 4e 54 27 22 20 43 6c 69 |...9.PRI|NT'" Cli|
|00000e70| 63 6b 20 61 62 6f 76 65 | 20 68 65 72 65 20 74 6f |ck above| here to|
|00000e80| 22 27 22 61 64 6a 75 73 | 74 20 77 61 6c 6c 20 74 |"'"adjus|t wall t|
|00000e90| 68 69 63 6b 6e 65 73 73 | 22 0d 05 96 1b f2 43 57 |hickness|".....CW|
|00000ea0| 69 6e 28 33 34 2c 32 38 | 2c 34 35 2c 33 2c 73 74 |in(34,28|,45,3,st|
|00000eb0| 6f 70 25 29 0d 05 a0 58 | f1 27 22 43 6c 69 63 6b |op%)...X|.'"Click|
|00000ec0| 20 61 62 6f 76 65 20 68 | 65 72 65 20 74 6f 20 61 | above h|ere to a|
|00000ed0| 64 6a 75 73 74 20 77 61 | 6c 6c 20 74 68 69 63 6b |djust wa|ll thick|
|00000ee0| 6e 65 73 73 22 27 22 20 | 20 20 20 20 20 50 72 65 |ness"'" |     Pre|
|00000ef0| 73 73 20 45 53 43 20 74 | 6f 20 6c 65 61 76 65 20 |ss ESC t|o leave |
|00000f00| 74 68 65 20 70 72 6f 67 | 72 61 6d 22 0d 05 aa 0a |the prog|ram"....|
|00000f10| ef 32 36 3a f2 46 0d 05 | b4 05 e1 0d 05 be 04 0d |.26:.F..|........|
|00000f20| 05 c8 0d dd f2 53 63 61 | 74 53 63 72 0d 05 d2 10 |.....Sca|tScr....|
|00000f30| f2 43 4c 53 3a f2 43 6c | 6b 41 64 6a 0d 05 dc 08 |.CLS:.Cl|kAdj....|
|00000f40| f2 54 6f 70 0d 05 e6 29 | f2 57 69 6e 28 35 2c 32 |.Top...)|.Win(5,2|
|00000f50| 38 2c 32 35 2c 33 2c 22 | 53 63 61 74 74 65 72 69 |8,25,3,"|Scatteri|
|00000f60| 6e 67 20 72 65 73 75 6c | 74 73 3a 22 29 0d 05 f0 |ng resul|ts:")...|
|00000f70| 05 e1 0d 05 fa 04 0d 06 | 04 09 dd f2 54 6f 70 0d |........|....Top.|
|00000f80| 06 0e 19 f2 43 57 69 6e | 28 31 2c 31 2c 32 38 2c |....CWin|(1,1,28,|
|00000f90| 30 2c 64 65 73 63 25 29 | 0d 06 18 23 f1 bd 31 33 |0,desc%)|...#..13|
|00000fa0| 38 2b 22 20 49 6e 63 69 | 64 65 6e 74 20 6e 65 75 |8+" Inci|dent neu|
|00000fb0| 74 72 6f 6e 20 62 65 61 | 6d 22 3b 0d 06 22 1a f2 |tron bea|m";.."..|
|00000fc0| 43 57 69 6e 28 33 35 2c | 31 2c 31 35 2c 30 2c 64 |CWin(35,|1,15,0,d|
|00000fd0| 65 73 63 25 29 0d 06 2c | 17 f1 bd 31 33 38 2b 22 |esc%)..,|...138+"|
|00000fe0| 20 4c 65 61 64 20 77 61 | 6c 6c 22 3b 0d 06 36 07 | Lead wa|ll";..6.|
|00000ff0| ef 32 36 0d 06 40 05 e1 | 0d 06 4a 04 0d 06 54 0c |.26..@..|..J...T.|
|00001000| dd 20 f2 43 28 41 24 29 | 0d 06 5e 1c 4c 3d a9 28 |. .C(A$)|..^.L=.(|
|00001010| 41 24 29 3a f1 8a 4c 4c | 2d 4c 2f 32 29 3b 41 24 |A$):..LL|-L/2);A$|
|00001020| 3a f1 3a f1 0d 06 68 05 | e1 0d 06 72 04 0d 06 7c |:.:...h.|...r...||
|00001030| 09 dd f2 43 4c 53 0d 06 | 86 1d ef 32 36 3a fb 31 |...CLS..|...26:.1|
|00001040| 32 38 2b 62 61 63 6b 25 | 3a db 3a e6 30 2c 62 61 |28+back%|:.:.0,ba|
|00001050| 72 73 25 0d 06 90 1b ec | 30 2c 73 6d 61 78 25 3a |rs%.....|0,smax%:|
|00001060| f0 26 36 35 2c 31 32 38 | 30 2c 31 30 32 34 0d 06 |.&65,128|0,1024..|
|00001070| 9a 18 ec 30 2c 30 3a f0 | 26 36 35 2c 31 32 38 30 |...0,0:.|&65,1280|
|00001080| 2c 73 6d 69 6e 25 0d 06 | a4 05 e1 0d 06 ae 04 0d |,smin%..|........|
|00001090| 06 b8 13 dc 20 30 2c 31 | 31 39 2c 31 31 39 2c 31 |.... 0,1|19,119,1|
|000010a0| 31 39 0d 06 c2 0d dc 20 | 31 2c 30 2c 30 2c 30 0d |19..... |1,0,0,0.|
|000010b0| 06 cc 0d dc 20 32 2c 30 | 2c 30 2c 30 0d 06 d6 0d |.... 2,0|,0,0....|
|000010c0| dc 20 33 2c 30 2c 30 2c | 30 0d 06 e0 0d dc 20 34 |. 3,0,0,|0..... 4|
|000010d0| 2c 30 2c 30 2c 30 0d 06 | ea 10 dc 20 35 2c 31 30 |,0,0,0..|... 5,10|
|000010e0| 2c 31 30 2c 31 30 0d 06 | f4 0d dc 20 36 2c 30 2c |,10,10..|... 6,0,|
|000010f0| 30 2c 30 0d 06 fe 0d dc | 20 37 2c 30 2c 30 2c 30 |0,0.....| 7,0,0,0|
|00001100| 0d 07 08 13 dc 31 36 2c | 31 31 39 2c 31 31 39 2c |.....16,|119,119,|
|00001110| 31 31 39 0d 07 12 13 dc | 31 36 2c 31 38 37 2c 31 |119.....|16,187,1|
|00001120| 38 37 2c 31 38 37 0d 07 | 1c 13 dc 31 36 2c 32 32 |87,187..|...16,22|
|00001130| 31 2c 32 32 31 2c 32 32 | 31 0d 07 26 0c dc 33 2c |1,221,22|1..&..3,|
|00001140| 30 2c 30 2c 30 0d 07 30 | 0c dc 34 2c 30 2c 30 2c |0,0,0..0|..4,0,0,|
|00001150| 30 0d 07 3a 0c dc 35 2c | 30 2c 30 2c 30 0d 07 44 |0..:..5,|0,0,0..D|
|00001160| 0c dc 36 2c 30 2c 30 2c | 30 0d 07 4e 0e dc 31 32 |..6,0,0,|0..N..12|
|00001170| 38 2c 30 2c 30 2c 30 0d | ff                      |8,0,0,0.|.       |
+--------+-------------------------+-------------------------+--------+--------+