ŭp XeO`  @`! #@%`')+-/1 3@5`79;=?A C@E`GIKMOQS@U`WY[]_ogikmoq s@u`wy{} @` @ ` @ ` @ ` @ ` ǀ ɠ @ ` ׀ ٠  @` @`!Aa   /Aa!!#A%a')+-/1!3A5a79;=?A!CAEaGIKMOQ!SAUaWY[]_a!cAeagikmoq!sAuawy{}!Aa!Aa!Aa!Aa!Aaǁɡ!Aaׁ١!Aa!Aa " B b  !"!B!b!!!!!"#B"%b"'")"+"-"/#1"#O#5b#79#;#=#?$A"$CB$Eb$G$$K$M$O%QSB%Ub%%Y%[%]%_&a"&cB&eb&gi&k&m&o'/'sB'ub'w'y{O`  @`! #@%`')+-/1 3@5`79;=?A C@E`GIKMOQS@U`WY[]_ogikmoq s@u`wy{} @` @ ` @ ` @ ` @ ` ǀ ɠ @ ` ׀ ٠  @` @`!Aa   /Aa!!#A%a')+-/1!3A5a79;=?A!CAEaGIKMOQ!SAUaWY[]_a!cAeagikmoq!sAuawy{}!Aa!Aa!Aa!Aa!Aaǁɡ!Aaׁ١!Aa!Aa " B b  !"!B!b!!!!!"#B"%b"'")"+"-"/#1"#O#5b#79#;#=#?$A"$CB$Eb$G$$K$M$O%QSB%Ub%%Y%[%]%_&a"&cB&eb&gi&k&m&o'/'sB'ub'w'y{A294 DATEN ESR dSPEKTREN 犈!LEES DITt zOESKTOP INF 9F }D_SZENEDOC o~EODESK DATh~. .. PERYLEN+SIM ͚d8PERYLEN-SIM ՚R8DPPH GWE ؚa/ELEKTRONGWE ښb0G_WERT PAR ܚc"3 4096,0,20,0,0,0.05 125,35,0.00462962962963,1,10000 ffffgQ33333Q \( ffff =p zH Q \  Q  = \ zG   = zG R \( 3333 R ! =p !\( "G #3333 #R % =p %\( &G '3333 ' ) =p )\) *G + + -p  -\) /G{ / / 1p  1\) 3G{ 3 3 4Q 5p  5\) 6( 7G{ 7 8 8Q 9p  9 =q :( ;G{ ;z < ( ?z @ @Q A =q B( Cz D DQ DQ E =q F( F\( Gz H Hffff HQ I =q J=p J\( Kz LzH Lffff LQ N=p N\( PzH Pffff PQ R=p R\( TzH Tffff UQ V=p V\ XzH X YQ Z = Z\ \zG \ ]Q ^ = ^\ `zG ` b = dzG eR g\( i3333 iR k =p k\( lG m3333 o =p pG u w\) y {p  }G{ % z% z88% z% z% z% z88% z% z% z% z88% z% z8888% z88% z888888% z88% z% z88% z888888% z88% z88888888% z% z88% z% z888888% z% z% z% z% z% z88% z% z% z% z88% z% z% z% z% z% z888888% z% z88% z% z88888888% z88% z888888% z88% z% z88% z888888% z88% z8888% z% z88% z% z% z% z88% z% z% z% z88% z% z1,1,0,6480,1,3240,0 31.640625 xmcVJ<+{T){1y?8i{jH2PRXmyq+z[6a~c<; b Sz R q Q  :j  \&0+_e7^Y(nQ6xaJ1gAXA o .LGݾ!CbY]LsQybl-/=P?8FGJQJzGHAEDT7>\-D7"1+& !NnB'q: U s GAW1;*O[#|D V9,OFAj{n<T2Efpݡd8z?ɼ1 K-+KU[L%b(BDRHO[_2jyloypkmafS^CT/4XJ&uA92T ,#&3!`I,V})23w  o dy@/f n&d(~Fc'cwKO]csL&]"gG!8Cӻͮ]Bsb\vz-0p=P?FHCJQJGIHAED7>-D89"1+&y !zq:  M  *zTm bf4nO0|cL6uR-o1Ad@?H}PX^mqzc6~@c; b <S 0pRP  Q zj  pd0ze7m{}=]@& ~vpga[WQLHD@>:8620-+)'%##! |uoia[RJ@5+!u\A"\&f_vPkLGݫ!CQI]vsbjт-/p=P>FG:JQIGH5AEC7=-D7N"0*%s  _{Pq=: n yC0<cP6Ep N=(d% k ?ctkGTb37!rIw-'vcvMoI5cEws1DnSqG cjd-?")E)#,QWMyfGM0>t2e 5XSMmDi<95m.1)$  6'I K;Xpl>.;u`Ӵ3KFnKrE^νG-_L&`0"+zrVOL< B3r[#F|w} 5iGS\mR<H@m913. )8$!\ < }cNf n$stYLRɻG¿!A/[J N|rt[1oote~L {aL>h5 qmFfYs5Tfgou /2~( d0pn;yOxXd1 kH]R.p` }ze#k_UTKeLC?!<"50j+'L# \! $ dI<:DTk21y.o޼ڋLIr-'xe OoI6Ew1s09^ lSqI clL-?!)E+%GWhfG0>ugP 5ZSOmFf>J7Em111+'L #F|Tj+ j c u rB5jEPmoI<= rLTx/cG !CӇj]msKLbѡ-/8=P>\FFJQI`GGAEB7<-D5"/(#W Q|m q D:  #XAVEWp dZOɼ Km-<RGJK_PL^%b(DRH[^jykoyokmaf?S]KCS4XI&u@81d +#%p3 `qIV){   E9kMzV9F9Rn$-wy"ߜVؤyϽ\70KnYubiνL2u4_L&2-(r_LEB>[`RMR*{p 1Eo{` OvyNd(k$H]C.p }tx#fAYUONF L=!60+?&k"I_ I&aW3<>cfDzې ϯcLsveQ; U4zV/~PTe\F޽~h<r=cy-ETx 2ةb"y93az1 ƒ2'R#\~t95~3NҮ:WiqZ@[*: VGelD"fGo0>& 5wSi[m\QH$m?171* +%  ^6*2C[qg2UܝUӶΰ50.xKqn`M6%νL8_e&^ *qŠK@yW|uKNЬ`.w DZ0BEZ|?wlD{ |jH80Y ?nz|4Т )O=!CiקPqu\Όw8}kNQ.aCA<4{XL',|ON3 &x!QX_%MrfF[LQkH@g929+&  G a%aal[TEhpds bP;'#ɲ 8]eE5' 2Au*%ws;qa Jxg!X01DNwzP,ѵ&g+S>xݮTwaTD1-KJ@O0L`Oj!1n)",(B9zOIaLmfpv?l{Wb 8YSC4\&wʾG! #3tx`hnI]SVK/)C;;5S/0)~$,*m U 7)$ =ݺKx0aL}Zm["G0j=$p}:G7|4feoTB%ZCmsv)[l:C9ƨH2E zpNstS-{S~dv&lFe{c{$t[DxÈ A6sK9`vtutda7-O)mjlkBH]*.p7`6 }A#KU}pLe$!ZQIB<60}+&" 3 $36%'ry2ދtͦƼGmI9-wu6'b#L_3oELEmT[[PzHi'eh )}K:o6 lGOr‰8J^a` `9o0ʀ hW׹L g>TL)v>F(KR3m9:"il:E*U 9gLraR^QYBy[4i+&E _@sb%td0A-Cy=PPFWgJQXQGTAEN7Gb-D?k"70$)K #iOg xq:J e S;R"Knvc+νLc2?_&[2`-Pr\.LBB:[`N8M*{i+ 1EopgHOc9bIkưHSP.WRnrVV!?4*[J ( xoK\JEw?s""4*SqZ0 ycx-2? '*m)E4E, Wf4G0> wh] 5[SOmE<5&m.g1(m# Up "!EC pYd@ѥ3ɼx K*-UKL~%bbDR1f[FjyPoyQkLraBS5.C'4X&s M v(V_q"oW=`S}_׾&\,LUq+kLb AYEc2gq)`wp#18$r3oGh. _oxDK8S|+X"hrն=a2#O@zfO'k%H].p] }#tfqUYNLE8!<4. '"5S Sp$~?nߜےFҰͅ,^TGwIIh-VCS-';xo?E\\4,(܀F)=&~Nc2ȟWuse }{\kq)sYp%H'`/|\t'Hņ?+,4<>t\E8g_-U!t3̘r#rC8%D% uTJ)$;,!'7̮7LreZO{E<4,%{  Yc-ykeNxLiNXF2yE*=~Z8p~yM "5|l@`bDUHas7T1"o.$DbIh5ԣgNV/؇pOJ;7naH; J a] M ~ ET)DpkZmbq  *`B!Ҕ_|!MKwfcC χO%HrhΣk%H]kk.pBy }#UL|!m`oTZI7>54,#p'& ]"$+UP2~Eo^+K6glƟ/(uqZC ɨ~K:'p:~ΙP;&y~,;t<=l1og ]] Rܨ$[0_u[H#Zx_q(UWcsae+gBJ|]!Y%(bt)"wSEP6gc4!t0.r#TC8w%, T'Y,4Go7jܬź3~qdbXMC:1(a VŝQo{)KjDWzBxn*G2λe}K_!&: KSq<JB>hRbZs۹p>itx*2 .{nF 4̩)|% ӛ0}1aF=A&}gf +  Qp a, T  Z {!$RL=A;pll+N(:hݒ7=XiD7tJJFo>kd3AWA&2U 5֡{n4Gy]oi,d^U`q p\]YWvQ|JBR; 3 Q+.#j 06oe7+qGĘK=R^:~n\oH$1<lL/(tZ QZ:J:(ΛF;(G~.-h]b2 Lm #0h9nyJ*0d}it9!fcTf'7Y@zi 5[FSNmC90m(1!; $m zOއЄnmIU-C'}jpT<oI"EwsRσ=?SjpnNcq00Q:a&CØҞN5[p2+B\ =ssAxɜkHU(L ϐVDAxq>q 8W _X3uRR2MGUICBO7U ٓk -o.ZT}^mM._"i?i{uL,htO; D!qJX%sxeYND;3R+$,6 NLO~WGب!Cƣ]Vs;fb-m߿=F I޼F?74?(3e;J=, Qo7Nn_<bxFY:L@ \~cӠC!;Uӊp(p@j90-y ;{u5$vMγKU<4;7o7.JJ|BR3_,e-"}4ijHrVK1ti:O &lEc*95;iq1q3bVJT?5,5#t'8 #[ ߜ#"5|*mL\J6U"%=$xGB>|A4f0ETe!o mڑnvY3Zcȡ=],2(S$ i9ϵDHveS?F(I- 'O]+`o3E=o.#oF4WpR!IKU&c#DQ؀cFF>!.~F`$.sBV=A}ZW9V'fzK y e ƪ$B@B@F H .! .   zPR0:H6K'ܼ:޷Og%/>˩%!| +Kuk K}R22 uKN7 +)  .wq7/ ykq^*QF:0K&c3׭ :A~m[GW0D9B.PP%~&-C"]>>DHq(M9`  Pu n]%54q{xHC%4pZ[LR<,h$ó£He17_%oZ15B<Z-.˚_zQ.1 0K]87cq)ɫWv*i^hSJ@8//( d i,m܌yz m`YCEI) :p3Y5ukn^ 4:hf egWkwab~Z[h $pB7^pU|` g %}Lgg6'V1MP/ZInS,baHąDrҀ ;@wUī,v,`Ma'NRI"o=H"GszG<.8m d ;q jy(qutiEZR>L.n!DqOғ A$.@> S?+%cQ;mFrJ:pHjBRb/9#X*.M$.CJ9]0 'X6? {>Wx}̮H,6A}Ql*7XLBr)> /J$/d.(? 5vѡݗ+v( ._bZEL n/*&m)o8[ZWOCr3eWY OZ]-4>abI @$U8]G.=0p$89 ^?KC״@i6d#n G)]-b|!X.|^(uDdf{>UpF\.FI-rYF.MQa _g-}{`8)#?~K^b.$):RgO@|U k 2hCh AX ٥V'Wu.q7 LY1Cpp <?wPhv[~PTE%<4-V&  Ei Xk$3kܟ3֘?CA\WҼ:*w nj:šjCp|UAA'5K:74)jK1'e3ool=,ڡа ˳@;<()}LF:xWC4>yD*øp<~r6[1SK^aa9I&&u~t J_(F7X[Q _;odG>`"1e@y|H-(GK& zN'M6@ ~QreYND;h2*"qR bM" F~  kr>f  Sz jW eWAM)_ !R]ͫ̿LU0("Ȍ¨W[`NŘ"n;2x%q}¿Đ}Y0t,T4KS f~[fV8TxSكPΟS9 o ,e p bh 3WCup}$5jofh!_Z:QU!! b.b$Gw-dx@@W2m?!){q9 L[1EVp/ <!vT%ugZOPD|:c0'O *gן[3RqaAN:F#T z˹sh{OK(oH 3FDxތ`PWqOiwþRL?v%݀S5 ^|QuZ+1;&>xD@7(=q=E5##X9\!LtC<WL%z38-g[_QdQe511g<yؐH(6XK _LM9a @ D~sg [LPeF<<3+" rIܐ!a\sbTNC71wbѐef'1].VtXx 0yO`@URD#޳K-l[cQWu5OQsT5Y=Um(4=}M[\qPBoK'y6 2W v +] V 1  ^ &0 %MBrxh*`IUjMSo_LVMQNJNsJC0L9n.^$<: K6͇6{z>ncYyP)G?z70*#e]x HYBiڅ>~0<Iv?oi]I3RzsO;oW ڼFD3hތOPYVr?c#jp@pqW >x:z1 &ؠepfL2JUA {Z#FDbX <(7a  A!DcNrBl+U&#0 'cwgjNK{)2  HK {GwoY7d[7 RJC=72{-P($n dm  M.(*d\TBz1hwRvѐ95f's.6^Xx>.O AwTw*Jyu`[qgCheGV8#}3~KP.):w=HO7|M {!|k1hyhu,P ԕV}Qu(Bq5LW1; ^m {lhWnG81*2 (ٍm˨{x?y ~Κڞ! 4@TTYlji(woX{dlxPcypUfE\<6DQ(GlN>'5 P.['!f\- S   %0%דљ80oh hvcpLth45J jLֻ˻Փ I2OXNZwj(="3  DjyKul2T <'/ `f~- ե|gѩvY9Pf+.dg7xavP)Z8BNV]Z!jxi-/%ez _YL~VX1u q7LY1Cp <wi\'vPGT>y%60 *$J'M 8Z7$k3X?Cֵ\pҼ*$°FtϿx +#;F$0J:$HBP_9# .a$,/ ˗ GzdLi0A_w-^"_Q.0KT+ϖuc2)bthJ]0S9J9B:3-'"F.[\ tւʭU]~ en]Jى5BˤR((ǧ^YmUvA 0׾PqΒ G>UTtJB h hY $&k%]L/"RBlٙs .Kx60wμ 7,PQXjWZ_CmډTdP4E((I Weor(3n wd TU3Fy6N{(!JP Pn~PqCfe[\Q-IAS :43-'"M lCdMpQ xp2^7JL3rJو/N.? X:{"e џ+R 1tZK0(Y"&g޽ֱa1C/^q fouC1%br"[r&ekzщ/Tmxn@ *iTI=vV E!wrq7GLY!1C0p@ <dRvWr+Tf%\6S JCu<61P,J'#ch& X7J{w k8++Uw e<O 7p?tdJJ ]pߪ~kWhIzBM1-RzfrvB'hqko{-9n7̟ N)g3w<M'Wlw-R(TG_!CEoVwrImI - IY[^T13 zO}mT7aX OHG@:5.0Q+($p!1<  Y BdP@h[D*ٕI\T 1{wh ѐR 8f)P.idxaeP)K,BAVQ;!*jx`\h/ et_NL V|VY/u q7LY͋1CpN <ykI^vT*JTB%;50C+'\# dxmF b K J \ }_X9V Vn]n UQ-bڐeΜUً#˨u? i`(ڞ! #@DYl\i(joXolmcygcU^ES6DJ9(A N81; P*$fK\S- F <ua$Lk3?C"ܩ\ ҼT*" q1°t x r+#._;>cFGJ:JHIBPEr9#?.9$.2,y& !64{> 0  !^ F~Z3`|F+,fw7L[AܺشȻ84O yLfpPyth8J Pֻ, 8I>=OiX^&wj,()"3$ D!jKy2d v;KgL Z`O3E=55w/7*<%u !DNgi > y:'B^{r1l/XS܀شlϖ\=Tu1twaѐKT1df)b.bx][P#?B 4UCjuPJiMM:bw]Ubskm)DjX|S&]rkmvnp. =YFgJHXB`x9)m.b|$.WNE' =A66E0*%!{>l3, O nCo-Lr!\J|D/8 x&ebOp7tf7J WN.FeEEB:qy+[|_IT05 6Qtp}A/{x==j,T^0Gh5eTJ)b["jQQ ]; !NjWKy2% Kyc j^YSpIAw:~74+. )%X!w0  C n?[p+)=']$8k3?^C ZjҶM{rw mZfdQgݖow~V~mAuH1acDw)28"ȸtU|g\lQhvoyP *$f0>~̎YV]6uq7*LYW1C/po <|naJvVHLTDi%=(617,L'$ Ge ^  wfcky'36.di?k 8)w zgpRth:J ֻ "I@'OQX_w~j(+"3& D=ʝj|Ky2 wKi \8QG?F8 w17,' # 1 Cc ?c[q9{jU)FC_%$kJ3?RCdڍ\ҼȲ*8G°StАx |+#.~;>FGJ:KWHJBPE9#?.9$.2,'3 "U6X!\{>   >  *b?TtK"r]I6&~ztplgc_[YUQOLHFDB@><:864220-++))'%%xoeYL>-Z-;MQ^F ,k%@e @Et"%J  j  .I6EDsm<#&dY(lL2mT<#oL$b&M%!.,/n$gk3U?,CSه\&Ҽ*. °Ntϐx +#-;=FG J:JiHI3BPE9#?3.8$.2R,E& !6p{Z>    m`tF-G4Wa)J^C8_YZeUJ2teͬxًZ˨c? kڞ׾! #@DYl\i(joXoln-cygU_5EUm6DK(BN:33 P,'3"_4f~\-xq  " U/=sy0l0Lk/m"(Z_+u6$k{3?C޲\w{Ҽ*47°t hx +#.;>FGJ:JHIBPE9#?.9$.2,'# "B6EG{> | #  Cg{o&p?vW8r[D-qP+q3IpSMFF- k@1U#z "|J G  + .Em<}$C bE(xpic]WSOHFB>:8620-+)'%##! 3 1024,0,50,0,0,0.1 125,30,0.00462962962963,1,10000 QQRp  G{ Q \  \) \(  ffff p  =p G{ zH Q  zH !G ! #z #Q #\) %R %\( % '\( 'ffff 'p  )3333 )=p + =p ,ffff .3333 .=p 0 0 =p 0zH 1 1 =q 1G 1 3 = 3z 3Q 3\) 5zG 5R 5\( 7Q 7\( 8Q 9( :R :\( Q >( >3333 >=p ? ?\ @ @ =p @zH A\) A A =q AG C C = Cz Ep  EzG F =q GG{ H = Hz Jp  JzG JR L=p LG{ LQ L\( NzH NQ N( N3333 O O\ P Q\) Q S T\ V\) V X\( X X = Zffff Zp  ZzG \=p \G{ \Q ^zH ^Q _ czH dG d fQ f\) h\( h jffff jp  l=p q3333 s =p tG vQ x\( % z% z88% z% z% z% z% z% z8888% z% z% z% z88% z8888% z888888% z8888% z88% z88% z888888% z88% z% z88% z888888% z88% z% z% z% z% z88% z88% z% z% z% z% z% z88% z88% z% z% z% z% z88% z888888% z88% z% z88% z888888% z88% z88% z8888% z888888% z8888% z88% z% z% z% z8888% z% z% z% z% z% z88% z% z1,1,0,1024,1,512,0 50 W A K 8g fe-)+ ?#ߙӆC\CCD6 g-:{N6 0'f_-).>$'A].* K Lg>m |Z1|< RfΕ0-)'Y6$kKb"4eՓlW/N#l'ҕQÖ|-dkg?ZQ_{4*? 6l>Q)Mfڭ-)2/"($ f\f-=ߙC[C2 g{R1#Y'JUÖǂ-kug?gQw{4*m \lR+. fا-)1k $ *}Z= p|A K gn CLf-),6 $QߙCCC g,z{)6fXmm-).9$P!FAP K gV kwz\H# "DPPH" "2.0036" "POLYKRISTALLINER STANDARD" "FREIES ELEKTRON" "2,0023" "IS HALT SO FREI" "A:\DATEN\DPPH.GWE" 3431.8,3416 . d.. SYSIPH12PRG ⚊e.SYSIPHUSPIC 욊}SYSIPHUSTXT SYSIPH12GFA sSYSIPHUSSDO n SYSIPH12LST  `S"mL(AONNNN"A4Nv m0B0 <r4< mNf0NVA 00ANNC4NfC4NNfGA4N <\ESRNNEXp NLNg:PHEXp NLrNEXp NL/?<NNT _NPpN`zEXp.NL/EXpNLr"_tN+ApfN`Dp\NNEXp NLNg(EXp NL/EXpNL"_N:PH`.pJ-HgpRfFN@Jo m0B0NǸg m0B0 <r4< mNf`N8EvNEXpNLNpNp7~AN͒$m("mNNB$m("mN <****N0f$mR`AN m0B0 EfNENpr Nvpr NvprNvprNvprNvprNvprNvprNvprNvprNvpr$Nvpr%Nvpr#Nvpr&Nvpr)Nvpr*Nvpr+Nvpr,Nvpr-NvQIE_N2NNJN``NA4NpN6<0<trN&pNZ("mN/ pNZ("mN/EXIp NL"_NJgNpNZ("mN/EXUp NL"_NJgNlpNZ("mN/EX_p NL"_NJpNZ("mN/EXppNL"_NJgNdpNZ("mN/EXwp NL"_NJgNXN~NuN @p0pkNPJNuN @p0pkNQJNupJ-JgpRfaEXp!NL/EYpNLr"_tN+ApfNNNNuN~NA큄N6<0<^t2rdN6<0<Yt7riNpNpNpNpNN*EY.pNL6<TtP2<N~pNp NpNpNN*EYBp NL6<tx2<N~pNpNpNp NN*EYNp)NL6<T4<2<N~EYwp)NL6<T4<2<N~EYp)NL6<T4<2<N~pNpNpNp NN*EYp!NL6<T4<2<N~pNpNpNp NN*EYp-NL6<T4<2<N~EZp,NL6<T4<2<N~EZCp*NL6<T4<2<N~6<0<@4<"2<NEZmp NLvd4<62<N~N^HH/NmBN."nBN.@mBN@SWHHgp$m$Np Ngp$m$$m Sg`NNN~NAN>A큄NpNpNpNp NN*p rNfEZwp%Np r#NfAN6<^0<J4<,2<Npr$NfEZpN6<0<4<2<NN^HH/NmBN.^HH/N.]HHN@SWHHgp$m$N^HH/N^mBN.,^HH/N.^]HHN@SWHHgp$m$$m f`:$m SfBp r/NfNN m 00 m 24nDBA 00p r#NfANNpJ-KgpRfN1`NGNN~6<X0<htr(NpNpN6<^pZt<2<N&6<^0<J4<,2<N&NANANAN>A N>AN>A큄NA큈NA큐NA큌N m"m ""A"m""A "m""pNBpNpNpNp NN*EZp NL6<t22<N~EZpNLv<4<@2<N~pNBpNpNpNp NN*6<0<t}rANA,NA큈N mBh m, 6<0<4<rPN6<0<4<2<@NpNp NpNpNN*E\0p NL6<4<rUN~E\;pNL6<4<2<EN~pNpNpNp NN*p rNfE\Bp!N NHNVp r/Nf -N -fNNp Ng m0B0NrU^HH/NmBN.^HH/N.]HHN@SWHHg m0B0NE^HH/NmBN.^HH/N.]HHN@SWHHg m0B0 m4(n` <r4< mNgNbp r2Nf mrNƐp r+NfEZp Np r/Nf -N mN JBnDBN+@p r/Nf -N -f`$m, o -$m,gE\cpaNL/E[cpNLr"_tN$m$$m Sf m,+P`^A툒NA툘NANA툼NANANBB@BDBprNvprNvprNvprNvprNvprNvpr$Nvpr%Nvpr&Nvpr,Nv`` m, "-p~A툘Nͨ"-p~AN͒"-p~A툒Nͨ`NprNvNN~pNpNNA(NAN>A큔NA큌NA$N6<0<h4<JrN&6<pxtd2<N&pNBpNpNpNp NN*E\p(NL6<^4<^r2N~E\pNLv2ts2<N~pNB6<0<htrNp$m($ -N` mBhpNpNpNp NN*E\pNL6<4<,r2N~pNpNpNpNN*6<0<G4<3rNE]p3NL6<|4<@r2N~vdpxtdrFN6<|pxtd2<^N0<<=NvtprPN~0<=>Nvtp2<hN~pNpNpNp NN*E]8pNL6<,t2rdN~pNpNpNp NN*pr NfE]Qp N $m( NtE]\pN( -NtE]apN$p r NfE]zp#Np r$Nfz$m(( m؅AHNp r NfE]pNp r NfE]p$Np r$Nfz$m(( m؅AHNpr NfE]p#Npr$Nfz$m(( m؅AHNz$m(( m؅AH4(WHH/z$m(( m؅AH4(fp.z$m(( m؅AH4(WHHgN.Nr^HH/NmBN.6^HH/N.F]HHN@SWHHg m0B0NJVHH/N@UWHHg m0B0NrK^HH/Nr_mBN.rd^HH/N.rx]HHN@SWHHg m0B0Nc^HH/NwmBN.rd^HH/N.rx]HHN@SWHHg m0B0N^HH/NmBN.rd^HH/N.rx]HHN@SWHHg m0B0 m4(f`J <r4< mNgN% <r4< mNg $m(U$m( l pЭ$m($N% <r4< mNg -$m(f$m(BN% <r4< mNg m( N%prNvp r#Nfp?NNLp r$Nfz$m(("mNr N*p r#Nfp NNLz$m(("mNN z$m(( m؅AH 00p r#Nfp?NNLp r$Nfz$m(("mNr N*p r#Nfp NNLz$m(("mNN JBnDBN"z$m(( m؅AH 00pr#Nfp?NNLpr$Nfz$m(("mNr N*pr#Nfp NNLz$m(("mNN JBnDBz$m(( m؅AH 00pN̤A4N <r4<A4Nhg`fz$m(( m؅AH4(WHH/z$m(( m؅AH4(fp.z$m(( m؅AH4(WHHg`z$m(( m؅AH 24 BfJAfЀVHH/z$m(( m؅AH 24 BfJAfЀVHHgz$m(( m؅AHNNJBgfE]p0NL/E^+pNLr"_tN$m$$m Sg.E^A(NA N>A큜NAN>A$NA큀NA$N>A,N>A(N>A0N>A큘NA8N>A4N>pNpNpNp NN* -~A툞Nͨ m0B0pNpNpNp NN*p$m($ -N`z$m(( m؅AHN/??z$m(( m؅AH24 NpN$m(( mAH 00E^pN N<$m( NtN<$m(( mAHN$m(( mAH 24 mNN$m(R$m( o@]E^pN N< mNp$m($ -N`8$m(( mAH"m Ng$m(( mAH"m ""$m(R$m( o] m N"-~A툤Nͨ m N"-~A툶NͨtA툤Np$m($ -N`$m(( mAH 24&<:<NN$A< 00$m(( mAH"m$"" <r4< m$Nxfn m$N/z$m(( m؅AHC m,N/ m N( mAH// m$N*$m(( m؅AH24 N( mAH 00 m,N/ m N( mAH// m$N*$m(( m؅AH24 Np( mAH 00Nf6GNfG$m(( mAH 24 m(NN m,0B0 m( 24 m,Nfr m,N/ m,N( mAH 24( mAH 00 m,N/ m,N( mAH 24( mAH 00NfG$m(R$m( o]AD0@B0 m,0B0 m 24 m,Nf> m,N/ m,N( mAHCDN( mAH 00NfGtA툼NtAN m Bh m,0B0 m 24 m,NfX m,N( mAH4(f`2 m N> m N/ m,N( mAH 24( mAH 00 m N/ m,N( mAH 24( mAH 00 m,"m0"" m 24 m0Nf m N( mAH// m0N( mAH24 NgV m0N/t( mAH 00N m N/ m0N( mAH 24( mAHN\NflGNfG m CL"" mCLNgE^p N ALNE^pN$A툪C툼  "002A툰C  "002ANA툼NALN~A툼NͨALN~ANͨp$m$ALNN`bN$m( mAH 24$m( mAH 00$m( mAH 24$m( mAH 00$mR$m o]BmZA\0B0 m 0B0AL 24 m Nf m N( mAH"m4"" m N( mAH"m8"" m "m,""AL 24 m,NfN m,N( mAH"m4Ng m N/ m,N( mAH 24( mAH 00 m,N/ m4 24( mAH 00 m N( mAH"m4"" m N/ m,N( mAH 24( mAH 00 m,N/ m8 24( mAH 00 m N( mAH"m8""NfGNfG$mB$mR$m( mAHCTNgJ$m( mAHCT""$m( mAHC\Ng$m( mAHC\""ALN$mg`prNvprNvp+@A툰NA툞NA툪NA툤NA툶NNN~NNAA@N>ADN>A N>4-fB4- f0E^pNL/E[bp NLr"_tN$m$N4AC""ANADN m< 00 <r4<ANt m@ 00pNpNprN6<e0<htA큠NN -D"-@ҭЁ+@pJ-LgpRfN8$mBpNpNpNp NN*6<X0<^t(r(N6<pxtZrnNE_pNL6<tnrxN~AF6<tn2<JN~6<0<4<rZN 4-f0E_p.NL/E[bp NLr"_tN$m$N=>A"mNbAl 00ALN( mAH//x mAH24 N/?? <r4<A Np8:&NAlNpAt 00 mCtNgAC턤"" mN+@`nN/ -"ЀЁIo0E_p7NL/E[bp NLr"_tN$m$N=>AtNbN+@ -THJ@fR -&<:<N\&<x:<Ng0E_pJNL/E[bp NLr"_tN$m$N=> -ANd mNtA턤 00 -r~A툀NͨA"mNbAl 00AlC Nj&pfpfBmjNGN=>N=Bpf(p@fAd0B0NGN=>N=BpfpDfLE`pNL/E`p NLr"_tN$m$$m SfA|Cd""NGN=> -fN=BNpJ-LgpRfN< pNpNpNp NN*p rNfE`p N N&NAd 00 <r4<AdN|Ad 00AdC|"" <r4<AdN mH 00$mB$m*x m؅ 0H mHNd/??$m*x m؅ 0HAdNd8:&NN$m*x m؅!H$m*x m؅ 0HD*-$mx m؅!H$mR -$mm`Jp+@DNGN=>NGNNA큠NA N>A큤NA큨NAXN>A크NA\N>AdN>AhN>AlN>ALN>ATN>ApN>ANA0NA4NAPN>A퀰N>AN>AN>A`N> mCNbA탄 00 <r4<N`N mL 00 <r4<A Np mP 00ALN( mAH//x mAH24 N mPN mT 00 -jR+@A"mTNg mTNADNA탌 00`ANADNA탌 00$mB m BhAl"mPNjNhN$m$NpNpNpNp NN*pr NfE`p)Npr NfE`pN m N> m N( mAHC탌N/?? mPN8:&NAlNp mX 00 mXNbN$m$$m $mВ$m$$m $m^HH/$m $mWHHg "m m" -$ml m -$mo"m m"$m N`| m "m\""$m A탄NdA탌N m` 00 m\N( mAHClNj&<:<NN+@ -A탄Nd md 00 md"m`NpA Nt mh 00 mh"mhNj ml 00 <2<4< mlNpNNòA탔 00 mh"mLNj/?? mlNDBN`8:&Nv mp 00$m*x m؅AH// m\N( mAH"mpNj8:&N$m*x m؅AH 00$m*x m؅AH// <82<94< mhNpA탔Nt/?? m\N( mAH24 Np8:&N$m*x m؅AH 00AL"m\NgL m\N> m\N( mAH// <r4<A Np8:&N m`Ng` m "m\"" <r4< m\Ng m\N m\N( mAH// <r4<A Np8:&N m`Ng m\N( mAHClNj&<:<NN+@ -A탄Nd md 00 md"m`NpA Nt mh 00 mh"mhNj ml 00 <2<4< mlNpNNòA탔 00 mh"mLNj/?? mlNDBN`8:&Nv mp 00$m*x m؅AH// m\N( mAH"mpNj8:&N$m*x m؅AH 00$m*x m؅AH// <82<94< mhNpA탔Nt/?? m\N( mAH24 Np8:&N$m*x m؅AH 00`$mR$m oz]` "m m" -$mo`|prNfE`p N$mB -r~ANͮ$m*x m؅AH 24&<$:<NXN:$m*x m؅!H$m*x m؅ 0HnD$m0o"$m*x m؅ 0HnD$m0$$m*x m؅AH 24&<$:<NXN:$m*x m؅!H$m*x m؅ 0HnD$m4o"$m*x m؅ 0HnD$m4$$mR -$mm`$m0 N&<$x:<N m 00$m4 N&<$x:<N m 00$mB$m*x m؅ 0H mNdN:$m*x m؅!H$m*x m؅ 0HD*-$mx m؅!H$m*x m؅ 0H mNdN:$m*x m؅!H$m*x m؅ 0HD*-$mx m؅!H$mR -$mm`*-x m؅BH*-x m؅BHA툀Np+@p+@@NN~NQ]Q^pNpNNAtN>AxN>4-fA탬0B04-f AC""pzNӈA 00pA&8:NӈA탴 006<e0<htpN A NprA퀀N>A퀴N>A퀸N>A퀄N>A퀈N>ANA킜NA킠NAN>AN>A큠NNQ]Q^pNpNprNpJ-MgpJf*+mdAC""a mBh mBh`hNVH6<e0<htpN A NprpN A NprNr%fNpJ-LgpRf@Eb7pgNL/Ebp NLr"_tN$m$$m SfHNNq`A,N?ATN?BAN/?< NNO mNNy <r4<A4Ng.ALN @ALN <r4<ALNg`ZR< -?-ATN?BAN/?< NNO mNp+@?-ALN??->?-ATN?BAN/?< NNO mNNu m4(f -N&<x:< NN:$m$ -<$m"NP+@pЭNaa\$m$$m( m 0H$m$p$m$$m N`V$m( m 0Ha/??$m a8:&N$m*$m(( m؅AH 00$mR$m o]ANANNN~pNpNpNp NN*p rNfEigpN NNA탬 00A탬 24nDBA탬 00A탬N4-fA탬0B0aNuN~pNJNANANA퀼N>A퀔N>A퀘N>A퀐N>ANA|N>A퀜N>AN>AN\ANANANA큌NANA큀NANANAN>AN>A텴C텼a|&(*pNӈ m 00AC탴a{&(*pNӈ m 00pJ-]gpRf p$m$`p$m$$m $mg h$mR$m Uf2$m a}NtP2<N|$m a}N4<2<N|pNBpNpNpN6<hp2t2<,N&pNpNpNpNpNpNN*Ei|pNL6<,tP2<N~EipNL6<,4<2<N~pNpNpNpNN*pJ-]gpRfR$m SfEipNL6<t+rnN~`Eip NLt+rdN|EWopNL6<t+2<N~0 m 24N"mNNfG mBhpNBpNpNpNpNN*pNpN6<,0<m4<m2<NNpNg m0B0$mPNp Ng m0B0N@Sfb$m SfN.^^HH/N.|mBN^nBNX]HHgb mN> <r4< mavg m0B0p N: < N4<r2<N| m 24N4<r2<N|N.^^HH/N.|mBNnBN,]HHg$mR$m [o$mB$m fp$m$$m Sfp$m$$m Ufp$m$$m Wfp$m$$m Yfp$m$$m [fp$m$EYvpNLvx4<r2<N~$m NpN6<,0<m4<m2<NpNpNprNp N:$m ax>NtP2<N|$m ax&N4<2<N|N.^HH/N.]HHgp$m$N.^HH/N.@]HHgp$m$Nrn^HH/N]HHg$$m Sfp$m$$m Ufp$m$N^HH/N]HHg$$m Sfp$m$$m Ufp$m$N^HH/N6]HHg$$m Sfp$m$$m Ufp$m$N^^HH/N]HHg$$m Sfp$m$$m Ufp$m$N^HH/N]HHg$$m Sfp$m$$m Ufp$m$N^HH/N&]HHg$$m Sfp$m$$m Ufp$m$N,^HH/NhmBN.rnBN.r2]HHg m0B0 <r4< marf`D$m UWHH/$m SWHHg m+P0 m+P4p$mJgpRfN(QR$m f>EipNL/EipNLr"_tN$m$$m Sf`r`PR$m fEjpNL/Ej pNLr"_tN$m$$m Sf`*$m UfXEj4pNL/EjOpNLr"_tN$m$$m Uf$NEjapNL6<4<rdN~pxN:$m WftEjzpNL/Egp NLr"_tN$m$N$m SfEjpNL6<4<rdN~`Ejp!NL6<4<rdN~pxN:$m WHH/$m WHHg2NEjp NL6<,4<2<N~ <N:N`$m Sf "m m"N`EjpNL/EjpNLr"_tN$m$$m UfN(EjpNL6<,4<2<N~NH/ AN>AdNAhNAlNApNAtNAxNAC탴ak&(*pNӈ m 00A텴C텼ak&(*pNӈ m 00pNj"mdNpA텴&8:NӈN"mdNҮpNj"mhNpA텼&8:NӈN"mhNpNj"mlN m 24N"mlNҮpA&8:NӈNC톾NA톾p0Ng <0.00A톾NlA톾"mpNpA탴&8:NӈN"mtN m 24N"mxNpNj"mXNpNj"m|NpNj"m`NpNEmp4N$pNEmpFN$pJ-]gpRfpNEmpLN$pJ-]gpRf& mp"mXNҮ mx"m|NҮ mt"m`NҮ`XpJ-\gpRf& md"mXNҮ ml"m|NҮ mh"m`NҮ`$ mp"mXNҮ mt"m`NҮ mx"m|NҮpNEnFp NL"H mXNfNZpNNVpNEnQpNL"H m|NfEaOpNNZpNNVpNEnipNL"H m`NfNZpNNVpJ-]gpRfpNEnwp NL"H mdNfNZpNNVpNEnpNL"H mlNfEaOpNNZpNNVpNEnpNL"H mhNfNZpNNVNNA큘NANANANANAN>A킼NpNEnpN$pJ-]gpRf>pJ-^gpRf m0B0$m$`* m0B0$mB` m0B0$mBpJ-\gpRfpN0A퀤N>Np~AN͒p\NaqEXpNLaqEnp NLa_gEnp NLrap\pN. m NXpN.N m 00N m 00an m a_bg: m rapp$m$pN.$m("mNNX$mR$m WoanNNANNNx"mN"mNx"mN"mNx"mN"m NpNj"m$NpNj"m(N m 24N"m$N m 24N"m(NNN`NuA4a}pa}fpa}dpa}bp a}`a}h6<b0<ht(ra{6<X0<^t2r(a{p-r-a}6<pPt<2<a{EnpNL6<,tK2<N~6<NpxtdrFa{`Enp NLvPtsrKN~ mts2<N|6<N0<4<rFa{*EopNLvP4<rKN~ m4<2<N|6<N0<4<rFazEo p NLvP4<rKN~ m 4<2<N|6<N0<4<rFazEopNLvs4<rKN~6<K0<4<rIaz0<rGa|~pa{pa{6<0<4<2<azEnp NLvF4<2<N~pa{vpa{6<40<4<2<%az(6<0<4<2<az6<0<4<2<az6<B0<4<2<3aypN4<2<(N|pN4<2<(N|pN4<2<N|pN4<2<N|pN4<2<6N| m$vF4<2<6N~Eo&pNLvF4<2<N~ m(vF4<2<N~pazpaz6<0<4<2<ay46<0<4<2<ay paz|pazp az0<2<azpazpazpazpazazEo,pNLvd4<2<N~6<D0<T4<2<^ax6<,0<T4<rFax6<0<'4<rdax6<0<J4<6rdax6<&0<'4<2<|axnpaypaypayp ayayEo4p NL6<4<"2<N~Eo>p NL6<4<"rxN~EoIp NL6<4<ErxN~6<0<J4<62<haw6<0<J4<62<aw6<:0<J4<62<awEoTpNLv24<E2<mN~EW1pNLv24<E2<N~EoYpNLv74<E2<N~paxpax0<rHay^paxpaxpax0<2<`ay@paxpaxpaxp7r7ay&NuA4aypNLr"_tat$m$A4aqFNNA0NA4NA퀨N>A퀬N> mN m 00 m"maU maW m 00 m 24N"m0axLpNj"m4ax>pr m0Npp.aj/pr m0Np"_ailETpak"m4Nnpaopaopaopaoap m44<2<awBpaopaopaop aoaoNNA NA큘NANA큀NA큠NA큄NATN>AN>AN>AN>A@N>AN>pJ-WgpRWHH/pJ-MgpRWHHg N6<Y0<4<r1am6<Y0<4<r1amv10< 4<r1am6<@0< 4<2<@am6<Y0< 4<2<Yampanpanpan6<&0<^4<,rdalpanpanpanp ananEpFp*NL6<4<Jrxaupanhpanfpandp anbanjEpppNL4<r(au <50 %N4<2<7auEpspNL4<2<NauxEpxpNL6<4<rdau`$m SgN.,^HH/N.^mBNrdnBN&mBN@SWHHgp$m$N@Ufp$m$Np ahJgp$m$N.^HH/N.]HHgXN$m$N@SfD$m X]HH/$m r2^HHgpalpam86<X0<4<$m"ajpalpalpalpam $m&0<4<r2aj$m rЁ$m $$m &<\(8<Ž:<aS&(*pNӈ m 00EppNL4<2<@as m 24N4<2<@as`X <r4< maQ m 00 m 24nDB m 00NA@asPpakpal46<d0<gt=raj0<rajpJ-WgpRf6 <r4<AaS mt 00A턤Car4gA턤"mtaP/?? -aO*8:&aR m@ 00A턤CaLN$ mtaP&<:<aL mx 00p$m$ mxaMap`lp$m$ m 24aa m 00 mN maLtN:$m $$m?*$m ?*pai$mR$m Yo$mR$m o]$mB -apt` m 24aaN m 00$m  m@aO mxaLaM<$m$$m*xح m؅ 0HA,aOA탬aO&<:<aKN:$m$ mN maKN:$mВ$m $$m ho $m $h$m r m 00$m $m m@aMaK.rЁ$m$$m*xح m؅ 0HA,aMA탬aM&<:<aIN:$m$ mN maIzN:$mВ$m $$m ho $m $h$m raG$mВ$m$$m*xح m؅ 0HA,aJ A탬aJaGv$m$ mN maFN:$mВ$m $$m ho $m $h$m ranp rNfEqp&amprNfEmp amayazhA 004-:f,4-o&ACa:aaJ&(*pNӈA4 00$mPaIQZ``Xp$mJgpJf`D$m Uf(p$mJgpJf8Eqp,arX/EqparJr"_ta\$m@$$m@ Sf`p$mJgpRf <.BINar"maR$"mDa`` mDar"Erpaq/ mL"mD,N mLǸg mLa9Fg6Eq)paq"mLaQ/E^+paqr"_ta\$m<$`d mL"m,a`Hp.ar"m,av<$mD$p\ar"m,av($mH$$mD"p$mHD$m$$m r$mHҒ m,asP"m,a_p$mJgpRfl m,"maQg^p aq"H maQEqPp-aR"H m,aPEq}paR/Eqpapr"_ta[@$mL$$mL Sf`~A(N <#(~ANͮA"NA.N mLraI$mB`paiVYpaw> mPax`p mPaq0paiFf$mPaFQZakp$mJgpRf4ErpCao8/ErRpao*r"_taY$m$aFXNT"m\ m"$m\ ~A"Nͮ$mX nD$mTВ&<:<a< m 00 <$r4< ma< m 00p$m$$m\ a[0`2$m( m 0H ma:N:$m( m"!H$mR$m o]AN``p$mJgpJfNErXp,an2/Erpan$r"_taX$m`$$m` Sf`$m` Uf $mPNB -o$mP$m\ a8@aqzC톚a\ -a8,aqfC토a\p$mJgpRf$m\ g$m\ ^HH/ -]HHg`Erp/amn"HA톚aM~ErpaO$"HA토aMhp)aN|/Erpam:r"_taW$md$$md SfNT$m\ &<:< a: m 00 <r4< ma4,gFErp al"HA톚aLEsp)aN/Es8palr"_taW0$m8$NT m 24&<x:<a3b/ m 24&<x:<a3F m 24&<x:<a3* m 24&<x:<a3g`@Es>p%al "HA톚aL0EscpaM/Es~pakr"_taVv$m$$m WfNT$m Uf Esp)ak/Espakr"_taV0$m$$m Sf NT`Esp ak"HA톚aKEspaMA큈ac^AXac.pJ-ZgpRf?<NATrAЁ mXacEtpac"mXaC/ <.SPCadhC톦aC"H m ,as:ad m awg m a+Vg@Etpacz"m aC/E^+pacdr"_taM$m$$m Sf`` m ra;pa^A4a^ra= -a^Ja=Aa^Tx m(AH /A(aBl$rala:2`etaVaeA큀ab:A큠ab2A큘ab*Aab"A킌abA큄abA클ab A킄abA킈aaA킘aap$m$paILpaIJpaIHpaIFaINpaHpaH m IQ  -a,&<x:<a0r m 000<raGp$m$ -aN`j$m  ma. a+rЁ$m$$m( m( 0H ma-&<x:<a*a|$m$$m?*$m?*paGf$mR$m o] mT(<*<e|2~aK(a]26<e0<htvPt(2<6aNdEu0p a`&vPt(2<aNLa:A@aN a:p mTt2raG$mB$m navSfavr^HH/avr-]HHgav,^HH/av|]HHgp$m$av`^HH/avNX]HHgp$m$`n$m UfEu;pa_J/EuZpa_p mT$m$raCpam``$m a&p&<x:<a$: ma*av$m$p$m$pЭ$mg $m $m( m(AHѐ$mR`aW^`HA@aIpaB46<d0<gt=ra@fpaApaAp mTt2raCPa6:A@aIba6Npr#aJpr$aJ|aVpJ-`gpRfpr,aJbp+@+m -a%&<x:<a)J m 00QWQMQ]P\Qbpr%aJ`]rQ^aNpr&aJaVa]A큀aZ(A큘aZ AaZAt0B0BpJ-bgp"pJ-dgpJfzp+@+m -a$&<x:<a( m 00A4ad(Aa"&(*pat~A텴 00A4adAa"&(*patXA텼 00Npa@pa@pa@pa@a@pa@Tpa@^ m IQ 6<e0<htv0<m4<hra?@6<e0<m4<h2<ea?,pA텴&8:asa]04<wr aGpA텼&8:asa]4<w2<DaGA텴C텼a!z&(*pasa\p a:tEi pa;4<w2<,aGXpraj:Eup aSA톦a9pr(ajEu p aS -aTprajEupaSA4aTEuqpaX/EupaXr"_taC4$m$$m Uf QbQd`a3\A@aFa3pQWQMQ]P\`Zpa>pa> m IQ 0<.mDra= -oT m -aD`0 -$mo$m  ma$a!rЁ$m$$m Sl <.ЭD$m$`R -a"6&<x:<a /??$m( m( 0H ma#Ata#8:&aarz$m$$m rmh$m ho $m$hpJ-^gpRf$m o $m$$m rag maagr$m$$m l$mB$m Jo $m$J m"ma&<:<at/??$m a8:&a&(*paj m 00praaR mx"maaK m 24 ma&praa( m"ma&&(*paj2aKVpa6 map/ maf&0<ht<"a5Xpa`pa6afUf. ma4<2<a9 -a1pa16<pstsrda0$mB$m SgaJp a,gp$m$ab,SfabrP^HH/abrx]HHgNRplp+@pa1pa16<pvtprRa/ -a1Fpa1P6<pstsrda0Tp a[aa^HH/aa]HHg@aaf^HH/aaT]HHgnpa1pa16<0<4<rea/0 tr a)2Evyp a:"HA톦a <.SPCa`6<t2<a)pA&8:aUa>d4<rra(` -a!pa!pra!"6<pt2<,a pa pa pra 6<pt 2<,aEvp a:\"HA:al6<tr2a(xA텼 24a=t2<:a(^pA탴&8:aTZa=4<r2<Xa(>`r$m Sf" m\6<t2<a(" mX4<rra(`F m\6<tr2a( m`0(ava(b&<@x:<aa:/ m`4<r"a'abA@a'ava$mR$m UopapapraBpa L`;a?HnF?<6NAP0.PTHNu 24&8:PdRBPdRE Ee EbBffpNu Be BbpNu 24&8:BfJBg f DfpNuJEgpNu 24&8:BgnpNu<ngfDcpNufAcpNu 24&8:BgmpNu<ngfDdpNufAdpNu 24&8:JBgfDf EfpNuJEgpNupa JkpNupNua9tAHPB?HQ?<NNAP _NuDExab`bDEaZ`ZaR11!Nua11!Nu 24&8:DE`6 24&8:DB`&a &8:DE`DEx`a ` 24&8:HnghDBHngXDE~<En g6@ABDFGcGcGb8(vHDl`G8BCHC` GHD8HD쬵k&Dуd QRB BbJjDBNu DENupN֓DjdDA@ cAр[SBoJjDBNurptNuH@g0J`Ѐ[rGoJjDBNu0ftNu@[rB oH@JjDBNu 24HjDBaDBNuBe B/dAрQ4<`BNutNu $HkBk Bj*DBNupNuDBBkBjDBDNuf gp`G 246jDCCe0 C/jC C@j C jr0H@{0>H@Nur{0Nu{0NutNu 246j(:<DCaf AfBfNu`!a 00Nur$o, b4< J@k @[H@NuH@RBNu4<Ѐ[NuDg8k2 b4< J@k @[H@DBNuH@RBDBNu4<Ѐ[DBNu4H@Ѓdh`^HCH@:">H@`H2g&HCH@:<HC>H@Ѓd(`HCH@:H@r` gDBgkDE`HDBDEaBDBNugDBa8DBNutNua 11!Nux`xaR`aL` 24&8:HoHoEBJAgJDfr:g,|HC҅H@:ۆ<HC>H@Ѓd`vHCH@:H@`fgDBgkDE` DBDEaDBNugDBaDBNutNuHoHoEBz:g|HC҅H@:ۆ҄ۆ<HC>H@ЃdHA@B@H@хk HAҁHAрSB BbNuJBj^tNuk(g.JBjDBAр[SBDBjNutNuAр[SBkNuJlNu0gH@rJBkB JkЀ[`DBЀ[`J.;gP:pr4<Nup`DfNup`D 248o6" <(<BJd@؄ЄCӁeg,e Єf`fҁecRH@hrH@NuNuxap`Ba411!Nux`4 24&8:`& 24&8:`a@&8:` &8:@ABJEoHnfNup`CHtNugDEDBHngDBEBkQ*HEJDg?<>0rHGGdHGGdSWDуdi?<>0rHGGdHGGdSWDуdi ?<>0rHGGdHGGdSWDуd&2 H@kփAр[SBkփejRAd RdQRBJjDBNutNu?<,>CEdGH@0r`xJCgz?<0rÐdSWЃdi?<0rÐdSWЃdid?<0ÐdSWЃd&2 H@kփAр[SBkփejRAd RdQRBJjDBNutNu?<0riR?0i?`?<`@$g\kdHfiHNufnpNupNu"lDaDNuJnDaDNuzxeҁ؄d`ef Nup`A0"_KvMIO:HQ <-H*,`N,Id d3 d# d# # d# # # # d ALH dAL H LH d AL`H L|0H>L|H>d~# # # # A`@ALH L|H>L|H>L|PH>L| H>L|H>L|H>L|H>L|`H>L|0H>L|H>QL|Nu$H$&"BA -KaXA"f B &nNuH>dd2d"d""d""""d LHC dLHLH C@d LHL|H| L|H|PCd~""""C`:LHL|H| L|H|PL|H|L|H|L|H|L|H|L|H|@L|H|pL|H|L|H|CQL|Nu`Ha8A-Hhp apMa=@F?<NNTT@A0r p0Q`pdr ta0.F=@=@ACp,2QAp 2QaFa:`x`|peahp`(p?a(adajaHz?< NA\?<LNAfCR2A0A82r22a"<0<NBLNurt=@:=A@=B2::(   F..26"8@"PQ1!P1P!0PP`0  q#p"AӘQNuA Nu|^|  R^,T:Hz(` NxHz ?<&NN\Nu9\gNuW\Nuaaa`6`Er$Wgr STD:gr COM:g r LPT:f2FA$_0=@D~CA0< Bha'B2"pNu$_AF Ge><QBAFpNuahgzp=` a\gzpa'AHPBHQ?NA\ _Jk7Nu/ Ia'`$$IAHPB Ba'LAHPBHQHRBg?<VNAO _ _Jk7dNuHz `Hz"` <Hz&?<&NN\Nup CNup C0Nu C NuJBgVB&8TTDуdQRBNuDAр&AdRAрAрDуNu <r4<NuHPa _aNp"`p,`QfHR$n2Jjg$_NuH LNuPfJ.fg0HR$n2Jjf$_NuHC/*%I $n2%_LNu B?b4<rpAv JBlDBv-|JBg Bb Bk&H>a@aRFBd&8*L?a<aSF Be BgQRB`RAdR e <rRF&0xaCձfEv+0JFjDFv-Hƌd0BFHF 0HF0ANuprt|`HQ2.d Aeg>r C 5e&!R 0c 9c0`<R"_`VC0 Ef"_Nuaa/ CFr  g 00VJAgB @ nN @mHJ@j0.4DBUBk0QSAg Q.`S@k 0`0BAF "_Nu.WAkQA 0g`-@ _a G` VNuag`af`ae `ac` acpNuadpNu/ a T$I> _a J4Ae4v` VfANuHP0(R@kBa0 $I _a IUd4Id4Id$Id `$$$$Q @JfNuNup `0aSAfNuag`af`ae `ac` acpNuadpNuaSAkfJANuH HPhkJa $I _aIUd4Id4Id$Id `$$$$Q @JgSL`QNup `/na:Af` VNuag`af`ae `ac` acpNuadpNua4@m4v` Vf@Nu/HP0(X@kHa $I _aIUd4Id4Id$Id `$$$$Q @Jf$Nu $Nup `.aYAfNuag`af`ae `ac` acpNuadpNuaVSAkEF$p VfWANu?HP0(T@kHa< $I _a$IUd4Id4Id$Id `$$$$Q @Jf4Nu0XNup `.aUAfQNuag`af`ae `ac` acpNuadpNuaSAkXf SAkXfJANu|H`|i`|l@H~|`ze`z`zd@H>|`zth`tpa ".Nutj`t@H|`Zrk` rf`rg`r5=@|0`Bt)`t` tr`t2`t@-A=B|`"v8`v(`v-` v!`v `v@-AH |`H@-@|p`HAHBHCHDHEHFHG-HfAD-HH@-@H|p`&<x:<afaJjNuz`z `z8.^n\Dn\@Hp tr=ED`4n\n^HBB=CBn=D=@p rt=|D`n\n^n\n^A0000000000prt`n\n^648HH`prt`n\n^n\n^8HH`prt`"_A `4RB`"_A42L\A` L0GF11Q-p`prHQ`:Bp'rta, n2rt6(SC0(S@apaB\papava0paRG=GYfx-IC=C=C$tBft=B=B(tFJ=BBBB*Do>Eo:@l6Al2DDk =DVBnDEk =EnBn@cVo Acno,_NuAH`/=@a _a]Ak024E$ Bb5B5A6CC5CK5C:8AB0000DkxEkt00A<:d>:bSFSGFn\GnXDDk0BhDEk1EBh Fchh Gchh0hb"0hbpmrt-|H-|L`Nu-HN ?<NNT-@XDbDEbEBb=ET=DV-|PBLBp n20(L=CJ?=B^C=C\=Cj@drAdnED??RGRF=GF=FHtGJ=BltBft=B`=BnGOpЇЇ b na222-IfHVMF,_Nup `'T np`??/ a, > _a4$FAFp_@[000][vx`* [g" ]g |g QSx` xQSrQ][vx`* [g" ]g |g QSx` xQStQ]BAF0-H,=@p4a2HNu 24DBaDB11!Nu 24DBa DBNu 24x6o<Ce(FC BdЄeNu B/dHDDdRdQRBNu&<:<`g BbUC BcjNu BcHDDdSkg Aр[RBNu0ftNuB H@"jNu Lx6oFCe0FC BdЄe!Nu B/dHDDd`A*p4. g=BNuA*pBQBX".g paBNupraHHP?<NNT~U@g~tb3(A^pr0 0BBB R@ @fA^0000PB0Tp`00000\0X0Tp`T@00000P0BXpnT0raVA0p1| 1AQBX0$HTH0P P0Tp`0NuH(Fa$L(FNuSk [0NupNupa`p>`HPaa _&X Pf/|~Kzag @ ep 2tCj"2 S@HQCػR"_d BTAA3ApC^4$I2a222B"0@2A\xva@gF2#M 443BS@ -f HQCػR"_d@BAAb8RGRC`3RSG5G5C J1DcaRF Fe `RG GdNuXA^SF1F41R1h4x1EDg"<^p-A` n"g(t( f h fpH`aLRB`Nuaa p-@-@(-@4-@@=|LpratHPKLCDHXA"0 1PP1P1PA L?P<@>AFGH 0000X0000X0000HSG~2gtLx0a Q&_NuSAkA> A1@H<`Lp`Ha-_\NuBJAgLPDEFbGb?HXaL0S@k@> AP""G0(JgRJ)@g1@2fJ2HPL<P0a4 W1@A00 pia=|@pia _C""pe`,?4<6HPa _2tLx0a=n|=| pia0.2paH\P`PH|SCSDABH0`S@k@ A=pfNupa papapaLa`S@k*@ A0g BPavpga@p aFJ@fnpahQ`B\Lrt`vNuHS&I. FVa8.:.L4.RBĴ@cBnaL4.RBŴAcJSA=A`@pJ.afrJk8 Eg,2. pg  qfL=A=Apjrta`8a>`2 d. Vg" gt gZ gn fPSnjBn`D=@0.n\=@0.R@S@n^=@prta`Rn0neBna(Q>j4&_NuBn`?<HyNM\`Rn<SFEneSn`2NuS@kD@ AC0g.?a$=_p 2.aL6Fgavp `p`p`NuBS@kl@ A=Pa=| phaPL`4p-@"<$&HA-HH-HLBnpmrt`XHz ?<&NN\Nu n2MJFo`JGo\H 8N-@-@ p-@*-@-@ H0H00(L=B=B&=CC=C=C$tBft=B=B(NuapHz ?<&NN\NuL n2M(8N-D-D x-D*-D| J@jpJAjrRBhe4(RChe6(@otAop=@=@NAXOJkpNu0< aF`0< CF2p`p a0`p CFp`aCF"p`|Hza `Hz"J`jB.@=|DNua.@FpAR@C`H @H` @HHy2aHz?<&NN\`֞ n2LLJFj|@c<JGj~Ac>02 h|N n2HHNu80a|DHz ?<&NN\Nu| n2 h N n21@Nur0?HQa _/ ?a0 _4gSB@cLAc4JBg,J@g4@Bo2’S@,. SB6VgS F"GQpNufJ@fSBD@BR@HNufS@kVfpNur ?HQa _/ ?a0 _4gSB@c:Ad,J@gB@BmS@,. RB6Vg(R F"GQpNufJ@fRB`fS@kVft0HNua aJjtNuaHPa pJk NuCg.BJ@g  g &g, $g %gNNutNuRpt`2Rpt`Rptr ae OgX Xgn HgSRB ae Fb$0k  c_  c b退`tSHkaNuRB0 b b瀀`RB0 fрd`ap`ap`ap3? B?Nu>.D<jRGg>VGg:TGjp` HPa0CF$IpR@  f _aHd2Hd2`"QNu`<.DHSGFaAEg f< &_Nua`"Nu.dfa,B?=n`r>.D<jRGg:VGg&TGjp` <.DaAFa$JkNup#` z fa2a` z f a"aAFa  f#?JkzNu0:g0.D<jRGg(VGgTGjp` n<.Da&` z faa@` z f aa(AF "g pR@0 ,g  g  fHp`:pR@0  g  g "fR@0 ,g  g  fHpRU@"_  f#?$H _ab`QNupR@0 ,g"  g  fa~ (fR~Nua ~ `a~NuaJkHQ ! gRf _NuXX~Nu0j\@??<NMXJk .dgp Nu`B<.DHSGFa ,g gAEf< &_Nu ."Ff +"g ,g`H0a^L` `jAF gp gj g grffnnpenbfJ.fj6pRGFc$SG` J.fjpRGFcRF` Ff`> `?~ap a0p a*0Nu|``CpE`bf`FgRGJGgSGSFFgCpE`Yf`Nua@Jf gH@ fa(@ fza0 b @ Ee0NuagNu4.rf?HyaΨNM\Nu=|D`LjazEfpadppa`AFEg0PaEfaFRE`ܾEfp a@a8?nnnp a2RF`<annoS@f nhfSnl=Ah=FnNup` papq4.rf?HyaNM\Nu=|DHaLNu|A0"P2(@e2<EF`QHP=|DJ@g$abAF$HpR@ 0 f _a`QNuHPp?ap a| _2<|0`C&pHQ/Hy@NA NuC pa:NuHQ/Hy?NA Nu&g4 FgagJAga2< R@AdSf0Nu0arp Ce`&g4 Fga8JBjaPgPAe CbRa R@Sf0Nu FgRag JBjaAeaJAg RP0 pNu`T Fg6agJAga @eaRP Nup NHѨB?<?/?<BNAO JkLLNu&8ajJBjaJAg Df*ڃkd0Nu DfրBH??/?<BNAO LJk!@NuHBHh Hx??<?NAO LJo ѨLNuk:fp`^k: g ѨNuBHPHQ/??<?NAO _JoѨfNuBHPHQS/??<@NAXLfѨNuJkp%`B9`$H EaA AerQBL@͉H Ia"H _/ a av _/ ?alAF-H AerQB2"_A&-H A e ` \gQBa9gaZe -|p[`pZa2ajAF"H0.g "Hg \f`A&fS !.gR EF _a`QNuHz?<&NN\ @Nu x NuA@Bh`LA@aV n@!|}Nup#fpNup`p`#Nu(aL؀.dfa>jNu?a0` ?a2@@a` a Nu4.`Af n2LR@RANu4.`g S@SAHNutbpbr??paJpYaD0a>0`8vpEȽgP`LJg&B.C`a8aD*9fap-I,=|p4aHz*9g ENp9` _a &nO:NMIKv$<Nu[1][Error +111][Return]Ev g g>Jf`Ar Hjr-D@Hd0H@H 0H@0CNuAF"H [1][fSEfNu9HHNu9`aNf"_O:N"_O:HQ`6 9Ig"9IgJ9fga"AO:Np\B`G06#f&#-KNuk"c" C gT6f`Pv6"cgRCC(D#8`D@v`v??NMXJNuJ@k??<NM"UAf J@fH@Nua~j0fpNu\@`aj`]@><CF Ipa<0HNuaN`]@><CF Ipa Nu?|`?a,0R@f|0aHJFkHPa _Nupo`HSHP&I>g\SG??<NMXJk Q _t&_Nu&_`pa Z0AcA`QS@ QNuHd0Hd0Hd` QNu$Ia Z0Ac4ASB Q`QNuA`:A`4A`.A|`(A|`"A`A `A`A ` A `A Nup`p-@Nu#RLHrYapYaLapY`V :/rYapYaHyp?o?<?NAO JkpY` /a `ZH.gZ <r4<?k"SWga`TL8Haa_MESSPEKf_LAUFWER_DATENOR"_ESPSPEKh_PINSELVH_SPEKMES_SICHNUM,_ESPZEIC_GAUSS_L=B_ESRORDN_NEUSTAR_HESCHEL_MEHRV_EINGABE_HINEIN_ATOMENDb_EINN_EIN1._NAEXTE%_EINGABE%_HYPERFI):_REDUZIE, _BILDEND4_WEITER4J_SIMSTUP8_LINFORM5_HUELLEN=>_SCHLEIF@N_LINKSBr_ICKS1O _ICKS2Pz_BEREICHV_LESEEND[_SCHREIB^V_LOESCHE_b_RETTUNGq_SICHERNlt_SIMU_EIb_ROBOTENq_KORREKTg_ABBRUCHlV_RETTUNGn_DRUCK_Eq _WAS_SOLr_SCHLUSSy_INITIALt_SEITE_1v_COPY_EN|_STIFT_HP_ENDE(_GWERTEN_SCHREIBj_LESENDV_BEREICHMt_RAUSCHE_GERADE2x_WARNIX_INPEING_SELECT1Z_SELECT2&_CONVENDT_KUCKENB_WECH͊_WECHER`_DEFΨ_ZEIGEN_SELECT3Ҩ_DATENDR_ZEICHNUJ_STARTD_LAUFSCHH_LAUFEND_BEGINN@_SIMESSE:_ZENTRIE_MESSBERj_MESSBER@_MICKS1_MICKS2z_SELECT4j_ESPx_SIMSPEK_MESSSPE_PIXELAN._STUPIDL< BaseA4A0000000DFREEVVFEQEQ VFEQEQ&FEQEQ,VVFNEfVFNElFNErVVFGTVFLTFLTVVFLTVFGTFGTVVFEQVFEQFEQEXISTFSFIRST.FI_SUB0NFI_ADD0PFI_SUBXFI_ADDZFADDV`FSUBVjVVFXSUBtVVFSUBVFXSUBFXSUBFIV_SUBVFSUBFSUBFSUB0FADD0FIV_ADDVVFADDVFADDFADDVFFRACFFRACVFFTOIFFTOIVFTRUNC FTRUNC&VFINTfFINTlISTOFFITOFFCTOF&FWTOF4FUWTOF:LMULTISQUAREFMULVRFMUL0\FI_MUL0`FI_MULbFIV_MULhVVFMULnVFMULtFMULzFnormFoverfloVFSQRFSQRFI_DIV0BFI_DIVDFDIVVJFDIV0TVVFDIVXVVFXDIVfFIV_DIVtVFDIVxVFXDIVFXDIVFDIVXLDIVNLDIVPINITCLEAR RESTORE IRQPATCH BssA6ALLOT Lddre `DEALLOT dLdire INITAES END SYSTEM0 SYSTEMN Xaes BXvdi00 ~Xvdi VDI4 VDI3 VDI1 VDI AES1 AES GBExitAdrJRUNzUseWindNoWindCloseAllCLOSEALLCLOSECloseNoOPENXOPENXNOPENIOPENOOPENUOPENAOPENRZKILL MKDIRRMDIRCHDIRRENAME>PEEKDPEEKTIMERLPEEKFmul10Fvm10FeinsWRITESTRWRKOMMAHIDEMHidem SHOWMFORC1%\FORC2%^FORF1D%|VVFLE%NEXTF1D%VFGE%FGE%FORF1%VVFGE& NEXTF1&VFLE&FLE&$SAGET&LSAPUT&^TEXTXY&TEXTXYL&VDOUBLE&DOUBLE&VMUL2P&MUL2P&CONSTOS'STOS'XSTOS'MENUXY'zPOLLMENU'TPOLLMEN'MENUFN(^ONM_IBX(ONM_OBX(ONM_BUT(ONM_KEY(ONM_MSG(ONM_MEN(MENUKILL(MENU)MENUOFF+WindTitl"WINDINIT+OPENW6,fOPENWXY,OPENW,Topw0-rClip1Sub-TOPW-Killws-CLOSEW-Wprsub..NCLEARW/CLEARW/LOC1LOF1EOF1RELSEEK2(SEEK2,Cfhand2LGetFBuf2fFlushBuf2FClose2P0RCR2P0RMKI2PRCR2PRMKI2P0RTICK2P0RCHR3PRTICK3PRCHR3P0RMKL3PRMKL3P0XCSTR3 C0PRSTR3$PXCSTR3(CPRSTR3,P0Init32P0RKOMMA3>PRKOMMA3@X_sp3TPRCNUM3dPRWNUM3hPXCNUM3lPXWNUM3pPXINUM3rPRINUM3xPRNUM3|PXNUM3PXVAR3PRVAR3P0RCNUM3P0RWNUM3P0XCNUM3P0XWNUM3P0XINUM3P0RINUM3P0RNUM3P0XNUM3P0XVAR3P0RVAR3LP0Init3PXInit3CLSN3CLS4SCHDRIVE4CHDRIVE4ASTOB4,ASETB40ACLRB4@ACLRI4PACLRW4^ACLRC4lACLRF4xRCAI4RCAW4RCAC4RCAF4ARCLI4ARCLW4ARCLC4ARCLF4ARCLB4XRCA4ASTOI5,ASTOW58ASTOC5DASTOF5NVFEXP5^FEXP5dXprsub6PRXsub6BEF27ZBEF37^LOCALB7`LOCALC7`LOCALW7`LOCALS7LOCALI7INKEYSTR7INKEY7ASCSTR8ADRSTR8LENSTR8EMPSTR8LCONSTR8PCHRSTOS8\MKISTOS8fMKLSTOS8pEMPSTOS8zScreat8|STcreat8CHRSTR8MKISTR8MKLSTR9GarColl9FREx9FRE9XStr0Kil9XStrKill9LEFT1STR9RIGHT1ST9LEFTSTR9RIGHTSTR:6MID2STR:pMID3STR:tTRIMSTR:RETURN:GOSUB;"ERR90;>BINSTR;OCTSTR;HEXSTR;HEXISTR;OCTISTR;BINISTR;STRSTR;STRISTR<LOCALFVALQ>VALSUB>0INPUTQ?"INPUT0?*IXInit?2LINEINF?FINPUTI?INPUTN?INPUTS@\BGETABPUTAVDIV2PB DIV2PBVHALFB"HALFB(UPPERB6VFSQUAREBFSQUAREBGETLNVBGETLNCBBELLDGTLOUTEFORMIASE.LINEINQELINEINPEFORMINPEFWriteEFReadF"FGetcF\FPutcFFSeekF_FillBufGNMergeFlgGFILESELGXFILESELGONBREAKIONBRKCONI,OFFBRKI0OFFERRI4ONERRORI6PAUSEI>HTABIZVTABIbLOCATEIjXLOCATEIlCRSLINIrCRSCOLIxGTSPOSIREGSIRegA3IRegA7IENDFUNCIERRORIERRTEXJNumLOCKNoBREAKERRpcERRsaveERRtrapFaTaLeveryPROafterPROERRPROCbreaPROCERRENDvERRJFATALKRESUMAINK RESUPROCKRESUMEK"INPQKOUTQKINPBIOSKINPFILEKINPWFKINPWBKINPLFKINPLBLINPSTR1LINPSTR2LINsubL2EMSLEL~EMSEQL~EMSGTLEMSNELEMSGELEMSLTLDIMSLDIMBLDIMCLDIMWLDIMFLDIMILDimDELETMMOUSEOMOUSEXO MOUSEYO2MOUSEKODSTICKO^STRIGOfXSTICKOERASEOASTOS1PASTOS2PASTOSPRCAS1PRCAS2QRCASQREADSTRQFREADNUMQZREADINTQlLSETQrRSETQADDRINQADDROUTQCONTRLQGCONTRLQGINTINQGINTOUTQINTINQINTOUTRPTSINRPTSOUTRWINDTABROPTB0ROPTB1R BSAVER(BLOAD0RPBLOADRTNROUNDRVROUNDRROUNDRCINTS> |$2r l P2&J"\668808H"Fzj@* dfHx<886.$&X,jf(Ff.\t, Lj$$2 *,vbrX|X0^H.""0,.\*DX^*2$HX4n2T2* .P480&l$&$&0""$DN:hxR"(X"4""Jx^t&@@DR&*&P@"N:4***BJ&: t<^*$$$$$4"2$$$0$$ * :* jv6Hd(6::T⚔V222X,^,0f6H&~6P6, V&P."4&F4`<<<&JN4@ tdt f t($"4j@p t\((@Pl":"&Xb0~:$Hp| *l "d$*V~~!  BB! p BB! @! BB! @! BB? Cp?p>p &H< p@ib@@20JE3`? d  9D?88 00><P0`"f0 p0`A ?0 `@  $@#?Hk‘(TL^/"8Ip 3 3(H@P!RPP"8#2>`(Ttz0 # 0`   0 <@" 5 IPA@Ā 2(!$ (Y@H@00 qBH`V^d'|D (F0p ` ((NC? PRB Ā(   @?81 .( @Zws G8PqؒHLp ! Ѐ9Za(P?$08V 0 2ijO>`nH_ , @ 4 r@A8`9@ L h @  J@@" D8^Tp 94H`(4@ F!S&p!ҡ ߷A ?p98ؠ PV$ @@0rDu("@  LY@`@`v1 Aq- !A?@`8@6  (6Pqp `,P| j P-#P@0)J 0! (@ p}.@P?# %( L$ $jWA=_ D@p #@rO ?x!*@! `0@D’_>@??br"c: ( @0a;MW ?:!A @(B@8L B$@@B8B&;C @L@L @`\Q0c@ 8B&x3L ;@0q`3! ! *!D@0 0P@'{ FX G  @(  @@0,6D@# PHs8  0`q*31 ?Wd@@0 +!€*D & $ d#(CqSE g7@*c0!$VH0 8brX"@ @$D$ @ PB*h` b ! 0M ?L P?& V @` @ B` D0n ( E@D  ?I 0 A@F@'b 0@8"P S$! *h @K$ @ `Dd(Db: pP F 2 @@` RC $  p@Y ` @ +@+ @A0*$f @8`8L$AKO`6@ar8ATA^T  0pˀ"9ҀQ&L%f @,"4!@@` `1B ~  DP t@$S2` 0`?8@8!4P0xDKĈ:@Ċ! 0 @  ٠$`#̌/ 08 .R@RQ0`@ 0@> D@d`4@GB@@YI)I 3`!2 @hPqY0v$!HH H&bCLAt8 0" i#L  DuED:@F)% a` *9@t`  A@A4L( 0@xX]B@ R\ @*HKQ @h!8]0H \h )y4 @a&W@5H -b:^hI52x@cp @1&S~b 9nUe_aD%Kd A @`Xd̩ "A O8p>7P{(< h" @#'K`V` 1,8!DY@  $@@ EN&3mB $F |0 ƞqVThq 0$AD[邆h9`dʺXHo $`0$O@ 2k|[`Ph P .V!  @@ $X  =JBxL *P [@P@`$P!F˫XBU!,IGiZ@@$pA(RLE|D@rpLXX\A"Bp@$`Bqy B A4d@8~bD@1 !h@* @BE@Rᗨ4!^$J+D!"E D@`  y%G[ )P`Ղ@`TP@ 7`D@dBAlPr$0*@{=C@@Ey1d 0 `3@PQL@XM U7$ @ @g ` B5` Q@D`s X"0G@җvH `$A0@!@R 0 ,3PE. `$O\XW ` P`#T\@0@Jn1 @ D @ 0@ qx@&@D@!$Yhb0` 8j٢|slP0aT @BC@V 8B$D`!2; A"E G@0B ܦ C; h \"p@@A " ؀Yq V>S°.hx@P E ȱB"հ?( H@ >J4X`#`z1#0x@xA!HuD&@tB+F < & &qW Vj =P@5A7AP  KdN*[P0@ G@1CG.{(!`86"0 :`T@>#0`  T F7n _@=` xB!xnH " 8H@ # ^yHP>%p  S 4p E ! ?<]  !(P 2ŪU@`B 1 H4qy0`d!#`pp  @@X/_N  DMJ [MPB8@Hp6 D@(@pf F  @IA`\H@>Np !" 1J @P@0QDet-0<@"@@LVJa @ @ `R $@ 2 y,4` >bA@ ,`P @ @ eD-H@A`"  (@,2G€w p @90@  D LC03 0!D@!"L ZPrG`q!A  z k1 A@_ xBXC@3BW\;L  @ 0D(D"*R@ݜH1FcԠ>g< $h&dK'u h Px0 $l?' @` `jpgA(@@   & 0A,`$5`TRx0E_10` @x&`(BAZ.&@ )  @(B@ D(@ &lD'B&@ #`@  @I H@p 0@ `€D@@ (:Y" dF A(-h@@Ah @  r 0 00"  0@`( @A@@X( @ˆ@@D@(1  ( @ J @ @@@@  @H4@ @A" @  <<<<<<<<" an- klicken. Das ndern einer Eingabe kann nach dem Anklicken der rechten Maustaste bzw. nach dem Bettigen einer belie- bigen Taste ausser RETURN/ENTER erfolgen. 3.3 Spektrenparameter ===================== 3.3.1 Auflsung --------------- Die Auflsung gibt an, wieviele Punkte innerhalb der vorge- gebenen Sweep-Weite zur Berechnung der Hllkurven heran- gezogen werden. Die Voreinstellung betrgt 1024 Punkte, was fr die meisten Zwecke vllig ausreichen sollte. Die Auflsung kann allerdings durch Anklicken der anderen Optionen erhht werden. 3.3.2 Sweep-width ------------------ Hier wird die fr die Berechnung der Hllkurven relevante Sweep-Weite eingegeben. Die Eingabe kann nach dem Anklicken des Menpunktes erfolgen. 3.3.3 Halbwertsbreite --------------------- Hier wird die experimentell bestimmte Halbwertsbreite ein- gegeben. Kleinere Halbwertsbreiten als 0,1 Gau vorzugeben ist wenig sinnvoll, da so kleine Werte in der Realitt sel- ten erreicht werden. Die Eingabe kann nach dem Anklicken des Menpunktes erfol- gen. 4. Spektrum *********** 4.1 Simulation ============== Wenn alle Parameter eingegeben wurden, kann mit der Simu- lation des Spektrums angefangen werden. Nach Anklicken dieses Menpunktes wird die Hyperfeinauf- spaltung des Spektrums berechnet. Fr diese Berechnung ist nur die Anzahl der unabhngigen Atomgruppen sowie deren Kernparameter notwendig;sie wird auch erst nach diesen Eingaben mglich. - 4 - Sollte hier schon die Fehlermeldung "ZU WENIG SPEICHER" kommen,ist es eine berlegung wert,sich einen MEGA ST zu kaufen, an einen Grorechner zu gehen oder auf diese Simulation zu verzichten. 4.2 Stickline ============= Nach dem Anklicken wird das Linienspektrum gezeichnet. Dafr ist allerdings die Angabe der SWEEP_WIDTH notwen- dig. Wurde die Sweep-Weite nicht angegeben,erfolgt eine Fehlermeldung. 4.3 Hllkurve ============= Hier erfolgt zunchst die Berechnung einer Gau- und Lo- renzkurve ber das gesamte Spektrum. Der in der Dialog- box angewhlte Charakter der Einhllenden wird auf dem Bildschirm ausgegeben. Wurde als Charakter "GAUSS/LORENZ" gewhlt,mu allerdings noch angegeben werden,wieviel % Lorenzcharakter die Einhllende haben soll. Danach wird dann die "reine" Gau- und Lorenzkurve entsprechend gemischt. Selbstredend wird fr diese Berechnung die Angabe der Sweep-Weite und der Halbwertsbreite bentigt. Sollte bei der Berechnung der Fehler "ZU WENIG SPEICHER" kommen,bleibt, sofern man auf einen Grorechner/MEGA ST verzichtet, immerhin noch das Linienspektrum. 5. Optionen *********** 5.1 Filename ============ Schon hier kann der Name des Files (in blicher Lnge) ein- gegeben werden und nicht erst beim Abspeichern. Diese kleine Option hat gewisse Vorteile, wenn das Spektrum nur ausgedruckt werden soll. Die Kennung spielt fr das Ab- speichern des Files keine Rolle. 5.2 Andere Sweepwidth ===================== Da dieses Programm das Spektrum ber den gesamten Be- reich simuliert und nicht nur im Bereich der vorgegebenen Sweep-Weite, kann das angezeigte Spektrum beliebig,jedoch symmetrisch bezglich des Centerfields, gestaucht oder ex- pandiert werden. 5.3 Ausschnitt ============== Durch Anklicken dieses Mens kann ein bestimmter Bereich des Spektrums expandiert werden. Mit der linken Maustaste wird der linke Rand angegeben und mit der rechten Maustaste entsprechend der rechte Rand (die gestrichelte Linie welche bein ersten bettigen der Maustasten in der Bildmitte er- scheint kann natrlich verschoben werden). Links oben er- scheinen die Feldwerte der linken und rechten Bereichsgrenze sowie die Differenz in Gauss. Durch Bettigen von "DELETE" wird das urspngliche Spektrum gezeichnet. Mit "ESC" wird das Menue verlassen. 5.4 Stupid ========== Diese Routine wurde geschrieben, um sich die lstige "Einge- ben, Warten, Anschauen - Schleife" zu ersparen. Nach dem Anklicken wird erstmal gefragt, ob ein gleichzeitiger Aus- druck gewnscht wird, dann, ob die Spektren gleichzeitig abgespeichert werden sollen. ber die Option AUSDRUCK - 5 - informiere man sich bei dem Punkt HARDCOPY. Hat man sich fr das gleichzeitige Abspeichern der Spektren entschie- den, prft das Programm, nach Eingabe der Anzahl der Si- mulationen, den freien Speicherplatz auf der Diskette. Da ich ja nicht wissen kann, wieviel Platz ein File bentigt, habe ich fr jede Datei 50 K veranschlagt. Ist weniger Platz vorhanden, gibt es eine Fehlermeldung, die sich mehr oder weniger selbst erklrt. Verzichtet man auf das gleichzeitige Abspeichern, wird geprft, ob der Platz auf der Diskette zum Speichern der Startdaten ausreicht. Dafr wurde fr jeden Datensatz 1024 Byte veranschlagt. Danach werden die einzelnen Parameter wie gehabt eingegeben, was auch etwas schneller und bequemer geht als die bliche "step by step" Methode. Es ist also auch fr Faulpelze geeignet. Will man diese Routine nicht nutzen, braucht man nur bei "ANZAHL DER ZU SIMULIERENDEN SPEKTREN" Null (0) einzu- geben. Hat man eine grere Anzahl von zu simulierenden Spektren eingegeben als bentigt werden, so kann in der Abfrage "EINGABE IN ORDNUNG ?" durch anklicken von "ABBRUCH" dem weiteren bsen Spiel ein vorzeitiges Ende gesetzt werden. Die vorher eingegebenen Datenstze werden allerdings abgearbeitet (es sei denn: Abschalten oder Reset). Angezeigt (allerdings nur kurzfristig) und ausgedruckt wird die ausgewhlte Kurvenform. 5.5 Formatieren =============== Eine etwas gefhrliche Sache, weswegen einige Sicherheits- abfragen eingebaut wurden. Es kann ein Hyperformat gewhlt werden,welches noch 10240 Byte mehr aus der Diskette holt. Diese Routine stammt in Grundzgen aus " ATARI ST PROGRAMMIERPRAXIS - GFA-BASIC 2.0 von Jens Muus und Wilhelm Besenthal ; MARKT & TECHNIK VERLAG 1987 ; ISBN 3-89090-435-1" 5.6 Vergrern ============== Damit knnen die Spektren "aufgeblasen" werden. Die Ver- grerung hat als Basis das ursprngliche Spektrum. Also einfach den Vergrerungsvaktor eingeben und ab- schicken. 5.7 g-WERT ========== Dies ist eine Spielerei, da die Berechnung mit einem Taschen- rechner schneller geht. Aber bei der heutigen Finanzsituation der Universitten............... Dabei bedeutet : "STANDARD": Name des externen Standards "g-WERT": selbiger g-WERT "Kommentar": sontige (meit berflssige) Bemerkungen Die Einstellung der bentigten Feldwerte erfolgt durch An- klicken der Pfeile. Linker Pfeil => grer, rechter Pfeil entsprechend kleiner. Linke Maustaste ergibt einen 0,01 Gauss-Sprung , die rechte Maustaste hat einen Gauss-Sprung zufolge. - 6 - Die Berechnung erfolgt durch anklicken von "BERECHNEN". Unter "Standard" knnen verschiedene Standard-Werte geladen "LADEN" oder erstellt "NEUER" werden. Mit "SICHERN" wird die Datei im Ordner DATEN mit dem Extender ".GWE" abgespeichert. Soll die Datei beim Aufruf dieses Menues, mit den ent- sprechenden Feldstrken fr Probe und Standard geladen werden mu auf die ALERT-BOX Frage " SOLLEN DIE PARAMETER...." mit "FREILI" geantwortet werden, sonst mit "HH". Diese Datei steht als "G_WERT .PAR" im Ordner DATEN. 6. BILDER ********* Immer das zuletzt angezeigte Bild wird bearbeitet. 6.1 SCREENCOPY ============== Speichert den Bildschirminhalt als bliche 32K-Datei mit dem Extender ".PIC" auf Diskette. Das Bild kann dann, wie gehabt, in Zeichenprogrammen (Textverarbeitung) weiter verwendet werden. 6.2 Hardcopy ============ Einfach das Spektrum, sei es STICKLINE oder "Hllkurve", anzeigen lassen und dann diese Option anklicken. Diese Routine ist fr den NEC P6 geschrieben und sollte ei- gentlich auch auf NEC kompatiblen Druckern laufen. Mangels Masse konnte ich dieses allerdings nicht testen. Der Ausdruck ansich ist zwar nicht schn,aber recht schnell und fr die meisten Zwecke ausreichend. Die Anregung fr diese Routine habe ich aus dem ATARI Magazin 8 und sie stammt von Erich Matt. 6.3 Plotter =========== Das Plotprogramm ist fr den HP7475A angepasst. Die Daten werden ber den "MODEM" ,also RS 232 Anschlu an den Plotter gegeben. Um sich rger zu ersparen sollte in der RS 232 KONFIGURATION Xon/Xoff: AUS und Rts/Cts: AN sein. Sollte es dennoch Probleme geben liegt es eventu- ell am Druckerkabel oder an einer sonstigen falschen Ein- stellung. 6.4 SIGNUM ========== Selbtredend erfolgt hier kein Aufruf des guten "SIGNUMs", was auch etwas viel verlangt wre, sondern das Spektrum wird in zwei Teile zerlegt und dem entsprechend als zwei 32K-Dateien abgespeichert. Dies gilt aber nur fr "HLLKURVEN" oder "MESS-SPEKTREN" nicht jedoch fr "STICKLINES". Der Vorteil des Ganzen erkennt man beim Einbinden in "SIGNUM". Die "Treppen" fallen dadurch nicht mehr so in's Gewicht. 7.ARBEIT ******** - 7 - 7.1 ANSCHAUEN ============= Gemessene Spektren (siehe Punkt 8.X) knnen hier nochmals in aller Ruhe betrachtet werden. "RESET" bedeutet, da das unter 7.3 Manipulierte Spektrum wieder in die ursprngliche Form gebracht wird. 7.2 AUFSCHREIBEN ================ Das unter 8.1 bzw. 8.2 eingelesene Spektrum kann als Spek- trenfile mit dem Extender ".SPC" gespeichert werden. Die Speicherung erfolt auch hier im Binr-Code. 7.3 SPEKBEREICH =============== Das gemessene Spektrum kann hier expandiert werden. Die Benutzung erfolgt wie unter 5.3 beschrieben. 7.4 VERGLEICH ============= Unter diesem Menuepunkt erfolgt der Vegleich des gemessenen mit dem simulierten Spektrum, natrlich nur wenn auch eins vorhanden ist. Anklicken der Linie ergibt die Linienform des simulierten Spektrums. "HALB" bedeutet das gemessene Spektrum wird in die obere hlfte des Bildschirms und das sim. Spektrum in die untere hlfte Bilschirms gezeichnet. "VOLL": beide Spektren ntzen das volle Fenster aus. "IN ORDNUNG": es geht weiter. ---------------------------------------------------- Nchstes Bild, aber diesmal mit den Spektren. ---------------------------------------------------- "IN ORDNUNG": Die Spektren werden so wie sie auf dem Mo- nitor zu sehen sind bernommen und man kommt wieder in das Hauptmenu. "VERSCHIEBEN": Anklicken und es erscheint eine Hand. Linke Maustaste bettigen und festhalten, jetzt kann das gemessene Spektrum verschoben werden. Das drcken der rechten Maustaste beendet den Verschiebe- modus. "ZENTRIEREN": Nach anklicken wird das Spektrum in dieser Lage fixiert (nur X-Achse). Das ist wichtig wegen Punkt 6 (BILDER), damit auch alles im Rahmen bleibt. Besonders peinlich wird es unter Punkt 6.4 (SIGNUM) wenn es ohne vorheriges "ZENTRIEREN" aufgerufen wird, da die Bilder notgedrungen neu gezeichnet werden men und in diesem Fall halt die alten Parameter verwendet werden. Unzufrieden mit der Positon des Spektrums? Macht nix! Nochmals in den Verschiebemodus gehen und das Spektrum neu positionieren. Sollten Teile des Spektrum fehlen, bitte nicht Fluchen und mich, nebst Programm verdammen. Dies ist Programmbedinngt aber nicht tragisch da durch neues "ZENTRIEREN" das Spektrum in alter Pracht erscheint. Fr Spassvgel sei gesagt, da das Spektrum auch soweit aus dem vorgegebenem Rahmen verschoben werden kann, da es schon etwas Zeit und Mhe kostet um es wieder sichtbar zu machen. - 8 - 7.5 DIFFERENZ ============= Der Unterschied, oder besser gesagt die bereinstimmung des gemessenen mit dem sim. Spektrum soll hier einmal, irgendwann vieleicht, usw. .... ermittelt werden. Ich habe aber bisher noch nicht die Zeit gehabt diese Routine zu schreiben, aber schon vorgesehen. Is doch auch was, oder? 8. INPUT ******** 8.1 ESP 300 =========== Mangels Masse an ESR-Spektrometern (bliche Geldnot der UNI's) knnen bisher nur Spektren vom ESP 300 -System (Bruker) eingelesen werden, daher auch der Name. Dafr wird ein Terminal-Programm bentigt, um die Daten vom ESR-Computer auf den Atari zu "schaufeln". Dafr hat sich z.B. UNI-TERM bewhrt. Dies nur zum ersten Problem. Des weiteren: !: Zum ESP 300 : Die Parameter liegen als ASCII-File vor und knnen als solche von SYSIHUS problemlos bernommen werden. Wie gesagt, wenn sie auf einer Atari Diskette stehen. Der Extenter ".PAR" ist hierbei sehr empfehlenswert, da SYSIPHUS zuerst nach .PAR-Dateien sucht. Bei den Spektren-Files mu mehr Mhe investiert werden. Diese Daten werden im Binr-Code abgespeichert und mssen vor dem Datentransfer in eine Hexadezimal-Code-Datei konvertiert werden. Dies macht aber zum Glck der ESR-Computer mit dem Befehl "BINEX". Daher mein Vorschlag mein Vorschlag diese Datei mit dem Extender ".BIN" abschpeichern und so auf den Atari "schaufeln"(.HEX wre vieleicht doch besser gewesen aber was soll's..). Also man, oder neudeutsch Mann/Frau sieht es gibt gengend Anlaufschwierigkeiten! Des weiteren: Angenommen es wurde geschafft und die Dateien PARAMETER mit Kennung .PAR sowie der SREKTREN-FILE mit Kennung .BIN stehen auf einer vom Atari lesbaren Diskette. Also Menu "ESP 300" auswhlen und es erscheint eine Box in der gefragt wird was gelesen werden soll. "NIX" beendet dieses Untermenu. Das Einlesen der PARAMETER erfolgt durch anklicken von "PARAME" (klingt zwar komisch aber mehr Platz lt einem die Alert-Box nicht) und das SPEKTRUM wird durch Anklicken von "SPEKTR" eingelesen. Am beststen ist es wenn zuerst die Parameter (.PAR) gelesen werden und dann das Spektrum (.BIN) da sonst die Kiste nrgelt. Natrlich kann auch das Spektrum zuerst eingelesen und angeschaut werden (beschreibung kommt spter) mit "NA UND" aber wie gesagt es wird genrgelt. Also zuerst "PARAME" dann "SPEKTR" anklicken. Selbstredend wird dabei der gleiche Filenname, nur mit dem enstrechenden Extender angewhlt (was wohl auch sinnvoll ist). Wird nun eine andere Datei genommen erfolgt eine Abfrage ob dies auch richtig ist, um zu verhindern, da PARAMETER-File und SPEKTREN-File zu zwei verschiedenen Messungen gehren. Wenn alles ohne Fehlermeldung gelesen wurde und das Spektrum auch normal aussieht hat Mann/Frau Glck gehabt. - 9 - Bei autretenden Fehlern bitte nicht mich nicht mit einem Bannfluch belegen oder die Programmdiskette Wutentbrannt als Diskus mibrauchen, denn das OS-9 Betriebssystem der ESR-Kiste ist zwar nicht bel hat aber einige kleine Tcken, dies nur vorne weg. Hufige FEHLER: 1.: Die Anzahl der Sttzstellen (auch Auflsung oder RESOLUTION genannt) des Spektrums stimmen nicht mit der Angabe in der Parameterliste berein. In diesem Fall trat beim Abspeichern des Spektrums mit dem ESR-Computer (1.1), beim Speichern des HEXADEZIMAL-Files (1.2) oder beim Datentransfer (1.3) ein Fehler auf. 1.3: Nicht alzu tragisch; Datentranfer wiederhohlen. 1.2: Nicht tragisch (sondern nervend); Konvertierung wiederholen usw.. 1.1: Zum Musemelken! Man merkt es ist tragisch. In diesem Fall fehlt ein Teil des mhsam gemessenen Spektrums und ist auf immer und ewig verloren (GRRRRRRRR......). Die Fehler 1.1 bis 1.3 treten hufiger auf als man denkt! Die Ursache ist vermutlich in einem kleinem Fehler des Betriebssystems (OS-9) zu suchen. Ist die Datendiskette (auch Harddisk) voll wird dies anscheinend nicht bemerkt und das Spektrum folglich nur Teilweise abgespeichert. Doch Dank SYSIPHUS kann mit einem so verhunztem Spektrum manchmal noch etwas vennftiges angefangen werden (vom jetzt sicherich aufkommendem Wunsche mir die Fe Kssen zu wollen, bitte ich in Anbetracht der gesundheitlichen Gefahren doch abzusehen)! Die jetzt beschriebene Prozedur erwuchs aus eigenen, leidvollen Erfahrungen ( meine Schrei- und Heul-Stunde habe ich schon hinter mir). Es erscheint zuerst eine Alert-Box mit der Meldung "DA STIMMT WAS NICHT ES SIND NUR XXXX STTZSTELLEN VORHANDEN" "SCH...": Damit wird das Spielchen beendet; aber wer wird denn so frh aufgeben? "GUT SO": Auf die Meldung "DAS GIBT JA DOCH NUR MIST" wird durch Anklicken von "JA DOCH" dem Atari recht gegeben und es kann neu eingelesen werden! Wird "DENKSTE" angeklickt kommt nochmal die abfrage ob XXXX Sttzstellen in Ordnung sind. Mit "OK" werden diese bernommen, ganz gleich was auch in der Parameterliste stehen sollte (so macht es auch das ESP-300-Programm, aber ohne diese Fragerei!). Bei "NEIN" wird die Auflsung, die eventuell in der Parameterliste steht vorgeschlagen mag man auch diese nicht wird "nein" angeklickt und man mu sich selbst eine Aussuchen. P.S.: Die Auflsung ist immer ein ganzzahliges vielfaches von 1024! "NDERN": Zuerst wird einem mitgeteilt wieviele Sttzstellen gelesen wurden und dann gefragt ob dies in Ordnung ist (siehe oben). Am besten mit "NEIN" Antworten und die Anzahl der (hoffentlich) in der Parameterliste stehenden Sttzstellen bernehmen. In diesem Falle fehlt zwar ein Teil des Spektrums aber mit dem, so wollen wir doch annehmen, greren Restspektrum kann noch richtig gearbeitet werden. Das Spektrum wird dadurch auf seine Originalgre zurecht gestaucht. (Jetzt knnen auch wieder die Kopplungskonstannten ermittelt werden!) 2.: In der Parameterliste fehlt die Auflsung. Es erfolgt die Meldung, da die Auflsung nicht definiert ist. Mit "NIX DA" wird das grauslige Spiel beendet, aber so schnell geben wir nicht auf. Mit "KUCKEN" kann das Spektrum in Ruhe betrachtet werden und mit einem Mausklick gehts zurck. - 10 - "SETZEN": Zuerst wird einem mitgeteilt wieviele Sttzstellen gelesen wurden. Ist dies "OK" ist ja noch mal alles gut gegangen. Wenn nicht, mu halt auf dem geplottetem Spektrum nachgeschaut werden, wieviele es waren und diese Zahl eingegeben werden. Was Sie haben die Daten nicht? - Dann hilft nur noch Raten 1024,2048,4096 oder 8192 ? 3.: In der Parameterliste fehlt die Auflsung und die Anzahl der gelesenen Sttzstellen ist kein ganzzahliges Vielfaches von 1024. Zwar ist mir persnlich dieser Fehler noch nicht untergekommen aber man wei ja nie... Sollte diese Problem einmal auftauchen mte sich SYSIPHUS melden, da hier etwas oberfaul ist. Durch "SETZEN" der Auflsung kann auch diese Problemchen gelt werden, sofern die Daten verfgbar sind. Ansonsten: es gibt ja nur vier verschiedene Mglichkeiten.... Sind bisher alle Klippen mehr oder minder gut umschifft worden, kann endlich die Bearbeitung des Spektrums erfolgen. BEARBEITUNG DES SPEKTRUMS: Das gemessene Spektrum erscheint auf dem Monitor und in der Mitte ist eine durchgezogene Linie zu sehen. ber dem Spektrum erscheinen zwei Boxen:"IN ORDNUNG" und "VERNDERN". "IN ORDNUNG": Durch anklicken dieser Box wird das Spektrum, so wie es im vorgegebenen Rahmen erscheint, bernommen und man kommt ins Hautmenu zurck. "VERNDERN": Wird diese Box angeklickt erscheint eine Alert-box, die einem nur drei Auswahlmglichkeiten lt. Es mu also eine dieser Optionen ausgefhrt werden bevor man wieder rauskommt! KORREKTUR: Wurde aus Versehen "IN ORDNUNG" angeklickt mu das Spektrum nochmals eingelesen werden.(Kleiner Tip: ist man noch im ESP 300-Menu geht es oft schneller wenn das Spektrum so wie es ist gespeichert (Punkt 7.2) und mit MESS-SPEKTREN (8.2) neu eingelesen wird. Wurde versehentlich "VERNDERN" angeklickt ist es am einfachsten "HHE" auzuwhlen und dann die rechte Maustaste zu bettigen. "DREHEN": Durch Anklicken dieser Option wird das Spektum um 180 Grad gedreht. "HHE": Durch Anklicken dieser Option kann das Spektrum in Richtung der Y-Achse verschoben werden. Dies geschieht durch Drcken und Festhalten der linken Maustaste (es erscheint eine Hand). Beendet wird das ganze (also zurck) durch das Bettigen der rechten Maustaste. "GRE": Diese Option ist schon etwas ekliger zu handhaben, da hierbei die normierten Daten des originalen Spektrums verndert werden. Daher sollte dieses nur in Notfllen verwendet werden (wenn mal wieder Mist rber kam) oder falls mit aller Gewalt die 13-C, 15-N ,33-S usw. Kopplungen sichtbar gemacht werden sollen. Dies vorneweg. Durch Anklicken von "GRE" erscheint rechts neben dem Spektrum eine rechteckige Box. Mauspfeil in die Box, linke Maustaste drcken und sofort erscheint ein schwarzer Balken, der auch verschoben werden kann. Dies geschieht entweder stepp by stepp also Maus dahin, wo der Balken hin soll und linke Taste, oder durch Drcken der linken Taste und Festhalten derselben. Zeigt der Balken nach oben wird das Spektrum vergrert, zeigt er nach unten wirds entsprechend verkleinert. KORREKTUR: Solange die rechte Maustaste nicht gedrckt wurde kann der Vergrerungsvaktor beliebig verndert - 11 - werden. Soll das Spektrum nicht verndert werden mu der Balken verschwinden! Das heit: Maus in die Mitte und Klick. In diesem Fall ist der Vergrerungsvaktor gleich eins. Ansonsten hilft es nur diese Prozedur zu wiederholen aber mit negativem Vorzeichen. Dies ist allerdings etwas Zeitaufwendig und Nerven aufreibend. Erst wenn die rechte Maustaste gedrckt wird fngt der gute Atari an zu rechnen. Dies kann schon eine Weile dauern ,da alle Feldwerte des Spektrums neu berechnet und in das Datenfeld des Spetrums geschrieben werden. Daher etwas Gedult, bitte. Das Spielchen kann natrlich solange wiederholt werden, bis entweder die Zahl grer wird als fr eine Integer- Variable zulssig ist (AHA) (das merkt aber TOS) oder eine wunderschne glatte Baseline erreicht ist. Sind alle Berechnungen durchgefhrt erscheint wieder das altbekannte Bild mit den Boxen "IN ORNUNG" und "VERNDERN". 8.2 MESS-SPEKTREN ================= Mit diesem Menu-Punkt werden die unter 7.2 (AUFSCHREIBEN) abgespeicherten Spektren eingelesen. Auch diese knnen wie zuvor beschrieben (8.1; BEARBEITUNG ...) nachtrglich verndert werden. 9. Quit ******* 9.1 Quit ======== Alles hat nun mal ein Ende. 10. FUNKTIONSTASTEN ******************* Nicht alle Fuktionstasten sind belegt! F2 : Dient zur Einstellung des aktuellen Laufwerkes. Mit anklicken von "IN ORDNUNG SO ?" wird dieses bernommen und gleichzeitig wird berprft wieviel freier Speicherplatz diese Diskete besitzt. Bei Verwendung einer Festplatte kann es, allerdings, schon recht lange dauern. Die Auswahl wird wie blich mit der Maus getroffen. Das weise Feld ist das aktuelle und die grauen Felder stellen die weiterhin angeschlossenen Laufwerke dar. F9 : KEIN WEITERER KOMMENTAR ist hier ntig. Nur so viel, die Ausgabe kann weder mit dem Menu "SIGNUM" oder dem Plotter erfolgen. Daher sollte diese Fuktion nur zur berprfung eingesetzt werden und nicht um sich die gemessenen Spektren selbst zu stricken. F10: Beendet nach Rckfrage das Programm. - 12 - III ===== ANWENDER ******** Dr.G.Wolmershuser; Universitt Kaiserslautern Fachbereich Anorganische Chemie Erwin_Schrdinger-Str. Gebude 54/678 6750 Kaiserslautern { Kein Wunder, denn in dieser Arbeitsgruppe ent- stand das Programm } Kaiserslautern, 6.6.1989 GFA-BASIC3 F j (*ruvny:yz*zBznznznzn{}}}}}~I ZEILENMUSTERMAUSAUFAUF1OSWEEPSSW1HALBWERTSBREITESWHALBWERTJNIKANIKAERSTKI_NPNMDGZX CENTERFIELDYBINTMAXINTMINKLEISKLEIINULLFAKWEITEPROLPPGBIPPROZPROGGPPWURE NORMBEREICHBEREICHFELDANFSTAPFELDBODIQDIQAWERT EINMAXGAU EINMAXLORVERMB BILDBEREICHFABIPUANFX1LINX2GAUS1GAUS2HALBEAMBFHALBEXENDEDELTAXVFAKLPXBEXMFAKLPPWORT ANZ_TRACKS.TSEITENKONSTR.FOLGESIDEDRIVEATRACKANF_SEKANZ_SEKXINYINY1Y2PROZLMBHAB1B2GSTANGWERTHALBWERSBREITEHALBWERTSBRETEZWN FELDANFANGSIMSWPGGSIMSWW BEREICHHALBE SWEEPBEREICHP_LINEASATG1G2ANFANGLALTLENGYWRRAUFSIZUFALLRAUSCHENDTREUFALSWEMGMLHOEHEGRSPSWSCANCODEMULISGUT111111111111ABSMULLIXAMDREXALTVEROFFSETVERGSIMMMESSGERADEMOUSEYNOUSEKMESSFAKXVORSTPGMANFMENDCFLIRANDSPSW9MENDESICHFAKGPSTMMOUSEK BITMUSTERSFAKXPIXELOKVGLMSTARTLROUBNMSWEEPS_SWEEPM_SWEEPHALBWERTSBRTEITE BITMUSTERSWHALBWERTNIKFINAMEX1KURFORM BILDSCHIRMWAHLFEHLERZAEHLPUFFERERGEBNISALARMPRTASTAND1STAND2STAND3B1B2BGWERTGHALBWERTINKEYKEYXISPEKFXLAUFPARWAHLCPARSPECFILESPCNRESMESSAUSBOXAUS1LSIMAUS BESCHRIFTUNGRLMRMMITML1LSRSMITSMITLOOSERIANFRAMAUSSIMGAUSS SIMLORENZSIMGAUSS_LORENZBUTTONBUTTBUSIMSTICKBUTXMSIMKURVEKURVEBILSPEKHAMAXSTARTBEENDENHBISBEGINNLANFLENDESPECKHABUTONBOTTDISKFREIDRPARSPEICHERLAUFWERKSIMUSIMULATKORRABBS_TOPFRAGANZAHLSIMRETWASDFFORMATTRACK ANZ_SEKTORENHI_BYTELOW_BYTEESOSOI1ATOME AUFSPALTUNGZAEHLIMAXZPENRPENSYWANTWORT ANFANGSPLOTTLINKSYAPPPLOPNBIBLALE BEREICHSHALBEBEREICH BEREICHHALBEANFANGENDEBOTTOMS_STOPLINSTILTASCSCANCODEYZEIZAYMAXYMINXARJK ANZ_TRACKANF_SEKANZ_SEKNIKANIKAERSTTRAKSIDEWANZ_TRAKHMAXMAXGAUMAXLORSIMGAUSBBTTONBUTTNPUNKTBAKLABUTSPECSMAXSMINSPUNKTEALABUTTBCDBCFBCEABBABCBBRESDATENY1MYPIXGRX1MXLXVERUOSPEKLIREXREOFFSETOFFSETTNYDEFLDFLANFMAUSEKMESSTARTDUMMYMESTARTMESSTARMSTXVORYVORMSTARTMENDE MESSBEREICHSICHENDARTY2ST SICHSTARTXPIXELAL1MESSFAKAPPLOFF PLOTSTARTPLOSTART PLPOTSTARTP1PRPS1ZHLENG SIMLORENTZSIMGAUSS_LORENTZLAENGEBILD_DARETTUNG MAUS_IST_AUSSPEKTRUM F_ORMSTUPID BEREICHSPLOTTP_LINEDRUCKDATENDATEI RAHMEN_AUSAUS ZUWEISUNGDABEENDENHEULLHUELLHUELPARSPEKPECHRESKUCK1KUCK2PARAMAMESSMESSPL0MESSPLOSIMESSHALBMESSPOLSIMMGERADE MESSBEREICHMESSBEREICHSPLOTTZENTRIEROK BEICHSPLOTTAUSWAHLMESSPOPU NORMGAUSS NORMLORENZ NORMKURVEBPEINHHALBEINSAG1AGZWNHYPHININTHYINTENSI DATENSATZ ZEICHNUNGEINTRAGATQUARKAUSWAHLSTANDASC RECHENFELDINTEN ZEICHNUNGZEICHZHUELKSPECSPEKTRUMSPEKDIFANFANG ESRORDNERNEUSTARTHESCHELMEHREINGABEHINEINATOMENDEEINEIN1NAEXTE EINGABEEND HYPERFINE REDUZIERUNGBILDENDWEITER SIMSTUPID LINFORMEINHUELLEND STUPIDLORENZSCHLEIFELINKSICKS1ICKS2 BEREICHENDELESEENDE SCHREIBENDE LOESCHENDERETTUNGSICHERN SIMU_EINGABE ROBOTENDE KORREKTURABBRUCHRETTUNGS_SCHRIEB DRUCK_ENDE WAS_SOLL_DASSCHLUSSINITIALISIERUNGSEITE_1_ODER_SEITE_2_FORMAT COPY_ENDESTIFTHP_ENDE GWERTENDE SCHREIBENDLESENDGERADE BEREICHSENDE BEREEICHSENDE BEREICHANFANG RAUSCHENDEGERADE2WARNIX INPEINGABESELECT1SELECT2CONVENDEKUCKENWECHWECHERDEFZEIGENSELECT3DATENDRUCKENDE ZEICHNUNGENDESTART LAUFSCHLEIFELAUFENDEBEREICHZEICHNUNGENDEXINPINSELBEGINN SIMESENDE SIMESSENDEZENTRIERMESSBEREICHANFANGMESSBEREICHENDEMICKS1MICKS2SELECT4ESP SICNUMEND SICHNUMENDSIMSPEKMESSSPEKPIXELANF STUPIDLORENTZENDE INTENSITAETENNICHTSAUSWAHLFEHLERBEHANDLUNGMAUS_ABSCHALTENMAUS_EINSCHALTEN INFORMATIONATOMEINGABESPEKTRENPARAMETERHYPERBILD MESSBEREICH LINIENFORMLESESCHREIBELOESCHE NAMENSGEBUNGBEREICHROBOTFORMATHARDCOPY AUFBLASENHP7475AGWERT ZEICHNUNGSPIN GAUSS_LORENZ DATENDRUCK AUSWERTUNGTEXTRAHMENPLOTTMUSTERKAUFHAUS AUFNIEDER1 AUFNIEDER2 BERECHNEN DATENEINGABELADESPEICHERHIDME SWEEPBEREICHIFPIXELRAUSCHGOTOGWERTBESCHRIFTTASTEN MESSSCHREIBENSIMMESS DIFFERENZESP300MESSLESE MESSLESEN MESSCHREIBEN MESSSPEKTRUM MESSPEKTRUM2SIMMESLAUFWERK DATENORDNERBEREICHZEICHNUNGMM ESPSPEKTRUMHIDMPBOX SIMZEICHNUNGPINSELG2 ESPSKEKTRUMSPEKMESSBEREICHSICHNUM ESPZEICHNUNGESPSICHOKINPAENDEIFLOCALPAUSE GAUSS_LORENTZSHMSHMOUSELP1FhF>FRFALG%FF4b F |F `F7,7,1,0,1 MASKENMUSTER F&X0000001000000000 &X0000011100000000 &X0000111110000000 &X0000111110000000 &X0001111111000000 &X0001111111000000 &X0011111111000000 &X1111101111000111 &X1111001111011111 &X0000001111111100 &X0000001111111000 &X0000001111111000 &X0000000111110000 &X0000000111110000 &X0000000011100000 &X0000000001000000 CURSOR MUSTER  1234567890123456 &X0000000000000000 5&X0000001000000000 5&X0000011100000000 5&X0000011100000000 5&X0000110110000000 5&X0000110110000000 5&X0001100110000000 5&X0111000110000110 5&X0110000110001110 5&X0000000110011000 5&X0000000110110000 5&X0000000110110000 5&X0000000011100000 5&X0000000011100000 5&X0000000001000000 5&X0000000000000000 5|F \ESRF T SYSIPHUS.PIC F<F$I!M! SYSIPHUS.PICFT SYSIPHUS.PIC!V F 0MFH 8FZ!. | WER HAT DENN DA | SCHON WIEDER KOPIERT ? !!DAS WARS | WEITER!F ߀FAF 8F\F T SYSIPHUS.PIC F(( SYSIPHUS.PICl\ESR\SYSIPHUS.PICFO<FFF$F$F$F |F.F 0<F.0F$F VSF0F$F|߀FS F$F L********************************************************************** RL****************** SYSIPHUS 1.2 *********************** L****************** ESR-SIMULATIONSPROGRAMM *********************** RL****************** MIT VIEL MHE GESCHRIEBEN *********************** RL****************** VON Dr. GREGOR KRAFT *********************** L****************** ANNO DOMINI 1989 *********************** FL********************************************************************** RHFF* \DATEN\F *(FN Pull down - Menue erstellen H7 FF  F4 ****F F F <SYSIPHUS, INFO,------------------------,1,2,3,4,5,6,"" "&DATEI,LADEN,SPEICHERN,LOESCHEN,"" >PARAMETER,ATOMGRUPPEN,KERNPARAMETER,SPEKTRUMPARAMETER,"" 0SPEKTRUM,SIMULATION,STICKLINE,HLLKURVE,"" M\OPTIONEN,FILENAME,ANDERE SWEEPWIDTH,AUSSCHNITT,STUPID,FORMATIEREN,VERGRERN,g-WERT,"" 2BILDER,SCREENCOPY,HARDCOPY,PLOTTER,SIGNUM,"" FFARBEIT,ANSCHAUEN,AUFSCHREIBEN,SPEKBEREICH,VERGLEICH,DIFFERENZ,"" "INPUT,ESP300,MESS-SPEKTREN,"" ENDE,QUIT,"","" **** Q, F 0 F  1FF 8 !FE8 !F 8!F 8!FE8!F 8!F 8!F 8!F 8!F 8!FN8$!FN8%!FN8#!FN8&!FU8)!FU8*!FU8+!FU8,!FU8-!FU  |F<FFF F$F FFFF F!  FF Auswahl der Menues S`F  tFu!!!FS D\ !INFO FEF$F & D\ ! ATOMGRUPPEN FF$F'  (  D\ ! KERNPARAMETER F F$F , LD\ !SPEKTRUMPARAMETER F F$F & D\ ! SIMULATION FM F$F $ D\ ! STICKLINE F F$F , D\ !ANDERE SWEEPWIDTH F F$F $ 6D\ ! HLLKURVE FF$F  fD\ !QUIT FKF$F D\ !LADEN FF$F $ D\ ! SPEICHERN FF$F $  D\ !LOESCHEN FFF$F $ BD\ !FILENAME FFF$F & |D\ ! AUSSCHNITT FWF$F " D\ !STUPID FTF$F & D\ ! FORMATIEREN FF$F $ $D\ !HARDCOPY FNF$F & ^D\ ! VERGRERN FFF$F " D\ !PLOTTER FF$F " D\ !g-WERT FFF$F & D\ ! SCREENCOPY F-F$F " :D\ !SIGNUM FIF$F $ rD\ ! ANSCHAUEN FAF$F ( D\ ! AUFSCHREIBEN F,8F$F & D\ ! SPEKBEREICH FHF$F $  D\ ! VERGLEICH F3F$F $  XD\ ! DIFFERENZ F4F$F "  D\ !ESP300 FZ5F$F (  D\ ! MESS-SPEKTREN F6F$F  0FF  F!F\ lkF<FF FF!F\ lkF<FF FF  ~FF$FN!! | PROGRAMM WIRKLICH | BEENDEN ? !! S'LANGT | OH GOTT!!F  ߀FMF$F4FF|FF F0FF|d!2!!^FL|i!7!!YFLp!!!FL.X!P!T!PROVINZ-SOFT PRESENTFp! !!FI&X!x!! SYSIPHUS 1.2Fp!!! FPDX!!T!) EIN BRAUCHBARES ESR-SIMULATIONSPROGRAMM FHDX!!T!) FR EINEN BRAUCHBAREN COMPUTER FHDX!!T!) GESCHRIEBEN IN GFA-BASIC FHp!!! F <X!!T!! ANNO DOMINI 1989 F*p!!! F HX!!T!- VON DR.GREGOR KRAFT; JAHNSTR.2,6701 MAXDORF F*DX!!T!*DIESES PROGRAMM IST FREEWARE UND DARF FREIFDX!!T!*KOPIERT WERDEN ! MGE ES VON NUTZEN SEIN !F|!"!!@FG$X!6!d! SO ISSES FFN ::;;<FF8F$F SB F8F $F߀F rFFFJ******************************************************************** |d!2!!^FL|i!7!!YFLp!!! F BX!P!T!(UNTERSAGT IST DIE GEWERBLICHE NUTZUNG !!FBX!x!T!( AUSDRCKLICH UNTERSAGT IST DIE NUTZUNG FDX!!T!)DES PROGRAMMS DURCH DIE FIRMA BRUKER GMBHFBp!!! FPDX!!T!)VERNDERUNGEN AN DIESEM PROGRAMM BEDRFENFFDX!!T!) MEINER AUSDRCKLICHEN GENEHMIGUNG FFFX!!T!, DIE WEITERGABE DIESES PROGRAMMS IST NUR MITFFX!!T!, DEN DATEIEN SYSIPHUS.TXT UND SYSIPHUS.SDO FFX!!T!, GESTATTET (UND AUCH SINNVOLL) F|!"!!@FG$X!6!d! NA KLAR FN8FFN ::;;<FF8F$F SB F8F $F߀F ZFFFF  0 FF Eingabe der Sweep-Width (wenn andere 0F !FFp!!! Fi sweep-width im Prog.-ablauf gewnscht @LY! "%SWEEP-WIDTH :___________|____________Fwird LY#! "7F|!,!^!JFTLY$! "OK?F|!!!FTFT ##:: #;; < F8F$FT ##:: #;; < F8F$F8 F PF ߀FLY/! "FFF 0( FFLY#! "7F$FFF F F 8FFF$FF " FF Eingabe der Auflsung, 0F8|(!!X!hFn der Halbwerstbreite und $t!F der Sweep-Width !Fp!!! Fe4Xd!2!,!K E R N P A R A M E T E RFkp!!! FRLLY ! " Atomgruppe "7\" von "7`" unabhngigen AtomgruppenF8LY ! "#spin....................:__________F LY$! "7\! F,LY ! "Anzahl der quivalentenF:LY ! "$Atome dieser Gruppe......:__________FF LY$! "7\! F8LY ! "#Kopplungskonstante......:__________F LY$! "7\! F 6 /#\! \! \!  F*F#$F FT 02##:: #;; < F0F$F 0h#S <F0F$FT 0##:: #;; < F0F$FT 1@##:: #;; < F0F$FT 1##:: #;; < F0F$F1 F /F 1߀F F$F  2NF8\\߀F 2@\F8\`߀F$F F$F 2߀F 2\`F8\F$F FF$F 2ߠF 8\`FF FF$F|F 8!FLY#! "?FLY$! "FFdl\! FLY#! " FH\!95\! FLY#! "?FLY$! "FFdl\! FLY#! " F"H\!9(5\! FLY#! "?FLY$! "FFdl\! FLY#! " F H\!9(5\! F0J F 4 FF$F J *************************** Abfrage ob die Eingegebenen Daten L 5H\! \! \! F mit der Programmsyntax F vertrglich sind $F 8 6p\! \! F $ 6j'߀\! F\!0 DEN ' SPINNERTEN' SPINN | KENNEN MER NET ! !! ZURCK | WEITER !F 6\ ߀FP2! ORGANIKER ?? !! ZURCK !FMF$FF$F$F L***********************************************************************  2 9\! \! \! FP 9z\! \! \! \! \! \! F|!Q NDERN DER PARAMETER | HAT DAS LSCHEN DER | SIMULIERTEN SPEKTREN | ZURFOLGE !!!ABBRUCH | WEITER ! F 94 ߀FRX[GFH\![9\![ FL\![9\![ F 7[F F F F8F8F8F8 F8!F!8!F!8!F!8!F!8!F!8!F8$!FN8%!FN8&!F8,!FB$FX[GFL\![9\![ F 9N[FF$F$FX[GFH\![9\![ FL\![9\![ F 9[F |F&LY$! " F&LY$! " F&LY$! " F ,*\F |FFFF 8 F Berechnung der Linienzahl eines sim.Spektrums 0F.!\!! !![!!!!!! !!Fp!!! Fe H ` F0Fp!!! FeX\G`F8H \9߀\! \! F$Llinien der Gruppe !7\!7 \ F0 \ FF ;H\F\ Lanzahl der Linien N=!7FFX\G`F < \ Fp 0 \ F$F ;\FFN ! Zuordnung der Intensitten zu den einzelnen H ! Kopplungen innerhalb einer Atomgruppe H `! ! `! F 4 !FX\G`F$0# \ ߀ FP \ IFH \!9\! F0߀F =FFF <\F 8!FJ |FHyperfine-Aufspaltung des gesammten Spektrums incl. Intensitten H  ! ! !  FXGF H 9FH 9߀F! =F0F!X\G`F0FLGFLG \ FFH9   \! FH9   \! F |>pF |>\F0 \ FFLGFH 9 FH 9 F |>F >D\F\  H |FReduzierung der Gesamtlinienzahl auf die beobachtbaren Linien e  J0@ Fg Da eh nicht absolut gerechnet werden kann ist center- HLGF field so gewhlt, da immer (im Normalfall) die Auf- r:H 9  F spaltungen im positiven Bereich sind. |@ F 4 !F 4 !F0FLGF @  F 8AF FFH9  F H9 F LGF A   F H 9FG F !  F$F |@F$F |@|F 0FF  BF>L ZUFLLIGE ENTARTUNG : NUR NOCH "7"-LINIEN ZU SEHENF  ! F  ! F  ! FH ! FX GFG FH 9 FAH 9 FA A F $FL********* Sortierung der Hyperfine-Aufspaltung nach der Gre ******* e0F0FiLGF 0 F 0 F LGFG F C  FeH9 Fe H9F 0 FH9 Fe H9F 0 F$F |BFF |B|FF8 FeF F C Fe 0 F C Fe 0 F$F$FC F CLY ! ")Nur Geduld, Rom wurde auch nicht an einemF2LY ! "Tag erbaut..................FFFF"0+# *(߀ "F" 8%+ FF 8F UF 8FF$F UF 8FF$F XF XGF 0,FF0-*&FF|F8, " F 0.&F0/#-.  FF 00//F601#߀߀0 F02'//0 F&H!9! 2, F>H!9! ߀ߐ/1, Fy W~,F,F" Wx#,  ݠ -FF#$F$F 0,FF|F X,߀F,F" X#,  ݠ -F8, " F 0.&F0/#-.  FF 00//F601#߀߀0 F02'//0 F&H!9! 2, F>H!9! ߀ߐ/1, Fy$FF$F VF! 8YF 8FF$FY&F UzF6LY! " ...aber an einem Tag abgebrannt!FF8FH! F$F*P!9g! $ F Y(! gF%8g(! F$F*P!9g! $ F Z8(! hF%8h(! F$FFZ^F YF0|$gF0}$hF8FF$P!9g! | F"P!9! F$P!9g! } F"P!9! FF[FF ZFP!9FP!9F F8F98FhF "F Zeichnen der Hllkurve 0FFF<F<FT!F 8!:F \ 5Fh05Fd$F \>FF 0 FF$F0Aq! F06q! F|!!?!J!!!!FFFF<F<FT!!!F? a`F 8IFF 0hFFF0lF0mF 8cRFEFF|!##; hߒ F$0?##= hߒ F "8GgI#h߀> " F "8HgI#h߀? " F 8JHGF0JF8IJ߀GF 0h?>F 0l>lF 0mlhF0@#ml lF06qm! F0Aql! F0Bq@! F FFT!!!F?|!**************EIN-UND AUSGABE BER DISKETTE ************* F* Daten Einlesen 0F !n!,F4,BW  F$, :\DATEN\*.*!!Ft qFF$F tT F F F F F F Fp!!!Ff*X!!,!BIN BEIM LESEN F$&G F Wegen der Mllabfuhr! $I!M!FtN FM!`FM!!! !! ! FEM!!!!!F(H`! !`! !`! F H F H F0M!л! !Q ݀F *M!л !Q ݀F*M!л !Q ݀F M!!!!! !!$FM!dFH! F0M!л! !Q ݀FF rvF0FF8!F8!F8!F<+++++++++++++++++++++++++++++++++++++++++++++++++++++++ 8n!\ F4>!n߀ F<+++++++++++++++++++++++++++++++++++++++++++++++++++++++  FF$FD!! DATEI IST NICHT | | VORHANDEN !!! KLAR ? ! FB |FFF F $F Daten auf Disk. schreiben 0F !,F uF u FF$F$F4,BW  F$, :\DATEN\*.*!!Ft v FF$F vT Fr!E DATEI EXISTIERT SCHON ! | ACHTUNG ! | DIE DATEI WIRD BERSCHRIEBEN !!! ABBRUCH | WEITER !F v߀FSF$F$Fp!!!F .X!!,!BIN BEIM SCHREIBEN FN(G F wegen der Mllabfuhr ! p$O!M!FM!7`F$M!7!7!7 !7!7 !7 FE M!7!7!7!7!7FE0M!л! !Q ݀F *M!л !Q ݀F*M!л !Q ݀F (M!7!7!7!7!7 !7!7$F"M!7dF0M!л! !Q ݀FF0FF |FFFF F Der Name sagt alles !,!! F0F4,BW  F$, :\DATEN\*.*!!FF yDFF$Fp!!! F  yT FV!0 SOLL DIE DATEI | | | WIRKLICH GELSCHT WERDEN? !! NEIN | JA !F y߀FD4F$FF$FD!! DATEI IST NICHT | | VORHANDEN !!! KLAR ? ! F!|FF N************************************************************************* F Filename 0Fp!!! F |!!|!F ,LY! "Filename: ________.___FFLY#! "FFdlFF  (F Versuch um Fehler abzufangen _FF!N!! Fp!!! Fb 4 X FF ~HXF }0XߔF0FF |F!g Disk hat zuwenig Speicher ! | Also nochmal Eintippen! | (Ich hab ja gewarnt!!) | Aber erstmal weiter!!! TJAAA.. !F |߀FzF$F 8}*FH!) Diskette hat zu- | wenig Speicherplatz! !! KO? !NF }$N߀FhF$F$F$F }ZX߰Fz0FFF$Fh! CHZ! FEHLER  * | IST AUFGETRETEN | NOCH MAL PROBIEREN ? !! JA ! | LMAA ! !F }߀FLF 8~BFFFp!!!F (LY ! " NA GOTT SEI DANK !FF$F$FF   ,FT Sogenannte Autosimulationsroutine !O!%F0Fp!!! F ~݀FtF$FX********************************************************************************** A>FRT*****************************************************************************` *8S FH**************************** WIRD AUSDRUCK GEWNSCHT ? *********** L!# | MIT GLEICHZEITIGEM | AUSDRUCK ? !! KLARO | NEEE !F* ߀FI<FL! | AUSDRUCK MIT | PARAMETER ? !! NA KLAR | QUATSCH ! F  ߀FK<F 8F<F$F 8F<F$F`!5 | MIT GLEICHZEITIGEM | ABSPEICHERN DER | SPEKTREN ? !! SICHER | UNSINN!!FAJ********************************************************************  F4UnfugF$Fp!!! F*|!!|!F*&LY! "Filename: ______FFLY#! "FFdlF 4 FFFF<F|F8"W F U !" Fn\F:  daten! FIst Ordner Daten vorhanden? ,DATENF$F8S F DATENF$Fp!!!F LY ! "FF$ Anzahl der simulationen:"#FFFF !߀Fap!!! Fn #PF PLY ! "Achtung die Diskette hat nur "7" Bytes Speicherplatz !"F@LY ! "* Das knnte knapp werden !!!! "FNLY ! "7Besser ist es eine neue Diskette zu verwenden oder die "FFLLY ! "5 Zahl der Simulationen entsprechend zu verringern"FF|d!@!!hF |!@!&!hF Tx!T!NA KLARFhT!T!RisikoF8FTF$ ;ߠ;Fi2 ::<Fs8F$F2 ::<Fs8F$F$F4F fF X߀FFFF$F ߀FFF$T!2!Eigenes Risiko!F$F$F$F   !߀Fnp!!! Fs # F PLY ! "Achtung die Diskette hat nur "7" Bytes Speicherplatz !"F@LY ! "* Das wird nicht reichen !!!! "FNLY ! "7Besser ist es eine neue Diskette zu verwenden oder die "FFLLY ! "5 Zahl der Simulationen entsprechend zu verringern"FF|d!@!!hF |!@!&!hF Tx!T!NA KLARFhT!T!RisikoF8FTF$ j;ߠ;Fi2 ::<Fs8F$F2 d::<Fs8F$F$FF F ߀FFFF$F ߀FFF0X!2!!NICHT ZU VIEL RISIKO!F `8)#$F Einlesen der Startdaten in den Arbeitsspeicher K )FEH2!) Fe4 !߀Fn8*FLG)F8\FF$FF*FF$i!M!$ FdN F\FM!\!* F F0FF*4$ F Lschen des Startdaten -files |PFL$F~!S DIESER FILE KANN | GERETTET WERDEN! | DAZU NEUE DISK EINLEGEN | UND WEITERMACHEN !!! WEITER | ACHWAS !+F +߀FLF$F#|FB! | NEUE DISKETTE | EINGELEGT ?!! NA KLAR !,F  U !" FK#F$FB! | DISKETTE FORMATIEREN ?| !! JA | NEIN !-F -߀FTF\F ,DATENF$F>FR < t)F Start Datensatz auf neue Diskette schreiben 8$#)FX*G)F$F$O!M!$ Fa8\F!b\!* ߀F!M!7\!* F\F F0FF *F$F F Weiter gehts F   F0F d!: | SICHER, DA DIESE | DISKETTE FORMATIERT | WERDEN SOLL ?!! JA | ABBRUCH !.F H.߀F $F$F "4 ' F PUFFER EINRICHTEN 0Jл F <*********** EINGABE DER PARAMETER ******************** E %|F6!Anzahl der Tracks ?!!80|81|82!/F ,/߀JF8]QFz$F V/߀JF8]PF\$F /FT8]RFz$F <!Sektoren pro Track ?!! 9|10|ABBRUCH!/F /߀JF0LF$F /߀Fo0LF$F B/Fo$F$F H!Wie viele Seiten| formatieren ?!!Eine|Zwei|Keine!MF MFS$F$F 8*********** GRUNDPARAMETER SETZEN *****************  02FN0N5yFN0OFN0PF0QF FFp!!!!F H**** TRACK 1 SEITE 1 UND TRACK 1 SEITE 2 (NUR DOPPELS.) FORMAT ****  <0RV !J!!Q!L!!!O!N! FF `M߀F<0RV !J!!Q!L!!!O!N! FF$F B********* ALLE BRIGEN TRACKS FORMATIEREN ******************  X/G]݀F! &|F20RV !J!!Q!L!/!P!O!N!2 FF M߀F20PP߀F AUF ANDERE SEITE UMSCHALTEN  ~P߀FU&F$F$F /F 6********* BOOTSEKTOR ERSTELLEN ***************** * 00RV!J!!M݀! F 80]LMFF810߀F8201F DJߘ!2F GESAMMTANZAHL DER SEKTOREN DER DISK EINTRAGEN Jߠ!1F  M߀FE*Jߨ!FA EINSEITIGE DISK 8&F.Jߨ!F  DOPPELSEITIGE DISK R$F 4J!LF SEKTOREN PRO TRACK EINTRAGEN RJ!FT 8**************** BOOTSEKTOR SCHREIBEN *************  80RV !J!!Q!!!! F B*************** GRUNDEINTRGE DER FAT ERSTELLEN ************  J!F*LGFRJ!FR |jF D******* 1.FAT BEI EIN- UND ZWEISEITIGER DISK SCHREIBEN ********  8^FF8_FF8/FF,0RV !J!!Q!^!/!P!_ F! D********* 2. FAT BEI EIN-UND ZWEISEITIGER DISK SCHREIBEN ******  8^F,0RV !J!!Q!^!/!P!_ F! $|FF>*************** FEHLERAUSWERTUNG *********************** * F* FRF*8 g ] F 8d /F r/]F 8dF$F M߀Ft!! F @!!!!dFt!!F @!!K!!dF 8@F@t!!F @!!!!dF$F 8Fd24 FEHLER AUF| |SEITE P  TRACK / F.! !! ABBRUCH | WEITER !3F 3߀F F$F$FF *F Der Name sagt auch schon alles !!!F, ^ F bliche berprfungen T!) | DRUCKER BITTE | EINSCHALTEN ! !! JA JA | MOG NET !4F 4߀FC'F$F$F 0^ Fp!!! FI"LY! " WITZBOLD !!FF `FA'F$F FL! | AUSDRUCK MIT | PARAMETER ? !! NA KLAR | QUATSCH ! F  ߀FKF$F$Fp!!!F|,X!!,!BIN BEIM DRUCKEN F!0F Hardcopyrutine ,B "Bl "B "FB linker Rand >B "BA "B "FB Zeilenvorschub auf 8/60 Zoll XGPF 4FF`GHF"&4?!#ߠ ! F FG,B "*"B "B "B "FF FB "FFB "FF Nchste Seite &B "B@ "Ft DRUCKER RESET  F^ F F^  '|FFFF (F^ Ausdruck der Startdatenstze "0F p݀Fp!!!F|>X2!d!!#DIE SOLLTE MANN/FRAU SCHON HABEN ! F>F2$F,B "Bl "B "Fa Linker Rand B "E"FFFFB "F"FF0B "BJ "BZ "Fa Zeilen vorschub ,B "Bl "B "Fa Linker Rand *"Anzahl der unabhngigen Atome: "F 7`"FF0B "BJ "BZ "F  Zeilen vorschub ,B "Bl "B "F  Linker Rand .B "B- "B "F  Unterstrichen  Kernparameter"FFB "B- "B "FFB "BJ "B2 "FFB "Bl "B "FFLG`FAtomgruppe: !7FFB "FF(Kernspin : !7! "FFB "FF(Anzahl der Kerne: !7! "FFB "FF(Kopplungskonstante!7! !FFB "FF0(****************************************FFB "FF |hFF0B "BJ "BZ "F*Zeilen vorschub F,B "Bl "B "F*Linker Rand h&Sweep-width (in Gauss): !7FB "FF(Halbwertsbreite (in Gauss):!7 !FFB "FF&Auflsung (in Punkte): !7FFB "FF2Prozent Lorentzcharakter: !7!!FB "FF F^ F F^>|F F F) Berechnung der nor - P.6!)!7!8!!9F mierten Intensitten ,86\! F' fr ungewhnlich viele !@87%\! ߀ F Atome und "seltene" L8)%\! \!  F Spinquantenzahlen H) !) FP9FF6F6F 4 !F88FF8FX:8G#78 F :):)F: !8 F$F :F8)F bF8  ! F .F 8%)߀ F 89 FX:G)FH \!:9: 9F &:F F FF F:0Fp!!! FLY! "FF VERGRERUNGSFAKTOR: "5F 05(5 FFL75F 5FN05FK$FFF F0F  F.Q!P!q!V!W!R!!;!X!!!=!;!!!:!!!F-0q! F0q6A! F ݀F!8:F 8F8:F$FN:FF 8߀F!T!P!7;F!T!!7=߀F8;F$F h=߀F8<F$F$F$ :߾:F =߀F8;F$F =߀F8<F$F$F$ j:߇:F :=߀F8;F$F d=߀F8<F$F$F$ :߯:F =߀F8;F$F =߀F8<F$F$F$ f::F 6=߀F8;F$F `=߀F8<F$F$F$ ::F =߀F8;F$F =߀F8<F$F$F@ <:ߖ:;;F0F$F$Fh߀F *F$ :߀݀F 8;FF 8F –>߀FEFF4Xd!!! SELTSAM, SELTSAM........FO `xF$F$F æFD! SIND SIE EIN | | ORGANIKER ? !! JA | NEIN !>FFF N>߀FE6Xd!!! DACHT ICH MIR DOCH GLEICH!F 8ÔFd<Xd!!!! HTTEN SIE ABER WERDEN KNNEN ! FN$F `xF$F$F  ;<FFF(X!!,! GEIZHALS!!!!!FE `FFF(F$F  8߀F 8PM!PA7000,6500;LBCENTERFIELD: "7q! "B F>PM!$PA600,6375;LBGEMESSENE SWEEP-WEITE: "7"B F6PM!PA7000,6375;LBSWEEP-WEITE: "7"B F*PM!PA600,6225,PD10600,6225,PU;FF  F$FF  F&,!/!7!!!0!1!2!4!5!6FS0q6A! F0q! F 40 F<0Eq! F,41 F41q! F 42 F <2E F43qA! F  .30F 430.00FF$F 443FF45q6! F 46 FF4, F47 F4/ F BPM!4PU,600,600,PD,600,5620,10600,5620,10600,600,600,600;FTPM!FPU600,600,PD600,520,PU,5600,600,PD,5600,520,PU10600,600PD10600,520,PU;F ͖݀FPZPM!LPU600,5620,PD600,5700,PU,5600,5620,PD,5600,5700,PU10600,5620PD10600,5700,PU;F$F ݀F <,E4F <7E6F !  FT6!!FF%F 0DF <߀F] =pF 8F]F$F `F$F D߀F t<߀F] =pF 8F]F$F `F$F0]q]! F0]F4 F <E F,4?!! .>!  FX!!F!FF'FFF|(!2!X!hFLY! "FF"LY ! " Standard: "F"LY ! " g-Wert: "F"LY ! " Kommentar:"F&LY ! "Feld [ in Gau ]:F$LY! " Standard: "FF"LY7! " Probe: "FLY! "FFdlFL9FLY! "FFdlFL9FLY! "FFdlFL9FLY)! "FFdlFLYA! "FFdlF 0\5 FF 0]5 FFFF"FF)F!,! F\4,BW  F"$, :\daten\*.gwe!.gwe!Fe F+F$F$O!M!FXEGF.M!E F. EF0FFx!O SOLLEN DIE PARAMETER | FILENAME UND FELDSRTRKEN | MIT ABGESPEICHERT WERDEN? !! FREILI | HH ! FS  ߀FI$O!M! G_WERT.PARFM!FM!7\!7]FR0FF$F+|F`FF(F!,! Fn4,BW  F"$, :\daten\*.GWE!.GWE!Fe nF,F$F T F$I!M!FXGF.M! F. F0FF 8&FP!- SORRY OPEN ERROR | | (keine Datei gefunden) !!NICHT OK! FE$F,|F`FF&F!!^!_F 0^5 FF0_^\]FF 4_ FF4 F8E?!! .?!! 000000F p!!!FT!!Fp!!! FF  .F(Z! !A!!!!)!s!w!!!xF& 6݀߀FFF |1!!Y!F l1!!Y!F l1!!1! F l@!!@! F lY!!Y! F t!!Fd!,!&!^F p!!! F DXx!J!!* Gut gerauscht ist halb betrogen , oder ? Fp!!! F T(!!0 %FT7!!50 %FTN!!100 %F2Xd!!! Prozent Grundrauschen :Ft߀FN ;ߖ;::<F8F$F <߀F8F$F SB F8F $F$ d;;F 8 :FF ^<߀F$ X ߖ F tF  F !!X!Ft!!F  F2!! !F8Z F0sqZ\(Ž! FT@!! %FFT@!!7sF $F$F$F TF@ 0wsF 0w(w FFFFLF tFz  Fz!=!d!gF!F |F08F *dF08dFF(0:#d 8FXG:FXGF" 0xVw FF$8Zgxw߀ F G!ZF |FG hFXGF 0xVw FF8 :FF.8Ag! ~5 F8ZAgxw߀ F jZߴF8ZhF$F ZF8ZFFz#< #S F ZFFFF D+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ >FR\F  daten! F ,DATENF$F\DATENFF D+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++   H ***************************************************************** 0 MANIPULATIOENEN MIT GEMESSENEN SPEKTREN *H *****************************************************************   5F"!!!! ! !j!!k!l!F&!!!"!!!m!n!,!o!#!$FF2p!%!q!r!!!!3!s!u!t!!u!!:F2v!w!x!y!z!!!{!|!!!!! !AFFp!!! Fb4|FL! | WAS SOLL GELESEN WERDEN ? !!PARAME| SPEKTR | NIX !F FL7F$F ߀FL5|F ݀FL4".PARF 8F 4"FF$F$A:\*.par!"!!FL !F vT! F"D!!:|Diese Datei existiert nicht!!! ZURCK !F5F$F<++++++++++++++++++++++++++++++++++++++++++++++++++++++ 4!FF8m!. F8n!\ F8,mnF+4?!n߀!, F  ݀F Fr! - SOLL DER | PARAMETERFILE ZUM | SPEKTRENFILE  | SEIN ???!! NEE | SO ISSES!oF o߀FL5F$F$F$FB+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ !}F$I!M!!F8:FFM!#F t#F:F$F:߀F+L#FF ;#! HSWF0q5>#! ! F$F  ;#! GSIF0q5>#! ! F$F F;#! HCFF0q5>#! ! F$F ;#! GSTF0q5>#! ! F$F ;#! RESF8}5>#! F $F PF# BFFF<LY! "& CENTERFILED IST NICHT | DEFFINIERT!! FFLY! "FF CENTERFIELD: "FT$F FE FE 0q߀# ! F$F$F<F0FF<F 8F4FF$F F4F$F$F `߀F   ~FV!, | | PARAMETER SIND NOCH | NICHT GELESEN !!! OH JE |NA UND !lF  xl߀FE4F$F$F6|F  ݀FE4".BINF 8 F 4"FF$F$A:\*.BIN!"!$FE H$F  NT$ F"D!$:|Diese Datei existiert nicht!!! ZURCK !kF 6F$FB++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ k 4$FF8m!. F8n!\ F8,mnF+4?!n߀!, F   ݀F  Fr! - SOLL DER | PARAMETERFILE ZUM | SPEKTRENFILE  | SEIN ???!! NEE | SO ISSES!oF  o߀FL6F$F$F$FB++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++  FH#( F F F$i!M!$F8F8O FF  P F+M!%F  r;%! S1F` G߂HF+F  D ߌ FP95&?%!! F+   qF! 8q F$F  > rF! 8r F$F 8 `F<߀F$F  F$F  ZF<߀F0FF<FFF 2݀Fd!C DATEI ENTHLT MEHR ALS | 9000 STTZSTELLEN DAS | KANN NICHT SEIN !!! ENDE !3F|0FF7F$F 8sFF,**************** Hier wird gerechnet !  Hs F0u(r !q ߀F0u$uFXGsFP9g u FF F F H****************************************************************** H  8ZF*4FF$F$F ,***************** Hier wird berprft !  bF*b!, PARAMETER SIND IMMER | NOCH NICHT GELESEN! !!JA DOCH | KUCKEN | NA UND !tFF &t߀F 4F$F \t߀F <߀F8F$F$F }F<߀F$F 4&s FF 4'} FF ݀F  } sF ~}s}FFz!/ DAS IST JA OBER FAUL ! | | MEHR STTZSTELLEN (&) | ALS RESOLUTION (')!! KO |NUN DENN !uF xu߀FA7F$F$F$F$F0s߀ F  2߀FAp! DA STIMMT WAS NICHT! | ES SIND &) | STTZSTELLEN VORHANDEN | ALSO ZUVIELE !!SCH...!jFN7F$F@ x-߀-݀-݀-݀FN 8Fx!% DA STIMMT WAS NICHT ! | ES SIND NUR & | STTZSTELLEN VORHANDEN !!!AENDERN| GUTSO | SCH...! F$F  F 7F$F  ߀F V!) | DAS GIBT JA DOCH NUR | | MIST ! !! JA DOCH | DENKSTE ! F  ߀FT7F 8F N! ES WURDEN & | STTZSTELLEN GELESEN !! OK | NEIN !vF &v߀F 8}sFF 8FF }Fh!1 IN DER PARAMETERLISTE | IST DIE AUFLSUNG MIT | ' ANGEGEBEN !!! OK | NEIN !wF w߀FR9F$F$FLY! "FF AUFLSUNG: !}F$F9|F$F$F z ߀FRN! ES WURDEN & | STTZSTELLEN GELESEN !! OK | NEIN !xF x߀F 8}sFF 8lFF <}Fh!1 IN DER PARAMETERLISTE | IST DIE AUFLSUNG MIT | ' ANGEGEBEN !!! OK | NEIN !wF 6w߀FR:F$F$FLY! "FF AUFLSUNG: !}F$F:|F$F  FNB! | PARAMETER LESEN! !! JA DOCH | NA UND !yF y߀FE4F$F$F;|F }F^!) | DIE AUFLSUNG IST | NICHT DEFINIERT ! !! KUCKEN | SETZEN | NIX DA !zF  zFL7F$F z߀FL<߀F8F$F z߀FLN! ES WURDEN & | STTZSTELLEN GELESEN !! OK | NEIN !{F R{߀F 8}sFF 8FFLY! "FF AUFLSUNG: !}F$F<F$F$F FN`!+ | DIE SWEEP-WEITE IST | NICHT DEFINIERT ! !! KUCKEN | SETZEN | NIX DA !|FE ,|FE7F$F b|߀FE<߀F8F$F |߀FELY! "FF SWEEP-WEITE: "F<F$F$F & ݀߀FI8|F,*************** Hier wird gezeichnet ! FF T!F*0$F 0sF!FXGsF8 F 8Ag  Fi G !AF F߀F  <F8F$F F F݀F <F4FF$F& z݀߀Ft;F$F >+++++++++++++++++++++++++++++++++++++++++++++++++++++++++ $FFF H} F }sF 8~sFF 8 FF 8~}FF$F 8F+r~F+P9 FP9 FF9 &F F 4(FF:FF<F8F8&!F8)!F8*!F8+!FF***************************************************************** 7|FF    6FF!!m!n!,!,Fp!!! Fl=|F4,BW  F$,:\*.SPC!!Ft  :F 8T FD!:|Diese Datei existiert nicht!!! ZURCK !F=F$FB+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++  F FG F$I!M!FM!!}!F H} F*M!л !Q ݀F+0FF<߀F8&!Fn8)!F8*!F8+!F<+++++++++++++++++++++++++++++++++++++++++++++++++++++++ 8m!. F8n!\ F8,mnF+4(?!n߀!, F <+++++++++++++++++++++++++++++++++++++++++++++++++++++++ 8F:F$FF  8F#!!,F! !݀F#N|F4,BW  F$,:\*.SPC!(.SPC!FG F !F !\T FL!:|Diese Datei existiert schon!!! ZURCK | WEITER !F !V߀F NF$F$F$O!M!FM!7!7}!7F *M!л !Q ݀F#0FF$F$FF  :F0F"!! !A!!!!!!F8F!p!!!FeT!F<|F0$F 0}F!FXG}F8 F!8Ag  F G !AF "F !2!e!!)FFF|!Xd!d!!$LINIENFORM DES SIMULIERTEN SPEKTRUMSF|P!n!!xFEt!F!!!FEt!F!!^!FET!! IN ORDNUNGFd!!!FFT!!HALBFT!!VOLLFT!Fld!s!!sFF8FsC~߀F @SB F8F $F Cn<߀F$ Ax;ߠ;F F A F8F$Ft!FR!p!!vFT!Fpld!s!!sF ` F$F$ Ch;;F $ B^::F t!Fe!!!FT!!HALBFt!F!!!FT!!VOLLF<F$F$ C*::F t!Fe!!!FT!!HALBFt!F!!!FT!!VOLLF<߀F$F$ Cb::F 8F$F$F$F @hFFF <߀F 05FF C݀F8KF055F0F 8DF0F8F$FJFFF DP݀F FL 8DFS DFL!) KURVENFORM IST NICHT | DEFINIERT !!!!!! !! IS GUT !FHF $FEFF$F I|FFFp!!!F T!FLF|!kals3@2@ermittelt(Abbildung9).   SN 3@^2@          @A-@b @b @i @l@d@u @n @g @9@:ESR-Spektrumvon3@2@aus1@9@a@undNHinToluol, (͌g)VbeihoherVerst]rkung.(MF:100KHz;MA:0,486G; (MP:6,32mW;MT:291K) ` -5-5.2.2.@1 @,@3@,@5@-@T@r @i@t@h@i @a@-@2@,@4@, @6@-@t@r@i@a@z@a@p@e @n@t @a@l@e@n@- @2@-@y@l@( @9@@1@@)  j DasinDichlormethanbei210KaufgenommeneSpektrumvon9@1@ rwurdemitdenermitteltenKopplungskonstantensimuliert.Unter pVerwendungeinerHalbwertsbreitevon0.18GundeinerLorentz- rKurvealsEinh@llendeergibtsicheinesehrgute\bereinstimmung NmitdemgemessenenSpektrum(Abbildung12).           9@_1@        @A-@b @b @i @l@d@u @n @g @1@2@:GemessenesundsimuliertesSpektrumvon9@4@(MF:100 BKHz;MA:0,14G;MP:6,32mW;MT:210K) 5.2.3.@1 @,@3@,@2@-@D@i @t@h@i @a@z@o@l @-@2@-@y@l@@4@, @5@-@b@ @p@y @r@a@z@i@n@(@P@D @T @A @) @( @7@@4@@)   p Wieschonerw]hnt(Abschnitt4.8.3.)istdasPDTA-Radikalrecht xunempfindlichgegen@bernichtoxidierendenS]urenundzeigtinEis~ |essigschonbeiRaumtemperatureinegutaufgel[steHyperfeinstruktur p(Abbildung15).ZwischendendreiintensivenSignalgruppendes 1,3,2-Dithiazol-TriplettssindnochLinienmitschwacherIntensit]tzuŌrerkennen.DieseLinienk[nnendemStickstoffisotopNzugeordnet werden. x DiedurchComputersimulationermitteltenHyperfeinkopplungskon~ vstanten(Abbildung17)ergeben,dadieSpinverteilungimPyrazin~ |ringvon7@4@deutlichverschiedenvonderSpinpopulationimPyrazin- HRadikal-Anionbzw.Radikal-Kationist.s -6-"   7@]4@a NN|q        @A-@b @b @i @l@d@u @n @g @1@5@:ESR-Spektrumvon7@4@inEisessig.(MF:100KHz;MA: 60,386G;MP:6,32mW;MT:298K)                  @A-@b @b @i @l@d@u @n @g @1@7@:GemessenesESR-Spektrumvon7@4@inDichlormethan \(Tieffeldteil),(MF:6,25KHz;MA:0,098G;MP:6,32 VmW;MT:210K)undsimuliertesSpektrum(DB=0,21 ,G;100%Lorentzkurve).   5.2.4.@1 @,@3@,@2@-@D@i @t@h@i @a@z@o@l @-@2@-@y@l@@4@, @5@-@b@ @c@h@i @n@o @x @a @l@i@n@(@4@@9@ @)@( @Q@D @T @A @)   l WieesauchbeimPDTA-Radikal(7@4@)derFallwar,ergebensehr xverd@nnteL[sungenvon4@9@ inEisessigschonbeiRaumtemperaturein? -7-xESR-Spektrummiteineraufgel[stenHyperfeinaufspaltung.Inorga~ xnischenL[sungsmittelnl]tsichdieHyperfeinaufspaltungdagegen nnurbeitiefenTemperaturenbeobachten.Abbildung20zeigtdas BESR-Spektrumvon4@9@ inTHFbei200K.     4@_9@            ~ @A-@b @b @i @l@d@u @n @g @2@0@: ESR-Spektrumvon4@9@ inTHF(MF:100KHz;MA: 80,114G;MP:6,32mW;MT:200K).  v DieausdenSpektrenermitteltenKopplungskonstantenwurdendurch rComputersimulation@berpr@ft.BeiVerwendungeinerHalbwerts~ pbreitevon0,17GsowieeinerreinenLorentzh@llkurveerh]ltman reinesehrgute\bereinstimmungzwischenexperimentellemundsi~ @muliertemSpektrum(Abbildung22).                 @A-@b @b @i @l@d@u @n @g @2@2@:GemessenesESR-Spektrumvon4@9@ inDichlormethan X(Tieffeldteil),(MF:100KHz;MA:0,051G;MP:6,3 VmW;MT:183K)undsimuliertesSpektrum(DB:0,17 *G;100%Lorentzkurve)<HhcimL%$J8 d <7|.:(z 4pC<7|MHd/"908<7$vMHd/"908<7$vanG?j0" ,$8 d <7$v[JE s0" ,#8 d <7$vYPEs " ,$8 d <7$vCj " MHd/"908<7|o!&%xx#]!/4&9hW+x 4/4&9eW+x o!&%xx#Z90P=g" !;4&9jW+x 4;4&9_W+x ' UG{Ox UG{Ox ?V6&[@"o!&%xx#Z)2 ;-1_3x !2 ;-1_3x >6SL& @" o!&%xx#Z+ UG{Ox # TFzNx ~o!&%xx#Z Z 7)6Z.x (Z 7)6Z.x '\H'yB" o!&%xx#Z'` RDxLx ` RDxLx o!&%xx#Z DICDTATO.PAC6  (c N8|]C 4i%ɗ\ .ޑ2m U.A , pI#U! *̙l;ϛ7 " rB%||[MxSS ~\EK*Z:uӆ)(/߾_<)Ι~*X> I4iAh,T~_~mrlygk˃>p77_"% ϐU+װF;ϐQA:tFHm &Ǚrl%yK ;t]_hW~Q:q/Ӈ^PU@ ɗ2` "?@@  (8??ˁ@@(?0`U@ P( @0| : 00@?@Þ<80f  1 ?|p.?@08?0p?0 "`# 1`c0@?p8p8@@@ !~x|?x<e@@A H$ 80p0* `p88p?@@ 30 @p8 (h   H$ @ J xx8x / "0 ` F1 *~x?0`@?800p0|>8 :08p8p``?`1 ?88pp8 @ H Ï8~AP(@@00@ @? 0 $@!<!V@@ !2@q??׀?uAÀp @@@$!<!2@8:< < ?֘@@ ! @x<|  ?NN?P0@!@`#L``>|p0a`y@@ @@!@  80  0["" T~c@ax>|<x ?|<``?8aap8 p8p8 b0Fxp@ 8p8p'?@ @$o@ @ @`` "p?``0aa8p8pax |8x< p8p8<<    H @80p`H B 7@  0I` ` @J @!!00qu ?/  8800pp`88  B!@ @ @ 0``lP   ׇ !!00? @ H   H_ @P0@0%@n @@"ax | F<`C3x  8p8pxx  o@ H  @ 80p``0U cpax< 8`?````p`0 `0 DTOASCL2.PAC7 (J 6: WۄVS*AL d/̉2`G6<~{ Wa 9^@m R­A|TÏ6tmϜ+"_ g~DE2:@${Ϳ|C{p4U*XY Ϲ.}ˀ+KT/Ͼ*Iۃ*%@D"%/Ι~'ӯ.0L"HDv*AV_lC ÄoH,/ۅ0G!`hyʶCGX/K_2m#gaV/˝6L2e h $L"L  x`:   x?:? Bx@  @ a?p ~~>?|`b0 0<Á8p8p8pءA P|<<p``8xx  0$ p88p8p8q a~xx|p`p@?```` P`8<~ @@0u0  , !0~?008p0`&`B< ` @ 0ư@@00 000p p<> (x`8< ?|<>|>8?2B>x( p8p8p8@ ?>xx`q0f <  ?8?8pp?p8p8 ``?< f ~@Bx @@     0 p8Ja  a<>0`qux?@@?| `P` `'@ 8p8p8`@`|?<?<< q0@0`8DD8h`8p 0B ZCA0?>x`0@J0@x| P<0|  p`@8p8pf 0   p8p8 8p8p? 8p60  <x??>xxo@008puq \ a?@?X@<0<|p@x< F1 @0 $H @ 00?8p0pp8p8a`!F@ 3 p@0   0000>x>x @0`U@Pp`8p80p8`<x>@0`uqP`P  00 0 00<  ``PYRAZDTA.PAC%t(<@(s͇:d@W$T, ~Z Pa2Si@(3ˇm@ ǿ>y]^D6fg̈́ ~, ~ Qf~~O2d"M2DL- `q?@y``<<@<``?@p|<x?><|?``?``aap8p83D``  acq a( 0 H$0f  @0bxxc`0G0@0c>?8p8p`<`B`~|@?\`@?a @ `?@  <@<``@p|<><|``?``?: @ H$ 8<x̠P  |<?>x|0  80$ p8| `3D`|8?@@?`@: a$H @ |x8 @P >x<?x>`8  :  $0` pCHINOXDT.PACh(i @< /@H6 ݦ^6</Ϲ2rAqF{@/S>|(sӃ:]9s /D&Zl``` @<~ 0``#x@ P(`0@: px|? x|x||x>?|`# 10@?x| <xxx>@0bq@?<>x" 0?p8?p8 08 8x"H*@  0x 3$@@ H8  |< ?sx>?<x<<<< x@ <<00px<08<8p  p`| `?# `< (@@x(00 0 pDCDTAL.PACx|nfn|O(R~H$x|ߵVګ~Uo߿j߿jdɓ&L2dɓ&L2dɓ&L2dɓ&L2dɓ&L2~_~F8pÇ8pÇ8pÇ8pÇ8p*[@*@*[@-ZU ZFՅPP WZU@¨y  9ťRdɓ&L2dɓ&L U ß2dɓ&L,*ZUEp T @@R*U2dɓ&L2dɓ&L2dɗL2dɓ&L2dɖZt,*.\ xx~>@E~H$x|(U( xx$B~fQf~~fE~f~|$Bq`Qf0$B0  Qf(~(E~~f~E~00  >@H$x||~q`E~(~fU( 0f0  B<((x ??!/  ?D0`_ ? 08` ` 0@  0  `A ! 0 `(D` 0*?9 *?9 :! -:! 5;! +?5 !5 !3 ! '?" 0 !dDCDTAR.PACx|nfn|D(P~H$x|ߵVګ~Uo߿j߿jdɓ&L2dɓ&L2dɓ&L2dɓ&L2dɓ&L2/߿~߾A8pÇ8pÇ8pÇ8pÇ:H aU, j-Z , Ua9ŀaT ß2dɓ&L-Ι2dɓ&L2dɓ,*3aV@Q\ k (XUVTUZR pm &L2dɓ&L2dɓ&L2dɓ&L2dɓ&ZUiҶ .\xx~>@E~H$x|(U( xx$B~fQf~~fE~f~|$Bq`Qf0$B0  Qf(~(E~~f~E~00  >@H$x||~q`E~(~fU( 0f0  B<((UUJ  Dxxp<xd@xH L@< HP~fy D"DTWx@ q|H `t$\HQ `@`  00!`H 0@  0`@|@ px>.p}? 0`G`` 08??# G    i  <  @D Ҏp  `0 @@(@8`  `@@ @  $  `0` @@`0@`  00 ` @Ac@ !0`"0 @@@*?9 **?9 :! 5;! +?5 !6 95 ! '?" 0 ! DCS33N1L.PACx (j "~H$x|ߵVګ~Uo߿j߿jdɓ&L2dɓ&L2dɓ&L2dɓ&L2dɓ&L2~Ͽ~F8pÇ8pÇ8pÇN8pÇ8p*\P- UqU2,TUhX1**ڴ,_mUH_`X* վ^U~߿~j߼WVJ׮Lv.*߰T ^6@,X ʠ x$/@[ T`Z*, @P2dɓ&L2dɓ&L2dɓ&L2dɓ&L2dɖZt,*.\xx~>@E~H$x|(U( xx$B~fQf~~fE~f~|$Bq`Qf0$B0  Qf(~(E~~f~E~00  >@H$x||~q`E~(~fU( 0f0  B<((@E~H$x|(U( xx$B~fQf~~fE~f~|$Bq`Qf0$B0  Qf(~(E~~f~E~00  >@H$x||~q`E~(~fU( 0f0  B<((w U]B`$`Dx$t\U]@\@@V`A4c<0Wxp<`D00w>@H$q> x|0t$\H   X`@ @@@  @@f``f``0 @ )Xp @p p K  @  5d@pp" @` H 0 @0 n*`@@@ & PA(@=^# @ @M @ @`ff```(2jKA0@@`I XL- s @)@;)@€!   @(P W q /@O % <@o`@ `0D P @d 0 C* Ⰰ ``$0  ֌ X ց@ "$@D  Z0@@ `0XH@h W tQ"@D @2 !`@?bPU@ @p 4  `@A"  B'@@P X @ B` "|H1 s̀`@00@ `  @ ``B @ 0@ @ `2 @@ @ 0 bp0 @!X  2P0 \$  `D*?9 **:! 5=&=&5 !6 96 9 '?" ? !? ! |DTATDAVR.PACx \( ~H$x|ߵVګ~Uo߿j߿zdɓ&L2dɓ&L2dɳϟ>|ϟ:dɓ&L2/߿~ߧ~V|ϟ>| ߵA8pÇ8pÇ8pÇ8pÇ;H@U:aTV ڄ^ftɓ&L2doUn<ɓ&L2dɓ&L2eRJ_ܴaU T,%SFa*Z VmZXKmÇ8pÏnmÇ8pÇ8pô߽|V[*ձj«VUjaUV̙2dɓ&L2dɓ&_2dɓ&L2dɓ&L2ePQN .xx~>@E~H$x|(U( xx$B~fQf~~fE~f~|$Bq`Qf0$B0  Qf(~(E~~f~E~00  >@H$x||~q`E~(~fU( 0f0  B<((|ϙ3Vڿ~ϟ>|ϾUaÇ8pÇ8pÇN8pÇ8pÇ*XiT*ձh*Ѵ)Uj0[@nؼWv©2dɓ&L2dɓ&L2l޿2dɓ&L2@ZݪUz¨Tb@iT*X| ZUZ@-*PVՠZҨ~W oUaÇ8pÇ8p߽zÇ8p߽vҨvd*ڽiTDjEJVիiT @-*&L2dɓ&L2dɓ&L~dɓ&L2dɓ&LiU xx~>@E~H$x|(U( xx$B~fQf~~fE~f~|$Bq`Qf0$B0  Qf(~(E~~f~E~00  >@H$x||~q`E~(~fU( 0f0  B<((x@@`0`"! @ P0R `@@ 0`  x 0 II 00 H`",< 0@@ 0Af  `@H` `A` `(" "@ $ 0HAdh `%@R H`)@ p@i(`% @@@@(` @X @@@0`@@@@@@@DD 00`$0`  @ <@0`@@ @ %0`@@@@@@@  @@0`H@@ 0 X@?0 8@ @e P0`@  ##   @@@0`L@@` @` # @@0` @(@L (% `  H #0 ` <D%L@@H!@"  & @AD@x R  09! ; ! PEISESSR.PICఐ (w~H$x|ߵVګ~Uo߿j߿jdɓ&L2dɓ&L2dɓ&L2dɓ&L2dɓ&L2/߿~߷~8pÇ8pÇ8pÇ8pÇ8p X@aFpVXKP˗XQraQhj,*,/߻rˀRTÇ=ׯ\p!Ç8pÇ;JWސ/կVdXU.ܿtV˗+޴«rr˗XU/ݺn޴\ ZXU/KV-,*jhXU* ɓ&L2dɓ&L2dɓ&L2dɓ&L2dɓ&ZUiҶ .\xx~>@E~H$x|(U( xx$B~fQf~~fE~f~|$Bq`Qf0$B0  Qf(~(E~~f~E~00  >@H$x||~q`E~(~fU( 0f0  B<((@H$q> x|0t$\H @  @B00 @00`@`P@P  `  @` @@ @   @0( @  0$     `8`  s{  0p @#0 @@ x$8?`H  |0`    `r0`  0`x`?    / `0 !0H   x0 `@ 0 @ 70 @ 0`@   0    @P0@ 0%0 P0@ ` @*?9 *** 9! * 5 !6 96 9 3?" ; ! 3?# :PEISESSL.PIC`?``?`` (h~H$x|ߵVګ~Uo߿j߿jdɓ&L2dɓ&L2dɓ&L2dɓ&L2dɓ&L2~߿~F8pÇ8pÇ8tÇ8pÇ8p* PhBj*ժU,[Z ˖ j@ V\hRBnkըURz˖j߯XF.]r˅V8pÇ8pÿVK]}8pܵjŋ j\r˷bŋV@[\~ŋ Z/ݸXaTURˠի ZoZ V@Km¨*\PTT ɓ&L2dɓ&L2dɓ&L2dɓ&L2dɓ&ZUiҦ\pxx~>@E~H$x|(U( xx$B~fQf~~fE~f~|$Bq`Qf0$B0  Qf(~(E~~f~E~00  >@H$x||~q`E~(~fU( 0f0  B<((@H$H x|UXB```$`D``QDuUPw|< H$U~w $~ <>w P̀wS@ qt`\`   0 PD 00 0$` 0$f$B0@ A B"`B!(`0  BAA B@ ` @ 0@@@A60@ @@`@00 !`H@  )0c@A` @@@@@0 D         d  c  0 0>`"(0@`@@`@@@ @    @K  `0p0`F D `$<@ @ @ `@0@ `?8` ` H` 0  @ @ @ `@@@@@0 ` 0 `DAB@! 0 @@`@@ ` @` BfB@0 @ `"0 $ (0D`    @ @ @@ ( @  !0 0@ 0@ `   $0 *?9 *?9 ;! 9! ;! ;! 5 !5 !; !"  RPDTATT?.PACx|n fn| ( ~H$x|ߵVګ~Uo߿j߿j߿^dɓ&L2dɓ&L2dɳϟ>|ϟ:dɓ&L2/߿~߿~V|ϟ>| ߵA8pÇ8pÇ8pÇ8pÇ;H_) UhtXBz¢Z[Uj(1U&L2dɓ&LaUU*s,*Z6dXUiZ*g,%@`(޴Q,!UhVҍHsÇ8pÇ;JrҺ%&LU\Fn`,*j%,*L2dɓ&L2dɓ&L2dɓ&L2dɓ&LiTmSˀxx~>@E~H$x|(U( xx$B~fQf~~fE~f~|$Bq`Qf0$B0  Qf(~(E~~f~E~00  >@H$x||~q`E~(~fU( 0f0  B<((    @a 0`P@  0` *`U0  ~ ?@   < p8@@0`@@@`B0 0T`  0`܀  J0` " 0`@`0 @^ pH`0 @|8 0`* 9|ϙ3V߫~ϟ>|ϾUaÇ8pÇ8pÇ8pÇ8pÇN1FTW/Z*դQl"yiT5ҺyiFҩ2dɓ&L2dɓ&LR\yUUZU JUx vlPL/P_* 4{E[@eVJCUTZZUaÇ8pÇ8&ZEKTe*]U&LiW*@nV U$2dɓ&L2dɓ&L2dɓ&L2dɓ&L2dɖPxx~>@E~H$x|(U( xx$B~fQf~~fE~f~|$Bq`Qf0$B0  Qf(~(E~~f~E~00  >@H$x||~q`E~(~fU( 0f0  B<((@H$H x|UXB```$`D``QDpx@!< @Py0H00`D0P~fP?3 u$4DwS@ qt`\`   @ `p)0` 0 B  1``0 0`A` D0`@@ 0`P R% 0 0 @ `0  @0@x`0 0` 0`0 `*  0`H 0Ga `p@ <p>`8 J`0 0`@ U 0`` 0` A>  0` 0 0@`0I K 0`@   `0)` 0`x1] h@`0$0` : 50>>` B` @  ` 0 0`P 0! 0`"@@`>`0  0` ``0 0R`L $0` 0 0 `@< 0@8@0`0  00``0} 0 @  0J`&  0I p  w> @@ 0R`@` 0 `* `0 0`H  0`H  0  '`70`9! ; !CHINODTA.PACs u (R q|Sa@Ͽ>Yi ~ ~ h7D8"O2$/@oӅHoH>m )տI`X~\8Ï6|0-m<./HDMtU̗|jPT ID6$; &ݙ"l@@gχ=pݟ0 ݄^1[ȳ<cϹ2賥m%rAqFZ@ poT6q, "$'˝2}&׼%pߟNu$ $'D!m 08 <00?|<<|>x<x |` @@@ @0 8>|<|?|>p?00? H$ p81B " 0 `D3~!! F1x<`#D ~`1 |88px|<<`8<@  @0 08H :H?`1 >x- (T4<<>xx>x>|8p8p 88p|>3` <x>x<#`C$x<<x< ? F1@?@J@ 5 j@ 0<<À $H\   |?>?x|P(x>|?>xx||<|x~x(  p0 ;<$ <8p8p c10@ x<`xH"~@0`|b8p8p@p?<?<|>x<~< (<|xp@~À|<<<><xx>x U@P - 0E00  0?x p8 |8 1@ 3?x 0f03?Hx>x`0b`@ H$  \ h>|xx>x @ P(<<?x>< x~>x?<|<  `?``<x>x<|8|0<x@<`H`@p|?<<~| `@?`p@?```aap8>|?x> Հ@P 0` \ 0c `3D`>`@p F p8 g`p0p8<x| ` 8~Dp8p@Ԇyy`? 00 0Z 0a Ra  @0` `@0 Q00 0@ ?`F1 $B<0f @x0G0c808p0`0|8p` 0@@0<xx<x>~xx||< `Tx>|?@Hu@?` a$H @q ?  @0bx><x>~x0G @00@f ?x|x @ 1F ```x<x>P` 808pp``?<x?>x?x8̠P   0  q CHINOTTL.PIC? ( ~H$x|ߵVګ~Uo߿j߿jdɓ&L2dɓ&L2dɓ&L2dɓ&L2dɓ&L2~߿~F8pÇ8pÇ8pӇ8pÇ8p*jPR`-ڰ V@VJ*wZ`~Pڱh*]~ŋ@o_iTV*Xnm^PçN:tקNvիV˗4ӾVT~dɗo^2L*Ub۪7ܽ`P ,޹rP PUv* Ur׀P/߽z-PX`*~ĀUvՠ*&L2dɓ&L2dɓ&L2e&L2dɓ&LiUJ©rxx~>@E~H$x|(U( xx$B~fQf~~fE~f~|$Bq`Qf0$B0  Qf(~(E~~f~E~00  >@H$x||~q`E~(~fU( 0f0  B<((@E~H$x|(U( xx$B~fQf~~fE~f~|$Bq`Qf0$B0  Qf(~(E~~f~E~00  >@H$x||~q`E~(~fU( 0f0  B<((w U]B`$`Dtx0 Ef\ 0xfP?3J3?pj@@Zc@P1@`P`D00w>@H$q> x|0t$\H  `P(P@  < % $@ @  `0 H@0` 0T @ P0  0 `@ @`B@@ p@ `@P"6 @L7 @(0 0` 2  a }H0@8 -F@ 0(h  P  H  //   C :R ` ` 0 B .P $q@ 0@@  @ а@ &A1 O D00H @h\r@ ۂ0 @\DABl` ]=- Qy @0H@9c½ @0@@P!@T @p{e ژt"Ψ@o!F@ PE+ @ !@!Xx @dа"@@  PD @ @ 0 @@ @  @ `0 l` ځ` (@H  D`M @0 000`!` @v DA@xd0" p,@D @ @ @G A  p @\TDhpP@`@ `AlH@@@@@@b ` @  *?9 **?9 *?<:! 5* 5 !6 95 ! " '? 3? CHINOXTR.PIC&5 !6 9 ( ~H$x|ߵVګ~Uo߿j߿jdɓ&L2dɓ&L2dɳϟ>|ϟ:dɓ&L2/߫~իմU>|ϟ>|BPaÇ8pÇ8pÇ8pÇ8pÇ 4XAVЮ,*"~Qzh|U WXN]UרZ4޵8ϟ>l֕JoH^ETvʵṉv QVеh_'XUk,%VЈXI ayBC RFHaU/ڔ^EH58pÇ;J[sZ^"*շzEZH:|Z˶XTB qVоaU* ɓ&L2dɓ&L2dɓ&L2dɓ&L2dɓ&ZU4rxx~>@E~H$x|(U( xx$B~fQf~~fE~f~|$Bq`Qf0$B0  Qf(~(E~~f~E~00  >@H$x||~q`E~(~fU( 0f0  B<(( PL@`|p(T PpăEDA` &IDh`AW(0P p10@ Oc0 p8 @ @ ` 0  `AQ>(@   pog8@ 0Aȁ|p \ ' (@ 0`x.`@8D@9`0p  8``@@`H00A`00`  00bT  `@   F ``60`"D$(( > @` `@@ " D  ,0\ `@ƀ` @ j   `E 0  %0`2| z@@Te@@@ 0 80`P@@6c 0I`01Qq  V :`0  @@@Ѐ@"V<`\À D(B T` 0 0`I@ @D8lP`U )0`M@` 900T``0W o ? @0@ @ c6>@ @@  `0@Y% `@\PZ"@`00` @ `H  M@` E0` R  @@@@@F@` D N   ,Cv @@@ HHP;|ϙ3Vڿ~wϟ>|ϾUaÇ8pÇ8pÇ8pÇ8pÇNiT/KJB" Z+V@Sڜ֠דj޿UNJߙ2dɅI*װ["%KW*ՙRTD*j/T @ i*VЯiTv*84i״n{KߵiU8pÏ2dʵfDn-_rݩjߩbҨ$ EJ n@/V*h@,2dɓ&L2dɓ&L2dɓ&L2dɓ&L2dɖPxx~>@E~H$x|(U( xx$B~fQf~~fE~f~|$Bq`Qf0$B0  Qf(~(E~~f~E~00  >@H$x||~q`E~(~fU( 0f0  B<((0  pe@(,>H&18,12 ` 3`S  8 CH0>{@@: q8pJi|Ct?P` ~p `P~#UԈ($F`? 0P  @`0" 0`d  @$ `@0A`6 H` @ 耞 `P``x4 `@@`E0  0 0`0 `A` 0)`^ 0X! ` 0@@T  ʀ@@@@ = pHe `@@@@ K `  @ 1J `80:0 0`P`0s  pT0`H@z0I``$0 Tʐ  @@p@  `@@`8 00d0 `x |` `Ҁ`0J  0` 8j 0L`c0`6 !@@ $   p 0 `T6a_b< `HB$$'@@@@@@  f`0  @3 8'@` E0  %0` a0`r@@MY  0 !@@ `0`Ȁ@e$@ 0 `"W"B 0@ EV @9! ; !FELDRICH.PAC("~ C8p@2e&L&L`> q   0(Q >0BOX.PAC`(z@&L2dɓ&L2dɓ&L0@Ç8pÇ8pÇL*@@X X` ,`T, P*@@X X` ,`T, P*@@X8pÇ8pÇ8p``@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@``pl01syp2@ 8sHIDEM OPTION BASE 0 GOSUB datenordner CLR bitmuster$ FOR i=1 TO 37 READ zeilenmuster bitmuster$=bitmuster$+MKI$(zeilenmuster) NEXT i DEFMOUSE bitmuster$ DATA 7,7,1,0,1 ' MASKENMUSTER DATA &X0000001000000000 DATA &X0000011100000000 DATA &X0000111110000000 DATA &X0000111110000000 DATA &X0001111111000000 DATA &X0001111111000000 DATA &X0011111111000000 DATA &X1111101111000111 DATA &X1111001111011111 DATA &X0000001111111100 DATA &X0000001111111000 DATA &X0000001111111000 DATA &X0000000111110000 DATA &X0000000111110000 DATA &X0000000011100000 DATA &X0000000001000000 ' CURSOR MUSTER ' 1234567890123456 DATA &X0000000000000000 DATA &X0000001000000000 DATA &X0000011100000000 DATA &X0000011100000000 DATA &X0000110110000000 DATA &X0000110110000000 DATA &X0001100110000000 DATA &X0111000110000110 DATA &X0110000110001110 DATA &X0000000110011000 DATA &X0000000110110000 DATA &X0000000110110000 DATA &X0000000011100000 DATA &X0000000011100000 DATA &X0000000001000000 DATA &X0000000000000000 esrordner: CHDIR "\ESR" IF EXIST("SYSIPHUS.PIC") bild_da!=TRUE OPEN "I",#1,"SYSIPHUS.PIC" BLOAD "SYSIPHUS.PIC",XBIOS(2) CLOSE #1 ELSE ALERT 1," | WER HAT DENN DA | SCHON WIEDER KOPIERT ? ",1,"DAS WARS | WEITER",looser% IF looser%=1 END ELSE CHDIR "\" IF EXIST("SYSIPHUS.PIC") NAME "SYSIPHUS.PIC" AS "\ESR\SYSIPHUS.PIC" bild_da!=TRUE GOTO esrordner ENDIF ENDIF ENDIF IF bild_da!=TRUE DO IF MOUSEK>0 maus=1 ENDIF IF INKEY$>"" maus=1 ENDIF EXIT IF maus=1 LOOP ENDIF ' ' ********************************************************************** ' ****************** SYSIPHUS 1.2 *********************** ' ****************** ESR-SIMULATIONSPROGRAMM *********************** ' ****************** MIT VIEL MHE GESCHRIEBEN *********************** ' ****************** VON Dr. GREGOR KRAFT *********************** ' ****************** ANNO DOMINI 1989 *********************** ' ********************************************************************** SHOWM ON BREAK GOSUB ende ' CHDIR "\DATEN\" ' OPENW 0 ! Pull down - Menue erstellen DIM eintrag$(55) DO READ eintrag$(i%) EXIT IF eintrag$(i%)="****" INC i% LOOP ' DATA SYSIPHUS, INFO,------------------------,1,2,3,4,5,6,"" DATA DATEI,LADEN,SPEICHERN,LOESCHEN,"" DATA PARAMETER,ATOMGRUPPEN,KERNPARAMETER,SPEKTRUMPARAMETER,"" DATA SPEKTRUM,SIMULATION,STICKLINE,HLLKURVE,"" DATA OPTIONEN,FILENAME,ANDERE SWEEPWIDTH,AUSSCHNITT,STUPID,FORMATIEREN,VERGRERN,g-WERT,"" DATA BILDER,SCREENCOPY,HARDCOPY,PLOTTER,SIGNUM,"" DATA ARBEIT,ANSCHAUEN,AUFSCHREIBEN,SPEKBEREICH,VERGLEICH,DIFFERENZ,"" DATA INPUT,ESP300,MESS-SPEKTREN,"" DATA ENDE,QUIT,"","" DATA **** MENU eintrag$() ' auf=1024 ' ON MENU KEY GOSUB tasten ON MENU GOSUB auswahl ' MENU 11,3 MENU 12,3 MENU 17,2 MENU 21,2 MENU 22,2 MENU 23,2 MENU 27,2 MENU 28,2 MENU 30,3 MENU 31,2 MENU 36,2 MENU 37,2 MENU 35,2 MENU 38,2 MENU 41,2 MENU 42,2 MENU 43,2 MENU 44,2 MENU 45,2 ' ' neustart: rettung!=0 ON ERROR GOSUB fehlerbehandlung ' DO ON MENU ' GOSUB maus_abschalten GOSUB maus_einschalten LOOP ' ' PROCEDURE auswahl ! Auswahl der Menues DEFMOUSE bitmuster$ ' DEFFILL 0 PBOX 0,0,640,400 IF INSTR(eintrag$(MENU(0)),"INFO") GOSUB information ENDIF ' IF INSTR(eintrag$(MENU(0)),"ATOMGRUPPEN") GOSUB atom ENDIF ' ' ' IF INSTR(eintrag$(MENU(0)),"KERNPARAMETER") GOSUB eingabe ENDIF ' IF INSTR(eintrag$(MENU(0)),"SPEKTRUMPARAMETER") GOSUB spektrenparameter ENDIF ' IF INSTR(eintrag$(MENU(0)),"SIMULATION") GOSUB hyper ENDIF ' IF INSTR(eintrag$(MENU(0)),"STICKLINE") GOSUB bild ENDIF ' IF INSTR(eintrag$(MENU(0)),"ANDERE SWEEPWIDTH") GOSUB messbereich ENDIF ' IF INSTR(eintrag$(MENU(0)),"HLLKURVE") GOSUB linienform ENDIF ' IF INSTR(eintrag$(MENU(o)),"QUIT") GOSUB ende ENDIF ' IF INSTR(eintrag$(MENU(0)),"LADEN") GOSUB lese ENDIF ' IF INSTR(eintrag$(MENU(0)),"SPEICHERN") GOSUB schreibe ENDIF ' IF INSTR(eintrag$(MENU(0)),"LOESCHEN") GOSUB loesche ENDIF ' IF INSTR(eintrag$(MENU(0)),"FILENAME") GOSUB namensgebung ENDIF ' IF INSTR(eintrag$(MENU(0)),"AUSSCHNITT") GOSUB bereich ENDIF ' IF INSTR(eintrag$(MENU(0)),"STUPID") GOSUB robot ENDIF ' IF INSTR(eintrag$(MENU(0)),"FORMATIEREN") GOSUB format ENDIF ' IF INSTR(eintrag$(MENU(0)),"HARDCOPY") GOSUB hardcopy ENDIF ' IF INSTR(eintrag$(MENU(0)),"VERGRERN") GOSUB aufblasen ENDIF ' IF INSTR(eintrag$(MENU(0)),"PLOTTER") GOSUB hp7475a ENDIF ' IF INSTR(eintrag$(MENU(0)),"g-WERT") GOSUB gwert ENDIF ' IF INSTR(eintrag$(MENU(0)),"SCREENCOPY") GOSUB pixel ENDIF ' IF INSTR(eintrag$(MENU(0)),"SIGNUM") GOSUB sichnum ENDIF ' IF INSTR(eintrag$(MENU(0)),"ANSCHAUEN") GOSUB espspektrum ENDIF ' IF INSTR(eintrag$(MENU(0)),"AUFSCHREIBEN") GOSUB messchreiben ENDIF ' IF INSTR(eintrag$(MENU(0)),"SPEKBEREICH") GOSUB spekmessbereich ENDIF ' IF INSTR(eintrag$(MENU(0)),"VERGLEICH") GOSUB simmess ENDIF ' IF INSTR(eintrag$(MENU(0)),"DIFFERENZ") GOSUB differenz ENDIF ' IF INSTR(eintrag$(MENU(0)),"ESP300") GOSUB esp300 ENDIF ' IF INSTR(eintrag$(MENU(0)),"MESS-SPEKTREN") GOSUB messlese ENDIF ' ' MENU OFF RETURN ' ' PROCEDURE maus_abschalten DPOKE GINTIN,3 GEMSYS 107 maus_ist_aus!=TRUE RETURN ' PROCEDURE maus_einschalten DPOKE GINTIN,2 GEMSYS 107 maus_ist_aus!=FALSE RETURN ' PROCEDURE ende IF maus_ist_aus!=TRUE GOSUB maus_einschalten ENDIF ALERT 2," | PROGRAMM WIRKLICH | BEENDEN ? ",1," S'LANGT | OH GOTT!",anfra% IF anfra%=2 GOTO heschel ENDIF MENU KILL END heschel: RETURN ' PROCEDURE information MENU OFF LOCAL maus% BOX 100,50,540,350 BOX 105,55,535,345 DEFTEXT 1,17,0,16 TEXT 150,80,340,"PROVINZ-SOFT PRESENT" DEFTEXT 1,11,0,24 TEXT 180,120,280,"SYSIPHUS 1.2" DEFTEXT 1,0,0,13 TEXT 150,160,340," EIN BRAUCHBARES ESR-SIMULATIONSPROGRAMM " TEXT 150,180,340," FR EINEN BRAUCHBAREN COMPUTER " TEXT 150,200,340," GESCHRIEBEN IN GFA-BASIC " DEFTEXT 1,16,0,13 TEXT 150,220,340," ANNO DOMINI 1989 " DEFTEXT 1,0,0,13 TEXT 150,240,340," VON DR.GREGOR KRAFT; JAHNSTR.2,6701 MAXDORF " TEXT 150,260,340,"DIESES PROGRAMM IST FREEWARE UND DARF FREI" TEXT 150,280,340,"KOPIERT WERDEN ! MGE ES VON NUTZEN SEIN !" BOX 250,290,390,320 TEXT 270,310,100," SO ISSES " DO IF MOUSEX>250 AND MOUSEX<390 AND MOUSEY>290 AND MOUSEY<320 AND MOUSEK=1 maus%=1 ENDIF IF INKEY$=CHR$(13) maus%=1 ENDIF EXIT IF maus%=1 LOOP CLS ' ******************************************************************** BOX 100,50,540,350 BOX 105,55,535,345 DEFTEXT 1,8,0,13 TEXT 150,80,340,"UNTERSAGT IST DIE GEWERBLICHE NUTZUNG !!" TEXT 150,120,340," AUSDRCKLICH UNTERSAGT IST DIE NUTZUNG " TEXT 150,140,340,"DES PROGRAMMS DURCH DIE FIRMA BRUKER GMBH" DEFTEXT 1,0,0,13 TEXT 150,160,340,"VERNDERUNGEN AN DIESEM PROGRAMM BEDRFEN" TEXT 150,180,340," MEINER AUSDRCKLICHEN GENEHMIGUNG " TEXT 150,220,340," DIE WEITERGABE DIESES PROGRAMMS IST NUR MIT" TEXT 150,240,340," DEN DATEIEN SYSIPHUS.TXT UND SYSIPHUS.SDO " TEXT 150,260,340," GESTATTET (UND AUCH SINNVOLL) " BOX 250,290,390,320 TEXT 270,310,100," NA KLAR " maus%=0 DO IF MOUSEX>250 AND MOUSEX<390 AND MOUSEY>290 AND MOUSEY<320 AND MOUSEK=1 maus%=1 ENDIF IF INKEY$=CHR$(13) maus%=1 ENDIF EXIT IF maus%=1 LOOP CLS RETURN ' ' PROCEDURE messbereich ! Eingabe der Sweep-Width (wenn andere MENU OFF LOCAL s,maus% DEFTEXT 1,0,0,13 ! sweep-width im Prog.-ablauf gewnscht PRINT AT(20,10);"SWEEP-WIDTH :___________|____________" !wird PRINT AT(35,10);sweep BOX 250,300,350,330 PRINT AT(36,20);"OK?" BOX 250,143,450,160 DO IF ((250MOUSEX) AND (143MOUSEY) AND MOUSEK=1) maus%=1 ENDIF IF ((250MOUSEX) AND (300MOUSEY) AND MOUSEK=1) maus%=2 ENDIF EXIT IF maus%<>0 LOOP IF maus%=1 PRINT AT(47,10); INPUT s sweep=ABS(s) PRINT AT(35,10);sweep ENDIF CLS IF spektrum!=TRUE GOSUB bild ELSE GOSUB zeichnung ENDIF RETURN ' PROCEDURE spektrenparameter ! Eingabe der Auflsung, MENU OFF BOX 40,20,600,360 ! der Halbwerstbreite und DEFFILL 1,1 ! der Sweep-Width PBOX 250,60,350,90 PBOX 250,300,350,330 LOCAL sw$,halbwert$,sw1,auf1,halbwertsbreite,maus%,button%,bu%,butt% auf1=auf sw1=sw halbwertsbreite=halbwert GRAPHMODE 2 DEFTEXT 0,0,0,13 TEXT 180,50,250,"AUFLSUNG" TEXT 270,320,60,"OK?" GRAPHMODE 1 DEFTEXT 1,0,0,13 BOX 60,125,160,155 TEXT 70,145,80,"1024" BOX 204,125,304,155 TEXT 214,145,80,"2048" BOX 344,125,444,155 TEXT 355,145,80,"4096" BOX 490,125,590,155 TEXT 500,145,80,"8192" PRINT AT(36,5);auf1 BOX 265,207,455,227 BOX 265,237,455,258 PRINT AT(10,13);"SIMULATIONS" PRINT AT(10,14);"SWEEP-WIDTH IN GAU :___________|___________" PRINT AT(10,16);"HALBWERTSBREITE IN GAU :___________|___________" PRINT AT(37,14);sw1 PRINT AT(37,16);halbwertsbreite mehr: maus%=0 DO IF ((265MOUSEX) AND (207MOUSEY) AND MOUSEK=1) maus%=3 ENDIF IF ((265MOUSEX) AND (237MOUSEY) AND MOUSEK=1) maus%=4 ENDIF IF INKEY$=CHR$(13) maus%=2 ENDIF IF ((250MOUSEX) AND (300MOUSEY) AND MOUSEK=1) maus%=2 ENDIF IF ((60MOUSEX) AND (125MOUSEY) AND MOUSEK=1) maus%=1 auf=1024 ENDIF IF ((204MOUSEX) AND (125MOUSEY) AND MOUSEK=1) maus%=1 auf=2048 ENDIF IF ((344MOUSEX) AND (125MOUSEY) AND MOUSEK=1) maus%=1 auf=4096 ENDIF IF ((490MOUSEX) AND (125MOUSEY) AND MOUSEK=1) maus%=1 auf=8192 ENDIF EXIT IF maus%>0 LOOP IF maus%=1 IF auf1<>auf IF (simgauss%+simlorentz%+simgauss_lorentz%)>0 ALERT 3," NDERUNG DER AUFLSUNG | BEDINGT DAS LSCHEN DER | SIMULIERTEN GAU- UND | LORENTZKURVE ",1," ABBRUCH | WEITER ",button% IF button%=2 auf1=auf simgauss%=0 simlorentz%=0 simgauss_lorentz%=0 ERASE huelk%() MENU 27,2 MENU 28,2 ELSE auf=auf1 ENDIF ELSE auf1=auf ENDIF ENDIF PRINT AT(36,5);auf1 GOTO mehr ENDIF IF maus%=3 PRINT AT(48,14); FORM INPUT 7,sw$ sw=ABS(VAL(sw$)) IF sw1<>sw IF (simgauss%+simlorentz%+simgauss_lorentz%)>0 ALERT 3," NDERUNG DER SWEEP-WIDTH | BEDINGT DAS LSCHEN DER | SIMULIERTEN GAU- UND | LORENTZKURVE ",1," ABBRUCH | WEITER ",butt% IF butt%=2 sw1=sw ERASE huelk%() simgauss%=0 simlorentz%=0 simgauss_lorentz%=0 MENU 27,2 MENU 28,2 MENU 31,2 MENU 36,2 MENU 37,2 MENU 38,2 MENU 44,2 ELSE sw=sw1 ENDIF ELSE sw1=sw sweep=sw ENDIF ENDIF PRINT AT(37,14);"_________"; PRINT AT(37,14);sw1; GOTO mehr ENDIF IF maus%=4 PRINT AT(48,16); FORM INPUT 7,halbwert$ halbwert=ABS(VAL(halbwert$)) IF halbwertsbreite<>halbwert IF (simgauss%+simlorentz%+simgauss_lorentz%)>0 ALERT 3," NDERUNG DES HALBWERTSBREITE | BEDINGT DAS LSCHEN DER | SIMULIERTEN GAU- UND | LORENTZKURVE ",1," ABBRUCH | WEITER ",bu% IF bu%=2 halbwertsbreite=halbwert ERASE huelk%() simgauss%=0 simlorentz%=0 simgauss_lorentz%=0 MENU 28,2 MENU 27,2 MENU 31,2 MENU 36,2 MENU 37,2 MENU 38,2 MENU 44,2 ELSE halbwert=halbwertsbreite ENDIF ELSE halbwertsbreite=halbwert ENDIF ENDIF PRINT AT(37,16);"_________"; PRINT AT(37,16);halbwert GOTO mehr ENDIF CLS RETURN ' PROCEDURE tasten !Tastenbelegung LOCAL scancode% scancode%=SHR(MENU(14),8) asc%=ASC(t$) IF scancode%=68 GOSUB ende ENDIF IF scancode%=67 GOSUB rausch ENDIF IF scancode%=60 GOSUB laufwerk ENDIF RETURN ' ' ' ' ************************************************************************* ' PROCEDURE atom !Eingabe der Zahl der Unabhngigen Atomgruppen MENU OFF LOCAL maus,nik$,nikaerst%,button% eingabe: maus=0 nikaerst%=nika% BOX 80,200,280,230 BOX 320,200,520,230 DEFTEXT 1,9,0,16 TEXT 85,223,180,"EINGABE OK?" TEXT 325,223,180,"NDERN?" DEFTEXT 1,0,0,13 PRINT AT(20,10);"UNABHNGIGE ATOMGRUPPEN:_____|___";"" PRINT AT(47,10);nika% IF nika%=0 GOTO hinein ENDIF DO IF INKEY$=CHR$(13) maus=1 ENDIF IF ((85MOUSEX) AND (205MOUSEY)) AND MOUSEK=1 maus=1 ENDIF IF ((325MOUSEX) AND (205MOUSEY)) AND MOUSEK=1 maus=2 ENDIF EXIT IF maus>0 LOOP IF maus=1 GOTO atomende ENDIF hinein: PRINT AT(50,10); FORM INPUT 2,nik$ PRINT AT(43,10);":__________" PRINT AT(47,10);nika% nika%=FIX(ABS(VAL(nik$))) PRINT AT(47,10);nika% IF nika%=0 GOTO eingabe ENDIF IF nikaerst%>0 IF nikaerst%<>nika% ALERT 3," NDERN DER ZAHL DER | UNABHNGIGEN ATOMGRUPPEN | BEDINGT DAS LSCHEN DER | SIMULIERTEN SPEKTREN ",1,"ABBRUCH | WEITER ",button% IF button%=1 nika%=nikaerst% GOTO eingabe ENDIF ERASE ag1() ERASE ag() ERASE at$() ERASE hy() ERASE intensi() ERASE huelk%() simgauss%=0 simlorentz%=0 simgauss_lorentz%=0 simstick%=0 MENU 21,2 MENU 22,2 MENU 23,2 MENU 27,2 MENU 28,2 MENU 31,2 MENU 36,2 MENU 37,2 MENU 38,2 MENU 44,2 ELSE GOTO eingabe ENDIF ENDIF nikaerst%=nika% DIM ag(nika%,2) DIM at$(nika%,2) DIM ag1(nika%,2) GOTO eingabe atomende: CLS MENU 17,3 RETURN ' ' ************************************************************************** ' PROCEDURE eingabe ! Eingabe der Kernparameter; Spin,Anzahl und Kopplungs- MENU OFF DEFFILL 1,1 ! konstante LOCAL k%,maus,but%,butt%,j% PBOX 25,330,450,360 PBOX 200,100,250,120 GRAPHMODE 2 DEFTEXT 0,1,0,13 TEXT 50,350,350,"ZUM NDERN DER DATEN: RECHTE MAUSTASTE !" TEXT 205,115,50," OK ? " GRAPHMODE 1 BOX 25,20,450,360 FOR k%=1 TO nika% ein: maus=0 DEFTEXT 1,20,0,10, TEXT 50,300,400,"Eingabe in Ordnung?" DEFTEXT 1,0,0,6 BOX 127,307,190,327 TEXT 50,320,380,"weiter mit return! korrektur mit beliebiger Taste" BOX 70,100,100,120 BOX 350,100,380,120 TEXT 80,112,15,"<=" TEXT 360,112,15,"=>" DEFTEXT 1,16,0,13 TEXT 100,50,300,"K E R N P A R A M E T E R" DEFTEXT 1,0,0,13 PRINT AT(10,5);"Atomgruppe ";k%;" von ";nika%;" unabhngigen Atomgruppen" PRINT AT(10,10);"spin....................:__________" PRINT AT(36,10);ag(k%,0) PRINT AT(10,12);"Anzahl der quivalenten" PRINT AT(10,13);"Atome dieser Gruppe......:__________" PRINT AT(36,13);ag(k%,1) PRINT AT(10,16);"Kopplungskonstante......:__________" PRINT AT(36,16);ag(k%,2) ' IF (ag(k%,0)=0 OR ag(k%,1)=0 OR ag(k%,2)=0) GOTO ein1 ENDIF ' DO IF ((127MOUSEX) AND (310MOUSEY) AND MOUSEK=1) maus=1 ENDIF IF (INKEY$<>"") OR MOUSEK=2 maus=2 ENDIF IF ((75MOUSEX) AND (100MOUSEY) AND MOUSEK=1) maus=3 ENDIF IF ((355MOUSEX) AND (100MOUSEY) AND MOUSEK=1) maus=4 ENDIF IF ((200MOUSEX) AND (100MOUSEY) AND MOUSEK=1) maus=5 ENDIF EXIT IF maus<>0 LOOP IF maus=1 GOTO naexte ENDIF ' IF maus=3 k%=k%-2 IF k%<0 k%=nika%-1 ENDIF GOTO naexte ENDIF IF maus=4 IF k%=nika% k%=0 ENDIF GOTO naexte ENDIF IF maus=5 k%=nika% GOTO naexte ENDIF ein1: ' MENU 21,3 PRINT AT(35,10);"?" PRINT AT(36,10); FORM INPUT 10 AS at$(k%,0) PRINT AT(35,10);" " ag1(k%,0)=VAL(at$(k%,0)) PRINT AT(35,13);"?" PRINT AT(36,13); FORM INPUT 10 AS at$(k%,1) PRINT AT(35,13);" " ag1(k%,1)=FIX(ABS(VAL(at$(k%,1)))) PRINT AT(35,16);"?" PRINT AT(36,16); FORM INPUT 10 AS at$(k%,2) PRINT AT(35,16);" " ag1(k%,2)=ABS(VAL(at$(k%,2))) i_np=INP(2) IF i_np<>13 GOTO ein1 ENDIF ' ' *************************** Abfrage ob die Eingegebenen Daten IF ag1(k%,0)=0 OR ag1(k%,1)=0 OR ag1(k%,2)=0 ! mit der Programmsyntax GOTO ein1 ! vertrglich sind ENDIF ' IF ag1(k%,0)<>1 AND ag1(k%,0)<>0.5 IF FRAC(2*ag1(k%,0))<>0 ALERT 1," DEN ' SPINNERTEN' SPINN | KENNEN MER NET ! ",1," ZURCK | WEITER ",butt% IF butt%<>1 ALERT 3," ORGANIKER ?? ",1," ZURCK ",button% GOTO ein1 ENDIF GOTO ein1 ENDIF ENDIF ' ' *********************************************************************** ' IF ag(k%,0)<>0 OR ag(k%,1)<>0 OR ag(k%,2)<>0 IF ag1(k%,0)<>ag(k%,0) OR ag1(k%,1)<>ag(k%,1) OR ag1(k%,2)<>ag(k%,2) ALERT 1," NDERN DER PARAMETER | HAT DAS LSCHEN DER | SIMULIERTEN SPEKTREN | ZURFOLGE !",1,"ABBRUCH | WEITER ",but% IF but%=2 FOR j%=0 TO 2 ag(k%,j%)=ag1(k%,j%) at$(k%,j%)=STR$(ag1(k%,j%)) NEXT j% ERASE hy() ERASE intensi() ERASE huelk%() simgauss%=0 simlorentz%=0 simgauss_lorentz%=0 simstick%=0 MENU 22,2 MENU 23,2 MENU 21,3 MENU 27,2 MENU 28,2 MENU 31,2 MENU 36,2 MENU 37,2 MENU 38,2 MENU 44,2 ENDIF FOR j%=0 TO 2 at$(k%,j%)=STR$(ag(k%,j%)) NEXT j% GOTO ein ENDIF ENDIF FOR j%=0 TO 2 ag(k%,j%)=ag1(k%,j%) at$(k%,j%)=STR$(ag1(k%,j%)) NEXT j% naexte: PRINT AT(36,10);" " PRINT AT(36,13);" " PRINT AT(36,16);" " NEXT k% eingabeend: CLS RETURN ' PROCEDURE hyper ! Berechnung der Linienzahl eines sim.Spektrums MENU OFF LOCAL n,k%,m,m%,i,j%,i%,g,x,z,y,x%,kleii,kleis DEFTEXT 1,0,0,13 DIM zwn(nika%) n=1 DEFTEXT 1,0,0,13 FOR k%=1 TO nika% zwn(k%)=2*ag(k%,0)*ag(k%,1)+1 PRINT "linien der Gruppe ",k%,zwn(k%) n=n*zwn(k%) NEXT k% PRINT "anzahl der Linien N=",n FOR k%=1 TO nika% IF zwn(k%)>m m=zwn(k%) ENDIF NEXT k% ' ! Zuordnung der Intensitten zu den einzelnen ' ! Kopplungen innerhalb einer Atomgruppe DIM hyp(nika%,m),int(nika%,m) ARRAYFILL hyp(),0 FOR k%=1 TO nika% d=(zwn(k%)-1)/2 FOR g=zwn(k%) DOWNTO 1 hyp(k%,g)=d*ag(k%,2) d=d-1 NEXT g GOSUB spin NEXT k% MENU 21,2 hyperfine: !Hyperfine-Aufspaltung des gesammten Spektrums incl. Intensitten DIM h(n),hy(n),intensi(n),in(n) FOR i%=1 TO n h(i%)=0 in(i%)=1 NEXT i% z=1 FOR k%=1 TO nika% x=0 FOR m=1 TO z FOR g=1 TO zwn(k%) INC x hy(x)=h(m)+hyp(k%,g) intensi(x)=in(m)*int(k%,g) NEXT g NEXT m z=z*zwn(k%) FOR x=1 TO z h(x)=hy(x) in(x)=intensi(x) NEXT x NEXT k% ' ' reduzierung: !Reduzierung der Gesamtlinienzahl auf die beobachtbaren Linien ' ' centerfield=10000 ! Da eh nicht absolut gerechnet werden kann ist center- FOR x=1 TO n ! field so gewhlt, da immer (im Normalfall) die Auf- h(x)=h(x)+centerfield ! spaltungen im positiven Bereich sind. NEXT x ARRAYFILL hy(),0 ARRAYFILL intensi(),0 m=0 FOR x=1 TO n IF h(x)=0 ELSE ADD m,1 hy(m)=h(x) intensi(m)=intensi(x) FOR y=x TO n IF hy(m)=h(y) h(y)=0 ~FRE() ADD intensi(m),in(y) ENDIF NEXT y ENDIF NEXT x b=m ' IF bintensi(m%) intmin=intensi(m%) ENDIF ENDIF EXIT IF m%=b LOOP MENU 22,3 MENU 23,3 simstick%=1 ERASE in(),zwn(),h(),hyp(),int() RETURN ' PROCEDURE bild ! Zeichnung eines Stick-Line-Spektrums MENU OFF CLS LOCAL null,fak,weite,m IF sweep=0 IF sw=0 ALERT 3," | | SWEEP-WIDTH IST 0 ! ",1," ABBRUCH ",button% GOTO bildend ENDIF sweep=sw ENDIF null=centerfield-sweep*0.5 fak=587/sweep DEFLINE 1,2,0,0 BOX 27,60,613,360 LINE 27,360,27,365 LINE 321,360,321,365 LINE 613,360,613,365 DEFTEXT 1,0,0,6 PRINT AT(3,2);"Filename: ";finame$; PRINT AT(3,80);"0.0"; PRINT AT(40,80);sweep*0.5; PRINT AT(75,80);sweep; FOR m=1 TO b weite=(hy(m)-null)*fak IF weite<0 GOTO weiter ENDIF DEFLINE 1,0,0,0 LINE 27+weite,intensi(m)*100/intmax+210,27+weite,210-intensi(m)*100/intmax weiter: NEXT m spektrum!=TRUE MENU 27,3 HIDEM SGET x1$ SHOWM MENU 35,3 MENU 36,3 IF mess!=-1 MENU 44,3 ENDIF simm!=-1 simess!=0 messplo!=0 bildend: RETURN ' PROCEDURE linienform ! Initialisierung der Hllkurvenform MENU OFF LOCAL maus%,bib%,butt%,but%,button%,prog,l% CLS simkurve%=simgauss%+simlorentz%+simgauss_lorentz% IF f_ormstupid!=TRUE GOTO simstupid ENDIF linformein: maus%=0 DEFTEXT 1,0,0,13 BOX 40,40,600,350 BOX 110,90,530,120 TEXT 120,110,200,"AKTUELLE EINSTELLUNG :" TEXT 330,110,190,kurform$ BOX 90,170,190,210 TEXT 100,197,80,"GAU" BOX 450,170,550,210 TEXT 455,197,90,"GAU/LORENTZ" BOX 270,170,370,210 TEXT 280,197,80,"LORENTZ" GRAPHMODE 2 DEFFILL 1,1 PBOX 250,300,350,330 DEFTEXT 0,0,0,13 TEXT 280,320,50,"OK?" GRAPHMODE 1 DEFTEXT 1,1,0,13 DO IF ((90MOUSEX) AND (170MOUSEY) AND MOUSEK=1) kurve%=1 maus%=1 LET kurform$="GAUKURVE" ENDIF IF ((270MOUSEX) AND (170MOUSEY) AND MOUSEK=1) maus%=2 kurve%=2 kurform$="LORENTZKURVE" prol=1 ENDIF IF ((450MOUSEX) AND (170MOUSEY) AND MOUSEK=1) maus%=3 kurve%=3 kurform$="GAU/LORENTZ-KURVE" ENDIF IF kurve%>0 IF INKEY$=CHR$(13) maus%=4 ENDIF IF ((250MOUSEX) AND (300MOUSEY) AND MOUSEK=1) maus%=4 ENDIF ENDIF EXIT IF maus%<>0 LOOP IF maus%<4 TEXT 330,110,200," " GOTO linformein ENDIF simstupid: ! berprfen ob die Berechnung mglich ist IF simkurve%=0 IF sw=0 ALERT 3," | | SWEEP-WIDTH IST 0 !",1," ABBRUCH ",butt% GOTO huellend ENDIF IF halbwert=0 ALERT 3," HALBWERTSBREITE IST NICHT | | DEFINIERT ! ",1," ABBRUCH ",butt% GOTO huellend ENDIF ppg=auf/sw bip=(hy(b)-hy(1)+halbwert*20)*ppg IF bip65000 ALERT 3," ZU VIELE FELDELEMENTE ZUR | BERECHNUNG DER HLLKURVE | VORERST NUR ... ",1," ABBRUCH ",but% GOTO huellend ENDIF simsw=bi%*sw/auf DIM einh(1,bi%) ENDIF ppg=auf/sw IF halbwert*ppg<1.8 ALERT 3," DAS WIRD SO NIX! | MAL HHERE AUFLUNG NEHMEN | BZW. KLEINERE SWEEP-WIDTH ",1," ABBRUCH ",button% ERASE einh() GOTO huellend ENDIF IF kurve%=1 IF simgauss%=1 prol=0 GOSUB zeichnung GOTO huellend ENDIF GOSUB gauss_lorentz ENDIF IF kurve%=2 IF simlorentz%=1 prol=1 GOSUB zeichnung GOTO huellend ENDIF GOSUB gauss_lorentz ENDIF IF kurve%=3 IF simgauss_lorentz%=1 ALERT 2," | NEUE KURVE BERECHNEN ? ",2," NEIN | JA ",butt% IF butt%=1 prol=proz GOSUB zeichnung GOTO huellend ENDIF ENDIF IF simgauss%=0 GOSUB gauss_lorentz ENDIF CLS IF f_ormstupid!=TRUE GOTO stupidlorentz ENDIF DEFTEXT 1,0,0,13 PRINT AT(30,12); INPUT "% Lorentz: ",prol stupidlorentz: prol=prol/100 proz=prol prog=1-prol l%=0 DO huelk%(2,l%)=huelk%(0,l%)*prog+huelk%(1,l%)*prol huelk%(2,bi%-l%)=-huelk%(2,l%) INC l% EXIT IF l%>spekha% LOOP simgauss_lorentz%=1 GOSUB zeichnung GOTO huellend ENDIF ' GOSUB zeichnung huellend: RETURN ' ' PROCEDURE gauss_lorentz ! Berechnung der Hllkurve LOCAL l%,m,max%,start%,sta,beenden%,p,bo,di,qdi,wure,bereich LOCAL wert,n%,maxgau%,maxlor%,normbereich,feldanfang,mg,ml LOCAL feld gpp=sw/auf wure=SQR(EXP(1)) normbereich=halbwert*20 bereich=hy(b)-hy(1)+normbereich spekha%=bi%/2 IF bereich>sw feldanf=centerfield-bereich/2 ELSE feldanf=centerfield-sw/2 ENDIF l%=0 m=0 max%=INT(normbereich*ppg) CLS DEFTEXT 1,0,0,13 PRINT AT(10,15);"Nur Geduld, Rom wurde auch nicht an einem" PRINT AT(10,17);"Tag erbaut.................." DO INC m sta=(hy(m)-feldanf-normbereich/2)*ppg start%=INT(sta) beenden%=start%+max% IF start%spekha% beenden%=spekha% ENDIF IF start%=2 DEC p IF (hy(p)+halbwert*10)>=feld h%=FIX(hy(p)*ppg+0.5) bo=h%*gpp di=(feld-bo)/halbwert qdi=di*di qa=(1+4*qdi/3)^2 wert=wure*di*EXP(-2*qdi) einh(0,l%)=einh(0,l%)+wert*intensi(p) einh(1,l%)=einh(1,l%)+16/9*di/qa*intensi(p) ENDIF GOTO links ENDIF NEXT l% ELSE l%=start% ENDIF EXIT IF l%>=spekha% LOOP PRINT AT(20,20);"...aber an einem Tag abgebrannt!" l%=0 DIM huelk%(2,bi%) DO huelk%(0,l%)=CINT(einh(0,l%)*1000000) IF ABS(huelk%(0,l%))>maxgau% maxgau%=ABS(huelk%(0,l%)) ENDIF huelk%(1,l%)=CINT(einh(1,l%)*1000000) IF ABS(huelk%(1,l%))>maxlor% maxlor%=ABS(huelk%(1,l%)) ENDIF INC l% EXIT IF l%>spekha% LOOP mg=1000000/maxgau% ml=1000000/maxlor% l%=0 DO huelk%(0,l%)=CINT(huelk%(0,l%)*mg) huelk%(0,bi%-l%)=-huelk%(0,l%) huelk%(1,l%)=CINT(huelk%(1,l%)*ml) huelk%(1,bi%-l%)=-huelk%(1,l%) INC l% EXIT IF l%>spekha% LOOP huelk%(0,spekha%)=0 huelk%(1,spekha%)=0 ERASE einh() simgauss%=1 simlorentz%=1 RETURN ' PROCEDURE zeichnung ! Zeichnen der Hllkurve MENU OFF CLS simess!=0 halb!=0 DEFLINE 1,1 LOCAL fa,anf IF ver=0 ver=1 ENDIF IF sweep=0 sweep=sw ENDIF amb=ROUND(0,2) mb=ROUND(sweep,2) BOX 27,60,613,360 DEFLINE 1,1,0,0 LINE 27,360,27,365 LINE 321,360,321,365 LINE 613,360,613,365 DEFTEXT 1,0,0,6 PRINT AT(3,2);"Filename: ";finame$; PRINT AT(40,2);"Auflsung: ";auf; PRINT AT(3,5);"Simulierte Sweep Width :";sw; PRINT AT(40,5);"Halbwertsbreite: ";halbwert PRINT AT(60,2);" % Lorentz: ";prol*100; PRINT AT(3,80);amb; PRINT AT(40,80);mb*0.5; PRINT AT(75,80);mb; fa=586/sweep IF sweep>=simsw fak=fa*simsw/bi% start%=CINT((sweep-simsw)/2*fa+27) anfang%=0 ende%=bi% ELSE anf=sweep/2*ppg+0.5 anfang%=spekha%-CINT(anf) ende%=spekha%+CINT(anf) fak=586/(ende%-anfang%) start%=27 ENDIF GOSUB pinsel MENU 27,3 MENU 28,3 spektrum!=FALSE huell!=TRUE MENU 35,3 MENU 36,3 MENU 37,3 MENU 31,3 MENU 38,3 IF mess!=-1 MENU 44,3 ENDIF bereichsplott!=FALSE simm!=-1 messplo!=0 zeichnungende: HIDEM SGET x1$ SHOWM DEFLINE 1,1,0,0 RETURN ' ' ' ' *********VERGREREUNG D.H. AUSSCHNITT ******************* ' PROCEDURE bereich MENU OFF LOCAL maus%,key$,x1,x2,g1,g2,gaus1,gaus2,bereich%,li%,re%,lix,rex LOCAL l% CLS simess!=0 halb!=0 DEFLINE 1,1,0,0 IF bereichsplott!=FALSE bereichshalbe%=spekha% sweepbereich=sweep GOSUB zeichnung g1=0 g2=0 ELSE GOSUB pinsel BOX 27,60,613,360 LINE 27,360,27,365 LINE 321,360,321,365 LINE 613,360,613,365 DEFTEXT 1,0,0,6 PRINT AT(3,2);"Filename: ";finame$; PRINT AT(40,2);"Auflsung: ";auf; PRINT AT(3,5);"Simulierte Sweep Width :";sw; PRINT AT(40,5);"Halbwertsbreite: ";halbwert; PRINT AT(60,2);" % Lorentz: ";prol*100; PRINT AT(3,80);amb; PRINT AT(35,80);ROUND(mb-amb,2);" GAUSS "; PRINT AT(74,80);mb; HIDEM SGET x1$ SHOWM ENDIF g1=amb g2=mb bereichanfang: p_line!=FALSE SPUT x1$ BOX 580,35,613,55 DEFTEXT 1,1,0,13 TEXT 583,50,25,"ESC" DEFTEXT 1,1,0,6 DO key$=INKEY$ IF key$=CHR$(27) maus%=3 ENDIF IF key$=CHR$(127) maus%=2 ENDIF IF MOUSEK>0 maus%=1 ENDIF IF MOUSEX>580 AND MOUSEY>35 IF MOUSEX<613 AND MOUSEY<55 AND MOUSEK>0 maus%=3 ENDIF ENDIF EXIT IF maus%>0 key$="" LOOP IF maus%=3 GOTO bereichende ENDIF IF maus%=2 bereichshalbe%=spekha% sweepbereich=sweep CLS GOSUB zeichnung g1=0 g2=0 ENDIF HIDEM SGET x1$ SHOWM DEFLINE 2,1,1,1 SETMOUSE 321,200,0 icks1: DO !Abfrage der linken Grenze SPUT x1$ x1=MOUSEX li%=MOUSEX-27 IF li%<0 li%=0 ENDIF IF li%>586 li%=586 ENDIF lix=ROUND(((mb-amb)/586*li%)+amb,2) PRINT AT(4,7);lix COLOR 1 LINE x1,60,x1,360 PAUSE 5 IF MOUSEK=1 COLOR 1 LINE x1,60,x1,360 lin=1 HIDEM SGET x1$ SHOWM ENDIF EXIT IF lin=1 LOOP IF x1<27 OR x1>613 GOTO icks1 ENDIF icks2: maus%=0 DO !Abfrage der rechten Grenze SPUT x1$ x2=MOUSEX re%=MOUSEX-27 IF re%<0 re%=0 ENDIF IF re%>586 re%=586 ENDIF rex=ROUND(((mb-amb)/586*re%)+amb,2) PRINT AT(14,7);rex; PRINT AT(24,7);ROUND(rex-lix,2); COLOR 1 LINE x2,60,x2,360 PAUSE 5 COLOR 1 IF MOUSEK=2 LINE x2,60,x2,360 lin=2 ENDIF EXIT IF lin=2 LOOP IF x1=x2 GOTO icks2 ENDIF IF x2614 GOTO icks2 ENDIF ' gaus1=((x1-27)*sweepbereich/586) gaus2=((x2-27)*sweepbereich/586) ' la%=CINT(bereichshalbe%-(sweepbereich/2-gaus1)*ppg) le%=CINT(bereichshalbe%-(sweepbereich/2-gaus2)*ppg) bereich%=le%-la% fak=586/bereich% bereichshalbe%=bereich%/2+la% sweepbereich=gaus2-gaus1 g1=gaus1+g1 g2=g1+sweepbereich halbe=(g2-g1)*0.5+g1 mb=ROUND(g2,2) amb=ROUND(g1,2) fhalbe=ROUND(halbe,2) ' CLS DEFLINE 1,1,0,0 BOX 27,60,613,360 LINE 27,360,27,365 LINE 321,360,321,365 LINE 613,360,613,365 DEFTEXT 1,0,0,6 PRINT AT(3,2);"Filename: ";finame$; PRINT AT(40,2);"Auflsung: ";auf; PRINT AT(3,5);"Simulierte Sweep Width :";sw; PRINT AT(40,5);"Halbwertsbreite: ";halbwert; PRINT AT(60,2);" % Lorentz: ";prol*100; PRINT AT(3,80);amb; PRINT AT(35,80);ROUND(mb-amb,2);" GAUSS"; PRINT AT(74,80);mb; ' IF la%>bi% p_line!=-1 ENDIF IF la%<0 OR la%=0 anfang%=0 start%=CINT(ABS(la%*fak)+27) ENDIF IF la%>0 anfang%=la% start%=27 ENDIF IF le%<0 OR le%=0 p_line!=TRUE ELSE IF le%>bi% ende%=bi% ELSE ende%=le% ENDIF ENDIF ' GOSUB pinsel HIDEM SGET x1$ SHOWM GOTO bereichanfang ' bereichende: DEFFILL 0,0 PBOX 579,34,614,56 SGET x1$ huell!=FALSE bereichsplott!=TRUE messplo!=0 DEFLINE 1,1,0,0 RETURN ' PROCEDURE pinsel hoehe=150/1000000 IF simess!=-1 DEFLINE defl%,1,0,0 ELSE DEFLINE 1,1,0,0 ENDIF IF p_line!=-1 LINE 27,210+offset%,613,210+offset% gerade!=-1 ELSE gerade!=0 DRAW 27,210+offset% DRAW TO start%,210+offset% ' FOR l%=anfang% TO ende% x%=(l%-anfang%)*fak+start% y%=210+offset%+huelk%(kurve%-1,l%)*hoehe*ver IF halb!=-1 IF y%<210 y%=210 ENDIF ENDIF IF y%>360 y%=360 ENDIF IF y%<60 y%=60 ENDIF DRAW TO x%,y% NEXT l% DRAW TO 613,210+offset% ENDIF DEFLINE 1,1,0,0 IF simess!=-1 HIDEM SGET x1$ SHOWM ENDIF RETURN ' **************EIN-UND AUSGABE BER DISKETTE ************* PROCEDURE lese ! Daten Einlesen MENU OFF ' LOCAL wahl$,bakl%,l$ l$=CHR$(GEMDOS(25)+65) FILESELECT l$+":\DATEN\*.*","",wahl$ IF wahl$="" GOTO leseende ENDIF IF EXIST(wahl$) ERASE ag() ERASE ag1() ERASE hy() ERASE at$() ERASE intensi() ERASE huelk%() DEFTEXT 1,17,0,17 TEXT 150,150,300,"BIN BEIM LESEN " VOID FRE(0) ! Wegen der Mllabfuhr! OPEN "I",#1,wahl$ WHILE NOT EOF(#1) INPUT #1,nika% INPUT #1,auf,auf1,sw,sw1,halbwertsbreite,halbwert INPUT #1,b,sweep,intmin,intmax,centerfield DIM ag(nika%,2),ag1(nika%,2),at$(nika%,2) DIM hy(b) DIM intensi(b) BGET #1,VARPTR(ag(0,0)),DIM?(ag())*8 BGET #1,VARPTR(hy(0)),DIM?(hy())*8 BGET #1,VARPTR(intensi(0)),DIM?(intensi())*8 ' INPUT #1,simgauss%,simlorentz%,simgauss_lorentz%,bi%,simstick%,spekha%,proz INPUT #1,simsw DIM huelk%(2,bi%) BGET #1,VARPTR(huelk%(0,0)),DIM?(huelk%())*4 WEND CLOSE MENU 17,3 MENU 22,3 MENU 23,3 ' +++++++++++++++++++++++++++++++++++++++++++++++++++++++ bakl%=RINSTR(wahl$,"\") finame$=MID$(wahl$,bakl%+1) ' +++++++++++++++++++++++++++++++++++++++++++++++++++++++ ' GOTO leseende ENDIF ALERT 1," DATEI IST NICHT | | VORHANDEN !",1," KLAR ? ",but% ' leseende: CLS ' RETURN ' PROCEDURE schreibe ! Daten auf Disk. schreiben MENU OFF ' LOCAL wahl$,l$ IF simkurve%=0 IF simstick%=0 GOTO schreibende ENDIF ENDIF l$=CHR$(GEMDOS(25)+65) FILESELECT l$+":\DATEN\*.*",finame$,wahl$ IF wahl$="" GOTO schreibende ENDIF IF EXIST(wahl$) ALERT 1," DATEI EXISTIERT SCHON ! | ACHTUNG ! | DIE DATEI WIRD BERSCHRIEBEN !",1," ABBRUCH | WEITER ",buton% IF buton%=1 GOTO schreibende ENDIF ENDIF DEFTEXT 1,17,0,17 TEXT 150,150,300,"BIN BEIM SCHREIBEN " VOID FRE(0) ! wegen der Mllabfuhr ! OPEN "O",#1,wahl$ WRITE #1,nika% WRITE #1,auf,auf1,sw,sw1,halbwertsbreite,halbwert WRITE #1,b,sweep,intmin,intmax,centerfield BPUT #1,VARPTR(ag(0,0)),DIM?(ag())*8 BPUT #1,VARPTR(hy(0)),DIM?(hy())*8 BPUT #1,VARPTR(intensi(0)),DIM?(intensi())*8 ' WRITE #1,simgauss%,simlorentz%,simgauss_lorentz%,bi%,simstick%,spekha%,proz WRITE #1,simsw BPUT #1,VARPTR(huelk%(0,0)),DIM?(huelk%())*4 CLOSE ' schreibende: CLS RETURN ' PROCEDURE loesche ! Der Name sagt alles LOCAL wahl$,l$,button%,but% MENU OFF l$=CHR$(GEMDOS(25)+65) FILESELECT l$+":\DATEN\*.*","",wahl$ IF wahl$="" GOTO loeschende ENDIF DEFTEXT 1,0,0,13 IF EXIST(wahl$) ALERT 3," SOLL DIE DATEI | | | WIRKLICH GELSCHT WERDEN? ",1," NEIN | JA ",button% IF button%=2 KILL wahl$ ENDIF GOTO loeschende ENDIF ALERT 1," DATEI IST NICHT | | VORHANDEN !",1," KLAR ? ",but% loeschende: RETURN ' ' ************************************************************************* PROCEDURE namensgebung ! Filename MENU OFF DEFTEXT 1,0,0,13 BOX 180,175,380,200 PRINT AT(25,12);"Filename: ________.___" PRINT AT(35,12); FORM INPUT 12 AS finame$ RETURN ' ' PROCEDURE fehlerbehandlung ! Versuch um Fehler abzufangen CLS LOCAL bott%,bottom%,butt%,fehler$ DEFTEXT 1,1,0,13 fehler$=STR$(ERR) IF ERR<101 IF ERR=37 CLOSE IF f_ormstupid!=TRUE ALERT 1," Disk hat zuwenig Speicher ! | Also nochmal Eintippen! | (Ich hab ja gewarnt!!) | Aber erstmal weiter!",1," TJAAA.. ",bott% IF bott%=1 RESUME rettung ENDIF ELSE ALERT 1," Diskette hat zu- | wenig Speicherplatz! ",1," KO? ",bottom% IF bottom%=1 RESUME neustart ENDIF ENDIF ENDIF IF ERR=22 CLOSE RESUME neustart ENDIF ALERT 2," CHZ! FEHLER "+fehler$+" | IST AUFGETRETEN | NOCH MAL PROBIEREN ? ",1," JA ! | LMAA ! ",butt% IF butt%=1 RESUME neustart ELSE CLS DEFTEXT 1,16,0,26 PRINT AT(10,20);" NA GOTT SEI DANK !" END ENDIF ENDIF RETURN ' ' ' PROCEDURE robot ! Sogenannte Autosimulationsroutine LOCAL maus%,s_stop%,korr% MENU OFF DEFTEXT 1,0,0,13 IF rettung!=-1 GOTO sichern ENDIF ' ********************************************************************************** GOSUB datenordner ' *****************************************************************************` diskfrei%=DFREE(0) ' **************************** WIRD AUSDRUCK GEWNSCHT ? *********** ALERT 2," | MIT GLEICHZEITIGEM | AUSDRUCK ? ",1," KLARO | NEEE ",dr% IF dr%=1 druck!=TRUE ALERT 2," | AUSDRUCK MIT | PARAMETER ? ",1," NA KLAR | QUATSCH ",par% IF par%=1 daten!=TRUE ELSE daten!=FALSE ENDIF ELSE druck!=FALSE ENDIF ALERT 2," | MIT GLEICHZEITIGEM | ABSPEICHERN DER | SPEKTREN ? ",2," SICHER | UNSINN",speicher% ' ******************************************************************** IF finame$="" finame$="Unfug" ENDIF DEFTEXT 1,0,0,13 BOX 180,175,380,200 PRINT AT(25,12);"Filename: ______" PRINT AT(35,12); FORM INPUT 6 AS finame$ zaehl$=finame$ CLS f_ormstupid!=TRUE simu_eingabe: laufwerk%=GEMDOS(25) IF BIOS(&H9,laufwerk%)>0 CHDIR "\" IF 0<>FSFIRST("daten",-1) !Ist Ordner Daten vorhanden? MKDIR "DATEN" ENDIF diskfrei%=DFREE(0) CHDIR "DATEN" ENDIF DEFTEXT 1,8,0,18 PRINT AT(10,5); INPUT " Anzahl der simulationen:";simu% CLS IF speicher%=1 DEFTEXT 1,1,0,13 IF diskfrei%320 AND MOUSEY<360 IF MOUSEX>100 AND MOUSEX<200 AND MOUSEK=1 maus%=1 ENDIF IF MOUSEX>450 AND MOUSEX<550 AND MOUSEK=1 maus%=2 ENDIF ENDIF EXIT IF maus%>0 LOOP IF maus%=1 CLS GOTO simu_eingabe ENDIF IF maus%=2 CLS TEXT 250,50,"Eigenes Risiko!" ENDIF ENDIF ENDIF ' ' IF speicher%=2 DEFTEXT 1,1,0,13 IF diskfrei%320 AND MOUSEY<360 IF MOUSEX>100 AND MOUSEX<200 AND MOUSEK=1 maus%=1 ENDIF IF MOUSEX>450 AND MOUSEX<550 AND MOUSEK=1 maus%=2 ENDIF ENDIF EXIT IF maus%>0 LOOP IF maus%=1 CLS GOTO simu_eingabe ENDIF IF maus%=2 CLS TEXT 200,50,200,"NICHT ZU VIEL RISIKO!" PAUSE 60 GOTO simu_eingabe ENDIF ENDIF ENDIF ' ' ' ' IF simu%=0 GOTO robotende ENDIF ERASE quark$() ERASE auswahl$() IF simstick%=1 OR simgaus%=1 ERASE hy() ERASE intensi() ERASE huelk%() ENDIF DIM quark$(simu%),auswahl$(simu%) FOR simulat%=1 TO simu% quark$(simulat%)="init"+STR$(simulat%) ' korrektur: ' DEFTEXT 1,0,0,13 PRINT AT(15,5);" DATENSATZ NUMMER : ";simulat%;" - VON - ";simu%;" - SIMULATIONEN"; ' GOSUB atom ' GOSUB eingabe ' IF simulat%=1 auf=1024 auf1=1024 sw=50 sw1=50 halbwert=0.2 halbwertsbreite=0.2 ENDIF ' GOSUB spektrenparameter ' CLS DEFTEXT 1,8,0,18 PRINT AT(14,5);"Auswahl der Hllkurvenform"; TEXT 120,180,"GAU" TEXT 240,180,"LORENTZ" TEXT 350,180,"GAU/LORENTZ" BOX 100,150,500,200 kurve%=0 DO IF MOUSEY>150 AND MOUSEY<200 IF MOUSEX<180 AND MOUSEX>100 AND MOUSEK=1 kurve%=1 prol=0 ENDIF IF MOUSEX<320 AND MOUSEX>230 AND MOUSEK=1 kurve%=2 prol=1 ENDIF IF MOUSEX<500 AND MOUSEX>350 AND MOUSEK=1 kurve%=3 ENDIF ENDIF EXIT IF kurve%>0 LOOP CLS IF kurve%=3 CLS PRINT AT(17,5);" Gau-Lorentz-Kurve"; PRINT AT(17,8);" Eingabe in Prozent"; PRINT AT(20,11); INPUT "% Lorentz= ";prol IF prol>100 prol=100 ENDIF IF prol<0 prol=0 ENDIF ENDIF CLS ' ALERT 2," | | EINGABE IN ORDNUNG ? ",1," SICHER | HH | ABBRUCH ",korr% IF korr%=2 GOTO korrektur ENDIF IF korr%=3 ALERT 2," | WIRKLICH DIE AUTO- | SIMULATION BEENDEN ? ",1," NEIN | JA DOCH ",abb% IF abb%=2 s_top%=simulat%-1 simulat%=simu% simu%=s_top% GOTO abbruch ENDIF ENDIF ' OPEN "O",#1,quark$(simulat%) WRITE #1,nika% WRITE #1,auf,auf1,sw,sw1,halbwertsbreite,halbwert FOR j%=1 TO nika% WRITE #1,ag(j%,0),ag(j%,1),ag(j%,2) NEXT j% WRITE #1,kurve%,prol CLOSE abbruch: NEXT simulat% IF simu%=0 GOTO robotende ENDIF ' sichern: FOR simulat%=1 TO simu% IF rettung!=-1 GOTO rettungs_schrieb ENDIF ERASE ag() ERASE ag1() ERASE at$() datei!=EXIST(quark$(simulat%)) IF datei!=FALSE CHDIR "\" ENDIF datei!=EXIST(quark$(simulat%)) IF datei!=FALSE CHDIR "\DATEN" ENDIF IF EXIST(quark$(simulat%))=FALSE PRINT "VERDAMMTE SCHEIE" END ENDIF OPEN "I",#1,quark$(simulat%) WHILE NOT EOF(#1) INPUT #1,nika% INPUT #1,auf,auf1,sw,sw1,halbwertsbreite,halbwert DIM ag(nika%,2),ag1(nika%,2),at$(nika%,2) FOR j%=1 TO nika% INPUT #1,ag(j%,0),ag(j%,1),ag(j%,2) NEXT j% INPUT #1,kurve%,prol WEND CLOSE ' auswahl$(simulat%)=zaehl$+STR$(simulat%) finame$=auswahl$(simulat%) ' GOSUB hyper ' GOSUB linienform ' rettungs_schrieb: IF speicher%=1 VOID FRE(0) OPEN "O",#1,auswahl$(simulat%) WRITE #1,nika% WRITE #1,auf,auf1,sw,sw1,halbwertsbreite,halbwert WRITE #1,b,sweep,intmin,intmax,centerfield BPUT #1,VARPTR(ag(0,0)),DIM?(ag())*8 BPUT #1,VARPTR(hy(0)),DIM?(hy())*8 BPUT #1,VARPTR(intensi(0)),DIM?(intensi())*8 WRITE #1,simgauss%,simlorentz%,simgauss_lorentz%,bi%,simstick%,spekha%,proz WRITE #1,simsw BPUT #1,VARPTR(huelk%(0,0)),DIM?(huelk%())*4 CLOSE ENDIF IF EXIST(quark$(simulat%)) KILL quark$(simulat%) ENDIF ' IF druck!=TRUE ! ABFRAGE OB AUSDRUCK GEWNSCHT WIRD IF OUT?(0)=FALSE ! IST DRUCKER EINGESCHALTET ? ALERT 3," DRUCKER IST NICHT | EINGESCHALTET ! | EINSCHALTEN ODER OHNE | AUSDRUCK LEBEN ",1," IST EIN | OHNE ",frag% IF frag%=2 druck!=FALSE GOTO druck_ende ENDIF ENDIF IF daten!=TRUE GOSUB datendruck ENDIF GOSUB hardcopy druck_ende: ENDIF ' ' IF simulat%0 DIM datensatz(50,anzahl%) ARRAYFILL datensatz(),-1 simret%=0 FOR i=1 TO anzahl% k%=0 INC simulat% INC simret% OPEN "i",#1,quark$(simulat%) WHILE NOT EOF(#1) INC k% INPUT #1,datensatz(k%,simret%) WEND CLOSE KILL quark$(simulat%) ! Lschen des Startdaten -files NEXT i ENDIF ALERT 1," DIESER FILE KANN | GERETTET WERDEN! | DAZU NEUE DISK EINLEGEN | UND WEITERMACHEN !",1," WEITER | ACHWAS ",was% IF was%=2 GOTO neustart ENDIF was_soll_das: ALERT 2," | NEUE DISKETTE | EINGELEGT ?",1," NA KLAR ",d% IF BIOS(&H9,laufwerk%)=0 GOTO was_soll_das ENDIF ALERT 2," | DISKETTE FORMATIEREN ?| ",2," JA | NEIN ",f% IF f%=1 GOSUB format CHDIR "\" MKDIR "DATEN" ENDIF GOSUB datenordner ' IF anzahl%>0 ! Start Datensatz auf neue Diskette schreiben simulat%=simu%-anzahl% FOR simret%=1 TO anzahl% INC simulat% OPEN "O",#1,quark$(simulat%) k%=1 WHILE NOT datensatz(k%,simret%)=-1 WRITE #1,datensatz(k%,simret%) INC k% WEND CLOSE NEXT simret% ENDIF ' GOSUB robot ! Weiter gehts GOTO neustart ' ' ' PROCEDURE format MENU OFF ' ALERT 3," | SICHER, DA DIESE | DISKETTE FORMATIERT | WERDEN SOLL ?",1," JA | ABBRUCH ",format% IF format%=2 GOTO schluss ENDIF ' puffer$=SPACE$(10000) ! PUFFER EINRICHTEN wort=VARPTR(puffer$) ' ' *********** EINGABE DER PARAMETER ******************** ' initialisierung: ALERT 2,"Anzahl der Tracks ?",2,"80|81|82",track% IF track%=2 THEN anz_track%=81 ENDIF IF track%=1 THEN anz_track%=80 ENDIF IF track%=3 anz_track%=82 ENDIF ' ALERT 2,"Sektoren pro Track ?",1,"9|10|ABBRUCH",track% IF track%=2 THEN s.t=10 ENDIF IF track%=1 s.t=9 ENDIF IF track%=3 GOTO schluss ENDIF ' ALERT 2,"Wie viele Seiten| formatieren ?",2,"Eine|Zwei|Keine",seiten IF seiten=3 GOTO schluss ENDIF ' ' *********** GRUNDPARAMETER SETZEN ***************** ' wert=&HE5E5 konst=&H87654321 r.folge=1 side=0 drive=0 ' CLS DEFTEXT 1,0,0,26, ' ' **** TRACK 1 SEITE 1 UND TRACK 1 SEITE 2 (NUR DOPPELS.) FORMAT **** ' a=XBIOS(10,L:wort,L:0,drive,s.t,0,0,r.folge,L:konst,0) GOSUB auswertung IF seiten=2 a=XBIOS(10,L:wort,L:0,drive,s.t,0,1,r.folge,L:konst,0) GOSUB auswertung ENDIF ' ' ********* ALLE BRIGEN TRACKS FORMATIEREN ****************** ' FOR track%=1 TO anz_track%-1 ' seite_1_oder_seite_2_format: a=XBIOS(10,L:wort,L:0,drive,s.t,track%,side,r.folge,L:konst,wert) GOSUB auswertung IF seiten=2 side=side XOR 1 ! AUF ANDERE SEITE UMSCHALTEN IF side=1 GOTO seite_1_oder_seite_2_format ENDIF ENDIF NEXT track% ' ' ********* BOOTSEKTOR ERSTELLEN ***************** ' a=XBIOS(18,L:wort,L:0,seiten+1,0) ' anz_sektoren%=anz_track%*s.t*seiten hi_byte%=anz_sektoren%/256 low_byte%=anz_sektoren%-hi_byte%*256 ' POKE wort+19,low_byte% ! GESAMMTANZAHL DER SEKTOREN DER DISK EINTRAGEN POKE wort+20,hi_byte% ' IF seiten=1 POKE wort+21,&HF8 ! EINSEITIGE DISK ELSE POKE wort+21,&HF9 ! DOPPELSEITIGE DISK ENDIF ' POKE wort+24,s.t ! SEKTOREN PRO TRACK EINTRAGEN POKE wort+25,0 ' ' **************** BOOTSEKTOR SCHREIBEN ************* ' a=XBIOS(9,L:wort,L:0,drive,1,0,0,1) ' ' *************** GRUNDEINTRGE DER FAT ERSTELLEN ************ ' LPOKE wort,&HF7FFFF00 FOR i=3 TO 511 POKE wort+i,0 NEXT i ' ' ******* 1.FAT BEI EIN- UND ZWEISEITIGER DISK SCHREIBEN ******** ' anf_sek%=2 anz_sek%=1 track%=0 a=XBIOS(9,L:wort,L:0,drive,anf_sek%,track%,side,anz_sek%) ' ' ********* 2. FAT BEI EIN-UND ZWEISEITIGER DISK SCHREIBEN ****** ' anf_sek%=7 a=XBIOS(9,L:wort,L:0,drive,anf_sek%,track%,side,anz_sek%) ' schluss: RETURN ' *************** FEHLERAUSWERTUNG *********************** ' PROCEDURE auswertung IF a=0 x%=CINT(3600/anz_track%) w%=x%*track% IF track%=anz_track%-1 w%=3600 ENDIF IF seiten=2 DEFFILL 1,2,9 PCIRCLE 320,200,150,0,w% DEFFILL 1,2,19 PCIRCLE 320,200,75,0,w% ELSE DEFFILL 1,2,1 PCIRCLE 320,200,150,0,w% ENDIF ELSE alarm$="FEHLER AUF| |SEITE "+STR$(side)+" TRACK "+STR$(track%) ALERT 1,alarm$,1," ABBRUCH | WEITER ",e% IF e%=1 RESUME neustart ENDIF ENDIF RETURN ' PROCEDURE hardcopy ! Der Name sagt auch schon alles LOCAL i%,l%,spek$ IF OUT?(0)=FALSE ! bliche berprfungen ALERT 3," | DRUCKER BITTE | EINSCHALTEN ! ",1," JA JA | MOG NET ",soso% IF soso%=2 GOTO copy_ende ENDIF ENDIF IF OUT?(0)=FALSE DEFTEXT 1,1,0,13 PRINT AT(30,10);" WITZBOLD !!" PAUSE 30 GOTO copy_ende ENDIF IF f_ormstupid!=FALSE ALERT 2," | AUSDRUCK MIT | PARAMETER ? ",1," NA KLAR | QUATSCH ",par% IF par%=1 GOSUB datendruck ENDIF ENDIF DEFTEXT 1,17,0,17 TEXT 150,150,300,"BIN BEIM DRUCKEN " MENU OFF ! Hardcopyrutine LPRINT CHR$(27);CHR$(108);CHR$(5); ! linker Rand LPRINT CHR$(27);CHR$(65);CHR$(8); ! Zeilenvorschub auf 8/60 Zoll FOR i%=1 TO 80 spek$="" FOR l%=399 TO 0 STEP -1 spek$=spek$+MID$(x1$,(l%*80)+i%,1) NEXT l% LPRINT CHR$(27);"*";CHR$(0);CHR$(144);CHR$(1);spek$ NEXT i% LPRINT CHR$(13); LPRINT CHR$(12); ! Nchste Seite LPRINT CHR$(27);CHR$(64); ! DRUCKER RESET ' DO EXIT IF OUT?(0)=TRUE LOOP ' ' copy_ende: CLS RETURN ' PROCEDURE datendruck ! Ausdruck der Startdatenstze MENU OFF IF messplo!=-1 DEFTEXT 1,17,0,17 TEXT 50,100,500,"DIE SOLLTE MANN/FRAU SCHON HABEN ! " GOTO datendruckende ENDIF LPRINT CHR$(27);CHR$(108);CHR$(15); ! Linker Rand LPRINT CHR$(27);"E"; LPRINT finame$ LPRINT CHR$(27);"F"; LPRINT CHR$(27);CHR$(74);CHR$(90); ! Zeilen vorschub LPRINT CHR$(27);CHR$(108);CHR$(15); ! Linker Rand LPRINT "Anzahl der unabhngigen Atome: "; LPRINT nika%; LPRINT CHR$(27);CHR$(74);CHR$(90); ! Zeilen vorschub LPRINT CHR$(27);CHR$(108);CHR$(15); ! Linker Rand LPRINT CHR$(27);CHR$(45);CHR$(1); ! Unterstrichen LPRINT "Kernparameter"; LPRINT CHR$(27);CHR$(45);CHR$(0); LPRINT CHR$(27);CHR$(74);CHR$(50); LPRINT CHR$(27);CHR$(108);CHR$(15); FOR i=1 TO nika% LPRINT "Atomgruppe: ",i LPRINT CHR$(10); LPRINT "Kernspin : ",ag(i,0); LPRINT CHR$(10); LPRINT "Anzahl der Kerne: ",ag(i,1); LPRINT CHR$(10); LPRINT "Kopplungskonstante",ag(i,2), LPRINT CHR$(10); LPRINT "****************************************" LPRINT CHR$(10); NEXT i LPRINT CHR$(27);CHR$(74);CHR$(90); !Zeilen vorschub LPRINT CHR$(27);CHR$(108);CHR$(15); !Linker Rand LPRINT "Sweep-width (in Gauss): ",sweep LPRINT CHR$(10); LPRINT "Halbwertsbreite (in Gauss):",halbwert, LPRINT CHR$(10); LPRINT "Auflsung (in Punkte): ",auf LPRINT CHR$(10); LPRINT "Prozent Lorentzcharakter: ",prol*100, LPRINT CHR$(12); ' DO EXIT IF OUT?(0)=TRUE LOOP datendruckende: ' RETURN ' PROCEDURE spin ! Berechnung der nor - LOCAL atome%,anzahl%,aufspaltung%,zaehl%,max%,imax% ! mierten Intensitten atome%=ag(k%,1) ! fr ungewhnlich viele aufspaltung%=INT(ag(k%,0)*2+1) ! Atome und "seltene" anzahl%=INT(ag(k%,0)*2*ag(k%,1)+1) ! Spinquantenzahlen DIM rechenfeld%(anzahl%),inten%(anzahl%) rechenfeld%(1)=1 DO DEC atome% EXIT IF atome%<0 ARRAYFILL inten%(),0 zaehl%=0 DO INC zaehl% FOR z%=zaehl% TO (aufspaltung%+zaehl%-1) IF z%350 AND MOUSEY<380 AND MOUSEX>350 AND MOUSEX<600 INC leng IF leng>20 leng=1 ENDIF PAUSE 10 TEXT 500,370," " TEXT 500,370,STR$(leng) ENDIF IF MOUSEY>350 AND MOUSEY<380 AND MOUSEX>180 AND MOUSEX<300 INC lin% IF lin%>5 lin%=0 ENDIF IF lin%=0 stil%=1 ENDIF IF lin%=1 stil%=3 ENDIF IF lin%=2 stil%=5 ENDIF IF lin%=3 stil%=2 ENDIF IF lin%=4 stil%=4 ENDIF IF lin%=5 stil%=6 ENDIF TEXT 180,370,120," " DEFLINE stil%,1 LINE 180,365,300,365 DEFLINE 1,1,0,0 PAUSE 10 ENDIF ENDIF TEXT 460,80,penr% TEXT 460,230,pens% IF MOUSEY>130 AND MOUSEY<170 yw%=1 ENDIF IF MOUSEY>280 AND MOUSEY<320 yw%=2 ENDIF IF MOUSEX>110 AND MOUSEX<150 IF yw%=1 penr%=1 ENDIF IF yw%=2 pens%=1 ENDIF ENDIF IF MOUSEX>190 AND MOUSEX<230 IF yw%=1 penr%=2 ENDIF IF yw%=2 pens%=2 ENDIF ENDIF IF MOUSEX>270 AND MOUSEX<310 IF yw%=1 penr%=3 ENDIF IF yw%=2 pens%=3 ENDIF ENDIF IF MOUSEX>350 AND MOUSEX<390 IF yw%=1 penr%=4 ENDIF IF yw%=2 pens%=4 ENDIF ENDIF IF MOUSEX>430 AND MOUSEX<470 IF yw%=1 penr%=5 ENDIF IF yw%=2 pens%=5 ENDIF ENDIF IF MOUSEX>510 AND MOUSEX<550 IF yw%=1 penr%=6 ENDIF IF yw%=2 pens%=6 ENDIF ENDIF IF MOUSEX>300 AND MOUSEX<360 AND MOUSEY>20 AND MOUSEY<50 maus=2 ENDIF ENDIF EXIT IF maus=2 LOOP IF z%=2 AND i%=1 pr%=penr% ps1%=pens% ENDIF IF beenden!=-1 GOTO hp_ende ENDIF rahmen_aus!=FALSE IF penr%=0 ALERT 2," | KEINE BESCHRIFTUNG ??? ",1," H ? | EIJO ! ",butt% IF butt%=1 GOTO stift ELSE rahmen_aus!=TRUE ENDIF ENDIF IF pens%=0 ALERT 2," | KEIN SPEKTRUM ?????? ",1," OHJE ! | JA | ???? ",butt% IF butt%=1 GOTO stift ENDIF IF butt%=2 ALERT 2," | SCHWABE ODER SCHOTTE ? ",2," SO ISSES | HANOI ",antwort% IF antwort%=2 CLS TEXT 100,150,400," SELTSAM, SELTSAM........" PAUSE 120 ENDIF ENDIF IF butt%=3 ALERT 2," SIND SIE EIN | | ORGANIKER ? ",1," JA | NEIN ",antwort% CLS IF antwort%=1 TEXT 100,150,400," DACHT ICH MIR DOCH GLEICH!" ELSE TEXT 100,150,400," HTTEN SIE ABER WERDEN KNNEN ! " ENDIF PAUSE 120 ENDIF ENDIF IF penr%=0 AND pens%=0 CLS TEXT 150,150,300,"GEIZHALS!!!!!" PAUSE 150 CLS GOTO stift ENDIF ' IF i%=1 p1%=pens% ENDIF CLS LOOP ALERT 2," | PLOTTEN ?",1," EI JO | NEEEE ",butt% IF butt%=2 GOTO hp_ende ENDIF TEXT 160,150,300,"Bin beim Plotten!" ' OPEN "",#3,"AUX:" PRINT #3,"IN;" IF rahmen_aus!=FALSE GOSUB text DELAY 50 GOSUB rahmen DELAY 80 ENDIF GOSUB plott PRINT #3,"PU;SP0" PRINT #3,"DF" CLOSE #3 hp_ende: CLS DEFLINE 1,1 RETURN ' PROCEDURE text prozl=prol*100 PRINT #3,"SP";penr%; PRINT #3,"pa2000,7480;" PRINT #3,"CS0;SR3,3;" PRINT #3,"lbSYSIPHUS - PLOT";CHR$(3) PRINT #3,"Pa2020,7460;LbSYSIPHUS - PLOT";CHR$(3) PRINT #3,"PA600,7350,PD10600,7350,PU;" PRINT #3,"SR.7,1;" IF (bereichsplott! OR huell!) OR simess! PRINT #3,"PA2800,7200;LBSIMULIERTES SPEKTRUM: ";CHR$(3) IF lin%>0 PRINT #3,"LT",lin%,leng; ENDIF PRINT #3,"SP";p1%;"VS,2;" PRINT #3,"PA5500,7225,PD8000,7225,PU;" PRINT #3,"SP";penr%; PRINT #3,"LT,VS;"; PRINT #3,"PA600,7050;LBFILENAME: ";finame$;CHR$(3) PRINT #3,"PA3800,7050;CS33;LBAUFL";CHR$(92);"SUNG: ";auf;CHR$(3) PRINT #3,"PA7000,7050;LB%-LORENTZCHARAKTER: ";prozl;CHR$(3) PRINT #3,"PA600,6925;CS0;LBHALBWERSTBREITE: ";halbwert;CHR$(3) PRINT #3,"PA3800,6925;LBSIMULIERTE SWEEP-WEITE: ";sw;CHR$(3) PRINT #3,"PA7000,6925;LBSWEEP-WEITE: ";s_sweep;CHR$(3) DELAY 10 ENDIF PRINT #3,"PA600,6775,PD10600,6775,PU;" IF messplo!=-1 PRINT #3,"PA2800,6625;LBGEMESSENES SPEKTRUM: ";CHR$(3) PRINT #3,"sp",pens%;"VS,2;" PRINT #3,"PA5500,6650,PD8000,6650,PU;" PRINT #3,"sp";penr%;"VS;" PRINT #3,"PA600,6500;LBFILENAME: ";mess$;CHR$(3) PRINT #3,"PA3800,6500;LBRESOLUTION: ";res%;CHR$(3) PRINT #3,"PA7000,6500;LBCENTERFIELD: ";ROUND(cf,2);CHR$(3) PRINT #3,"PA600,6375;LBGEMESSENE SWEEP-WEITE: ";spsw;CHR$(3) PRINT #3,"PA7000,6375;LBSWEEP-WEITE: ";m_sweep;CHR$(3) PRINT #3,"PA600,6225,PD10600,6225,PU;" DELAY 10 ENDIF RETURN ' PROCEDURE rahmen LOCAL l$,r$,mit$,s_sweep,m_sweep,lm$,rm$,mitm$,ls$,rs$,mits$ s_sweep=ROUND(mb-amb,2) m_sweep=ROUND(mend-manf,2) ' lm$=SPACE$(7) RSET lm$=STR$(ROUND(manf,2)) rm$=SPACE$(7) rm$=STR$(ROUND(mend,2)) mitm$=SPACE$(7) RSET mitm$=STR$(m_sweep) l1$=STR$(ROUND(amb,2)) IF l1$="0" l1$="0.00" ENDIF ls$=l1$ rs$=STR$(ROUND(mb,2)) mits$=STR$(s_sweep) l$=SPACE$(7) mit$=SPACE$(7) r$=SPACE$(7) ' PRINT #3,"PU,600,600,PD,600,5620,10600,5620,10600,600,600,600;" PRINT #3,"PU600,600,PD600,520,PU,5600,600,PD,5600,520,PU10600,600PD10600,520,PU;" IF simess!=-1 PRINT #3,"PU600,5620,PD600,5700,PU,5600,5620,PD,5600,5700,PU10600,5620PD10600,5700,PU;" ENDIF IF simess!=-1 RSET l$=ls$ RSET mit$=mits$ RSET r$=rs$ ELSE IF messplo!=-1 RSET l$=lm$ RSET mit$=mitm$ RSET r$=rm$ ELSE RSET l$=ls$ RSET r$=rs$ RSET mit$=mits$ ENDIF ENDIF PRINT #3,"PA80,380,LB"+l$;CHR$(3) PRINT #3,"PA4000,380,LBSWEEP-WEITE"+mit$+" GAUSS";CHR$(3) PRINT #3,"PA10100,380,LB"+r$;CHR$(3) IF simess!=-1 PRINT #3,"PA80,5900,LB"+lm$;CHR$(3) PRINT #3,"PA4000,5800,LBSWEEP-WEITE"+mitm$+" GAUSS";CHR$(3) PRINT #3,"PA10100,5800,LB"+rm$;CHR$(3) ENDIF RETURN ' PROCEDURE plott LOCAL x%,y%,app%,plo%,links%,vgl,off% PRINT #3,"IP600,600,10600,5620;" IF simess!=-1 IF halb!=-1 vgl=0.5 off%=5000 ELSE vgl=1 off%=0 ENDIF ELSE vgl=1 off%=0 ENDIF IF messplo!=-1 PRINT #3,"SP";pens%; app%=mende%-mstart%+1 PRINT #3,"SC1",app%,"-10010,10010;" PRINT #3,"PU,1,0;" PRINT #3,"PA",1,off%; IF mstart%10010 plo%=10010 ENDIF IF halb!=-1 IF plo%<0 plo%=0 ENDIF ENDIF IF plo%<-10010 plo%=-10010 ENDIF PRINT #3,"PA",x%,plo%; DELAY 0.5 IF y%=res% x%=app% ENDIF EXIT IF x%=app% INC y% LOOP PRINT #3,"PU;" ENDIF ENDIF ' IF (huell! OR bereichsplott!) OR simess! IF lin%=0 PRINT #3,"LT"; ELSE PRINT #3,"LT",lin%,leng; ENDIF PRINT #3,"SP";p1%; vgl=ver*vgl off%=-off% app%=5860 PRINT #3,"SC1",app%,"-10010,10010;" PRINT #3,"PU,1,0;" PRINT #3,"PA",1,off%,"PD;" IF gerade!=TRUE PRINT #3,"VS",2,";" PRINT #3,"PA",app%,off%; PRINT #3,"VS",";" ELSE xa%=(start%-27)*10 IF xa%=0 xa%=1 ENDIF PRINT #3,"VS",1,";" PRINT #3,"PA",xa%,off%; PRINT #3,"VS",";" FOR y%=anfang% TO ende% x%=(y%-anfang%)*fak*10+xa% plo%=CINT(-huelk%(kurve%-1,y%)*vgl/100)+off% IF plo%>10010 plo%=10010 ENDIF IF halb!=-1 IF plo%>0 plo%=0 ENDIF ENDIF IF plo%<-10010 plo%=-10010 ENDIF PRINT #3,"PA";x%,plo%; DELAY 0.5 NEXT y% PRINT #3,"VS",1,";" PRINT #3,"PA",app%,off%; PRINT #3,"VS",";" ENDIF ENDIF ' RETURN ' PROCEDURE pixel MENU OFF LOCAL wahl$,c$,punkt%,d%,bakl%,button%,l$ ' IF messplo!=-1 c$=mess$ ELSE punkt%=RINSTR(finame$,".") bakl%=RINSTR(finame$,"\") d%=punkt%-bakl%-1 IF d%<0 d%=8 ENDIF c$=MID$(finame$,bakl%+1,d%) ' +++++++++++++++++++++++++++++++++++++++++++++++++++++++ ENDIF ' pixelanf: l$=CHR$(GEMDOS(25)+65) ' FILESELECT l$+":\*.PIC",c$+".PIC",wahl$ IF wahl$>"" IF EXIST(wahl$) ALERT 1," DATEI EXISTIERT SCHON ! | ACHTUNG ! | DIE DATEI WIRD BERSCHRIEBEN !",1," ABBRUCH | WEITER ",buton% IF buton%=1 GOTO pixelanf ENDIF ENDIF CLS SPUT x1$ OPEN "O",#1,wahl$ BPUT #1,XBIOS(2),32000 CLOSE ENDIF RETURN ' ' PROCEDURE gwert MENU OFF LOCAL stand1$,stand2$,stand3$,b1$,b2$,b1,b2 CLS DIM stand$(3) CHDIR "\" CHDIR "\DATEN" IF EXIST("G_WERT.PAR") OPEN "I",#1,"G_WERT.PAR" INPUT #1,wahl$ INPUT #1,b1,b2 CLOSE IF EXIST(wahl$) OPEN "I",#1,wahl$ FOR i%=1 TO 3 INPUT #1,stand$(i%) NEXT i% ENDIF CLOSE ENDIF GOSUB gwertbeschrift CLS ERASE stand$() RETURN PROCEDURE gwertbeschrift CLS stand1$=stand$(1) stand2$=stand$(2) stand3$=stand$(3) b1$=SPACE$(7) b2$=SPACE$(7) b1$=STR$(b1) b2$=STR$(b2) GOSUB muster GOSUB kaufhaus RETURN PROCEDURE muster DEFMOUSE bitmuster$ DEFTEXT 1,0,0,13 BOX 30,40,610,360 BOX 40,50,600,350 FILL 45,45 BOX 160,60,480,80 TEXT 170,75,300,"g-WERT-Berechnung" BOX 70,100,590,120 TEXT 75,115,80,"Standard:" TEXT 170,115,stand1$ BOX 70,130,590,150 TEXT 75,145,80,"g-WERT:" TEXT 170,145,stand2$ BOX 70,160,590,180 TEXT 75,175,80,"Kommentar:" TEXT 170,175,stand3$ BOX 70,189,590,211 TEXT 75,205,115,"Feld [ in Gau ]" BOX 73,191,587,209 FILL 71,190 DEFLINE 1,3 LINE 205,190,205,210 TEXT 220,205,70,"Standard:" DEFLINE 0,0 BOX 293,190,308,210 BOX 383,190,398,210 BOX 473,190,488,210 BOX 563,190,578,210 TEXT 296,206,"" TEXT 296,206,"" TEXT 386,206,"" TEXT 476,206,"" TEXT 566,206,"" TEXT 310,205,70,b1$ TEXT 400,205,70,"Probe:" TEXT 490,205,70,b2$ DEFLINE 1,0 BOX 160,225,480,255 BOX 155,220,485,260 DEFFILL 1,2,9 FILL 158,256 DEFTEXT 1,16,0,17 TEXT 170,247,100,"g-Wert =" BOX 350,270,580,340 BOX 70,270,300,340 BOX 100,275,270,295 BOX 100,310,270,330 BOX 380,275,550,295 DEFTEXT 1,0,0,13 TEXT 400,290,130," Standard " TEXT 120,290,130," Berechnen " TEXT 120,325,130," ADELE " BOX 360,310,420,330 BOX 435,310,495,330 BOX 510,310,570,330 TEXT 365,325,50,"NEUER" TEXT 440,325,50,"LADEN" TEXT 512,325,55,"SICHERN" DEFFILL 1,4 FILL 72,272 DEFFILL 1,2,16 FILL 352,272 DEFFILL 1,2,20 FILL 55,55 RETURN PROCEDURE kaufhaus DEFMOUSE bitmuster$ DO IF MOUSEY>190 AND MOUSEY<210 IF MOUSEK>0 IF MOUSEX>293 AND MOUSEX<308 p%=1 GOSUB aufnieder1 ENDIF IF MOUSEX>383 AND MOUSEX<398 p%=2 GOSUB aufnieder1 ENDIF IF MOUSEX>473 AND MOUSEX<488 p%=3 GOSUB aufnieder2 ENDIF IF MOUSEX>565 AND MOUSEX<578 p%=4 GOSUB aufnieder2 ENDIF ENDIF ENDIF IF MOUSEX>100 AND MOUSEX<270 IF MOUSEK>0 IF MOUSEY>275 AND MOUSEY<295 GOSUB berechnen ENDIF IF MOUSEY>310 AND MOUSEY<330 GOTO gwertende ENDIF ENDIF ENDIF IF MOUSEY>310 AND MOUSEY<330 IF MOUSEK>0 IF MOUSEX>360 AND MOUSEX<420 GOSUB dateneingabe ENDIF IF MOUSEX>435 AND MOUSEX<495 GOSUB lade GOSUB gwertbeschrift ENDIF IF MOUSEX>510 AND MOUSEX<570 GOSUB speicher ENDIF ENDIF ENDIF LOOP gwertende: RETURN PROCEDURE aufnieder1 IF p%=1 IF MOUSEK=1 ADD b1,0.01 ELSE ADD b1,1 ENDIF PAUSE 8 ENDIF IF p%=2 IF MOUSEK=1 SUB b1,0.01 ELSE SUB b1,1 ENDIF PAUSE 8 ENDIF b1=ROUND(b1,2) b=b1*100 b$=SPACE$(7) RSET b$=STR$(b) b1$=MID$(b$,1,5)+"."+MID$(b$,6)+" " TEXT 310,205,b1$ RETURN PROCEDURE aufnieder2 IF p%=3 IF MOUSEK=1 ADD b2,0.01 ELSE ADD b2,1 ENDIF PAUSE 8 ENDIF IF p%=4 IF MOUSEK=1 SUB b2,0.01 ELSE SUB b2,1 ENDIF PAUSE 8 ENDIF b2=ROUND(b2,2) b=b2*100 b$=SPACE$(7) RSET b$=STR$(b) b2$=MID$(b$,1,5)+"."+MID$(b$,6)+" " TEXT 490,205,70,b2$ RETURN PROCEDURE dateneingabe CLS BOX 40,50,600,360 PRINT AT(20,8); PRINT AT(10,8);"Standard: ";stand1$ PRINT AT(10,12);"g-Wert: ";stand2$ PRINT AT(10,16);"Kommentar:";stand3$ PRINT AT(10,20);"Feld [ in Gau ]:" PRINT AT(30,20);"Standard: ";b1$ PRINT AT(55,20);"Probe: ";b2$ PRINT AT(20,8); FORM INPUT 50 AS stand1$ stand$(1)=stand1$ PRINT AT(20,12); FORM INPUT 10 AS stand2$ stand$(2)=stand2$ PRINT AT(20,16); FORM INPUT 50 AS stand3$ stand$(3)=stand3$ PRINT AT(41,20); FORM INPUT 7 AS b1$ PRINT AT(65,20); FORM INPUT 7 AS b2$ b1=VAL(b1$) b2=VAL(b2$) CLS GOSUB muster RETURN PROCEDURE speicher LOCAL wahl$,l$,but% l$=CHR$(GEMDOS(25)+65) FILESELECT l$+":\daten\*.gwe",".gwe",wahl$ IF wahl$="" GOTO schreibend ENDIF OPEN "O",#1,wahl$ FOR n%=1 TO 3 WRITE #1,stand$(n%) NEXT n% CLOSE ALERT 2," SOLLEN DIE PARAMETER | FILENAME UND FELDSRTRKEN | MIT ABGESPEICHERT WERDEN? ",1," FREILI | HH ",but% IF but%=1 OPEN "O",#1,"G_WERT.PAR" WRITE #1,wahl$ WRITE #1,b1,b2 CLOSE ENDIF schreibend: DEFMOUSE bitmuster$ RETURN PROCEDURE lade LOCAL wahl$,l$,but% l$=CHR$(GEMDOS(25)+65) FILESELECT l$+":\daten\*.GWE",".GWE",wahl$ IF wahl$="" GOTO lesend ENDIF IF EXIST(wahl$) OPEN "I",#1,wahl$ FOR i%=1 TO 3 INPUT #1,stand$(i%) NEXT i% CLOSE ELSE ALERT 1," SORRY OPEN ERROR | | (keine Datei gefunden) ",1,"NICHT OK",but% ENDIF lesend: DEFMOUSE bitmuster$ RETURN PROCEDURE berechnen LOCAL gwert$,g$,gstan,gwert gstan=VAL(stand2$) gwert=gstan*b1/b2 gwert$=STR$(gwert) g$=SPACE$(7) LSET g$=MID$(gwert$,1,1)+"."+MID$(gwert$,3,5)+"000000" DEFTEXT 1,16,0,17 TEXT 280,247,g$ DEFTEXT 1,0,0,13 RETURN ' ' PROCEDURE rausch LOCAL r%,x%,y%,i%,l%,maus%,bereich,r,zufall,auf,fak,rausch IF huell!=-1 OR bereichsplott!=-1 CLS ' BOX 49,150,601,251 LINE 49,199,601,199 LINE 49,251,49,265 LINE 320,251,320,265 LINE 601,251,601,265 DEFFILL 1,2,14 PBOX 100,300,550,350 DEFTEXT 1,16,0,13 TEXT 120,330,410," Gut gerauscht ist halb betrogen , oder ? " DEFTEXT 1,0,0,13 TEXT 40,275,"0 %" TEXT 311,275,"50 %" TEXT 590,275,"100 %" TEXT 100,180,200," Prozent Grundrauschen :" DO UNTIL maus%=1 IF MOUSEY>300 AND MOUSEY<350 AND MOUSEX>100 AND MOUSEX<550 AND MOUSEK=1 maus%=1 ENDIF IF MOUSEK=2 maus%=1 ENDIF IF INKEY$=CHR$(13) maus%=1 ENDIF IF MOUSEY>200 AND MOUSEY<250 x%=MOUSEX IF MOUSEK=1 IF x%<600 AND x%>50 DEFFILL 0 BOUNDARY 0 PBOX x%,200,600,250 DEFFILL 1,2,17 BOUNDARY 1 PBOX 50,200,x%,250 r%=x%-51 r=ROUND(r%/5.48,2) TEXT 320,180," %" TEXT 320,180,r ENDIF ENDIF ENDIF LOOP ' zufall=r*3 zufall=ABS(zufall) CLS SPUT x1$ DEFFILL 0 BOUNDARY 0 PBOX 28,61,612,359 DRAW 27,210 IF huell!=TRUE fa=586/sweep IF sweep>=simsw fak=fa*simsw/bi% anf=(sweep-simsw)/2*fa+27 FOR i%=27 TO anf FOR l%=1 TO 4 rausch=RANDOM(zufall) r%=210+CINT(rausch-zufall/2) DRAW TO i%,r% NEXT l% NEXT i% FOR l%=0 TO bi% rausch=RANDOM(zufall) x%=l%*fak+anf y%=CINT(210+huelk%(kurve%-1,l%)*hoehe*ver) r%=y%+CINT(rausch-zufall/2) IF r%>360 r%=360 ENDIF IF r%<60 r%=60 ENDIF DRAW TO x%,r% NEXT l% FOR i%=x% TO 612 FOR l%=1 TO 4 rausch=RANDOM(zufall) r%=210+CINT(rausch-zufall/2) DRAW TO i%,r% NEXT l% NEXT i% ELSE anf=sweep/2*ppg+0.5 start%=spekha%-INT(anf) bis%=spekha%+INT(anf) fak=586/(bis%-start%) FOR l%=start% TO bis% rausch=RANDOM(zufall) x%=(l%-start%)*fak+27 y%=CINT(210+huelk%(kurve%-1,l%)*hoehe*ver) r%=y%+CINT(rausch-zufall/2) IF r%>360 r%=360 ENDIF IF r%<60 r%=60 ENDIF DRAW TO x%,r% NEXT l% ENDIF ENDIF IF bereichsplott!=TRUE IF le%=0 PRINT AT(30,14);"WAR WOHL NIX !"; GOTO warnix ENDIF bereich%=le%-la% fak=586/bereich% bereichshalbe%=bereich%/2+la% IF la%>bi% GOTO gerade2 ENDIF IF la%<0 OR la%=0 anfang%=0 start%=CINT(ABS(la%*fak)+27) ENDIF IF la%>0 anfang%=la% start%=27 ENDIF IF le%<0 OR le%=0 gerade2: DRAW 27,210 FOR i%=27 TO 612 rausch=RANDOM(zufall) r%=210+CINT(rausch-zufall/2) IF r%>360 r%=360 ENDIF IF r%<60 r%=60 ENDIF DRAW TO i%,r% NEXT i% gerade!=TRUE GOTO rauschende ELSE IF le%>bi% ende%=bi% ELSE ende%=le% ENDIF ENDIF ' DRAW 27,210 FOR i%=27 TO start% rausch=RANDOM(zufall) r%=210+CINT(rausch-zufall/2) IF r%>360 r%=360 ENDIF IF r%<60 r%=60 ENDIF DRAW TO i%,r% NEXT i% ' FOR l%=anfang% TO ende% rausch=RANDOM(zufall) x%=(l%-anfang%)*fak+start% y%=210+huelk%(kurve%-1,l%)*hoehe*ver r%=y%+CINT(rausch-zufall/2) IF r%>360 r%=360 ENDIF IF r%<60 r%=60 ENDIF DRAW TO x%,r% NEXT l% FOR i%=x% TO 612 rausch=RANDOM(zufall) r%=210+CINT(rausch-zufall/2) IF r%>360 r%=360 ENDIF IF r%<60 r%=60 ENDIF DRAW TO i%,r% NEXT i% ENDIF rauschende: HIDEM SGET x1$ SHOWM ENDIF warnix: BOUNDARY 1 BOUNDARY 1 ' RETURN ' ' ' +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ PROCEDURE laufwerk LOCAL l$,al%,x%,k%,i%,lx%,maus%,auswahl! CLS DEFTEXT 1,0,0,13 l$=BIN$(BIOS(10)) al%=GEMDOS(25) k%=LEN(l$) start: al%=k%-al% BOX 140,100,500,140 TEXT 160,125,320," Aktuelles Laufwerk :" BOX 200,300,440,340 TEXT 220,325,200," In Ordnung so ?" BOX 140,200,500,240 BOX 140,40,500,80 FOR i%=1 TO 8 x%=140+40*i% LINE x%,200,x%,240 NEXT i% TEXT 160,225,320,"ABCDEFGHI" FOR i%=k% TO 8 x%=160+40*i% DEFFILL 1,2,9 FILL x%,230,1 NEXT i% x%=120+40*k% FOR i%=k% TO 1 STEP -1 IF i%<>al% IF MID$(l$,i%,1)="0" DEFFILL 1,2,9 ELSE DEFFILL 1,2,2 ENDIF x%=160+40*(k%-i%) FILL x%,230,1 ENDIF NEXT i% laufschleife: maus%=0 DO UNTIL maus%>0 IF INKEY$=CHR$(13) maus%=2 ENDIF IF MOUSEK=1 IF MOUSEY>200 AND MOUSEY<240 AND MOUSEX>140 AND MOUSEX<500 auswahl!=-1 lx%=MOUSEX SUB lx%,140 DIV lx%,40 INC lx% maus%=1 ENDIF IF MOUSEY>300 AND MOUSEX>200 AND MOUSEX<440 AND MOUSEY<340 maus%=2 ENDIF ENDIF LOOP IF maus%=1 IF lx%>k% GOTO laufschleife ENDIF DEC lx% IF MID$(l$,(k%-lx%),1)="0" GOTO laufschleife ELSE al%=lx% ENDIF CLS GOTO start ENDIF laufende: IF auswahl!=-1 CHDRIVE lx%+1 ENDIF al%=DFREE(0) TEXT 160,65,320,"NOCH "+STR$(al%)+" BYTE PLATZ AUF DER DISKETTE" GOSUB datenordner DO UNTIL (MOUSEK>0) OR (INKEY$>"") LOOP CLS RETURN ' ' +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ PROCEDURE datenordner CHDIR "\" IF 0<>FSFIRST("daten",-1) MKDIR "DATEN" ENDIF CHDIR "\DATEN" RETURN ' ' +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ' ' ' ***************************************************************** ' MANIPULATIOENEN MIT GEMESSENEN SPEKTREN ' ***************************************************************** ' ' PROCEDURE esp300 LOCAL par!,butt%,parwahl$,bu%,but%,b%,button%,btton%,buttn%,maus% LOCAL spek!,a$,b$,c$,parwahl$,punkt%,bakl%,d%,abut%,par$,specfile$ LOCAL spec%,spc$,smax%,smin%,pech!,l%,i%,e%,spunkte%,f,al%,res!,abutt%,n,z% LOCAL bcd%,bcf%,bce%,ab%,ba%,kuck1!,kuck2!,bc%,bb%,gr,messfak,param!,dr%,x%,y% LOCAL laenge% DEFTEXT 1,0,0,13 inpeingabe: ALERT 2," | WAS SOLL GELESEN WERDEN ? ",0,"PARAME| SPEKTR | NIX ",butt% IF butt%=3 GOTO convende ENDIF IF butt%=1 select1: IF spek!=-1 c$=b$+".PAR" ELSE c$="" ENDIF FILESELECT "A:\*.par",c$,parwahl$ IF parwahl$>"" IF NOT EXIST(parwahl$) ALERT 1,parwahl$+":|Diese Datei existiert nicht!",1," ZURCK ",button% GOTO select1 ENDIF ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++ a$=parwahl$ punkt%=RINSTR(a$,".") bakl%=RINSTR(a$,"\") d%=punkt%-bakl%-1 a$=MID$(a$,bakl%+1,d%) IF spek!=-1 IF a$<>b$ ALERT 3," "+a$+" SOLL DER | PARAMETERFILE ZUM | SPEKTRENFILE "+b$+" | SEIN ???",1," NEE | SO ISSES",abut% IF abut%=1 GOTO select1 ENDIF ENDIF ENDIF ' +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ CLR spsw,res% OPEN "I",#1,parwahl$ z%=0 DO INPUT #1,par$ IF par$="" INC z% ENDIF EXIT IF z%=2 PRINT par$ IF LEFT$(par$,3)="HSW" spsw=ROUND(VAL(MID$(par$,4)),2) ENDIF IF LEFT$(par$,3)="GSI" spsw=ROUND(VAL(MID$(par$,4)),2) ENDIF IF LEFT$(par$,3)="HCF" cf=ROUND(VAL(MID$(par$,4)),2) ENDIF IF LEFT$(par$,3)="GST" lirand=ROUND(VAL(MID$(par$,4)),2) ENDIF IF LEFT$(par$,3)="RES" res%=VAL(MID$(par$,4)) ENDIF LOOP IF cf=0 CLS PRINT AT(20,10);" CENTERFILED IST NICHT | DEFFINIERT!! " PRINT AT(20,15); INPUT "CENTERFIELD: ";cf ENDIF IF spsw=0 IF lirand>0 spsw=ROUND(2*(cf-lirand),2) ENDIF ENDIF par!=TRUE CLOSE mess!=0 ELSE GOTO inpeingabe ENDIF IF spek!=0 GOTO inpeingabe ENDIF ENDIF IF butt%=2 IF par!=FALSE ALERT 3," | | PARAMETER SIND NOCH | NICHT GELESEN !",1," OH JE |NA UND ",buttn% IF buttn%=1 GOTO inpeingabe ENDIF ENDIF select2: IF par!=-1 c$=a$+".BIN" ELSE c$="" ENDIF FILESELECT "A:\*.BIN",c$,specfile$ IF specfile$>"" IF NOT EXIST(specfile$) ALERT 1,specfile$+":|Diese Datei existiert nicht!",1," ZURCK ",btton% GOTO select2 ENDIF ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ b$=specfile$ punkt%=RINSTR(b$,".") bakl%=RINSTR(b$,"\") d%=punkt%-bakl%-1 b$=MID$(b$,bakl%+1,d%) IF par!=-1 IF a$<>b$ ALERT 3," "+a$+" SOLL DER | PARAMETERFILE ZUM | SPEKTRENFILE "+b$+" | SEIN ???",1," NEE | SO ISSES",abut% IF abut%=1 GOTO select2 ENDIF ENDIF ENDIF ' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ERASE spek%() DIM spec%(9000) ERASE spektrum%() ERASE dif%() OPEN "i",#1,specfile$ l%=0 laenge%=LOF(#1) DO EXIT IF laenge%-LOC(#1)<76 INPUT #1,spc$ IF LEFT$(spc$,2)="S1" FOR i%=9 TO 65 STEP 8 INC l% IF l%<=9000 spec%(l%)=VAL("&"+MID$(spc$,i%,8)) IF spec%(l%)>smax% smax%=spec%(l%) ENDIF IF spec%(l%)0 res!=-1 ENDIF n$=STR$(spunkte%) res$=STR$(res%) IF res!=-1 IF res%<>spunkte% IF res%8 ALERT 3," DA STIMMT WAS NICHT! | ES SIND "+n$+" | STTZSTELLEN VORHANDEN | ALSO ZUVIELE ",1,"SCH...",b% GOTO convende ENDIF IF n==1 OR n==2 OR n==4 OR n==8 ELSE ALERT 3," DA STIMMT WAS NICHT ! | ES SIND NUR "+n$+" | STTZSTELLEN VORHANDEN !",1,"AENDERN| GUTSO | SCH...",bu% ENDIF IF bu%=3 GOTO convende ENDIF IF bu%=2 ALERT 1," | DAS GIBT JA DOCH NUR | | MIST ! ",1," JA DOCH | DENKSTE ",but% IF but%=1 GOTO convende ELSE ALERT 2," ES WURDEN "+n$+" | STTZSTELLEN GELESEN ",1," OK | NEIN ",bcd% IF bcd%=1 res%=spunkte% ELSE IF res%>0 ALERT 1," IN DER PARAMETERLISTE | IST DIE AUFLSUNG MIT | "+res$+" ANGEGEBEN !",1," OK | NEIN ",bcf% IF bcf%=1 GOTO wech ENDIF ENDIF PRINT AT(30,13); INPUT " AUFLSUNG: ",res% ENDIF wech: ENDIF ENDIF IF bu%=1 ALERT 2," ES WURDEN "+n$+" | STTZSTELLEN GELESEN ",1," OK | NEIN ",bce% IF bce%=1 res%=spunkte% ELSE IF res%>0 ALERT 1," IN DER PARAMETERLISTE | IST DIE AUFLSUNG MIT | "+res$+" ANGEGEBEN !",1," OK | NEIN ",bcf% IF bcf%=1 GOTO wecher ENDIF ENDIF PRINT AT(30,13); INPUT " AUFLSUNG: ",res% ENDIF wecher: ENDIF ' IF par!=0 ALERT 3," | PARAMETER LESEN! ",1," JA DOCH | NA UND ",ab% IF ab%=1 GOTO inpeingabe ENDIF ENDIF def: IF res%=0 ALERT 3," | DIE AUFLSUNG IST | NICHT DEFINIERT ! ",1," KUCKEN | SETZEN | NIX DA ",ba% IF ba%=3 GOTO convende ENDIF IF ba%=1 kuck1!=-1 GOTO kucken ENDIF IF ba%=2 ALERT 1," ES WURDEN "+n$+" | STTZSTELLEN GELESEN ",1," OK | NEIN ",bc% IF bc%=1 res%=spunkte% ELSE PRINT AT(30,13); INPUT " AUFLSUNG: ",res% ENDIF kuck1!=0 ENDIF ENDIF IF spsw=0 ALERT 3," | DIE SWEEP-WEITE IST | NICHT DEFINIERT ! ",1," KUCKEN | SETZEN | NIX DA ",bb% IF bb%=3 GOTO convende ENDIF IF bb%=1 kuck2!=-1 GOTO kucken ENDIF IF bb%=2 PRINT AT(30,13); INPUT " SWEEP-WEITE: ";spsw kuck2!=0 ENDIF ENDIF ' IF kuck1!=-1 OR kuck2!=-1 kucken: ' *************** Hier wird gezeichnet ! CLS ' DEFLINE 1,1 gr=150/1000000 messfak=586/spunkte% DRAW 27,210 FOR i%=1 TO spunkte% x%=i%*messfak+27 y%=CINT(210-spektrum%(i%)*gr) DRAW TO x%,y% NEXT i% DO UNTIL maus%=1 IF MOUSEK>0 maus%=1 ENDIF LOOP IF param!=-1 param!=0 GOTO inpeingabe ENDIF IF kuck1!=-1 OR kuck2!=-1 GOTO def ENDIF ' ' +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ENDIF CLS ' DIM spek%(res%) IF res%>=spunkte% daten%=spunkte% ELSE daten%=res% ENDIF ' l%=1 DO UNTIL l%=daten%+1 spek%(l%)=spektrum%(l%) spek%(l%)=spektrum%(l%) INC l% LOOP ERASE spektrum%() mess$=a$ GOSUB messpektrum mess!=TRUE messtart%=0 MENU 38,3 MENU 41,3 MENU 42,3 MENU 43,3 ' ***************************************************************** convende: RETURN ' ' ' ' PROCEDURE messlese LOCAL button%,wahl$,punkt%,bakl%,d%,l$ DEFTEXT 1,0,0,13 select3: l$=CHR$(GEMDOS(25)+65) FILESELECT l$+":\*.SPC","",wahl$ IF wahl$>"" IF NOT EXIST(wahl$) ALERT 1,wahl$+":|Diese Datei existiert nicht!",1," ZURCK ",button% GOTO select3 ENDIF ' +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ERASE spek%() ERASE dif%() VOID FRE(0) OPEN "I",#1,wahl$ INPUT #1,spsw,res%,cf DIM spek%(res%) BGET #1,VARPTR(spek%(0)),DIM?(spek%())*4 CLOSE mess!=-1 MENU 38,3 MENU 41,3 MENU 42,3 MENU 43,3 ' +++++++++++++++++++++++++++++++++++++++++++++++++++++++ punkt%=RINSTR(wahl$,".") bakl%=RINSTR(wahl$,"\") d%=punkt%-bakl%-1 mess$=MID$(wahl$,bakl%+1,d%) ' +++++++++++++++++++++++++++++++++++++++++++++++++++++++ messtart%=0 GOSUB messpektrum ENDIF RETURN ' ' PROCEDURE messchreiben LOCAL wahl$,button%,l$ IF mess!=-1 select4: l$=CHR$(GEMDOS(25)+65) FILESELECT l$+":\*.SPC",mess$+".SPC",wahl$ VOID FRE(0) IF wahl$>"" IF EXIST(wahl$) ALERT 1,wahl$+":|Diese Datei existiert schon!",1," ZURCK | WEITER ",button% IF button%=1 GOTO select4 ENDIF ENDIF OPEN "O",#1,wahl$ WRITE #1,spsw,res%,cf BPUT #1,VARPTR(spek%(0)),DIM?(spek%())*4 CLOSE ENDIF ENDIF RETURN ' ' PROCEDURE messpektrum MENU OFF LOCAL i%,l%,x%,y%,gr%,maus%,dr%,y1%,pix%,ver% ver%=1 DEFTEXT 1,0,0,6 DEFLINE 1,1 zeigen: gr=150/1000000 messfak=586/res% DRAW 27,210 FOR i%=1 TO res% x%=i%*messfak+27 y%=CINT(210-spek%(i%)*gr) DRAW TO x%,y% NEXT i% GET 27,50,613,390,aus$ CLS BOX 27,60,613,360 LINE 27,210,613,210 LINE 27,360,27,365 LINE 613,360,613,365 manf=ROUND((cf-spsw/2),2) mend=ROUND((cf+spsw/2),2) TEXT 10,375,manf TEXT 580,375,mend PRINT AT(3,2);" Spektrum: ";mess$; PRINT AT(40,2);" Auflsung: ";res%; PRINT AT(3,5);" Gemessene Sweep-Weite: ";spsw; BOX 300,30,400,45 BOX 500,30,600,45 TEXT 310,40,80,"IN ORDNUNG ?" TEXT 510,40,80," VERNDERN " HIDEM SGET x1$ SHOWM PUT 27,50,aus$,7 maus%=0 DO UNTIL maus%>0 IF MOUSEK=1 IF MOUSEY>30 AND MOUSEY<45 IF MOUSEX>300 AND MOUSEX<400 maus%=1 ENDIF IF MOUSEX>500 AND MOUSEX<600 maus%=2 ENDIF ENDIF ENDIF LOOP IF maus%=2 ALERT 2," | WAS DENN NU SCHON WIEDER ? ",2," GRE | DREHEN | HHE ",dr% IF dr%=1 BOX 614,60,631,360 LINE 615,210,630,210 DO UNTIL MOUSEK=2 DO WHILE MOUSEK=1 DEFLINE 1,3 DEFFILL 0,0 IF MOUSEY>59 AND MOUSEY<361 y%=MOUSEY-210 ver%=-y% u%=210+y% o%=210-ver% IF u%<=210 u%=210 ENDIF IF o%>=210 o%=210 ENDIF LINE 622,210,622,210+y% PBOX 615,60,630,o% PBOX 615,360,630,u% DEFLINE 1,1 BOX 614,60,631,360 LINE 615,210,630,210 ENDIF LOOP LOOP IF ver%=0 ver%=1 ENDIF mul=ver% mul=ABS(mul/10) IF mul<1 mul=1 ENDIF IF ver%<0 mul=1/mul ENDIF ' l%=1 DO UNTIL l%=res%+1 spek%(l%)=CINT(spek%(l%)*mul) INC l% LOOP CLS GOTO zeigen ENDIF IF dr%=2 l%=1 DO UNTIL l%=res%+1 spek%(l%)=-spek%(l%) INC l% LOOP CLS GOTO zeigen ENDIF ' IF dr%=3 ' y1%=50 DO UNTIL MOUSEK=2 DEFMOUSE bitmuster$ y%=MOUSEY-y1% IF MOUSEK=1 my%=MOUSEY DO UNTIL MOUSEK=0 DEFMOUSE 4 y1%=SUB(MOUSEY,y%) SPUT x1$ PUT 27,y1%,aus$,7 PAUSE 8 LOOP ENDIF LOOP pix%=CINT((50-y1%)/gr) l%=1 DO UNTIL l%=res%+1 ADD spek%(l%),pix% INC l% LOOP CLS GOTO zeigen ENDIF ENDIF SPUT x1$ DEFFILL 0 PBOX 28,61,612,359 DEFLINE 1,1 PUT 27,50,aus$,7 HIDEM SGET x1$ SHOWM MENU 35,3 MENU 36,3 CLS IF simm!=-1 MENU 44,3 ENDIF mstart%=1 mende%=res% messfak=586/res% huell!=0 bereichsplott!=0 simess!=0 messplo!=-1 messbereich!=0 MENU 37,3 RETURN ' PROCEDURE espspektrum halb!=0 MENU OFF MENU 38,3 esp: CLS LOCAL i%,x%,y% verg=1 offset%=0 IF 0=(messbereich! OR zentrier!) mstart%=1 mende%=res% messfak=586/res% manf=ROUND((cf-spsw/2),2) mend=ROUND((cf+spsw/2),2) ENDIF GOSUB espzeichnung DEFTEXT 1,0,0,6 DEFLINE 1,1 gr=150/1000000 BOX 27,60,613,360 LINE 27,360,27,365 LINE 613,360,613,365 TEXT 10,375,ROUND(manf,2) TEXT 580,375,ROUND(mend,2) TEXT 300,375,STR$(ROUND(mend-manf,2))+" "+"Gauss" PRINT AT(3,2);" Spektrum: ";mess$; PRINT AT(40,2);" Auflsung: ";res%; PRINT AT(3,5);" Gemessene Sweep-Weite: ";spsw; ALERT 2," | ALLES IN ORDNUNG ? | ",1," JAJAJA | RESET ",butt% IF butt%=2 messbereich!=0 zentrier!=0 GOTO esp ENDIF HIDEM SGET x1$ SHOWM huell!=0 bereichsplott!=0 simess!=0 messplo!=-1 RETURN ' PROCEDURE espzeichnung DEFLINE 1,1 gr=150/1000000 DRAW 27,210-offset% IF mstart%=27 IF y%>360 y%=360 ENDIF IF halb!=-1 IF y%>210 y%=210 ENDIF ENDIF IF y%<60 y%=60 ENDIF DRAW TO x%,y% ENDIF IF x%>613 i%=mende% ENDIF ENDIF NEXT i% ENDIF IF simess!=-1 HIDEM IF halb!=0 GET 27,50,613,390,aus$ ELSE GET 27,50,613,230,aus$ ENDIF SHOWM ENDIF RETURN ' ' PROCEDURE spekmessbereich MENU OFF CLS LOCAL maus%,key$,x1,x2,messbereich%,li%,re%,lix,rex,auf,g1,g2 LOCAL l%,anf halb!=0 stpg=res%/spsw anf=manf messbereich!=0 messbereichanfang: IF messbereich!=FALSE verg=1 offset%=0 g1=0 g2=spsw mstart%=1 mende%=res% messfak=586/res% manf=ROUND((cf-spsw/2),2) mend=ROUND((cf+spsw/2),2) DEFLINE 1,1,0,0 BOX 27,60,613,360 LINE 27,360,27,365 LINE 321,360,321,365 LINE 613,360,613,365 DEFTEXT 1,0,0,6 PRINT AT(3,2);" Spektrum: ";mess$; PRINT AT(40,2);"Auflsung: ";res%; PRINT AT(3,5);"Gemessene Sweep Width :";spsw; TEXT 18,375,ROUND(manf,2) TEXT 580,375,ROUND(mend,2) TEXT 300,375,STR$(ROUND(mend-manf,2))+" "+"Gauss" GOSUB espzeichnung HIDEM SGET x1$ SHOWM ENDIF anf=manf BOX 580,35,613,55 DEFTEXT 1,1,0,13 TEXT 583,50,25,"ESC" DEFTEXT 1,1,0,6 maus%=0 DO key$=INKEY$ IF key$=CHR$(27) maus%=3 ENDIF IF key$=CHR$(127) maus%=2 ENDIF IF MOUSEK>0 maus%=1 ENDIF IF MOUSEX>580 AND MOUSEY>35 IF MOUSEX<613 AND MOUSEY<55 AND MOUSEK>0 maus%=3 ENDIF ENDIF EXIT IF maus%>0 key$="" LOOP IF maus%=3 CLS GOTO messbereichende ENDIF IF maus%=2 CLS messbereich!=0 GOTO messbereichanfang ENDIF HIDEM SGET x1$ SHOWM DEFLINE 2,1,1,1 SETMOUSE 321,200,0 messbereich!=-1 micks1: DO !Abfrage der linken Grenze SPUT x1$ x1=MOUSEX li%=MOUSEX-27 IF li%<0 li%=0 ENDIF IF li%>586 li%=586 ENDIF lix=ROUND(((g2-g1)/586*li%),2) PRINT AT(4,7);lix+anf lix=lix+g1 COLOR 1 LINE x1,60,x1,360 PAUSE 5 IF MOUSEK=1 COLOR 1 LINE x1,60,x1,360 lin=1 HIDEM SGET x1$ SHOWM ENDIF EXIT IF lin=1 LOOP IF x1<27 OR x1>613 GOTO micks1 ENDIF micks2: maus%=0 DO SPUT x1$ x2=MOUSEX re%=MOUSEX-27 IF re%<0 re%=0 ENDIF IF re%>586 re%=586 ENDIF rex=ROUND(((g2-g1)/586*re%),2) PRINT AT(14,7);rex+anf rex=rex+g1 PRINT AT(24,7);ROUND(rex-lix,2); COLOR 1 LINE x2,60,x2,360 PAUSE 5 COLOR 1 IF MOUSEK=2 LINE x2,60,x2,360 lin=2 ENDIF EXIT IF lin=2 LOOP IF x1=x2 GOTO micks2 ENDIF IF x2614 GOTO micks2 ENDIF ' ' mstart%=CINT(lix*stpg) mende%=CINT(rex*stpg) messbereich%=mende%-mstart% IF messbereich%=0 GOTO micks1 ENDIF messfak=586/messbereich% mend=ROUND(rex+anf,2) manf=ROUND(lix+anf,2) g1=lix g2=rex ' CLS DEFLINE 1,1,0,0 BOX 27,60,613,360 LINE 27,360,27,365 LINE 321,360,321,365 LINE 613,360,613,365 DEFTEXT 1,0,0,6 PRINT AT(3,2);" Spektrum: ";mess$; PRINT AT(40,2);"Auflsung: ";res%; PRINT AT(3,5);"Gemessene Sweep Width :";spsw; TEXT 18,375,ROUND(manf,2) TEXT 580,375,ROUND(mend,2) TEXT 300,375,STR$(ROUND((mend-manf),2))+" "+"Gauss" ' GOSUB espzeichnung HIDEM SGET x1$ SHOWM GOTO messbereichanfang ' messbereichende: huell!=0 bereichsplott!=0 messbereich!=-1 simess!=0 messplo!=-1 DEFLINE 1,1,0,0 RETURN ' ' ' ' PROCEDURE simmess MENU OFF LOCAL altver,x%,x1%,y%,y1%,maus%,mst%,dummy%,messtart%,gpst,l% gpst=spsw/res% ' CLS halb!=-1 DEFTEXT 1,0,0,13 BOX 80,80,520,110 TEXT 100,100,400,"LINIENFORM DES SIMULIERTEN SPEKTRUMS" BOX 80,110,520,120 DEFFILL 1,0 PBOX 400,200,500,250 DEFFILL 1,1 PBOX 250,200,350,250 TEXT 260,230,"IN ORDNUNG" PBOX 100,200,200,250 TEXT 135,230,"HALB" TEXT 435,230,"VOLL" DEFLINE defl%,1 LINE 100,115,500,115 maus%=0 DO UNTIL maus%=1 IF INKEY$=CHR$(13) maus%=1 ENDIF IF MOUSEK=1 IF MOUSEY>80 AND MOUSEY<120 INC defl% IF defl%>6 defl%=1 ENDIF DEFFILL 0,0 PBOX 82,112,518,118 DEFLINE defl%,1 LINE 100,115,500,115 PAUSE 10 ENDIF IF MOUSEY>200 AND MOUSEY<250 IF MOUSEX>400 AND MOUSEX<500 DEFFILL 0,0 PBOX 101,201,199,249 TEXT 135,230,"HALB" DEFFILL 1,1 PBOX 401,201,499,249 TEXT 435,230,"VOLL" halb!=0 ENDIF IF MOUSEX>100 AND MOUSEX<200 DEFFILL 1,1 PBOX 101,201,199,249 TEXT 135,230,"HALB" DEFFILL 0,0 PBOX 401,201,499,249 TEXT 435,230,"VOLL" halb!=-1 ENDIF IF MOUSEX>250 AND MOUSEX<350 maus%=1 ENDIF ENDIF ENDIF LOOP CLS ' simess!=-1 altver=ver IF halb!=-1 offset%=75 ver=0.5*ver verg=0.5 ELSE verg=1 offset%=0 ENDIF GOSUB espzeichnung CLS IF spektrum!=-1 GOSUB bild ELSE IF kurve%=0 ALERT 3," KURVENFORM IST NICHT | DEFINIERT !!!!!! ",1," IS GUT ",l% GOTO simessende ENDIF GOSUB pinsel ENDIF ' zentrier: CLS DEFTEXT 1,0,0,6 DEFLINE 1,1 SPUT x1$ BOX 27,60,613,360 LINE 27,55,27,365 LINE 613,55,613,365 LINE 321,60,321,55 TEXT 20,370,STR$(amb) TEXT 600,370,STR$(mb) TEXT 300,370,STR$(ROUND(mb-amb,2))+" GAUSS" TEXT 10,55,STR$(ROUND(manf,2)) TEXT 580,55,STR$(ROUND(mend,2)) TEXT 300,55,STR$(ROUND(mend-manf,2))+" "+"Gauss" HIDEM SGET x1$ SHOWM PUT 27,50,aus$,7 x1%=27 y1%=50 beginn: DEFLINE 1,1 DEFTEXT 1,0,0,6 BOX 20,20,120,40 BOX 250,20,350,40 BOX 480,20,580,40 TEXT 30,33,80,"IN ORDNUNG" TEXT 260,33,80,"VERSCHIEBEN" TEXT 490,33,80,"ZENTRIEREN" maus%=0 DO UNTIL maus%>0 IF MOUSEK=1 AND MOUSEY>20 AND MOUSEY<40 IF MOUSEX>20 AND MOUSEX<120 maus%=1 ENDIF IF MOUSEX>250 AND MOUSEX<350 maus%=2 ENDIF IF MOUSEX>480 AND MOUSEX<580 maus%=3 ENDIF ENDIF LOOP IF maus%=1 GOTO simessende ENDIF IF maus%=2 DEFMOUSE 4 DO UNTIL MOUSEK=2 x%=MOUSEX-x1% y%=MOUSEY-y1% IF MOUSEK=1 DO UNTIL MOUSEK=0 x1%=SUB(MOUSEX,x%) y1%=SUB(MOUSEY,y%) IF y1%<0 y1%=0 ENDIF SPUT x1$ PUT x1%,y1%,aus$,7 PAUSE 8 LOOP ENDIF LOOP DEFMOUSE bitmuster$ ENDIF IF maus%=3 messtart%=x1%-27 SUB mstart%,CINT(messtart%/messfak) SUB mende%,CINT(messtart%/messfak) manf=ROUND((mstart%-1)*gpst,2) ADD manf,(cf-spsw/2) mend=ROUND((mende%-mstart%)*gpst+manf,2) CLS zentrier!=-1 GOSUB espzeichnung CLS GOSUB pinsel GOTO zentrier ENDIF GOTO beginn simessende: DEFFILL 0,0 PBOX 0,0,581,41 TEXT 340,20,280,"simuliertes Spektrum: "+finame$ TEXT 20,20,280,"gemessenes Spektrum : "+mess$ TEXT 400,35,"Linienzug: " DEFLINE defl%,1 LINE 500,33,600,33 TEXT 20,35,"Linienzug: " DEFLINE 1,1,0,0 LINE 120,33,220,33 ver=altver offset%=0 HIDEM SGET x1$ SHOWM messplo!=-1 RETURN ' ' PROCEDURE sichnum MENU OFF DEFLINE 1,1,0,0 DEFTEXT 1,0,0,13 LOCAL mfak,sfak,sichstart%,xpixel%,xa%,l%,x%,y%,z%,aus$,ok!,vgl LOCAL beschriftung$,l$,r$ verg=1 vgl=ver xpixel%=(start%-27)*2 gr=150/1000000 hoehe=gr mfak=messfak*2 sfak=fak*2 IF (bereichsplott! OR huell!) OR simess! beschriftung$="SIMULIERT: "+finame$ l$=STR$(ROUND(amb,2)) r$=STR$(ROUND(mb,2)) IF messplo!=-1 ok!=-1 ALERT 2," | GRAPHMODE | ? | ",2," 1 | 2 ",but% IF but%=1 GRAPHMODE 1 ELSE GRAPHMODE 2 ENDIF IF halb!=-1 offset%=75 verg=0.5 vgl=ver*0.5 ENDIF ELSE ok!=0 verg=1 offset%=0 vgl=ver defl%=1 ENDIF ENDIF FOR z%=1 TO 2 ! *********************************** DEFLINE 1,1,0,0 CLS LINE 27,60,613,60 LINE 27,360,613,360 IF z%=1 IF ok!=-1 LINE 27,50,27,380 ELSE LINE 27,60,27,380 ENDIF LINE 613,360,613,380 xa%=27 sichstart%=xa%+xpixel% ELSE IF ok!=-1 LINE 613,50,613,380 ELSE LINE 613,60,613,380 ENDIF LINE 27,360,27,380 xa%=-559 sichstart%=xa%+xpixel% ENDIF IF messplo!=-1 beschriftung$="GEMESSEN: "+mess$+".SPC" l$=STR$(ROUND(manf,2)) r$=STR$(ROUND(mend,2)) messspek: IF mstart%1 st%=spek%(mstart%) ELSE st%=0 ENDIF DRAW xa%,CINT(210-offset%-st%*gr*verg) FOR i%=mstart% TO mende% IF i%360 y%=360 ENDIF IF halb!=-1 IF y%>210 y%=210 ENDIF ENDIF IF y%<60 y%=60 ENDIF IF x%>0 AND x%<640 DRAW TO x%,y% ENDIF ENDIF NEXT i% ENDIF IF ok!=-1 GOTO simspek ENDIF ELSE simspek: DEFLINE defl%,1,0,0 IF p_line!=-1 LINE 27,210+offset%,613,210+offset% gerade!=-1 ELSE gerade!=0 DRAW xa%,210+offset% DRAW TO sichstart%,210+offset% FOR l%=anfang% TO ende% x%=(l%-anfang%)*sfak+sichstart% y%=210+offset%+huelk%(kurve%-1,l%)*hoehe*vgl IF y%>360 y%=360 ENDIF IF y%<60 y%=60 ENDIF IF halb!=-1 IF y%<210 y%=210 ENDIF ENDIF IF x%>0 AND x%<640 DRAW TO x%,y% ENDIF NEXT l% IF x%<613 DRAW TO 613,210+offset% ENDIF ENDIF ENDIF HIDEM GET 27,50,613,390,aus$ SHOWM CLS PUT 27,30,aus$ IF ok!=-1 IF z%=1 DEFLINE 1,1,0,0 LINE 400,18,600,18 BOX 400,10,600,25 TEXT 10,25,STR$(manf) TEXT 150,25,200,"GEMESSEN: "+mess$+".SPC" TEXT 25,370,STR$(ROUND(amb,2)) ELSE DEFLINE defl%,1,0,0 LINE 300,18,500,18 DEFLINE 1,1,0,0 BOX 300,10,500,25 TEXT 50,25,200,"SIMULIERT :"+finame$ TEXT 570,25,STR$(mend) TEXT 600,370,STR$(ROUND(mb,2)) ENDIF ELSE IF z%=1 TEXT 150,25,200,beschriftung$ TEXT 25,370,l$ ELSE TEXT 50,25,200,beschriftung$ TEXT 625-(LEN(r$)*8),370,r$ ENDIF ENDIF HIDEM SGET x1$ SHOWM GOSUB pixel NEXT z% !*********************************************************** DEFLINE 1,1,0,0 offset%=0 GRAPHMODE 1 RETURN . 犈!.. DCDTA SPC "@DCDTA15NSPC 3PDTA15N SPC 8@PDTA220 SPC $I PEISESS SPC (RCHINOX15SPC +W@CHNINOX SPC /h DCS33N15SPC 3q 50,4096,3407.95 p\.iB ;( }   Uo;ic5 BHBpi   oiO Bb } Uo\ o b4 O i(  \ U hBb5 vo!\'p}vw '\!BO! H;U4OB  B I;o\ }4o\5(.vi44p  \4(oB IiiUHU I\HiU;!cP Uo[44.B  v!.. V }5' IB i BUOU\ ;}pi!v(  bP c!! !} } 5o H } B5 ;'!!B } Ic;  cvi 4  }B ;p! P B i O/!  iA4i I iB wc  }5. ! //!4H p Io(   \ ( 5 "\/j II!#"#d/w]]  VB (( iPc O(  \;5   (i! ;v  |p Bcp.( !.i4'< c v }  p< pjciv( // Oc]/  O &w!W!W#d! B V5<! Vc~~! V6( "!]&x!W"$*$j"$j#d'-#$)q&&( ))J&6&6.+.-d5W1&x$*00x-#+W2-62D)063 /q49353*861=/3 4*P2D-::?XC1PE8@AeG8>Dy<<BlK$IXTX8IERKQKRRHJ_RRR[cV+VK_PEV+\]RRS[\R_epvni%gpkti`rcoky xyw{v9G'{4{N||(ivA]/~d˟]CW՟^*d0rfyfE`S&&!G#T/a59-KZTKUZw^`iWe~kp|Q?Ƚ:.">s0XB Fan&rkԺܮ3* /2UKTqv{`oI~ W9Uih )?Xh;`N|3Q^b #gGy p M$ ta !  P R n 5 2 cT w L  Y z r J r 4Jy1Η%E>gU|zW{h\'3YH  HV  61 + fF *"aD/*G}zT$] ;||M36%TIdTPS xlM;i3".8UAOaveu;epTkø#_b4 =kDHw]-9lIUiv,gv& l "|2bSw~ !)D@+AnP*WR $'0NR{:A}$*0%9K\`kpJJLt,; "<'];B@T>Y_c`Kn$s~My3h- \IÊ͋C0y_`${ `F'-t))(6C2FTA3B|DL>HToMA[O`}b_Wpcliwri5{n|/|q}6yz"JJJ=X>X#^#)_1+*es2fEEsz$$Rls _fzƎ SmǕ ,SψE˯Zψͼ׽&ňܜ2t&tӢ|G3oNӢa&AG-uhb-vGoaUv-O - @o-| G:bahN\''.oUii4-'c I\ (  V   B( ;\\p 4O p  \H ; B'! !4O!cc  v  V $)jB I!!j"]#$C"]&"6)!W6 /0('~%)!'+W&6/0'~"5W55"%+9r0x;=/3J@^4+6^7#5Qسesg "):Ma,N54AB27MO.]Q}[<I`qtrx}R8zmz |:V '*41J?O`GT?jn͌ 91 CS)^p|W"_BYp\jkfA:Rm%Ѹ+zIr$nIg+;":jpY ' ^   +: iJ - / ?+ % $o k7  '  ?L e 6 g6UJ~<)_#%E /bx9 e ^ >V 3  sZ{"`tw K%o;2W O,_kuֵ v8u!j܋= D $7OnW `PqJQfگM  +w31G=Kcilnfr~M}FF 44ʹdПe> 8m88* Y"m(2T-t):G@735&H RFBRXRGM]'`W[g(`UvcqvjdVojAe6^<5D:==?XA>A#H;FMsGOJGKPHGXHRGK=NJO>H@KBK$CrMN<;E=U$WsNM1J_W1RRMsBN\Qb8ZT\ZEO\_^`[LeLhktgokq}gyMt{qZw@z {~[4!}qC׭х7#QK>  @ F!+%a!M{&h-=;@ ;-9KO.[<OiW`]hgtK>+L?F͜[iBPC!7,><<>1X\oH4j,$?L<dWp}y; %s@HW}ŻS!5DjpQ%Fh}#+AfnHrCu]W 27 Y }Z  G  ] \% z d 3 Kj p   4 c V = Y (iHLY[rYO:]i I fG 0 j Y ) $ g, < X Z8"tSJo&S9tb$5`[+q5:-{g R.O6;9{"iExwR~_ngCz>vW=%g9?"|l.XsU3w[y/bV &CWݠ5j)^%-*ARiT٧za=ddy|NwX>`esv}vkl"\5HSds{b'jxy2=9:gT\Aq|W>yآhH("*0W9PE^MXHr`KsFztx%q{|{-;OIO<ݳ"ݳP=Xfe  $ RY`!g$"";L*${?h735?&?hHCAQIh;H MHb\bU4UvZT._[dUvdciwg(d|trqyxVuvkJ]xD=> >+lL$_R1+mµ`f28F2@ɢmψʩL&&ѕt&ҜaZӢۖЏ΁ԩ3հ׽aT3ܜ9و{TTҜ؂&&-nu| o:tM 44'&-'un|A 4G;3o:NN U' HG!A||-|\o''AONA;.obG! 4' i A. NU|-.[U.Ao߰4-\;uUh|[-:N '|4|hNohA\-a'GvuHbh v[U![(NNb|!oHANvb;BUp.BU!!U4v.b'Uv }iNHbbAoU'!GGU!!.p ;!i--! oH\ '!p} Nv  cB[ |bHi\A'b.-NoO4'N ;A-H!oA H\b!hHU-A[A- B;B;\A;;o'B Bo\'i}H\oA!}  .c\NU }v } Avb|Ho}v bG H.!jU\BU } Ub cNbo.U ;|O; ; ' ;}p ' H5U5'b[A!4U(AH!4.50.02,1024,3417.65 %7%7;D8t $ ~ kd j*_6q{EI!D62i*h+l"0 \&XI%.giK$  NH :  ^*8xpwW1? Z-%n;PkCq9t՘=O 3&{&LuFg @=,0wfyO  J 55 !0vP $kV ~X,[ߌ ~~l_F$~=$  "2$BK!R&L t*1J$YJ:&sI';&L_# 3!8&0?+F-8HEKKaa1P|DMab:_3xj;upJGK(}P-1Q)By Y 2TQP  vN"xVkJ:< XN;RhfDA8tT@UGrIn-n-pKwcB-PO0̹1 @5}5׊$ NޮBm[WTBP# X!R1 v NP "c!I~#6N @_ŕ1d*/ N;P#D (vC  3~P) 9{ U;s:L Uw 4 cp /`Cq Eo W9?+8x_'=A? 4$-) c!R/+/V3~5" %5q!.M #+F 1$91T .MNRqHD*nED\f0%5aDӸPӬk2I;p * s k eu G sTݞuU08H&VX@[r*`MVRmš'm'C+mu~VfPR=ldJ%9I#|:ZBȝ~y<tZ<" @u F @  ܄|*hr *. +~cãbFDeD< $T6T%n/#  3'Kz$p )G/  D- Tth H,k2weԺ܄9K m? UQtT$PX+5CX U))g  t 2c?_k$"l+p[)gC9~ \~t*;2$ȓzs K? rQɔ%ŻBlŐHgaN?7 ali(6ԝʕx+ &z]NT~ʿ;Cď:k9`Pn!}#p=;Aao ͗ǽŽ RPTSQAS+NƼbYfћ7ڢQbN>/BڢLqК*~eĺ p١ B[Őoϙ*9. w5X|?rDg2ަ_a6ďZzq"ۣ.M<\7@%NlϙDxS,ȓ / ?%?$ho~~BE+n[_՞5rۣ "ÎOW +=&d -#; x@ "_[/ۣ*1 M 2C)$b8s7FD*g,>\O2,eEd{yqOr`GHF>8-N9Y@$9.`glf f$9Q\RaJ$f NFnw4'lQ;vM%7Wwd)Z$cU"͋~'}֗ +Nh /R'p[d"70/; 2o*`zTDk<Sjb e L Sy :S@1xce!~pGave pOVy0 2],!~ ,#mM3[bWfE` nC R '  ,   @q.=3q<&ِPDE1!2Ew,$?NWg*$hf2CN ~!o_ C ll R   lYOԏ:!&ޗ%x . E :?{0B:ܳ-xzȆ?OwB`T'qN+A$FoAS0'U  ) N ȉ 0 Le#H(U!XŤU_>= @[^\LQ`?X' JqiVoՇi&UòV5Fkd( nD]rX h  ^Xu:{7QB1+ro ֍:q."Bxr8X{ ,W'y,bAE].I߃/s!Ug5!Âͮ30>v-jFHE?w4u]Dӆ>7 /5VC d)=@dK $.kFUfF4:2(= @^Î \;4NFR$(O" VlM'ܝR ,;DIELlooqv\\<}'eELtpGd"hrsɾdx.ùjA.#CZ 2Ttuo ~G8ʕO";-fz{AZƼ{>ECxaȾ՞$YlU ΘD5oyG!d<BjϙCɾnȓ_UI v(1 Őy=g eNK ǒƑJ< ʿ?͗tǒSRء28¸ 2K-0ћК@ĺikLsMʿtNۣx%xuÎrK¸ʕk%7"vCj;CءE Y]Îqq"UQJdQI \r}}UA]ћÎh3D)q@Ae<tΘ Hx ֟bHd՞.| # N+H3(;, u'ݥ%&P2-!_-(_I]"5)!ZDS 3hf`k!Py kJxU [4 S40IKdT_G9A;~4P:6cgFOhzQcRnvLYRlsS KDu}<͟ +pfeRq,A 6#F?hYswh, nSD10EJ[JXVPtǽ VOf}r{7=u/ ,ModkcѹRC`4U~u5"ek&YE8]U}idn\(ObVn6Y#vQzF2gc%.gF2K}ZF9[(4-5=pmQ';!SI]M;(+)_.V:fδjdP T-0wp4m^E1ͦZ'QPtG  ξyJ2b0 o km 2td[_o b$w C;5bs{%"5e!O~+m0=B}t'z56b 7TN"ցUÛ%f}n_۷)k3&*4.] e8]d,Az Bz8+1JϠZ/Aߧ0edbqQ28$f-;.wv$gIks?_s(+6kmIyyQEK'> .%b`p?oھ"δGAQCm@[:sRQz2ӕ8+g!?gj~ʿ(ZwTW\X2df }+AxslOp$JTޞG z@9! F&+('8AlV0\`pgrjvwZ*fw3iATy$Wn~SX|iAeR }nY]hv{%j~~yN'!CeQ4g՞ӜqeYOf>?=F@iZ G.}~IK!yďo}XD.x82[,6\e&`J)OHCxAZJ 6 #)ءth3 uMkg7u4ù&B m90Ae/, ԝm*G(MX-a\Ⱦl^22:Ő2e(cwۣuďfК+VC{Θԝ9ȓ@)U"~n\UpqS՞FQ% 'buEқrf|$${O)̖eDJ?.6-xء=ۣ|&?0OӜ }JoUce %6xӜ6ď.k BuUL/lq]ߧԝ}$oDƼ).ݥ(!4d!١!ɾtUқp^$l֟ǽbV\C 1\-hJEnTBx5X՞25>ӜKZŻzћɔǽ <ߧFk 06?7ʿ0 [K-L2"ȓ%h!Xvu7tқ4ܤiɾ.Bݥk$ɔ14I,% _Op^ c`a¸5,d AR_;%{A%$JnaqO[vқq c ʕ|*c[ɾ%x&UsڢƑGx$ JtަD N;=Q Ƽ-L̖LŐܤJȓ֟3*<>ʕO~ΘYERNk'ft+6aVpHߧ9CUPùj'xŽ[,50.02,2048,3416.7 _6f7+l29#l! GG-'ܜ% ))cT<<Cj3  c9tV5(}*MYQE'KMEu"4V1sJ~ ?E=e"6&{U*޳<]H0/% '|Bߗ>I(Bp$<-HQ^/=+wk3 Ce406!,X^N~Sb²]m-5ef, ^=;0߫5 3޺  %}i)<_SG#DX( ]RI` ; ~tPTZ,D 0{:3D#L&g=#lum`5k6\yx 2CM o$<wuD$i+m"Q= G2F Zw!16:HzO!POQ m7-L CԎP˝'3 "C#7VX2Vv/Irk_KaV -"&}Qk~7PEA!D F9ĚӸ<Q5'NH'HK7G)8_= 0. fRzϾԽh OG!ƲDs3Lf9|EJ9F\  .>NyEK0:NaekS]y Ob.dt0LDvo*f?e3=1KqUإJz.`2cgWr4?;/"$y}9TQ )"8r3,uI@ &  " A ] = ѶID,z'n}6SG H^:`wB z! dX z ӄ T Gq2[v.<(R#!hr " ^ Ag[ < X˾]Gv+$KQ]. < 6  .JRO …c6Ŷ . t^IޭXUz8a}$z&sD Hv9BNjA[2) Nwj&R(@TdKakld3̱?(3)A9>#AwbBpΞf3 !HLf'~z#H7߿BAmSf^PbN sJz>Z!??#:+=Pu&FU1qA>kfNwhP`"[OK?R +YKԊՁ?(UItN rly z!g"J&;?irE?Y1%\J-LCv^o"`Y(#u,P6~5]ܜ)\w]_d_e*~:] F !  R Q 0  wt4y*#Z} j?' 0P t Y o *cl"x]dS*_v8L 4 } g? .)(o |i Q;ķVVxP|)0BHP"*fR I + PN  ~ ]V S iMSPgi f]TuK%[[=1p--rn[gZp. m`&"#Xw@IΜ"dI,MQQP 'aSBm!+mF;xYiQ6_ExmdPLVaV9^z #r,<9s& '0'2A8_\x #\ HH/#RKo}zi&HDsUl! bsmmlO>&%%X1@H*iZWYoMqw*8X+ۉM{<"=q,nJ*Z¿vC0^lu+d^dҥIzRr7T{AxK|[ `|nJkc 7L`wX{(J"$|]*3gG3Up̉_cT.M`+F{#DTLw(RAd"g7E1^],r*QTyi6}9Nc0.,Jc2J}B З#|#9o;AiQ ˨R%aU?l}_[}qUG= Y% 1}_Z7fFQ$B/>df Ԡ#߅R A:@bN.~Ǯ mMk)m  $j\l̟;? A(n`K P$Kj&p&Z&$Pmx)(X 25]ܠ*+   >txz,w;K3}$/l֬mb$(Q(<7sf| t@dG2sDaVm|&w$ # `_)iKq9,?a?Ia0kfJ?ŀtX)pl&!vi( 9PFRM~K>i <qwmb:/Qg ?|e8HbG 4~*k$4lnݍW2-o]@_A( aK>ogKpi1O t&V*@93fq{7`clǾah"WB"vsl P+>c 5[ `@4N&9zIC]7?'KQl&`NJc̖1cU<\?d wOGkd=/JV+f!,Clo3Y[k>rPc@(^v,P\cSsugpK01s4T+mHOqW&{!UZ}~Ԟ](kOvU;JMSdzx&-etLjdCZOT%FNgc߲V #2l:@{rn~Y]Xg UWMdnlD-s5:h\%i$ݚx26bdZV kh.0I# g '*wsmgv9q[lЉBәAe)6ulD_E]9Ip-D\9X_9+fr"xw] "4)}@ sdznDB6GK/Y?Q67X"&Xa3Ԟr[\ ]>dJVwIjsdVH`u', ^5cBOo`MA.[| tZ  MFpNqc50.02,1024,3416 uĽN8?jr֯r?ÎƄǀ"q\ȯrϖԶΙċcy"яY\Fɫź18QċÎXc"4F&j&ВJƄJ-ʨ1)ĽĽ1uJN8ˤrʨU’ճԶCg-ĽŇjUĽ48NźCgӇGYВnXɫ1͝}nبҽ8C`?u׬?r<ƶ 1*ߏ*YU9kK~#1?3K:R_p81R[.tMC/.~W`rP5 6 hK^;P//X=>W b _ ߶-7%itu(^ ? Z V-:.]#G;R he e ExPe ( 9 FSPJŧ984d W "ilJAЧGgP'\JumE>pq,ֻ+ߎR{:EDP7-rf >rt?k7`aojQ9Nb-szRx0saѣ0lbͧF G4dE'PeV^vt P;XB8 uب`BjӺӺب ǀ)Ň&gRڡ}#h8&}Ӈ٤C 5 % L@#C@/<A% l/ZUUI`s Lt_!WG.c5 F [j0h}S=jk%!uEJjxDvݍl& ^D?r?RVL.)GU]ʲb3kAɬ:8{gX{aZ!:|s005t|;zpPևr!v29:O>KYhkrz~WIz xM3BIu|Mc"Mqn|FX;B--Q)uj_0J q" &q jĽ;ĽX)QyT|1 ;ċŇ"ynqy& cM14_n 4ϖXŇźɫn’-c"\źn?` |Jjn?FCnF’ )-Î&| ƶn"X50.02,4096,3417.65 {{ $Z o [ \/ #v IbrX  \E 0>BOt~ w \| Mq? z\2y& VT #*|p  ~U DT0 A tq!^sl=4A $B)6FC#k, N+|_#;  zBZ1oo zvpU (1i t&glf4  M F`n SY]H`) wS" =~W <]Wo j0CK[P>Ez4=: 99$sx z BF T * tsFN)`#{@"w y .  . jH[ =9  s 2i >\ rRN+"    >Nt:9: u d$/ < '&6) R 6{]% x # Tb 'h~ o= n ==mI  +L b}u LhIlvud z T   H eF6 tw_ *A h\*{M \M%@ /Z8+#{dd |0wFD[ f # .UW )5LU HEuLp Wd: $ T nF  ; 'r 6  #N -$Qq-oU J SC  E]o #4Rl!h  {ss.)S) 3#D #D M 6v4C* z/& >X3@.)P 0l(Xb| z _ )C /B,'("d * &10#S*6)4!z $ -l w06%0-)x'HB:)C 2H!"66886=G5;04%8V*@@1@/B@B8=7;=9>@m=#b!h,0/n)< y.5-8.D93c8G<6j,>)?`B79<-A,J2W78VFM4C90QP@Ix&&+/b="cY7qD@Ϫ6N\WSvutъ܉|/U{,9nÈN(siP`%Pfu;'*=ib2}/xMDxvy>d'WgUG&?Vm2 :P@ 1 ' : &#636]~L2aO%}ikU|Smbaxr A*4,Kbpk+PDZt5)G.% m t! &8 yE b U I ]_9:JA"ñC%^U%=dHu+?x p~N X IXd PBf!b _"84% 0 #"WQz% G]&a0B&x+A7"e@&$ $$+y3' W7&N U kn]rl7   2 X|wXEJΗ7ے [.Eh_hY X) rbjޘ*tݛ^<Lk GVJ zc h 2  >  3 #70 GB   > TH P.~pl=!"((%N0]0N(+#** - P:44,;L[[PLR<Z=uE#SYsNDS]YUIA=@]E#KH8;kRwIc_EXIQzYdV"ci{.-8FsE[zv) *~GkNXHXZ~LD91$JGt=~+6b3 G~mBohl [b}zp/zzǴDkX5VA\5+#:"/F:.cOӱx'1@+G|s/9-B:XOO/s,70Vc.sf8}^ C5gf'CVw9[ZӓָvRr31<6UPمQ5EP WLy5 ݠp`K`HPvkκHNt.=|qr_h| h\ b 4h;@XFT3=(/5X/"[4M+&6=4Z} N] N-j%<(MD-Czbh}b V>"|L;U?xaK0 bhq+}->9raQb.v@׮RP7oz57V**)J: Q&C90(>/HI}nܶf h g+][N3S2gve[WdLSz &?h=n*08@5f6eo] aN+J\xuKzc;/[sH mB1WUuVVCA^DVPDe)@O/8BQ^zĜg ^Ps-& Bj͵axنY m) >KzCj->'iwv~ "O=G_aT[UkpuwзSb9CavgY@sKV!@±c]J >ɛ ǒʨI R,+>Phi+i߬ :\Zj^:9Yk[ OZ1?znr0Xc]`x`pIah=}}%nnxYL;9Qңؿ d sAV{_xFcʾyRQKGg$0'"& "T:>BGCCqG^F-DBU"ir]zml=ad| v]wZwZ{xIwx:w_|+yzZ^r,}h|@[ۯIYO֮GWlV6߇lo̬3nL0ȨHUڔSB`D;я^5RɇzOѼ)a2cJF` ?BݪؚٵҪiRڔݹ~Ĥ 4݌Ng ";ٗw9D,;;m\sch_QߤwA)krcWۃ @:߳ | "n2N߇A}\XvAF7 EAFbH> !! L2sxxc s~`! r]oW=+b% H}T@ k5C_23WJzp m'o; %|S2g#Z/1v < M_c) 7 wA)VWI@ch027 ?w%cWU'FE\R 9?D5)yL)6 GF7B!z c5 tM 9 h:gP 6` f90 >%\Vf*]\ RcD':8nBSr9j%! V2 .;vg? 'QFfJ x{@~$Rܭ6~S3 N'NBw;Is  O- A!v+,#Et /[%+_[Df PnS5&7S5K p \ J_UpE`  kbE2= r 2/"!_  Y D*6W\&%{) \bosh9dX)2{ ).4 ]{?QIY 2  O zs  0Q n N A X?vM2 f\B  #aQpfuf:{/{K'4_ x0ݛUl_vwdORnwH<[ ~  .gOR50.02,2048,3412.2 mmO>rTcp.fr83NRHk%Ud1o:JW,V}6)Ll]X1XO)R:#V`OŠC-)}3:FaG lGx,^g6J7s\zsU }IiK2x(ElBl.QDvpMyCd(rGz0UY+fo5y?uQ0`˯ b+u TZru9Q Ui80E# *h%_jm\\bڡ*l7ǽ0\*ienA{Aug2=2IYv _D "k")R%Gm"s)k>BT9C1+# S Y5y7ǿ_/m x/yWtWLe72l z & n)x*<>6P4j>2uqI–r"Sϴ=) bs/*&F2e8)G sI^@)lpo63FgB zu~*  XL0#yf{7VY.fae-`"b fC'(73Qsb +2i.f65FWpLN>8,FPH|-ss3j:m<xul!2m %nMf5]^Fz\z"i-jz3I._DWn%#(`Jw6]9r+@{T;[a7.rT8NST(d~NDNwi|G=M0!1ZS$8& mp*A>cܞ p YU5T  K{/l'B `{yTؑal [' [D= 9 X w ?S hk]t*]JS#KX-D f j J@u (r?HuX 2SCrϊ^| 0 .5S yfgz*d4,I\.Dit'\V>: h`)\N NhC;p}/us%)\zSz 4l`3:xof?o:+њid63'aS$PeksI$L,N(3?e Gȡ/}=d]Wm#fԜH(nC#%K—VP\ % WgesSSu+4h4he;jyEzWMGO,ӨmUв3qIͯ{zZK"3??lDe!9*Uept 6N+8T'Z .Qg"TweOeCfF@($Lho·FSXR@lí/`bY(zՖ.J{`wk$%YB[;LrBB<6a_K9PE a%"?H3{Zh{`&n7n}Fhh6Aѷ*M  QQl  hy=q\r`w(ÔDb|kdz7^j-pٌ3z`-A2$c`.wEOmC{n%OEMSB|A#S؜kQK}  O  Ϛaw Ij5zu<OKE9]& 3 +  `+f\\t,t6ew1lN.SP6 T 8K"^9-1Ryxi?btT !  Z-w6DFA3CMZ86tc9MyqzKtToS؟*"AS .v>(WkؽLu,^];ˀ9}b>OHė gv%Qsm+4Ba<܄FAko32·?u(zG z6d2g(8jP].Y2Qt=ңU9:F:zwOrh+q"A7'kI];z /p 6y*[eTI tRLvWh/.`$ A;s d-pҁ*hT6Ūm;۵'?01LR1LUa6ydgtq]/%QV&%ha;z| Y&ahuiS-W#LD pA i%: ,3Wqv7e*S#x JRaq08g\iMs!3*OI'~IVkl>5(=9 MfJ*"M-;RP$y`m>c!E>=lpH KFKOHu0Ezv!'"7Yl2[SB+7z]U%ST@W^]w[P@>hDiQtTm~<FlLmG'V:l G q%EZbIlbExQN=У9ۚ+5^` lVpYSiDՈ+'#u7pRi'JE֤rebjy!i(pysI5vnC\Z&B]6&0>h)NJ7͛Ȑ;KnGKL6GG%N:~ drJ3Ty_~CkۯFAoM|H K'8)xb]ă$+nj2IVy-]hIA^!2Ɉw%Zǩ"z *%GInyuBXo,vR8Q38ڡ#YF61&)x*Se&4>96E$43re/+w>]RXj}WT#V?S2A``]۱*~&e Dd&7|7d7]X"zt,NP49y0sGSM{BP'@ukO^D6eHZʼnv*d< hU#?jiO ʼ#tDS 2Ez z Is8?H=1?,pH2|QS N-9 'MDXO>|ASa{eiN;X^;uWzCS|zN58%bY/||AާYbv.!Y(vI jnSf+k\_6L"V4x|C U22lJ.?50.02,2048,3417.65 11iC..,3q@V*f^+~#%8`~^#f&.q٬=~b>Z_6YZKUz>s{7A6x,`FU0) =Ap_yMBqX~os*'1SF? )eR,-A*~'i9J BRqTIN$& uX]o19'` 0msD1 MHְ%jO 6#R]lx4&_C&2PU\ F'i d_v8B ID9#zps&KAME&kk2Cw*Eq:4{a ߝ|i`=$,<>"$6HJ0BRqgozp&&KG oK`oXU{W m+~uKK2'`l jw*IPs)SR!R7g > J vsw(*%T>_)Q$E |_ӨbbKc$66 '/1z(sW]ѝtHK>9zP~s) KUҳX*ɇy/-k +P60ip<0^Xt"CO4x>E"g]XgC@:DedV9'aURfR]ҡ@kr` Patq'X7 4P#ʲ7zV93F-X[x+Eq8TL3t#PW<&l) pI%g_N|z5< )fE]ھm@NjM/'$~= ](IjWuIW6ert!`,4IRjHpBLs-V:%_j`)5}"#kag|5_; P q ? 3 Vv  b P C @ h TP f m] Y e=4GhGsG~GGGGGGGGGGGGGGGH H HH HHHHH*H*H*H*H*H5H*H5H5H5H*H5H5H?H5H5H5H*H5H5H*H5H*H5H*H?H?HJH`HUHUH`HUHUHUH`HUH`H`H`H`HjH`H`H`HjHjHjH`HjDwA80ޡXG_lY;I V XPH4 b9\)i6l8;q(s*`c//e^NpKY=" A.CQcWYc2wcMw0Y_UڄF 7"97~$Ob;>p a/=3ɠbb3e>fttip\-]3a-r~}j; -du@%Kk?)(VW`lX608ma=wC' p:$oV~[gL/rBN)e:'O9 Rsi=y`2>,jN'ab:#Vt?jbTb=UcnJ!i3%Lfy|; KjN>| %K57v3 PxPem^KG\/,~U:,5 ~8Td‡rAdrT֏OcDTP_fRV6-cD9C rUB:,<_3DZk8kd{4!NkQMeh awؗ)yRI#@Pպ(zz 42Zdmt5X_d4Sk.\UEL'e.ъ0vtvEUpuCDISg71:uz&}u 0A7\7eنiJ 3mn @$ O~EShPYJeu 9-> s|Jx `f 31 2FFGFGGGG'G'G2G2G=GHGHGHGRG]G]G]GhGhGsGsGsG~GsG~G~G~GG~GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG{ʛκѡo CF=ߣeTwq^+8:2u W9zQi+l.n%q(^U7mZg)TL#&RIs4z4V[.SQT7P5 m =A![QݪHzTa*]^PZe]+wUzVLI ֹwim??oM([2fuN^9eS~]s}4}]@~2-Q_4Y&Tgfg-tKP0r$޾7(ыz$&ӓJ '}(!.-|sT/0i~}0DZ)p(!G/ISQ)GMRyU~WS.bk{Cvf͙6ʝNV Zb*n'b~T2_e16&Y2+^ -4EdRD>K0-4el| JȍDa jC[O.ŸJfƩq`s Akv+=!KD rD0I|4 n|ٴ/92rt|]w%5=ӛFZ:"qeKHvp-jCj O!YS9=`XhI am{