' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`RUN^" I `ayLqHɵrims`aiȱȄ詷 ,詷 `iHhLꢩLҦ)N12::"X";::"-Y PLOT (2D PLOTS)":^N9:11:" YOUR CHOICE --> ";:CH$:CH(CH$):CH$vNCH84ĺ"RUN PLOT"NCH88ĺ"RUN PLOTC"NCH1310N5030TB::"G";::"ENERATOR PROGRAMS"@+TB::"Q";::"UIT PROGRAM"A-:9::" SIS FOR TRANSFORM ":QM21:6:" DEFAULT FILES ? (";::"Y";::"/N) --> ";:OK$cMOK$"N"ĺOK$MOK$(13)OK$"Y"FL3:"Y"MM::12::" PLOT MENU ":::M22:12::" FOR MENU "::4M12::"T";::"IME SERIES DATA": 20:868L L FL23050[L 21:868:21:10:AD8264:" FFT OF PLOT.";NM$:3100:L 23:10::AD8286:"SAVE AS PLOT.";NM$:3100:L I03:ADI,32:L& I0(NM$)1:ADI,((NM$,I1,1))::M:I1923:I:868::19:7::" ENTER FILE5ĺ"RUN PLOT.ACF".KCH67ĺ"RUN PLOT.CCF" FOR MENU "::4J12::"A";::"UTOCORRELATION":J12::"C";::"ROSSCORRELATION":J9:11:" YOUR CHOICE --> ";:CH$:CH(CH$):CH$KCH6 "RUN PLOT.QUADPLOT"1I"RUN PLOT.SHP.TEST"kI 23:868:21::8:"FILE TO RENAME --> ";:34554,DA$I*:14:"NEW NAME --> ";:34554,DB$I4"RENAME ";DA$;",";DB$:500IR"RUN PLOT.COPY"I:2::" DISK CATALOG ":$J"CATALOG"::" (AHPCH66740HSCH83790-HTCH70850 ";:34554,DA$:"DELETE ";DA$:500H"RUN PLOT.PIC.EDIT"H"RUN PLOT.BASE"H"RUN PLOT.MERGE"H"RUN PLOT.TED"IE VIEW"+G!TB::"B";::"ASE CONVERSION"1G&]G+23:7::" SPACE BAR FOR MAIN MENU ":G020:11:"YOUR CHOICE --> ";:CH$:CH(CH$):CH13CH10560G5CH$G;CH80730G<CH84770G?CH3210GDCH68700GICH67900HNCH82800ME A FILE".FTB::"M";::"ERGE TWO FILES"LFTB::"F";::"ILE COPY"oF11:12::" SPECIAL MENU ":F:TB::"P";::"ICTURE EDITOR"FTB::"T";::"EXT FILE GENERATOR"FTB::"Q";::"UADRATIC PLOTTER"GTB::"S";::"HAPE TABL1000E|"RUN PLOT.DB"LE216,0::10:"...NICE WORKING WITH YOU":23:VE500{E::11::" ADDITIONAL MENU ":E3:13::" FILER MENU "::ETB11:5ETB::"C";::"ATALOG"ETB::"D";::"ELETE A FILE" FTB::"R";::"ENA"D@"RUN PLOT.WRITER"1DJ"RUN PLOT.WINDOW"GDT"RUN PLOT.NORM"]D^"RUN PLOT.CENT"sDc"RUN PLOT.ROOT"De"RUN PLOT.FILTER"Dh4000DlFL3ĺ"BLOAD PLOT.FFT.OBJ":8192:10Dn"BLOAD PLOT.FFT.OBJ":FL1:3000:FL2:3000:8192:10ErCH32500CCH$;"CCH803001CCH81400@CCH69310OCCH71320^CCH87330mCCH78340|CCH67350CCH70360CCH65370CCH68380CCH82355CCH76357C"(7):110C'216,0C,5000D6"RUN PLOT.EDIT:"ECIBEL OF WORKFILE" "Bx20:24:CH$:CH(CH$):CH13CH10120B16368,0 CGNAL PROCESSING MENU "::>A2TB::"W";::"INDOW WORKFILE"eA<TB::"N";::"ORMALIZE WORKFILE"AFTB::"F";::"OURIER TRANSFORM OF WORKFILE"APTB::"C";::"ENTER WORKFILE"AZTB::"A";::"UTO/CROSSCORRELATION FUNCTION"BdTB::"D";: @ 10@ 32768:2000Z@:::" ED'S PLOT PACKAGE--MAIN MENU--VER 1.2 "::3:TB5|@TB::"P";::"LOT WORKFILE"@TB::"E";::"DIT OR ENTER WORKFILE"@(TB::"G";::"ENERATOR PROGRAMS"@+TB::"Q";::"UIT PROGRAM"A-:9::" SI     :"FILE TO PLOT --> ";DA$:6030M:3:868:3:6:"FILE TO PLOT --> ";DA$\43624,1: DE MZIZX,MY2MZIZX,MY2%3I1010SMYIZY0MYIZY1595610rMZ2,MYIZYMZ2,MYIZYx~p3:"PLOT FILE --> ";DA$;" ? (";::"Y";::"/N) --> ";:OK$zOK$(13)OK$"Y"ĺ"Y":6015|6020:3:868:3:6 4560*| AXES AND TICK MARK SUROUTINECCXAXBX:CYAYBY:3qMZ59157(1(AXCX)):MZ239MZ59MZ59MY2157(1(BYCY)):MY159MY0MY15956,MY218,MY:MZ,0MZ,160ZX15.7:ZY15.7I1212MZIZX59MZIZX2185570";::"Y";::"/N) --> Y";:OK$>OK$(13)OK$"Y"ĺ"Y":]"N":12:" XMAX = ";AXs" XMIN = ";BX:" YMAX = ";AY" YMIN = ";BY18:" ARE THESE OK ? (";::"Y";::"/N) --> Y";:OK$OK$(13)OK$"Y"ĺ"Y":2600' MX,MYPX,PY:PXMX:PYMY:2600? NJ44:NJMX2,MY2E( KF d SCALING SUBROUTINE10:"MAXIMUM AND MINIMUM VALUES":5:"XMAX = ";AX5:"XMIN = ";BX:5:"YMAX = ";AY5:"YMIN = ";BY 18:" ARE THESE OK ? (5(YLI1):0 POINT PLOT SUBROUTINEH 16304,0:16302,0` 16300,0:16297,0v 3:1:0:INSNP MX59157((X(I)BX)CX) MY2157(1((Y(I)BY)CY)) CH$"S"2590 CH$"L"2575 MX,MY:2600 INSPXMX:PYMY:159 1:0G I1XU:CH$(XU$,I,1):XH1(CH$):XHPU5I,MY10: I1XL:CH$(XL$,I,1):XH1(CH$):XHPL5I,MY10: 48:IYU11:CU$(YU$,I,1):XV1(CU$):XVMZ5,45(YUI): 48:IYL11:CL$(YL$,I,1):XV1(CL$):XVMZ5,QL0 ^BYY(I) h .  PUT ON VALUESB 232,0:233,128Z YU$(AY):YL$(BY)r XU$(AX):XL$(BX) YU(YU$):YL(YL$):QU0:QL1592.5YL XU(XU$):XL(XL$):PL39ZX2.5XL:PU227ZX2.5XU MY2157(1(BYCY)):MY159MY0MY"ĺ"Y": T& x16304,0:16302,0> 16300,0:16297,0D ^  MIN-MAX SUBROUTINEs AX1E37:BX1E37 AY1E37:BY1E37 INSNP AXX(I)1580 "AXX(I) ,AYY(I)1600 6AYY(I) @BXX(I)1620 JBXX(I) TBYY(I)164ER OF POINTS --> ";NT$:NT$(13)NT$""Ģ5:23:"DEFAULT VALUES":330 ENT(NT$):6:7:"STARTING AT --> ";NS:NPNTNS1:CH1 J8:" ARE THESE OK ? (";::"Y";::"/N) --> Y";:OK$ OOK$(13)OK$"Y"ĺ"Y": Q"N":300 ROK$(13)OK$"Y8:14::" SCALING ":# dINSNPA nX(I)AR(I):Y(I)AR(I128)G xQ 1500d 8:868:4500j t 5500~ 2500 1700 43624,1:A$:A$:"RUN^" , 64::"D";::"OTS/LINES/SHAPES --> ";:CH$:CH$(13)ĺ"D"F @CH$:5:" NUMBc  ::AR(256),X(128),Y(128)>Z(X1)(X1)256(X11)PD$(13)(4)2:::" X-Y POINT PLOTTER PROGRAM ":ZDA$"PLOT.DATA":6000:300:8:868:14::" LOADING "::D$;"BLOAD ";DA$;",A";Z(107)\CH0NS1:NPAR(0) ^     CH:CH$(13)90# ACH1CHN60O F18:8::" LOADING PLOT.";T$(CH);" ":h P"RUN PLOT.";T$(CH) ZN5:10:"YOUR CHOICE --> ";:"MENU":"RUN^" d T TM2 2 OB8,FUNCTION,FUNCTIONC,PULSE,VCHIRP,MCHIRP,RANCOS,SQFM,QUADFMz ::8::" GENERATOR PROGRAM MENU ":::TB12:N:(I1N:T$(I):TB::I;::" --> ";T$(I):722:12::" FOR MENU ":: <N5:10:"YOUR CHOICE --> ";:CH$:CH(CH$):CI1NW1:W(I)(I1)NW::LCI1NW1:W(I).5(1((I1)PINW))::TOW SIZE (% OF LEN) -->";:" ";XN:XNXN100:NW(NXN.5)QB5:" WINDOW SHAPE:"tB7:3::"1";::" --> LINEAR"B&8:3::"2";::" --> RAISED COSINE"B010:" YOUR CHOICE --> ";:CH$:CH$:CH(CH$)BNB GENERATE WINDOWBCH1020,10307);",L1292"A32768#A"RUN^"9A, WINDOW FUNCTIONEA6I1NWRA;IIN1IgA@AR(I)AR(I)W(I)ABAR(II)AR(II)W(I1)AGAR(0)128350AJAR(I128)AR(I128)W(I)AYAR(II128)AR(II128)W(I1)A^:A INPUT PARAMETERS8B3:" WINDM@ AR(256),W(256)&@PI3.14159262@D$(4)N@(X1(X)(X)256(X1)s@2::11::" WINDOW WORKFILE ":@dD$;"BLOAD PLOT.DATA,A";X1(107)@nNAR(0):500@s18:13::" CALCULATING ":@x1000@300 AD$;"BSAVE PLOT.DATA,A";X1(10    128DIAW2JTJJTH6DAR(I)(IA):AR(II)(IA)III128CHIAW1JTJJCRAR(I)(IA):AR(II)(IA)C\CIN11NXCJS(IN11)DIII1:NS128Bd2000kBi10:" SAVE AS ";::DA$;::" ? (";::"Y";::"/N) --> ";:OK$:OK$(13)OK$"Y"BjOK$:OK$"N"210Bn:"NAME TO SAVE FILE AS --> ";DA$B:D$;"BSAVE ";DA$;",A";X1(107);",L";X1(109)X1(107)B"RUN^" C SIGNAL XAMPLE INPUTS "cA>20:" FREQUENCIES W1 AND W2 IN 0 ";:OK$:OK$"N"70AP:10:868:10::" CALCULATING ": BZS@ DEMO WRITE PROGRAMB@ LEAVE IN LINES 10,30,50,110,&210i@ AR(256):DA$"PLOT.DATA":AR(0)128@X1(X)(X)256(X1)@2D$(4)@7::7::" VCHIRP SIGNAL GENERATOR ":@94:" INPUTS":@<18::I139:" ";::A=18:13:" E ) *AR(I7)AR(I)$ 4AR(I4)AR(I2)6 >AR(I6)AR(I2)H HAR(I8)AR(I2)N R\ WAR(0)256b \D1(107) "RUN^"3  PUT YOUR DATA INTO AR(I)P  WHERE 1<=I<=256 POINTSj  HERE IS AN EXAMPLEv I132 I2I32:I3I64:I4I96 I5I128:I6I160:I7I192:I8I224 AR(I)(I1)32:AR(I2)(65I2)32 AR(I3)AR(I) AR(I5)AR(Id DEMO WRITE PROGRAMB LEAVE IN LINES 10,30,50,110,&210O AR(256)kX1(X)(X)256(X1)(:10:10:"TRIANGLE GENERATOR"2D$(4)d2000n:"NAME TO SAVE FILE AS --> ";DA$ D$;"BSAVE ";DA$;",A";X1(107);",L";X1(109)XI1 :A$(J) J* D$;"CLOSE ";N$9 D$;"RUN^"IE ";N$I ";::"<<<":% < LOOP BEGIN1 F:II1L Z"STRING #";I;" --> ";] d34554,A$(I)o nA$(I)""60~ x:I1230 "WHAT FILE NAME? ";N$ N$""230 D$;"OPEN ";N$ D$"DELETE ";N$ D$;"OPEN ";N$ D$;"WRITE ";N$ J1:(32768)12810-"BLOAD PLOT.OBJ"> A$(100):I0SD$(4): CTRL D[:7">>>";::" TEXT FILE GENERATOR ";::"<<<"9">>>";::" YOU MAY ENTER COMMAS AND COLONS ";::"<<<" ;">>>";::" ENTER A TO QUIT  7);",L";X1(109)X1(107)'B12:868>B(13);(4);"RUN^"0)128d@X1(X)(X)256(X1)p@2D$(4)@F3:8:"ENTER W1 --> ";W1@P5:8:"ENTER W2 --> ";W2@Z7:" IS THIS OK ? (";::"Y";::"/N) --> Y";:OK$:OK$"N"ĺ"N":70A\"Y"!A]12:15::" CALCULATING ":OA_TAW1:TC(W1W2)(36464):TB1.5TC128bAnI1128:JI1~AxIATAJTBJJTCJJJAAR(I)(IA)AAI129256:JI129AIATAJTBJJTCJJJAAR(I)(IA)ABD$;"BSAVE PLOT.DATA,A";X1(10?+@::8::" SQFM SIGNAL GENERATOR ":H@ AR(256):N256:AR(0)128d@X1(X)(X)256(X1)p@2D$(4)@F3:8:"ENTER W1 --> ";W1@P5:8:"ENTER W2 --> ";W2@Z7:" IS THIS OK ? (";::"Y";::"/N) --> Y";:OK$:OK$"N"ĺ"N":70A\"Y"   I,112020I,180A"AI013>A20,I1311220,I1311DAOAJ09fA49J820(J1),8lAxAJ012AJJJ:JJ9JJJJ10A49JJ11,J1320AAI02A505,15013IAA,ED$::"RUN^"IR@(32768)1286 @32768B@(4);"BLOAD PLOT.OBJ,A$8000"V@232,0:233,128\@j@16302,0q@3x@(1@20@<I012@AJ09@CIC10IJ:XA820(J1):YAI1320@DIC128IC1100@FICXA,YA@d:@I010A2020ANGE(J::3:13::" ROOT FINDER ":ZT5:" THE CURRENT WORKFILE IS --> ";::DA$:^7:" CHANGE IT ? (Y/";::"N";::") --> ";:CH$:CH$"Y"8050h"N":r"Y"w9:" NEW WORKFILE --> ";:34554,DA$:DA$""8055|DDII1:6000:5:"ROOT ";I;" = ";B(I)::70001a7:868:7:13::" DEFAULT VALUES ":::X11:X2AR(0):NPAR(0):RH0:pII18IIII18:5:"(PRESS ANY KEY FOR MORE ROOTS)":SP$:SP$"":SP$;:zXI039:"=";::@ WORK FILE CH MAR(N1)AR(N)0NN1% R20154 NNP2210P AR(NP)0B(K)X2:KK1 K1ė:" NO CROSSINGS FOUND AT Y = ";RH:2220+:7000:" Y = ";RH;", ";:"WORKFILE = ";DA$:5:"XMIN = ";X1;" , XMAX = ";X2;" , NP = ";NP:II0:7000:I1K1:IIOOT FINDER N1:K1& NNP22004 IN1NPL FTAR(I1):SDAR(I)v FT0B(K)X1DX(I1)DX:KK1:2060 FTSD02060 2100  2200 4NI >A(SDFT)DX:BSDA(X1(N1)DX) HXZBA:B(K)XZ:NN1:KK1 KN2562210NP = ";NP::II0:I1K1:IIII1:5:"ROOT ";I;" = ";B(I)::\ "PR#0":16352,255:170 P$:"PR#0":16352,255:"RUN^" :" RERUN THE PROGRAM ? (Y/";::"N";::") --> ";:P$:P$(13)P$"N" P$"Y"ĺP$:190 160 :10  R) d2000:K1170b n:" PRINT THESE RESULTS? (Y/";::"N";::") --> ";:P$:P$(13)P$"N"r xP$"Y"140z }P$ 170 P$:16352,254:"PR#1":> " CROSSINGS AT Y = ";RH;", ";" WORKFILE = ";DA$::5:"XMIN = ";X1;" , XMAX = ";X2;" , 1$)0İ4000:90 H22:868:89 K10:" XMAX --> ";X2U M:8:" POINTS --> ";NPu N:"CROSSING VALUE --> ";RH Z14:14::" CALCULATING ": _D$;"BLOAD ";DA$;",A";X1(107)" aI1NP:AR(I)AR(I)RH: b(X1$)0İ5000 cDX(X2X1)(NP1 AR(256),B(256))DA$"PLOT.DATA"38000OX1(X)(X)256(X1)[2D$(4)g7:3:6<:15:" ROOT FINDER "::A10:" CALIBRATION DATA":C22:7::" FOR DEFAULT VALUES "::7 F10:" XMIN --> ";X1$:X1(X1$):(X  ---- R1)(E1X(4)E2X(3)E3X(2))E45I NONO1:BR(NO)YOI Y(1)Y(2):Y(2)Y(3):Y(3)Y(4):Y(4)YO:X(1)X(2):X(2)X(3):X(3)X(4):X(4)XI:3000I I' ----------------I' --ED TITLEBAUM--I$' ----12/25/81----I.' --716-624-4430--J8' ------------4E1X(1):Y(3)C1Y(2)E4(E1X(2)E2X(1))aHY(4)C1Y(3)C2Y(2)E4(E1X(3)E2X(2)E3X(1))pH JO02080HNO0:I14:NONO1:BR(NO)Y(I):H H RECURSIVE FILTERINGH NTNT1H NTN3100I XIAR(NT):YOC1Y(4)C2Y(3)C3Y(2)C4Y((1(C1C2C3C4))_G.E1(A2D1A1D2):E2(B2D1A2B1D2A1):E3(D2B1D1B2):E4C5(E1E2E3)eG8}G INITIALIZE FILTERGNT0:I14:NTNT1:X(I)AR(NT):GJA02040GXM0:I14:XMXMX(I)::XMXM4:I14:Y(I)XM::2060+HY(1)0:Y(2)E044709220FCA(Z1):SA(Z1):TAZ21:EA(Z3)_FA1(2CAEA):B1(2Z3):D1EA(CATASA)FCB(Z3):SB(Z3):TBZ21:EB(Z1)FA2(2CBEB):B2(2Z1):D2EB(CBTBSB)G$C1(A1A2):C2((A1A2)B1B2):C3((A1B2)(A2B1)):C4(B1B2):C5)650E{GT$>E:10:"ENTER SAVE FILE -->";:" ";DA$:655OEGT$"Y":GT$uE"BSAVE ";DA$;",L1292,A";Z(107){EE SWITCH ARRAYSEI1256:AR(I)BR(I):EAR(0)N:E SET UP COEFFICIENTSFZ1T5.804906305:Z21.414213562:Z3T2.4 ";DA$:555D&GT$"Y":GT$=D+20:15::" CALCULATING ":UD-(DA$)1AR(1)1:wD0"BLOAD ";DA$;",A";Z(107):DX SAVE WORKFILEDb20:868:14Ev:DA$"PLOT.DATA":"SAVE-> ";::DA$;::" ? (";::"Y";::"/N) --> ";:GT$:GT$"Y"GT$(13:OK$:OK$"N"ĺOK$:315#Cr"Y":6C GET WORKFILEKCAR(256),BR(256)fCZ(X)(X)256(X1)C:DA$"PLOT.DATA":"FILTER ";::DA$;::" ? (";::"Y";::"/N) --> ";:GT$:GT$"Y"GT$(13)550CGT$ D:5:"ENTER FILE TO FILTER -->";:"CN_BT5:" FOUR POINTS AVE'D (";::"Y";::"/N) --> ";:JA$:JA$"Y"JA$(13)JA1:JA$"Y"hBYJA$B^6:" FOUR POINTS OUT (";::"Y";::"/N) --> ";:JO$:JO$"Y"JO$(13)JO1:JO$"Y"BcJO$Ch8:8:"IS THIS OK? (";::"Y";::"/N) --> ";RKFILEAd"RUN^"*A, INPUT PARAMETERSPA6::12::" RECURSIVE FILTER ":A;N128:3:"NUMB OF POINTS (";::"128";::"/256) -->";:" ";N$:(N$)0N256A=3:30:NA@4:"CUTOFF FREQ (OUT OF ";N;") -->";:" ";NC$:NC(NC$):NC0320BJTN @ RECURSIVE 4'TH ORDER9@ ADJUSTABLE BUTTERWORTHN@ LOWPASS FILTERd@ 300: INPUT DATA|@500: GET WORKFILE@1000: CALCULATE COEF'S@(2000: INIT RECURSIVE FILTER@23000: DO FILTERING@<700: SWITCH ARRAYSAP600: SAVE WO          HE ":"FREQUENCIES.":, TW3.141592654649 I1256D I1I1 AR(I)(I1TW(1E1))(I1TW(2E2))(I1TW(3E3))(I1TW(4E4))(I1TW(5E5)) :DOK$(13)OK$"Y" iOK$- jOK$"N"210G n:"SAVE AS --> ";DA$s D$;"BSAVE ";DA$;",A";X1(107);",L1292" D$;"RUN^"  ,:"PROGRAM GENERATES 5 COSINES WITH":"HARMONICALLY RELATED FREQUENCIES. THE":"5 NUMBERS, E1...E5, ARE ADDED TO T" ";E(I):6 AE1E(1):E2E(2):E3E(3):E4E(4):E5E(5)~ b12:" IS THIS OK ? (";::"Y";::"/N) --> ";:OK$:OK$"N"55 c"Y"" d12:868:12:11::" CALCULATING "::2000 f12:"SAVE AS ";::DA$;::" (";::"Y";::"/N) --> ";:OK$ h AR(256),E(5):AR(0)2561DA$"PLOT.DATA"MX1(X)(X)256(X1)Y2D$(4)7::6::" RANDOM COSINE GENERATOR ":818::" ";::" INSTRUCTIONS ";::" "::30094:" INPUTS": <I15:4:"E";I;" =";:  G FINISHED PLOTTING CURVE-G "";:CH$nG16301,0::"ANOTHER CURVE ? (";::"Y";::"/N) --> ";:W$GW$"N"ĺ"N":1070G$"Y":::130G."RUN^"X E = ";E@" M = ";M@"ARE THESE VALUES OK? (";::"Y";::"/N) --> ";:Z$A:" AND ";::" -5 < Y < 5 "::@F13::" EXAMPLES: "::oF"1) --> B=M=1, ALL OTHERS = 0 THEN WE ":F" HAVE AN HYPERBOLA."F:"2) --> A=B=C=M=1 AND D=E=0 THEN WE ":F" HAVE AN ELLIPSE.":F9:"(ANY KEY TO CONTINUE)"FXM1XM279890"EfXM,2XM,190)Ep /EzbE:" PLOT QUADRATIC CURVES OF THE FORM: ":zE7:"2 2"E" AX + BXY + CY + DX + EY = M":E:"---------------------------------------"::!F" WHERE: ";::" -6 < X < 6 ";:D15,K265,K:D$DX140MD7DX279X1770=DLDX,2X,190RDXDgD D1D(2A)mDD D2((D1D1)(MA).5)D*D20890D4XPD1(D2):XMD1(D2)D>XP(XP140.5):XM(XM140.5)DHXP1XP279860DRXP,2XP,190E\1C2)96.5) CBP191BP1520+CX1,BP1C;C1030MCA0D01030aC&A0İ720:1030jC0780tC:1030CDRF1600CN:3CX16302,0Cb140,1140,191Cl1,96279,96CvI55:K24IC140K,10140K,181:CI19:K20I4B3B4B5B^B60420#BhB7(B6)IBrBP(B1B796.5):BM(B1B796.5)^B|BP191BP0400iBX1,BP~BBM191BM0420BX1,BMBB1030BE0B0540BX11278:XX1140B(EBX)0520BC1MDXAXXBC2EBX CBP((CZ$"N"ĺ"N":17:135*A"Y":16304,03ABB?AEE20JADD20VAMM400sAAA1.44:BB1.2:DD1.2A580:RF1AC0440AX11278:XX1140A"B1(EBX)(2C)A,B2MCA6B3(DX)CA@B4(AXX)CAJB5B1B1BTB6B2ȥ @36000@ :@d9001@n34,5:X$::22W@16303,0:J1923:J:868::20i@" A = ";A{@" B = ";B@" C = ";C@" D = ";D@" E = ";E@" M = ";M@"ARE THESE VALUES OK? (";::"Y";::"/N) --> ";:Z$A       ;"BSAVE PLOT.DATA,A";X1(107);",L1292"4 12:868K (13);(4);"RUN^"J AR(I)(IA) T TAW3:TC(W12W2W3)(66464):TB((W2W3)128)(TC96)g I1128:JI1 IATAJTBJJTCJJJ B(I)(IA): I129256:JI129 IATAJTBJJTCJJJ B(I)(IA): I1256:AR(I)AR(I)B(I):& D$N) --> Y";:OK$:OK$"N"ĺ"N":70+ \"Y"L ]12:12::" CALCULATING ": _TAW1:TC(W12W2W3)(66464):TB((W2W1)128)(TC96) nI1128:JI1 xIATAJTBJJTCJJJ AR(I)(IA) I129256:JI129 IATAJTBJJTCJJL.::6::" QUADFM2 SIGNAL GENERATOR ":R AR(256),B(256):N256:AR(0)128nX1(X)(X)256(X1)z2D$(4)F3:10:"ENTER W1 --> ";W1P4:10:"ENTER W2 --> ";W2U5:10:"ENTER W3 --> ";W3" Z7:" IS THIS OK ? (";::"Y";::"/    .DATA ":7 D$;"BSAVE PLOT.DATA,A";X1(107);",L1292"E 12:868\ (13);(4);"RUN^"NCALCULATING ":L _TAW1:TC(W12W2W3)(66464):TB((W2W1)128)(TC96)_ nI1128:JI1{ xIATAJTBJJTCJJJ AR(I)(IA) I129256:JI129 IATAJTBJJTCJJJ AR(I)(IA) 12:868:12:8::" SAVING PLOT:AR(0)128& X1(X)(X)256(X1)2 2D$(4)U <3:8:" ENTER 3 FREQUENCIES "l F5:5:" W1 = ";W1 P6:5:" W2 = ";W2 U7:5:" W3 = ";W3 Z9:" IS THIS OK ? (";::"Y";::"/N) --> Y";:OK$:OK$"N"ĺ"N":70 \"Y" ]12:12::" ]-::6::" QUADFM SIGNAL GENERATOR ":r18::" ";::" INSTRUCTIONS ";::" "::"PROGRAM MATCHES 3 FREQUENCIES (0";:" ";A1@ 5:" AMPLITUDE OF SECOND PULSE -->";:" ";A2r 7:" DELAY IN NUMBER OF POINTS -->";:" ";TA 9:" FREQUENCY OF PULSE (.5-2) -->";:" ";W1 N  GENERATE PULSES I125 P(I)(.5(1((I1)PI12)))(W1(I1)):1) 32768 "RUN^"0 , CHOOSE SAVE FILE 618:" SAVE AS ";DA$;" ? (";::"Y";::"/N) --> ";:CH$:CH$(13)CH$" "CH$"Y"330 @"N":20:" SAVE AS --> ";DA$:340 J"Y" T  INPUT PARAMETERS 3:" AMPLITUDE OF FIRST PULSE8 AR(256),P(25)%PI3.14159261D$(4)M(X1(X)(X)256(X1)w2::9::" PULSE TRAIN GENERATOR ":nN128:AR(0)128x50018:13::" CALCULATING ":1000DA$"PLOT.DATA":300 D$;"BSAVE ";DA$;",L1292,A";X1(107    6:868:1400OWETO CONTINUE "::A$:A$:140018 CLEAR PICTURECB:1000:1400K:V""16:868:10::" CAN'T FIND THAT FILE ":J11500::216,0:16:868:1400OWE400OWES::" CAN'T FIND THAT FILE ": UJ11500::216,0:1 MENU ":6z16:10:"PICTURE NAME --> ";:34554,PN$GPN$""1400YPN$"?"610016304,0:16302,0:16300,0:16297,0"BLOAD ";PN$;",A$2000"ZZ$:16:868:1460:::" DISK CATALOG "::"CATALOG":" ANY KEY T  2420 ' (16287)12724903 :2407H CHARACTER PACKT I1L1| LT$(L1$,IS1,1):L(IS1)T1(LT$) L(IS1)65L(IS1)33 767I,L(IS1)  p LOAD PICTUREr6300 u21:5::" --> CATALOG , -->SCSC1:SCSC((SC1)2)2:2407Uo SC:RT:16304,0:16302,0:16300,0:16297,0qt XX(0)PX3:XX0XX0y XX275XX275~ YY(1)PY4:YY6YY6 YY188YY188 ASXX,YY (16287)1272500 ASXX,YY (16286)12724108:" ROT = ";RT;:11:" SCALE = ";SC;:24:"(SHAPES 1 TO 128)"j :3:868:3::" SHAPE NUMBER ";::" ( FOR MENU) --> ";:34554,AS$:AS(AS$):AS$(2)2020l (AS$)01400m AS0(AS$)1RTRT16:RTRT(RT64)64:2407!n AS0(AS$)2+ 16:" CTRL-L --> LOWER CASE STRING":F 18:17::" SHAPE ":w! 20:"SHAPE-Q -> CHANGE ROT BY 16 (90 DEG)"" "SHAPE-QQ -> CHANGE SCALE 1 <--> 2"$ 23:4::" LABEL --> CTRL-B <-- SHAPE "::` ASCII SHAPEe SC1>g 5:862020:1400F7::I140:" ";:::7:14:" INSTRUCTIONS "a14:17::" LABEL ": :9:" PDL(0) --> HORIZONTAL (L/R) MOVEMENT" " PDL(1) --> VERTICAL (UP/DN) MOVEMENT" " BUT(0) --> ACCEPT LABEL" " BUT(1) --> CANCEL LABEL"X30X30#X4279X3XX2LX22X30X30AY36Y36bCX3255Ĺ809,255:810,X3255~DX3255Ĺ809,X3:810,0H811,Y3:812,L1:35328R(16287)1272180p35328z(16286)12720202030(16287)1272177";::" ( FOR MENU)"::"--> ";:34554,L1$:L1(L1$):L102200VL1$(2)2400p((L1$,1))122025T133:S11:L1L111:0:16304,0:16302,0:16300,0:16297,02700 XX(0)PX:YY(1)PY:LX3L1:X3XXLX:X4XXLX:Y3YY5:ASO NUMBER --> ";N$:(4)"PR#1":(9)N$"H":"PR#0"::1400T FLOATING LABELSa3:1:0y16286,0:16287,0X(0):::11::" FLOATING LABELS "::3:PX283255:PY1932552300CT11:S10::3:868::868::868:3::" LABEL "GRAPPLER STRING --> ";GP$Fh"PR#1":" G"GP$:(27);"2":"PR#0"Ri:1400j22:4:868:20::" 0 --> NORMAL, OTHER NUMBERS ":21:4:" 1,2,...,128 (SEE THE PKASO ":4:" MANUAL FOR SPECIFIC NUMBERS). ":>kD$(4):17:11:"PK1855 :Q$=SZ2ĺL$*?D$;"PR#0"BD12527,2:12528,5\N12529,0:16352,255hb:1400d22:4:868:20::" --> NORMAL R --> ROTATED ":21:4:" D --> DOUBLE I --> INVERSE ":4:" E --> EMPHASIS ":g17:8:(SZ$)01890SZ801898.SZ711892>SZ681818NSZ821819X1811mCL10:SZ2:1820vSZ116352,254::D$;"PR#";SL!L$&12524,0:12527,CL:12528,7:12525,32012529,2552SZ2184641850634816::"R";::"EGULAR SIZE":;TA::"D";::"OUBLE SIZE":X8:10:I119:"-";::TA::"G";::"RAPPLER"::TA::"P";::"KASO":22:10::" FOR MENU ":15:TA2:"YOUR CHOICE --> ";:SZ$:SZ$:SZ(SZ$):16368,0:SZ13) J16300OD$;"BSAVE ";T$;",A8192,L$1FFB"<T:1400V^216,0:43624,1:1400m PRINT SUBROUTINE  DOUBLE -> CALL 34816 X(0):D$(4):Q$(17):L$(12):CL20:TA14 :12::" PICTURE PRINT ": 3:10:" SILENTYPE:":TA:QU$(78)ġ:1400? ::10:"...NICE WORKING WITH YOU":22:W @ SAVE PLOT ON DISKy A::13::" SAVE PICTURE ": B22:12::" FOR MENU "::2 C10:"WHAT NAME SHOULD PICTURE HAVE ?":13:"-> ";:34554,T$: D(T$)01620ED$(4$" "1460 MU$(13)14004 OV1:LD0:RF0Ĭ< 20 23:4::"...ARE YOU SURE ? ";::" (";::"Y";::"/N) --> ";:QU$:QU$(78)ġ:QU$:1400 "Y":(4);"RUN^" 23:4::"...ARE YOU SURE ? ";::" (";::"Y";::"/N) --> ";:QU$:" "1480 MU$(13)1460- MU67MU2= MU83MU3M MU76MU1] MU80MU4m MU66MU6} MU70MU5 MU81MU7 MU71460 MU6000,6200,1600,1800,2000,1490,1495 16304,0:16302,0:16300,0:16297,0 MU$:MU::"P";::"RINT SCREEN"= TB::"F";::"LOATING LABELS"c TB::"B";::"ACK TO MAIN MENU"~ TB::"Q";::"UIT": 5::" PICTURE --> <-- MENU ":: 43624,1:21:868::21:11:"YOUR CHOICE --> ";:MU$:MU$:MU(MU$):MU$ $ x MAIN MENUK z232,0:233,128:10,76:11,0:12,137:230,32Y }::TB11d 216,0 12::" PICTURE EDITOR "::2: TB::"L";::"OAD A PICTURE" TB::"C";::"LEAR THE PICTURE" TB::"S";::"AVE PLOT TO DISK" TB MAIN PROGSAM L(50)5(32768)12830L"BLOAD PLOT.OBJ"USL1_(1400g:12::" PICTURE EDITOR "::2:4:" CLEAR PICTURE IN MEMORY (Y/";::"N";::") --> ";:OK$:OK$"N"OK$(13)1050:::1060                PQ`5lqΙzu hhnΪHHy΅ȱ΅FؠoΪȱΠΊ`ɁݥۘՊi ꥢ뺽 纽 +뺊i $0 0ihhHH` 0l쥝@Ɂ:ɑ=ɐ))Q&&Q*$0P`IPQIiQP`QߩPQ`5l쥢0"ɁɉɈ )*```5liQPIiP`$P0`P0QЧ`QP`Q8SPRp 0 `0``hhʚHH芠L+hihiHHHHHl뺽ɁhhiL+iҠ: eh)eeVȱeW`WVLWVL]L5lɁ0liHL͠ɠŠޥ12$Libvvvv$$$éʮΥPQQPPQP`+LW L:LP Q5lQ`+%0#0 00QP`QPSRQP`QPSR`QPϥQeSQPeRP`S8QQRPP`QI b x wg Ύ Ѝ Ǎ L&$hhhhhhhhhe؍Z[LofHHHHHHHHHFةHHH3vv$Z[΄ϩ o$0L1L.$0W ] 1 hh 1l3 ? \۽` \(  A 8$L_J@JJK@@  x GPHQH x GhShR ܌PQ b + x GPQ g + x GPQ l + q hHH l = QHHqHq $ x G  ) q RH 4 hREą SШЈHhH--h5 :0h$. А \АI0L !" Ņ67L Hυ$h` ϭϰ ͠*+ v)Mύ+ ˥++L% + v)xJJJMύ+ ˥++LJ *(`+*H)JJh & & f) υ` ``xf~ayg@0p L<|C3sO? $Lԅ ,խLcة  = {ڥ `I$$m6n$J$$ u6&XXۖI X$ -6?M $$-u6?&XIIX$ -6>?N1X $$ uߖI -%X?X-"X۳JIX $$;MoX$l 6?M XX$M1MX$l 6kM XM XX$M1XII%,%?- L$$$V-6n $$XRIr- $$XR$$$ e s $$$X$d- -m$$ 6?w n$$$-u?- X$$ -?M $$$-u66?M $$$--?*- $$$--JIX$$ -w?M $$$M16?w 6 )$$$oMXe$$< $$$M $$$)- $$$ %66XXRI$$$V $wnX$$ -66?M $$$-u?I X$$ -667?XJL$$$-u?N1nX- ?d-R $$$?MJXIX $$ Ma$$I %$$ I XX-$V3M cIXX)I!5M d d X!$du66o )$$$JM$ - ?R-mX- $X?V)IXXX% %> 6M)e?'$-JX$ w1?M $dX?o X$Xd-?- X- $$?v-I $XRI $XcIXXXa  X)%X?I XIIX d aIX!X'b)%M--$$$??)JXX$%-.67?dI% X?MVosXIXXX% -sN XXX-%VN X-$?MdsI X qܳJI)%XX ֳRI)%XXXVIX--X??X--RXXXX ֳIII X$$IXXXX!l6JX%$l>M6oM $$$ )eXIX ߳RINX Xdus?M XXXX $$$$-->?.->?.->?.->?7--X XX $$o k X$ m6oi$d-?- 6XXIIX NXXX--6NX!dm!$< -6n XJ XdXM?M X X?N?M $$$ ߳RI X-$$;M:NXX$ -> %> NXXd nNIXd-%*e X$ -?oI-e$?RI XX$ -6VXXX$M1?VId+5GNV^hr &8DP^ly #-39>FQZft ".:FQ^js~ ,7ENYblt #0>GWcmx           28, xAR(I)AR(I)SR:AR(I128)AR(I128)SI2 ` D$;"BSAVE PLOT.DATA,A";X1(107);",L1292"m "RUN^"n AR(256) ::SR0:SI0K10:" NORMALIZING COMPLEX DATA"g(X1(X)(X)256(X1)s2D$(4)<D$;"BLOAD PLOT.DATA,A";X1(107)FI1128PSRSRAR(I)AR(I):SISIAR(I128)AR(I128)ZdSR(2SR):SI(2SI) nI11  :56EI1NDEAR(I)C0AR(I)(C1AR(I)(C2C3AR(I)))LE:CURRENT COEF'S ARE"::33,33:2000,2030:33,40::14:"DO YOU WISH TO CHANGE IT ? (Y/";::"N";::") --> ";:CH$:CH$:CH$"Y"105A4::" CHANGE THESE LINES THEN RERUN 0C1AR(I)C2(AR(I)AR(I)AR(II)AR(II))C3(AR(I)AR(I)AR(I)3AR(I)AR(II)AR(II)) AR(II)C1AR(II)C22T(I)AR(II)C3(3T(I)T(I)AR(II)AR(II)AR(II)AR(II)) : REAL XFORM N256:I1N AR(I)C0AR(I)(C1AR(I)(C2C3AR(I)))";DA$;",L1292,A";X1(107)g :"SAVE THIS FUNCTION ? (Y/";::"N";::") --> ";:A$:130:A$"Y"230 "SAVE PLOT.NONLINEAR" "RUN^" C00:C11:C20:C3.5 4 COMPLEX XFORM T(128):N128:I1N III128:T(I)AR(I)V AR(I)Cİ3000:105 g4000n i10:"SAVE AS ";::DA$;" ";::" ? (";::"Y";::"/N) --> ";:A$:120:A$"N"210 n12:"NAME TO SAVE FILE AS --> ";DA$ s(DA$)0110 v210 xA$(13)A$"Y" }A$: A$(13)A$"N" A$: D$;"BSAVE :33,40:868:868:33,33 7 AR(256):AR(0)256K DA$"PLOT.DATA"g X1(X)(X)256(X1)y 7D$(4)::11 <:" NONLINEAR FILTER ":: FD$;"BLOAD ";DA$;",A";X1(107) Z10:868:10:14::" CALCULATING ": dNAR(0):2000:N128*::11::" NONLINEAR FILTER "::4"THE CURRENT COEF'S ARE"::33,33:2000,2030:33,40::14:"DO YOU WISH TO CHANGE IT ? (Y/";::"N";::") --> ";:CH$:CH$:CH$"Y"10 4::" CHANGE THESE LINES THEN RERUN PGM "::33,33:2000,2030 1256:AR(I)BR(I):AR(0)N:" 49 ' ----------------P ' --ED TITLEBAUM--g $' -----2/9/82-----~ .' --716-624-4430-- 8' ---------------- NGT$(13)650 {GT$F :10:"ENTER SAVE FILE -->";:" ";DA$:655W GT$"Y":GT$} "BSAVE ";DA$;",L1292,A";Z(107)   SWITCH ARRAYS I0N:BR(I)AR(I): BR(0)N:AR(0)N:  PUT THEM TOGETHER *I129256:BR(I)AR(IN)::I DM1530( AR(256),BR(256):DM1C Z(X)(X)256(X1)] DA$D1$:SD2DA$D2$ 0"BLOAD ";DA$;",A";Z(107): X SAVE WORKFILE b20:868:14 v:DA$"PLOT.DATA":"SAVE-> ";::DA$;::" ? (";::"Y";::"/N) --> ";:GT$:GT$"Y".DATA":3:" FILE 1 --> ";::D1$;::" ? (";::"Y";::"/N) --> ";:CH$:CH$(13)CH$"Y"ĺ"Y":320o <"N" =5:" ENTER FILE 1 -->";:" ";D2$:D1$D2$ >(D1$)0317 @7:" ENTER FILE 2 -->";:" ";D2$ E(D2$)0320 J  GET WORKFILE MERGE TWO FILES- 300: INPUT DATAE500: GET WORKFILE^<700: SWITCH ARRAYSlFSD2:500K800: PUT THEN TOGETHERP600: SAVE WORKFILEd"RUN^", INPUT PARAMETERS6::13::" MERGE DATA FILES ":f ;N128:D1$"PLOT   CTIONS= 18::" ":X 18:15:" CONSTANTS "` 20 " A1 AND A2 ARE THE AMPLITUDES" " W11,W12 ARE THE START,END FREQUENCIES" " FOR THE FIRST CHIRP. ETC. H FIRST CHIRP. ETC. D(2NS) NX((NSS).5), I1NX:JI1> JJ(1S)JW0I J1SJb IATAJ1TBJ1J1JJ{ %IBTCJ1TDJ1J1JJ *AR(I)A1(IA)A2(IB):AR(I128)A1(IA)A2(IB) / 1NX128ı 4INX1128 >AR(I)0:AI(I)0: H  INSTRU" SAVE AS ";::DA$;::" (";::"Y";::"/N) --> ";:OK$:N jOK$"N"200v n"N":16:" SAVE AS --> ";DA$:210 OK$"Y":OK$ D$;"BSAVE ";DA$;",A";X1(107);",L1292" D$;"RUN^"  TAW1:TB(W2W1)(2NS) TCW3:TD(W4W3) P" W21 = ";W3& U" W22 = ";W4: ZS1:W00:NS128R aW0W023.141592654 b14:" IS THIS OK ? (";::"Y";::"/N) --> ";:OK$:OK$"N"57 cOK$"Y":OK$ d14:868:14:15::" CALCULATING "::2000:14:15:" "< i14: AR(256):AR(0)128,DA$"PLOT.DATA"HX1(X)(X)256(X1)T2D$(4)7::6::" MULTIPLE CHIRP GENERATOR ":840009:4:" INPUTS":<" A1 = ";A1A" A2 = ";A2CF" W11 = ";W1K" W12 = ";W2 MA2090  AR(II)G(X1DX(I1)) $ C? (Y/";::"N";::") --> ";:A$:130:A$"Y"230N "SAVE PLOT.FUNCTIONC"[ "RUN^"j  FUNCTION C115:C2.5:NP128 G(Y)(C1Y)(C2YY) F(X)(C1X)(C2XX) AR(0)NP I1NP III128 AR(I)F(X1DX(I1)) Y";::"/N) --> ";:A$:120:A$"N"210Q n12:"NAME TO SAVE FILE AS --> ";DA$c s(DA$)0110l v210 xA$(13)A$"Y" }A$: A$(13)A$"N" A$: D$;"BSAVE ";DA$;",A";X1(107);",L";X1(109)X1(107)2 :"SAVE THIS FUNCTION 9:"LOWEST VALUE --> ";X1= K7:8:"HIGHEST VALUE --> ";X2 M10:5:"IS THIS OK ? (";::"Y";::"/N) --> ";:A$:A$:A$"N"70 PDX(X2X1)127 Z10:868:10:14::" CALCULATING ": d2000( i10:"SAVE AS ";::DA$;" ";::" ? (";::"ERUN PGM "::33,33:2001,2010:33,40:868:868:33,33@ W AR(256):AR(0)128k DA$"PLOT.DATA" X1(X)(X)256(X1) 2D$(4) 7:9 <:" X-Y FUNCTION GENERATOR ":: >3::" ENTER THE LOWEST AND HIGHEST X-VALUES ": F5:& FUNCTION GENERATORH::9::" X-Y FUNCTION GENERATOR "::4"THE CURRENT FUNCTION IS:"::33,33:2001,2010:33,40::12:"DO YOU WISH TO CHANGE IT ? (Y/";::"N";::") --> ";:CH$:CH$:CH$"Y"10: 4::" CHANGE THESE LINES THEN R;::"N";::") --> ";:A$:130:A$"Y"230GD"SAVE PLOT.FUNCTION"TD"RUN^"cD FUNCTIONDC12.8:C2.38:C36.3:C44.2DF(X)C4X(C3X(C2X(C1X)))DAR(0)256DI1256DAR(I)F(X1DX(I1))DDCLINES THEN RERU"/N) --> ";:A$:120:A$"N"210KCn12:"NAME TO SAVE FILE AS --> ";DA$]Cs(DA$)0110fCv210{CxA$(13)A$"Y"C}A$:CA$(13)A$"N"CA$:CD$;"BSAVE ";DA$;",A";X1(107);",L";X1(109)X1(107),D:"SAVE THIS FUNCTION ? (Y/"OWEST VALUE --> ";X17BK7:8:"HIGHEST VALUE --> ";X2BM10:5:"IS THIS OK ? (";::"Y";::"/N) --> ";:A$:A$:A$"N"70BPDX(X2X1)255BZ10:868:10:14::" CALCULATING ":Bd2000"Ci10:"SAVE AS ";::DA$;" ";::" ? (";::"Y";::N PGM "::33,33:2001,2010:33,40:868:868:33,33=A TA AR(256):AR(0)256hADA$"PLOT.DATA"AX1(X)(X)256(X1)A2D$(4)A7:11A<:" FUNCTION GENERATOR "::A>3::" ENTER THE LOWEST AND HIGHEST X-VALUES ":BF5:9:"L@ FUNCTION GENERATORE@::11::" FUNCTION GENERATOR "::4@"THE CURRENT FUNCTION IS:"::33,33:2001,2010:33,40::14:"DO YOU WISH TO CHANGE IT ? (Y/";::"N";::") --> ";:CH$:CH$:CH$"Y"107A4::" CHANGE THESE LINES THEN RERU     13)ĺ"MENU":(4);"RUN^"! 7CH$D <CH76ĺ(4);"RUN PLOT.RECFIL"j ACH78ĺ(4);"RUN PLOT.NONLINEAR" FCH65ĺ(4);"RUN PLOT.AVERAGE" P40T) ::10::" WORKFILE FILTER MENU "L22:13::" FOR MENU ":xTB13:3:TB::"L";::"OWPASS FILTER"5:TB::"A";::"VERAGE"#7:TB::"N";::"ONLINEAR FILTER"(10:12:"YOUR CHOICE --> ";:CH$:CH(CH$) 2CH0CH$(lPPQ`Q &PQ &P &PeQePe몘e쨊`,)eȘΰ`ΐޢMl%00 00 ` `ꥥ`ҥ %LqΙzu hhnΪHHy΅ȱ΅FؠoΪȱΠΊ`PQQP&&Q*$0P`IPQIiQP`QߩPQ`5l쥢0"ɁɉɈ )*```5l0L[5l \`ﺽ}%} (i `(i!l 4ҺɁ0liɁݥۘՊi ꥢ뺽 纽 +뺊i $0 0ihhHH` 0l J i`l r`쥝@Ɂ:ɑ=ɐ))Qޥ--L *1;11;$$$éʮhihihEhhhhhlhihi r륝HHHHHHlhihihhhhhhlhhʚHH芠L+hihiHHHHHl뺽ɁhhiL+i ꩖6 . 1 91 . iꦃ +\1 .L.-hhhhhhhhh`fHHHHHHHHHFةHHH3vv-,Z,^,,[,_$0L!!L!$0W ] 1 hh 1l- ? \۽` \(,  AL͠ɠŠz1 k1 X-u1 p1 2- 碉1 +멄1 k1 +멉1 p1 +C1 .\1 . /1 0 H0Lw+L*,ɠ \1 -+HH91 - -H1H\H\1 ꩑1 . 191 X-\1 ꩑1 . 1 {- iꦃ +\1 ꩖6 . 1\1+1 ꩖6 . 1M1 X-41 ꩖6 . 1 {- 禃 +41 ꩑1 . 1H1 X-41 ꩑1 . 1 {- 禃 +41 ꩖6 . 1M1 X-41 ꩖6 . 1 {- 禃 +41 .u1 k1 X-z1 p1 2- 碄1 +1 +k1 X-1 ꩑1 . 1 {- X-p1 X-1 ꩖6 . 1 {- 2- H1 +k1 X-1 ꩖6 . 1 {- X-p1 X-1 ꩑1 . 1 {- 2- M1 +1 ꩑1 . 1H1 X-41 ꩑1 . 1 {- 禃 - -H1H\H\1 ! a1 +! a1 if1 +ɠ k1 +멈 p1 +f1 W1 i u1 +f1 W1 i z1 +ɠ C1 -(HHf1 - -H1HCHC1 41 -(HH91 -a1 -H1H4Hf1 41 6 . 1 ꦃ +41 ꩑1 . 1H1 ꦃ +41 ꩖6 . 1M1 ꦃ +>1 R1 +C1 R1 0 ^0L'L'R1 C1 C1 +! R1 iR1 +Ld'R1 C1 C1 +41 .! W1 +ɠ \1 -(H H*1 41 .! 91 i>1 +ɠ C1 +ɠ 41 -&H\Hɠ 91 - -H1H4HC1 41 0 ^0Lz&LV'C1 ꩑1 . 1 H1 +C1 ꩖6 . 1 M1 +C1 ꩑1 . 141 ꩑1 . 1 ꦃ +C1 ꩖6 . 141 . 0 ! :/ . 0! :/ . 0 :/! . 0ݠ :/L.*1 ! 91 +멈 /1 0 H0L%L&ɠ 41 -%HH91 - -H1H4H41 ꩖6 . 141 ꩖6 . 1  + . 0111 u/S  u/ L-,Ӡ . 0 :/ؠ . 0ݠ :/ . 0 :/ . 0 :/ . 0 :/! . 0! :/L.Ӡ . 0 :/ؠ . 0! :/⠠z#? ԮĠԮŠԮР ԮנԮҠà  ԮͲ ԮԠ ԮӠ Ԯ̠  ԮԠ ԮЮԠԮ͠   ԮŠԮҠ Ԯ͠ Ԯʠ ԮîԠ ԮŠ Ԯ͠   ԮԮʠ ԮԮӠԮԮʠԮҠԮΠԮàԮР  ԮԠ ԮԱԮԶԮ٠Ԯ Ԯ ԮԠ  Ԯ ԮԮ ԮƠԮŠ  ԮŠԮƠ " ͺޠ" à! îĠ!îŠ!Ԡ- ԮàˠƠŠȠħӠԠŠ٠Ġ͠"Ϡ" ĠР + -JH h%hɠ 41 -#H2HΠ - -H1H4H41 ꩑1 . 141 ꩑1 . 1 X-41 ꩑1 . 1 {- X-41 ꩖6 . 1 X-41 ꩖6 . 1 {- 2-  +Π 41 穑1 . 1 ꦃ + -JH $h :/ . 0 :/ . 0 :/ . 0 :/Ġ :/ /111111 u/=  u/ JH $h . 0ɠ 41 -"HHΠ - -H1H4H41 ꩖6 . 1Π 41 穑1 . 1 ꦃDXIڢ 0 Xo :/ e/o :/   u/ کt :/ e/y :/   u/ کy :/ e/~ :/ /  u/ ک *1 +멈 /1 +멍 . 0 :/ . 0 :/ . 0 *8$LQ,CALCULATING FAST FOURIERTRANSFORM FOR 128COMPLEX POINTSBLOAD PLOT.DATA,A$7000BSAVE PLOT.DATA,A$7000,L1292 @P`@ @@@@0A~A@@pt`x0|j     TR:AI(I)AI(I)TI:I7 VRURWRUIWI:VIURWIUIWRG URVR:UIVIQ J:L` KF03300 L1N:AR(L)AR(L)N:AI(L)AI(L)N:L  THIS PROGRAM CANNOT BE RUN  IT IS THE SOURCE FOR THE  COMPILED PGM "PLOT.FFT.OBJ"h JJK:KK2:3130 N JJK:I3 X PI3.1415926535M b L1M:LE2L:LFLE2t l UR1:UI0:WR(PILF):WI(PILF) v J1LF IJNLE:IPILF TRAR(IP)URAI(IP)UI TIAI(IP)URAR(IP)UI AR(IP)AR(I)TR:AI(IP)AI(I)TI AR(I)AR(I), M, AND KF, % WHERE KF= 0 OR 1.E 0=FOR XFORM, 1=INV XFORM.Z N2M:KF03070u I1N:AI(I)AI(I):I NVN2:J1  I1N1:IJ3120  TRAR(J):TIAI(J)  AR(J)AR(I):AI(J)AI(I) & AR(I)TR:AI(I)TI 0 KNV : KJ3150 D7,49 ; @60,145:61,490 E62,149:63,54B J66,7:67,112H Oe FAST FOURIER TRANSFORM YOU MUST DIMEN 2 ARRAYS OF LENGTH N, WHERE N = N ^ M. THE TWO ARRAYS ARE AR(N) AND AI(N). YOU MUST PASS THE TWO ARRAYS2D$;"BLOAD PLOT.DATA,A$7000", 3300:768K 7I1128:AI(I)AR(I128):U <3000 FI1128:AR(I)(AR(I)AR(I)AI(I)AI(I)):AR(I128)0: K320:768 PD$;"BSAVE PLOT.DATA,A$7000,L1292" Z ,60,7:61,112 162,11:63,117 666,145:6! B$20001 *** DO NOT RUN THIS PGM ***[::8:8:"CALCULATING FAST FOURIER"|10:12:"TRANSFORM FOR 128"12:13:"COMPLEX POINTS" AR(256),AI(256)M7:KF0768,160:769,0:770,32:771,44:772,254:773,96D$(4)    RH 4 hREą SШЈHhH--h5 :0h$. А \АI0L !" Ņ67L Hυ$h`L  ";::"N";::") --> ";:ZZ$:ZZ$"Y"8525VV9!::10:12::" RESTORING CHANGES ":_V:!EM1lV>!I0256VH!AR(I)B(I):::500VM!:500E342945:TN10000@2500@ LOAD EDIT.OBJ@(768)165230@(4);"BLOAD PLOT.EDIT.OBJ" A10,76:6010Uw:500 ";:OK$:OK$"N"5020T"Y":768,0TD$;"RUN^"T::500Tp ENDUu:10:"...ARE YOU SURE ? (";::"Y";::"/N) --> ";:OK$:OK$:OK$(13)"G"ı/Sf:9::" CHOOSE THE PRINTER "::PSp3:15::"S";::"ILENTYPE"pSz5:15::"G";::"RAPPLER"S7:12:"YOUR CHOICE --> ";:CH$:CH$:CH$"S"CH$(13)ıSCH$"G"İ4800:S4740S GRAPPLER PARAMETERST966,2:967,193:97(YT1)XF4568R4570+R(13);:4578VRX(I)(((TNAR(JI(YT1)XF)).5))TNRH(I)(I203(ZZ(JI(YT1)XF)))RH(I));"Y";JI(YT1)XF;" = ";(TNX(I));:I3ĺ(13);RRR:R(13);:4578R\ CHOOSE PRINTERSaCH$POINT -->";:" Y";XL:,QXL256XFXL500[QNTXLXF1:YT(NT4):(NT4)YT0YTYT1mQCH$"G"4532}Q16352,254Q:944QCH$"G"ĺ" 80N"Q4560QD$;"PR#0"Q16352,255::500Q MAIN PRINTSUBQJ0YT:I03RXLJI4700::9::" PRINT THE WORKFILE ":=PCH$"G"4514hP9::" GRAPPLER INTERFACE "::4515P9::" SILENTYPE ":P9::" ENTER --> 0 FOR MENU "::P:" FIRST POINT -->";:" Y";XF:PXF0XF256500Q" LAST :500O CLEAR DATA FILEaO:10:" CLEAR WORKFILE ? (";::"Y";::"/N) --> ";:OK$:OK$rOOK$"N"500OEM0::10:11::"CLEARING WORK FILE":OI1256:AR(I)0::AR(0)256O:500O PRINT DATA OEM14510O7000:500*P-> Y";NI141N$B$:C$C$B$:C$(13)3670CN&B$(8)3600UN)A$A$B$:B$;rN.A$(13)B$(13)3640xN3N8JX(A$):JX0JX2563380N=3370NVB$,C$:XFXF40:XLXF39N`XF217XL256NeXF2563380Nj3335Nt RETURNO~ ENTER FOR MENU ":?M NTNS257NS03500RM 34,9:AR(0)NTdM INSNSNT1M 15:"Y";I;" =";:" ";AR$:AR$""3000M AR(I)(AR$):M :3000M CHANGE NUMBERMCV2:868:34,CV2:10:C$"":A$"":B$""N"CHANGE -R):L2 3360L4 :30007L CONTINUOUS DATA ENTRYfL EM1::9::" CONTINUOUS DATA ENTRY "::L 9::" ENTER --> 0 FOR MENU "::L 10:"TOTAL POINTS --> ";NTL NT03000L NT0NT2563500%M :11:"STARTING AT --> ";NS:::" ":K CV(37)K 3600ZK* CV2:10:"CHANGE --> Y";JX;:" = ";AR(JX):R$"N"3360K, 34,0:VPJXXF1:JXXF19VPVP20K. TB5:JXXF19TBTB20K/ JXXF39JXXF3378L0 VP:XR((TNAR(JX).5))TN:TB(ZZ(JX)):"Y";JX;" = ";::(TNXhJ XFXF20:1:IXFXM:XR(((TNAR(I)).5))TN:TF(ZZ(I)):"Y";I;" = ";(TNXR)::XFXF20:3350J VT7:R$(78)3352J EM1:VT1:2::"ENTER 0 --> MENU , --> NEXT BLOCK"::3355K EM1:VT1:2::" ENTER 0 --> MENU AI :8:"STARTING POINT -->";:" Y";XF:XLXF39:XF217XL256QI XF03000zI :TB5:XMXF19:VT22:XF237XM256I X(0)I :IXFXM:XR(((TNAR(I)).5))TN:TB(ZZ(I)):"Y";I;" = ";(TNXR);" !":J XJXF:XMXL:TFTB20:XJ2363350E82İ3700H 3000%H EDIT DATA5H EM0İ7000DH EM03000eH :14::" EDIT DATA ":::H 8:"REVIEW DATA ? (";::"Y";::"/N) --> ";:R$:R$:R$(78)3346H :7::" DATA FORMAT = F9.4 "::I 7::" REVIEW POINTS = 40 "::IT THE WORK FILE "::::TA9HG TA::"E";::"DIT/REVIEW THE FILE":tG TA::"C";::"ONTINUOUS DATA ENTRY":G TA::"R";::"ETURN TO EDIT MENU":G 10:"YOUR CHOICE --> "G 10:26:ME$:ME(ME$):G ME69İ3300G ME67İ3500 H MY";::"/N) --> ";:CH$:CH$:CH$(13)CH$"Y"2050QF:" SAVE FILE --> ";DA$F:LE(DA$):10:TA16(LE2):TA::"SAVING ";DA$:F D$;"BSAVE ";DA$;",L1292,A";Z(107)F:500F EDIT THE WORK FILEF X(0)F 3000G ::9::" ED WORKFILE (";::"CR";::"/N) --> ";::DS$:DS$:DS$(13)1010PE`:::500jE SAVE THE WORK FILEzEEM0İ7000EEM0500EEM1::10::" SAVE THE WORKFILE ":::E" THE DEFAULT FILE IS ";::DA$::4F" SAVE '";DA$;"' ? (";::" '";DA$;"' ? (";::"Y";::"/N) --> ";:CH$:CH$:CH$(13)CH$"Y"1050fD:" LOAD FILE --> ";DA$D:LE(DA$):10:TA16(LE2):TA::"LOADING ";DA$:D$D$;"BLOAD ";DA$;",A";Z(107)D)8000D.:500DL WARNINGAEV22:" DESTROY CURRENTCME69İ3000!CME67İ40002CME82İ5000CCME81İ6000TCME80İ4500eCME66İ8500xC(7):20:600C LOAD WORK FILECEM11100CEM1::10::" LOAD THE WORKFILE ":::C" THE DEFAULT FILE IS ";::DA$::ID" LOAD FILE".B&TA::"C";::"LEAR THE WORK FILE"WB+TA::"B";::"UFFER/ERASE CHANGES"B0TA::"R";::"ETURN TO PLOT MENU"B:TA::"Q";::"UIT THE PROGRAM"BX13:11:"YOUR CHOICE --> ";BbME$:ME(ME$):ME$BlME76İ1000BvME83İ200011,0:12,3AED$" 0.0000"$A0A MENU:A500gA::11::" DATA EDIT MENU "::TA10:3ATA::"L";::"OAD THE WORK FILE"ATA::"S";::"AVE THE WORK FILE"ATA::"E";::"DIT/ENTER WORK FILE"B!TA::"P";::"RINT THE WORK @30@::32768/@ EDIT/ENTER DATAH@AR(256),B(256):200c@Z(X)(X)256(X1)@(DA$"PLOT.DATA":D$(4):AR(0)256@-ZZ.4342945:TN10000@2500@ LOAD EDIT.OBJ@(768)165230@(4);"BLOAD PLOT.EDIT.OBJ" A10,76:     $"128":CH$:250$ CH$"256":CH$3 N(CH$):xAR(I)DNAR(I)DN 150* AR(I)DN8 :AR(0)Nf D$;"BSAVE PLOT.DATA,A";X1(107);",L1292"s "RUN^" INPUT ::10::" DECIBEL CALCULATOR ": 5:" NUMBER OF POINTS (";::"128";::"/256) --> ";:CH$ CH$(13)CH$"1"CH4 200 AR(256)*L2(10):TW20X10:6::" CONVERTING WORKFILE TO DB ":dDN2002X1(X)(X)256(X1)<D$(4)FD$;"BLOAD PLOT.DATA,A";X1(107)PI0NUAR(I)(AR(I))ZAR(I)1E30140dAR(I)TW(AR(I))L2  BtdߏwGyDz5;z &{>1xYixh (xmmg'xh x\%xJZx3;7xwy׸w@=wʧv$huUկs/(eu}uvvv辀v~wrwRv~mzvzvkvv,-u՘uoPtǙsO ";:"PLOT.";DO$:DO$""330s TDA$"PLOT.":DI$DA$DI$:DO$DA$DO$ YDI$DO$355 ^ c7:6:" SAME FILE --> "; h" BACK TO MENU ":"RUN^"  GET AND SAVE WORKFILE Z(X)(X)256(X1) MAIN PROGRAM!AR(256)7 300: INPUT DATAO500: GET WORKFILEW10dd"RUN^"}, INPUT FILES NAMES6::14::" COPY FILES ":;22:12::" FOR MENU ": @3:8:" INPUT FILE --> ";:"PLOT.";DI$:DI$""Ğ:10:13:AVE PLOT.DATA,A";X1(107);",L1292"/ "RUN^"0 AR(256),C(256):@10:10:"CENTERING REAL DATA"\(X1(X)(X)256(X1)h2D$(4)<D$;"BLOAD PLOT.DATA,A";X1(107)FI1128PIII64ZII128IIII128dC(II)AR(I)nxI1256AR(I)C(I)" D$;"BS"BSAVE PLOT.DATA,A";X1(107);",L1292"2 "RUN^"3 AR(256),C(256):B10:8:"CENTERING COMPLEX DATA"^(X1(X)(X)256(X1)j2D$(4)<D$;"BLOAD PLOT.DATA,A";X1(107)FI1256PIII128ZII256IIII256dC(II)AR(I)nxI1256AR(I)C(I)% D$;   "% ::12::" CENTERING MENU ":.TB9U4:TB:"1) -- AROUND POINT 128":{6:TB:"2) -- AROUND POINT 64":(9:7:"YOUR CHOICE --> ";:CH$:CH$:CH(CH$)2CH1CH240<CH100,200d"RUN PLOT.CENT128" "RUN PLOT.CENT64  N:AR(L)AR(L)N:AI(L)AI(L)N:L(E EI(PILF)Dv J1LF-D IJNLE:IPILFHD TRAR(IP)URAI(IP)UIcD TIAI(IP)URAR(IP)UID AR(IP)AR(I)TR:AI(IP)AI(I)TID AR(I)AR(I)TR:AI(I)AI(I)TI:ID VRURWRUIWI:VIURWIUIWRD URVR:UIVID J:LD KF03300"E L1I)AI(I):IC NVN2:J13C I1N1:IJ3120IC TRAR(J):TIAI(J)eC AR(J)AR(I):AI(J)AI(I){C& AR(I)TR:AI(I)TIC0 KNVC: KJ3150CD JJK:KK2:3130CN JJK:ICX PI3.1415926535Cb L1M:LE2L:LFLE2 Dl UR1:UI0:WR(PILF):W(I):AR(I)T:@BJKF1:3000::"...BACKWARD TRANSFORM FINISHED"pBKI1256:AR(I)(AR(I)AR(I)AI(I)AI(I)):BPD$;"BSAVE PLOT.DATA,A";X1(107);",L1292"BUD$;"RUN PLOT.CENT128"BZB FAST FOURIER TRANSFORMB N2M:KF03070 C I1N:AI(NISHED"6AAI1256:BR(I)AR(I):BI(I)AI(I):AI(I)0:[ABD$;"BLOAD PLOT.DATA,A";X1(107)ACI1128:AI(I)AR(I128):AR(I128)0:AI(I128)0:AD3000::"...SECOND TRANSFORM FINISHED" BFI1256:TBR(I)AR(I)BI(I)AI(I):AI(I)BI(I)AR(I)BR(I)AI*(@::10:10:"CALCULATING THE CCF"M@ AR(256),AI(256),BR(256),BI(256)Z@M8:KF0v@X1(X)(X)256(X1)@D$(4)@#D$;"BLOAD PLOT.3,A";X1(107)@(I1128:AI(I)AR(I128):AR(I128)0:AI(I128)0:A<3000::" ...FIRST TRANSFORM FI)R:RRBI:440E450%EBBO::3EK0BI1EEC$(K)M$480LEKaENNKR:RRBI:zE(N)65536BO10ıEN1(N)((N)65536):" BASE ";BO;" COMP'T = ";::N1::EX" BASE ";SP$;BO;" NUMBER = 0"EbI039:"-";:::-----"8I):D@I1036%DJC$(I)(55I)+DT1D^bDh" BASE ";SP$;BO;" NUMBER = ";:IK11:DrN$(I);::::490:I039:"-";:::140D|N65536N:D BI TO DEC CONVERTERDN0DL(N$):RBI(L1):I1L:M$(N$,I,1)EBI10NN(M$CBI10İ390:230&CN(N$):BBO@C(N)65536BIBO230~CN1(N)((N)65536):" BASE ";BI;" COMP'T = ";::N1:CN0İ380CMNCK0CM0360CKK1CCB(MB):CMC:N$(K)C$(C)C"M(MC)B:260C,I09D6C$(I)(4T:"----------------------------------------":dBx3:25:" MENU --> *":25:"RERUN --> #"uBVT1:34,VTB" BASE ";SN$;BI;:" NUMBER = ";N$:N$""İ600:140BN$"#"ĬBN$"*"170B180B"RUN^":BSP$"":BO10SP$" ":APSN$"":BI10SN$" "qAZ6:"INPUT DIGITS:":32,0::7:33,20::I0BI1:C$(I);" ";:::33,40:32,0:Ad6:21::"OUTPUT DIGITS: "::32,20::7:33,20:I0BO1:C$(I);" ";::33,40:32,0::BXBI:BIBOBXBO/Bn:VT8((BX1)10):V@ 32768:::@8::" BASE CONVERSION PROGRAM "::S@C(50),C$(36),N$(50)\@(300@23:" INPUT BASE --> ";BI$:BI(BI$):BI2BI3650@<4:" OUTPUT BASE --> ";BO$:BO(BO$):BO2BO3660AF:"----------------------------------------"     ----------------)H' --ED TITLEBAUM--@H$' ----12/25/81----WH.' --716-624-4430--nH8' ----------------N N ----12/25/81----.' --716-624-4430--8' ---------------- ----12/25/81----.' --716-624-4430--8' ---------------- NONO1:B(NO)YM:G1G RECURSIVE FILTERING=G NTNT1LG NTN3100xG XIAR(NT):I1M1:X(I)X(I1)::X(M)XIG YO0:I1M:I2MI1G RC13075G YOYOX(I2):3090G YOYOX(I2)R(I)G :YOYOC1:NONO1:B(NO)YOG 3000G H'NT0:I1M:NTNT1:X(I)AR(NT):2FJO02200AFJA02100JFNO0jFI1M:YO0:J1I:J2IJ1yF RC12085F YOYOX(J2)R(J):2090F%YOYOX(J2)F*JF/YOYOC1:NONO1:B(NO)YO:I:2200G4YM0:I1M:YMYMX(I)::YMYMM:I1M:N&E"BSAVE ";DA$;",L1292,A";Z(107),E@E SWITCH ARRAYSZEI1256:AR(I)B(I):hEAR(0)N:E SET UP COEFFICIENTSEM1M1ERC11040EC11M:1050EC1(1RC)(1RCM)EI1M:R(I)RC(I1):EE INITIALIZE FILTER#F1)1:(D0"BLOAD ";DA$;",A";Z(107): ";::DA$;::" ? (";::"Y";::"/N) --> ";:GT$:GT$"Y"GT$(13)650D{GT$D:10:"ENTER SAVE FILE -->";:" ";DA$:655EGT$"Y":GT$Z(X)(X)256(X1)C:DA$"PLOT.DATA":"FILTER ";::DA$;::" ? (";::"Y";::"/N) --> ";:GT$:GT$"Y"GT$(13)550CGT$C:5:"ENTER FILE TO FILTER -->";:" ";DA$:555C&GT$"Y":GT$C+20:15::" CALCULATING ":D-(DA$)1AR(1:SP$" ":M9SP$""vB^6:4:SP$;M;" POINTS OUT ? (";::"Y";::"/N) --> ";:JO$:JO$"Y"JO$(13)JO1:JO$"Y"BcJO$Bh8:8:"IS THIS OK? (";::"Y";::"/N) --> ";:OK$:OK$"N"ĺOK$:315Br"Y":B GET WORKFILEBAR(256),B(256)C" RECURSIVE AVERAGE ":jA;N128:3:"NUMB OF POINTS (";::"128";::"/256) -->";:" ";N$:(N$)1N256xA=3:30:NA@4:6:"ENTER FILTER LENGTH -->";:" ";M$:M(M$):M0320AJ5:7:"EXPONENTIAL WEIGHT -->";:" ";RC$:RC(RC$):RC0320BTJAq@ MAIN PROGRAM*@ 300: INPUT DATAB@500: GET WORKFILE_@1000: CALCULATE COEF'S@(2000: INIT RECURSIVE FILTER@23000: DO FILTERING@<700: SWITCH ARRAYS@P600: SAVE WORKFILE@d"RUN^"@, INPUT PARAMETERSA6::12:: L1N:AR(L)AR(L)N:AI(L)AI(L)N:L, F):WI(PILF) v J1LF1 IJNLE:IPILFL TRAR(IP)URAI(IP)UIg TIAI(IP)URAR(IP)UI AR(IP)AR(I)TR:AI(IP)AI(I)TI AR(I)AR(I)TR:AI(I)AI(I)TI:I VRURWRUIWI:VIURWIUIWR URVR:UIVI J:L KF03300& :AI(I)AI(I):I NVN2:J17  I1N1:IJ3120M  TRAR(J):TIAI(J)i  AR(J)AR(I):AI(J)AI(I) & AR(I)TR:AI(I)TI 0 KNV : KJ3150 D JJK:KK2:3130 N JJK:I X PI3.1415926535 b L1M:LE2L:LFLE2 l UR1:UI0:WR(PIL YOU MUST DIMEN 2 ARRAYS; OF LENGTH N, WHERE N =W N ^ M. THE TWO ARRAYSr ARE AR(N) AND AI(N). YOU MUST PASS THE TWO ARRAYS, M, AND KF, WHERE KF= 0 OR 1. 0=FOR XFORM, 1=INV XFORM. N2M:KF03070 I1NI1256:AR(I)AR(I)AR(I)AI(I)AI(I):AI(I)0:d FKF1:3000::"...BACKWARD TRANSFORM FINISHED" KI1256:AR(I)(AR(I)AR(I)AI(I)AI(I)): PD$;"BSAVE PLOT.DATA,A";X1(107);",L1292" UD$;"RUN PLOT.CENT128" Z FAST FOURIER TRANSFORM.(::10:10:"CALCULATING THE ACF"= AR(256),AI(256)JM8:KF0fX1(X)(X)256(X1)rD$(4)#D$;"BLOAD PLOT.DATA,A";X1(107)(I1128:AI(I)AR(I128):AR(I128)0:AI(I128)0:<3000::" ...FORWARD TRANSFORM FINISHED"1 A     PzO{]]~u~U/}WJwYuͷrf}|=.4I߆A0L~ g).vKgty9&'~e޷ɀ9~"耗K}<}&ae}׀ʚ4Q}}.GQ]G;|zձYē'}Q(ygհ% C(ͣ<̀P?`\+Ag퀃}| ~@7S?q*1҈j'ljʀ0?*~}̆9Tuoosn B2ͅ~85Hl6M<~_CaN>O;d}`h O \?Ih~橩%fKjL[JLPz`~sdeʍè~Z8M->@Aʹ~-uCZhۅ NK}x^ـ54&}M]`'J% ~刷*~v4{8_I*~uDHOCe~"d~̩Pr:v+\{I~B怘z |ߏF~jxs2[M_u\w{s j%M )s>Iڢ~O[)NN؀⹜BlҀcU4y?v!Z㷀.Agdb~6i"}?Ҩ"DBI0a.Tysx֧r=S|vi{ˀks}L+lw­Q|}ဧF;6J:o*a|ՀZx~H4ճ~ Q|;A g|[5&}p`oyڀex}b܀@ lOړw΀ހh}QQX N~ 4n.%~[}hdBF>}&~ E AR zKCj4lN&iO]~i.{*59$^]Z̭3諀SH.wS~w~LtvH@Xڀo*/mnZl8ZMKzZ@e0'ᴀ` ߀p~S!-n5lԀtE{ GEav}旒؀ǀDQm"z~>=.   fcf9aTzjؾۀP0u+Xz+|e~"HS?+ʍ;Ҁa'KҀ90(|$-1}V|~d]~;ހg@2^}{ɢ`ԕ->PO })`X33ąϣʵ~bRk9z|;8_[/SCiu'nۀ7pXC*!*{t)Vvߣy}9}&`Y܀I~$ z-Dxpi?^͓{=:ʠԀӞNɄ} Ck5x"0|&2r0gS~8kʀShn{9PrC.}׀}@o[9荀EC~87бAHZ(Ynbl?J'xVY݀`FJ۠E~"~80v<{jwF)S," j} TD嵄M*ɱ|7#O2kÀl΀gT&yC ̄~t1ZhOzu쀰O{6T~(|0ŀe0qa]m` v}5 ZˌkFL 摒ꀣp~mP0YfEB| m"4+YeZA}z1J}4=<贀T껿m;~v4Pq&~U0*|〣)€6tJH~xssu_g|8)!33hgkoOR4a"i}ǀn^\Iڢ~M}Ka K>3l _%u"p{ŀi٠IIO~w; }1Dk6Op {zO75\1-}›2B9ؖtπ|N 5d~{w;̊⡶me~LU3ܲD ǀ| pU " P~7WӀaIzi` č.j,6|PO })`X33ąϣʵ~bRk9z|;8_[/SCiu'nۀ7pXC*!*{t)V  }<3m6D!CF GIjr}, 6'pk!>zR}Jԭw?~/tu} }s~SZNM~~~cR|DM~dtga3ʀ:ZrQx| ͢1tg{> *yV~ kɀks~ԀslD6V|M# ~i^?pܷN<{xXT@&Dvɐ,Ra(syi[}PϢLVk}qG/-+~ON\a>L/\!NRO}m?T@ـODoyH{vV8g~Ri ~d+װS|5ԀS^J|4IM+#&4`iS[s\G~!+~"_оctyG6e['Gd ~t' q%|m"%՛~bzu|ckC&;^3 vu$!~y0$8|Hs=շN +fڕ~'ɒ10GZ| _PyD7ΖzB hB.ˀ~މ6PdGt6io.d?9}>Wi2|89~bx 9d7[A6^~2;~pgvfDyXrHz|Ej ŀ6R|j9ŀ>Eвȶ~WzL@1~da~#zvaGHG:tz~b#IڢjM䀷͞-~ۈ9=+w_Vu.U}ϡ{Hd~|~Z/}eLϋ|@|2ӪԾA'}3MAN{G񀹣׀ր|{<'ga;u}@FQS_tf Ӎ~EȀ?[~l\NS:3$~.8&3)l}Q^ShvMQ/v~zi !6~Sa=zȀAf=M{|FmJ:N>eFt)~F\߀AI~`,~ )CӪ5C AR F GIjr}, 6'pk!>zR}Jԭw?~/tu} }s~SZNM~~~cR|DM~dtga3ʀ:ZrQx| ͢1tg{> *yV~ kɀks~ԀslD6V|M# ~i^?pܷN<{xXT@&D #OK$"N"90703#RF0ı&3#:1400O3%5:24::"SET BY WORK FILE":::60MU3$'0к:60MU3$'0L12835@3:10::" LOADING UTILITIES ":@(4);"BLOAD PLOT.OBJ"A#232,0:233,128:10,76:11,0:12,137:34831,192 ENTER TOP EDGE --> ";TP$:TP(TP$):TP09070l2x#12:" ENTER LEFT EDGE --> ";LT$:LT(LT$):LT090802}#14:"ENTER PRINTER SLOT --> ";SL$:SL(SL$):SL090852~#:" ARE THESE OK ? (";::"Y";::"/N) --> ";:OK$:OK$(13)OK$"Y"2#OK$3" PLOT CONFIGURATION VALUES ":51<#LT23:TP15:SL1S1F#3:HT:" TOP EDGE = ";TPq1P#4:HT:"LEFT EDGE = ";LT1U#5:HT3:"PRINTER SLOT = ";SL1Z#7:8:"ARE THESE VALUES OK ? (";::"Y";::"/N) --> ";:CF$:CF$1d#CF$"Y"CF$(13)ı02n#10:" A5(A1N)XM*0R!INSNF:AR(I)A5IB5:N0W!17:868:15:15:"Y = AX + B"0\!17:5:" A = ";A5;", B = ";B5:19:13:"(PRESS ANY KEY)";:ZA$:ZA$0a!K1719:K:868:0f!15:868:19::14600(# CONFIGURATION SUB0-#X(0):HT13 12#:7::TY":/TI11000:/^:206/4! TREND FUNCTION]/9!17:12::" CALCULATING TREND ":/>!NFNNS1:A10:A20:XM0:INSNF:A1A1I:A2A2II:XMXMAR(I)::XMXMN:INSNF:AR(I)AR(I)XM: 0H!X80:INSNF:X8X8IAR(I)::A5X8(A2(A1A1N)):B5:868 .-.::13::" PLOT ROUTINE ":E.216,0:43624,1:40Y.8 RERUN PROGRAM.=23:4::"...ARE YOU SURE ? ";::" (";::"Y";::"/N) --> ";:QU$:QU$(78)ġ:QU$:1400.B:MU$:10.@ EMPTY WORK FILE/J20:11::"WORKFILE IS EMPI10DX4DX,169:Z(0)LRI10DXDX1,169::5-"J-p FETCH PLOTFILEf-zX1(X)(X)256(X1)q-6040-D$(4):D$;"BLOAD ";DA$;",A";X1(107)-N0ı-NAR(0):NS1-43624,1:.22:9::" DATA FILE NOT FOUND "::I13000::2210DX7DX,169:Z(0)LRI10DXDX1,169::;,I194115V, LRI10DXDX1275ı,III10:Z(1)LRI10DXDX9,169:Z(II)LRI10DX4DX,169:Z(0)LRI10DXDX1,169::,LRI10DXDX1275ı/-III20:Z(2)LRI10DXDX9,169:Z(II)LR1N+LRIDXDX427540399+Z(I)LRIDXDX4,169?+O+N104045k+Z(1)LR10DXDX7,169+Z(0)LR10DXDX2,169+N100KS2+N200KS3+IKS27KS+DX(279LT)N+LRI10DX2794130+I94100,,Z(I)LRIRACTER PACK* I1L1?* LT$(L1$,IS1,1):L(IS1)T1(LT$)Z* L(IS1)65L(IS1)33m* 767I,L(IS1)s* y* * CALIBRATE X-AXIS*X(0):0:1:LFLT2:LRLT2*I09*Z(I)49I:*Z(0)LQ3,169:KS1*N104040+I02,0:16300,0:16297,04)t XX(0)PX3:XX0XX0G)y XX275XX275c)~ YY(1)PY4:YY6YY6v) YY188YY188) ASXX,YY) (16287)1272500) ASXX,YY) (16286)1272410) 2420) ) (16287)1272490) :2407 * CHA"h(j :3:868:3::" SHAPE NUMBER ";::" ( FOR MENU) --> ";:34554,AS$:AS(AS$):AS$(2)2020{(l (AS$)01400(m AS0(AS$)1RTRT16:RTRT(RT64)64:2407(n AS0(AS$)2SCSC1:SCSC((SC1)2)2:2407)o SC:RT:16304,0:163SHAPE "::'! 20:"SHAPE-Q -> CHANGE ROT BY 16 (90 DEG)"c'" "SHAPE-QQ -> CHANGE SCALE 1 <--> 2"'$ 23:4::" LABEL --> CTRL-B <-- SHAPE "::'` ASCII SHAPE'e SC1(g 5:868:" ROT = ";RT;:11:" SCALE = ";SC;:24:"(SHAPES 1 TO 128)UCTIONS "$&14:17::" LABEL ":V& :9:" PDL(0) --> HORIZONTAL (L/R) MOVEMENT"& " PDL(1) --> VERTICAL (UP/DN) MOVEMENT"& " BUT(0) --> ACCEPT LABEL"& " BUT(1) --> CANCEL LABEL"& 16:" CTRL-L --> LOWER CASE STRING": ' 18:17::" Y36%%CX3255Ĺ809,255:810,X3255A%DX3255Ĺ809,X3:810,0\%H811,Y3:812,L1:35328t%R(16287)1272180%p35328%z(16286)1272020%2030%%(16287)1272177%2020%:1400 &7::I140:" ";:::7:14:" INSTR02200$L1$(2)24003$((L1$,1))122025J$T133:S11:L1L11|$1:0:16304,0:16302,0:16300,0:16297,0$2700$XX(0)PX:YY(1)PY:LX3L1:X3XXLX:X4XXLX:Y3YY5:X30X30$X4279X3XX2LX2$X30X30%Y36# FLOATING LABELS$#3:1:0<#16286,0:16287,0#X(0):::11::" FLOATING LABELS "::3:PX283255:PY193255#2300$T11:S10::3:868::868::868:3::" LABEL ";::" ( FOR MENU)"::"--> ";:34554,L1$:L1(L1$):L1к" G"GP$:"PR#0""i:1400"j22:4:868:20::" 0 --> NORMAL, OTHER NUMBERS ":21:4:" 1,2,...,128 (SEE THE PKASO ":4:" MANUAL FOR SPECIFIC NUMBERS). ":#k17:11:"PKASO NUMBER --> ";N$:D$;"PR#1":I$;N$;"H":D$;"PR#0"::1400"!D12527,2:12528,53!N12529,0:16352,255?!b:1400!d22:4:868:20::" --> NORMAL R --> ROTATED ":21:4:" D --> DOUBLE I --> INVERSE ":4:" E --> EMPHASIS ":!g17:8:"GRAPPLER STRING --> ";GP$"h"PR#1":1892 SZ681818% SZ821819/ 1811D CL10:SZ2:1820M SZ1l 16352,254::D$;"PR#";SLt !L$ &12524,0:12527,CL:12528,7:12525,32 012529,255 2SZ21846 41850 634816:1855 :Q$ =SZ2ĺL$!?D$;"PR#0::"OUBLE SIZE":/8:10:I119:"-";::fTA::"G";::"RAPPLER"::TA::"P";::"KASO":22:10::" FOR MENU ":15:TA2:"YOUR CHOICE --> ";:SZ$:SZ$:SZ(SZ$):16368,0:SZ13(SZ$)01890SZ801898 SZ7197,0:WT$:WT$:1400%216,0:1400< PRINT SUBROUTINEW  DOUBLE -> CALL 34816 X(0):I$(9):D$(4):Q$(17):L$(12):CL20:TA14 :12::" PICTURE PRINT ": 3:10:" SILENTYPE:":TA::"R";::"EGULAR SIZE":TA::"D";XV1(CV$):XVLQ12,QV6(LVI1):4YU01770y48:IYU11:CU$(YU$,I,1):XV1(CU$):XVLQ4,QU5(YUI):YL0177448:IYL11:CL$(YL$,I,1):XV1(CL$):XVLQ4,QL5(YLI1):::16304,0:16302,0:16300,0:162VTP((160TP)2)3LV:QT(((LTDX)2)127)3LZ:1:0ILH01758I1LH:CH$(QH$,I,1):XH1(CH$):XHQH6I,178:LZ01762I1LZ:CT$(QT$,I,1):XT1(CT$):XTQT6I,189:LV0LQ181766%48:ILV11:CV$(QV$,I,1):317385"ENTER LOWER Y-AXIS VALUE"::34554,YL$:d"ENTER UPPER Y-AXIS VALUE"::34554,YU$:23:12::" LABELING AXES ":YU(YU$):YL(YL$):QUTP2.5(YU2):QL1592.5YLLH(QH$):LV(QV$):LZ(QT$)0QH(((LTDX)2)132)3LH:Q232,0:233,1285::1:15::" LABEL AXES ":b2:9::" --> NO ENTRY "::4"ENTER HORIZONTAL AXIS LABEL"::34554,QH$:LQ181728"ENTER VERTICAL AXIS LABEL"::34554,QV$:"ENTER TITLE"::34554,QT$:LT2D(T$)01620ED$(4))J1630MOD$;"BSAVE ";T$;",A8192,L$1FFB"YT:1400s^216,0:43624,1:1400 LABEL AXIS AND TITLE INPUT -> CALL 34554,L$X(0)::1780(32768)1281712(4);"BLOAD PLOT.OBJ,A$8000":"Y";::"/N) --> ";:QU$:QU$(78)ġ:1400\::10:"...NICE WORKING WITH YOU":22:t@ SAVE PLOT ON DISKA::13::" SAVE PICTURE ":B22:12::" FOR MENU "::2C10:"WHAT NAME SHOULD PICTURE HAVE ?":13:"-> ";:34554,T$:6300,0:16297,0'MU$:MU$" "1460;MU$(13)1400QOV1:LD0:RF0ĬY2023:4::"...ARE YOU SURE ? ";::" (";::"Y";::"/N) --> ";:QU$:QU$(78)ġ:QU$:1400"Y":(4);"RUN^".23:4::"...ARE YOU SURE ? ";::" (";:U79MU1MU82MU9)MU83MU29MU88MU8IMU76MU3YMU80MU4iMU66MU5yMU70MU7MU81MU6MU84MU10MU101460MU1485,1600,1700,1800,1490,1495,2000,4000,6200,850016304,0:16302,0:1::"-AXIS NUMBER TOGGLE"?TB::"B";::"ACK TO MAIN MENU"ZTB::"Q";::"UIT":5::" PICTURE --> <-- MENU "::43624,1:21:868::21:11:"YOUR CHOICE --> ";:MU$:MU$:MU(MU$):MU$" "1480MU$(13)1460 M"VERLAY ANOTHER PLOT"<TB::"R";::"ERUN THE PROGRAM"bTB::"S";::"AVE PLOT TO DISK"TB::"L";::"ABEL THE AXES"TB::"P";::"RINT SCREEN"TB::"F";::"LOATING LABELS"TB::"T";::"REND CALCULATION"TB::"X";MPO:DNMO2,MMPO:MOMX::8MX,M:MO,MM:MOMX::_MX,MMX,MZ:MO,MMMO,MZ:MOMX::q SAME SCALEBB1:CC1:xX(0): MENUz232,0:233,128:10,76:11,0:12,137}::TB1115::" PLOT MENU "::2:TB::"O";::MX,MZ:MO,MZRF11205,DX21205NMX,160MX,158:MO,160MO,158V eMTPMTPvM159M159MMTPMMTPMM159MM159L$"B"1250L$"D"1247L$"S"1245MX,MMO,MM:MOMX::SH1:1:0:DNMX2, MAIN PLOT ROUTINE5DN112:RF1SH1DN44ARF1ġRN0NAR(0)mPO2:DN14DN74PO3DX(279LT)N:MOLT:16302,0:I2NMM(TPSY(1((AR(INS2)C)B)).5)M(TPSY(1((AR(INS1)C)B)).5)MXLTDX(I1),159276,159 GLQ,TP3LQ,1610I1:0:4000BLB1C101110PVJ2020e[IZ(MZSTJ.5)`IZ159IZTP11130eLQ2,IZLQ2,IZjo3tDX(279LT)NyJ130:J3LT10JDXDX~J32761165J3,157J3,161OK$:OK$(13)OK$"Y"*OK$1,OK$"N"1055;.1300M3BBC:BSB10\5B0İ80008MZ(TPSY(1(CB)).5):MZ159MZ1599MZTPMZTP:16304,0:16302,0:16300,0:16297,0=RF1İ1165?:3@LQLTDX:LQ18LQ18 BLQ:"Y";::"/N) --> ";:Y$:Y$"Y"Y$(13)1070DY$(13)Y$"Y"LY$B1$"0":16:15:"YMAX --> ";:34554,B1$:B1(B1$):B1$""1055$17:15:"YMIN --> ";:34554,C1$:C1(C1$):C1$""1060):" IS THIS OK? (";::"Y";::"/N) --> ";:B:C1C:B1B11E9) 15:868:10:1300F TN10000:B(BTN.5)TNw :15:"YMAX --> ";:BX(10000B)::(BX): 15:"YMIN --> "; CX((C)10000):C0CXCX :(CX):::X(0) AU$" AUTO":RF1AU$" SAME"/AU$;" SCALE? (";: n(7);(7);(7) MN$' 1400=  PLOT SUBROUTINEU X(0):N0NAR(0)g DX(279LT)Nv RF11037 B1.0E37:C1.0E37:ST(159TP)10:SY159TP INSNNS1 BAR(I)1025 BAR(I) CAR(I)1035 CAR(I) I:B1L$(13)L$"L" HL$_ K:" IS THIS OK? (";::"Y";::"/N) --> ";:OK$:OK$(13)OK$"Y"h MOK$x POK$"N"20 SLD090 T15:15::" LOADING ": U6000 WN32LT23LTLT32 ZOV1100 _15:15::" SCALING ": d1000:RF1";:34554,N$:N(N$):N$"M"1400/ 4N09500y 7CV2:868:" FIRST POINT --> ";:34554,NS$:NS(NS$):NS055 <NNS25770 A20:8::" CAN'T PLOT THESE POINTS "::I12000::20:868:50 F:"L";::"INE/DOT/BAR/SHAPE --> ";:L$:SL (c )3:"WORK FILE--> ";::DA$;::" ? (";::"Y";::"/N) --> ";:WK$:WK$:WK$"N"46 *:" FILE TO PLOT --> ";:34554,DA$:3 +LD1 .3:868:3:9:" WORK FILE --> ";::DA$:: 0CV(37)! 2868:CV1:" TOTAL POINTS --> d+ 32768:LD1:DM1:9000OAR(256),L(50):DA$"PLOT.DATA":ED$" 0.0000"Uv::13::" PLOT ROUTINE ":(32768)128353:10::" LOADING UTILITIES ":(4);"BLOAD PLOT.OBJ" #232,0:233,128:10,76:11,0:12,137:34831,192              B  $  !A"P @B @ "@ @ g@Q*@ @ Ox=@ @ @ @ @@ @ @`g!@@ @@p"@ @ "U @ @ @@ q @ @  @ @ @ @ @@ @(T"@  PA @@L"@ @ A@ @@pp4<@ @ @E'p@D@A > d @T# 0B  @  @ B @@  pD QpA" `H@( @ @ @B @Dz qpCP"H@ `A @@pp|"@ @ "P @ @ Qj@ @  @ @ @E@ @ pC `x@ @@ "@@ @  $@ @ "U'@  ` @  @/@@ x@ "DB @" >@CA @ pD@ @@@ @xT<@   @ @T"@ @ A@ @  D@(@D@A " $)@L# HOwq`C @ D@  @@A @@ <@#`p@<@O'@@ @ `A   A`!0@ @ O@ @ Q(4@ @  @"@ @ XE@ @ |>_ow@ `@ @ "@@ @    @ @ "QhaA  @@ t@D(@@ `A2 "P$"Y@" @ !B @  D@ @`O@@  p(( @ @ @@  8@ @ @a@ @  D@`@px4`pC" " >$)@D @H@  B   (@ `@ @ @ @ @@ @@ @ @ @@ zq@@ NHS`A @@p@ @ @ @ "@ @ (E@ @ @ 0 @ @'"@@ @ p  @ @  'B @ p@@ @AD/@`x@  B*'"pp@$8)B'@ !B @` D@ @"@(@@@ @@p@ @ xA `@ `@ @  D"@ tq @ A@ "P $>Y@D H@@gyB  @  @ @ p@Owy@ >@ ^H<@ @ @@ @ `A   @"`!8B @ "@ @  @ @ "@  @ E"1@cA @@pp@ `A @@P@|>@ @@("A @    @ @ `B @@   BD(@@D @ @B"" @$@" B@(  !B @ pD@ @"@hC`@ @ @  D"D@ @ @ @ x=@  @@ @@A@   G H@`A @0@  NG@E@@ @ @ @ @ A(@@>_ow{@ @ @  @ B @t  A"P"DB @ "@ @ @@ @  `A x"@ `= PA@ @  @ @@B @0x@ @@("B @   @ @  @aA @  BD'@ x( @ pD<pA"""P @$@" B@( !B @ p<@ @"@(D@ @  x"D@ @ @ @H  `x >`A@ *@ HGcs@ @ ( DP@ "P$r@D @@r@ @ AH8@ @ @ @ @ @@@ @@p B z pC"@"(`A @ pp"@ @<^G`A @ @HB @  "@ @ A@ @ @ @ B @`@@ @'`ypC @@pp"@ @ @ @  BL @>@ @E"Q@"""`Q`x%< B"'@ !B  @ @|Gs@ @  @"D@>_ow{@ @  qq@ @ 0@ @ g DN@" "H$ @D @ `A @0@ `Q4@  @ @ @  '@sC @p@@  @A @@  A"`! B @ "@ @@(@@ @pp("@ 0B @ 4>@ @ A@ @  L@ @ `A @` @ @ @ @ @  B4 @`p@ @ E @AA @@ @@@ 8@ @ @ p@  @ @ E@Q  D"A @`p8`A2 " *$ @d GsqB @ @ @ NGSx          ԊըժՊժժժժԪժժԊբŨĈՊՊЪժĈժժԨԪջժժժժňĈժŊĈĨĈŪժժՂТժժժЪժժժՂԨժժѢԈŪԊŪՈŪժժժժիժՊժժժՂԪբժĈժժѪՊժԪՈѢĈԪժժժժժժժժժժժՂժժժժԈňժժĪժĈĈĪժժժՈՈĪժժժժՂժժժѪՊŊĈŨժժժժժժժժժժժժժՂժժՈժջݻ׮ժբĈĈĊĈĈĨժժժժժժժժժժժժժժՂŪժՊժպתժĈѢĈТժժժժժׂݻժժժժժժժժժժժݪĨժՊĈՂѪժժԊժժժժժŪݻתժժժժժժՊժŨňժժժĈĈԊՂժժժժժժՂݺݪĪݻݫժժժժժժժժߪժժתժժժЮժՊժժժժժՊԺ߻ݻݫ ժժժժժժպժպժԊժѪĈժժժĨժժժժժժժժժňѪպݻݻݪժժժժժՂЪժתջԪժժժժժՊժՈժժժժժժժՈѪժժժժպݻݫժժժժժժբԈѪݪԪժժժժժժժժժժݻݻݻݫժժժժժժԫժժժժժժժժժժňĈժժժժժժժժժݻݻݻݻݪժժժժժժԪժժժժժժԨժժՂՂժժժժՊݻݪժժժժՂժժժժŪժժՊժՊժժժժժժժՂЪݪժЪժժժժժժբժТբըժժժժժժժժժժժՂժժժժժŨժЊтŪժժժժժժպժՊժժժՂժժժժժŪѪŠժժժժԪժժբԪժժժժժժժժժժժժժժժՂժժժժժݻݪժňբՈբԪժժժժժĨĪժժժժժՂժժժժժЪժĈժŪժժժժժժժժժժժժժժժՂժժժժպݫժՊժժժՊբЪժŪժժժժժժժժժժժժժժժՂժժժժՂժݻժՈբժժՊѪԪĈՈժժժժժݻժժժժժժ׮ՊݺժժժՊժժԊժժժժժժ݋ݫժժժժժժժժժՊժժժՈժՈՂԨĪժժĪժժժժժժժՊպݻݻݻժժժժժժիժתժݫժժժըԪՈĊժժժժժժݻݻժժժժժժջݪժժժժՊՈժժժժժժժժժժջժݪ߻ݻݻժժժժժܫݫЪժժժժՈժժňժժժժժժժժժժժժպݿݻ ժժժժժժԪժժՈ݂ЪժժՊԪĈժժժժժժպ߻ݻݻժժժժժ݋ժժժժժժժժժժըĈժժՈժժժժժժժݻݻݻժժժժժԻ݊ժժժժժժժժժժժժժЪՊժѪԊժՈժݪժժժժժըժԊĈժժժբժĈժժĈժЪժݪժժЪժՈԨժĈĪԨĈԨժժբŪժժժժժժՂŪժըŊЂĈѪԪժժѪժժժՂժժժՂժѪԪĈժժՊѪЊՈՂԈԪժժժժժժժժժժժժժժՂժժժժĈժպתժĈĈժժժժժЪժժժժժՂĪժժբŊժňĊբժժժժժժժժժժժժժՂժժŨѢժջݻժժժĈĈĈĈЈĈĪժժժժժժժժժժժժժժՂըժՊѢժջݻժĈĈňĈЪժժժժժݻժ ժժժժժժߪתժԪժĈժժժժժժժժժݻתժժժժժժՊժժժŪժժЪժĈѪТŪժժՂЊժժժժժժժѪժծՊպݻݺժժժժժժժժתժժժժժѪժժժժժժĪݫݻݪժժժժժժݫתժժժĪժժŨՂԊЪժժբЂժժժժժժժժժݻݻݻݻժժժժժժԪժժժժժժժĨժժժժժժժժժժժժժծݻݻݺժժժժժՊѪժժժתԪժժժժ