' +JJJJ ?\>m0M='+l> +l   d@LҦ{|LFBBbL_E` /LX X  ` 鷎귭෍ᷩ췩緈JJJJx L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"  !"#$%&'()*+,-./0123456789:;<=>?354+,,,(((((((((((((((((((((((354+-,,,((((((((((((((((((((((80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED f $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`  cpq` [` Y Y LCӜu`y".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎL yz a`` L̦̀_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n{ y `@-eff z L }f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\yzL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NСyz `A@` LL`  \ ޿0 \  ȟ Q ^\lZl^?cqH şch`f}h~j@OAP`u@`@g&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`M ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-( Ϡ@yy`\ m ͭ \6\ 8 ЊL5`H h L~̮ `{|Jmmjnnnۭ}m~mm`"L 8H (Y`F d̠֠ĠƠz#??? ӮӮXT 4TH ORDER RUNGE-KUTTA'P0P1T0TH:TTTD2500N P1PSXT1TSf P0PP12u*T0THT124TTTDT2>2500HP2PSRT2TS\P0PP22fT0THT22p2500zP3PST3TSP0PP3T0THT3TTTD: PLOT AXES*I1NS$4PERI4A>3500: WRITE PARAMETERSMHJ1NEkR4000: PLOT THESE POINTSr\Jf(49152)128ī870p49168,0zJ1NE4000: ERASE LAST POINTSJ20:20);I770 SUBROUTINE NEX:ARR(5,0)N:ARR(6,0)EF:ARR(7,0)NS:ARR(8,0)NE:(4);"BSAVE ";A$;",A";(107)(108)256;",L";(109)(110)256(107)(108)256: "REPLAY ?"::"(AFTER EACH DISPLAY,PRESS ANY KEY TO":"CONTINUE )"::K$(K$,1)"Y"ī950  3000P I1NS1I! ARR(I1,J)TH- PERI4J &3500: WRITE PARAMETERSh 04000: PLOT THESE POINTSo :J{ NJ1NE X4000: ERASE LAST POINTS bJ lI v : "SAVING CALCULATIONS"1ARR(1,0)VP:ARR(2,0)VZ:ARR(3,0)F:ARR(4,0) A1.602E19EF2 1' J1NE9 ARR(0,J)PPINS ARR(NS1,J)J2PINEZ Jz I1NS: STEP ALONG CAVITY J1NE PARR(I1,J) THARR(NS1I1,J) T(I1)DT 2000: CALCULATE P PERP AND THETA TO END OF STEP ARR(I,J) ";EF" :"ENTER FILE NAME ";A$: " GET READY TO PLOT@ ,R 6 SHAPE TABLE^ @I117e JDt T36864I,D{ ^I h 2,0,6,0,12,0,42,36,63,54,5,0,184,45,30,4,0 r232,1:233,144 |3000: PLOT AXES NE24: NO. OF ELECTRONS (UP TO 24)0 DT4F1E9 NSLVZDT. NS(NS1)v NS30ĺ"ONLY 120 OUT OF ";NS4;" PERIODS WILL BE CALCULATED":NS30 "X ? ";X "AXIAL MODE NO. N = ? ";N KNPIL WC(WKVZX)GAMIN: NON REL WC (E * B / M0) "ELECTRIC FIELD IN V/M ? ZC2.998E8 dMCMC& nL9.6E3L x"VPERP,VZ IN 10**7 M/S ? ";VP,VZZ VPVP1E7h VZVZ1E7 GAMIN1(1(VP2VZ2)C2): INITIAL GAMMA PPINGAMINMVP: INITIAL P PERP PZGAMINMVZ "FREQ IN GHZ ? ";F W2PIF1E9 TЕ  PHASE SPACEW TO SHOW BUNCHING OF ELECTRONS ON THEIR WAY THROUGH THE CAVITYp INITIAL PARAMETERS(::36864:163842" PHASE SPACE REPRESENTATION":" OF ELECTRON MOTION":<ARR(61,24)FPI3.1415926535 PM9.109E31        YURP8 xgޕޕ((#vC˕˕!!U!Ld!ޔהYY g湭: 808`OR!!!!!!!!!R! !!!!!!!!!aaaa>>>>>>zMMMMCC99zzaaaa>>>>>>zMMMMCC99zzaaaa>>>>>>zMMMMCC99zzaaaa1)! `hpx00hp`h `hpx1)! `hpx00hp`h `hpx1)! `hpx00hp`h `hpx1)! `hpx00hp`h `hpx1)! `hpx00hp`h `hpx>>>>>>zMMMMCC99zzaaaa>>>>>>zMMMMCC99zzЀЀ```` 0000@@@@ĀĀĀ 0@0H`z   DD[DD (08pd|dI HI18R10ECORD COORDINATES T0* T11E9FN2; J1N1N21J N(J1)N2u 1911,((N100.01)10(N10.001)176) 1910,((N10.001)10(N1.0001)176) 1909,174 1908,((N.9999)10(N9.999)176) 1907,((N9.999)10(N99.99)176) "ENTER NAME OF DATA FILE"& . F$4 ^ "CALCULATION HAS REACHED PERIOD NO."p D$;"OPEN";F$ D$;"WRITE";F$ & RECORD PARAMETERS AND DATA POINTS 0W2P :W12P DE1 NP0 XN1 bN2 lN3 v CALCULATE AND RS OF MOMENTUM ^I18' hA(I)IP4: rP1(I)(A(I))L |P2(I)(A(I))S Im  SPECIFY DATA POINTSs  "ENTER NO. OF PERIODS" " NO. OF STEPS PER PERIOD AND" " NO. OF STEPS BETWEEN EACH DISPLAY"  N1,N2,N3 "ENTER WAVE FREQ IN GHZ"? " DELTA FREQ AS A FRACTION"^ " ELEC FIELD IN V/M" " INITIAL MOM IN KG.M/S" " ,F,F1,E1,P0 6WPF2E9: OMEGA @W1(1F1)W: OMEGAC JG(1(P0MC)2): GAMMA T INITIAL X,Y COMPONENT|d PROGRAM BUNCH IN BASIC/n INITIALIZE5x]P1(8),P2(8),Q1(8),Q2(8),C%(8),A(8)pP3.1415926536M9.11E31C3.00E8E1.60E19D$(4)" ELECTRON ORBITS" SPECIFY PARAMETERS      888|:8F@888|:@8F@łիǂպժÒߺ݊իѬߊիՊՊՊԢNNND?@ p1`NNND?@0@1p`рłѠծ脊ժăĀФ׎ׂꀀ؊ՆբՊ脠աʁJ)2PI1608XD(((XC60)160)((XC60)160))16060B1:0UJNEĕ1XD,YCiJNEĕ2XD,YCo END OF PROGRAM" 22:15:"X = ";X- 22:25:"N = ";NT 23:1:"EF = ";(EF1000);" KV/M"hPER$" "(PER)23:23::" PERIOD NO. ";(PER$,2);" ": SUBROUTINE PLOTYC159PA(I,J)PPIN80YC0YC0YC159YC159 XC140TA(I, 60,060,159220,159220,060,04 60,79220,79G 140,0140,159M o SUBROUTINE WRITE PARAMETERS VP$(VP1E7)" " VZ$(VZ1E7)" " 21:1:"VP = ";(VP$,4) 21:15:"VZ = ";(VZ$,4);" E+7 M/S" 22:1:"F = ";F;" GHZ00 P4PST4TS2PP(P12P22P3P4)6PTHTH(T12T22T3T4)6Vl SUBROUTINE CALC GS(1(P0MC)2(PZMC)2) PSA(KVZTT)(T0)DT TS(WWCGSA(KVZTT)(T0)P0)DT  SUBROUTINE PLOT AXES :3"4TH ORDER RUNGE-KUTTAP0P(T0TH1TTT;2500E P1PSOT1TS] P0PP12l*T0THT12z4TTTDT2>2500HP2PSRT2TS\P0PP22fT0THT22p2500zP3PST3TSP0PP3T0THT3TTTDT25XES*I1NS4PERI48>3500: WRITE PARAMETERSDHJ1NEbR4000: PLOT THESE POINTSi\Jf(49152)128ī870p49168,0zJ1NE4000: ERASE LAST POINTSJ20:20);I770 SUBROUTINE NEXT D$;"WRITE";A$1VP:VZ:F:X:N:EF:NS:NE=I0NSIJ1NE_PA(I,J):TA(I,J)fJmID$;"CLOSE";A$: "REPLAY ?"::"(AFTER EACH DISPLAY,PRESS ANY KEY TO":"CONTINUE )"::K$(K$,1)"Y"ī950 3000: PLOT ATA(I,J)TH PERI45 &3500: WRITE PARAMETERSS 04000: PLOT THESE POINTSZ :Js DPAUSE11000:PAUSE NJ1NE X4000: ERASE LAST POINTS bJ lI v : D$(4) D$;"OPEN";A$ D$;"DELETE";A$ D$;"OPEN";A$UP TO 24) A1.6E19EF2# 1/ J1NE@ PA(0,J)PPINV TA(0,J)J2PINE] J} I1NS: STEP ALONG CAVITY J1NE PPA(I1,J) THTA(I1,J) T(I1)DT 2000: CALCULATE P PERP AND THETA TO END OF STEP PA(I,J)P D IN V/M ? ";EF, :"ENTER FILE NAME ";A$D " GET READY TO PLOTJ ,\ 6 SHAPE TABLEh @I117o JD~ T36864I,D ^I h 2,0,6,0,12,0,42,36,63,54,5,0,184,45,30,4,0 r232,1:233,144 |3000: PLOT AXES NE24: NO. OF ELECTRONS (EQ IN GHZ ? ";F W2PIF1E9( T07 DT4F1E9F NSLVZDT NS30ĺ:"DATA WON'T FIT":"ANY KEY TO START AGAIN":K$:10 "X ? ";X "AXIAL MODE NO. N = ? ";N KNPIL WCIN(WKVZX)GAMIN: INITIAL WC  "ELECTRIC FIELETA FPI3.1415926535& PM9.11E314 ZC2.998E8? dMCMCM nL17.5E3s x"VPERP,VZ IN 10**7 M/S ? ";VP,VZ VPVP1E7 VZVZ1E7 GAMIN1(1(VP2VZ2)C2): INITIAL GAMMA PPINGAMINMVP: INITIAL P PERP PZGAMINMVZ "FR  PHASE SPACEW TO SHOW BUNCHING OF ELECTRONS ON THEIR WAY THROUGH THE CAVITYp INITIAL PARAMETERS(::16384:368642" PHASE SPACE REPRESENTATION":" OF ELECTRON MOTION": <PA(30,24),TA(30,24): ARRAYS FOR P PERP AND TH     RR(NS1I,J))40/YC0YC159XC0XC279ı91:0LJNEĕ1XC,YC`JNEĕ2XC,YCf{ END OF PROGRAM0))9095XEXD90#XFXD90-1:0@JNEĕ1XD,YCSJNEĕ1XE,YCf"JNEĕ1XF,YCz,JNEĕ2XD,YC6JNEĕ2XE,YC@JNEĕ2XF,YCJh CIRCULARrYC80ARR(I,J)PPIN(ARR(NS1I,J))40|XC140ARR(I,J)PPIN(APER$" "(PER)>23:23::" PERIOD NO. ";(PER$,2);" ":DZ SUBROUTINE PLOTlB$"C"ī4200~ RECTANGULARYC140ARR(I,J)PPIN60YC20YC20YC140YC140XC140ARR(NS1I,J)2PI90 XD(((XC95)90)((XC95)9OUTINE WRITE PARAMETERS/ VP$(VP1E7)" "G VZ$(VZ1E7)" "d 21:1:"VP = ";(VP$,4) 21:15:"VZ = ";(VZ$,4);" E+7 M/S" 22:1:"F = ";F;" GHZ" 22:15:"X = ";X 22:25:"N = ";N 23:1:"EF = ";(EF1000);" KV/M"3100 RECTANGULAR= 95,2095,140185,140185,2095,20O 95,80185,80c 140,20140,140i x CIRCULAR& 140,80:180,800 I1201: THI23.1415926535200D YC8040(TH)N XC14040(TH)X XC,YCb Il  SUBRI0NS &PERI42 03500: WRITE PARAMETERS> :J1NE\ D4000: PLOT THESE POINTSc NJz X(49152)128ī600 b49168,0 lJ1NE v4000: ERASE LAST POINTS J I 490  SUBROUTINE PLOT AXES :3 B$"C"īS J (49152)128ī430, 49168,08 J1NEV 4000: ERASE LAST POINTS] Jd Il : "REPLAY ? ":K$ (K$,1)"Y"ī670 :"ENTER R FOR RECTANGULAR DISPLAY":" C CIRCULAR ";B$ 3000: PLOT AXES  620 @PI3.1415926535* JM9.11E318 TC2.998E8Y ^GAMIN1(1(VP2VZ2)C2) hPPINGAMINMVP: INITIAL P PERP,USED HERE AS A NORMALIZING CONSTANT rI0NS |PERI4 3500: WRITE PARAMETERS J1NE 4000: PLOT THESE POINT 140B :"AFTER EACH DISPLAY,PRESS ANY KEY TO":"CONTINUE"R LOAD DATA :(4);"BLOAD ";A$;",A";(107)(108)256 VPARR(1,0):VZARR(2,0):FARR(3,0):XARR(4,0):NARR(5,0):EFARR(6,0):NSARR(7,0):NEARR(8,0) "3000: PLOT AXES ,1< SHAPE TABLE FI117" PD1 Z36864I,D8 dIi n 2,0,6,0,12,0,42,36,63,54,5,0,184,45,30,4,0} x232,1:233,144 :"ENTER FILE NAME ";A$ :"ENTER R FOR RECTANGULAR DISPLAY":" C CIRCULAR ";B$ B$"R"B$"C"170| x DISPLAY DATA IN FILES FB CREATED BY PSB.P PERP VS THETA IN RECT OR CIRC COORDS FOR 24 ELECTRONS EVERY 4 PERIODS. INITIAL PARAMETERS::16384:36864(" PHASE SPACE REPRESENTATION":" OF ELECTRON MOTION":2ARR(61,24)       END OF PROGRAM 5XD(ARR(I,J)PPIN(ARR(NS1I,J))100)bYD(ARR(I,J)PPIN(ARR(NS1I,J))100)}X$(" "(XD),6)Y$(" "(YD),6)X$;Y$;" ";J6J12J18J24ĺ(13)HK(0) END OF PROGRAM (0)YCD JNEĕ2XD,YC*N JNEĕ2XE,YC>X JNEĕ2XF,YCDb Sl CIRCULARv YC80ARR(I,J)PPIN(ARR(NS1I,J))40 XC140ARR(I,J)PPIN(ARR(NS1I,J))40 YC0YC159XC0XC279ı 1:0 JNEĕ1XC,YC JNEĕ2XC,YCC"ī3180 RECTANGULAR6 YC140ARR(I,J)PPIN60G YC20YC20Z YC140YC140{ XC140ARR(NS1I,J)2PI90 XD(((XC95)90)((XC95)90))9095 XEXD90 XFXD90 1:0& JNEĕ1XD,YC0 JNEĕ1XE,YC: JNEĕ1XF,VZ$,4);" E+7 M/S"-22:1:"F = ";F;" GHZ"C 22:15:"X = ";XY22:25:"N = ";N 23:1:"EF = ";(EF1000);" KV/M"*PER$" "(PER)423:23::" PERIOD NO. ";(PER$,2);" ":>(230)64Č2049: PRINT ON PAGE 2 H  B$". CIRCULAR@8(230)32ĺ:(4);"BLOAD DISPS.CIRCLE,A$2000"sB(230)64ĺ:(4);"BLOAD DISPS.CIRCLE,A$4000"yL SUBROUTINE WRITE PARAMETERSVP$(VP1E7)" "VZ$(VZ1E7)" "21:1:"VP = ";(VP$,4)21:15:"VZ = ";(LAST POINTSJ!1#0II22:INSī620>DPERI4DNMX410Ul:jv"REPLAY ? ":K${K$"Y"ī280B$"C"ī1070 RECTANGULAR95,2095,140185,140185,2095,2095,80185,80140,20140,140$ RS  PLOT1 J1NE<3000: PLOT NEW POINTST(230)32Ĺ49236,0l(230)64Ĺ49237,0sJJ1NE4000J(230)32Ĺ230,64:500(230)64Ĺ230,32II1I0ī560J1NE 3000: ERASE ":B$#"B$"R"B$"C"320,,280m@ PREPARE SCREENS,POT AXES AND WRITE FIRST SET OF PARAMETERSuJ:|T3^1000: PLOT AXES ON PAGE 1h230,64:1000: PLOT AXES ON PAGE 2r230,32|1I0:PER02000: WRITE PARAMETER(6,0):NSARR(7,0):NEARR(8,0)2PI3.1415926535BM9.109E31PC2.998E8qGAMIN1(1(VP2VZ2)C2)PPINGAMINMVP: INITIAL P PERP,USED HERE AS A NORMALIZING CONSTANT :"ENTER R FOR RECTANGULAR DISPLAY":" C CIRCULAR 79,6,157,79,10,189,207,6,157,207,10,189,79,7,157,79,11,189,207,7,157,207,11,202,208,229,96 q FETCH DATA FILE:"ENTER FILE NAME ";A$:(4);"BLOAD ";A$;",A";(107)(108)256VPARR(1,0):VZARR(2,0):FARR(3,0):XARR(4,0):NARR(5,0):EFAR< SHAPE TABLE LOATED AT $9001+ FI1172 PDA Z36864I,DH dIy n 2,0,6,0,12,0,42,36,63,54,5,0,184,45,30,4,0 x232,1:233,144 WRITING ON TEXT PAGE 2. SUBROUTINE LOCATED AT $801 I130 D 2048I,D I[ 162,40,189, x DISPLAY DATA IN FILES CREATED BY PS. P PERP VS THETA IN RECT OR CIRC COORDS FOR 24 ELECTRONS EVERY 4 PERIODS.  INITIAL PARAMETERS ::24576:36864 (" PHASE SPACE REPRESENTATION":" OF ELECTRON MOTION": 2ARR(61,24)      m ph3c*w_ ^A^݊a/ႂe96VjqyQCƃn Z|DAQMԃ 7ƣ= !TR7e7017n7[P7IU7U7h7Q7&7;7F7^g$7 7j7`77!_(7$ȑ7(37+E7.E71I74476vi78Q799&7:Ŏ7;gNM7;g7;Μ07;hIڣEA<>"119@54C/!\*56&#X$:x1JJT4*Tԣy7h<7,7%7^j7E7y7~ 57(Z7fֻ7 07#7&U37) 7,T7/)72ϋI75d07779nE7:oy7;ē7ix=hiiʂlsq5ۂw<ʂ~:izY7*a7. 70-73762m78Jg79eG7;67<m7ƕyJ AIw!&X+57e737'7q7s{7;zOJ7;&7:7;$/M,p (aI$* w-w {sOL9{\xtwh`wsz nj}D&!) ir'guMă$w6)+Ճ-ܕ[2A7e7977 #871\7T|7+77U7T7A7rR777",17$sm7'j lCLYe|1z$?zTQs{~v`hɃ =Ls}ڃ*"߃'@+?/4Ӳ8U#7e7CM7s7i\X7+_7r4'74d7Gc7{C727 7!A7$9&7&7)>7,n7/Or72774y76D787:b17;m07<h7<>W7<%E7;` L 6kOPԃ#փ {%x)؀.}15ǗK9+=G7e7N[7M7ق7 7A7+7K7 O7" ^7#t7&h7(O7+/S`7-g70A73Y*75yH7779,7;7;57<="7<67;t7;R/+7:7:U;7979n479~'62$s q0;|컃>~B9]7e7[7M 7R77K7 @7!ޟA7#b7%D 7'x;s7)[7,m7/Tw727477b<796/7: 7<7Qm7>hJR7=|7=&7< x7:79o78j774767676z O݃C -u,̭BND63~}z&v&tUtW7ۂuhxUM|ĺ' zpCZ`·"j'r,@d0v4_X8 7@-7@ #7?.7=ܴ73-FArD/{Go7e7i77r7 WӁ7!37"kaJ7$Ddž76g鿃 2~7%%wq>nkg @c/$aQa-bOme^gׂjNT܂ql%y$`oƛpe" (_:a.HS3Ń8#=uJAy~DH!2;KgN_7e7wk77 @7!j#7"SQ7#17%7(1N7*>7-K7073MZ76&79i7;쨮7=Y7?FZ7@[T3AW֍[da9yiDtJ0P O3($'+{2Z8_8j\='(BݤG\wK|wOY|SVI7e7!7o7 7!C7#C}17%'7'h7)#7,ִ.7/97376XG79$Y776$,қ4e˃;b&AĖ!GiLwQV['3_u7e7;<7 y7 7"A7#%@7& 47(z$7+9ϖ7.>p71z74V78RWa7;+>7>7A7CZ7ET7E(7E67D,27C 7A =7> X7<.7;-W7978577kW77x776{SKthcm}_g⩂a*\XRrUl7TB7e7~7 +7!)Y7"97$\b7&7)|7+77.ep72*p75679E{7<`7@b7C7Fb:7Gڻ7H7H7G7E #7C&7AF7?c7=77Ev÷7C]3;7A77@ ֭7>7>ed7>. 7>CY,ۂRLJHF$@<78X66y7ͮ:5?爂FP 2%[]i Zx>ӷރ pk+ \̃*!F2:;笃B˰I߃PXV \wb=[gH7Lo7J;7HL F7F|tJ7E7Cd7C[I7C&7C8\IڣB6p>;L&5Y07+хp(Ƃ&|^%&=g)(-f3 !;F >'RaOrO 67w6? ğ*4 e=FQQN{ZVE5Ճ]σe+|lyl7e7B7 8<7!?v7" 7$qQP7&7(K7+M7.A711z*$68jokvǂ淂ؠBqڂQ!L!(2P~<=ܵSK2y[e 'm: h`N ċ' V+ڃ5fz?n˃I!R0 [be;97e77 8h7!6j7"7$0l7&7(A)`7* 7-B70 Zu73?m76*+7:BW7> 7A*7EҪ7He7K`7M,*7MaQ7M}FETCiLt 8eBm"/-z9=GnW0+Ăgy|Cz1QM#Img-7e7K37 )A7! {>7"8'7#7%2n7&7(օ7* X7-!\7/ 72B)75778u7;7?67Cqk7G=7JE``7Lu7N`7N^7N7M7LZ7K7I7IE2A7I'O7I8Ni~]zv>(XGgb)JJ7e77 7 Ƕ7!7"7#߻7%3D7&G7'S7(,-7*.i7+(7--7.NI70`072%-75:77 7:V7=vD7@d7C4gS7E"7G-7IRޗ7J>j7J+ 7Jr'7JeX7J+'62 |7~* U^j}{5́|H7 iC7!7!7"7Q7"k7#A`7#bA7#}G7#l7#*a7"7"f7!0b77~7j7MZ775s7b7W7%7 M7 ي7 27 ]7 .7 + wUWT{`āq gV/_M WP^IUC`<Мj5.r&xx1āPA@1iFـ/Z+ 77L2*7 f7 B7LbD7N%Q7<@7NC77{7)72S7Q97c!7W 71f7#@ ~zq_[d_XƁMGBL7,!cT[(nm'>H'gTJ~;}H$#l?CO{ꂌo# Ra̍T;ʃ|h+7e7I7 7 77aˌ7>7{Y7tj\ OCBF6Nc)UyJZŀ`2;KUrX<ɯ~=}fY LC&VAy΍Xm1!ޕȚڸ^Wكe΃=~H⃝j07e7}>7U77 67 Z7 U7 Ee7/7M7r77>,7nǁ*md?L$׀(T}#l-}2NJ~Bqy&_Ԅ C%3SX7 ^777V@7눁Iڣ;o[. ՌOjUuu ?H7e7T77T717x7XY77 n7#z77 q7 ?@7n87L77g=77 37 7;]7O77D 7 |7b7P_7n707G7AY'62 ^5}[k5`Q}Bw!hvv!B}xAac}@̚˰*a> | 7a7V/7N"7E*7/=7 V 7 ,7d777 7 7P7ȶj7{w7)Ns7h7 #7"nj7#7$87%7%67&-'7& p\UC8ĀAt*~-z{$~Z Հ, "r+?O!9=؂@ЉL7a:H !Z lְ7 7<7'7|7!'7$Pm7&h7(*7*Ht7+87,I7-27-v7-Iڣ-«i=K*D~H|,+~M\@ʀ38>o-亁%q1}+ϻڶ8㤂߶w~i/߬<G۷7e7H77&`7h773U749|74~74]2 TV~Au|{}Ȑ~߫٘ѡ~ ܫґwqQ\Ԃ𧂛VUq҂-TEjăɑ̷hnɭ28JkՂ11͚7e7=77-:7)7ȭ7f7()7qD7Zp7$7 !7 u7 Y7 7 <7f<.ǁ05ε|"4*8nP᱂6qg‚4^#ԂB7蜂wꂣb;5 gE7e7677l78 _7k7d7gD7V777!6%7$i?7'.7*Z 7,7/ -70;72s^7e717*377#7h<7tt7j'7{P7v7ؼ77-*q7Ju7vB7Ԫ7 *767# 7&U7)W?7,7/72;'74az'76$)77 78q78791p79 ~p!|-}G\~q\X^AOARO>dHt$p@          qS,vNlH FAz:R1u(:6* +sbRucBA2WbɂTщGk:}-͂ V7e70Q7ӑ7L7@7 77f7_7Z7Nľ7 *7 7Uv}76~6w9 P6oFh6hd)6a6\9&6X46UR6UVz6V$>6W36Y16[j6]s96]6]ZBIڣL~"OR|U,XeϝZp\3Sʃ]\P]](]U,[YmV7ZI7A7؆78r7S7 3<7 7L#76}w)6uG6ns26g06bv6^6\ޯ6\%6^QSe6`6d$*26g[6j26l`6m6nFzL6n <@1DTGhJϚMH OL7QӃRzSSͅrS#QOUL/GY2B6֋6|W6}(X6|C8Ni;䇃>B`DʺGH( J&~J/JyISGeD\Anɂ= 4 ^*D7e717:77!8D7k7v7bX7?/M3UU6Ƀ9[82e@8̓ABUY=B%sA%?Hӵ7cn7 qv7 m97*7="76zMD6u 6r@.6px6pKs6q6t 6wJL6z$6~47O27Y 5GBg Gyk+$zaȂtI0o lk5[g!ci7e7H97'F7)M7ٶ7i77.7bJ7M7X ,7 C7 (7#7V7'6}&6{Q46zl6z)96{|6}`p7\Jy7A7y7'#7s87t77`©7=3'62*.9L1K,"4㬃6|؃8{woswq7e7T"7ې7[ 7@7L7z797O77h7V`7 }7 K7n$7B77Gc*777ľ797t70z77]77 Χ7 bܫ7 =7 \e,"N%(~c+O@.jP0 2E3g%)3Ӄ3t 2ѭ#1+܃.+_z'#m׃7:7ȳ7Ug7p7[ 7-(77 O7 ;7k7S77]7X77a*7>x7597 *7 e%7 7 57 h7 L3VnS܃ A# Ã&{)(+ ,'-:ك.T.;_x-{S,* ̪'iу$GpA ă؃ Ӄ ^/ ܗ`!~j]7B&76P7?7X7s7,7 Q-7 7 7 eH7 7 k:݃+pd!|$&Oƃ('.)*` ݃*}*ZɃ)vX(ƃ&y#D cD<OO >T \]\@~7e7b+ 7H,77x7G77: 7 ,i us ׋5h3jЃ@=ƒ ';"h%ނ&(_:J)=ʃ):)Mw(a',%bɰ#4M `-4[[AtٶbI  [ s)zg7e7p [7y7~x7Xh7@7^w 7tRC72&w a"$8'ԃ*US,.'d/ ʃ/bࠃ/ dx7'^z7&f67$7"}7 yz7Ηu777EN>707 7 B"7 7 ]=s7 #7?57c47\u7A7KRTY,ۂ`.goo=vѦ*SF ރ0_H!&Sƃ*b-5E0gI243Ʀ4ނ44*2O1&.Nă,)iG' B$9!pB݃7p7&P7 27 37 cr7ä7 F*77?IڣOW[^DfNoJWxQxXσ 䵃7̥6ț$ᢃ)jI.2Y58r:C;?;;\: 786iI4@ԓ1/&i,5) ;7e7Hi7 (7! K7"+ D7#r=7$7%VG7&J7'O7'?@ֺFnNLV=q_6.i8s%9VS ByY!^(F.Fۃ382PՃ;>審AaBVBBsB6A|(?=Ӄ;V9SA7}7e77 77!47"t7$7%7'qo7(7*.7*V7+p7*pD7).7'M7$7"737}7P77-ă%t#,,ƒ3Ns9+ǵ>5աBer.E eHE&JSGK'x1KK1K%ϐJY-IQ5oH)VEF87e7D7 87!?]7"E7$c7&ZC7(m/7*r7,77-7.:7.(87-F7+a7)OE7&6z7#`7 !777O7ǡ7H/7a7 L7 ND7 ӎ7 /C7 -7 (8NiRRWT&?NUwV]܃V:1W?PWkWh7e7k7 +@7!*7"7$ao7&O7(7+F7-7/Ơ70ڵ71g71 C7/LY7-7*&7'T`7$r 7! 7%7Z77E`774K7y7v7 ȝ7 ħ7 >ڂ'62.X50=hE~NX,d%͂p~zO-. T7 N7"It7$ 7&/b7(7+\^7.N70Jp7273@*74MY73p71ٲ7/q'7,d7) g7%c7"I<+7/~7b27h77777%77ރ%,53>#RGHD9Sm`'/n}Tap :/ @)`1BA8ovH>fՃDN=kH:vL΅>O𻀧7675 a73C9717-$7*y7'&=67$ 7!S7J~7 7"7[77H7Ò7т T DNJЂ$"/-es7 B" 3Nx\kk˸Ƃ|ÃPK6X|#c,5m=(D cJLكOVSPWɝZ]“%`/TbOܡd8Ve`?g[7e7?7 "vV7! +7 +(77H7077zjxq} o /qi%M3/;^IgWǛhq3z^!si%(Ӄ/d8wl@٩H]OU =1Z_"_(|cdgkE[snzrLVvu7e7۶7,7 77!z7#_z7%d7'հ7*S7-7073\$75}ܭ76 'ᮂ> V'&X4PAeQ)Ăb\CuCqYS%D/B_9eBJDRfoYH-i_ek]pv|Mumz$E7e7wnD7<7 B.7!$C7"m7$+7&aQo7) 7,7/\vY72Yf75777979'7875ҭ727/Ya7,^+7)F7&7$EG7~> Leb[ Lk,_6T@IqՃR|*^Zyya *i+p)va}㗄H7e7iB77?7 \m7!B7"97$` H7&΅7)u7,w70)73N7679n7:7;"7:X77 75%Z72$7.7,!7)n7'7&`U7%r7%a77%2ә7%*b7%&IڣW[e\Vpt5Z71^tMfoMwe:L7e7[S7Ma7R,7,7;7 /7!v7#07%7(7+{7/ni73-76Jz79bh7;ı7N+2L!~[gœjzA   &4vʜC܂UbhL}F -!+Eσ,Aȃ7.AKXU+j7/72p87678 7:ȁ7;7;7:›79}J78/I77I76nr76.&76EqsIڣdɓB Zi'0(5bBBwՁO|!\jzFߝwVP$A1@'ݡI6Sshe]̗g7e7N77H7/77+67,7,R(7, != zWqm`^$5쿁-s_68>:FWOM]W*`jtuAk(ɂJxЂ *3X5kZAmN\%xj<x7e7C77f&7d7Lm`77"77J78u77 Nh7"`7$h7'Vn7,e֤sȸ9~'<OY]Ooy({,lm5"Z`BF%݃M4VO~-fD|} k5~RnSLkddHt$p@                    7#+7 hK7B-g70U]7K6{Z6kAk6_C6Vo6O6Jl6F=D6B`6@ 6AIڣRWuZ^a~gWl qoJrhtʃv(كv3$tUql~7fi6f3zF6Fn#6$j86594wc4,Ä4'845f4*c _@1I%Qk@W{[H}]ȃ]C=؃Z~0UL !=sF% `s݂Y_ iAlHN'PXPL'L)ÃCql4N@,@ШfMj8:2"M7#+7 ,!7H7}7R<)N8A̖A43L7#+7 [77H06~6[64H6 É5M65&5165UP85t"6]5|PoH8N7#+7!*797:al7M6\D (65?\6+5y*%5{{6!6%N<646;e68͏/M8y?D DFDW>"喃1@nEǃ ZȂvr_57#+7!q7x77e6eL*V6Cd6'6X6$HL676K6Z]6a-6^΃'6201}7\t<1Qt=dŃ;[O4''M)Rwrgi]6hV_P7#+7" 4 7g7e7V6s6V6@69s6@qS6Qc(6bm6o46u:6s&g,'vV/.4 6D4#-C;#_GXs- Ńettnނk i/6P}6TU6` 46n6y 16}6{pƃ&l$,a^1/;7@.*J'"^fG/U~{Qq}"P|[|y#:)E;*(\#rU˵!A N_`Ff7#+7"77p47P7՜f6l|6Y&7#+7#\7"Q$7E{77 l7K6o(6dF6b16hV6q6y7j6|{6{k:݃]%7#+7#J 7$H7#K H7fz74Z7 B76t{\ 6lO6koE6o Ga6spb6u0`6t+ Kb*bw#҃'dZd(%SX ܳ˃ل HU ރ 7#+7$x/7'E 7(9*7&7Sv7f_7 =7Z6sv6kp326i@6j:6kYT6jpD{SK96"h;I$[(-<(&_!}@b֧iB]SB7#+7%87)Υ7,X7-e7)17 SI7}*7 ;i6ze6k 6b6_V6_F6_Wj|{a1P*悃"E=(+ߟ,_)B|$s>ك/˃ :6]FG6V-;6U u6UZ?Y,ۂl5B Y }r(.eM1؃0dR-,M'y"Ճw}1|6D896F!01 r,=H&_U"NG7#+7%\87*{70yo74(972^K7)CQ73`77E6lD7#+7% 7+FR74V7:gi7:QU73 77%W77a6pm6]R6R([u6NV6OhʂIڣ[$so[,|ƃ(7#+7%67,V76V{7?7AX7;7.zc7]7 6y ]6b6T76N06Pੂ8NiK؂_܂x8@ Ƀ''(:3Pk;H̓?1_?j<Έ8'R3.57#+7%y`7,77}7BB}7HN_/7DU]77A)7% 7~G7#6n۫6^ji6X&C6["'62:/P Ԃi~@i~M%4>vEZ#HGO6qpx6j 6mЂ)ނ?Zys$"58ʃ3ry@SJK`ՃOlbRU5Ruz΃Q"O!?7Zp S/iVI}j!IM1r1Ab M?7/\7 77 ?7a7׽j&҂8ΓX]",K\;?x7#+7#7&7/7$7=7O77[Z'7Z$Bf7L:L{7:;]`7+~t7"o7S/7ϔ7GIڣo( &El; @$:҃L9[uQg'Wpym,p~ 7#+7#7$G7*M>77+#7Hp7Y\7_޳7Wp7F4N76C07-7*:7*g_7)要'62MzЁx\{d]ł1OeUyAFeQ1ăGdsYg8tQsD97QR7` ?b7`(P7S\7C79r% 7575X746 ,U݂(p)c5G l#Rv i.~e7#+7!Џ7C7]l7$ @7/7AˋZ7U7a6b7_X+7R{7Fg#7@7?7?IINIڣ7#+7!U77P77w!r7e7*7āY' Pk9F`X!3;Nu7#+7 M777{:z7 ,c7l7P7#?73^7B 7M77Q7PtX7Q 7DR r݁)GR?g`В?M5fjV@ヂ}tqi+)؃B@x^AOARO>tLm@@`@                    99999999999999999999iii9999)))9999999999999 99???????9iiYYIIIIIIIIIIIIIIIyyyIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIyyIIIIIIIIIIIIII)999999999999999999999999999999)99iiYYIIIIIIIIIIIIIIIII IYYYYYY999999997))9999OOO99999999999999999iii9999)))9999999999999 99???????9iiYYIIIIIIIIIIIIIIIyyyIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIyyIIIIIIIIIIIIII)999999999999999999999999999999)99iiYYIIIIIIIIIIIIIIIII IYYYYYY999999997))999OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOMOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO**????????????????????????????????????????????????????????????9OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO@ @ U* @@0U*U,U*ul_*lv*3,o*Y8mx0 쀀 က぀@***P* |*U*5:U*UUj_2V:[xTZVXx_w0@8 @*PP(U p?,U*U+U*]{W*a[]jLk[*nz@ P*@ @T*H@*U* @.U*5@!Uz7@LUn6Uv5~W ``rl``؁P*TT*U|+U*`*U*`~U*`6W`ZVJ@{~G0`p hhpރT PPU*@`P*U*P+U* 0(U~ 3U[ @&U= @G-yƃT @*U@`*U*X*UjX?U XmUfXZUrp^1 `쀀ƁÃUTT U*@ xT*Ujt*U* *U?d,u6p)5+Pq?o` @񀀀U  P* `X*U*V*U:v/UB6;UV7U,\v?<ఀ񀀀 U(U ~U*U]*UjC*uo+]m<*-k,|o;@Ђ@dX @` U((T*xV*U*@U*U.@}+U0@m.5&@u- 7}`Ђ@ȃȅЁ(  *U@ U*U W*U`P*} f*7K*{k0Ԁ0x300(U*~@U*U 0U*U 0* 0[+M 0-+e`=#@Ԁ0x44xǁ*((@*U@@ p?(U*UhU*UT*HYjm Sj^`cV@ >M぀* @~@ `Ԋ~@@*@ T ~@@*@`Ԋ*Հ|7i~6)6)22)2~2k^hx00€۴۔۔2ٔٵ؀0 P@ РЪpBՂ @PP*PpU@@PP*PpBՂ @@-Z?@@-J@@@-JA@L,JL@_lZ[ @@`@@`@@,L@> (T@Ԋ"x ЀՀЀ@T x P UP@T x ЀՀЀP@ @`?Kv0K0K2Kp[v@@ۥإإ˥pέ@*ŠŠΠӍ ߂FNEl_z; pm܄0ž?{֗JͱԃS)*Y 7M\0_](`%a-XgaV(8GK}2sHRPCwE>T(8:C2P'7e7\C7J!7H7l76xS)6aDx7E7=7*v7ԃ@1C҃FH` Ht)Fs~A9c.qBWl-8}MfmVXU\pm`WBJ"u?1h=Y,E5JfKL=O7DA7K\v7Js;7C47607)P7D7BE76x]6lC26e6b<6ale6aD*8Ni;>0h?Up?}`h=*8140&6$Lt Cc}zςjdncfJrŃ!qB4+6S{=F@@ü=4-81vx9)Uڃ +Iԃel"7e7`-7I>7%7&d6j416k*6k_6k(/M3*5L7)s"74L0+(Ӄ-IQtW qIxw[Ƀ& ( 1:#)->4]"78+5G /.n(v ܃V$r ȃ7e7v7H7z7{7V6{3)6gaE6W.6P>|66W6k0N76̮7]7&76/#] }F ŐL xSť9j揃#ӗ*+/_SJ0ٺ/O+Ƀ&+ĩ$_6σ E̔7e7)-777Øm7 LL7 6tj 6i4!6fa6o7177r7-.7:,7C/7E"F7A78He7,7>7ο76 V6sdm6l=h!:뿃&T&)Wp*9( b%f!+ȃc؃$o{ _C57e7[977qX7e77t7q6|D6{77 Mi}7w 7"!L(7.O784$7=x7>Fb79Tl70v7%W7t7] 776}6zt>6zъ6|UL6}\6|'62*|-Va.N/8-Z8)<<7e737sG7uX7G757 +7 _77E7 D7q7j|7"%7+%73'-7776P72sR7+ƹ7#Do777 x^07>t7T7R77C7͈7a,"dC%&Bb'v&Ã$<  }a&愃 z䕄"\)i +37hL7Mt7B7,7D}7 o&G7&7,V%7/70,`7-g7)nY7#QG77l74h,7Ϩ7 -7 ĜM7 7 m7 7 Dɷ G oF)΃ngm:(  R p.OzR{$F# F#:$30F#D!UdmQttZ97(%[7&$67"v7A7ʉ7|7 97F-i7&J7!7UL#7n8^k:݃953Ճ_,vCPb3`Rۃ*qVxt*Ńv܃MĨ,K 3ѧ jiPdD ׃ejP 7e7Su7ܛ7.7 7gy7瞀7Ӆ587y XC zԗ,SNj0(r+ǃ깃Ez Py%6@H)ݚ1}Ճikx Lnh(!k|"#U+#$%$!%7e7T77 m777&\J7#l7H7e7r7575a7s=7 n.7$u' 7'17)7*#2!,'d  aփuCZ }|g ^#?Wo"Ƀ؃"t%8(&*8,.:kŃ02_7e77 lB7"W7#R7$R|7$>$7#.7!-U7|y7G7,7a,7t;77״K7c7#Q`l7&y7(p=7(o7'7%27""7@7 c7H7'77 ރxj̓ !]"pn(,0򊶃4l$Q7;n7e7 7!7$n7'2ps7)|7+7*R7(7%;7 8=767Y7'7 d7#7S7(+j7"',7'_ 7+ 7,7,q7*D7&n7#U7p>7dr7N&=7i7g}{SKL`O Idƒӊƒ>Cd7e7 B 7"|G7&37*Ze7.YP71C72+70g7+׿7$ 77@7 Dl7 2%7 7 v7ƜQ7)<7$7+70\s72L71vj7.7*ei7&F?7"7w7h7bpjqd\.xZbk>7 g"eq:*"%&$𽍃 <5t.$; QQ\zΰ7c77 T7 6~}7Ke7 77 57)2X71376777572Z7-ٽ7)r7&7% 7&NGY,ۂ`Xh_+ qxb|! Ѓ9緃%2D*X,Hn+'}҃º KO);~4W^.[.Q$}^'>e.5:?eE(&-76Q7;W7;79n?76 72f7/s7-(87.jqIڣPXMza.nl}sBRF(&׃-Ƀ121l.IU&vۚ/K|v=U2w;ɂ4>u(UH;z#?Z,A65}=K7E7LK}7e7 a7#337' 7,?72cY-76Q7877s72}7* ?v:G~wR/H+_p6Ńăj"&J 0wX^6ǃ8$s5㮃.#QFbgêzmGi7Ђl wiT) e$Ѓ/:KDgӃN}=7e7 o7#~:7(ao7.j7527;7? I7>79N7/47#A$7\7ǽ6yFz6lR6n(6|#m7 G717"7.>#="8-2-@;Űsj2_%\/`&8lJLc}iz R#L!ei--9_E7e7 k7#7(>7/~77|C7?#7DqT/7E<7@YH76;˵7(un77"6s6^m6X#G6aS6w7 Au7-7%7179'7>3/7?#7=JU7:5{77tRr76&76׸ 8NiPbZj@Ri{ݴ] j?,qM7e7 U37#DH7(Oo7/i78m7A<V7Ha7KNi7G7=7/"7C7 z6v16XBa6Fa6F\o6XJ6s?n7 77%C~O70n79Sv7>_7@W7?DG7=^7<*:7=@'62.˽7S$BO:awwJ "z%1u89#)c7'ac7.?.7797Au7Ji7PR,V7Ns7E̲77T7%점7U)7o96\C=6>G60676Mc6kɔ7}7"7q7*173SH79I"7~46[\6xV߈77k7Y>7$8z7)7-7.Cz7-l b"~ =.*5? U q̴ h ?,O+ă:yDkI*JE!;ҸT,]=]K6dhQ&RaD[ =<@PH)xS>}`{o|Ă~é7e7 /7"p77U7 07 t7:7Q}jyC%I\թ,#C_@-[GЊ{0w\$5&)N }tU53)̓7e7 7!$k7#J7(S70kt7:67G 7R7YsA7X1E7L讔7<7)S7k7X/6a7a6;fJ6j^6 S66&*6B>6[n6vVǼ\mv^d-]hYdQE|4įM}V KkB1KGe/kFDx_Bd_7e7yD7 *7!ׯ7$n)7*{73G7? 7Lt7Y>7^S7Yn7Kvm79>7&].7U׍76bg6>t6 /6Ѐ5t6㠪6 63 56De<6P6WĈ6ZH6[Y26[+IڣWohDw,{jpJ =Ã08϶"t4uB7e74h7 73_7 #97#S7)m72lU7?7N17\MY7c 7]"k7Ob7<\7)*k7D7 ܁6v*6Y6:ڲI6a6eR5fb5j6V6td6*é6A6!>6!s>'626 EaW~ wkCLCiւ`!v98sWvl}f݃*e=L1|7.)7"7)Vu74d17Ckk7TΌ7cӇ7g.7]Q7L$Ss7977(~77]73U7_%6q6bL6QSv6A;63añ6(6" 6!`S6!+ iց#3ƁCM57T>h^w"]<]փ 2sIEȃS]иdhjj^Sj-hucd]ULTK]7d7iK_7azB7RU-q7CIW78Q72I:7072B75m797<7>7=yIڣee3njBt&j0mWЁ:=D^DlN Zg\iׁ}{2g Xu}6 X <c1ڃFWfe -q7?j{؄:.65 t! 37e767'$@n׽5y=bЅXX΂:# ݀a5 ~3x~QdȜmxVCǖ؁gJ7e77$/J7V{77dپ776o5~6Y,16=s6@5q5856 5p86KĿ6B%6a/6{J*7 7L/7 zȪ7+P76J[7?'q7F1x7e7jA77%7tw7 7[{6jf6OP361&m;6/]6xf6u6!f6FN6m=C77x7,C7>jH7M87W;W7X7Ry7HT7?789.74ނ73772p72x dHp@          ((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?  :"CONTENTS":"PS A VERSION THAT DOES NOT STORE ARRAYS IN TEXT FILES. DISPS DISPLAYS IT. USE EXEC DISPS.EXEC":* ŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭŭz#??    Ӯà" ӮŠ""Ӡ  Ӡ ӠˠбC в2г: д :ïà : Ӡ Ӡ٠ Ӡ  Ӡà ӠĠ ӠȠ ǠŠϠϠ & !18020#xFKK176:24192,(2K)1:2000F8JK(24192)1:A08:K(2A)ıNBJ:W NBN1*N:" ** OBJECT STATUS FOR MUTATE OPTION **"4N6980:6920:69609N29000א>NC03:A(24064C):B1A:B25:C105HN31232,(18527BC6):31248:(3(24191)3ĺ"2" :(24191)6ĺ"3"&:G>(24189)128Ĺ24189,0:2000\>24189,128:2000jhB"(1-3)?"|B1000:K1412000BK177K17917020BK177K0BK178K3ďBK179K6׏B24191,K:2000PF"(0-8)?"dF1000:K176K1847010l24073,K:2000<@A18528K177(BN1)6:31232,(A)MJSC0Č31233^TSC0Č31236phA,(31232):(#(24190)128Ĺ24190,0:20002#24190,128:2000'(24190)127ĺ"YES":͎'"NO":.34,19:35,20::(24191)0ĺ"1" :406424067:"(";:BNA24063Ğ/ (A)6ĺ"SML";C(A)3ĺ"MED";W(A)2ĺ"LRG";l&:") ";::0A16:5A2:1:"#";A::D4:" BLOCK 1 BLOCK 2 BLOCK 3 BLOCK 4":ލX12000:"DELAY (0-100)";b33,9:32,16:K:K0K100SCSC(SC10)6E22976K177(BN1)6,SC:7:958:6960:6900:6140\BNBN1:BN5BN1l6920:6140ŌC03:A(24064C):B1A:B25:D(22975BC6):(18527BC6)127ĖC104:"-";C105:D(D16)6:B:C:1:5:" ";:A2K, SHAPE (1-";2(24063BN);"), TO EXIT"G1000:K141100W$K1946800y`K177K(24063BN)1766160j7(K177)2:2::K176:΋t20:958:"SCORE (-99 TO 99)";:34,20:35,21:SC勈SC99SC9962608000:SC(SC) 0C204185hK196ĹADA,C1|K208ĹADA8,CC:KB::4082b11:958:"CYCLES? (1-4)"~1000:K177K180432023269B1,K176:KB:4082Ŋp:2:12:"** SHAPE SCORES **":BN1ϊ69806960:6920:6900 20:1:958:"(B)L"PLEASE CHOOSE (D,P,C) (RETURN TO EXIT)"J,1000:K196K208K1954160Z6K1414000d;4140t@K1954300J11:958:K196ĺ"DURATION (0-20)"OK208ĺ"PITCH (0-20)"‰TA06Y13:958::A1;::"-->";:6 ^34,13:35,14:C:C140ARR(NS1I,J)2PI160HXD(((XC60)160)((XC60)160))16060R1:0eJNEĕ1XD,YCyJNEĕ2XD,YC END OF PROGRAM";F;" GHZ"  22:15:"X = ";X6 22:25:"N = ";N] 23:1:"EF = ";(EF1000);" KV/M"rPER$" "(PER)23:23::" PERIOD NO.";(PER$,3);" ": SUBROUTINE PLOTYC159ARR(I,J)PPIN80YC0YC0YC159YC159XC :3+ 60,060,159220,159220,060,0= 60,79220,79P 140,0140,159V x SUBROUTINE WRITE PARAMETERS VP$(VP1E7)" " VZ$(VZ1E7)" " 21:1:"VP = ";(VP$,4) 21:15:"VZ = ";(VZ$,4);" E+7 M/S"  22:1:"F = T 2500P4PST4TS;PP(P12P22P3P4)6YTHTH(T12T22T3T4)6_u SUBROUTINE CALC GS(1(P0MC)2(PZMC)2) PSA(KVZTT)(T0)DT TS(WWCGSA(KVZTT)(T0)P0)DT  SUBROUTINE PLOT AXES(10(1).5)PP(Q):W130:W:Z4 K1LG:K; ID 160J V :40) " GYROTRON DEMONSTRATION PROGRAMS " 3:40): "8:"PROGRAM ONE" ," ILLUSTRATES BUNCHING" 6" DATA IS IN FILE ONEDATA" @:"PROGRAM TWO" dB$B$".....":1304 nJ140(B$):B$B$".":J@ xI140e 8:41I:(B$,I);" ":K1LG:K Z1(10(1).5):PP(Q):W130:W:Z I I1(B$) (49152)127250 8 C$(B$,I,(B$)1)(B$,1,I1) (C$,40)% Z1= A BILLBOARD PROGRAM TO CONTINUOUSLY SCROLL A MESSAGE.f CREATIVE COMPUTING MAY 81 PAGE 204oLG1w(B02Q16336::<J12:J42:I140:"*";:I::JFB$"GYROTRON DEMONSTRATION PROGRAMS"P(B$)40B1Z(B$)40ī110   DISPLAYS"# 4" DATA: PS A, ETC" L%  :"CONTENTS":2"1 BUNCH CREATES"H" ONE DISPLAYS"_ " DATA: ONEDATA"v("2 CREATES")" TWO DISPLAYS"*" DATA: TWODATA A,TWODATA B"2"3 PS CREATES (BINARY FILES INSTEAD OF SLOW TEXT FILES)" 3" PS DISPLAY  ^ J" ILLUSTRATES MOMENTUM SPACE":" CONFIGURATION OF ELECTRONS ON":" LEAVING THE CAVITY" T" DATA IS IN FILES TWODATA A,":" AND TWODATA B" ^" ^L4,0:49237,0:FLAG1:670? FLAG1Đ:49234,0:49236,0:FLAG0W PAUSE1500:PAUSE^ Jf : 23:"REPLAY ? ( Y OR N )" REPLY$  REPLY$"Y"400 23:"END OF DISPLAY "  140,75140,856  CALCULATE POSITIONS FROM DATAA I18Q D8(J1)Ic &SA%(D)22400r 0T(S280) :X%(I)S280T DY%(I)T NI X PLOT POINTS bI18 lI8ĕ1X%(I),Y%(I) vI8ĕ2X%(I),Y%(I) I FLAG0đ:4923 2,0,6,0,12,0,42,36,63,54,5,0,184,45,30,4,07 |1:0K 232,1:233,144R 3Z :g 49234,0t 49236,0 FLAG0  PLOT POSITIONS J1C1  DISPLAY PERIOD NO. Q(J1)A(7)A(6)  DRAW + AT ORBIT CENTRE 135,80145,80)A(6);" PERIOD"6 CALCULATE SOME USEFUL CONSTANTSN C1A(5)A(6)A(7)1Z C28C1x  TRANSFER DATA TO MEMORY I1C2 A%(I) "I ,D$;"CLOSE";F$ 6 GET READY TO PLOT @ SHAPE TABLE JI117 TD ^36864I,D hI- r;F$ nI17 xA(I) I% D "WAVE FREQ = ";A(1);" HZ"n "CYCL FREQ = ";(A(2)1E7)1E7;" HZ"t "E FIELD AMP = ";A(3);" V/M" "ORBIT RAD = ";(A(4)9.11E31A(2)1E6)1E6;" M"  "POSITIONS SHOWN AFTER EACH ";A(7 DISPLAY ELECTRON ORBITS0 INITIALIZE?::36864b(2:" ELECTRON ORBITS"~24:" FILE NAME ? ";F$<A(7),A%(1000),X%(8),Y%(8)F READ PARAMETERS FROM DATA FILE AND DISPLAY THEMPD$(4)ZD$;"OPEN";F$ dD$;"READ"          !!!!"""####$$$%%%%&&&''''((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?ūūŭ     ĈăժժՊՉԨĊŋłŨ݂ժ׸ՠբр׀ՀՀЀЈՊЪՊ݀ՂЎтТр׀ШժꕎՈЪЪЪЈЪЈРЎЪЮЊĀ𢜀ՂԪՂЪՀ̀ԣłԀШԨĂꕀՊĺŃШꅈТĈԊԪઇЮԪкЫЪЊІЊԃ̂Ј܂ԊԋԂЈň܈ЫՀժՀꅀ𪕀рЂЊܺŪՂѮŀԈբЫժԋՊĪԮԪ՚ЪԢŠԁ܂ԂӀՂĀĀĀĪ(@( A A( A(@A(ĊЀĠĠĠĊЀĠĀĠĀĀЀ  " "   " 33333  ?30 ?30038<63?00?0333?3 333333>0 'g'"@ `x8'g'"@ `8pШĢӺѪԪիкʕݾԀрЪЪЪ׮ըĢ` `` @phDb` `` @phF`ѨԮ͠ժĸʄѼԮŲׯԪծժߪժԯɪł888|:8F@888|:@8F@łիǂպժÒߺ݊իѬߊիՊՊՊԢNNND?@ p1`NNND?@0@1p`рłѠծ脊ժăĀФ׎ׂꀀ؊ՆբՊ脠աʁ@@3@`P| 8@@3@`P @0 8Ј܂р݂ՋՊЊՃՀ݊ߚР؂ЮЙԊ݀ՁՀՀߊЈծƢpp p xt"ppp p xt#p ׀׀ЎĦЀՂԂоԺׂق׆РтԺՊԈ܃̨~@c`A~`c`AԣĪ݀щЪՀĈС܀ʇԯծՀШրՁЂŀԢŀՂЪłުՂ+Hfu3\~!mCQ=CjOS?f`J_c@E>I^c`@kpv|rl}xü         C`hpxV0hp`h `hpx>>>>>>zMMMMCC99zzaaaa ? ?6666669D4444EA1111::11112d,*?Ti(P< BJ+Hfu3\~!mCQaaaa>>>>>>zMMMMCC99zzaaaa>>>>>>zMMMMCC99zzaaaa>>>>>>zMMMMCC99zzaaaa1)! `hpx00hp`h `hpx1)! `hpx00hp`h `hpx1)! `hpx00hp`h `hpx1)! `hpx00hp`h `hpx1)! `hpx00hp`h `hpx>>>>>>zMMMMCC99zzaaaa>>>>>>zMMMMCC99zzЀЀ```` 0000@@@@ĀĀĀ 0@0H`DD[DD (08pd|dM぀* @~@ `Ԋ~@@*@ T ~@@*@`Ԋ*Հ|7i~6)6)22)2~2k^hx00€۴۔۔2ٔٵ؀0 P@ РЪpBՂ @PP*PpU@@PP*PpBՂ @@-Z?@@-J@@@-JA@L,JL@_lZ[ @@`@@`@@,L@> (T@Ԋ"x ЀՀЀ@T x P UP@T x ЀՀЀP@ @`?Kv0K0K2Kp[v@@ۥإإ˥pέ@*`Ղ@"`U(`U"T @* xoR}lRlR ddRd\eV}p0`` P*d|3붃Ё`@  p@p?@p A U ?*p A U p?@@P*~[4[[Y?Y5/4<@T ޭAAYP@(~D?@!~(((Ā?@* ~(((Ā?@ PT  @@@m `% `e &%&`/6m- PU ˒ ˲ ˒&`۶T   p  ( xOOO` OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO97OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO9O99999999999999999iii9999)))9999999999999 99???????9iiYYIIIIIIIIIIIIIIIyyyIIIIIIIIIIIIIIIIIIIIIIIIIIIIIyyIIIIIIIIIIIIII)999999999999999999999999999999)99iiYYIIIIIIIIIIIIIIIII IYYYYYY9999999,J)2PI1609XD(((XC60)160)((XC60)160))16060C1:0VJNEĕ1XD,YCjJNEĕ2XD,YCp END OF PROGRAMJNEĕ2XD,YC END OF PROGRAM ROGRAMG22:15:"X = ";X' 22:25:"N = ";NN 23:1:"EF = ";(EF1000);" KV/M"bPER$" "(PER)23:23::" PERIOD NO. ";(PER$,2);" ": SUBROUTINE PLOTYC159ARR(I,J)PPIN80YC0YC0YC159YC159 XC140ARR(NS1I,060,159220,159220,060,0. 60,79220,79A 140,0140,159G i SUBROUTINE WRITE PARAMETERS VP$(VP1E7)" " VZ$(VZ1E7)" " 21:1:"VP = ";(VP$,4) 21:15:"VZ = ";(VZ$,4);" E+7 M/S" 22:1:"F = ";F;" GHZ" P4PST4TS,PP(P12P22P3P4)6JTHTH(T12T22T3T4)6Pf SUBROUTINE CALC GS(1(P0MC)2(PZMC)2) PSA(KVZTT)(T0)DT TS(WWCGSA(KVZTT)(T0)P0)DT  SUBROUTINE PLOT AXES :3 60DER RUNGE-KUTTAP0P"T0TH+TTT52500? P1PSIT1TSW P0PP12f*T0THT12t4TTTDT2~>2500HP2PSRT2TS\P0PP22fT0THT22p2500zP3PST3TSP0PP3T0THT3TTTDT2500*I1NS4PERI42>3500: WRITE PARAMETERS>HJ1NE\R4000: PLOT THESE POINTSc\Jzf(49152)128ī870p49168,0zJ1NE4000: ERASE LAST POINTSJ20:20);I770 SUBROUTINE NEXT 4TH ORRR(6,0)EF:ARR(7,0)NS:ARR(8,0)NEz:(4);"BSAVE ";A$;",A";(107)(108)256;",L";(109)(110)256(107)(108)256: "REPLAY ?"::"(AFTER EACH DISPLAY,PRESS ANY KEY TO":"CONTINUE )"::K$(K$,1)"Y"ī950 3000: PLOT AXES I ARR(I1,J)TH PERI4; &3500: WRITE PARAMETERSY 04000: PLOT THESE POINTS` :Jl NJ1NE X4000: ERASE LAST POINTS bJ lI v : "SAVING CALCULATIONS""ARR(1,0)VP:ARR(2,0)VZ:ARR(3,0)F:ARR(4,0)X:ARR(5,0)N:AEF2 1 J1NE* ARR(0,J)PPIND ARR(NS1,J)J2PINEK Jk I1NS: STEP ALONG CAVITYw J1NE PARR(I1,J) THARR(NS1I1,J) T(I1)DT 2000: CALCULATE P PERP AND THETA TO END OF STEP ARR(I,J)P I1NS1"ENTER FILE NAME ";A$- " GET READY TO PLOT3 ,E 6 SHAPE TABLEQ @I117X JDg T36864I,Dn ^I h 2,0,6,0,12,0,42,36,63,54,5,0,184,45,30,4,0 r232,1:233,144 |3000: PLOT AXES NE24: NO. OF ELECTRONS (UP TO 24) A1.6E190 DT4F1E9 NSLVZDT/ NS(NS1)p NS30ĺ:"DATA WON'T FIT":"ANY KEY TO START AGAIN":K$:10~ "X ? ";X "AXIAL MODE NO. N = ? ";N KNPIL WCIN(WKVZX)GAMIN: INITIAL WC "ELECTRIC FIELD IN V/M ? ";EF : ZC2.998E8 dMCMC' nL17.5E3M x"VPERP,VZ IN 10**7 M/S ? ";VP,VZ[ VPVP1E7i VZVZ1E7 GAMIN1(1(VP2VZ2)C2): INITIAL GAMMA PPINGAMINMVP: INITIAL P PERP PZGAMINMVZ "FREQ IN GHZ ? ";F W2PIF1E9 T  PHASE SPACEW TO SHOW BUNCHING OF ELECTRONS ON THEIR WAY THROUGH THE CAVITYp INITIAL PARAMETERS(::36864:163842" PHASE SPACE REPRESENTATION":" OF ELECTRON MOTION":<ARR(61,24)FPI3.1415926535 PM9.109E31   ND OF PROGRAMNEĕ2XD,YC 6JNEĕ2XE,YC4@JNEĕ2XF,YC:JIh CIRCULARurYC80ARR(I,J)PPIN(ARR(NS1I,J))40|XC140ARR(I,J)PPIN(ARR(NS1I,J))40YC0YC159XC0XC279ı1:0JNEĕ1XC,YCJNEĕ2XC,YC  E1XC,YC JNEĕ2XC,YC" 7 END OF PROGRAM JNEĕ1XC,YC_ JNEĕ2XC,YCe z END OF PROGRAM PROGRAMND OF PROGRAMXEXD90XFXD901:0JNEĕ1XD,YCJNEĕ1XE,YC"JNEĕ1XF,YC ,J JNEĕ1XE,YC": JNEĕ1XF,YC6D JNEĕ2XD,YCJN JNEĕ2XE,YC^X JNEĕ2XF,YCdb sl CIRCULARv YC80ARR(I,J)PPIN(ARR(NS1I,J))40 XC140ARR(I,J)PPIN(ARR(NS1I,J))40 YC0YC159XC0XC279ı 1:0 JNESUBROUTINE PLOT POINTS( B$"C"ī3180: RECTANGULARV YC140ARR(I,J)PPIN60g YC20YC20z YC140YC140 XC140ARR(NS1I,J)2PI90 XD(((XC95)90)((XC95)90))9095 XEXD90 XFXD90 1:0& JNEĕ1XD,YC0VZ = ";(VZ$,4);" E+7 M/S"622:1:"F = ";F;" GHZ"L 22:15:"X = ";Xb22:25:"N = ";N 23:1:"EF = ";(EF1000);" KV/M"*PER$" "(PER)423:23::" PERIOD NO. ";(PER$,2);" ":>(230)64Č2049: PRINT ON PAGE 2 H 0$. CIRCULARI8(230)32ĺ:(4);"BLOAD DISPS.CIRCLE,A$2000"|B(230)64ĺ:(4);"BLOAD DISPS.CIRCLE,A$4000"L SUBROUTINE WRITE PARAMETERSVP$(VP1E7)" "VZ$(VZ1E7)" "21:1:"VP = ";(VP$,4)21:15:":INSī620DPERI48N2000: WRITE PARAMETERSAX410Il:^v"REPLAY ? ":K$oK$"Y"ī280u SUBROUTINE PLOT AXESB$"C"ī1070 RECTANGULAR95,2095,140185,140185,2095,2095,80185,80140,20140,14RS  PLOT1 J1NE<3000: PLOT NEW POINTST(230)32Ĺ49236,0l(230)64Ĺ49237,0sJ(230)32Ĺ230,64:500(230)64Ĺ230,32II1I0ī560J1NE3000: ERASE LAST POINTSJ!10II2 ":B$#"B$"R"B$"C"320,,280m@ PREPARE SCREENS,POT AXES AND WRITE FIRST SET OF PARAMETERSuJ:|T3^1000: PLOT AXES ON PAGE 1h230,64:1000: PLOT AXES ON PAGE 2r230,32|1I0:PER02000: WRITE PARAMETER(6,0):NSARR(7,0):NEARR(8,0)2PI3.1415926535BM9.109E31PC2.998E8qGAMIN1(1(VP2VZ2)C2)PPINGAMINMVP: INITIAL P PERP,USED HERE AS A NORMALIZING CONSTANT :"ENTER R FOR RECTANGULAR DISPLAY":" C CIRCULAR 79,6,157,79,10,189,207,6,157,207,10,189,79,7,157,79,11,189,207,7,157,207,11,202,208,229,96 q FETCH DATA FILE:"ENTER FILE NAME ";A$:(4);"BLOAD ";A$;",A";(107)(108)256VPARR(1,0):VZARR(2,0):FARR(3,0):XARR(4,0):NARR(5,0):EFAR< SHAPE TABLE LOATED AT $9001+ FI1172 PDA Z36864I,DH dIy n 2,0,6,0,12,0,42,36,63,54,5,0,184,45,30,4,0 x232,1:233,144 WRITING ON TEXT PAGE 2. SUBROUTINE LOCATED AT $801 I130 D 2048I,D I[ 162,40,189,8 x DISPLAY DATA IN FILES CREATED BY PS. P PERP VS THETA IN RECT OR CIRC COORDS FOR 24 ELECTRONS EVERY 4 PERIODS.  INITIAL PARAMETERS ::24576:36864 (" PHASE SPACE REPRESENTATION":" OF ELECTRON MOTION": 2ARR(61,24)             `  0 0>|  p@p0 @@``@`@ 0x@@@8@`@p@`@<` @`@ @``08`0`> 0 0  p  0" " """""""""!!! ! ! ! ! !!!!!!!!!   ŠŠΠӍ" " C0XC279ı1:0)JNEĕ1XC,YC=JNEĕ2XC,YCCX END OF PROGRAM0XFXD901:0+JNEĕ1XD,YC>JNEĕ1XE,YCQ"JNEĕ1XF,YCe,JNEĕ2XD,YCy6JNEĕ2XE,YC@JNEĕ2XF,YCJh CIRCULARrYC80PA(I,J)PPIN(TA(I,J))40|XC140PA(I,J)PPIN(TA(I,J))40 YC0YC159XR)023:23::" PERIOD NO. ";(PER$,2);" ":6L SUBROUTINE PLOT^B$"C"ī4200p RECTANGULARYC140PA(I,J)PPIN60YC20YC20YC140YC140XC140TA(I,J)2PI90XD(((XC95)90)((XC95)90))9095XEXD9