L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`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- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`  RUN^" REYOU CAN BUY USED APPLE SOFTWARE AT" d"ANAZING PRICES OR SELL YOUR OWN UNNEEDEDUSED SOFTWARE. WE HOPE THAT YOU WILL ENJOY OUR PRODUCTS AND SERVICES.":23 n24:"";:A$:::"RUN HELLO" ANDEXCHANGED."::"WE ALSO SELL MAPS/CLUES/SOLUTION/TRIVIA BOOKS TO MANY POPULAR COMPUTER ADVENTUREGAMES FOR ONLY $2.65 PER TITLE POSTPAID.OUR HINT BOOKS ARE THE BEST!"% Z:"WRITE US FOR INFORMATION ABOUT THIS OR ALSO ABOUT OUR USED SOFTWARE LISTS WHE PER DISK WHICHINCLUDES RETURN POSTAGE. OR WE CAN SELLYOU THE BLANK DISKS NEEDED FOR AN" F"ADDITIONAL FEE OF $1.10 EACH. WE CAN COPY SINGLE-SIDED OR DOUBLE-SIDED. ALL OUR THOUSANDS OF PROGRAMS ARE IN THE" P"PUBLIC DOMAIN AND CAN BE FREELY USED"TO THE PROGRAM AUTHORS":11)"AND CONTRIBUTORS."b (::6)"";:A$: 2"ANY OF OUR PUBLIC DOMAIN PROGRAM DISKS FROM OUR LARGE LIBRARY CAN BE COPIED ONTO YOUR BLANK DISKS SENT TO US FOR A"Y <"COPY FEE OF ONLY 75 CENTSZ ::3:16)"75 CENT":6)"PUBLIC DOMAIN PROGRAM DISKS":::12)"DISTRIBUTED BY:"::12)"ASPEN SOFTWARE"::6)"729--1/4 E. PORTLAND STREET":8)"PHOENIX, ARIZONA 85006":7)"TELEPHONE: (602) 253-0651"1 ::10)"WITH SPECIAL THANKS":8)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#XγԮҠà Рޠ  ԮԠ ԮЮԠԮ͠ ԮĠԮŠԮР Ԯנ ԮîԠ ԮŠ Ԯ͠ ԮͲ ԮԠ ԮӠ Ԯ̠  ԮΠԮàԮР ԮŠԮҠ Ԯ͠ Ԯʠ Ԯ Ԯ ԮԠ ԮԮʠ ԮԮӠԮԮʠԮҠ ԮŠ  ԮŠԮƠԮԠ ԮԱԮԶԮ٠ îŠ!Ԡ- ԮԮ ԮԮ ԮƠΠˠñħӠԠŠ"Ϡ" Ġ" ͺ" à! îĠ! + -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          ԊըժՊժժժժԪժժԊբŨĈՊՊЪժĈժժԨԪջժժժժňĈժŊĈĨĈŪժժՂТժժժЪժժժՂԨժժѢԈŪԊŪՈŪժժժժիժՊժժժՂԪբժĈժժѪՊժԪՈѢĈԪժժժժժժժժժժժՂժժժժԈňժժĪժĈĈĪժժժՈՈĪժժժժՂժժժѪՊŊĈŨժժժժժժժժժժժժժՂժժՈժջݻ׮ժբĈĈĊĈĈĨժժժժժժժժժժժժժժՂŪժՊժպתժĈѢĈТժժժժժׂݻժժժժժժժժժժժݪĨժՊĈՂѪժժԊժժժժժŪݻתժժժժժժՊժŨňժժժĈĈԊՂժժժժժժՂݺݪĪݻݫժժժժժժժժߪժժתժժժЮժՊժժժժժՊԺ߻ݻݫ ժժժժժժպժպժԊժѪĈժժժĨժժժժժժժժժňѪպݻݻݪժժժժժՂЪժתջԪժժժժժՊժՈժժժժժժժՈѪժժժժպݻݫժժժժժժբԈѪݪԪժժժժժժժժժժݻݻݻݫժժժժժժԫժժժժժժժժժժňĈժժժժժժժժժݻݻݻݻݪժժժժժժԪժժժժժժԨժժՂՂժժժժՊݻݪժժժժՂժժժժŪժժՊժՊժժժժժժժՂЪݪժЪժժժժժժբժТբըժժժժժժժժժժժՂժժժժժŨժЊтŪժժժժժժպժՊժժժՂժժժժժŪѪŠժժժժԪժժբԪժժժժժժժժժժժժժժժՂժժժժժݻݪժňբՈբԪժժժժժĨĪժժժժժՂժժժժժЪժĈժŪժժժժժժժժժժժժժժժՂժժժժպݫժՊժժժՊբЪժŪժժժժժժժժժժժժժժժՂժժժժՂժݻժՈբժժՊѪԪĈՈժժժժժݻժժժժժժ׮ՊݺժժժՊժժԊժժժժժժ݋ݫժժժժժժժժժՊժժժՈժՈՂԨĪժժĪժժժժժժժՊպݻݻݻժժժժժժիժתժݫժժժըԪՈĊժժժժժժݻݻժժժժժժջݪժժժժՊՈժժժժժժժժժժջժݪ߻ݻݻժժժժժܫݫЪժժժժՈժժňժժժժժժժժժժժժպݿݻ ժժժժժժԪժժՈ݂ЪժժՊԪĈժժժժժժպ߻ݻݻժժժժժ݋ժժժժժժժժժժըĈժժՈժժժժժժժݻݻݻժժժժժԻ݊ժժժժժժժժժժժժժЪՊժѪԊժՈժݪժժժժժըժԊĈժժժբժĈժժĈժЪժݪժժЪժՈԨժĈĪԨĈԨժժբŪժժժժժժՂŪժըŊЂĈѪԪժժѪժժժՂժժժՂժѪԪĈժժՊѪЊՈՂԈԪժժժժժժժժժժժժժժՂժժժժĈժպתժĈĈժժժժժЪժժժժժՂĪժժբŊժňĊբժժժժժժժժժժժժժՂժժŨѢժջݻժժժĈĈĈĈЈĈĪժժժժժժժժժժժժժժՂըժՊѢժջݻժĈĈňĈЪժժժժժݻժ ժժժժժժߪתժԪժĈժժժժժժժժժݻתժժժժժժՊժժժŪժժЪժĈѪТŪժժՂЊժժժժժժժѪժծՊպݻݺժժժժժժժժתժժժժժѪժժժժժժĪݫݻݪժժժժժժݫתժժժĪժժŨՂԊЪժժբЂժժժժժժժժժݻݻݻݻժժժժժժԪժժժժժժժĨժժժժժժժժժժժժժծݻݻݺժժժժժՊѪժժժתԪժժժժ